1 |
|
object Form1: TForm1 |
2 |
< |
Left = 439 |
2 |
> |
Left = 453 |
3 |
|
Height = 482 |
4 |
< |
Top = 350 |
5 |
< |
Width = 1002 |
4 |
> |
Top = 336 |
5 |
> |
Width = 932 |
6 |
|
Caption = 'Employee List' |
7 |
|
ClientHeight = 482 |
8 |
< |
ClientWidth = 1002 |
8 |
> |
ClientWidth = 932 |
9 |
|
OnClose = FormClose |
10 |
|
OnShow = FormShow |
11 |
< |
LCLVersion = '1.4.0.1' |
11 |
> |
LCLVersion = '1.6.4.0' |
12 |
|
object Button1: TButton |
13 |
< |
Left = 915 |
13 |
> |
Left = 845 |
14 |
|
Height = 25 |
15 |
|
Top = 48 |
16 |
|
Width = 75 |
19 |
|
TabOrder = 0 |
20 |
|
end |
21 |
|
object Button2: TButton |
22 |
< |
Left = 915 |
22 |
> |
Left = 845 |
23 |
|
Height = 25 |
24 |
|
Top = 86 |
25 |
|
Width = 75 |
28 |
|
TabOrder = 1 |
29 |
|
end |
30 |
|
object Button3: TButton |
31 |
< |
Left = 915 |
31 |
> |
Left = 845 |
32 |
|
Height = 25 |
33 |
|
Top = 125 |
34 |
|
Width = 75 |
38 |
|
end |
39 |
|
object Label1: TLabel |
40 |
|
Left = 17 |
41 |
< |
Height = 15 |
41 |
> |
Height = 17 |
42 |
|
Top = 14 |
43 |
< |
Width = 87 |
43 |
> |
Width = 82 |
44 |
|
Caption = 'Started Before' |
45 |
|
ParentColor = False |
46 |
|
end |
47 |
|
object BeforeDate: TDateEdit |
48 |
|
Left = 112 |
49 |
< |
Height = 25 |
49 |
> |
Height = 27 |
50 |
|
Top = 8 |
51 |
|
Width = 80 |
52 |
|
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] |
53 |
– |
OKCaption = 'OK' |
54 |
– |
CancelCaption = 'Cancel' |
53 |
|
DateOrder = doNone |
54 |
|
ButtonWidth = 23 |
55 |
|
NumGlyphs = 1 |
59 |
|
end |
60 |
|
object Label2: TLabel |
61 |
|
Left = 241 |
62 |
< |
Height = 15 |
62 |
> |
Height = 17 |
63 |
|
Top = 14 |
64 |
< |
Width = 78 |
64 |
> |
Width = 72 |
65 |
|
Caption = 'Started After' |
66 |
|
ParentColor = False |
67 |
|
end |
68 |
|
object AfterDate: TDateEdit |
69 |
|
Left = 333 |
70 |
< |
Height = 25 |
70 |
> |
Height = 27 |
71 |
|
Top = 8 |
72 |
|
Width = 80 |
73 |
|
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] |
76 |
– |
OKCaption = 'OK' |
77 |
– |
CancelCaption = 'Cancel' |
74 |
|
DateOrder = doNone |
75 |
|
ButtonWidth = 23 |
76 |
|
NumGlyphs = 1 |
82 |
|
Left = 12 |
83 |
|
Height = 434 |
84 |
|
Top = 42 |
85 |
< |
Width = 880 |
85 |
> |
Width = 810 |
86 |
|
Anchors = [akTop, akLeft, akRight, akBottom] |
87 |
|
BevelOuter = bvNone |
88 |
|
ClientHeight = 434 |
89 |
< |
ClientWidth = 880 |
89 |
> |
ClientWidth = 810 |
90 |
|
Color = clBackground |
91 |
|
ParentColor = False |
92 |
|
TabOrder = 5 |
94 |
|
Left = 0 |
95 |
|
Height = 384 |
96 |
|
Top = 0 |
97 |
< |
Width = 880 |
97 |
> |
Width = 810 |
98 |
|
Align = alClient |
99 |
|
Color = clWindow |
100 |
|
Columns = < |
196 |
|
Left = 0 |
197 |
|
Height = 50 |
198 |
|
Top = 384 |
199 |
< |
Width = 880 |
199 |
> |
Width = 810 |
200 |
|
Align = alBottom |
201 |
|
BevelOuter = bvNone |
202 |
|
ClientHeight = 50 |
203 |
< |
ClientWidth = 880 |
203 |
> |
ClientWidth = 810 |
204 |
|
ParentColor = False |
205 |
|
TabOrder = 1 |
206 |
|
object Button5: TButton |
225 |
|
Left = 688 |
226 |
|
Height = 27 |
227 |
|
Top = 16 |
228 |
< |
Width = 49 |
228 |
> |
Width = 48 |
229 |
|
Alignment = taRightJustify |
230 |
|
Anchors = [akTop, akLeft, akBottom] |
231 |
|
DataField = 'TOTALSALARIES' |
249 |
|
Visible = False |
250 |
|
object Label3: TLabel |
251 |
|
Left = 0 |
252 |
< |
Height = 15 |
252 |
> |
Height = 17 |
253 |
|
Top = 7 |
254 |
< |
Width = 83 |
254 |
> |
Width = 77 |
255 |
|
Caption = 'Employee No.' |
256 |
|
ParentColor = False |
257 |
|
end |
258 |
|
object DBEdit1: TDBEdit |
259 |
|
Left = 90 |
260 |
< |
Height = 25 |
260 |
> |
Height = 27 |
261 |
|
Top = 2 |
262 |
|
Width = 120 |
263 |
|
DataField = 'EMP_NO' |
268 |
|
end |
269 |
|
object Label4: TLabel |
270 |
|
Left = 12 |
271 |
< |
Height = 15 |
271 |
> |
Height = 17 |
272 |
|
Top = 32 |
273 |
< |
Width = 64 |
273 |
> |
Width = 61 |
274 |
|
Caption = 'First Name' |
275 |
|
ParentColor = False |
276 |
|
end |
277 |
|
object DBEdit2: TDBEdit |
278 |
|
Left = 90 |
279 |
< |
Height = 25 |
279 |
> |
Height = 27 |
280 |
|
Top = 24 |
281 |
|
Width = 120 |
282 |
|
DataField = 'FIRST_NAME' |
287 |
|
end |
288 |
|
object Label5: TLabel |
289 |
|
Left = 12 |
290 |
< |
Height = 15 |
290 |
> |
Height = 17 |
291 |
|
Top = 56 |
292 |
< |
Width = 64 |
292 |
> |
Width = 60 |
293 |
|
Caption = 'Last Name' |
294 |
|
ParentColor = False |
295 |
|
end |
296 |
|
object DBEdit3: TDBEdit |
297 |
|
Left = 90 |
298 |
< |
Height = 25 |
298 |
> |
Height = 27 |
299 |
|
Top = 46 |
300 |
|
Width = 120 |
301 |
|
DataField = 'LAST_NAME' |
306 |
|
end |
307 |
|
object Label6: TLabel |
308 |
|
Left = 216 |
309 |
< |
Height = 15 |
309 |
> |
Height = 17 |
310 |
|
Top = 7 |
311 |
< |
Width = 77 |
311 |
> |
Width = 71 |
312 |
|
Caption = 'Date Started' |
313 |
|
ParentColor = False |
314 |
|
end |
315 |
|
object IBDateEdit1: TDBDateEdit |
316 |
|
Left = 300 |
317 |
< |
Height = 25 |
317 |
> |
Height = 27 |
318 |
|
Top = 2 |
319 |
< |
Width = 80 |
319 |
> |
Width = 104 |
320 |
|
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] |
325 |
– |
OKCaption = 'OK' |
326 |
– |
CancelCaption = 'Cancel' |
321 |
|
DateOrder = doNone |
322 |
|
ButtonWidth = 23 |
323 |
+ |
AutoSelect = False |
324 |
|
NumGlyphs = 1 |
325 |
|
MaxLength = 0 |
326 |
|
TabOrder = 3 |
329 |
|
end |
330 |
|
object Label7: TLabel |
331 |
|
Left = 252 |
332 |
< |
Height = 15 |
332 |
> |
Height = 17 |
333 |
|
Top = 32 |
334 |
< |
Width = 37 |
334 |
> |
Width = 35 |
335 |
|
Caption = 'Salary' |
336 |
|
ParentColor = False |
337 |
|
end |
338 |
|
object DBEdit4: TDBEdit |
339 |
|
Left = 300 |
340 |
< |
Height = 25 |
340 |
> |
Height = 27 |
341 |
|
Top = 24 |
342 |
|
Width = 104 |
343 |
|
DataField = 'SALARY' |
347 |
|
TabOrder = 5 |
348 |
|
end |
349 |
|
object Label8: TLabel |
350 |
< |
Left = 708 |
351 |
< |
Height = 15 |
350 |
> |
Left = 712 |
351 |
> |
Height = 17 |
352 |
|
Top = 54 |
353 |
< |
Width = 24 |
353 |
> |
Width = 20 |
354 |
|
Anchors = [akTop, akRight] |
355 |
|
Caption = 'Ext.' |
356 |
|
ParentColor = False |
357 |
|
end |
358 |
|
object DBEdit5: TDBEdit |
359 |
|
Left = 732 |
360 |
< |
Height = 25 |
360 |
> |
Height = 27 |
361 |
|
Top = 48 |
362 |
|
Width = 40 |
363 |
|
DataField = 'PHONE_EXT' |
369 |
|
end |
370 |
|
object Label9: TLabel |
371 |
|
Left = 536 |
372 |
< |
Height = 15 |
372 |
> |
Height = 17 |
373 |
|
Top = 7 |
374 |
< |
Width = 51 |
374 |
> |
Width = 47 |
375 |
|
Caption = 'Location' |
376 |
|
ParentColor = False |
377 |
|
end |
378 |
|
object Label10: TLabel |
379 |
|
Left = 413 |
380 |
< |
Height = 15 |
380 |
> |
Height = 17 |
381 |
|
Top = 9 |
382 |
< |
Width = 59 |
382 |
> |
Width = 55 |
383 |
|
Caption = 'Job Grade' |
384 |
|
ParentColor = False |
385 |
|
end |
386 |
|
object JobGradeDBComboBox: TDBComboBox |
387 |
|
Left = 480 |
388 |
< |
Height = 25 |
388 |
> |
Height = 23 |
389 |
|
Top = 2 |
390 |
|
Width = 48 |
391 |
|
AutoSize = False |
406 |
|
end |
407 |
|
object Label11: TLabel |
408 |
|
Left = 536 |
409 |
< |
Height = 15 |
409 |
> |
Height = 17 |
410 |
|
Top = 32 |
411 |
< |
Width = 48 |
411 |
> |
Width = 44 |
412 |
|
Caption = 'Job Title' |
413 |
|
ParentColor = False |
414 |
|
end |
415 |
|
object Label12: TLabel |
416 |
|
Left = 256 |
417 |
< |
Height = 15 |
417 |
> |
Height = 17 |
418 |
|
Top = 54 |
419 |
< |
Width = 33 |
419 |
> |
Width = 30 |
420 |
|
Caption = 'Dept.' |
421 |
|
ParentColor = False |
422 |
|
end |
430 |
|
end |
431 |
|
object DBEdit6: TDBEdit |
432 |
|
Left = 300 |
433 |
< |
Height = 25 |
433 |
> |
Height = 27 |
434 |
|
Top = 48 |
435 |
|
Width = 372 |
436 |
|
DataField = 'DEPT_PATH' |
443 |
|
end |
444 |
|
object IBLookupComboEditBox2: TIBLookupComboEditBox |
445 |
|
Left = 600 |
446 |
< |
Height = 25 |
446 |
> |
Height = 23 |
447 |
|
Top = 0 |
448 |
|
Width = 172 |
449 |
|
Anchors = [akTop, akLeft, akRight] |
463 |
|
end |
464 |
|
object IBLookupComboEditBox1: TIBLookupComboEditBox |
465 |
|
Left = 600 |
466 |
< |
Height = 25 |
466 |
> |
Height = 23 |
467 |
|
Top = 24 |
468 |
|
Width = 172 |
469 |
|
Anchors = [akTop, akLeft, akRight] |
485 |
|
end |
486 |
|
object Label13: TLabel |
487 |
|
Left = 456 |
488 |
< |
Height = 15 |
488 |
> |
Height = 17 |
489 |
|
Top = 14 |
490 |
< |
Width = 79 |
490 |
> |
Width = 73 |
491 |
|
Caption = 'Salary Range' |
492 |
|
ParentColor = False |
493 |
|
end |
494 |
|
object SalaryRange: TComboBox |
495 |
|
Left = 544 |
496 |
< |
Height = 25 |
496 |
> |
Height = 27 |
497 |
|
Top = 8 |
498 |
|
Width = 272 |
499 |
|
ItemHeight = 0 |
511 |
|
end |
512 |
|
object IBDatabase1: TIBDatabase |
513 |
|
Connected = False |
514 |
+ |
CreateIfNotExists = False |
515 |
|
AllowStreamedConnected = False |
516 |
< |
DatabaseName = 'employee' |
516 |
> |
DatabaseName = 'localhost:employee' |
517 |
|
Params.Strings = ( |
518 |
|
'user_name=SYSDBA' |
519 |
< |
'lc_ctype=UTF-8' |
519 |
> |
'lc_ctype=UTF8' |
520 |
|
) |
521 |
|
DefaultTransaction = IBTransaction1 |
522 |
|
IdleTimer = 0 |
523 |
|
TraceFlags = [] |
524 |
+ |
UseDefaultSystemCodePage = False |
525 |
|
left = 832 |
526 |
|
top = 168 |
527 |
|
end |
579 |
|
top = 296 |
580 |
|
end |
581 |
|
object TotalsQuery: TIBQuery |
582 |
+ |
AllowAutoActivateTransaction = False |
583 |
|
Database = IBDatabase1 |
584 |
|
Transaction = IBTransaction1 |
585 |
|
BeforeOpen = EmployeesBeforeOpen |
592 |
|
'From EMPLOYEE' |
593 |
|
) |
594 |
|
Params = <> |
595 |
+ |
DataSetCloseAction = dcDiscardChanges |
596 |
|
left = 872 |
597 |
|
top = 376 |
598 |
|
object TotalsQueryTOTALSALARIES: TIBBCDField |
618 |
|
top = 376 |
619 |
|
end |
620 |
|
object Employees: TIBDataSet |
621 |
+ |
AllowAutoActivateTransaction = False |
622 |
|
Database = IBDatabase1 |
623 |
|
Transaction = IBTransaction1 |
624 |
|
AfterDelete = EmployeesAfterDelete |
629 |
|
AfterScroll = EmployeesAfterScroll |
630 |
|
BeforeClose = EmployeesBeforeClose |
631 |
|
BeforeOpen = EmployeesBeforeOpen |
632 |
< |
BufferChunks = 1000 |
632 |
> |
BufferChunks = 5000 |
633 |
|
CachedUpdates = False |
634 |
|
DeleteSQL.Strings = ( |
635 |
|
'Delete From EMPLOYEE A' |
645 |
|
'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH' |
646 |
|
'From DEPARTMENT Where HEAD_DEPT is NULL ' |
647 |
|
'UNION ALL' |
648 |
< |
'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH || '' / '' || DEPARTMENT as DEPT_PATH,' |
649 |
< |
'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH' |
650 |
< |
'From DEPARTMENT ' |
651 |
< |
'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO' |
648 |
> |
'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH || '' / '' || D.DEPARTMENT as DEPT_PATH,' |
649 |
> |
'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH' |
650 |
> |
'From DEPARTMENT D' |
651 |
> |
'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO' |
652 |
|
')' |
653 |
|
'' |
654 |
|
'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' |
655 |
|
'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH' |
656 |
|
'From EMPLOYEE A' |
657 |
|
'JOIN Depts D On D.DEPT_NO = A.DEPT_NO' |
658 |
+ |
'' |
659 |
|
'Where A.EMP_NO = :EMP_NO' |
660 |
|
) |
661 |
|
SelectSQL.Strings = ( |
664 |
|
'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH' |
665 |
|
'From DEPARTMENT Where HEAD_DEPT is NULL ' |
666 |
|
'UNION ALL' |
667 |
< |
'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH || '' / '' || DEPARTMENT as DEPT_PATH,' |
668 |
< |
'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH' |
669 |
< |
'From DEPARTMENT ' |
670 |
< |
'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO' |
667 |
> |
'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH || '' / '' || D.DEPARTMENT as DEPT_PATH,' |
668 |
> |
'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH' |
669 |
> |
'From DEPARTMENT D' |
670 |
> |
'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO' |
671 |
|
')' |
672 |
|
'' |
673 |
< |
'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' |
673 |
> |
'Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' |
674 |
|
'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH' |
675 |
|
'From EMPLOYEE A' |
676 |
|
'JOIN Depts D On D.DEPT_NO = A.DEPT_NO' |
683 |
|
GeneratorField.Field = 'EMP_NO' |
684 |
|
GeneratorField.ApplyOnEvent = gaeOnNewRecord |
685 |
|
GenerateParamNames = False |
686 |
+ |
DataSetCloseAction = dcSaveChanges |
687 |
|
AfterTransactionEnd = EmployeesAfterTransactionEnd |
688 |
+ |
OnValidatePost = EmployeesValidatePost |
689 |
|
left = 872 |
690 |
|
top = 336 |
691 |
|
object EmployeesEMP_NO: TSmallintField |
837 |
|
end |
838 |
|
end |
839 |
|
object Countries: TIBQuery |
840 |
+ |
AllowAutoActivateTransaction = False |
841 |
|
Database = IBDatabase1 |
842 |
|
Transaction = IBTransaction1 |
843 |
|
BeforeOpen = CountriesBeforeOpen |
862 |
|
Name = 'JOB_GRADE' |
863 |
|
ParamType = ptInput |
864 |
|
end> |
865 |
+ |
DataSetCloseAction = dcDiscardChanges |
866 |
|
left = 872 |
867 |
|
top = 296 |
868 |
|
ParamData = < |
883 |
|
top = 256 |
884 |
|
end |
885 |
|
object JobCodes: TIBQuery |
886 |
+ |
AllowAutoActivateTransaction = False |
887 |
|
Database = IBDatabase1 |
888 |
|
Transaction = IBTransaction1 |
889 |
|
BeforeOpen = JobCodesBeforeOpen |
907 |
|
Name = 'JOB_GRADE' |
908 |
|
ParamType = ptInput |
909 |
|
end> |
910 |
+ |
DataSetCloseAction = dcDiscardChanges |
911 |
|
left = 872 |
912 |
|
top = 256 |
913 |
|
ParamData = < |
923 |
|
end> |
924 |
|
end |
925 |
|
object Depts: TIBQuery |
926 |
+ |
AllowAutoActivateTransaction = False |
927 |
|
Database = IBDatabase1 |
928 |
|
Transaction = IBTransaction1 |
929 |
|
BufferChunks = 1000 |
936 |
|
'Order by Upper(Department)' |
937 |
|
) |
938 |
|
Params = <> |
939 |
+ |
DataSetCloseAction = dcDiscardChanges |
940 |
|
left = 872 |
941 |
|
top = 210 |
942 |
|
end |
945 |
|
left = 832 |
946 |
|
top = 208 |
947 |
|
end |
948 |
+ |
object JobGradeChangeTimer: TTimer |
949 |
+ |
Interval = 0 |
950 |
+ |
OnTimer = JobGradeChangeTimerTimer |
951 |
+ |
left = 777 |
952 |
+ |
top = 304 |
953 |
+ |
end |
954 |
+ |
object JobCodeChangeTimer: TTimer |
955 |
+ |
Interval = 0 |
956 |
+ |
OnTimer = JobCodeChangeTimerTimer |
957 |
+ |
left = 776 |
958 |
+ |
top = 353 |
959 |
+ |
end |
960 |
|
end |