ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/dbInfo/Unit1.lfm
Revision: 266
Committed: Wed Dec 26 18:34:32 2018 UTC (5 years, 4 months ago) by tony
File size: 1786 byte(s)
Log Message:
Fixes Merged

File Contents

# Content
1 object Form1: TForm1
2 Left = 789
3 Height = 339
4 Top = 215
5 Width = 487
6 Caption = 'Database Information'
7 ClientHeight = 339
8 ClientWidth = 487
9 DefaultMonitor = dmPrimary
10 OnShow = FormShow
11 Position = poScreenCenter
12 LCLVersion = '2.0.0.2'
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 = 'employee'
32 Params.Strings = (
33 'lc_ctype=UTF8'
34 'user_name=SYSDBA'
35 )
36 IdleTimer = 0
37 SQLDialect = 1
38 TraceFlags = []
39 UseDefaultSystemCodePage = False
40 WireCompression = False
41 left = 224
42 top = 56
43 end
44 object IBDatabaseInfo1: TIBDatabaseInfo
45 Database = IBDatabase1
46 left = 328
47 top = 56
48 end
49 object TableNameLookup: TIBQuery
50 AllowAutoActivateTransaction = False
51 Database = IBDatabase1
52 Transaction = IBTransaction1
53 BufferChunks = 1000
54 CachedUpdates = False
55 EnableStatistics = False
56 GenerateParamNames = False
57 GeneratorField.ApplyOnEvent = gaeOnNewRecord
58 MasterDetailDelay = 0
59 SQL.Strings = (
60 'SELECT r.RDB$RELATION_ID,'
61 ' trim(r.RDB$RELATION_NAME) as RDB$RELATION_NAME'
62 'FROM RDB$RELATIONS r'
63 )
64 Params = <>
65 DataSetCloseAction = dcDiscardChanges
66 left = 336
67 top = 128
68 end
69 object IBTransaction1: TIBTransaction
70 Active = False
71 DefaultDatabase = IBDatabase1
72 Params.Strings = (
73 'read'
74 'consistency'
75 )
76 left = 328
77 top = 212
78 end
79 end