Delphi批量修改指定的数据库字段值，在本例中，批量将所有价格超过5元的商品价格提高一倍，点击功能按钮，即可批量修改，每点击一次，价格增加一倍。主要通过以下代码完成：
procedureTForm1.Button1Click(Sender:TObject);
begin
withquery1do
begin
close;
sql.Clear;
sql.Add('updatecaiset价格=价格*2where价格>5.0');
execsql;
end;
form1.FormShow(sender);
en
