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

  self.DBOperate.isCommit := self.DBOperate.isCommit And true; //投票说要提交

end;

回到刚才的业务类Tthing和Tperson，这次都从TTS_DL类继承下来。

       Tthing = class(TTS_DL);

       Tperson = class(TTS_DL);

Tthing的删除代码该为如下：

  procedure Tthing.Drop(const thing:String);

  var

  sqlString:String;

  begin

  sqlString := 删除的SQL语句;

  try

    self. DBOperate.Execute(sqlString);

    self. DBOperate.SetComplete;         //投票提交

  except

    self. DBOperate.SetAbort;                     //投票回滚

    raise;

  end;

  end;