因为你设置了xaCommitRetaining, xaAbortRetaining而同时在又写了类似下面的语句:
  ADOTable1.Edit;
  ADOConnection1.BeginTrans;
  ADOTable1.Post;
  ADOConnection1.CommitTrans;
这是错误的。因为设置xaCommitRetaining, xaAbortRetaining表示ADOConnection会自动维护事务,所以将BeginTrans和CommitTrans去掉。—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
             毁誉由人,望天上云卷云舒,聚散任风。';
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————