procedure TfrmMeisai.FormShow(Sender: TObject);
begin
  if  SRECNO <> 0  then
  begin
    with frmJuchu.cdsJuchuM do
    begin
      RecNo := SRECNO;
      //商品名
      EditShoNm.Text := FieldByName('SHOHINNM').AsString;
      //商品コード
      EditShoCd.Text := FieldByName('SHOHINCD').AsString;
      //数量
      EditSuryo.Lines.Strings[0] :=
        FormatFloat('#,0', FieldByName('SURYO').AsInteger);
      //単価
      EditTanka.Lines.Strings[0] :=
        FormatFloat('#0.00', FieldByName('TANKA').AsFloat);
      //納期
      EditNouki.Text :=
        FormatFloat('####/##/##;#;#',FieldByName('NOUKI').AsInteger);
    end;
  end;
end;