delphi事务处理.docVIP

事务处理（delphi） 数据类型 T_SQL分离附加数据库 事务处理（delphi）?? 2011-05-07 16:24:14|??分类： Delphi |??标签：delphi?? |字号大中小?订阅 1、这是直接在delphi中使用事务procedure TForm1.Button1Click Sender: TObject ;begin? ADOConnection1.BeginTrans;? Try aq2.close; aq2.sql.clear; aq2.sql.add update bank set currentMoney currentMoney-1 where customerName 张三 ; aq2.ExecSQL; aq2.sql.Clear; aq2.sql.add update bank set currentMoney currentMoney+1 where customerName 李四 ; aq2.ExecSQL; ADOConnection1.CommitTrans;?? Application.MessageBox 提交成功, ;? Except?? ADOConnection1.RollbackTrans;?? Application.MessageBox 提交失败, ;? End; end;2、在存储过程里使