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.3.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 LimboListSource: TDataSource
    DataSet = InLimboList
    left = 580
    top = 204
  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
  object IBXLimboTransactionResolutionService1: TIBXLimboTransactionResolutionService
    ServicesConnection = MainForm.IBXServicesConnection1
    TraceFlags = []
    GlobalAction = CommitGlobal
    left = 656
    top = 104
  end
  object InLimboList: TIBXServicesLimboTransactionsList
    FieldDefs = <    
      item
        Name = 'TransactionID'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'TransactionType'
        DataType = ftString
        Precision = -1
        Size = 16
      end    
      item
        Name = 'HostSite'
        DataType = ftString
        Precision = -1
        Size = 256
      end    
      item
        Name = 'RemoteSite'
        DataType = ftString
        Precision = -1
        Size = 256
      end    
      item
        Name = 'DatabasePath'
        DataType = ftString
        Precision = -1
        Size = 256
      end    
      item
        Name = 'State'
        DataType = ftString
        Precision = -1
        Size = 32
      end    
      item
        Name = 'RecommendedAction'
        DataType = ftString
        Precision = -1
        Size = 32
      end    
      item
        Name = 'RequestedAction'
        DataType = ftString
        Precision = -1
        Size = 32
      end>
    Source = IBXLimboTransactionResolutionService1
    left = 660
    top = 163
  end
end
Revision:	209
Committed:	Wed Mar 14 12:48:51 2018 UTC (6 years, 1 month ago) by tony
File size:	7855 byte(s)
Log Message:	Fixes Merged
#	User	Rev	Content
1	tony	45	object LimboTransactionsForm: TLimboTransactionsForm
2	tony	143	Left = 592
3	tony	147	Height = 535
4			Top = 346
5			Width = 822
6	tony	45	Caption = 'Limbo Transactions'
7	tony	147	ClientHeight = 535
8			ClientWidth = 822
9	tony	143	OnClose = FormClose
10	tony	45	OnShow = FormShow
11	tony	86	Position = poMainFormCenter
12	tony	209	LCLVersion = '1.8.3.0'
13	tony	147	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	tony	80	Height = 14
52	tony	147	Top = 8
53	tony	45	Width = 74
54			Caption = 'Transactions'
55			ParentColor = False
56			end
57	tony	147	object IBDynamicGrid3: TIBDynamicGrid
58			Left = 12
59			Height = 242
60			Top = 24
61			Width = 804
62			Anchors = [akTop, akLeft, akRight]
63			Color = clWindow
64	tony	45	Columns = <
65			item
66	tony	147	ReadOnly = True
67	tony	45	Title.Alignment = taCenter
68	tony	147	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	tony	45	end
77			item
78	tony	147	ReadOnly = True
79	tony	45	Title.Alignment = taCenter
80			Title.Caption = 'Type'
81	tony	147	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	tony	45	end
89			item
90	tony	147	ReadOnly = True
91	tony	45	Title.Alignment = taCenter
92			Title.Caption = 'Host Site'
93	tony	147	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	tony	45	end
101			item
102	tony	147	ReadOnly = True
103	tony	45	Title.Alignment = taCenter
104			Title.Caption = 'Remote Site'
105	tony	147	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	tony	45	end
113			item
114	tony	147	ReadOnly = True
115	tony	45	Title.Alignment = taCenter
116			Title.Caption = 'Database Path'
117	tony	147	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	tony	45	end
125			item
126	tony	147	ReadOnly = True
127	tony	45	Title.Alignment = taCenter
128			Title.Caption = 'State'
129	tony	147	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	tony	45	end
137			item
138	tony	147	ReadOnly = True
139	tony	45	Title.Alignment = taCenter
140			Title.Caption = 'Rec. Action'
141	tony	147	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	tony	45	end
149			item
150			PickList.Strings = (
151			'Commit'
152			'Rollback'
153			)
154			Title.Alignment = taCenter
155	tony	147	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	tony	45	end>
164	tony	147	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	tony	45	end
173	tony	147	object Label39: TLabel
174			Left = 12
175			Height = 14
176			Top = 280
177			Width = 104
178			Caption = 'Resolution Report'
179			ParentColor = False
180	tony	45	end
181	tony	147	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	tony	45	end
192	tony	147	object Button5: TButton
193			Left = 736
194	tony	45	Height = 25
195	tony	147	Top = 501
196			Width = 75
197			Anchors = [akTop, akRight]
198			Caption = 'Close'
199			ModalResult = 11
200			TabOrder = 6
201	tony	45	end
202	tony	147	object LimboListSource: TDataSource
203			DataSet = InLimboList
204			left = 580
205			top = 204
206			end
207	tony	209	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	tony	147	FieldDefs = <
240			item
241			Name = 'TransactionID'
242			DataType = ftInteger
243	tony	209	Precision = -1
244	tony	147	end
245			item
246			Name = 'TransactionType'
247			DataType = ftString
248	tony	209	Precision = -1
249	tony	147	Size = 16
250			end
251			item
252			Name = 'HostSite'
253			DataType = ftString
254	tony	209	Precision = -1
255	tony	147	Size = 256
256			end
257			item
258			Name = 'RemoteSite'
259			DataType = ftString
260	tony	209	Precision = -1
261	tony	147	Size = 256
262			end
263			item
264			Name = 'DatabasePath'
265			DataType = ftString
266	tony	209	Precision = -1
267	tony	147	Size = 256
268			end
269			item
270			Name = 'State'
271			DataType = ftString
272	tony	209	Precision = -1
273	tony	147	Size = 32
274			end
275			item
276			Name = 'RecommendedAction'
277			DataType = ftString
278	tony	209	Precision = -1
279	tony	147	Size = 32
280			end
281			item
282			Name = 'RequestedAction'
283			DataType = ftString
284	tony	209	Precision = -1
285	tony	147	Size = 32
286			end>
287	tony	209	Source = IBXLimboTransactionResolutionService1
288			left = 660
289			top = 163
290	tony	147	end
291	tony	45	end