examples/dbInfo/Unit1.lfm

object Form1: TForm1
  Left = 839
  Height = 339
  Top = 239
  Width = 487
  Caption = 'Database Information'
  ClientHeight = 339
  ClientWidth = 487
  DefaultMonitor = dmPrimary
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '2.0.0.2'
  object Memo1: TMemo
    Left = 12
    Height = 302
    Top = 18
    Width = 461
    Anchors = [akTop, akLeft, akRight, akBottom]
    Lines.Strings = (
      'Memo1'
    )
    ReadOnly = True
    ScrollBars = ssAutoVertical
    TabOrder = 0
  end
  object IBDatabase1: TIBDatabase
    Connected = False
    AfterConnect = IBDatabase1AfterConnect
    CreateIfNotExists = False
    AllowStreamedConnected = False
    DatabaseName = 'employee'
    Params.Strings = (
      'lc_ctype=UTF8'
      'user_name=SYSDBA'
    )
    IdleTimer = 0
    SQLDialect = 1
    TraceFlags = []
    UseDefaultSystemCodePage = False
    left = 224
    top = 56
  end
  object IBDatabaseInfo1: TIBDatabaseInfo
    Database = IBDatabase1
    left = 328
    top = 56
  end
  object TableNameLookup: TIBQuery
    AllowAutoActivateTransaction = False
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    EnableStatistics = False
    GenerateParamNames = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    MasterDetailDelay = 0
    SQL.Strings = (
      'SELECT r.RDB$RELATION_ID,'
      '    trim(r.RDB$RELATION_NAME) as RDB$RELATION_NAME'
      'FROM RDB$RELATIONS r'
    )
    Params = <>
    DataSetCloseAction = dcDiscardChanges
    left = 336
    top = 128
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = IBDatabase1
    Params.Strings = (
      'read'
      'consistency'
    )
    left = 328
    top = 212
  end
end
Revision:	267
Committed:	Fri Dec 28 10:44:23 2018 UTC (5 years, 4 months ago) by tony
File size:	1758 byte(s)
Log Message:	Fixes Merged
#	User	Rev	Content
1	tony	62	object Form1: TForm1
2	tony	267	Left = 839
3	tony	62	Height = 339
4	tony	267	Top = 239
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	263	LCLVersion = '2.0.0.2'
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	tony	143	DatabaseName = 'employee'
32	tony	62	Params.Strings = (
33			'lc_ctype=UTF8'
34			'user_name=SYSDBA'
35			)
36			IdleTimer = 0
37	tony	143	SQLDialect = 1
38	tony	62	TraceFlags = []
39			UseDefaultSystemCodePage = False
40	tony	143	left = 224
41	tony	62	top = 56
42			end
43			object IBDatabaseInfo1: TIBDatabaseInfo
44			Database = IBDatabase1
45			left = 328
46			top = 56
47			end
48	tony	82	object TableNameLookup: TIBQuery
49			AllowAutoActivateTransaction = False
50			Database = IBDatabase1
51			Transaction = IBTransaction1
52			BufferChunks = 1000
53			CachedUpdates = False
54	tony	263	EnableStatistics = False
55	tony	82	GenerateParamNames = False
56			GeneratorField.ApplyOnEvent = gaeOnNewRecord
57	tony	263	MasterDetailDelay = 0
58	tony	82	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	tony	62	end