10 |
|
OnClose = FormClose |
11 |
|
OnShow = FormShow |
12 |
|
Position = poScreenCenter |
13 |
< |
LCLVersion = '1.8.1.0' |
13 |
> |
LCLVersion = '2.0.7.0' |
14 |
|
object Bevel1: TBevel |
15 |
|
Left = 16 |
16 |
|
Height = 336 |
19 |
|
end |
20 |
|
object Label1: TLabel |
21 |
|
Left = 32 |
22 |
< |
Height = 14 |
22 |
> |
Height = 15 |
23 |
|
Top = 40 |
24 |
|
Width = 99 |
25 |
|
Caption = 'Generator Name' |
27 |
|
end |
28 |
|
object Label2: TLabel |
29 |
|
Left = 32 |
30 |
< |
Height = 14 |
30 |
> |
Height = 15 |
31 |
|
Top = 192 |
32 |
|
Width = 66 |
33 |
|
Caption = 'Field Name' |
35 |
|
end |
36 |
|
object Label3: TLabel |
37 |
|
Left = 35 |
38 |
< |
Height = 14 |
38 |
> |
Height = 15 |
39 |
|
Top = 269 |
40 |
|
Width = 82 |
41 |
|
Caption = 'Increment By' |
81 |
|
end |
82 |
|
object IncrementBy: TEdit |
83 |
|
Left = 39 |
84 |
< |
Height = 24 |
84 |
> |
Height = 25 |
85 |
|
Top = 292 |
86 |
|
Width = 52 |
87 |
|
TabOrder = 4 |
89 |
|
end |
90 |
|
object UpDown1: TUpDown |
91 |
|
Left = 91 |
92 |
< |
Height = 24 |
92 |
> |
Height = 25 |
93 |
|
Top = 292 |
94 |
|
Width = 17 |
95 |
|
Associate = IncrementBy |
96 |
|
Min = 0 |
97 |
|
Position = 0 |
98 |
|
TabOrder = 5 |
99 |
– |
Wrap = False |
99 |
|
end |
100 |
|
object GeneratorNames: TIBLookupComboEditBox |
101 |
|
Left = 33 |
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 RDB$GENERATOR_NAME FROM RDB$GENERATORS ' |
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 |
|
) |
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 ' |
205 |
|
top = 264 |
206 |
|
end |
207 |
|
object IdentifyStatementSQL: TIBSQL |
208 |
+ |
CaseSensitiveParameterNames = False |
209 |
|
GenerateParamNames = False |
210 |
|
UniqueParamNames = False |
211 |
|
ParamCheck = True |