Delphi的TDatabase控件对控制事务提控了支持，标准的用法是：  
  Database1.StartTransaction;  
  try  
      ......  
  except  
      Database1.Rollback;  
      Exit;  
  end;  
  Database1.Commit;  
   
  但出现异常后回Rollback时，老是报错，说当前没有事务可以Rollback，  
  好像是SQLServer以经Rollback了，这是怎么回事？