unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, IBDatabase, StdCtrls, Buttons, Grids, DBGridEh,
  IBCustomDataSet, IBQuery;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    IBQuery1: TIBQuery;
    DBGridEh1: TDBGridEh;
    Button2: TButton;
    DataSource1: TDataSource;
    procedure ErrorRun();
    procedure BitBtn1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  tr:TIBTransaction;
  db1,db2:tibdatabase;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 try
   db1:=TIBDatabase.Create(self);
   db1.DatabaseName:='D:\Basa\Limonad\ZULFIRA.FBD';
   db1.Params.Add('user_name=SYSDBA');
   db1.Params.Add('password=masterkey');
   db1.LoginPrompt:=false;
   db1.Connected:=true;
   edit1.Text:='run';
 except
   edit1.Text:='err';
 end;
 try
   db2:=TIBDatabase.Create(self);
   db2.DatabaseName:='D:\Basa\Ekzam\EKZM.FDB';
   db2.Params.Add('user_name=SYSDBA');
   db2.Params.Add('password=masterkey');
   db2.LoginPrompt:=false;
   db2.Connected:=true;
   edit2.Text:='run';
 except
   edit2.Text:='err';
 end;
 tr:=TIBTransaction.Create(Self);
 tr.AddDatabase(db1);
 tr.AddDatabase(db2);
 Button2Click(Sender);
end;

procedure TForm1.Button2Click(Sender: TObject);
var err:boolean;
begin
  err:=false;
  try

   tr.Active:=false;
   db2.Connected:=false;
   IBQuery1.Database:=Db2;
   IBQuery1.Transaction:=tr;
   Db1.Connected:=true;
   Db2.Connected:=true;
   tr.Active:=true;
   with IBQuery1.SQL do begin
     clear;
     Add('select * from formul');
   end;
   IBQuery1.Active:=true;
   // îáû÷íîå îòêðûòèå
  except
    err:=true;
  end;
  if err then ErrorRun;
end;

procedure TForm1.ErrorRun;
begin
  try
    IBQuery1.Close;
  Except
  end;
  try
    tr.Databases[1].CloseDataSets;
  Except
  end;
  try
    tr.RemoveDatabase(1);
  Except
  end;
  try
    db2.CloseDataSets;
  Except
  end;
  try
    db2.Connected:=false;
    //  error writing data to the connection
  Except
  end;
  try
    tr.AddDatabase(db2);
  Except
  end;


end;

end.

if db.Connected then
  db.ForceClose;

db.Connected := True;