examples/services/LimboTransactionsUnit.lfm

object LimboTransactionsForm: TLimboTransactionsForm
  Left = 592
  Height = 535
  Top = 346
  Width = 822
  Caption = 'Limbo Transactions'
  ClientHeight = 535
  ClientWidth = 822
  OnClose = FormClose
  OnShow = FormShow
  Position = poMainFormCenter
  LCLVersion = '1.8.1.0'
  object Button1: TButton
    Left = 16
    Height = 25
    Top = 501
    Width = 100
    Action = CommitAll
    Anchors = [akLeft, akBottom]
    TabOrder = 0
  end
  object Button2: TButton
    Left = 128
    Height = 25
    Top = 501
    Width = 100
    Action = RollbackAll
    Anchors = [akLeft, akBottom]
    TabOrder = 1
  end
  object Button3: TButton
    Left = 368
    Height = 25
    Top = 501
    Width = 144
    Action = ApplySelectedAction
    Anchors = [akLeft, akBottom]
    TabOrder = 2
  end
  object Button4: TButton
    Left = 233
    Height = 25
    Top = 501
    Width = 127
    Action = Commit2PhaseAll
    Anchors = [akLeft, akBottom]
    TabOrder = 3
  end
  object Label38: TLabel
    Left = 12
    Height = 14
    Top = 8
    Width = 74
    Caption = 'Transactions'
    ParentColor = False
  end
  object IBDynamicGrid3: TIBDynamicGrid
    Left = 12
    Height = 242
    Top = 24
    Width = 804
    Anchors = [akTop, akLeft, akRight]
    Color = clWindow
    Columns = <    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'ID'
        Width = 60
        FieldName = 'TransactionID'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'Type'
        Width = 80
        FieldName = 'TransactionType'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'Host Site'
        Width = 100
        FieldName = 'HostSite'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'Remote Site'
        Width = 100
        FieldName = 'RemoteSite'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'Database Path'
        Width = 150
        FieldName = 'DatabasePath'
        AutoSizeColumn = True
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'State'
        Width = 80
        FieldName = 'State'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'Rec. Action'
        Width = 100
        FieldName = 'RecommendedAction'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        PickList.Strings = (
          'Commit'
          'Rollback'
        )
        Title.Alignment = taCenter
        Title.Caption = 'Req. Action'
        Width = 100
        FieldName = 'RequestedAction'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end>
    DataSource = LimboListSource
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
    Scrollbars = ssAutoVertical
    TabOrder = 4
    ExpandEditorPanelBelowRow = False
    Descending = False
    EditorBorderStyle = bsSingle
    DefaultPositionAtEnd = False
  end
  object Label39: TLabel
    Left = 12
    Height = 14
    Top = 280
    Width = 104
    Caption = 'Resolution Report'
    ParentColor = False
  end
  object LimboReport: TMemo
    Left = 12
    Height = 200
    Top = 296
    Width = 804
    Anchors = [akTop, akLeft, akRight, akBottom]
    Lines.Strings = (
      'LimboReport'
    )
    TabOrder = 5
  end
  object Button5: TButton
    Left = 736
    Height = 25
    Top = 501
    Width = 75
    Anchors = [akTop, akRight]
    Caption = 'Close'
    ModalResult = 11
    TabOrder = 6
  end
  object LimboTransactionValidation: TIBValidationService
    ServerName = 'localhost'
    Protocol = TCP
    TraceFlags = []
    DatabaseName = 'employee'
    Options = [LimboTransactions]
    GlobalAction = CommitGlobal
    left = 726
    top = 302
  end
  object LimboListSource: TDataSource
    DataSet = InLimboList
    left = 580
    top = 204
  end
  object InLimboList: TMemDataset
    FieldDefs = <    
      item
        Name = 'TransactionID'
        DataType = ftInteger
      end    
      item
        Name = 'TransactionType'
        DataType = ftString
        Size = 16
      end    
      item
        Name = 'HostSite'
        DataType = ftString
        Size = 256
      end    
      item
        Name = 'RemoteSite'
        DataType = ftString
        Size = 256
      end    
      item
        Name = 'DatabasePath'
        DataType = ftString
        Size = 256
      end    
      item
        Name = 'State'
        DataType = ftString
        Size = 32
      end    
      item
        Name = 'RecommendedAction'
        DataType = ftString
        Size = 32
      end    
      item
        Name = 'RequestedAction'
        DataType = ftString
        Size = 32
      end>
    AfterOpen = InLimboListAfterOpen
    BeforeClose = InLimboListBeforeClose
    BeforePost = InLimboListBeforePost
    left = 680
    top = 208
  end
  object ActionList1: TActionList
    left = 576
    top = 304
    object CommitAll: TAction
      Caption = 'Commit All'
      OnExecute = CommitAllExecute
      OnUpdate = CommitAllUpdate
    end
    object RollbackAll: TAction
      Caption = 'Rollback All'
      OnExecute = RollbackAllExecute
      OnUpdate = CommitAllUpdate
    end
    object Commit2PhaseAll: TAction
      Caption = 'Commit 2 Phase All'
      OnExecute = Commit2PhaseAllExecute
      OnUpdate = CommitAllUpdate
    end
    object ApplySelectedAction: TAction
      Caption = 'Apply Selected Action'
      OnExecute = ApplySelectedActionExecute
      OnUpdate = CommitAllUpdate
    end
  end
end
Revision:	147
Committed:	Mon Feb 26 11:14:30 2018 UTC (6 years, 8 months ago) by tony
File size:	7742 byte(s)
Log Message:	Fixes merged
#	Content
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.1.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 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
212	object LimboListSource: TDataSource
213	DataSet = InLimboList
214	left = 580
215	top = 204
216	end
217	object InLimboList: TMemDataset
218	FieldDefs = <
219	item
220	Name = 'TransactionID'
221	DataType = ftInteger
222	end
223	item
224	Name = 'TransactionType'
225	DataType = ftString
226	Size = 16
227	end
228	item
229	Name = 'HostSite'
230	DataType = ftString
231	Size = 256
232	end
233	item
234	Name = 'RemoteSite'
235	DataType = ftString
236	Size = 256
237	end
238	item
239	Name = 'DatabasePath'
240	DataType = ftString
241	Size = 256
242	end
243	item
244	Name = 'State'
245	DataType = ftString
246	Size = 32
247	end
248	item
249	Name = 'RecommendedAction'
250	DataType = ftString
251	Size = 32
252	end
253	item
254	Name = 'RequestedAction'
255	DataType = ftString
256	Size = 32
257	end>
258	AfterOpen = InLimboListAfterOpen
259	BeforeClose = InLimboListBeforeClose
260	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	end
288	end