ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/examples/services/LimboTransactionsUnit.lfm

Comparing ibx/trunk/examples/services/LimboTransactionsUnit.lfm (file contents):
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

#	Line 1 | Line 1
1		object LimboTransactionsForm: TLimboTransactionsForm
2	<	Left = 3303
3	<	Height = 386
4	<	Top = 324
5	<	Width = 798
2	>	Left = 592
3	>	Height = 535
4	>	Top = 346
5	>	Width = 822
6		Caption = 'Limbo Transactions'
7	<	ClientHeight = 386
8	<	ClientWidth = 798
7	>	ClientHeight = 535
8	>	ClientWidth = 822
9	>	OnClose = FormClose
10		OnShow = FormShow
11	<	LCLVersion = '1.8.0.5'
12	<	object Label1: TLabel
13	<	Left = 14
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 = 12
52	>	Top = 8
53		Width = 74
54		Caption = 'Transactions'
55		ParentColor = False
56		end
57	<	object StringGrid1: TStringGrid
58	<	Left = 16
59	<	Height = 316
60	<	Top = 28
61	<	Width = 764
62	<	Anchors = [akTop, akLeft, akRight, akBottom]
63	<	AutoFillColumns = True
26	<	ColCount = 8
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 = 'Transaction ID'
69	<	Width = 95
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 = 95
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 = 95
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 = 95
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 = 95
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 = 95
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 = 95
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 = (
#	Line 66 | Line 152 | object LimboTransactionsForm: TLimboTran
152		'Rollback'
153		)
154		Title.Alignment = taCenter
155	<	Title.Caption = 'Action'
156	<	Width = 97
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	<	FixedCols = 0
165	<	Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
166	<	ScrollBars = ssAutoVertical
167	<	TabOrder = 0
168	<	OnEditingDone = StringGrid1EditingDone
169	<	ColWidths = (
170	<	95
171	<	95
80	<	95
81	<	95
82	<	95
83	<	95
84	<	95
85	<	97
86	<	)
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 Button1: TButton
174	<	Left = 16
175	<	Height = 25
176	<	Top = 352
177	<	Width = 100
178	<	Anchors = [akLeft, akBottom]
179	<	Caption = 'Commit All'
95	<	OnClick = Button1Click
96	<	TabOrder = 1
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 Button2: TButton
182	<	Left = 128
183	<	Height = 25
184	<	Top = 352
185	<	Width = 100
186	<	Anchors = [akLeft, akBottom]
187	<	Caption = 'Rollback All'
188	<	OnClick = Button2Click
189	<	TabOrder = 2
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 Button3: TButton
193	<	Left = 368
192	>	object Button5: TButton
193	>	Left = 736
194		Height = 25
195	<	Top = 352
196	<	Width = 144
197	<	Anchors = [akLeft, akBottom]
198	<	Caption = 'Apply Selected Action'
199	<	OnClick = Button3Click
200	<	TabOrder = 3
195	>	Top = 501
196	>	Width = 75
197	>	Anchors = [akTop, akRight]
198	>	Caption = 'Close'
199	>	ModalResult = 11
200	>	TabOrder = 6
201		end
202	<	object Button4: TButton
203	<	Left = 233
204	<	Height = 25
205	<	Top = 352
206	<	Width = 127
207	<	Anchors = [akLeft, akBottom]
208	<	Caption = 'Commit 2 Phase All'
209	<	OnClick = Button4Click
210	<	TabOrder = 4
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 IBValidationService1: TIBValidationService
232	<	ServerName = 'localhost'
130	<	Protocol = TCP
231	>	object IBXLimboTransactionResolutionService1: TIBXLimboTransactionResolutionService
232	>	ServicesConnection = MainForm.IBXServicesConnection1
233		TraceFlags = []
132	–	DatabaseName = 'employee'
133	–	Options = [LimboTransactions]
234		GlobalAction = CommitGlobal
235	<	left = 726
236	<	top = 302
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

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines