10 |
|
OnClose = FormClose |
11 |
|
OnShow = FormShow |
12 |
|
Position = poScreenCenter |
13 |
< |
LCLVersion = '1.6.4.0' |
13 |
> |
LCLVersion = '2.0.11.0' |
14 |
|
object Panel1: TPanel |
15 |
|
Left = 11 |
16 |
|
Height = 367 |
29 |
|
Align = alLeft |
30 |
|
TextField = 'DEPARTMENT' |
31 |
|
DataSource = DataSource1 |
32 |
– |
DefaultItemHeight = 16 |
32 |
|
DragMode = dmAutomatic |
33 |
|
Images = ImageList1 |
34 |
|
HasChildField = 'CHILDCOUNT' |
72 |
|
TabOrder = 0 |
73 |
|
object Label2: TLabel |
74 |
|
Left = 11 |
75 |
< |
Height = 13 |
75 |
> |
Height = 15 |
76 |
|
Top = 16 |
77 |
< |
Width = 20 |
77 |
> |
Width = 25 |
78 |
|
Caption = 'Title' |
79 |
|
ParentColor = False |
80 |
|
end |
81 |
|
object DBEdit1: TDBEdit |
82 |
|
Left = 11 |
83 |
< |
Height = 21 |
83 |
> |
Height = 25 |
84 |
|
Top = 31 |
85 |
|
Width = 373 |
86 |
|
DataField = 'DEPARTMENT' |
92 |
|
end |
93 |
|
object Label3: TLabel |
94 |
|
Left = 13 |
95 |
< |
Height = 13 |
95 |
> |
Height = 15 |
96 |
|
Top = 71 |
97 |
< |
Width = 40 |
97 |
> |
Width = 51 |
98 |
|
Caption = 'Location' |
99 |
|
ParentColor = False |
100 |
|
end |
101 |
|
object DBEdit4: TDBEdit |
102 |
|
Left = 13 |
103 |
< |
Height = 21 |
103 |
> |
Height = 25 |
104 |
|
Top = 86 |
105 |
|
Width = 179 |
106 |
|
DataField = 'LOCATION' |
111 |
|
end |
112 |
|
object Label4: TLabel |
113 |
|
Left = 219 |
114 |
< |
Height = 13 |
114 |
> |
Height = 15 |
115 |
|
Top = 71 |
116 |
< |
Width = 34 |
116 |
> |
Width = 44 |
117 |
|
Caption = 'Budget' |
118 |
|
ParentColor = False |
119 |
|
end |
120 |
|
object DBEdit2: TDBEdit |
121 |
|
Left = 219 |
122 |
< |
Height = 21 |
122 |
> |
Height = 25 |
123 |
|
Top = 86 |
124 |
|
Width = 165 |
125 |
|
DataField = 'BUDGET' |
131 |
|
end |
132 |
|
object Label5: TLabel |
133 |
|
Left = 219 |
134 |
< |
Height = 13 |
134 |
> |
Height = 15 |
135 |
|
Top = 121 |
136 |
< |
Width = 50 |
136 |
> |
Width = 61 |
137 |
|
Caption = 'Phone No.' |
138 |
|
ParentColor = False |
139 |
|
end |
140 |
|
object DBEdit3: TDBEdit |
141 |
|
Left = 219 |
142 |
< |
Height = 21 |
142 |
> |
Height = 25 |
143 |
|
Top = 136 |
144 |
|
Width = 165 |
145 |
|
DataField = 'PHONE_NO' |
151 |
|
end |
152 |
|
object Label6: TLabel |
153 |
|
Left = 12 |
154 |
< |
Height = 13 |
154 |
> |
Height = 15 |
155 |
|
Top = 121 |
156 |
< |
Width = 42 |
156 |
> |
Width = 52 |
157 |
|
Caption = 'Manager' |
158 |
|
ParentColor = False |
159 |
|
end |
160 |
|
object IBLookupComboEditBox1: TIBLookupComboEditBox |
161 |
|
Left = 13 |
162 |
< |
Height = 21 |
162 |
> |
Height = 27 |
163 |
|
Top = 136 |
164 |
|
Width = 180 |
165 |
|
DataField = 'MNGR_NO' |
172 |
|
TabOrder = 4 |
173 |
|
AutoInsert = False |
174 |
|
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
175 |
< |
ItemHeight = 13 |
175 |
> |
ItemHeight = 0 |
176 |
|
end |
177 |
|
object Label7: TLabel |
178 |
|
Left = 12 |
179 |
< |
Height = 13 |
179 |
> |
Height = 15 |
180 |
|
Top = 172 |
181 |
< |
Width = 92 |
181 |
> |
Width = 115 |
182 |
|
Caption = 'Departmental Staff' |
183 |
|
ParentColor = False |
184 |
|
end |
250 |
|
end |
251 |
|
object Label1: TLabel |
252 |
|
Left = 11 |
253 |
< |
Height = 13 |
253 |
> |
Height = 15 |
254 |
|
Top = 17 |
255 |
< |
Width = 62 |
255 |
> |
Width = 79 |
256 |
|
Caption = 'Departments' |
257 |
|
ParentColor = False |
258 |
|
end |
312 |
|
AfterInsert = DepartmentsAfterInsert |
313 |
|
BufferChunks = 1000 |
314 |
|
CachedUpdates = False |
315 |
+ |
CaseSensitiveParameterNames = False |
316 |
+ |
EnableStatistics = False |
317 |
|
DeleteSQL.Strings = ( |
318 |
|
'Delete From DEPARTMENT A' |
319 |
|
'Where A.DEPT_NO = :DEPT_NO' |
355 |
|
GeneratorField.Field = 'DEPT_NO' |
356 |
|
GeneratorField.ApplyOnEvent = gaeOnNewRecord |
357 |
|
GenerateParamNames = False |
358 |
+ |
MasterDetailDelay = 0 |
359 |
|
DataSetCloseAction = dcSaveChanges |
360 |
|
AfterTransactionEnd = DepartmentsAfterTransactionEnd |
361 |
|
left = 144 |
440 |
|
ReadOnly = False |
441 |
|
Required = False |
442 |
|
end |
443 |
< |
object DepartmentsCHILDCOUNT: TIntegerField |
442 |
< |
DisplayWidth = 10 |
443 |
> |
object DepartmentsIMAGEINDEX: TIBIntegerField |
444 |
|
FieldKind = fkData |
445 |
< |
FieldName = 'CHILDCOUNT' |
445 |
> |
FieldName = 'IMAGEINDEX' |
446 |
|
Index = 7 |
447 |
|
LookupCache = False |
448 |
|
ProviderFlags = [pfInUpdate, pfInWhere] |
449 |
|
ReadOnly = False |
450 |
|
Required = True |
451 |
|
end |
452 |
< |
object DepartmentsIMAGEINDEX: TIBIntegerField |
452 |
> |
object DepartmentsCHILDCOUNT: TIBLargeIntField |
453 |
|
FieldKind = fkData |
454 |
< |
FieldName = 'IMAGEINDEX' |
454 |
> |
FieldName = 'CHILDCOUNT' |
455 |
|
Index = 8 |
456 |
|
LookupCache = False |
457 |
|
ProviderFlags = [pfInUpdate, pfInWhere] |
475 |
|
Transaction = IBTransaction1 |
476 |
|
BufferChunks = 1000 |
477 |
|
CachedUpdates = False |
478 |
+ |
CaseSensitiveParameterNames = False |
479 |
+ |
EnableStatistics = False |
480 |
|
GenerateParamNames = False |
481 |
|
GeneratorField.ApplyOnEvent = gaeOnNewRecord |
482 |
+ |
MasterDetailDelay = 0 |
483 |
|
SQL.Strings = ( |
484 |
|
'Select A.EMP_NO, A.FULL_NAME From EMPLOYEE A' |
485 |
|
'order by 2' |
500 |
|
Transaction = IBTransaction1 |
501 |
|
BufferChunks = 1000 |
502 |
|
CachedUpdates = False |
503 |
+ |
CaseSensitiveParameterNames = False |
504 |
|
DataSource = DataSource1 |
505 |
+ |
EnableStatistics = False |
506 |
|
GenerateParamNames = False |
507 |
|
GeneratorField.ApplyOnEvent = gaeOnNewRecord |
508 |
+ |
MasterDetailDelay = 0 |
509 |
|
SQL.Strings = ( |
510 |
|
'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' |
511 |
|
'Where A.DEPT_NO =:DEPT_NO' |