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 = '2.0.7.0'
  object Bevel1: TBevel
    Left = 16
    Height = 336
    Top = 16
    Width = 355
  end
  object Label1: TLabel
    Left = 32
    Height = 15
    Top = 40
    Width = 99
    Caption = 'Generator Name'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 32
    Height = 15
    Top = 192
    Width = 66
    Caption = 'Field Name'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 35
    Height = 15
    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 = 25
    Top = 292
    Width = 52
    TabOrder = 4
    Text = 'IncrementBy'
  end
  object UpDown1: TUpDown
    Left = 91
    Height = 25
    Top = 292
    Width = 17
    Associate = IncrementBy
    Min = 0
    Position = 0
    TabOrder = 5
  end
  object GeneratorNames: TIBLookupComboEditBox
    Left = 33
    Height = 27
    Top = 56
    Width = 313
    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
    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
    CaseSensitiveParameterNames = False
    EnableStatistics = False
    GenerateParamNames = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    MasterDetailDelay = 0
    SQL.Strings = (
      'Select Trim(RDB$GENERATOR_NAME) as 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
    CaseSensitiveParameterNames = False
    EnableStatistics = False
    GenerateParamNames = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    MasterDetailDelay = 0
    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
    CaseSensitiveParameterNames = False
    GenerateParamNames = False
    UniqueParamNames = False
    ParamCheck = True
    Transaction = SQLTransaction
    left = 400
    top = 192
  end
end
Revision:	380
Committed:	Mon Jan 10 10:13:17 2022 UTC (2 years, 10 months ago) by tony
File size:	4906 byte(s)
Log Message:	propset for eol-style
#	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	293	LCLVersion = '2.0.7.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	293	Height = 15
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	293	Height = 15
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	293	Height = 15
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	293	Height = 25
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	293	Height = 25
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	end
100	tony	80	object GeneratorNames: TIBLookupComboEditBox
101			Left = 33
102			Height = 27
103			Top = 56
104			Width = 313
105			KeyField = 'RDB$GENERATOR_NAME'
106			ListField = 'RDB$GENERATOR_NAME'
107			ListFieldIndex = 0
108			ListSource = GeneratorSource
109			LookupCache = False
110			ScrollListDataset = True
111			TabOrder = 6
112			AutoInsert = False
113			AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
114			ItemHeight = 0
115			end
116			object FieldNames: TIBLookupComboEditBox
117			Left = 33
118			Height = 27
119			Top = 208
120			Width = 303
121			KeyField = 'ColumnName'
122			ListField = 'ColumnName'
123			ListFieldIndex = 0
124			ListSource = PrimaryKeySource
125			LookupCache = False
126			ScrollListDataset = True
127			TabOrder = 7
128			AutoInsert = False
129			AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
130			ItemHeight = 0
131			end
132			object SQLTransaction: TIBTransaction
133	tony	7	Active = False
134	tony	80	Params.Strings = (
135			'read'
136			'consistency'
137			)
138			left = 400
139			top = 264
140	tony	7	end
141	tony	80	object GeneratorQuery: TIBQuery
142			AllowAutoActivateTransaction = False
143			Transaction = SQLTransaction
144			BufferChunks = 1000
145			CachedUpdates = False
146	tony	293	CaseSensitiveParameterNames = False
147			EnableStatistics = False
148	tony	80	GenerateParamNames = False
149			GeneratorField.ApplyOnEvent = gaeOnNewRecord
150	tony	293	MasterDetailDelay = 0
151	tony	80	SQL.Strings = (
152	tony	293	'Select Trim(RDB$GENERATOR_NAME) as RDB$GENERATOR_NAME FROM RDB$GENERATORS'
153	tony	80	'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	tony	293	CaseSensitiveParameterNames = False
173			EnableStatistics = False
174	tony	80	GenerateParamNames = False
175			GeneratorField.ApplyOnEvent = gaeOnNewRecord
176	tony	293	MasterDetailDelay = 0
177	tony	80	SQL.Strings = (
178			'Select Trim(S.RDB$FIELD_NAME) as ColumnName From (Select '
179			'RDB$INDEX_NAME,RDB$FIELD_NAME FROM '
180			'RDB$INDEX_SEGMENTS Order by RDB$FIELD_POSITION ASC) S '
181			'JOIN RDB$RELATION_CONSTRAINTS C On C.RDB$INDEX_NAME '
182			'= S.RDB$INDEX_NAME Where C.RDB$CONSTRAINT_TYPE = '
183			'''PRIMARY KEY'' and RDB$RELATION_NAME = '
184			':RDB$RELATION_NAME'
185			)
186			Params = <
187			item
188			DataType = ftUnknown
189			Name = 'RDB$RELATION_NAME'
190			ParamType = ptInput
191			end>
192			DataSetCloseAction = dcDiscardChanges
193			left = 269
194			top = 264
195			ParamData = <
196			item
197			DataType = ftUnknown
198			Name = 'RDB$RELATION_NAME'
199			ParamType = ptInput
200			end>
201			end
202			object PrimaryKeySource: TDataSource
203			DataSet = PrimaryKeys
204			left = 160
205			top = 264
206			end
207			object IdentifyStatementSQL: TIBSQL
208	tony	293	CaseSensitiveParameterNames = False
209	tony	80	GenerateParamNames = False
210			UniqueParamNames = False
211			ParamCheck = True
212			Transaction = SQLTransaction
213			left = 400
214			top = 192
215			end
216	tony	5	end