1 |
unit IBTypes;
|
2 |
|
3 |
{$mode objfpc}{$H+}
|
4 |
|
5 |
interface
|
6 |
|
7 |
uses
|
8 |
Classes, SysUtils;
|
9 |
|
10 |
type
|
11 |
TIBGUIInterface = interface
|
12 |
function ServerLoginDialog(var AServerName: string;
|
13 |
var AUserName, APassword: string): Boolean;
|
14 |
function LoginDialogEx(var ADatabaseName: string;
|
15 |
var AUserName, APassword: string;
|
16 |
NameReadOnly: Boolean): Boolean;
|
17 |
procedure SetCursor;
|
18 |
procedure RestoreCursor;
|
19 |
end;
|
20 |
|
21 |
TTraceFlag = (tfQPrepare, tfQExecute, tfQFetch, tfError, tfStmt, tfConnect,
|
22 |
tfTransact, tfBlob, tfService, tfMisc);
|
23 |
TTraceFlags = set of TTraceFlag;
|
24 |
|
25 |
const IBGUIInterface : TIBGUIInterface = nil;
|
26 |
|
27 |
implementation
|
28 |
|
29 |
end.
|
30 |
|