8 |
|
ClientWidth = 1002 |
9 |
|
OnClose = FormClose |
10 |
|
OnShow = FormShow |
11 |
< |
LCLVersion = '1.4.2.0' |
11 |
> |
LCLVersion = '1.6.0.4' |
12 |
|
object Button1: TButton |
13 |
|
Left = 915 |
14 |
|
Height = 25 |
40 |
|
Left = 17 |
41 |
|
Height = 15 |
42 |
|
Top = 14 |
43 |
< |
Width = 87 |
43 |
> |
Width = 74 |
44 |
|
Caption = 'Started Before' |
45 |
|
ParentColor = False |
46 |
|
end |
47 |
|
object BeforeDate: TDateEdit |
48 |
|
Left = 112 |
49 |
< |
Height = 25 |
49 |
> |
Height = 23 |
50 |
|
Top = 8 |
51 |
|
Width = 80 |
52 |
|
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] |
63 |
|
Left = 241 |
64 |
|
Height = 15 |
65 |
|
Top = 14 |
66 |
< |
Width = 78 |
66 |
> |
Width = 66 |
67 |
|
Caption = 'Started After' |
68 |
|
ParentColor = False |
69 |
|
end |
70 |
|
object AfterDate: TDateEdit |
71 |
|
Left = 333 |
72 |
< |
Height = 25 |
72 |
> |
Height = 23 |
73 |
|
Top = 8 |
74 |
|
Width = 80 |
75 |
|
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] |
229 |
|
Left = 688 |
230 |
|
Height = 27 |
231 |
|
Top = 16 |
232 |
< |
Width = 49 |
232 |
> |
Width = 43 |
233 |
|
Alignment = taRightJustify |
234 |
|
Anchors = [akTop, akLeft, akBottom] |
235 |
|
DataField = 'TOTALSALARIES' |
245 |
|
BevelOuter = bvNone |
246 |
|
BorderWidth = 2 |
247 |
|
BorderStyle = bsSingle |
248 |
< |
ClientHeight = 78 |
249 |
< |
ClientWidth = 782 |
248 |
> |
ClientHeight = 76 |
249 |
> |
ClientWidth = 780 |
250 |
|
Color = clWindow |
251 |
|
ParentColor = False |
252 |
|
TabOrder = 2 |
255 |
|
Left = 0 |
256 |
|
Height = 15 |
257 |
|
Top = 7 |
258 |
< |
Width = 83 |
258 |
> |
Width = 74 |
259 |
|
Caption = 'Employee No.' |
260 |
|
ParentColor = False |
261 |
|
end |
262 |
|
object DBEdit1: TDBEdit |
263 |
|
Left = 90 |
264 |
< |
Height = 25 |
264 |
> |
Height = 23 |
265 |
|
Top = 2 |
266 |
|
Width = 120 |
267 |
|
DataField = 'EMP_NO' |
274 |
|
Left = 12 |
275 |
|
Height = 15 |
276 |
|
Top = 32 |
277 |
< |
Width = 64 |
277 |
> |
Width = 57 |
278 |
|
Caption = 'First Name' |
279 |
|
ParentColor = False |
280 |
|
end |
281 |
|
object DBEdit2: TDBEdit |
282 |
|
Left = 90 |
283 |
< |
Height = 25 |
283 |
> |
Height = 23 |
284 |
|
Top = 24 |
285 |
|
Width = 120 |
286 |
|
DataField = 'FIRST_NAME' |
293 |
|
Left = 12 |
294 |
|
Height = 15 |
295 |
|
Top = 56 |
296 |
< |
Width = 64 |
296 |
> |
Width = 56 |
297 |
|
Caption = 'Last Name' |
298 |
|
ParentColor = False |
299 |
|
end |
300 |
|
object DBEdit3: TDBEdit |
301 |
|
Left = 90 |
302 |
< |
Height = 25 |
302 |
> |
Height = 23 |
303 |
|
Top = 46 |
304 |
|
Width = 120 |
305 |
|
DataField = 'LAST_NAME' |
312 |
|
Left = 216 |
313 |
|
Height = 15 |
314 |
|
Top = 7 |
315 |
< |
Width = 77 |
315 |
> |
Width = 64 |
316 |
|
Caption = 'Date Started' |
317 |
|
ParentColor = False |
318 |
|
end |
319 |
|
object IBDateEdit1: TDBDateEdit |
320 |
|
Left = 300 |
321 |
< |
Height = 25 |
321 |
> |
Height = 23 |
322 |
|
Top = 2 |
323 |
|
Width = 80 |
324 |
|
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] |
337 |
|
Left = 252 |
338 |
|
Height = 15 |
339 |
|
Top = 32 |
340 |
< |
Width = 37 |
340 |
> |
Width = 31 |
341 |
|
Caption = 'Salary' |
342 |
|
ParentColor = False |
343 |
|
end |
344 |
|
object DBEdit4: TDBEdit |
345 |
|
Left = 300 |
346 |
< |
Height = 25 |
346 |
> |
Height = 23 |
347 |
|
Top = 24 |
348 |
|
Width = 104 |
349 |
|
DataField = 'SALARY' |
353 |
|
TabOrder = 5 |
354 |
|
end |
355 |
|
object Label8: TLabel |
356 |
< |
Left = 708 |
356 |
> |
Left = 712 |
357 |
|
Height = 15 |
358 |
|
Top = 54 |
359 |
< |
Width = 24 |
359 |
> |
Width = 18 |
360 |
|
Anchors = [akTop, akRight] |
361 |
|
Caption = 'Ext.' |
362 |
|
ParentColor = False |
363 |
|
end |
364 |
|
object DBEdit5: TDBEdit |
365 |
< |
Left = 732 |
366 |
< |
Height = 25 |
365 |
> |
Left = 730 |
366 |
> |
Height = 23 |
367 |
|
Top = 48 |
368 |
|
Width = 40 |
369 |
|
DataField = 'PHONE_EXT' |
377 |
|
Left = 536 |
378 |
|
Height = 15 |
379 |
|
Top = 7 |
380 |
< |
Width = 51 |
380 |
> |
Width = 46 |
381 |
|
Caption = 'Location' |
382 |
|
ParentColor = False |
383 |
|
end |
385 |
|
Left = 413 |
386 |
|
Height = 15 |
387 |
|
Top = 9 |
388 |
< |
Width = 59 |
388 |
> |
Width = 52 |
389 |
|
Caption = 'Job Grade' |
390 |
|
ParentColor = False |
391 |
|
end |
392 |
|
object JobGradeDBComboBox: TDBComboBox |
393 |
|
Left = 480 |
394 |
< |
Height = 25 |
394 |
> |
Height = 23 |
395 |
|
Top = 2 |
396 |
|
Width = 48 |
397 |
|
AutoSize = False |
398 |
|
DataField = 'JOB_GRADE' |
399 |
|
DataSource = EmployeeSource |
400 |
< |
ItemHeight = 0 |
400 |
> |
ItemHeight = 15 |
401 |
|
Items.Strings = ( |
402 |
|
'1' |
403 |
|
'2' |
414 |
|
Left = 536 |
415 |
|
Height = 15 |
416 |
|
Top = 32 |
417 |
< |
Width = 48 |
417 |
> |
Width = 44 |
418 |
|
Caption = 'Job Title' |
419 |
|
ParentColor = False |
420 |
|
end |
422 |
|
Left = 256 |
423 |
|
Height = 15 |
424 |
|
Top = 54 |
425 |
< |
Width = 33 |
425 |
> |
Width = 28 |
426 |
|
Caption = 'Dept.' |
427 |
|
ParentColor = False |
428 |
|
end |
429 |
|
object SpeedButton1: TSpeedButton |
430 |
< |
Left = 680 |
430 |
> |
Left = 678 |
431 |
|
Height = 25 |
432 |
|
Top = 48 |
433 |
|
Width = 23 |
436 |
|
end |
437 |
|
object DBEdit6: TDBEdit |
438 |
|
Left = 300 |
439 |
< |
Height = 25 |
439 |
> |
Height = 23 |
440 |
|
Top = 48 |
441 |
< |
Width = 372 |
441 |
> |
Width = 370 |
442 |
|
DataField = 'DEPT_PATH' |
443 |
|
DataSource = EmployeeSource |
444 |
|
ReadOnly = True |
449 |
|
end |
450 |
|
object IBLookupComboEditBox2: TIBLookupComboEditBox |
451 |
|
Left = 600 |
452 |
< |
Height = 25 |
452 |
> |
Height = 23 |
453 |
|
Top = 0 |
454 |
< |
Width = 172 |
454 |
> |
Width = 170 |
455 |
|
Anchors = [akTop, akLeft, akRight] |
456 |
|
AutoSize = False |
457 |
|
DataField = 'JOB_COUNTRY' |
465 |
|
TabOrder = 8 |
466 |
|
AutoInsert = False |
467 |
|
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
468 |
< |
ItemHeight = 0 |
468 |
> |
ItemHeight = 15 |
469 |
|
end |
470 |
|
object IBLookupComboEditBox1: TIBLookupComboEditBox |
471 |
|
Left = 600 |
472 |
< |
Height = 25 |
472 |
> |
Height = 23 |
473 |
|
Top = 24 |
474 |
< |
Width = 172 |
474 |
> |
Width = 170 |
475 |
|
Anchors = [akTop, akLeft, akRight] |
476 |
|
AutoSize = False |
477 |
|
DataField = 'JOB_CODE' |
485 |
|
TabOrder = 9 |
486 |
|
AutoInsert = False |
487 |
|
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
488 |
< |
ItemHeight = 0 |
488 |
> |
ItemHeight = 15 |
489 |
|
end |
490 |
|
end |
491 |
|
end |
493 |
|
Left = 456 |
494 |
|
Height = 15 |
495 |
|
Top = 14 |
496 |
< |
Width = 79 |
496 |
> |
Width = 67 |
497 |
|
Caption = 'Salary Range' |
498 |
|
ParentColor = False |
499 |
|
end |
500 |
|
object SalaryRange: TComboBox |
501 |
|
Left = 544 |
502 |
< |
Height = 25 |
502 |
> |
Height = 23 |
503 |
|
Top = 8 |
504 |
|
Width = 272 |
505 |
< |
ItemHeight = 0 |
505 |
> |
ItemHeight = 15 |
506 |
|
ItemIndex = 0 |
507 |
|
Items.Strings = ( |
508 |
|
'None Specified' |
516 |
|
Text = 'None Specified' |
517 |
|
end |
518 |
|
object IBDatabase1: TIBDatabase |
519 |
< |
Connected = False |
519 |
> |
Connected = True |
520 |
|
AllowStreamedConnected = False |
521 |
|
DatabaseName = 'localhost:employee' |
522 |
|
Params.Strings = ( |
523 |
|
'user_name=SYSDBA' |
524 |
|
'lc_ctype=UTF8' |
525 |
+ |
'user_name=SYSDBA' |
526 |
|
) |
527 |
|
DefaultTransaction = IBTransaction1 |
528 |
|
IdleTimer = 0 |
529 |
|
TraceFlags = [tfQPrepare, tfStmt, tfConnect] |
530 |
+ |
UseDefaultSystemCodePage = False |
531 |
|
left = 832 |
532 |
|
top = 168 |
533 |
|
end |
645 |
|
) |
646 |
|
RefreshSQL.Strings = ( |
647 |
|
'with recursive Depts As (' |
648 |
< |
'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as VarChar(256)) as DEPT_PATH,' |
648 |
> |
'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as VarChar' |
649 |
> |
'(256)) as DEPT_PATH,' |
650 |
|
'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH' |
651 |
|
'From DEPARTMENT Where HEAD_DEPT is NULL ' |
652 |
|
'UNION ALL' |
653 |
< |
'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH || '' / '' || DEPARTMENT as DEPT_PATH,' |
654 |
< |
'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH' |
655 |
< |
'From DEPARTMENT ' |
656 |
< |
'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO' |
653 |
> |
'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH || '' / '' ' |
654 |
> |
'|| D.DEPARTMENT as DEPT_PATH,' |
655 |
> |
'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH' |
656 |
> |
'From DEPARTMENT D' |
657 |
> |
'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO' |
658 |
|
')' |
659 |
|
'' |
660 |
< |
'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' |
661 |
< |
'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH' |
660 |
> |
'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, ' |
661 |
> |
'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' |
662 |
> |
'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, ' |
663 |
> |
'D.DEPT_KEY_PATH' |
664 |
|
'From EMPLOYEE A' |
665 |
|
'JOIN Depts D On D.DEPT_NO = A.DEPT_NO' |
666 |
+ |
'' |
667 |
|
'Where A.EMP_NO = :EMP_NO' |
668 |
|
) |
669 |
|
SelectSQL.Strings = ( |
670 |
|
'with recursive Depts As (' |
671 |
< |
'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as VarChar(256)) as DEPT_PATH,' |
671 |
> |
'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as ' |
672 |
> |
'VarChar(256)) as DEPT_PATH,' |
673 |
|
'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH' |
674 |
|
'From DEPARTMENT Where HEAD_DEPT is NULL ' |
675 |
|
'UNION ALL' |
676 |
< |
'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH || '' / '' || DEPARTMENT as DEPT_PATH,' |
677 |
< |
'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH' |
678 |
< |
'From DEPARTMENT ' |
679 |
< |
'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO' |
676 |
> |
'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH || '' / '' ' |
677 |
> |
'|| D.DEPARTMENT as DEPT_PATH,' |
678 |
> |
'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH' |
679 |
> |
'From DEPARTMENT D' |
680 |
> |
'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO' |
681 |
|
')' |
682 |
|
'' |
683 |
< |
'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' |
684 |
< |
'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH' |
683 |
> |
'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, ' |
684 |
> |
'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' |
685 |
> |
'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, ' |
686 |
> |
'D.DEPT_KEY_PATH' |
687 |
|
'From EMPLOYEE A' |
688 |
|
'JOIN Depts D On D.DEPT_NO = A.DEPT_NO' |
689 |
|
) |