ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/services/LimboTransactionsUnit.lfm
Revision: 45
Committed: Tue Dec 6 10:33:46 2016 UTC (7 years, 3 months ago) by tony
File size: 2961 byte(s)
Log Message:
Committing updates for Release R2-0-0

File Contents

# Content
1 object LimboTransactionsForm: TLimboTransactionsForm
2 Left = 632
3 Height = 386
4 Top = 339
5 Width = 798
6 Caption = 'Limbo Transactions'
7 ClientHeight = 386
8 ClientWidth = 798
9 OnShow = FormShow
10 LCLVersion = '1.6.0.4'
11 object Label1: TLabel
12 Left = 14
13 Height = 15
14 Top = 12
15 Width = 74
16 Caption = 'Transactions'
17 ParentColor = False
18 end
19 object StringGrid1: TStringGrid
20 Left = 16
21 Height = 316
22 Top = 28
23 Width = 764
24 Anchors = [akTop, akLeft, akRight, akBottom]
25 AutoFillColumns = True
26 ColCount = 8
27 Columns = <
28 item
29 Title.Alignment = taCenter
30 Title.Caption = 'Transaction ID'
31 Width = 95
32 end
33 item
34 Title.Alignment = taCenter
35 Title.Caption = 'Type'
36 Width = 95
37 end
38 item
39 Title.Alignment = taCenter
40 Title.Caption = 'Host Site'
41 Width = 95
42 end
43 item
44 Title.Alignment = taCenter
45 Title.Caption = 'Remote Site'
46 Width = 95
47 end
48 item
49 Title.Alignment = taCenter
50 Title.Caption = 'Database Path'
51 Width = 95
52 end
53 item
54 Title.Alignment = taCenter
55 Title.Caption = 'State'
56 Width = 95
57 end
58 item
59 Title.Alignment = taCenter
60 Title.Caption = 'Rec. Action'
61 Width = 95
62 end
63 item
64 PickList.Strings = (
65 'Commit'
66 'Rollback'
67 )
68 Title.Alignment = taCenter
69 Title.Caption = 'Action'
70 Width = 97
71 end>
72 FixedCols = 0
73 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
74 ScrollBars = ssAutoVertical
75 TabOrder = 0
76 OnEditingDone = StringGrid1EditingDone
77 ColWidths = (
78 95
79 95
80 95
81 95
82 95
83 95
84 95
85 97
86 )
87 end
88 object Button1: TButton
89 Left = 16
90 Height = 25
91 Top = 352
92 Width = 100
93 Anchors = [akLeft, akBottom]
94 Caption = 'Commit All'
95 OnClick = Button1Click
96 TabOrder = 1
97 end
98 object Button2: TButton
99 Left = 128
100 Height = 25
101 Top = 352
102 Width = 100
103 Anchors = [akLeft, akBottom]
104 Caption = 'Rollback All'
105 OnClick = Button2Click
106 TabOrder = 2
107 end
108 object Button3: TButton
109 Left = 368
110 Height = 25
111 Top = 352
112 Width = 144
113 Anchors = [akLeft, akBottom]
114 Caption = 'Apply Selected Action'
115 OnClick = Button3Click
116 TabOrder = 3
117 end
118 object Button4: TButton
119 Left = 233
120 Height = 25
121 Top = 352
122 Width = 127
123 Anchors = [akLeft, akBottom]
124 Caption = 'Commit 2 Phase All'
125 OnClick = Button4Click
126 TabOrder = 4
127 end
128 object IBValidationService1: TIBValidationService
129 ServerName = 'localhost'
130 Protocol = TCP
131 TraceFlags = []
132 DatabaseName = 'employee'
133 Options = [LimboTransactions]
134 GlobalAction = CommitGlobal
135 left = 726
136 top = 302
137 end
138 end