ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/services/MainFormUnit.lfm
Revision: 263
Committed: Thu Dec 6 15:55:01 2018 UTC (5 years, 3 months ago) by tony
File size: 4322 byte(s)
Log Message:
Release 2.3.2 committed

File Contents

# Content
1 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 = '2.0.0.2'
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: TIBXServerProperties
82 ServicesConnection = IBXServicesConnection1
83 TraceFlags = []
84 left = 320
85 top = 24
86 end
87 object IBLogService1: TIBXLogService
88 ServicesConnection = IBXServicesConnection1
89 TraceFlags = []
90 left = 320
91 top = 72
92 end
93 object IBStatisticalService1: TIBXStatisticalService
94 ServicesConnection = IBXServicesConnection1
95 TraceFlags = []
96 DatabaseName = 'employee'
97 Options = [DataPages]
98 left = 320
99 top = 112
100 end
101 object IBValidationService1: TIBXValidationService
102 ServicesConnection = IBXServicesConnection1
103 TraceFlags = []
104 DatabaseName = 'employee'
105 Options = [ValidateFull]
106 left = 320
107 top = 160
108 end
109 object IBOnlineValidationService1: TIBXOnlineValidationService
110 ServicesConnection = IBXServicesConnection1
111 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 object IBConfigService1: TIBXConfigService
169 ServicesConnection = IBXServicesConnection1
170 TraceFlags = []
171 left = 466
172 top = 188
173 end
174 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 end