R2-1-0/runtime/IBTypes.pas

unit IBTypes;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

type
  TIBGUIInterface = interface
    function ServerLoginDialog(var AServerName: string;
                               var AUserName, APassword: string): Boolean;
    function LoginDialogEx(var ADatabaseName: string;
                               var AUserName, APassword: string;
                               NameReadOnly: Boolean): Boolean;
    procedure SetCursor;
    procedure RestoreCursor;
  end;

  TTraceFlag = (tfQPrepare, tfQExecute, tfQFetch, tfError, tfStmt, tfConnect,
     tfTransact, tfBlob, tfService, tfMisc);
  TTraceFlags = set of TTraceFlag;

const  IBGUIInterface : TIBGUIInterface = nil;

implementation

end.

Revision:	77
Committed:	Sun Dec 31 14:37:23 2017 UTC (6 years, 3 months ago) by tony
Content type:	text/x-pascal
File size:	714 byte(s)
Log Message:	Tag Created for Revision 2-1-0
#	Content
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