简单的SQL语句在delphi中的问题。

Question

语句：update hst_duty set ThisTermTurnInMoney=ThisTermTurnInMoney+2000，在查询分析器中通过。
在程序中：
var AfterMoney:integer;
DutyId,sql:string;
begin
  DutyId:=AdoQuery1.FieldByName('DutyId').AsString;
  if AdoQuery1.FieldByName('summary').AsString='3' then
  begin
    incMoney:=beforeMoney-AfterMoney
    sql:='update hst_duty set ThisTermTurnInMoney=ThisTermTurnInMoney+'+incMoney+' ';//这一句中的incMoney同上面的2000是一个意思。
    DM.AdoLocal.Execute(sql);
  end;
end;

Answer 1

建议使用参数
sql:='update hst_duty set ThisTermTurnInMoney=ThisTermTurnInMoney+:s1';
DM.AdoLocal.SQL.clear;
DM.AdoLocal.sql.add(sql);
DM.AdoLocal.Parameters.ParamByName('s1'):=incMoney;
DM.AdoLocal.ExecSQL;