正在阅读：用Delphi模拟组件的两阶段提交用Delphi模拟组件的两阶段提交

  end;

       一些函数的实现：

  procedure TDBOperate_DL.BeginTrans;          //开始事务

  begin

  self.ADOC.BeginTrans;

  self.fIsInTrans := true;

  end;

  procedure TDBOperate_DL.CommitTrans;              //提交事务

  begin

  self.ADOC.CommitTrans;

  self.fIsInTrans := false;

  end;

  procedure TDBOperate_DL.RollbackTrans;              //回滚事务

  begin

  self.ADOC.RollbackTrans;

  self.fIsInTrans := false;

  end;

  function TDBOperate_DL.IsInTrans: Boolean;         //查看事务是否已开始

  begin

  result := self.fIsInTrans;