1 |
tony |
62 |
object Form1: TForm1
|
2 |
tony |
68 |
Left = 389
|
3 |
tony |
62 |
Height = 339
|
4 |
tony |
68 |
Top = 220
|
5 |
tony |
62 |
Width = 487
|
6 |
|
|
Caption = 'Database Information'
|
7 |
|
|
ClientHeight = 339
|
8 |
|
|
ClientWidth = 487
|
9 |
tony |
68 |
DefaultMonitor = dmPrimary
|
10 |
tony |
62 |
OnShow = FormShow
|
11 |
tony |
68 |
Position = poScreenCenter
|
12 |
tony |
82 |
LCLVersion = '1.8.1.0'
|
13 |
tony |
62 |
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 |
tony |
82 |
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 |
tony |
62 |
end
|