建议大家采用另外一种编码风格,不要在程序中到处都有这种LZ程序生成的代码: begin with qryMain do begin try Close; SQL.Clear; SQL.Add('Delete From MONTASK where TASKID=:TASKID'); ParamByName('TASKID').AsString := AID; Execute; finally Close; end; end; end; 实际上,在一般的项目中,整个程序中,只需要在统一的一个dm中,