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

  procedure Tperson.Drop(const person:String);

  var

  sqlString:String;

  thing:Tthing;

  begin

  sqlString := 删除的SQL语句;

  thing := Tthing.Create(self. DBOperate,true);              //TDBOperate_DL类型的DBOperate是作为参数传进去的，true代表需要事务。

  Try

    Try

      Thing.Drop(person);

      Self.DBOperate.Execute(sqlString);

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

    except

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

      raise;

    end;

  finally

    thing.free;     //记着一定要释放

  end;

  end;

记着保持程序中使用唯一的操作数据库类TDBOperate_DL的实例，记着释放业务类实例，如果是需要事务的，尽量早释放，OK，搞定。

第一个版本，水平有限，还需要在实际应用中完善，全当抛砖引玉，请有经验的大侠们拍砖吧：）