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 = '1.8.1.0'
  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: TIBServerProperties
    ServerName = 'localhost'
    Protocol = TCP
    Params.Strings = (
      'user_name=SYSDBA'
      'sql_role_name=RDB$ADMIN'
    )
    TraceFlags = []
    OnLogin = IBServerProperties1Login
    Options = []
    left = 320
    top = 24
  end
  object IBLogService1: TIBLogService
    ServerName = 'localhost'
    Protocol = TCP
    TraceFlags = []
    left = 320
    top = 72
  end
  object IBStatisticalService1: TIBStatisticalService
    ServerName = 'localhost'
    Protocol = TCP
    TraceFlags = []
    DatabaseName = 'employee'
    Options = [DataPages]
    left = 320
    top = 112
  end
  object IBValidationService1: TIBValidationService
    ServerName = 'localhost'
    Protocol = TCP
    TraceFlags = []
    DatabaseName = 'employee'
    Options = [ValidateFull]
    GlobalAction = CommitGlobal
    left = 320
    top = 160
  end
  object IBOnlineValidationService1: TIBOnlineValidationService
    ServerName = 'localhost'
    Protocol = TCP
    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: TIBConfigService
    TraceFlags = []
    left = 466
    top = 188
  end
end
Revision:	143
Committed:	Fri Feb 23 12:11:21 2018 UTC (6 years, 2 months ago) by tony
File size:	4010 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			LCLVersion = '1.8.1.0'
13			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			object IBServerProperties1: TIBServerProperties
82			ServerName = 'localhost'
83			Protocol = TCP
84			Params.Strings = (
85			'user_name=SYSDBA'
86			'sql_role_name=RDB$ADMIN'
87			)
88			TraceFlags = []
89			OnLogin = IBServerProperties1Login
90			Options = []
91			left = 320
92			top = 24
93			end
94			object IBLogService1: TIBLogService
95			ServerName = 'localhost'
96			Protocol = TCP
97			TraceFlags = []
98			left = 320
99			top = 72
100			end
101			object IBStatisticalService1: TIBStatisticalService
102			ServerName = 'localhost'
103			Protocol = TCP
104			TraceFlags = []
105			DatabaseName = 'employee'
106			Options = [DataPages]
107			left = 320
108			top = 112
109			end
110			object IBValidationService1: TIBValidationService
111			ServerName = 'localhost'
112			Protocol = TCP
113			TraceFlags = []
114			DatabaseName = 'employee'
115			Options = [ValidateFull]
116			GlobalAction = CommitGlobal
117			left = 320
118			top = 160
119			end
120			object IBOnlineValidationService1: TIBOnlineValidationService
121			ServerName = 'localhost'
122			Protocol = TCP
123			TraceFlags = []
124			DatabaseName = 'employee'
125			left = 320
126			top = 228
127			end
128			object ActionList1: TActionList
129			left = 456
130			top = 32
131			object Statistics: TAction
132			Caption = 'Statistics'
133			OnExecute = StatisticsExecute
134			end
135			object Validate: TAction
136			Caption = 'Validate'
137			OnExecute = ValidateExecute
138			end
139			object LimboTransactions: TAction
140			Caption = 'Limbo Transactions'
141			OnExecute = LimboTransactionsExecute
142			end
143			object Sweep: TAction
144			Caption = 'Sweep'
145			OnExecute = SweepExecute
146			end
147			object BringOnline: TAction
148			Caption = 'Bring Online'
149			OnExecute = BringOnlineExecute
150			OnUpdate = BringOnlineUpdate
151			end
152			object Shutdown: TAction
153			Caption = 'Shutdown'
154			OnExecute = ShutdownExecute
155			OnUpdate = BringOnlineUpdate
156			end
157			end
158			object PopupMenu1: TPopupMenu
159			left = 456
160			top = 108
161			object MenuItem2: TMenuItem
162			Action = Statistics
163			end
164			object MenuItem3: TMenuItem
165			Action = Validate
166			end
167			object MenuItem4: TMenuItem
168			Action = LimboTransactions
169			end
170			object MenuItem1: TMenuItem
171			Action = Sweep
172			end
173			object MenuItem5: TMenuItem
174			Action = BringOnline
175			end
176			object MenuItem6: TMenuItem
177			Action = Shutdown
178			end
179			end
180			object IBConfigService1: TIBConfigService
181			TraceFlags = []
182			left = 466
183			top = 188
184			end
185			end