dephi 绑定变量

//作高效数据库程序比较有用
var
  S:string;
begin
  S:='select dept_name from department where dept_id=:id';
  DM.qry.Close;
  DM.qry.SQL.Clear;
  DM.qry.SQL.Add(S);
  DM.qry.Prepared:=true;
  DM.qry.ParamByName('id').Value:=1;//使用的是ODAC,ADO同样可以执行
  DM.qry.Open;
  edit1.Text:=DM.qry.FieldByName('dept_name').AsString;
end;