急！query与updatesql一起使用出现的问题

我保存的代码为：
procedure TDlgmx.sb_commitClick(Sender: TObject);
var messtr:string;
    f_dd:double;
begin
  if data.qsgjlsgly.asstring='' then begin
    dblookupcombobox10.setfocus;
    raise exception.create('事故来源不能为空！');
  end
  else if data.qsgjltdyy.asstring='' then begin
    dblookupcombobox2.setfocus;
    raise exception.create('停电原因不能为空！');
  end
  else if dbedit7.text='' then begin
    dbedit7.SetFocus;
    raise exception.create('事故开始时间不能为空！');
  end
  else if dbedit8.text='' then begin
    dbedit8.setfocus;
    raise exception.create('事故终止时间不能为空！');
  end
  else if dbmemo1.text='' then begin
    dbmemo1.setfocus;
    raise exception.create('事故概况不能空！');
  end;    cal_sjc;
    with data do
    begin
      f_dd:=Qsgjldy.asfloat*Qsgjldl.asfloat*1.73*0.8*(Qsgjlhours.AsInteger+Qsgjlmins.AsInteger/60);
      messtr:='事故少送电数：'+Qsgjldy.asstring+'KV x '+
            Qsgjldl.asstring+'A x '+'1.73 x 0.8 x '+Qsgjlhours.Asstring+'时'+
            Qsgjlmins.Asstring+'分 = ' + inttostr(trunc(f_dd))+' ≠'+dbedit13.Text+'度,要保存吗？';
      if Qsgjldd.asfloat<>trunc(f_dd) then
      begin
        if MessageDlg(messtr,mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
          Qsgjl.applyupdates;
          Qsgjl.commitupdates;
          dbedit1.SetFocus;
        end;
      end
      else
      begin
        Qsgjl.applyupdates;
        Qsgjl.commitupdates;
        dbedit1.SetFocus;
      end;
    end;
end;updatesql中modify的代码为：
update gzsc.sgjl
set
  GDJDM = :GDJDM,
  BMDM = :BMDM,
  XH = :XH,
  XLBH = :XLBH,
  XLMC = :XLMC,
  SGDD = :SGDD,
  GBS = :GBS,
  TDYY = :TDYY,
  TDXZM = :TDXZM,
  SGSJ1 = :SGSJ1,
  SGSJ2 = :SGSJ2,
  SGJG = :SGJG,
  SGCL = :SGCL,
  DY = :DY,
  DL = :DL,
  HOURS = :HOURS,
  MINS = :MINS,
  DD = :DD,
  TDHS = :TDHS,
  TDRL = :TDRL,
  HHD = :HHD,
  HCP = :HCP,
  HDX = :HDX,
  HGT = :HGT,
  HQT = :HQT,
  TDZSBM = :TDZSBM,
  TDSBM = :TDSBM,
  TDBJM = :TDBJM,
  TDJSM = :TDJSM,
  SGYY = :SGYY,
  SGZR = :SGZR,
  JBDZ = :JBDZ,
  QXRY = :QXRY,
  SGLB = :SGLB,
  SGXZ = :SGXZ,
  SFSB = :SFSB,
  TBRQ = :TBRQ,
  TBR = :TBR,
  SBXH = :SBXH,
  SCCJ = :SCCJ,
  TYRQ = :TYRQ,
  SGLY = :SGLY,
  ZZGBS = :ZZGBS
where
  XH = :OLD_XH and
  XLBH = :OLD_XLBHinsert的代码为：insert into gzsc.sgjl
  (GDJDM, BMDM, XH, XLBH, XLMC, SGDD, GBS, TDYY, TDXZM, SGSJ1, SGSJ2, 
SGJG, 
   SGCL, DY, DL, HOURS, MINS, DD, TDHS, TDRL, HHD, HCP, HDX, HGT, HQT, 
   TDZSBM, TDSBM, TDBJM, TDJSM, SGYY, SGZR, JBDZ, QXRY, SGLB, SGXZ, 
SFSB, 
   TBRQ, TBR, SBXH, SCCJ, TYRQ, SGLY, ZZGBS)
values
  (:GDJDM, :BMDM, :XH, :XLBH, :XLMC, :SGDD, :GBS, :TDYY, :TDXZM, :SGSJ1, 
   :SGSJ2, :SGJG, :SGCL, :DY, :DL, :HOURS, :MINS, :DD, :TDHS, :TDRL, :HHD, 
   :HCP, :HDX, :HGT, :HQT, :TDZSBM, :TDSBM, :TDBJM, :TDJSM, :SGYY, :SGZR, 
   :JBDZ, :QXRY, :SGLB, :SGXZ, :SFSB, :TBRQ, :TBR, :SBXH, :SCCJ, :TYRQ, 
   :SGLY, :ZZGBS)delete的代码为：
delete from gzsc.sgjl
where
  XH = :OLD_XH and
  XLBH = :OLD_XLBH请高手帮我找一下原因吧，先谢了！