ADO有事务功能。
在数据集中的BeforePost事件添加：
con.BeginTrans;
AfterPost事件添加：
con.CommitTrans；
OnPostError事件添加：
con.RollbackTrans；
Action ：= daAbort；