dmjobform.gzmsdm.SQL.Add('DELETE FROM DM_GZMSDM WHERE GZMSDM=:X');

解决方案 »

  1.   


      dmjobform.gzmsdm.SQL.Add('DELETE FROM DM_GZMSDM WHERE GZMSDM=X');
    该为  dmjobform.gzmsdm.SQL.Add('DELETE FROM DM_GZMSDM WHERE GZMSDM=:X');
      

  2.   

    SQL.Add('DELETE FROM DM_GZMSDM WHERE');
     SQL.Add('GZMSDM=:tmpvar');
     SQL.Add('GZMSDM='''+dmjobform.gzmsdm.FieldValues['GZMSDM']+'''');
     parambyname('tmpvar').AsString:=tmpvar;
      dmjobform.gzmsdm.ParamByName('tmpvar').AsString:=X;
      dmjobform.gzmsdm.ExecSQL;
      

  3.   

    var x:string;
    tmpvar:string;
    begin
      if MessageDlg('本操作将删除一条记录,您是否确定?',mtConfirmation,
        [mbYes, mbNo], 0) = mrYes then
     begin
     
        tmpvar:=dmjobform.gzmsdm.FieldValues['gzmsdm'];
        dmjobform.gzmsdm.Close;
        dmjobform.gzmsdm.SQL.text:='DELETE FROM DM_GZMSDM WHERE M=:X'  
        dmjobform.gzmsdm.ParamByName('x').AsString:=tmpvar;
        dmjobform.gzmsdm.ExecSQL;
     
     end;
    end;
      

  4.   

    sorry,上面不小心漏掉了一些字母var x:string;
    tmpvar:string;
    begin
      if MessageDlg('本操作将删除一条记录,您是否确定?',mtConfirmation,
        [mbYes, mbNo], 0) = mrYes then
     begin
     
        tmpvar:=dmjobform.gzmsdm.FieldValues['gzmsdm'];
        dmjobform.gzmsdm.Close;
        dmjobform.gzmsdm.SQL.text:='DELETE FROM DM_GZMSDM WHERE GZMSDM=:X'  
        dmjobform.gzmsdm.ParamByName('x').AsString:=tmpvar;
        dmjobform.gzmsdm.ExecSQL;
     
     end;
    end;
      

  5.   

    sorry,上面漏掉了几个字母
    var x:string;
    tmpvar:string;
    begin
      if MessageDlg('本操作将删除一条记录,您是否确定?',mtConfirmation,
        [mbYes, mbNo], 0) = mrYes then
     begin
     
        tmpvar:=dmjobform.gzmsdm.FieldValues['gzmsdm'];
        dmjobform.gzmsdm.Close;
        dmjobform.gzmsdm.SQL.text:='DELETE FROM DM_GZMSDM WHERE GZMSDM=:X'  
        dmjobform.gzmsdm.ParamByName('x').AsString:=tmpvar;
        dmjobform.gzmsdm.ExecSQL;
     
     end;
    end;
      

  6.   

    用 sunshine_zhang(金色原野) 的,因为你已经把gzmsdm的内容clear掉了,那里还有gzmsdm字段名,所以应先取值后clear!