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, 9 months ago) by tony
File size:	7742 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			LCLVersion = '1.8.1.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	143	object LimboTransactionValidation: TIBValidationService
203	tony	45	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	tony	147	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	tony	45	end