type
  TDBThread = class(TThread)
  public
    tr: TIBTransaction;
    SL: TStringList;

    constructor Create;
    destructor Destroy; override;

    procedure Execute; override;
  end;

constructor TDBThread.Create;
begin
  inherited Create(True);
  SL := TSTRingList.Create;
end;

destructor TDBThread.Destroy;
begin
  SL.Free;
  inherited;
end;

procedure TDBThread.Execute;
var
  q: TIBSQL;
  J: Integer;
begin
  q := TIBSQL.Create(nil);
  try
    q.Transaction := Tr;
    q.SQL.Text := 'SELECT FIRST 1 * FROM GD_CONTACT';
    q.ExecQuery;
    if not q.EOF then
    begin
      SL.Add(q.FieldByName('name').AsString);
    end;
    q.Close;
  finally
    q.Free;
  end;
end;

procedure TfrmGedeminMain.TBItem32Click(Sender: TObject);
var
  db: TIBDatabase;
  Tr: TIBTransaction;
  I, T, J: Integer;
  OL: TObjectList;
  Thread: TDBThread;
begin
  db := TIBDatabase.Create(nil);
  Tr := TIBTransaction.Create(nil);
  OL := TObjectList.Create(True);
  try
    db.LoginPrompt := False;
    db.SQLDialect := 3;
    db.Params.Clear;
    db.Params.Add('user_name=SYSDBA');
    db.Params.Add('password=***');
    db.DatabaseName := '*****';
    db.Connected := True;

    Tr.DefaultDatabase := db;
    Tr.StartTransaction;

    for I := 1 to cnt do
    begin
      Thread := TDBThread.Create;
      Thread.tr := tr;
      OL.Add(Thread);
    end;

    T := GetTickCount;

    for I := 0 to cnt - 1 do
    begin
      (OL.Items[I] as TDBThread).Resume;
    end;

    for I := 0 to cnt - 1 do
    begin
      (OL.Items[I] as TDBThread).WaitFor;
    end;

    MessageBox(0,
      PChar(IntToStr(Round(cnt / (GetTickCount - T) * 1000)) + ' req/sec'),
      'Внимание',
      MB_OK or MB_ICONINFORMATION or MB_TASKMODAL);

    Tr.Commit;
  finally
    OL.Free;
    Tr.Free;
    db.Free;
  end;
end;

const  { Factory } = require("gdmn-db");
const { performance } = require('perf_hooks');

async function test() {
  const connection = Factory.FBDriver.newConnection();
  await connection.connect({
    server: {
      host: "***",
      port: 3053
    },
    username: "SYSDBA",
    password: "***",
    path: "***"
  });

  const arr = [];
  const res = [];
  const cnt = 750;
  const transaction = await connection.startTransaction();
  const startTime = performance.now();

  for (let i = 0; i < cnt; i++) {
    arr.push(
      async () => {
        const q = await connection.executeQuery(transaction, `SELECT FIRST 1 * FROM GD_CONTACT`);
        if (await q.next()) {
          res.push(q.getString("NAME"));
        }
        return q.close();
      }
    )
  }

  await Promise.all(arr.map( f => f() ));

  const endTime = performance.now();
  await transaction.commit();
  console.log(res);
  console.log(`${Math.round(cnt / (endTime - startTime) * 1000)} req/sec`);
  console.log(process.memoryUsage());

  await connection.disconnect();
}

test();