1 |
object Form1: TForm1
|
2 |
Left = 389
|
3 |
Height = 339
|
4 |
Top = 220
|
5 |
Width = 487
|
6 |
Caption = 'Database Information'
|
7 |
ClientHeight = 339
|
8 |
ClientWidth = 487
|
9 |
DefaultMonitor = dmPrimary
|
10 |
OnShow = FormShow
|
11 |
Position = poScreenCenter
|
12 |
LCLVersion = '1.8.1.0'
|
13 |
object Memo1: TMemo
|
14 |
Left = 12
|
15 |
Height = 302
|
16 |
Top = 18
|
17 |
Width = 461
|
18 |
Anchors = [akTop, akLeft, akRight, akBottom]
|
19 |
Lines.Strings = (
|
20 |
'Memo1'
|
21 |
)
|
22 |
ReadOnly = True
|
23 |
ScrollBars = ssAutoVertical
|
24 |
TabOrder = 0
|
25 |
end
|
26 |
object IBDatabase1: TIBDatabase
|
27 |
Connected = False
|
28 |
AfterConnect = IBDatabase1AfterConnect
|
29 |
CreateIfNotExists = False
|
30 |
AllowStreamedConnected = False
|
31 |
DatabaseName = 'localhost:employee'
|
32 |
Params.Strings = (
|
33 |
'lc_ctype=UTF8'
|
34 |
'user_name=SYSDBA'
|
35 |
)
|
36 |
IdleTimer = 0
|
37 |
TraceFlags = []
|
38 |
UseDefaultSystemCodePage = False
|
39 |
left = 280
|
40 |
top = 56
|
41 |
end
|
42 |
object IBDatabaseInfo1: TIBDatabaseInfo
|
43 |
Database = IBDatabase1
|
44 |
left = 328
|
45 |
top = 56
|
46 |
end
|
47 |
object TableNameLookup: TIBQuery
|
48 |
AllowAutoActivateTransaction = False
|
49 |
Database = IBDatabase1
|
50 |
Transaction = IBTransaction1
|
51 |
BufferChunks = 1000
|
52 |
CachedUpdates = False
|
53 |
GenerateParamNames = False
|
54 |
GeneratorField.ApplyOnEvent = gaeOnNewRecord
|
55 |
SQL.Strings = (
|
56 |
'SELECT r.RDB$RELATION_ID,'
|
57 |
' trim(r.RDB$RELATION_NAME) as RDB$RELATION_NAME'
|
58 |
'FROM RDB$RELATIONS r'
|
59 |
)
|
60 |
Params = <>
|
61 |
DataSetCloseAction = dcDiscardChanges
|
62 |
left = 336
|
63 |
top = 128
|
64 |
end
|
65 |
object IBTransaction1: TIBTransaction
|
66 |
Active = False
|
67 |
DefaultDatabase = IBDatabase1
|
68 |
Params.Strings = (
|
69 |
'read'
|
70 |
'consistency'
|
71 |
)
|
72 |
left = 328
|
73 |
top = 212
|
74 |
end
|
75 |
end
|