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
    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
    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:	89
Committed:	Mon Jan 1 11:31:32 2018 UTC (6 years, 3 months ago) by tony
File size:	4691 byte(s)
Log Message:	Update package unitsdir
#	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			KeyField = 'RDB$GENERATOR_NAME'
107			ListField = 'RDB$GENERATOR_NAME'
108			ListFieldIndex = 0
109			ListSource = GeneratorSource
110			LookupCache = False
111			ScrollListDataset = True
112			TabOrder = 6
113			AutoInsert = False
114			AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
115			ItemHeight = 0
116			end
117			object FieldNames: TIBLookupComboEditBox
118			Left = 33
119			Height = 27
120			Top = 208
121			Width = 303
122			KeyField = 'ColumnName'
123			ListField = 'ColumnName'
124			ListFieldIndex = 0
125			ListSource = PrimaryKeySource
126			LookupCache = False
127			ScrollListDataset = True
128			TabOrder = 7
129			AutoInsert = False
130			AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
131			ItemHeight = 0
132			end
133			object SQLTransaction: TIBTransaction
134	tony	7	Active = False
135	tony	80	Params.Strings = (
136			'read'
137			'consistency'
138			)
139			left = 400
140			top = 264
141	tony	7	end
142	tony	80	object GeneratorQuery: TIBQuery
143			AllowAutoActivateTransaction = False
144			Transaction = SQLTransaction
145			BufferChunks = 1000
146			CachedUpdates = False
147			GenerateParamNames = False
148			GeneratorField.ApplyOnEvent = gaeOnNewRecord
149			SQL.Strings = (
150			'Select RDB$GENERATOR_NAME FROM RDB$GENERATORS '
151			'Where RDB$SYSTEM_FLAG = 0'
152			'Order by 1 asc'
153			)
154			Params = <>
155			DataSetCloseAction = dcDiscardChanges
156			left = 269
157			top = 322
158			end
159			object GeneratorSource: TDataSource
160			DataSet = GeneratorQuery
161			left = 176
162			top = 322
163			end
164			object PrimaryKeys: TIBQuery
165			AllowAutoActivateTransaction = False
166			Transaction = SQLTransaction
167			BeforeOpen = PrimaryKeysBeforeOpen
168			BufferChunks = 1000
169			CachedUpdates = False
170			GenerateParamNames = False
171			GeneratorField.ApplyOnEvent = gaeOnNewRecord
172			SQL.Strings = (
173			'Select Trim(S.RDB$FIELD_NAME) as ColumnName From (Select '
174			'RDB$INDEX_NAME,RDB$FIELD_NAME FROM '
175			'RDB$INDEX_SEGMENTS Order by RDB$FIELD_POSITION ASC) S '
176			'JOIN RDB$RELATION_CONSTRAINTS C On C.RDB$INDEX_NAME '
177			'= S.RDB$INDEX_NAME Where C.RDB$CONSTRAINT_TYPE = '
178			'''PRIMARY KEY'' and RDB$RELATION_NAME = '
179			':RDB$RELATION_NAME'
180			)
181			Params = <
182			item
183			DataType = ftUnknown
184			Name = 'RDB$RELATION_NAME'
185			ParamType = ptInput
186			end>
187			DataSetCloseAction = dcDiscardChanges
188			left = 269
189			top = 264
190			ParamData = <
191			item
192			DataType = ftUnknown
193			Name = 'RDB$RELATION_NAME'
194			ParamType = ptInput
195			end>
196			end
197			object PrimaryKeySource: TDataSource
198			DataSet = PrimaryKeys
199			left = 160
200			top = 264
201			end
202			object IdentifyStatementSQL: TIBSQL
203			GenerateParamNames = False
204			UniqueParamNames = False
205			ParamCheck = True
206			Transaction = SQLTransaction
207			left = 400
208			top = 192
209			end
210	tony	5	end