如何结束database事物！？

Question

事物如何结束：
query1.database.InTransaction 在事物中，
query1.database.starTransaction  开始事物
如何结束呢？
感谢！

Answer 1

用database1.commit;
  database1.rollback;

Answer 2

//人为加标志判断, gStopFlag: boolean; //全局变量if not ADOConnection1.InTransaction then
  ADOConnection1.BeginTrans;
try
  .
  .
  if gStopFlag then
    StrToDate('abcd');
  .
  .  
  ADOConnection1.CommitTrans;
except
  ADOConnection1.RollbackTrans; 
end;