object Form13: TForm13
Left = 0
Top = 0
Caption = 'Form13'
ClientHeight = 311
ClientWidth = 643
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object DBGridEh1: TDBGridEh
Left = 0
Top = 120
Width = 643
Height = 191
Align = alBottom
DataSource = DataSource1
DynProps = <>
TabOrder = 0
object RowDetailData: TRowDetailPanelControlEh
end
end
object Edit1: TEdit
Left = 272
Top = 8
Width = 305
Height = 21
TabOrder = 1
Text = 'c:\chilly\rrr.FDB'
end
object Edit2: TEdit
Left = 272
Top = 35
Width = 305
Height = 21
TabOrder = 2
Text = 'SYSDBA'
end
object Edit3: TEdit
Left = 272
Top = 62
Width = 305
Height = 21
TabOrder = 3
Text = 'MMast'
end
object Button1: TButton
Left = 272
Top = 89
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 4
OnClick = Button1Click
end
object DB: TpFIBDatabase
DefaultTransaction = TransRead
DefaultUpdateTransaction = TransWrite
SQLDialect = 3
Timeout = 0
LibraryName = 'fbclient.dll'
WaitForRestoreConnect = 0
Left = 112
Top = 32
end
object Q: TpFIBDataSet
SelectSQL.Strings = (
'select * from man')
Transaction = TransRead
Database = DB
UpdateTransaction = TransWrite
DefaultFormats.DateTimeDisplayFormat = 'dd.mm.yyyy HH:mm'
DefaultFormats.DisplayFormatTime = 'HH:mm'
Left = 112
Top = 64
end
object DataSource1: TDataSource
DataSet = Q
Left = 152
Top = 64
end
object TransRead: TpFIBTransaction
DefaultDatabase = DB
TimeoutAction = TARollback
TRParams.Strings = (
'read'
'nowait'
'rec_version'
'read_committed')
TPBMode = tpbDefault
Left = 48
Top = 32
end
object TransWrite: TpFIBTransaction
DefaultDatabase = DB
TimeoutAction = TARollback
TRParams.Strings = (
'write'
'nowait'
'rec_version'
'read_committed')
TPBMode = tpbDefault
Left = 48
Top = 80
end
end

unit Unit13;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls, DynVarsEh,
FIBDatabase, pFIBDatabase, StdCtrls, EhLibVCL, GridsEh, DBAxisGridsEh,
DBGridEh, DB, FIBDataSet, pFIBDataSet;

type
TForm13 = class(TForm)
DB: TpFIBDatabase;
Q: TpFIBDataSet;
DataSource1: TDataSource;
DBGridEh1: TDBGridEh;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
TransRead: TpFIBTransaction;
TransWrite: TpFIBTransaction;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form13: TForm13;

implementation

{$R *.dfm}

procedure TForm13.Button1Click(Sender: TObject);
begin
DB.Close;
DB.DatabaseName:=Edit1.Text;
DB.DBParams.Clear;
DB.DBParams.Add('user_name='+Edit2.Text);
DB.DBParams.Add('password='+Edit3.Text);
DB.Connected:=True;
Q.Open;
end;

end.

Attempting to connect to:
inet://localhost/c:\chilly\rrr.FDB...
Connection failed!
------------------------------------
Unsuccessful execution caused by a system error that precludes successful execution of subsequent statements.
Your user name and password are not defined. Ask your database administrator to set up a Firebird login.
-------------------------------------------------------------------------------------------------------------
SQLCODE: -902
SQLSTATE: 28000
GDSCODE: 335544472

Attempting to connect to services manager:
inet://localhost/service_mgr... Failed!
------------------------------------
Unsuccessful execution caused by a system error that precludes successful execution of subsequent statements.
Your user name and password are not defined. Ask your database administrator to set up a Firebird login.
-------------------------------------------------------------------------------------------------------------
SQLCODE: -902
SQLSTATE: 28000
GDSCODE: 335544472