Cómo controlar múltiples transacciones? (Interbase/Firebird)

[xaguilars]

Hola estoy usando el componente TDatabase para conectarme a una BDD Firebird y quisiera saber si es posible controlar varias transacciones a la vez.

De momento sólo estoy usando StartTransaction, Commit y Rollback pero no me basta ya que por ejemplo quiero que cuando se abra un formulario, se cree una nueva transacción sólo para ese formulario y cuando haga el Commit o el Rollback sólo le afecte a los cambios que se han hecho en esa nueva transacción.
Espero haber sabido explicarme bien.

Gracias

[[Lepe]]

Segun comentas, poniendo un objeto transaction en esa ventana determinada y configurando todos los datasets de esa ventana a ese transaction, todo debería funcionar correctamente.

Saludos

[axesys]

Yo lo hago por medio de esta función en el datamodulo a la que le envío como parametro el form

Código Delphi [-]
procedure TDM.Guardar(frmForma: TForm);
var
  i: integer;
  iTamanioArreglo: Integer;
  dsArreglo: array of TDataSource;
begin
  iTamanioArreglo := 0;
  for i:= 0 to Pred(frmForma.ComponentCount) do
    if frmForma.Components[i] is TDataSource then
    begin
      Inc(iTamanioArreglo);
      SetLength(dsArreglo, iTamanioArreglo);
      dsArreglo[Pred(iTamanioArreglo)] := TDataSource(frmForma.Components[i]);
    end;
  with TransaccionEscritura do
  try
    if not InTransaction then
      StartTransaction;
    for i := 0 to High(dsArreglo) do
      dsArreglo[i].DataSet.Post;
    CommitRetaining;
  except
    RollbackRetaining;
    raise
  end;
end;

En mi form al momento de llamar el action que guarda ejecuto

Código Delphi [-]
procedure TfrmModulo.actGuardarExecute(Sender: TObject);
begin
  DM.Guardar(Self)
end;

[xaguilars]

Muchas gracias era lo que necesitaba.

Empezado por axesys

Yo lo hago por medio de esta función en el datamodulo a la que le envío como parametro el form

Código Delphi [-]procedure TDM.Guardar(frmForma: TForm);
var i: integer; iTamanioArreglo: Integer; dsArreglo: array of TDataSource;
begin iTamanioArreglo := 0; for i:= 0 to Pred(frmForma.ComponentCount) do if frmForma.Components[i] is TDataSource then begin Inc(iTamanioArreglo); SetLength(dsArreglo, iTamanioArreglo); dsArreglo[Pred(iTamanioArreglo)] := TDataSource(frmForma.Components[i]); end;
with TransaccionEscritura do try if not InTransaction then StartTransaction; for i := 0 to High(dsArreglo) do dsArreglo[i].DataSet.Post; CommitRetaining; except RollbackRetaining; raise end;
end;


En mi form al momento de llamar el action que guarda ejecuto

Código Delphi [-]procedure TfrmModulo.actGuardarExecute(Sender: TObject);
begin DM.Guardar(Self) end;