为什么我的写数据库操作报No user transaction is currently in progress?

Question

诸位大侠,   我的代码为
        strBranchBureauID := Marco_Exch_Query    (Edit_Network_SubBureau_Name.text,1);
        //根据分局ID获取分局ID, 调用Marco_Exch_Query函数
        strEXCH_ID := Marco_Exch_Query(Cmb_Sub_Bureau.text,1);        //有关校验///////////////////////////////////////////////////////////////
        if (Cmb_Sub_Bureau.text = '<请选择输入>') or (Cmb_Sub_Bureau.text = '') or (length(Cmb_Sub_Bureau.text) >10) then
         begin
          if strFlag<>'NO' then showmessage('请输入正确的分局名,不能超过10个字符且不能为空.');
          strFlag := 'NO';
         end;
        if strFlag <> 'NO' then
         begin
          //dm.DmDatabase.StartTransaction;
          begin
            try
              dm.DmDatabase.StartTransaction;
              dm.Q_Update_Resource.SQL.clear;
              dm.Q_Update_Resource.SQL.add(我的SQL语句1);
              dm.Q_Update_Resource.ExecSQL;
              dm.DmDatabase.commit;
              dm.Q_Update_Resource.SQL.clear;
              dm.Q_Update_Resource.SQL.add(我的SQL语句2);
              dm.Q_Update_Resource.ExecSQL;
              dm.DmDatabase.commit;
              dm.Q_Update_Resource.SQL.clear;
              dm.Q_Update_Resource.SQL.add(我的SQL语句3);
              dm.Q_Update_Resource.ExecSQL;
              dm.DmDatabase.commit;
            except
              //dm.DmDatabase.Rollback;
            end;
          end;          begin
            try
              dm.DmDatabase.StartTransaction;
              dm.Q_Update_Resource.SQL.clear;
              dm.Q_Update_Resource.SQL.add(我的SQL语句4);
              dm.Q_Update_Resource.ExecSQL;
              dm.DmDatabase.commit;
              dm.Q_Update_Resource.SQL.clear;
              dm.Q_Update_Resource.SQL.add(我的SQL语句5);
              dm.Q_Update_Resource.ExecSQL;
              dm.DmDatabase.commit;
              dm.Q_Update_Resource.SQL.clear;
              dm.Q_Update_Resource.SQL.add(我的SQL语句6);
              dm.Q_Update_Resource.ExecSQL;
              dm.DmDatabase.commit;
            except
              //dm.DmDatabase.Rollback;
            end;
           end;
           ok_cancel := true;
           self.close;
        end;  万分感谢!!!!小弟在线等待!!!!!麦克小熊

Answer 1

为什么写这么多的
dm.DmDatabase.commit;？？？
你提交了以后，这个事务也就不存在了，下一次遇到dm.DmDatabase.commit;就会报出不在事务中，使用的模式应该是：
Start Transaction;
try
  sql operate...
  commit Transaction;(only once)
except
  rollback Transaction 
end

Answer 2

谢谢'1FCSOFT(程序员)'
我的问题解决了. 万分感谢!!!!麦克小熊