ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/services/MainFormUnit.lfm
Revision: 145
Committed: Sat Feb 24 23:16:18 2018 UTC (6 years, 1 month ago) by tony
File size: 4010 byte(s)
Log Message:
Fixes Merged

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 = '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