Delphi 事务

 
procedure   TForm1.Button1Click(Sender:   TObject);   
  begin   
  ADOConnection1.begintrans;     //事务开始   
  try   
  adoquery1.Close;   
  adoquery1.SQL.Clear;   
  adoquery1.SQL.Add('insert   biao2(b1,b2,b3)   values(''5'',''5'',5)');   
  adoquery1.ExecSQL;   
    
  adoquery1.Close;   
  adoquery1.SQL.Clear;   
  adoquery1.SQL.Add('insert   biao1(b1,b3)   values(''5'',5)');   
  adoquery1.ExecSQL;   
  ADOConnection1.committrans;       //事务提交   
  MessageBox(handle,'chegn','提示信息框',MB_OK);   
  except   
  MessageBox(handle,'提示信息框','提示信息框',MB_OK);   
  ADOConnection1.rollbacktrans;             //事务回滚   
  end;