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