type
{ TFakeTransaction }
TFakeTransaction = class(TSQLTransaction)
public
procedure Commit; override;
procedure CommitRetaining; override;
procedure Rollback; override;
procedure RollbackRetaining; override;
procedure StartTransaction; override;
procedure EndTransaction; override;
end;
implementation
{ TFakeTransaction }
procedure TFakeTransaction.Commit;
begin
EndTransaction;
end;
procedure TFakeTransaction.CommitRetaining;
begin
// do nothing
end;
procedure TFakeTransaction.Rollback;
begin
EndTransaction;
end;
procedure TFakeTransaction.RollbackRetaining;
begin
// do nothing
end;
procedure TFakeTransaction.StartTransaction;
begin
OpenTrans; // Just set the active flag
end;
procedure TFakeTransaction.EndTransaction;
begin
CloseTrans; // Just clear the active flag
end;