多个表同时输入出错控制

Question

我在设计软件时要同时对多个表进行输入,如果其中一个出错,怎样能够控制其它相同的输入操作都取消,我知道事务控制可以实现但是我不知道如何去写,哪位老兄帮忙贴个示例代码出来,小弟先谢过了,急

Answer 1

try
  ADOConnection1.BeginTrans;
  {你的更新代码}
  ADOConnection1.CommitTrans;
except
  ADOConnection1.RollBackTrans;
end;

Answer 2

try
  Database1.StartTransaction;
  {你的更新代码}
  Database1.Commit;
except
  Database1.Rollback;
end;
{上面是ADO，这里是BDE}