ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/dbInfo/Unit1.lfm
Revision: 143
Committed: Fri Feb 23 12:11:21 2018 UTC (6 years, 9 months ago) by tony
File size: 1703 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 = '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 = '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 GenerateParamNames = False
55 GeneratorField.ApplyOnEvent = gaeOnNewRecord
56 SQL.Strings = (
57 'SELECT r.RDB$RELATION_ID,'
58 ' trim(r.RDB$RELATION_NAME) as RDB$RELATION_NAME'
59 'FROM RDB$RELATIONS r'
60 )
61 Params = <>
62 DataSetCloseAction = dcDiscardChanges
63 left = 336
64 top = 128
65 end
66 object IBTransaction1: TIBTransaction
67 Active = False
68 DefaultDatabase = IBDatabase1
69 Params.Strings = (
70 'read'
71 'consistency'
72 )
73 left = 328
74 top = 212
75 end
76 end