我是delphi新手，请问如何很好地实现事务？

Question

TDatabase，TQuery，TTable等等
Database1.StartTransaction;
try
  Query1.ApplyUpdates;
  ...
  Database1.Commit;
except
  Database1.Rollback;
  raise;
end;

Answer 1

用TDatabase例：Database1.StartTransaction; //开始事务
try
  Table1.Insert;
  Table1.Fields[0].Value:='xxx';
  Table1.Post;
  Database1.Commit;
except
  Database1.RollBack;
  raise Exception.Create('Commit failed');
end;

Answer 2

使用Tdatabase
   database1.StartTransaction;
try
.........
   dmGlob.myDb.Commit;//提交
except on E:Exception do
begin
    ...........
     dmGlob.myDb.Rollback;//回滚
end;

Answer 3

To xiaojiachong(小甲虫):Rollback必须放在except后的第一句（想一想，为什么？）。

Answer 4

  用database1
  
  begin
    database1.starttransaction;
    ....
    database1.rollback;
    ...
    database1.commit;
  end;你试试吧
  

Answer 5

Ttable的作用与PB的数据窗口相比，有什么差别吗？