Delphi中SQL语句配置参数代码示例

function Tformmain.UpdateUsercardFlag(dsjbh,qh,uphone:string):boolean;//更新用户号码簿中的检查标志
begin
try
   with QryTemp do begin
     if Active then close;
     sql.Clear;
     //    select dsjbh,qh,uphone,zjtype,uzjsj,checkflag from user_card
     sql.Text:='update user_card set checkflag=1 where'
      +' dsjbh=:dsjbh and uphone=:phone and qh=:qh';
     Parameters.ParamByName('dsjbh').Value:=dsjbh;
     Parameters.ParamByName('phone').Value:=uphone;
     Parameters.ParamByName('qh').Value:=qh;
     ExecSQL;
  end;
  result:=true;
 except
   ADOConnection1.Close;
   StatusBar1.Panels[2].Text:='更新失败';
   sleep(200);
   result:=false;
 end;
end;