数据库插入失败？

Question

try
  post;
  tdmmain.ADOConn1.CommitTrans;
  showmessage('插入车辆记录成功!');
except
  showmessage('数据插入失败,请与开发商联系!');
  tdmmain.ADOConn1.RollbackTrans;
  exit;//如果后面还有操作，这句加上
end;
插入成功是提示了，可数据库
showmessage('数据插入失败,请与开发商联系!');
之前又有数据库操作错误的系统提示，因为关键字是cardnum，我重复操作来着，怎么解决？

Answer 1

try
  post;
  tdmmain.ADOConn1.CommitTrans;
except
  showmessage('数据插入失败,请与开发商联系!');
  tdmmain.ADOConn1.RollbackTrans;
  exit;//如果后面还有操作，这句加上
end;  showmessage('插入车辆记录成功!');
是不是这样？？

Answer 2

还有个建议，……
showmessage('数据插入失败,请与开发商联系!');
tdmmain.ADOConn1.RollbackTrans;
……交换位置比较好。