设置Query的CatchUpdate＝True
然后在提交的时候这样写：
Query1.ApplyUpdates
如果涉及多个表的。
可以开始事务：
procedure TForm1.FormCreate(Sender: TObject);
begin
try
Database1.StartTransaction;
Query1.ApplyUpdates;
Query2.Post
...
Database1.Commit;
except
if Database1.InTransaction then
Database1.Rollback;
end;
end;
对于AdoQuey，有相应事件：
ADOConnection1.BeginTrans;
ADOConnection1.CommitTrans;
ADOConnection1.RollbackTrans;
