2 |
|
Left = 613 |
3 |
|
Height = 575 |
4 |
|
Top = 199 |
5 |
< |
Width = 1026 |
5 |
> |
Width = 1018 |
6 |
|
Caption = 'Employee List' |
7 |
|
ClientHeight = 575 |
8 |
< |
ClientWidth = 1026 |
8 |
> |
ClientWidth = 1018 |
9 |
|
DefaultMonitor = dmPrimary |
10 |
|
OnClose = FormClose |
11 |
|
OnShow = FormShow |
12 |
|
Position = poDefault |
13 |
< |
LCLVersion = '1.8.1.0' |
13 |
> |
LCLVersion = '1.8.3.0' |
14 |
|
object Button1: TButton |
15 |
< |
Left = 939 |
15 |
> |
Left = 931 |
16 |
|
Height = 25 |
17 |
|
Top = 48 |
18 |
|
Width = 75 |
21 |
|
TabOrder = 0 |
22 |
|
end |
23 |
|
object Button3: TButton |
24 |
< |
Left = 939 |
24 |
> |
Left = 931 |
25 |
|
Height = 25 |
26 |
|
Top = 80 |
27 |
|
Width = 75 |
75 |
|
Left = 12 |
76 |
|
Height = 527 |
77 |
|
Top = 42 |
78 |
< |
Width = 904 |
78 |
> |
Width = 896 |
79 |
|
Anchors = [akTop, akLeft, akRight, akBottom] |
80 |
|
BevelOuter = bvNone |
81 |
|
ClientHeight = 527 |
82 |
< |
ClientWidth = 904 |
82 |
> |
ClientWidth = 896 |
83 |
|
ParentColor = False |
84 |
|
TabOrder = 4 |
85 |
|
object DBControlGrid1: TDBControlGrid |
86 |
|
Left = 0 |
87 |
|
Height = 477 |
88 |
|
Top = 0 |
89 |
< |
Width = 904 |
89 |
> |
Width = 896 |
90 |
|
Align = alClient |
91 |
|
AlternateColor = clSkyBlue |
92 |
|
AltColorStartNormal = True |
98 |
|
TabOrder = 1 |
99 |
|
ColWidths = ( |
100 |
|
12 |
101 |
< |
890 |
101 |
> |
882 |
102 |
|
) |
103 |
|
object EmployeeEditorPanel: TPanel |
104 |
|
Left = 12 |
105 |
|
Height = 84 |
106 |
|
Top = 0 |
107 |
< |
Width = 890 |
107 |
> |
Width = 882 |
108 |
|
Anchors = [] |
109 |
|
BevelOuter = bvNone |
110 |
|
BorderWidth = 2 |
111 |
|
BorderStyle = bsSingle |
112 |
|
ClientHeight = 82 |
113 |
< |
ClientWidth = 888 |
113 |
> |
ClientWidth = 880 |
114 |
|
Color = clWhite |
115 |
|
ParentColor = False |
116 |
|
TabOrder = 0 |
215 |
|
TabOrder = 5 |
216 |
|
end |
217 |
|
object Label8: TLabel |
218 |
< |
Left = 814 |
218 |
> |
Left = 806 |
219 |
|
Height = 14 |
220 |
|
Top = 58 |
221 |
|
Width = 24 |
224 |
|
ParentColor = False |
225 |
|
end |
226 |
|
object DBEdit5: TDBEdit |
227 |
< |
Left = 838 |
227 |
> |
Left = 830 |
228 |
|
Height = 24 |
229 |
|
Top = 54 |
230 |
|
Width = 40 |
289 |
|
ParentColor = False |
290 |
|
end |
291 |
|
object SpeedButton1: TSpeedButton |
292 |
< |
Left = 786 |
292 |
> |
Left = 778 |
293 |
|
Height = 25 |
294 |
|
Top = 54 |
295 |
|
Width = 23 |
300 |
|
Left = 300 |
301 |
|
Height = 24 |
302 |
|
Top = 54 |
303 |
< |
Width = 478 |
303 |
> |
Width = 470 |
304 |
|
DataField = 'DEPT_PATH' |
305 |
|
DataSource = EmployeeSource |
306 |
|
ReadOnly = True |
352 |
|
Left = 0 |
353 |
|
Height = 50 |
354 |
|
Top = 477 |
355 |
< |
Width = 904 |
355 |
> |
Width = 896 |
356 |
|
Align = alBottom |
357 |
|
BevelOuter = bvNone |
358 |
|
ClientHeight = 50 |
359 |
< |
ClientWidth = 904 |
359 |
> |
ClientWidth = 896 |
360 |
|
ParentColor = False |
361 |
|
TabOrder = 0 |
362 |
|
object Button5: TButton |
378 |
|
TabOrder = 1 |
379 |
|
end |
380 |
|
object DBText1: TDBText |
381 |
< |
Left = 832 |
381 |
> |
Left = 824 |
382 |
|
Height = 27 |
383 |
|
Top = 16 |
384 |
|
Width = 49 |
498 |
|
BeforeOpen = EmployeesBeforeOpen |
499 |
|
BufferChunks = 1000 |
500 |
|
CachedUpdates = False |
501 |
+ |
EnableStatistics = False |
502 |
|
GenerateParamNames = False |
503 |
|
GeneratorField.ApplyOnEvent = gaeOnNewRecord |
504 |
+ |
MasterDetailDelay = 0 |
505 |
|
SQL.Strings = ( |
506 |
|
'Select sum(Salary) as TotalSalaries' |
507 |
|
'From EMPLOYEE' |
546 |
|
BeforeOpen = EmployeesBeforeOpen |
547 |
|
BufferChunks = 1000 |
548 |
|
CachedUpdates = False |
549 |
+ |
EnableStatistics = False |
550 |
|
DeleteSQL.Strings = ( |
551 |
|
'Delete From EMPLOYEE A' |
552 |
|
'Where A.EMP_NO = :EMP_NO' |
611 |
|
GeneratorField.Field = 'EMP_NO' |
612 |
|
GeneratorField.ApplyOnEvent = gaeOnNewRecord |
613 |
|
GenerateParamNames = False |
614 |
+ |
MasterDetailDelay = 0 |
615 |
|
DataSetCloseAction = dcSaveChanges |
616 |
|
AfterTransactionEnd = EmployeesAfterTransactionEnd |
617 |
|
left = 872 |