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

begin

  if self.isNeedTrans then

  begin

    //如果是根事务，就按照投票结果进行事务提交或回滚

    if self.isRootTrans then

    begin

      if self.DBOperate.isCommit then

        self.DBOperate.CommitTrans

      else

        self.DBOperate.RollbackTrans;

    end;

  end;

  inherited;

end;

procedure TTS_DL.SetAbort;

begin

  self.DBOperate.isCommit := self.DBOperate.isCommit And false;       //投票说要回滚

end;

procedure TTS_DL.SetComplete;