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 = '2.0.7.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 = 15
|
23 |
Top = 40
|
24 |
Width = 99
|
25 |
Caption = 'Generator Name'
|
26 |
ParentColor = False
|
27 |
end
|
28 |
object Label2: TLabel
|
29 |
Left = 32
|
30 |
Height = 15
|
31 |
Top = 192
|
32 |
Width = 66
|
33 |
Caption = 'Field Name'
|
34 |
ParentColor = False
|
35 |
end
|
36 |
object Label3: TLabel
|
37 |
Left = 35
|
38 |
Height = 15
|
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 = 25
|
85 |
Top = 292
|
86 |
Width = 52
|
87 |
TabOrder = 4
|
88 |
Text = 'IncrementBy'
|
89 |
end
|
90 |
object UpDown1: TUpDown
|
91 |
Left = 91
|
92 |
Height = 25
|
93 |
Top = 292
|
94 |
Width = 17
|
95 |
Associate = IncrementBy
|
96 |
Min = 0
|
97 |
Position = 0
|
98 |
TabOrder = 5
|
99 |
end
|
100 |
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 |
Active = False
|
134 |
Params.Strings = (
|
135 |
'read'
|
136 |
'consistency'
|
137 |
)
|
138 |
left = 400
|
139 |
top = 264
|
140 |
end
|
141 |
object GeneratorQuery: TIBQuery
|
142 |
AllowAutoActivateTransaction = False
|
143 |
Transaction = SQLTransaction
|
144 |
BufferChunks = 1000
|
145 |
CachedUpdates = False
|
146 |
CaseSensitiveParameterNames = False
|
147 |
EnableStatistics = False
|
148 |
GenerateParamNames = False
|
149 |
GeneratorField.ApplyOnEvent = gaeOnNewRecord
|
150 |
MasterDetailDelay = 0
|
151 |
SQL.Strings = (
|
152 |
'Select Trim(RDB$GENERATOR_NAME) as 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 |
CaseSensitiveParameterNames = False
|
173 |
EnableStatistics = False
|
174 |
GenerateParamNames = False
|
175 |
GeneratorField.ApplyOnEvent = gaeOnNewRecord
|
176 |
MasterDetailDelay = 0
|
177 |
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 |
CaseSensitiveParameterNames = False
|
209 |
GenerateParamNames = False
|
210 |
UniqueParamNames = False
|
211 |
ParamCheck = True
|
212 |
Transaction = SQLTransaction
|
213 |
left = 400
|
214 |
top = 192
|
215 |
end
|
216 |
end
|