| 9 |
|
OnClose = FormClose |
| 10 |
|
OnShow = FormShow |
| 11 |
|
Position = poMainFormCenter |
| 12 |
< |
LCLVersion = '1.8.1.0' |
| 12 |
> |
LCLVersion = '1.8.3.0' |
| 13 |
|
object Button1: TButton |
| 14 |
|
Left = 16 |
| 15 |
|
Height = 25 |
| 199 |
|
ModalResult = 11 |
| 200 |
|
TabOrder = 6 |
| 201 |
|
end |
| 202 |
– |
object LimboTransactionValidation: TIBValidationService |
| 203 |
– |
ServerName = 'localhost' |
| 204 |
– |
Protocol = TCP |
| 205 |
– |
TraceFlags = [] |
| 206 |
– |
DatabaseName = 'employee' |
| 207 |
– |
Options = [LimboTransactions] |
| 208 |
– |
GlobalAction = CommitGlobal |
| 209 |
– |
left = 726 |
| 210 |
– |
top = 302 |
| 211 |
– |
end |
| 202 |
|
object LimboListSource: TDataSource |
| 203 |
|
DataSet = InLimboList |
| 204 |
|
left = 580 |
| 205 |
|
top = 204 |
| 206 |
|
end |
| 207 |
< |
object InLimboList: TMemDataset |
| 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 |
< |
AfterOpen = InLimboListAfterOpen |
| 288 |
< |
BeforeClose = InLimboListBeforeClose |
| 289 |
< |
BeforePost = InLimboListBeforePost |
| 261 |
< |
left = 680 |
| 262 |
< |
top = 208 |
| 263 |
< |
end |
| 264 |
< |
object ActionList1: TActionList |
| 265 |
< |
left = 576 |
| 266 |
< |
top = 304 |
| 267 |
< |
object CommitAll: TAction |
| 268 |
< |
Caption = 'Commit All' |
| 269 |
< |
OnExecute = CommitAllExecute |
| 270 |
< |
OnUpdate = CommitAllUpdate |
| 271 |
< |
end |
| 272 |
< |
object RollbackAll: TAction |
| 273 |
< |
Caption = 'Rollback All' |
| 274 |
< |
OnExecute = RollbackAllExecute |
| 275 |
< |
OnUpdate = CommitAllUpdate |
| 276 |
< |
end |
| 277 |
< |
object Commit2PhaseAll: TAction |
| 278 |
< |
Caption = 'Commit 2 Phase All' |
| 279 |
< |
OnExecute = Commit2PhaseAllExecute |
| 280 |
< |
OnUpdate = CommitAllUpdate |
| 281 |
< |
end |
| 282 |
< |
object ApplySelectedAction: TAction |
| 283 |
< |
Caption = 'Apply Selected Action' |
| 284 |
< |
OnExecute = ApplySelectedActionExecute |
| 285 |
< |
OnUpdate = CommitAllUpdate |
| 286 |
< |
end |
| 287 |
> |
Source = IBXLimboTransactionResolutionService1 |
| 288 |
> |
left = 660 |
| 289 |
> |
top = 163 |
| 290 |
|
end |
| 291 |
|
end |
