1 |
object GeneratorEditor: TGeneratorEditor
|
2 |
Left = 334
|
3 |
Height = 374
|
4 |
Top = 239
|
5 |
Width = 478
|
6 |
ActiveControl = Button1
|
7 |
Caption = 'Define Generator'
|
8 |
ClientHeight = 374
|
9 |
ClientWidth = 478
|
10 |
OnClose = FormClose
|
11 |
OnShow = FormShow
|
12 |
Position = poScreenCenter
|
13 |
LCLVersion = '1.8.1.0'
|
14 |
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 |
Height = 14
|
23 |
Top = 40
|
24 |
Width = 99
|
25 |
Caption = 'Generator Name'
|
26 |
ParentColor = False
|
27 |
end
|
28 |
object Label2: TLabel
|
29 |
Left = 32
|
30 |
Height = 14
|
31 |
Top = 192
|
32 |
Width = 66
|
33 |
Caption = 'Field Name'
|
34 |
ParentColor = False
|
35 |
end
|
36 |
object Label3: TLabel
|
37 |
Left = 35
|
38 |
Height = 14
|
39 |
Top = 269
|
40 |
Width = 82
|
41 |
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 |
Width = 116
|
69 |
Caption = 'On New Record'
|
70 |
Checked = True
|
71 |
TabOrder = 2
|
72 |
TabStop = True
|
73 |
end
|
74 |
object OnPost: TRadioButton
|
75 |
Left = 38
|
76 |
Height = 22
|
77 |
Top = 144
|
78 |
Width = 70
|
79 |
Caption = 'On Post'
|
80 |
TabOrder = 3
|
81 |
end
|
82 |
object IncrementBy: TEdit
|
83 |
Left = 39
|
84 |
Height = 24
|
85 |
Top = 292
|
86 |
Width = 52
|
87 |
TabOrder = 4
|
88 |
Text = 'IncrementBy'
|
89 |
end
|
90 |
object UpDown1: TUpDown
|
91 |
Left = 91
|
92 |
Height = 24
|
93 |
Top = 292
|
94 |
Width = 17
|
95 |
Associate = IncrementBy
|
96 |
Min = 0
|
97 |
Position = 0
|
98 |
TabOrder = 5
|
99 |
Wrap = False
|
100 |
end
|
101 |
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 |
Active = False
|
135 |
Params.Strings = (
|
136 |
'read'
|
137 |
'consistency'
|
138 |
)
|
139 |
left = 400
|
140 |
top = 264
|
141 |
end
|
142 |
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 |
end
|