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

constructor TTS_DL.Create(const newDBOperate: TDBOperate_DL;

  needTrans: Boolean);

begin

  inherited Create;

  self.DBOperate := newDBOperate;             

  self.isNeedTrans := needTrans;                     //赋值是否需要事务

  if self.isNeedTrans then

  begin

    //如果在事务里，就不是根事务，保留事务上下文里isCommit的值不变

    if self.DBOperate.isInTrans then

      self.isRootTrans := false

    else

    begin

      self.DBOperate.BeginTrans;           //是根事务，就开始事务

      self.isRootTrans := true;

      self.DBOperate.isCommit := true;       //初始化提交标志为要提交事务

    end;

  end;

end;