在updatesql1中准备的更新语句如下
update customer
set
company ='Sightr'
where
Company ='Sight Diver'
query1中准备select * from customer
active属性社为true
procedure TForm1.Button1Click(Sender: TObject);
begin
updatesql1.updateobject:=query1;
updatesql1.SetParams(ukModify);
updatesql1.ExecSQL(ukModify);
end;