用ado删除数据的时候，提示没有活动事务，请教

Question

之前用这段代码能正常删除，但是不知道为什么这两天就提示没有活动事务的了，希望各位大虾能扶小弟一把，谢谢，代码如下：
     if not dmall.DBCN.InTransaction then
  
     ado_dec.DisableControls ;
     try
       with ado_tmp do
         begin            CommandText := 'delete from udec_detail where decno = :decno' ;
            Parameters.ParamByName('decno').Value := ado_dec.FieldByName('decno').Value ;            prepared := true ;
            Execute ;
            prepared := false ;          end ;        dmall.DBCN.CommitTrans ;        ShowMessage('删除成功') ;     except on E:Exception do
       begin
         Dmall.DBCN.RollbackTrans ;
         ShowMessage('删除失败'+#10#13+E.Message+#10#13+'请与管理员联系');
       end ;
      end ;//end try

Answer 1

确保你执行这些语句dmall.DBCN.CommitTrans ;Dmall.DBCN.RollbackTrans ;之前，启动了事务Dmall.DBCN.BeginTrans;