1 |
|
object Form1: TForm1 |
2 |
< |
Left = 461 |
3 |
< |
Height = 454 |
4 |
< |
Top = 312 |
5 |
< |
Width = 743 |
6 |
< |
Caption = 'Form1' |
7 |
< |
ClientHeight = 454 |
8 |
< |
ClientWidth = 743 |
2 |
> |
Left = 439 |
3 |
> |
Height = 482 |
4 |
> |
Top = 350 |
5 |
> |
Width = 932 |
6 |
> |
Caption = 'Employee List' |
7 |
> |
ClientHeight = 482 |
8 |
> |
ClientWidth = 932 |
9 |
|
OnClose = FormClose |
10 |
|
OnShow = FormShow |
11 |
< |
LCLVersion = '0.9.30.1' |
12 |
< |
object DBGrid1: TDBGrid |
13 |
< |
Left = 8 |
14 |
< |
Height = 375 |
15 |
< |
Top = 24 |
16 |
< |
Width = 632 |
17 |
< |
Color = clWindow |
18 |
< |
Columns = < |
19 |
< |
item |
20 |
< |
Title.Alignment = taCenter |
21 |
< |
Title.Caption = 'Last Name' |
22 |
< |
Width = 150 |
23 |
< |
FieldName = 'LAST_NAME' |
24 |
< |
end |
25 |
< |
item |
26 |
< |
Title.Alignment = taCenter |
27 |
< |
Title.Caption = 'First Name' |
28 |
< |
Width = 150 |
29 |
< |
FieldName = 'FIRST_NAME' |
30 |
< |
end |
31 |
< |
item |
32 |
< |
Title.Alignment = taCenter |
33 |
< |
Title.Caption = 'Employee No.' |
34 |
< |
Width = 100 |
35 |
< |
FieldName = 'EMP_NO' |
36 |
< |
end |
37 |
< |
item |
38 |
< |
Alignment = taCenter |
39 |
< |
Title.Alignment = taCenter |
40 |
< |
Title.Caption = 'Started' |
41 |
< |
Width = 80 |
42 |
< |
FieldName = 'HIRE_DATE' |
43 |
< |
end |
44 |
< |
item |
45 |
< |
Title.Alignment = taCenter |
46 |
< |
Title.Caption = 'Salary' |
47 |
< |
Width = 100 |
48 |
< |
FieldName = 'SALARY' |
49 |
< |
end> |
50 |
< |
DataSource = Datasource1 |
51 |
< |
TabOrder = 0 |
52 |
< |
OnDblClick = DBGrid1DblClick |
53 |
< |
end |
11 |
> |
LCLVersion = '1.6.0.4' |
12 |
|
object Button1: TButton |
13 |
< |
Left = 656 |
13 |
> |
Left = 845 |
14 |
|
Height = 25 |
15 |
< |
Top = 24 |
15 |
> |
Top = 48 |
16 |
|
Width = 75 |
17 |
|
Action = AddEmployee |
18 |
< |
TabOrder = 1 |
18 |
> |
Anchors = [akTop, akRight] |
19 |
> |
TabOrder = 0 |
20 |
|
end |
21 |
|
object Button2: TButton |
22 |
< |
Left = 656 |
22 |
> |
Left = 845 |
23 |
|
Height = 25 |
24 |
< |
Top = 62 |
24 |
> |
Top = 86 |
25 |
|
Width = 75 |
26 |
|
Action = EditEmployee |
27 |
< |
TabOrder = 2 |
27 |
> |
Anchors = [akTop, akRight] |
28 |
> |
TabOrder = 1 |
29 |
|
end |
30 |
|
object Button3: TButton |
31 |
< |
Left = 656 |
31 |
> |
Left = 845 |
32 |
|
Height = 25 |
33 |
< |
Top = 101 |
33 |
> |
Top = 125 |
34 |
|
Width = 75 |
35 |
|
Action = DeleteEmployee |
36 |
+ |
Anchors = [akTop, akRight] |
37 |
+ |
TabOrder = 2 |
38 |
+ |
end |
39 |
+ |
object Label1: TLabel |
40 |
+ |
Left = 17 |
41 |
+ |
Height = 15 |
42 |
+ |
Top = 14 |
43 |
+ |
Width = 87 |
44 |
+ |
Caption = 'Started Before' |
45 |
+ |
ParentColor = False |
46 |
+ |
end |
47 |
+ |
object BeforeDate: TDateEdit |
48 |
+ |
Left = 112 |
49 |
+ |
Height = 25 |
50 |
+ |
Top = 8 |
51 |
+ |
Width = 80 |
52 |
+ |
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] |
53 |
+ |
OKCaption = 'OK' |
54 |
+ |
CancelCaption = 'Cancel' |
55 |
+ |
DateOrder = doNone |
56 |
+ |
ButtonWidth = 23 |
57 |
+ |
NumGlyphs = 1 |
58 |
+ |
MaxLength = 0 |
59 |
+ |
OnChange = BeforeDateChange |
60 |
|
TabOrder = 3 |
61 |
|
end |
62 |
< |
object Button4: TButton |
63 |
< |
Left = 488 |
62 |
> |
object Label2: TLabel |
63 |
> |
Left = 241 |
64 |
> |
Height = 15 |
65 |
> |
Top = 14 |
66 |
> |
Width = 78 |
67 |
> |
Caption = 'Started After' |
68 |
> |
ParentColor = False |
69 |
> |
end |
70 |
> |
object AfterDate: TDateEdit |
71 |
> |
Left = 333 |
72 |
|
Height = 25 |
73 |
< |
Top = 416 |
74 |
< |
Width = 75 |
75 |
< |
Action = SaveChanges |
73 |
> |
Top = 8 |
74 |
> |
Width = 80 |
75 |
> |
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] |
76 |
> |
OKCaption = 'OK' |
77 |
> |
CancelCaption = 'Cancel' |
78 |
> |
DateOrder = doNone |
79 |
> |
ButtonWidth = 23 |
80 |
> |
NumGlyphs = 1 |
81 |
> |
MaxLength = 0 |
82 |
> |
OnChange = BeforeDateChange |
83 |
|
TabOrder = 4 |
84 |
|
end |
85 |
< |
object Button5: TButton |
86 |
< |
Left = 568 |
87 |
< |
Height = 25 |
88 |
< |
Top = 416 |
89 |
< |
Width = 75 |
90 |
< |
Action = CancelChanges |
85 |
> |
object Panel1: TPanel |
86 |
> |
Left = 12 |
87 |
> |
Height = 434 |
88 |
> |
Top = 42 |
89 |
> |
Width = 810 |
90 |
> |
Anchors = [akTop, akLeft, akRight, akBottom] |
91 |
> |
BevelOuter = bvNone |
92 |
> |
ClientHeight = 434 |
93 |
> |
ClientWidth = 810 |
94 |
> |
Color = clBackground |
95 |
> |
ParentColor = False |
96 |
|
TabOrder = 5 |
97 |
+ |
object IBDynamicGrid1: TIBDynamicGrid |
98 |
+ |
Left = 0 |
99 |
+ |
Height = 384 |
100 |
+ |
Top = 0 |
101 |
+ |
Width = 810 |
102 |
+ |
Align = alClient |
103 |
+ |
Color = clWindow |
104 |
+ |
Columns = < |
105 |
+ |
item |
106 |
+ |
Title.Alignment = taCenter |
107 |
+ |
Title.Caption = 'Last Name' |
108 |
+ |
Width = 100 |
109 |
+ |
FieldName = 'LAST_NAME' |
110 |
+ |
AutoSizeColumn = False |
111 |
+ |
InitialSortColumn = False |
112 |
+ |
DBLookupProperties.ItemHeight = 0 |
113 |
+ |
DBLookupProperties.ItemWidth = 0 |
114 |
+ |
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
115 |
+ |
end |
116 |
+ |
item |
117 |
+ |
Title.Alignment = taCenter |
118 |
+ |
Title.Caption = 'First Name' |
119 |
+ |
Width = 100 |
120 |
+ |
FieldName = 'FIRST_NAME' |
121 |
+ |
AutoSizeColumn = False |
122 |
+ |
InitialSortColumn = False |
123 |
+ |
DBLookupProperties.ItemHeight = 0 |
124 |
+ |
DBLookupProperties.ItemWidth = 0 |
125 |
+ |
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
126 |
+ |
end |
127 |
+ |
item |
128 |
+ |
Alignment = taCenter |
129 |
+ |
Title.Alignment = taCenter |
130 |
+ |
Title.Caption = 'Emp No.' |
131 |
+ |
Width = 60 |
132 |
+ |
FieldName = 'EMP_NO' |
133 |
+ |
AutoSizeColumn = False |
134 |
+ |
InitialSortColumn = False |
135 |
+ |
DBLookupProperties.ItemHeight = 0 |
136 |
+ |
DBLookupProperties.ItemWidth = 0 |
137 |
+ |
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
138 |
+ |
end |
139 |
+ |
item |
140 |
+ |
ReadOnly = True |
141 |
+ |
Title.Alignment = taCenter |
142 |
+ |
Title.Caption = 'Dept' |
143 |
+ |
Width = 200 |
144 |
+ |
FieldName = 'DEPT_PATH' |
145 |
+ |
AutoSizeColumn = True |
146 |
+ |
InitialSortColumn = False |
147 |
+ |
DBLookupProperties.ItemHeight = 0 |
148 |
+ |
DBLookupProperties.ItemWidth = 0 |
149 |
+ |
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
150 |
+ |
end |
151 |
+ |
item |
152 |
+ |
ButtonStyle = cbsPickList |
153 |
+ |
Title.Alignment = taCenter |
154 |
+ |
Title.Caption = 'Located' |
155 |
+ |
Width = 100 |
156 |
+ |
FieldName = 'JOB_COUNTRY' |
157 |
+ |
AutoSizeColumn = False |
158 |
+ |
InitialSortColumn = False |
159 |
+ |
DBLookupProperties.ItemHeight = 0 |
160 |
+ |
DBLookupProperties.ItemWidth = 0 |
161 |
+ |
DBLookupProperties.ListSource = CountrySource |
162 |
+ |
DBLookupProperties.ListField = 'COUNTRY' |
163 |
+ |
DBLookupProperties.AutoInsert = False |
164 |
+ |
DBLookupProperties.AutoComplete = False |
165 |
+ |
end |
166 |
+ |
item |
167 |
+ |
Title.Alignment = taCenter |
168 |
+ |
Title.Caption = 'Started' |
169 |
+ |
Width = 80 |
170 |
+ |
FieldName = 'HIRE_DATE' |
171 |
+ |
AutoSizeColumn = False |
172 |
+ |
InitialSortColumn = False |
173 |
+ |
DBLookupProperties.ItemHeight = 0 |
174 |
+ |
DBLookupProperties.ItemWidth = 0 |
175 |
+ |
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
176 |
+ |
end |
177 |
+ |
item |
178 |
+ |
Title.Alignment = taCenter |
179 |
+ |
Title.Caption = 'Salary' |
180 |
+ |
Width = 120 |
181 |
+ |
FieldName = 'SALARY' |
182 |
+ |
ColumnTotalsControl = DBText1 |
183 |
+ |
AutoSizeColumn = False |
184 |
+ |
InitialSortColumn = False |
185 |
+ |
DBLookupProperties.ItemHeight = 0 |
186 |
+ |
DBLookupProperties.ItemWidth = 0 |
187 |
+ |
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
188 |
+ |
end> |
189 |
+ |
DataSource = EmployeeSource |
190 |
+ |
Scrollbars = ssAutoBoth |
191 |
+ |
TabOrder = 0 |
192 |
+ |
EditorPanel = EmployeeEditorPanel |
193 |
+ |
ExpandEditorPanelBelowRow = False |
194 |
+ |
Descending = False |
195 |
+ |
EditorBorderStyle = bsSingle |
196 |
+ |
DefaultPositionAtEnd = False |
197 |
+ |
IndexFieldNames = 'EMP_NO' |
198 |
+ |
end |
199 |
+ |
object Panel2: TPanel |
200 |
+ |
Left = 0 |
201 |
+ |
Height = 50 |
202 |
+ |
Top = 384 |
203 |
+ |
Width = 810 |
204 |
+ |
Align = alBottom |
205 |
+ |
BevelOuter = bvNone |
206 |
+ |
ClientHeight = 50 |
207 |
+ |
ClientWidth = 810 |
208 |
+ |
ParentColor = False |
209 |
+ |
TabOrder = 1 |
210 |
+ |
object Button5: TButton |
211 |
+ |
Left = 80 |
212 |
+ |
Height = 25 |
213 |
+ |
Top = 16 |
214 |
+ |
Width = 75 |
215 |
+ |
Action = CancelChanges |
216 |
+ |
Anchors = [akLeft, akBottom] |
217 |
+ |
TabOrder = 0 |
218 |
+ |
end |
219 |
+ |
object Button4: TButton |
220 |
+ |
Left = 1 |
221 |
+ |
Height = 25 |
222 |
+ |
Top = 16 |
223 |
+ |
Width = 75 |
224 |
+ |
Action = SaveChanges |
225 |
+ |
Anchors = [akLeft, akBottom] |
226 |
+ |
TabOrder = 1 |
227 |
+ |
end |
228 |
+ |
object DBText1: TDBText |
229 |
+ |
Left = 688 |
230 |
+ |
Height = 27 |
231 |
+ |
Top = 16 |
232 |
+ |
Width = 49 |
233 |
+ |
Alignment = taRightJustify |
234 |
+ |
Anchors = [akTop, akLeft, akBottom] |
235 |
+ |
DataField = 'TOTALSALARIES' |
236 |
+ |
DataSource = TotalsSource |
237 |
+ |
ParentColor = False |
238 |
+ |
end |
239 |
+ |
end |
240 |
+ |
object EmployeeEditorPanel: TPanel |
241 |
+ |
Left = 8 |
242 |
+ |
Height = 80 |
243 |
+ |
Top = 112 |
244 |
+ |
Width = 784 |
245 |
+ |
BevelOuter = bvNone |
246 |
+ |
BorderWidth = 2 |
247 |
+ |
BorderStyle = bsSingle |
248 |
+ |
ClientHeight = 78 |
249 |
+ |
ClientWidth = 782 |
250 |
+ |
Color = clWindow |
251 |
+ |
ParentColor = False |
252 |
+ |
TabOrder = 2 |
253 |
+ |
Visible = False |
254 |
+ |
object Label3: TLabel |
255 |
+ |
Left = 0 |
256 |
+ |
Height = 15 |
257 |
+ |
Top = 7 |
258 |
+ |
Width = 83 |
259 |
+ |
Caption = 'Employee No.' |
260 |
+ |
ParentColor = False |
261 |
+ |
end |
262 |
+ |
object DBEdit1: TDBEdit |
263 |
+ |
Left = 90 |
264 |
+ |
Height = 25 |
265 |
+ |
Top = 2 |
266 |
+ |
Width = 120 |
267 |
+ |
DataField = 'EMP_NO' |
268 |
+ |
DataSource = EmployeeSource |
269 |
+ |
CharCase = ecNormal |
270 |
+ |
MaxLength = 0 |
271 |
+ |
TabOrder = 0 |
272 |
+ |
end |
273 |
+ |
object Label4: TLabel |
274 |
+ |
Left = 12 |
275 |
+ |
Height = 15 |
276 |
+ |
Top = 32 |
277 |
+ |
Width = 64 |
278 |
+ |
Caption = 'First Name' |
279 |
+ |
ParentColor = False |
280 |
+ |
end |
281 |
+ |
object DBEdit2: TDBEdit |
282 |
+ |
Left = 90 |
283 |
+ |
Height = 25 |
284 |
+ |
Top = 24 |
285 |
+ |
Width = 120 |
286 |
+ |
DataField = 'FIRST_NAME' |
287 |
+ |
DataSource = EmployeeSource |
288 |
+ |
CharCase = ecNormal |
289 |
+ |
MaxLength = 0 |
290 |
+ |
TabOrder = 1 |
291 |
+ |
end |
292 |
+ |
object Label5: TLabel |
293 |
+ |
Left = 12 |
294 |
+ |
Height = 15 |
295 |
+ |
Top = 56 |
296 |
+ |
Width = 64 |
297 |
+ |
Caption = 'Last Name' |
298 |
+ |
ParentColor = False |
299 |
+ |
end |
300 |
+ |
object DBEdit3: TDBEdit |
301 |
+ |
Left = 90 |
302 |
+ |
Height = 25 |
303 |
+ |
Top = 46 |
304 |
+ |
Width = 120 |
305 |
+ |
DataField = 'LAST_NAME' |
306 |
+ |
DataSource = EmployeeSource |
307 |
+ |
CharCase = ecNormal |
308 |
+ |
MaxLength = 0 |
309 |
+ |
TabOrder = 2 |
310 |
+ |
end |
311 |
+ |
object Label6: TLabel |
312 |
+ |
Left = 216 |
313 |
+ |
Height = 15 |
314 |
+ |
Top = 7 |
315 |
+ |
Width = 77 |
316 |
+ |
Caption = 'Date Started' |
317 |
+ |
ParentColor = False |
318 |
+ |
end |
319 |
+ |
object IBDateEdit1: TDBDateEdit |
320 |
+ |
Left = 300 |
321 |
+ |
Height = 25 |
322 |
+ |
Top = 2 |
323 |
+ |
Width = 104 |
324 |
+ |
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] |
325 |
+ |
OKCaption = 'OK' |
326 |
+ |
CancelCaption = 'Cancel' |
327 |
+ |
DateOrder = doNone |
328 |
+ |
ButtonWidth = 23 |
329 |
+ |
AutoSelect = False |
330 |
+ |
NumGlyphs = 1 |
331 |
+ |
MaxLength = 0 |
332 |
+ |
TabOrder = 3 |
333 |
+ |
DataField = 'HIRE_DATE' |
334 |
+ |
DataSource = EmployeeSource |
335 |
+ |
end |
336 |
+ |
object Label7: TLabel |
337 |
+ |
Left = 252 |
338 |
+ |
Height = 15 |
339 |
+ |
Top = 32 |
340 |
+ |
Width = 37 |
341 |
+ |
Caption = 'Salary' |
342 |
+ |
ParentColor = False |
343 |
+ |
end |
344 |
+ |
object DBEdit4: TDBEdit |
345 |
+ |
Left = 300 |
346 |
+ |
Height = 25 |
347 |
+ |
Top = 24 |
348 |
+ |
Width = 104 |
349 |
+ |
DataField = 'SALARY' |
350 |
+ |
DataSource = EmployeeSource |
351 |
+ |
CharCase = ecNormal |
352 |
+ |
MaxLength = 0 |
353 |
+ |
TabOrder = 5 |
354 |
+ |
end |
355 |
+ |
object Label8: TLabel |
356 |
+ |
Left = 708 |
357 |
+ |
Height = 15 |
358 |
+ |
Top = 54 |
359 |
+ |
Width = 24 |
360 |
+ |
Anchors = [akTop, akRight] |
361 |
+ |
Caption = 'Ext.' |
362 |
+ |
ParentColor = False |
363 |
+ |
end |
364 |
+ |
object DBEdit5: TDBEdit |
365 |
+ |
Left = 732 |
366 |
+ |
Height = 25 |
367 |
+ |
Top = 48 |
368 |
+ |
Width = 40 |
369 |
+ |
DataField = 'PHONE_EXT' |
370 |
+ |
DataSource = EmployeeSource |
371 |
+ |
Anchors = [akTop, akRight] |
372 |
+ |
CharCase = ecNormal |
373 |
+ |
MaxLength = 0 |
374 |
+ |
TabOrder = 4 |
375 |
+ |
end |
376 |
+ |
object Label9: TLabel |
377 |
+ |
Left = 536 |
378 |
+ |
Height = 15 |
379 |
+ |
Top = 7 |
380 |
+ |
Width = 51 |
381 |
+ |
Caption = 'Location' |
382 |
+ |
ParentColor = False |
383 |
+ |
end |
384 |
+ |
object Label10: TLabel |
385 |
+ |
Left = 413 |
386 |
+ |
Height = 15 |
387 |
+ |
Top = 9 |
388 |
+ |
Width = 59 |
389 |
+ |
Caption = 'Job Grade' |
390 |
+ |
ParentColor = False |
391 |
+ |
end |
392 |
+ |
object JobGradeDBComboBox: TDBComboBox |
393 |
+ |
Left = 480 |
394 |
+ |
Height = 23 |
395 |
+ |
Top = 2 |
396 |
+ |
Width = 48 |
397 |
+ |
AutoSize = False |
398 |
+ |
DataField = 'JOB_GRADE' |
399 |
+ |
DataSource = EmployeeSource |
400 |
+ |
ItemHeight = 0 |
401 |
+ |
Items.Strings = ( |
402 |
+ |
'1' |
403 |
+ |
'2' |
404 |
+ |
'3' |
405 |
+ |
'4' |
406 |
+ |
'5' |
407 |
+ |
) |
408 |
+ |
MaxLength = 0 |
409 |
+ |
OnCloseUp = JobGradeDBComboBoxCloseUp |
410 |
+ |
Style = csDropDownList |
411 |
+ |
TabOrder = 6 |
412 |
+ |
end |
413 |
+ |
object Label11: TLabel |
414 |
+ |
Left = 536 |
415 |
+ |
Height = 15 |
416 |
+ |
Top = 32 |
417 |
+ |
Width = 48 |
418 |
+ |
Caption = 'Job Title' |
419 |
+ |
ParentColor = False |
420 |
+ |
end |
421 |
+ |
object Label12: TLabel |
422 |
+ |
Left = 256 |
423 |
+ |
Height = 15 |
424 |
+ |
Top = 54 |
425 |
+ |
Width = 33 |
426 |
+ |
Caption = 'Dept.' |
427 |
+ |
ParentColor = False |
428 |
+ |
end |
429 |
+ |
object SpeedButton1: TSpeedButton |
430 |
+ |
Left = 680 |
431 |
+ |
Height = 25 |
432 |
+ |
Top = 48 |
433 |
+ |
Width = 23 |
434 |
+ |
Action = SelectDept |
435 |
+ |
Anchors = [akTop, akRight] |
436 |
+ |
end |
437 |
+ |
object DBEdit6: TDBEdit |
438 |
+ |
Left = 300 |
439 |
+ |
Height = 25 |
440 |
+ |
Top = 48 |
441 |
+ |
Width = 372 |
442 |
+ |
DataField = 'DEPT_PATH' |
443 |
+ |
DataSource = EmployeeSource |
444 |
+ |
ReadOnly = True |
445 |
+ |
Anchors = [akTop, akLeft, akRight] |
446 |
+ |
CharCase = ecNormal |
447 |
+ |
MaxLength = 0 |
448 |
+ |
TabOrder = 7 |
449 |
+ |
end |
450 |
+ |
object IBLookupComboEditBox2: TIBLookupComboEditBox |
451 |
+ |
Left = 600 |
452 |
+ |
Height = 23 |
453 |
+ |
Top = 0 |
454 |
+ |
Width = 172 |
455 |
+ |
Anchors = [akTop, akLeft, akRight] |
456 |
+ |
AutoSize = False |
457 |
+ |
DataField = 'JOB_COUNTRY' |
458 |
+ |
DataSource = EmployeeSource |
459 |
+ |
KeyField = 'COUNTRY' |
460 |
+ |
ListField = 'COUNTRY' |
461 |
+ |
ListFieldIndex = 0 |
462 |
+ |
ListSource = CountrySource |
463 |
+ |
LookupCache = False |
464 |
+ |
Style = csDropDownList |
465 |
+ |
TabOrder = 8 |
466 |
+ |
AutoInsert = False |
467 |
+ |
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
468 |
+ |
ItemHeight = 0 |
469 |
+ |
end |
470 |
+ |
object IBLookupComboEditBox1: TIBLookupComboEditBox |
471 |
+ |
Left = 600 |
472 |
+ |
Height = 23 |
473 |
+ |
Top = 24 |
474 |
+ |
Width = 172 |
475 |
+ |
Anchors = [akTop, akLeft, akRight] |
476 |
+ |
AutoSize = False |
477 |
+ |
DataField = 'JOB_CODE' |
478 |
+ |
DataSource = EmployeeSource |
479 |
+ |
KeyField = 'JOB_CODE' |
480 |
+ |
ListField = 'JOB_TITLE' |
481 |
+ |
ListFieldIndex = 0 |
482 |
+ |
ListSource = JobCodeSource |
483 |
+ |
LookupCache = False |
484 |
+ |
Style = csDropDownList |
485 |
+ |
TabOrder = 9 |
486 |
+ |
AutoInsert = False |
487 |
+ |
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
488 |
+ |
ItemHeight = 0 |
489 |
+ |
end |
490 |
+ |
end |
491 |
+ |
end |
492 |
+ |
object Label13: TLabel |
493 |
+ |
Left = 456 |
494 |
+ |
Height = 15 |
495 |
+ |
Top = 14 |
496 |
+ |
Width = 79 |
497 |
+ |
Caption = 'Salary Range' |
498 |
+ |
ParentColor = False |
499 |
+ |
end |
500 |
+ |
object SalaryRange: TComboBox |
501 |
+ |
Left = 544 |
502 |
+ |
Height = 25 |
503 |
+ |
Top = 8 |
504 |
+ |
Width = 272 |
505 |
+ |
ItemHeight = 0 |
506 |
+ |
ItemIndex = 0 |
507 |
+ |
Items.Strings = ( |
508 |
+ |
'None Specified' |
509 |
+ |
'Below $40,000' |
510 |
+ |
'Between $40,000 and $100,000' |
511 |
+ |
'Above $100,000' |
512 |
+ |
) |
513 |
+ |
OnCloseUp = BeforeDateChange |
514 |
+ |
Style = csDropDownList |
515 |
+ |
TabOrder = 6 |
516 |
+ |
Text = 'None Specified' |
517 |
|
end |
518 |
|
object IBDatabase1: TIBDatabase |
519 |
< |
Connected = True |
96 |
< |
AfterConnect = IBDatabase1AfterConnect |
97 |
< |
BeforeDisconnect = IBDatabase1BeforeDisconnect |
519 |
> |
Connected = False |
520 |
|
AllowStreamedConnected = False |
521 |
|
DatabaseName = 'employee' |
522 |
|
Params.Strings = ( |
523 |
|
'user_name=SYSDBA' |
524 |
< |
'lc_ctype=UTF-8' |
524 |
> |
'lc_ctype=UTF8' |
525 |
|
) |
526 |
|
DefaultTransaction = IBTransaction1 |
527 |
|
IdleTimer = 0 |
528 |
|
TraceFlags = [] |
529 |
< |
left = 672 |
530 |
< |
top = 224 |
529 |
> |
UseDefaultSystemCodePage = True |
530 |
> |
left = 832 |
531 |
> |
top = 168 |
532 |
|
end |
533 |
|
object IBTransaction1: TIBTransaction |
534 |
|
Active = False |
538 |
|
'rec_version' |
539 |
|
'nowait' |
540 |
|
) |
541 |
< |
left = 672 |
542 |
< |
top = 256 |
541 |
> |
left = 872 |
542 |
> |
top = 168 |
543 |
|
end |
544 |
< |
object IBQuery1: TIBQuery |
544 |
> |
object EmployeeSource: TDataSource |
545 |
> |
DataSet = Employees |
546 |
> |
left = 832 |
547 |
> |
top = 336 |
548 |
> |
end |
549 |
> |
object ActionList1: TActionList |
550 |
> |
left = 832 |
551 |
> |
top = 416 |
552 |
> |
object AddEmployee: TAction |
553 |
> |
Caption = 'Add' |
554 |
> |
OnExecute = AddEmployeeExecute |
555 |
> |
end |
556 |
> |
object EditEmployee: TAction |
557 |
> |
Caption = 'Edit' |
558 |
> |
OnExecute = EditEmployeeExecute |
559 |
> |
OnUpdate = EditEmployeeUpdate |
560 |
> |
end |
561 |
> |
object DeleteEmployee: TAction |
562 |
> |
Caption = 'Delete' |
563 |
> |
OnExecute = DeleteEmployeeExecute |
564 |
> |
OnUpdate = EditEmployeeUpdate |
565 |
> |
end |
566 |
> |
object SaveChanges: TAction |
567 |
> |
Caption = 'Save' |
568 |
> |
OnExecute = SaveChangesExecute |
569 |
> |
OnUpdate = SaveChangesUpdate |
570 |
> |
end |
571 |
> |
object CancelChanges: TAction |
572 |
> |
Caption = 'Cancel' |
573 |
> |
OnExecute = CancelChangesExecute |
574 |
> |
OnUpdate = SaveChangesUpdate |
575 |
> |
end |
576 |
> |
object SelectDept: TAction |
577 |
> |
Caption = '...' |
578 |
> |
OnExecute = SelectDeptExecute |
579 |
> |
end |
580 |
> |
end |
581 |
> |
object CountrySource: TDataSource |
582 |
> |
DataSet = Countries |
583 |
> |
left = 832 |
584 |
> |
top = 296 |
585 |
> |
end |
586 |
> |
object TotalsQuery: TIBQuery |
587 |
|
Database = IBDatabase1 |
588 |
|
Transaction = IBTransaction1 |
589 |
< |
AfterDelete = IBQuery1AfterDelete |
125 |
< |
AfterOpen = IBQuery1AfterOpen |
126 |
< |
BeforeClose = IBQuery1BeforeClose |
127 |
< |
BeforeOpen = IBQuery1BeforeOpen |
128 |
< |
OnDeleteError = IBQuery1PostError |
129 |
< |
OnPostError = IBQuery1PostError |
589 |
> |
BeforeOpen = EmployeesBeforeOpen |
590 |
|
BufferChunks = 1000 |
591 |
|
CachedUpdates = False |
592 |
+ |
GenerateParamNames = False |
593 |
|
GeneratorField.ApplyOnEvent = gaeOnNewRecord |
594 |
|
SQL.Strings = ( |
595 |
< |
'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME From EMPLOYEE A' |
596 |
< |
'Order by LAST_NAME' |
595 |
> |
'Select sum(Salary) as TotalSalaries' |
596 |
> |
'From EMPLOYEE' |
597 |
|
) |
598 |
|
Params = <> |
599 |
< |
UpdateObject = IBUpdateSQL1 |
600 |
< |
AfterTransactionEnd = IBQuery1AfterTransactionEnd |
601 |
< |
left = 672 |
599 |
> |
DataSetCloseAction = dcDiscardChanges |
600 |
> |
left = 872 |
601 |
> |
top = 376 |
602 |
> |
object TotalsQueryTOTALSALARIES: TIBBCDField |
603 |
> |
DisplayWidth = 18 |
604 |
> |
FieldKind = fkData |
605 |
> |
FieldName = 'TOTALSALARIES' |
606 |
> |
Index = 0 |
607 |
> |
LookupCache = False |
608 |
> |
ProviderFlags = [pfInUpdate, pfInWhere] |
609 |
> |
ReadOnly = False |
610 |
> |
Required = False |
611 |
> |
OnGetText = EmployeesSALARYGetText |
612 |
> |
Precision = 18 |
613 |
> |
Currency = False |
614 |
> |
MaxValue = 0 |
615 |
> |
MinValue = 0 |
616 |
> |
Size = 2 |
617 |
> |
end |
618 |
> |
end |
619 |
> |
object TotalsSource: TDataSource |
620 |
> |
DataSet = TotalsQuery |
621 |
> |
left = 832 |
622 |
> |
top = 376 |
623 |
> |
end |
624 |
> |
object Employees: TIBDataSet |
625 |
> |
Database = IBDatabase1 |
626 |
> |
Transaction = IBTransaction1 |
627 |
> |
AfterDelete = EmployeesAfterDelete |
628 |
> |
AfterEdit = EmployeesAfterDelete |
629 |
> |
AfterInsert = EmployeesAfterInsert |
630 |
> |
AfterOpen = EmployeesAfterOpen |
631 |
> |
AfterPost = EmployeesAfterPost |
632 |
> |
AfterScroll = EmployeesAfterScroll |
633 |
> |
BeforeClose = EmployeesBeforeClose |
634 |
> |
BeforeOpen = EmployeesBeforeOpen |
635 |
> |
BufferChunks = 1000 |
636 |
> |
CachedUpdates = False |
637 |
> |
DeleteSQL.Strings = ( |
638 |
> |
'Delete From EMPLOYEE A' |
639 |
> |
'Where A.EMP_NO = :EMP_NO' |
640 |
> |
) |
641 |
> |
InsertSQL.Strings = ( |
642 |
> |
'Insert Into EMPLOYEE(EMP_NO, FIRST_NAME, LAST_NAME, PHONE_EXT, HIRE_DATE, DEPT_NO, JOB_CODE, JOB_GRADE, JOB_COUNTRY, SALARY)' |
643 |
> |
'Values(:EMP_NO, :FIRST_NAME, :LAST_NAME, :PHONE_EXT, :HIRE_DATE, :DEPT_NO, :JOB_CODE, :JOB_GRADE, :JOB_COUNTRY, :SALARY)' |
644 |
> |
) |
645 |
> |
RefreshSQL.Strings = ( |
646 |
> |
'with recursive Depts As (' |
647 |
> |
'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as VarChar(256)) as DEPT_PATH,' |
648 |
> |
'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH' |
649 |
> |
'From DEPARTMENT Where HEAD_DEPT is NULL ' |
650 |
> |
'UNION ALL' |
651 |
> |
'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH || '' / '' || DEPARTMENT as DEPT_PATH,' |
652 |
> |
'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH' |
653 |
> |
'From DEPARTMENT ' |
654 |
> |
'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO' |
655 |
> |
')' |
656 |
> |
'' |
657 |
> |
'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' |
658 |
> |
'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH' |
659 |
> |
'From EMPLOYEE A' |
660 |
> |
'JOIN Depts D On D.DEPT_NO = A.DEPT_NO' |
661 |
> |
'Where A.EMP_NO = :EMP_NO' |
662 |
> |
) |
663 |
> |
SelectSQL.Strings = ( |
664 |
> |
'with recursive Depts As (' |
665 |
> |
'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as VarChar(256)) as DEPT_PATH,' |
666 |
> |
'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH' |
667 |
> |
'From DEPARTMENT Where HEAD_DEPT is NULL ' |
668 |
> |
'UNION ALL' |
669 |
> |
'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH || '' / '' || DEPARTMENT as DEPT_PATH,' |
670 |
> |
'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH' |
671 |
> |
'From DEPARTMENT ' |
672 |
> |
'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO' |
673 |
> |
')' |
674 |
> |
'' |
675 |
> |
'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' |
676 |
> |
'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH' |
677 |
> |
'From EMPLOYEE A' |
678 |
> |
'JOIN Depts D On D.DEPT_NO = A.DEPT_NO' |
679 |
> |
) |
680 |
> |
ModifySQL.Strings = ( |
681 |
> |
'Update EMPLOYEE A Set '#13#10' A.DEPT_NO = :DEPT_NO,'#13#10' A.FIRST_NAME = :FIRST_NAME,'#13#10' A.HIRE_DATE = :HIRE_DATE,'#13#10' A.JOB_CODE = :JOB_CODE,'#13#10' A.JOB_COUNTRY = :JOB_COUNTRY,'#13#10' A.JOB_GRADE = :JOB_GRADE,'#13#10' A.LAST_NAME = :LAST_NAME,'#13#10' A.PHONE_EXT = :PHONE_EXT,'#13#10' A.SALARY = :SALARY' |
682 |
> |
'Where A.EMP_NO = :OLD_EMP_NO' |
683 |
> |
) |
684 |
> |
GeneratorField.Generator = 'EMP_NO_GEN' |
685 |
> |
GeneratorField.Field = 'EMP_NO' |
686 |
> |
GeneratorField.ApplyOnEvent = gaeOnNewRecord |
687 |
> |
GenerateParamNames = False |
688 |
> |
DataSetCloseAction = dcSaveChanges |
689 |
> |
AfterTransactionEnd = EmployeesAfterTransactionEnd |
690 |
> |
OnValidatePost = EmployeesValidatePost |
691 |
> |
left = 872 |
692 |
|
top = 336 |
693 |
< |
object IBQuery1EMP_NO: TSmallintField |
693 |
> |
object EmployeesEMP_NO: TSmallintField |
694 |
|
DisplayWidth = 10 |
695 |
|
FieldKind = fkData |
696 |
|
FieldName = 'EMP_NO' |
700 |
|
ReadOnly = False |
701 |
|
Required = True |
702 |
|
end |
703 |
< |
object IBQuery1FIRST_NAME: TIBStringField |
703 |
> |
object EmployeesFIRST_NAME: TIBStringField |
704 |
|
DisplayWidth = 15 |
705 |
|
FieldKind = fkData |
706 |
|
FieldName = 'FIRST_NAME' |
711 |
|
Required = True |
712 |
|
Size = 15 |
713 |
|
end |
714 |
< |
object IBQuery1LAST_NAME: TIBStringField |
714 |
> |
object EmployeesLAST_NAME: TIBStringField |
715 |
|
DisplayWidth = 20 |
716 |
|
FieldKind = fkData |
717 |
|
FieldName = 'LAST_NAME' |
721 |
|
ReadOnly = False |
722 |
|
Required = True |
723 |
|
end |
724 |
< |
object IBQuery1PHONE_EXT: TIBStringField |
724 |
> |
object EmployeesPHONE_EXT: TIBStringField |
725 |
> |
Alignment = taRightJustify |
726 |
|
DisplayWidth = 4 |
727 |
|
FieldKind = fkData |
728 |
|
FieldName = 'PHONE_EXT' |
733 |
|
Required = False |
734 |
|
Size = 4 |
735 |
|
end |
736 |
< |
object IBQuery1HIRE_DATE: TDateTimeField |
736 |
> |
object EmployeesHIRE_DATE: TDateTimeField |
737 |
|
DisplayWidth = 10 |
738 |
|
FieldKind = fkData |
739 |
|
FieldName = 'HIRE_DATE' |
743 |
|
ReadOnly = False |
744 |
|
Required = True |
745 |
|
end |
746 |
< |
object IBQuery1DEPT_NO: TIBStringField |
746 |
> |
object EmployeesDEPT_NO: TIBStringField |
747 |
|
DisplayWidth = 3 |
748 |
|
FieldKind = fkData |
749 |
|
FieldName = 'DEPT_NO' |
754 |
|
Required = True |
755 |
|
Size = 3 |
756 |
|
end |
757 |
< |
object IBQuery1JOB_CODE: TIBStringField |
757 |
> |
object EmployeesJOB_CODE: TIBStringField |
758 |
|
DisplayWidth = 5 |
759 |
|
FieldKind = fkData |
760 |
|
FieldName = 'JOB_CODE' |
763 |
|
ProviderFlags = [pfInUpdate, pfInWhere] |
764 |
|
ReadOnly = False |
765 |
|
Required = True |
766 |
+ |
OnChange = EmployeesJOB_CODEChange |
767 |
|
Size = 5 |
768 |
|
end |
769 |
< |
object IBQuery1JOB_GRADE: TSmallintField |
769 |
> |
object EmployeesJOB_GRADE: TSmallintField |
770 |
|
DisplayWidth = 10 |
771 |
|
FieldKind = fkData |
772 |
|
FieldName = 'JOB_GRADE' |
775 |
|
ProviderFlags = [pfInUpdate, pfInWhere] |
776 |
|
ReadOnly = False |
777 |
|
Required = True |
778 |
+ |
OnChange = EmployeesJOB_GRADEChange |
779 |
|
end |
780 |
< |
object IBQuery1JOB_COUNTRY: TIBStringField |
780 |
> |
object EmployeesJOB_COUNTRY: TIBStringField |
781 |
|
DisplayWidth = 15 |
782 |
|
FieldKind = fkData |
783 |
|
FieldName = 'JOB_COUNTRY' |
788 |
|
Required = True |
789 |
|
Size = 15 |
790 |
|
end |
791 |
< |
object IBQuery1SALARY: TIBBCDField |
791 |
> |
object EmployeesSALARY: TIBBCDField |
792 |
|
DisplayWidth = 18 |
793 |
|
FieldKind = fkData |
794 |
|
FieldName = 'SALARY' |
797 |
|
ProviderFlags = [pfInUpdate, pfInWhere] |
798 |
|
ReadOnly = False |
799 |
|
Required = True |
800 |
< |
OnGetText = IBQuery1SALARYGetText |
800 |
> |
OnGetText = EmployeesSALARYGetText |
801 |
|
Precision = 18 |
802 |
|
Currency = False |
803 |
|
MaxValue = 0 |
804 |
|
MinValue = 0 |
805 |
|
Size = 2 |
806 |
|
end |
807 |
< |
object IBQuery1FULL_NAME: TIBStringField |
807 |
> |
object EmployeesFULL_NAME: TIBStringField |
808 |
|
DisplayWidth = 37 |
809 |
|
FieldKind = fkData |
810 |
|
FieldName = 'FULL_NAME' |
815 |
|
Required = False |
816 |
|
Size = 37 |
817 |
|
end |
818 |
+ |
object EmployeesDEPT_PATH: TIBStringField |
819 |
+ |
DisplayWidth = 256 |
820 |
+ |
FieldKind = fkData |
821 |
+ |
FieldName = 'DEPT_PATH' |
822 |
+ |
Index = 11 |
823 |
+ |
LookupCache = False |
824 |
+ |
ProviderFlags = [pfInUpdate, pfInWhere] |
825 |
+ |
ReadOnly = False |
826 |
+ |
Required = True |
827 |
+ |
Size = 256 |
828 |
+ |
end |
829 |
+ |
object EmployeesDEPT_KEY_PATH: TIBStringField |
830 |
+ |
DisplayWidth = 64 |
831 |
+ |
FieldKind = fkData |
832 |
+ |
FieldName = 'DEPT_KEY_PATH' |
833 |
+ |
Index = 12 |
834 |
+ |
LookupCache = False |
835 |
+ |
ProviderFlags = [pfInUpdate, pfInWhere] |
836 |
+ |
ReadOnly = False |
837 |
+ |
Required = True |
838 |
+ |
Size = 64 |
839 |
+ |
end |
840 |
|
end |
841 |
< |
object Datasource1: TDatasource |
842 |
< |
DataSet = IBQuery1 |
843 |
< |
left = 672 |
841 |
> |
object Countries: TIBQuery |
842 |
> |
Database = IBDatabase1 |
843 |
> |
Transaction = IBTransaction1 |
844 |
> |
BeforeOpen = CountriesBeforeOpen |
845 |
> |
BufferChunks = 1000 |
846 |
> |
CachedUpdates = False |
847 |
> |
GenerateParamNames = False |
848 |
> |
GeneratorField.ApplyOnEvent = gaeOnNewRecord |
849 |
> |
SQL.Strings = ( |
850 |
> |
'Select A.COUNTRY, A.CURRENCY From COUNTRY A' |
851 |
> |
'JOIN JOB J On J.JOB_COUNTRY = A.COUNTRY' |
852 |
> |
'Where J.JOB_CODE = :JOB_CODE and J.JOB_GRADE = :JOB_GRADE' |
853 |
> |
'Order by 1' |
854 |
> |
) |
855 |
> |
Params = < |
856 |
> |
item |
857 |
> |
DataType = ftUnknown |
858 |
> |
Name = 'JOB_CODE' |
859 |
> |
ParamType = ptInput |
860 |
> |
end |
861 |
> |
item |
862 |
> |
DataType = ftUnknown |
863 |
> |
Name = 'JOB_GRADE' |
864 |
> |
ParamType = ptInput |
865 |
> |
end> |
866 |
> |
DataSetCloseAction = dcDiscardChanges |
867 |
> |
left = 872 |
868 |
|
top = 296 |
869 |
+ |
ParamData = < |
870 |
+ |
item |
871 |
+ |
DataType = ftUnknown |
872 |
+ |
Name = 'JOB_CODE' |
873 |
+ |
ParamType = ptInput |
874 |
+ |
end |
875 |
+ |
item |
876 |
+ |
DataType = ftUnknown |
877 |
+ |
Name = 'JOB_GRADE' |
878 |
+ |
ParamType = ptInput |
879 |
+ |
end> |
880 |
|
end |
881 |
< |
object ActionList1: TActionList |
882 |
< |
left = 672 |
883 |
< |
top = 376 |
884 |
< |
object AddEmployee: TAction |
274 |
< |
Caption = 'Add' |
275 |
< |
OnExecute = AddEmployeeExecute |
276 |
< |
end |
277 |
< |
object EditEmployee: TAction |
278 |
< |
Caption = 'Edit' |
279 |
< |
OnExecute = EditEmployeeExecute |
280 |
< |
OnUpdate = EditEmployeeUpdate |
281 |
< |
end |
282 |
< |
object DeleteEmployee: TAction |
283 |
< |
Caption = 'Delete' |
284 |
< |
OnExecute = DeleteEmployeeExecute |
285 |
< |
OnUpdate = EditEmployeeUpdate |
286 |
< |
end |
287 |
< |
object SaveChanges: TAction |
288 |
< |
Caption = 'Save' |
289 |
< |
OnExecute = SaveChangesExecute |
290 |
< |
OnUpdate = SaveChangesUpdate |
291 |
< |
end |
292 |
< |
object CancelChanges: TAction |
293 |
< |
Caption = 'Cancel' |
294 |
< |
OnExecute = CancelChangesExecute |
295 |
< |
OnUpdate = SaveChangesUpdate |
296 |
< |
end |
881 |
> |
object JobCodeSource: TDataSource |
882 |
> |
DataSet = JobCodes |
883 |
> |
left = 832 |
884 |
> |
top = 256 |
885 |
|
end |
886 |
< |
object IBUpdateSQL1: TIBUpdateSQL |
887 |
< |
RefreshSQL.Strings = ( |
888 |
< |
'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME From EMPLOYEE A' |
889 |
< |
'Where A.EMP_NO = :EMP_NO' |
886 |
> |
object JobCodes: TIBQuery |
887 |
> |
Database = IBDatabase1 |
888 |
> |
Transaction = IBTransaction1 |
889 |
> |
BeforeOpen = JobCodesBeforeOpen |
890 |
> |
BufferChunks = 1000 |
891 |
> |
CachedUpdates = False |
892 |
> |
GenerateParamNames = False |
893 |
> |
GeneratorField.ApplyOnEvent = gaeOnNewRecord |
894 |
> |
SQL.Strings = ( |
895 |
> |
'Select A.JOB_CODE, A.JOB_TITLE From JOB A' |
896 |
> |
'Where JOB_COUNTRY = :JOB_COUNTRY and JOB_GRADE = :JOB_GRADE' |
897 |
> |
'Order by Upper(JOB_TITLE)' |
898 |
|
) |
899 |
< |
DeleteSQL.Strings = ( |
900 |
< |
'Delete From EMPLOYEE A' |
901 |
< |
'Where A.EMP_NO = :EMP_NO' |
899 |
> |
Params = < |
900 |
> |
item |
901 |
> |
DataType = ftUnknown |
902 |
> |
Name = 'JOB_COUNTRY' |
903 |
> |
ParamType = ptInput |
904 |
> |
end |
905 |
> |
item |
906 |
> |
DataType = ftUnknown |
907 |
> |
Name = 'JOB_GRADE' |
908 |
> |
ParamType = ptInput |
909 |
> |
end> |
910 |
> |
DataSetCloseAction = dcDiscardChanges |
911 |
> |
left = 872 |
912 |
> |
top = 256 |
913 |
> |
ParamData = < |
914 |
> |
item |
915 |
> |
DataType = ftUnknown |
916 |
> |
Name = 'JOB_COUNTRY' |
917 |
> |
ParamType = ptInput |
918 |
> |
end |
919 |
> |
item |
920 |
> |
DataType = ftUnknown |
921 |
> |
Name = 'JOB_GRADE' |
922 |
> |
ParamType = ptInput |
923 |
> |
end> |
924 |
> |
end |
925 |
> |
object Depts: TIBQuery |
926 |
> |
Database = IBDatabase1 |
927 |
> |
Transaction = IBTransaction1 |
928 |
> |
BufferChunks = 1000 |
929 |
> |
CachedUpdates = False |
930 |
> |
GenerateParamNames = False |
931 |
> |
GeneratorField.ApplyOnEvent = gaeOnNewRecord |
932 |
> |
SQL.Strings = ( |
933 |
> |
'Select A.DEPT_NO, A.DEPARTMENT From DEPARTMENT A' |
934 |
> |
'' |
935 |
> |
'Order by Upper(Department)' |
936 |
|
) |
937 |
< |
left = 712 |
938 |
< |
top = 336 |
937 |
> |
Params = <> |
938 |
> |
DataSetCloseAction = dcDiscardChanges |
939 |
> |
left = 872 |
940 |
> |
top = 210 |
941 |
> |
end |
942 |
> |
object DeptsSource: TDataSource |
943 |
> |
DataSet = Depts |
944 |
> |
left = 832 |
945 |
> |
top = 208 |
946 |
> |
end |
947 |
> |
object JobGradeChangeTimer: TTimer |
948 |
> |
Interval = 0 |
949 |
> |
OnTimer = JobGradeChangeTimerTimer |
950 |
> |
left = 777 |
951 |
> |
top = 304 |
952 |
> |
end |
953 |
> |
object JobCodeChangeTimer: TTimer |
954 |
> |
Interval = 0 |
955 |
> |
OnTimer = JobCodeChangeTimerTimer |
956 |
> |
left = 776 |
957 |
> |
top = 353 |
958 |
|
end |
959 |
|
end |