procedure TfrmMeisai.FormCloseQuery(Sender: TObject;
                                   var CanClose: Boolean);
  function Hizuke_Chg(hizuke:string):integer;
  begin
    if  hizuke = ''  then
      Result := 0
    else
      Result := StrToInt(
            StringReplace(hizuke,'/','',[rfReplaceAll]));
  end;
begin
  if  ModalResult =  mrOK then
  begin
    with  frmJuchu.cdsJuchuM  do
    begin
      //ファイル更新
      //【登録時】
      if  SINSFLG  then
      begin
        Active := True;
        Insert;
        //商品名
        FieldByName('SHOHINNM').AsString  := EditShoNm.Text;
        //商品コード                     
        FieldByName('SHOHINCD').AsString  := EditShoCd.Text;
        //数量
        FieldByName('SURYO').AsInteger :=
           StrToInt(StringReplace(EditSuryo.Text,
                      ',','',[rfReplaceAll, rfIgnoreCase]));
        //単価
        FieldByName('TANKA').AsFloat   :=
           StrToFloat(StringReplace(EditTanka.Lines.Strings[0],
                       ',','',[rfReplaceAll, rfIgnoreCase]));
        //納期
        FieldByName('NOUKI').AsInteger := Hizuke_Chg(EditNouki.Text);
      end
      else
      begin
        Edit;
        //商品名
        FieldByName('SHOHINNM').AsString  := EditShoNm.Text;
        //商品コード
        FieldByName('SHOHINCD').AsString  := EditShoCd.Text;
        //数量
        FieldByName('SURYO').AsInteger := 
           StrToInt(StringReplace(EditSuryo.Text,',','',
                                [rfReplaceAll, rfIgnoreCase]));
        //単価
        FieldByName('TANKA').AsFloat   :=
           StrToFloat(StringReplace(EditTanka.Lines.Strings[0],',','',
                                [rfReplaceAll, rfIgnoreCase]));
        //納期
        FieldByName('NOUKI').AsInteger := Hizuke_Chg(EditNouki.Text);
      end;
    end;
  end;
end;