ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/dbInfo/Unit1.lfm
Revision: 267
Committed: Fri Dec 28 10:44:23 2018 UTC (5 years, 3 months ago) by tony
File size: 1758 byte(s)
Log Message:
Fixes Merged

File Contents

# Content
1 object Form1: TForm1
2 Left = 839
3 Height = 339
4 Top = 239
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 left = 224
41 top = 56
42 end
43 object IBDatabaseInfo1: TIBDatabaseInfo
44 Database = IBDatabase1
45 left = 328
46 top = 56
47 end
48 object TableNameLookup: TIBQuery
49 AllowAutoActivateTransaction = False
50 Database = IBDatabase1
51 Transaction = IBTransaction1
52 BufferChunks = 1000
53 CachedUpdates = False
54 EnableStatistics = False
55 GenerateParamNames = False
56 GeneratorField.ApplyOnEvent = gaeOnNewRecord
57 MasterDetailDelay = 0
58 SQL.Strings = (
59 'SELECT r.RDB$RELATION_ID,'
60 ' trim(r.RDB$RELATION_NAME) as RDB$RELATION_NAME'
61 'FROM RDB$RELATIONS r'
62 )
63 Params = <>
64 DataSetCloseAction = dcDiscardChanges
65 left = 336
66 top = 128
67 end
68 object IBTransaction1: TIBTransaction
69 Active = False
70 DefaultDatabase = IBDatabase1
71 Params.Strings = (
72 'read'
73 'consistency'
74 )
75 left = 328
76 top = 212
77 end
78 end