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

参考COM+的事务运行，如果一个组件是需要事务的，那么在组件创建时，事务就已经开始了，在组件销毁时进行事务投票，如果是根事务，则进行提交或回滚事务。（如果组件支持池化，这两种情况发生在组件激活和休眠事件中）。于是我们定义一个类如下。

//业务类的祖先类，用于提供统一的事务支持

  TTS_DL = class

  private

    isRootTrans:Boolean;      //是否是根事务

    isNeedTrans:Boolean;      //是否需要事务

  public

    DBOperate:TDBOperate_DL;   //操作数据库的类的实例

    procedure SetComplete;

    procedure SetAbort;

    constructor Create(const newDBOperate:TDBOperate_DL;needTrans:Boolean);//是否需要事务支持

    destructor Destroy;override;

  end;

在该类创建时，除了传递进操作数据库的类的实例外，再传入一个是否需要事务的标志，因为如果是只做读取数据库的操作，就用不着事务了。