trunk/design/ibgeneratoreditor.lfm

object GeneratorEditor: TGeneratorEditor
  Left = 334
  Height = 374
  Top = 239
  Width = 478
  ActiveControl = Button1
  Caption = 'Define Generator'
  ClientHeight = 374
  ClientWidth = 478
  OnClose = FormClose
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.8.1.0'
  object Bevel1: TBevel
    Left = 16
    Height = 336
    Top = 16
    Width = 355
  end
  object Label1: TLabel
    Left = 32
    Height = 14
    Top = 40
    Width = 99
    Caption = 'Generator Name'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 32
    Height = 14
    Top = 192
    Width = 66
    Caption = 'Field Name'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 35
    Height = 14
    Top = 269
    Width = 82
    Caption = 'Increment By'
    ParentColor = False
  end
  object Button1: TButton
    Left = 392
    Height = 30
    Top = 24
    Width = 75
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 0
  end
  object Button2: TButton
    Left = 392
    Height = 30
    Top = 64
    Width = 75
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 1
  end
  object OnNewRecord: TRadioButton
    Left = 38
    Height = 22
    Top = 112
    Width = 116
    Caption = 'On New Record'
    Checked = True
    TabOrder = 2
    TabStop = True
  end
  object OnPost: TRadioButton
    Left = 38
    Height = 22
    Top = 144
    Width = 70
    Caption = 'On Post'
    TabOrder = 3
  end
  object IncrementBy: TEdit
    Left = 39
    Height = 24
    Top = 292
    Width = 52
    TabOrder = 4
    Text = 'IncrementBy'
  end
  object UpDown1: TUpDown
    Left = 91
    Height = 24
    Top = 292
    Width = 17
    Associate = IncrementBy
    Min = 0
    Position = 0
    TabOrder = 5
    Wrap = False
  end
  object GeneratorNames: TIBLookupComboEditBox
    Left = 33
    Height = 27
    Top = 56
    Width = 313
    OwnerDrawEditable = False
    KeyField = 'RDB$GENERATOR_NAME'
    ListField = 'RDB$GENERATOR_NAME'
    ListFieldIndex = 0
    ListSource = GeneratorSource
    LookupCache = False
    ScrollListDataset = True
    TabOrder = 6
    AutoInsert = False
    AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
    ItemHeight = 0
  end
  object FieldNames: TIBLookupComboEditBox
    Left = 33
    Height = 27
    Top = 208
    Width = 303
    OwnerDrawEditable = False
    KeyField = 'ColumnName'
    ListField = 'ColumnName'
    ListFieldIndex = 0
    ListSource = PrimaryKeySource
    LookupCache = False
    ScrollListDataset = True
    TabOrder = 7
    AutoInsert = False
    AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
    ItemHeight = 0
  end
  object SQLTransaction: TIBTransaction
    Active = False
    Params.Strings = (
      'read'
      'consistency'
    )
    left = 400
    top = 264
  end
  object GeneratorQuery: TIBQuery
    AllowAutoActivateTransaction = False
    Transaction = SQLTransaction
    BufferChunks = 1000
    CachedUpdates = False
    GenerateParamNames = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    SQL.Strings = (
      'Select RDB$GENERATOR_NAME FROM RDB$GENERATORS                          '
      'Where RDB$SYSTEM_FLAG = 0'
      'Order by 1 asc'
    )
    Params = <>
    DataSetCloseAction = dcDiscardChanges
    left = 269
    top = 322
  end
  object GeneratorSource: TDataSource
    DataSet = GeneratorQuery
    left = 176
    top = 322
  end
  object PrimaryKeys: TIBQuery
    AllowAutoActivateTransaction = False
    Transaction = SQLTransaction
    BeforeOpen = PrimaryKeysBeforeOpen
    BufferChunks = 1000
    CachedUpdates = False
    GenerateParamNames = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    SQL.Strings = (
      'Select Trim(S.RDB$FIELD_NAME) as ColumnName From (Select '
      'RDB$INDEX_NAME,RDB$FIELD_NAME FROM '
      'RDB$INDEX_SEGMENTS Order by RDB$FIELD_POSITION ASC) S '
      'JOIN RDB$RELATION_CONSTRAINTS C On C.RDB$INDEX_NAME '
      '= S.RDB$INDEX_NAME Where C.RDB$CONSTRAINT_TYPE = '
      '''PRIMARY KEY'' and RDB$RELATION_NAME = '
      ':RDB$RELATION_NAME'
    )
    Params = <    
      item
        DataType = ftUnknown
        Name = 'RDB$RELATION_NAME'
        ParamType = ptInput
      end>
    DataSetCloseAction = dcDiscardChanges
    left = 269
    top = 264
    ParamData = <    
      item
        DataType = ftUnknown
        Name = 'RDB$RELATION_NAME'
        ParamType = ptInput
      end>
  end
  object PrimaryKeySource: TDataSource
    DataSet = PrimaryKeys
    left = 160
    top = 264
  end
  object IdentifyStatementSQL: TIBSQL
    GenerateParamNames = False
    UniqueParamNames = False
    ParamCheck = True
    Transaction = SQLTransaction
    left = 400
    top = 192
  end
end
Revision:	80
Committed:	Mon Jan 1 11:31:07 2018 UTC (6 years, 3 months ago) by tony
File size:	4751 byte(s)
Log Message:	Fixes merged into public release
#	User	Rev	Content
1	tony	5	object GeneratorEditor: TGeneratorEditor
2	tony	7	Left = 334
3	tony	5	Height = 374
4	tony	7	Top = 239
5	tony	5	Width = 478
6			ActiveControl = Button1
7			Caption = 'Define Generator'
8			ClientHeight = 374
9			ClientWidth = 478
10			OnClose = FormClose
11			OnShow = FormShow
12	tony	67	Position = poScreenCenter
13	tony	80	LCLVersion = '1.8.1.0'
14	tony	5	object Bevel1: TBevel
15			Left = 16
16			Height = 336
17			Top = 16
18			Width = 355
19			end
20			object Label1: TLabel
21			Left = 32
22	tony	67	Height = 14
23	tony	7	Top = 40
24	tony	67	Width = 99
25	tony	5	Caption = 'Generator Name'
26			ParentColor = False
27			end
28			object Label2: TLabel
29			Left = 32
30	tony	67	Height = 14
31	tony	5	Top = 192
32	tony	67	Width = 66
33	tony	5	Caption = 'Field Name'
34			ParentColor = False
35			end
36			object Label3: TLabel
37			Left = 35
38	tony	67	Height = 14
39	tony	5	Top = 269
40	tony	67	Width = 82
41	tony	5	Caption = 'Increment By'
42			ParentColor = False
43			end
44			object Button1: TButton
45			Left = 392
46			Height = 30
47			Top = 24
48			Width = 75
49			Caption = 'OK'
50			Default = True
51			ModalResult = 1
52			TabOrder = 0
53			end
54			object Button2: TButton
55			Left = 392
56			Height = 30
57			Top = 64
58			Width = 75
59			Cancel = True
60			Caption = 'Cancel'
61			ModalResult = 2
62			TabOrder = 1
63			end
64			object OnNewRecord: TRadioButton
65			Left = 38
66			Height = 22
67			Top = 112
68	tony	67	Width = 116
69	tony	5	Caption = 'On New Record'
70			Checked = True
71	tony	80	TabOrder = 2
72	tony	7	TabStop = True
73	tony	5	end
74			object OnPost: TRadioButton
75			Left = 38
76			Height = 22
77			Top = 144
78	tony	67	Width = 70
79	tony	5	Caption = 'On Post'
80	tony	80	TabOrder = 3
81	tony	5	end
82			object IncrementBy: TEdit
83			Left = 39
84	tony	67	Height = 24
85	tony	5	Top = 292
86			Width = 52
87	tony	80	TabOrder = 4
88	tony	5	Text = 'IncrementBy'
89			end
90			object UpDown1: TUpDown
91			Left = 91
92	tony	67	Height = 24
93	tony	5	Top = 292
94			Width = 17
95			Associate = IncrementBy
96			Min = 0
97			Position = 0
98	tony	80	TabOrder = 5
99	tony	5	Wrap = False
100			end
101	tony	80	object GeneratorNames: TIBLookupComboEditBox
102			Left = 33
103			Height = 27
104			Top = 56
105			Width = 313
106			OwnerDrawEditable = False
107			KeyField = 'RDB$GENERATOR_NAME'
108			ListField = 'RDB$GENERATOR_NAME'
109			ListFieldIndex = 0
110			ListSource = GeneratorSource
111			LookupCache = False
112			ScrollListDataset = True
113			TabOrder = 6
114			AutoInsert = False
115			AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
116			ItemHeight = 0
117			end
118			object FieldNames: TIBLookupComboEditBox
119			Left = 33
120			Height = 27
121			Top = 208
122			Width = 303
123			OwnerDrawEditable = False
124			KeyField = 'ColumnName'
125			ListField = 'ColumnName'
126			ListFieldIndex = 0
127			ListSource = PrimaryKeySource
128			LookupCache = False
129			ScrollListDataset = True
130			TabOrder = 7
131			AutoInsert = False
132			AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
133			ItemHeight = 0
134			end
135			object SQLTransaction: TIBTransaction
136	tony	7	Active = False
137	tony	80	Params.Strings = (
138			'read'
139			'consistency'
140			)
141			left = 400
142			top = 264
143	tony	7	end
144	tony	80	object GeneratorQuery: TIBQuery
145			AllowAutoActivateTransaction = False
146			Transaction = SQLTransaction
147			BufferChunks = 1000
148			CachedUpdates = False
149			GenerateParamNames = False
150			GeneratorField.ApplyOnEvent = gaeOnNewRecord
151			SQL.Strings = (
152			'Select RDB$GENERATOR_NAME FROM RDB$GENERATORS '
153			'Where RDB$SYSTEM_FLAG = 0'
154			'Order by 1 asc'
155			)
156			Params = <>
157			DataSetCloseAction = dcDiscardChanges
158			left = 269
159			top = 322
160			end
161			object GeneratorSource: TDataSource
162			DataSet = GeneratorQuery
163			left = 176
164			top = 322
165			end
166			object PrimaryKeys: TIBQuery
167			AllowAutoActivateTransaction = False
168			Transaction = SQLTransaction
169			BeforeOpen = PrimaryKeysBeforeOpen
170			BufferChunks = 1000
171			CachedUpdates = False
172			GenerateParamNames = False
173			GeneratorField.ApplyOnEvent = gaeOnNewRecord
174			SQL.Strings = (
175			'Select Trim(S.RDB$FIELD_NAME) as ColumnName From (Select '
176			'RDB$INDEX_NAME,RDB$FIELD_NAME FROM '
177			'RDB$INDEX_SEGMENTS Order by RDB$FIELD_POSITION ASC) S '
178			'JOIN RDB$RELATION_CONSTRAINTS C On C.RDB$INDEX_NAME '
179			'= S.RDB$INDEX_NAME Where C.RDB$CONSTRAINT_TYPE = '
180			'''PRIMARY KEY'' and RDB$RELATION_NAME = '
181			':RDB$RELATION_NAME'
182			)
183			Params = <
184			item
185			DataType = ftUnknown
186			Name = 'RDB$RELATION_NAME'
187			ParamType = ptInput
188			end>
189			DataSetCloseAction = dcDiscardChanges
190			left = 269
191			top = 264
192			ParamData = <
193			item
194			DataType = ftUnknown
195			Name = 'RDB$RELATION_NAME'
196			ParamType = ptInput
197			end>
198			end
199			object PrimaryKeySource: TDataSource
200			DataSet = PrimaryKeys
201			left = 160
202			top = 264
203			end
204			object IdentifyStatementSQL: TIBSQL
205			GenerateParamNames = False
206			UniqueParamNames = False
207			ParamCheck = True
208			Transaction = SQLTransaction
209			left = 400
210			top = 192
211			end
212	tony	5	end