examples/services/MainFormUnit.lfm

object MainForm: TMainForm
  Left = 627
  Height = 371
  Top = 458
  Width = 622
  Caption = 'Server Properties'
  ClientHeight = 371
  ClientWidth = 622
  DefaultMonitor = dmPrimary
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '2.0.0.3'
  object Memo1: TMemo
    Left = 8
    Height = 295
    Top = 9
    Width = 603
    Anchors = [akTop, akLeft, akRight, akBottom]
    ScrollBars = ssAutoVertical
    TabOrder = 0
  end
  object CLoseBtn: TButton
    Left = 535
    Height = 25
    Top = 312
    Width = 75
    Anchors = [akRight, akBottom]
    Caption = 'Close'
    OnClick = CLoseBtnClick
    TabOrder = 1
  end
  object BackupBtn: TButton
    Left = 8
    Height = 25
    Top = 313
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = 'Backup'
    OnClick = BackupBtnClick
    TabOrder = 2
  end
  object RestoreBtn: TButton
    Left = 88
    Height = 25
    Top = 313
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = 'Restore'
    OnClick = RestoreBtnClick
    TabOrder = 3
  end
  object ServerLOgBtn: TButton
    Left = 168
    Height = 25
    Top = 313
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = 'Server Log'
    OnClick = ServerLOgBtnClick
    TabOrder = 4
  end
  object DatabaseBtn: TButton
    Left = 328
    Height = 25
    Top = 313
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = 'Database'
    OnClick = DatabaseBtnClick
    TabOrder = 5
  end
  object UsersBtn: TButton
    Left = 248
    Height = 25
    Top = 313
    Width = 75
    Caption = 'Users'
    OnClick = UsersBtnClick
    TabOrder = 6
  end
  object IBServerProperties1: TIBXServerProperties
    ServicesConnection = IBXServicesConnection1
    TraceFlags = []
    left = 320
    top = 24
  end
  object IBLogService1: TIBXLogService
    ServicesConnection = IBXServicesConnection1
    TraceFlags = []
    left = 320
    top = 72
  end
  object IBStatisticalService1: TIBXStatisticalService
    ServicesConnection = IBXServicesConnection1
    TraceFlags = []
    DatabaseName = 'employee'
    Options = [DataPages]
    left = 320
    top = 112
  end
  object IBValidationService1: TIBXValidationService
    ServicesConnection = IBXServicesConnection1
    TraceFlags = []
    DatabaseName = 'employee'
    Options = [ValidateFull]
    left = 320
    top = 160
  end
  object IBOnlineValidationService1: TIBXOnlineValidationService
    ServicesConnection = IBXServicesConnection1
    TraceFlags = []
    DatabaseName = 'employee'
    left = 320
    top = 228
  end
  object ActionList1: TActionList
    left = 456
    top = 32
    object Statistics: TAction
      Caption = 'Statistics'
      OnExecute = StatisticsExecute
    end
    object Validate: TAction
      Caption = 'Validate'
      OnExecute = ValidateExecute
    end
    object LimboTransactions: TAction
      Caption = 'Limbo Transactions'
      OnExecute = LimboTransactionsExecute
    end
    object Sweep: TAction
      Caption = 'Sweep'
      OnExecute = SweepExecute
    end
    object BringOnline: TAction
      Caption = 'Bring Online'
      OnExecute = BringOnlineExecute
      OnUpdate = BringOnlineUpdate
    end
    object Shutdown: TAction
      Caption = 'Shutdown'
      OnExecute = ShutdownExecute
      OnUpdate = BringOnlineUpdate
    end
  end
  object PopupMenu1: TPopupMenu
    left = 456
    top = 108
    object MenuItem2: TMenuItem
      Action = Statistics
    end
    object MenuItem3: TMenuItem
      Action = Validate
    end
    object MenuItem4: TMenuItem
      Action = LimboTransactions
    end
    object MenuItem1: TMenuItem
      Action = Sweep
    end
    object MenuItem5: TMenuItem
      Action = BringOnline
    end
    object MenuItem6: TMenuItem
      Action = Shutdown
    end
  end
  object IBConfigService1: TIBXConfigService
    ServicesConnection = IBXServicesConnection1
    TraceFlags = []
    left = 466
    top = 188
  end
  object IBXServicesConnection1: TIBXServicesConnection
    Connected = False
    OnLogin = IBXServicesConnection1Login
    ConnectString = 'localhost:service_mgr'
    Protocol = TCP
    Params.Strings = (
      'sql_role_name=RDB$ADMIN'
      'user_name=SYSDBA'
    )
    ServerName = 'localhost'
    TraceFlags = []
    OnSecurityContextException = IBXServicesConnection1SecurityContextException
    left = 128
    top = 35
  end
end
Revision:	272
Committed:	Mon Feb 4 13:34:37 2019 UTC (5 years, 10 months ago) by tony
File size:	4322 byte(s)
Log Message:	Fixes merged
#	User	Rev	Content
1	tony	143	object MainForm: TMainForm
2			Left = 627
3			Height = 371
4			Top = 458
5			Width = 622
6			Caption = 'Server Properties'
7			ClientHeight = 371
8			ClientWidth = 622
9			DefaultMonitor = dmPrimary
10			OnShow = FormShow
11			Position = poScreenCenter
12	tony	272	LCLVersion = '2.0.0.3'
13	tony	143	object Memo1: TMemo
14			Left = 8
15			Height = 295
16			Top = 9
17			Width = 603
18			Anchors = [akTop, akLeft, akRight, akBottom]
19			ScrollBars = ssAutoVertical
20			TabOrder = 0
21			end
22			object CLoseBtn: TButton
23			Left = 535
24			Height = 25
25			Top = 312
26			Width = 75
27			Anchors = [akRight, akBottom]
28			Caption = 'Close'
29			OnClick = CLoseBtnClick
30			TabOrder = 1
31			end
32			object BackupBtn: TButton
33			Left = 8
34			Height = 25
35			Top = 313
36			Width = 75
37			Anchors = [akLeft, akBottom]
38			Caption = 'Backup'
39			OnClick = BackupBtnClick
40			TabOrder = 2
41			end
42			object RestoreBtn: TButton
43			Left = 88
44			Height = 25
45			Top = 313
46			Width = 75
47			Anchors = [akLeft, akBottom]
48			Caption = 'Restore'
49			OnClick = RestoreBtnClick
50			TabOrder = 3
51			end
52			object ServerLOgBtn: TButton
53			Left = 168
54			Height = 25
55			Top = 313
56			Width = 75
57			Anchors = [akLeft, akBottom]
58			Caption = 'Server Log'
59			OnClick = ServerLOgBtnClick
60			TabOrder = 4
61			end
62			object DatabaseBtn: TButton
63			Left = 328
64			Height = 25
65			Top = 313
66			Width = 75
67			Anchors = [akLeft, akBottom]
68			Caption = 'Database'
69			OnClick = DatabaseBtnClick
70			TabOrder = 5
71			end
72			object UsersBtn: TButton
73			Left = 248
74			Height = 25
75			Top = 313
76			Width = 75
77			Caption = 'Users'
78			OnClick = UsersBtnClick
79			TabOrder = 6
80			end
81	tony	209	object IBServerProperties1: TIBXServerProperties
82			ServicesConnection = IBXServicesConnection1
83	tony	143	TraceFlags = []
84			left = 320
85			top = 24
86			end
87	tony	209	object IBLogService1: TIBXLogService
88			ServicesConnection = IBXServicesConnection1
89	tony	143	TraceFlags = []
90			left = 320
91			top = 72
92			end
93	tony	209	object IBStatisticalService1: TIBXStatisticalService
94			ServicesConnection = IBXServicesConnection1
95	tony	143	TraceFlags = []
96			DatabaseName = 'employee'
97			Options = [DataPages]
98			left = 320
99			top = 112
100			end
101	tony	209	object IBValidationService1: TIBXValidationService
102			ServicesConnection = IBXServicesConnection1
103	tony	143	TraceFlags = []
104			DatabaseName = 'employee'
105			Options = [ValidateFull]
106			left = 320
107			top = 160
108			end
109	tony	209	object IBOnlineValidationService1: TIBXOnlineValidationService
110			ServicesConnection = IBXServicesConnection1
111	tony	143	TraceFlags = []
112			DatabaseName = 'employee'
113			left = 320
114			top = 228
115			end
116			object ActionList1: TActionList
117			left = 456
118			top = 32
119			object Statistics: TAction
120			Caption = 'Statistics'
121			OnExecute = StatisticsExecute
122			end
123			object Validate: TAction
124			Caption = 'Validate'
125			OnExecute = ValidateExecute
126			end
127			object LimboTransactions: TAction
128			Caption = 'Limbo Transactions'
129			OnExecute = LimboTransactionsExecute
130			end
131			object Sweep: TAction
132			Caption = 'Sweep'
133			OnExecute = SweepExecute
134			end
135			object BringOnline: TAction
136			Caption = 'Bring Online'
137			OnExecute = BringOnlineExecute
138			OnUpdate = BringOnlineUpdate
139			end
140			object Shutdown: TAction
141			Caption = 'Shutdown'
142			OnExecute = ShutdownExecute
143			OnUpdate = BringOnlineUpdate
144			end
145			end
146			object PopupMenu1: TPopupMenu
147			left = 456
148			top = 108
149			object MenuItem2: TMenuItem
150			Action = Statistics
151			end
152			object MenuItem3: TMenuItem
153			Action = Validate
154			end
155			object MenuItem4: TMenuItem
156			Action = LimboTransactions
157			end
158			object MenuItem1: TMenuItem
159			Action = Sweep
160			end
161			object MenuItem5: TMenuItem
162			Action = BringOnline
163			end
164			object MenuItem6: TMenuItem
165			Action = Shutdown
166			end
167			end
168	tony	209	object IBConfigService1: TIBXConfigService
169			ServicesConnection = IBXServicesConnection1
170	tony	143	TraceFlags = []
171			left = 466
172			top = 188
173			end
174	tony	209	object IBXServicesConnection1: TIBXServicesConnection
175			Connected = False
176			OnLogin = IBXServicesConnection1Login
177			ConnectString = 'localhost:service_mgr'
178			Protocol = TCP
179			Params.Strings = (
180			'sql_role_name=RDB$ADMIN'
181			'user_name=SYSDBA'
182			)
183			ServerName = 'localhost'
184			TraceFlags = []
185			OnSecurityContextException = IBXServicesConnection1SecurityContextException
186			left = 128
187			top = 35
188			end
189	tony	143	end