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

  procedure Tperson.Drop(const person:String);

  var

  sqlString:String;

  thing:Tthing;

  begin

  sqlString := 删除的SQL语句;

  thing := Tthing.Create(self.DBOperate);              //TDBOperate_DL类型的DBOperate是作为参数传进去的。

  Self.DBOperate.BeginTrans;

  Try

    Thing.Drop(person);               //里面有事务见上面的代码

    Self.DBOperate.Execute(sqlString);

    self.DBOperate.CommitTrans;

  except

    self.DBOperate.RollbackTrans;

    raise;

  end;

  end;

  解决方法，两阶段提交，先粘点背景知识：