25 |
|
{$IFDEF UNIX}{$IFDEF UseCThreads} |
26 |
|
cthreads, |
27 |
|
{$ENDIF}{$ENDIF} |
28 |
< |
ibexpressconsolemode, Classes, SysUtils, CustApp, IBDatabase, IBQuery |
28 |
> |
Classes, SysUtils, CustApp, IBDatabase, IBQuery |
29 |
|
{ you can add units after this }; |
30 |
|
|
31 |
|
const |
114 |
|
- ensures centralised exception handling } |
115 |
|
FIBDatabase := TIBDatabase.Create(self); |
116 |
|
FIBTransaction := TIBTransaction.Create(self); |
117 |
< |
FIBDatabase.DatabaseName := 'localhost:employee'; |
117 |
> |
FIBDatabase.DatabaseName := 'employee'; |
118 |
|
FIBDatabase.Params.Add('user_name=SYSDBA'); {You may have to modify this!} |
119 |
|
FIBDatabase.Params.Add('password=masterkey'); {You may have to modify this!} |
120 |
|
FIBDatabase.Params.Add('lc_ctype=UTF8'); |