ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/dbInfo/Unit1.lfm
Revision: 82
Committed: Mon Jan 1 11:31:13 2018 UTC (2 years, 8 months ago) by tony
File size: 1694 byte(s)
Log Message:
Add table name info to database info example
Line File contents
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