1 |
|
object Form1: TForm1 |
2 |
< |
Left = 439 |
2 |
> |
Left = 4112 |
3 |
|
Height = 482 |
4 |
< |
Top = 350 |
5 |
< |
Width = 1002 |
4 |
> |
Top = 536 |
5 |
> |
Width = 932 |
6 |
|
Caption = 'Employee List' |
7 |
|
ClientHeight = 482 |
8 |
< |
ClientWidth = 1002 |
8 |
> |
ClientWidth = 932 |
9 |
> |
DefaultMonitor = dmPrimary |
10 |
|
OnClose = FormClose |
11 |
|
OnShow = FormShow |
12 |
< |
LCLVersion = '1.4.0.3' |
12 |
> |
LCLVersion = '1.8.0.5' |
13 |
|
object Button1: TButton |
14 |
< |
Left = 915 |
14 |
> |
Left = 845 |
15 |
|
Height = 25 |
16 |
|
Top = 48 |
17 |
|
Width = 75 |
20 |
|
TabOrder = 0 |
21 |
|
end |
22 |
|
object Button2: TButton |
23 |
< |
Left = 915 |
23 |
> |
Left = 845 |
24 |
|
Height = 25 |
25 |
|
Top = 86 |
26 |
|
Width = 75 |
29 |
|
TabOrder = 1 |
30 |
|
end |
31 |
|
object Button3: TButton |
32 |
< |
Left = 915 |
32 |
> |
Left = 845 |
33 |
|
Height = 25 |
34 |
|
Top = 125 |
35 |
|
Width = 75 |
39 |
|
end |
40 |
|
object Label1: TLabel |
41 |
|
Left = 17 |
42 |
< |
Height = 15 |
42 |
> |
Height = 14 |
43 |
|
Top = 14 |
44 |
|
Width = 87 |
45 |
|
Caption = 'Started Before' |
47 |
|
end |
48 |
|
object BeforeDate: TDateEdit |
49 |
|
Left = 112 |
50 |
< |
Height = 25 |
50 |
> |
Height = 24 |
51 |
|
Top = 8 |
52 |
|
Width = 80 |
53 |
|
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] |
53 |
– |
OKCaption = 'OK' |
54 |
– |
CancelCaption = 'Cancel' |
54 |
|
DateOrder = doNone |
55 |
|
ButtonWidth = 23 |
56 |
|
NumGlyphs = 1 |
60 |
|
end |
61 |
|
object Label2: TLabel |
62 |
|
Left = 241 |
63 |
< |
Height = 15 |
63 |
> |
Height = 14 |
64 |
|
Top = 14 |
65 |
|
Width = 78 |
66 |
|
Caption = 'Started After' |
68 |
|
end |
69 |
|
object AfterDate: TDateEdit |
70 |
|
Left = 333 |
71 |
< |
Height = 25 |
71 |
> |
Height = 24 |
72 |
|
Top = 8 |
73 |
|
Width = 80 |
74 |
|
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] |
76 |
– |
OKCaption = 'OK' |
77 |
– |
CancelCaption = 'Cancel' |
75 |
|
DateOrder = doNone |
76 |
|
ButtonWidth = 23 |
77 |
|
NumGlyphs = 1 |
83 |
|
Left = 12 |
84 |
|
Height = 434 |
85 |
|
Top = 42 |
86 |
< |
Width = 880 |
86 |
> |
Width = 810 |
87 |
|
Anchors = [akTop, akLeft, akRight, akBottom] |
88 |
|
BevelOuter = bvNone |
89 |
|
ClientHeight = 434 |
90 |
< |
ClientWidth = 880 |
90 |
> |
ClientWidth = 810 |
91 |
|
Color = clBackground |
92 |
|
ParentColor = False |
93 |
|
TabOrder = 5 |
95 |
|
Left = 0 |
96 |
|
Height = 384 |
97 |
|
Top = 0 |
98 |
< |
Width = 880 |
98 |
> |
Width = 810 |
99 |
|
Align = alClient |
100 |
|
Color = clWindow |
101 |
|
Columns = < |
197 |
|
Left = 0 |
198 |
|
Height = 50 |
199 |
|
Top = 384 |
200 |
< |
Width = 880 |
200 |
> |
Width = 810 |
201 |
|
Align = alBottom |
202 |
|
BevelOuter = bvNone |
203 |
|
ClientHeight = 50 |
204 |
< |
ClientWidth = 880 |
204 |
> |
ClientWidth = 810 |
205 |
|
ParentColor = False |
206 |
|
TabOrder = 1 |
207 |
|
object Button5: TButton |
250 |
|
Visible = False |
251 |
|
object Label3: TLabel |
252 |
|
Left = 0 |
253 |
< |
Height = 15 |
253 |
> |
Height = 14 |
254 |
|
Top = 7 |
255 |
|
Width = 83 |
256 |
|
Caption = 'Employee No.' |
258 |
|
end |
259 |
|
object DBEdit1: TDBEdit |
260 |
|
Left = 90 |
261 |
< |
Height = 25 |
261 |
> |
Height = 24 |
262 |
|
Top = 2 |
263 |
|
Width = 120 |
264 |
|
DataField = 'EMP_NO' |
269 |
|
end |
270 |
|
object Label4: TLabel |
271 |
|
Left = 12 |
272 |
< |
Height = 15 |
272 |
> |
Height = 14 |
273 |
|
Top = 32 |
274 |
|
Width = 64 |
275 |
|
Caption = 'First Name' |
277 |
|
end |
278 |
|
object DBEdit2: TDBEdit |
279 |
|
Left = 90 |
280 |
< |
Height = 25 |
280 |
> |
Height = 24 |
281 |
|
Top = 24 |
282 |
|
Width = 120 |
283 |
|
DataField = 'FIRST_NAME' |
288 |
|
end |
289 |
|
object Label5: TLabel |
290 |
|
Left = 12 |
291 |
< |
Height = 15 |
291 |
> |
Height = 14 |
292 |
|
Top = 56 |
293 |
|
Width = 64 |
294 |
|
Caption = 'Last Name' |
296 |
|
end |
297 |
|
object DBEdit3: TDBEdit |
298 |
|
Left = 90 |
299 |
< |
Height = 25 |
299 |
> |
Height = 24 |
300 |
|
Top = 46 |
301 |
|
Width = 120 |
302 |
|
DataField = 'LAST_NAME' |
307 |
|
end |
308 |
|
object Label6: TLabel |
309 |
|
Left = 216 |
310 |
< |
Height = 15 |
310 |
> |
Height = 14 |
311 |
|
Top = 7 |
312 |
|
Width = 77 |
313 |
|
Caption = 'Date Started' |
315 |
|
end |
316 |
|
object IBDateEdit1: TDBDateEdit |
317 |
|
Left = 300 |
318 |
< |
Height = 25 |
318 |
> |
Height = 24 |
319 |
|
Top = 2 |
320 |
< |
Width = 80 |
320 |
> |
Width = 104 |
321 |
|
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] |
325 |
– |
OKCaption = 'OK' |
326 |
– |
CancelCaption = 'Cancel' |
322 |
|
DateOrder = doNone |
323 |
|
ButtonWidth = 23 |
324 |
|
AutoSelect = False |
330 |
|
end |
331 |
|
object Label7: TLabel |
332 |
|
Left = 252 |
333 |
< |
Height = 15 |
333 |
> |
Height = 14 |
334 |
|
Top = 32 |
335 |
|
Width = 37 |
336 |
|
Caption = 'Salary' |
338 |
|
end |
339 |
|
object DBEdit4: TDBEdit |
340 |
|
Left = 300 |
341 |
< |
Height = 25 |
341 |
> |
Height = 24 |
342 |
|
Top = 24 |
343 |
|
Width = 104 |
344 |
|
DataField = 'SALARY' |
349 |
|
end |
350 |
|
object Label8: TLabel |
351 |
|
Left = 708 |
352 |
< |
Height = 15 |
352 |
> |
Height = 14 |
353 |
|
Top = 54 |
354 |
|
Width = 24 |
355 |
|
Anchors = [akTop, akRight] |
358 |
|
end |
359 |
|
object DBEdit5: TDBEdit |
360 |
|
Left = 732 |
361 |
< |
Height = 25 |
361 |
> |
Height = 24 |
362 |
|
Top = 48 |
363 |
|
Width = 40 |
364 |
|
DataField = 'PHONE_EXT' |
370 |
|
end |
371 |
|
object Label9: TLabel |
372 |
|
Left = 536 |
373 |
< |
Height = 15 |
373 |
> |
Height = 14 |
374 |
|
Top = 7 |
375 |
|
Width = 51 |
376 |
|
Caption = 'Location' |
378 |
|
end |
379 |
|
object Label10: TLabel |
380 |
|
Left = 413 |
381 |
< |
Height = 15 |
381 |
> |
Height = 14 |
382 |
|
Top = 9 |
383 |
|
Width = 59 |
384 |
|
Caption = 'Job Grade' |
386 |
|
end |
387 |
|
object JobGradeDBComboBox: TDBComboBox |
388 |
|
Left = 480 |
389 |
< |
Height = 25 |
389 |
> |
Height = 23 |
390 |
|
Top = 2 |
391 |
|
Width = 48 |
392 |
|
AutoSize = False |
407 |
|
end |
408 |
|
object Label11: TLabel |
409 |
|
Left = 536 |
410 |
< |
Height = 15 |
410 |
> |
Height = 14 |
411 |
|
Top = 32 |
412 |
|
Width = 48 |
413 |
|
Caption = 'Job Title' |
415 |
|
end |
416 |
|
object Label12: TLabel |
417 |
|
Left = 256 |
418 |
< |
Height = 15 |
418 |
> |
Height = 14 |
419 |
|
Top = 54 |
420 |
|
Width = 33 |
421 |
|
Caption = 'Dept.' |
431 |
|
end |
432 |
|
object DBEdit6: TDBEdit |
433 |
|
Left = 300 |
434 |
< |
Height = 25 |
434 |
> |
Height = 24 |
435 |
|
Top = 48 |
436 |
|
Width = 372 |
437 |
|
DataField = 'DEPT_PATH' |
444 |
|
end |
445 |
|
object IBLookupComboEditBox2: TIBLookupComboEditBox |
446 |
|
Left = 600 |
447 |
< |
Height = 25 |
447 |
> |
Height = 23 |
448 |
|
Top = 0 |
449 |
|
Width = 172 |
450 |
|
Anchors = [akTop, akLeft, akRight] |
464 |
|
end |
465 |
|
object IBLookupComboEditBox1: TIBLookupComboEditBox |
466 |
|
Left = 600 |
467 |
< |
Height = 25 |
467 |
> |
Height = 23 |
468 |
|
Top = 24 |
469 |
|
Width = 172 |
470 |
|
Anchors = [akTop, akLeft, akRight] |
486 |
|
end |
487 |
|
object Label13: TLabel |
488 |
|
Left = 456 |
489 |
< |
Height = 15 |
489 |
> |
Height = 14 |
490 |
|
Top = 14 |
491 |
|
Width = 79 |
492 |
|
Caption = 'Salary Range' |
512 |
|
end |
513 |
|
object IBDatabase1: TIBDatabase |
514 |
|
Connected = False |
515 |
+ |
CreateIfNotExists = False |
516 |
|
AllowStreamedConnected = False |
517 |
|
DatabaseName = 'localhost:employee' |
518 |
|
Params.Strings = ( |
519 |
|
'user_name=SYSDBA' |
520 |
< |
'lc_ctype=UTF-8' |
520 |
> |
'lc_ctype=UTF8' |
521 |
|
) |
522 |
|
DefaultTransaction = IBTransaction1 |
523 |
|
IdleTimer = 0 |
524 |
|
TraceFlags = [] |
525 |
+ |
UseDefaultSystemCodePage = False |
526 |
|
left = 832 |
527 |
|
top = 168 |
528 |
|
end |
580 |
|
top = 296 |
581 |
|
end |
582 |
|
object TotalsQuery: TIBQuery |
583 |
+ |
AllowAutoActivateTransaction = False |
584 |
|
Database = IBDatabase1 |
585 |
|
Transaction = IBTransaction1 |
586 |
|
BeforeOpen = EmployeesBeforeOpen |
619 |
|
top = 376 |
620 |
|
end |
621 |
|
object Employees: TIBDataSet |
622 |
+ |
AllowAutoActivateTransaction = False |
623 |
|
Database = IBDatabase1 |
624 |
|
Transaction = IBTransaction1 |
625 |
|
AfterDelete = EmployeesAfterDelete |
630 |
|
AfterScroll = EmployeesAfterScroll |
631 |
|
BeforeClose = EmployeesBeforeClose |
632 |
|
BeforeOpen = EmployeesBeforeOpen |
633 |
< |
BufferChunks = 1000 |
633 |
> |
BufferChunks = 5000 |
634 |
|
CachedUpdates = False |
635 |
|
DeleteSQL.Strings = ( |
636 |
|
'Delete From EMPLOYEE A' |
646 |
|
'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH' |
647 |
|
'From DEPARTMENT Where HEAD_DEPT is NULL ' |
648 |
|
'UNION ALL' |
649 |
< |
'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH || '' / '' || DEPARTMENT as DEPT_PATH,' |
650 |
< |
'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH' |
651 |
< |
'From DEPARTMENT ' |
652 |
< |
'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO' |
649 |
> |
'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH || '' / '' || D.DEPARTMENT as DEPT_PATH,' |
650 |
> |
'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH' |
651 |
> |
'From DEPARTMENT D' |
652 |
> |
'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO' |
653 |
|
')' |
654 |
|
'' |
655 |
|
'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' |
656 |
|
'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH' |
657 |
|
'From EMPLOYEE A' |
658 |
|
'JOIN Depts D On D.DEPT_NO = A.DEPT_NO' |
659 |
+ |
'' |
660 |
|
'Where A.EMP_NO = :EMP_NO' |
661 |
|
) |
662 |
|
SelectSQL.Strings = ( |
665 |
|
'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH' |
666 |
|
'From DEPARTMENT Where HEAD_DEPT is NULL ' |
667 |
|
'UNION ALL' |
668 |
< |
'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, Depts.DEPT_PATH || '' / '' || DEPARTMENT as DEPT_PATH,' |
669 |
< |
'Depts.DEPT_KEY_PATH || '';'' || DEPT_NO as DEPT_KEY_PATH' |
670 |
< |
'From DEPARTMENT ' |
671 |
< |
'JOIN Depts On HEAD_DEPT = Depts.DEPT_NO' |
668 |
> |
'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH || '' / '' || D.DEPARTMENT as DEPT_PATH,' |
669 |
> |
'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH' |
670 |
> |
'From DEPARTMENT D' |
671 |
> |
'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO' |
672 |
|
')' |
673 |
|
'' |
674 |
< |
'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' |
674 |
> |
'Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, ' |
675 |
|
'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH' |
676 |
|
'From EMPLOYEE A' |
677 |
|
'JOIN Depts D On D.DEPT_NO = A.DEPT_NO' |
838 |
|
end |
839 |
|
end |
840 |
|
object Countries: TIBQuery |
841 |
+ |
AllowAutoActivateTransaction = False |
842 |
|
Database = IBDatabase1 |
843 |
|
Transaction = IBTransaction1 |
844 |
|
BeforeOpen = CountriesBeforeOpen |
884 |
|
top = 256 |
885 |
|
end |
886 |
|
object JobCodes: TIBQuery |
887 |
+ |
AllowAutoActivateTransaction = False |
888 |
|
Database = IBDatabase1 |
889 |
|
Transaction = IBTransaction1 |
890 |
|
BeforeOpen = JobCodesBeforeOpen |
924 |
|
end> |
925 |
|
end |
926 |
|
object Depts: TIBQuery |
927 |
+ |
AllowAutoActivateTransaction = False |
928 |
|
Database = IBDatabase1 |
929 |
|
Transaction = IBTransaction1 |
930 |
|
BufferChunks = 1000 |
946 |
|
left = 832 |
947 |
|
top = 208 |
948 |
|
end |
949 |
+ |
object JobGradeChangeTimer: TTimer |
950 |
+ |
Interval = 0 |
951 |
+ |
OnTimer = JobGradeChangeTimerTimer |
952 |
+ |
left = 777 |
953 |
+ |
top = 304 |
954 |
+ |
end |
955 |
+ |
object JobCodeChangeTimer: TTimer |
956 |
+ |
Interval = 0 |
957 |
+ |
OnTimer = JobCodeChangeTimerTimer |
958 |
+ |
left = 776 |
959 |
+ |
top = 353 |
960 |
+ |
end |
961 |
|
end |