来源： delphi事务处理 - CSDN博客 1、这是直接在delphi中使用事务 procedure TForm1.Button1Click(Sender: TObject); begin ADOConnection1.BeginTrans; Try aq2.close; aq2.sql.clear; aq2.sql.add(\'update bank set currentMon