1 |
object LimboTransactionsForm: TLimboTransactionsForm
|
2 |
Left = 592
|
3 |
Height = 535
|
4 |
Top = 346
|
5 |
Width = 822
|
6 |
Caption = 'Limbo Transactions'
|
7 |
ClientHeight = 535
|
8 |
ClientWidth = 822
|
9 |
OnClose = FormClose
|
10 |
OnShow = FormShow
|
11 |
Position = poMainFormCenter
|
12 |
LCLVersion = '1.8.3.0'
|
13 |
object Button1: TButton
|
14 |
Left = 16
|
15 |
Height = 25
|
16 |
Top = 501
|
17 |
Width = 100
|
18 |
Action = CommitAll
|
19 |
Anchors = [akLeft, akBottom]
|
20 |
TabOrder = 0
|
21 |
end
|
22 |
object Button2: TButton
|
23 |
Left = 128
|
24 |
Height = 25
|
25 |
Top = 501
|
26 |
Width = 100
|
27 |
Action = RollbackAll
|
28 |
Anchors = [akLeft, akBottom]
|
29 |
TabOrder = 1
|
30 |
end
|
31 |
object Button3: TButton
|
32 |
Left = 368
|
33 |
Height = 25
|
34 |
Top = 501
|
35 |
Width = 144
|
36 |
Action = ApplySelectedAction
|
37 |
Anchors = [akLeft, akBottom]
|
38 |
TabOrder = 2
|
39 |
end
|
40 |
object Button4: TButton
|
41 |
Left = 233
|
42 |
Height = 25
|
43 |
Top = 501
|
44 |
Width = 127
|
45 |
Action = Commit2PhaseAll
|
46 |
Anchors = [akLeft, akBottom]
|
47 |
TabOrder = 3
|
48 |
end
|
49 |
object Label38: TLabel
|
50 |
Left = 12
|
51 |
Height = 14
|
52 |
Top = 8
|
53 |
Width = 74
|
54 |
Caption = 'Transactions'
|
55 |
ParentColor = False
|
56 |
end
|
57 |
object IBDynamicGrid3: TIBDynamicGrid
|
58 |
Left = 12
|
59 |
Height = 242
|
60 |
Top = 24
|
61 |
Width = 804
|
62 |
Anchors = [akTop, akLeft, akRight]
|
63 |
Color = clWindow
|
64 |
Columns = <
|
65 |
item
|
66 |
ReadOnly = True
|
67 |
Title.Alignment = taCenter
|
68 |
Title.Caption = 'ID'
|
69 |
Width = 60
|
70 |
FieldName = 'TransactionID'
|
71 |
AutoSizeColumn = False
|
72 |
InitialSortColumn = False
|
73 |
DBLookupProperties.ItemHeight = 0
|
74 |
DBLookupProperties.ItemWidth = 0
|
75 |
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
|
76 |
end
|
77 |
item
|
78 |
ReadOnly = True
|
79 |
Title.Alignment = taCenter
|
80 |
Title.Caption = 'Type'
|
81 |
Width = 80
|
82 |
FieldName = 'TransactionType'
|
83 |
AutoSizeColumn = False
|
84 |
InitialSortColumn = False
|
85 |
DBLookupProperties.ItemHeight = 0
|
86 |
DBLookupProperties.ItemWidth = 0
|
87 |
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
|
88 |
end
|
89 |
item
|
90 |
ReadOnly = True
|
91 |
Title.Alignment = taCenter
|
92 |
Title.Caption = 'Host Site'
|
93 |
Width = 100
|
94 |
FieldName = 'HostSite'
|
95 |
AutoSizeColumn = False
|
96 |
InitialSortColumn = False
|
97 |
DBLookupProperties.ItemHeight = 0
|
98 |
DBLookupProperties.ItemWidth = 0
|
99 |
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
|
100 |
end
|
101 |
item
|
102 |
ReadOnly = True
|
103 |
Title.Alignment = taCenter
|
104 |
Title.Caption = 'Remote Site'
|
105 |
Width = 100
|
106 |
FieldName = 'RemoteSite'
|
107 |
AutoSizeColumn = False
|
108 |
InitialSortColumn = False
|
109 |
DBLookupProperties.ItemHeight = 0
|
110 |
DBLookupProperties.ItemWidth = 0
|
111 |
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
|
112 |
end
|
113 |
item
|
114 |
ReadOnly = True
|
115 |
Title.Alignment = taCenter
|
116 |
Title.Caption = 'Database Path'
|
117 |
Width = 150
|
118 |
FieldName = 'DatabasePath'
|
119 |
AutoSizeColumn = True
|
120 |
InitialSortColumn = False
|
121 |
DBLookupProperties.ItemHeight = 0
|
122 |
DBLookupProperties.ItemWidth = 0
|
123 |
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
|
124 |
end
|
125 |
item
|
126 |
ReadOnly = True
|
127 |
Title.Alignment = taCenter
|
128 |
Title.Caption = 'State'
|
129 |
Width = 80
|
130 |
FieldName = 'State'
|
131 |
AutoSizeColumn = False
|
132 |
InitialSortColumn = False
|
133 |
DBLookupProperties.ItemHeight = 0
|
134 |
DBLookupProperties.ItemWidth = 0
|
135 |
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
|
136 |
end
|
137 |
item
|
138 |
ReadOnly = True
|
139 |
Title.Alignment = taCenter
|
140 |
Title.Caption = 'Rec. Action'
|
141 |
Width = 100
|
142 |
FieldName = 'RecommendedAction'
|
143 |
AutoSizeColumn = False
|
144 |
InitialSortColumn = False
|
145 |
DBLookupProperties.ItemHeight = 0
|
146 |
DBLookupProperties.ItemWidth = 0
|
147 |
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
|
148 |
end
|
149 |
item
|
150 |
PickList.Strings = (
|
151 |
'Commit'
|
152 |
'Rollback'
|
153 |
)
|
154 |
Title.Alignment = taCenter
|
155 |
Title.Caption = 'Req. Action'
|
156 |
Width = 100
|
157 |
FieldName = 'RequestedAction'
|
158 |
AutoSizeColumn = False
|
159 |
InitialSortColumn = False
|
160 |
DBLookupProperties.ItemHeight = 0
|
161 |
DBLookupProperties.ItemWidth = 0
|
162 |
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
|
163 |
end>
|
164 |
DataSource = LimboListSource
|
165 |
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
|
166 |
Scrollbars = ssAutoVertical
|
167 |
TabOrder = 4
|
168 |
ExpandEditorPanelBelowRow = False
|
169 |
Descending = False
|
170 |
EditorBorderStyle = bsSingle
|
171 |
DefaultPositionAtEnd = False
|
172 |
end
|
173 |
object Label39: TLabel
|
174 |
Left = 12
|
175 |
Height = 14
|
176 |
Top = 280
|
177 |
Width = 104
|
178 |
Caption = 'Resolution Report'
|
179 |
ParentColor = False
|
180 |
end
|
181 |
object LimboReport: TMemo
|
182 |
Left = 12
|
183 |
Height = 200
|
184 |
Top = 296
|
185 |
Width = 804
|
186 |
Anchors = [akTop, akLeft, akRight, akBottom]
|
187 |
Lines.Strings = (
|
188 |
'LimboReport'
|
189 |
)
|
190 |
TabOrder = 5
|
191 |
end
|
192 |
object Button5: TButton
|
193 |
Left = 736
|
194 |
Height = 25
|
195 |
Top = 501
|
196 |
Width = 75
|
197 |
Anchors = [akTop, akRight]
|
198 |
Caption = 'Close'
|
199 |
ModalResult = 11
|
200 |
TabOrder = 6
|
201 |
end
|
202 |
object LimboListSource: TDataSource
|
203 |
DataSet = InLimboList
|
204 |
left = 580
|
205 |
top = 204
|
206 |
end
|
207 |
object ActionList1: TActionList
|
208 |
left = 576
|
209 |
top = 304
|
210 |
object CommitAll: TAction
|
211 |
Caption = 'Commit All'
|
212 |
OnExecute = CommitAllExecute
|
213 |
OnUpdate = CommitAllUpdate
|
214 |
end
|
215 |
object RollbackAll: TAction
|
216 |
Caption = 'Rollback All'
|
217 |
OnExecute = RollbackAllExecute
|
218 |
OnUpdate = CommitAllUpdate
|
219 |
end
|
220 |
object Commit2PhaseAll: TAction
|
221 |
Caption = 'Commit 2 Phase All'
|
222 |
OnExecute = Commit2PhaseAllExecute
|
223 |
OnUpdate = CommitAllUpdate
|
224 |
end
|
225 |
object ApplySelectedAction: TAction
|
226 |
Caption = 'Apply Selected Action'
|
227 |
OnExecute = ApplySelectedActionExecute
|
228 |
OnUpdate = CommitAllUpdate
|
229 |
end
|
230 |
end
|
231 |
object IBXLimboTransactionResolutionService1: TIBXLimboTransactionResolutionService
|
232 |
ServicesConnection = MainForm.IBXServicesConnection1
|
233 |
TraceFlags = []
|
234 |
GlobalAction = CommitGlobal
|
235 |
left = 656
|
236 |
top = 104
|
237 |
end
|
238 |
object InLimboList: TIBXServicesLimboTransactionsList
|
239 |
FieldDefs = <
|
240 |
item
|
241 |
Name = 'TransactionID'
|
242 |
DataType = ftInteger
|
243 |
Precision = -1
|
244 |
end
|
245 |
item
|
246 |
Name = 'TransactionType'
|
247 |
DataType = ftString
|
248 |
Precision = -1
|
249 |
Size = 16
|
250 |
end
|
251 |
item
|
252 |
Name = 'HostSite'
|
253 |
DataType = ftString
|
254 |
Precision = -1
|
255 |
Size = 256
|
256 |
end
|
257 |
item
|
258 |
Name = 'RemoteSite'
|
259 |
DataType = ftString
|
260 |
Precision = -1
|
261 |
Size = 256
|
262 |
end
|
263 |
item
|
264 |
Name = 'DatabasePath'
|
265 |
DataType = ftString
|
266 |
Precision = -1
|
267 |
Size = 256
|
268 |
end
|
269 |
item
|
270 |
Name = 'State'
|
271 |
DataType = ftString
|
272 |
Precision = -1
|
273 |
Size = 32
|
274 |
end
|
275 |
item
|
276 |
Name = 'RecommendedAction'
|
277 |
DataType = ftString
|
278 |
Precision = -1
|
279 |
Size = 32
|
280 |
end
|
281 |
item
|
282 |
Name = 'RequestedAction'
|
283 |
DataType = ftString
|
284 |
Precision = -1
|
285 |
Size = 32
|
286 |
end>
|
287 |
Source = IBXLimboTransactionResolutionService1
|
288 |
left = 660
|
289 |
top = 163
|
290 |
end
|
291 |
end
|