133 |
|
procedure AddEmployeeExecute(Sender: TObject); |
134 |
|
procedure BeforeDateChange(Sender: TObject); |
135 |
|
procedure CancelChangesExecute(Sender: TObject); |
136 |
– |
procedure CountriesBeforeOpen(DataSet: TDataSet); |
136 |
|
procedure DeleteEmployeeExecute(Sender: TObject); |
137 |
|
procedure EditEmployeeExecute(Sender: TObject); |
138 |
|
procedure EditEmployeeUpdate(Sender: TObject); |
139 |
|
procedure EmployeesAfterInsert(DataSet: TDataSet); |
140 |
|
procedure EmployeesAfterOpen(DataSet: TDataSet); |
142 |
– |
procedure EmployeesAfterScroll(DataSet: TDataSet); |
141 |
|
procedure EmployeesBeforeClose(DataSet: TDataSet); |
142 |
|
procedure EmployeesBeforeOpen(DataSet: TDataSet); |
143 |
|
procedure EmployeesJOB_CODEChange(Sender: TField); |
150 |
|
var DataAction: TDataAction); |
151 |
|
procedure EmployeesSALARYGetText(Sender: TField; var aText: string; |
152 |
|
DisplayText: Boolean); |
155 |
– |
procedure JobCodesBeforeOpen(DataSet: TDataSet); |
153 |
|
procedure SaveChangesExecute(Sender: TObject); |
154 |
|
procedure SaveChangesUpdate(Sender: TObject); |
155 |
|
private |
205 |
|
aText := Sender.AsString |
206 |
|
end; |
207 |
|
|
211 |
– |
procedure TForm1.JobCodesBeforeOpen(DataSet: TDataSet); |
212 |
– |
begin |
213 |
– |
JobCodes.ParamByName('JOB_GRADE').AsInteger := EmployeesJOB_GRADE.AsInteger; |
214 |
– |
JobCodes.ParamByName('JOB_COUNTRY').AsString := EmployeesJOB_COUNTRY.AsString |
215 |
– |
end; |
216 |
– |
|
208 |
|
procedure TForm1.SaveChangesExecute(Sender: TObject); |
209 |
|
begin |
210 |
|
Employees.Transaction.Commit |
219 |
|
begin |
220 |
|
with IBTransaction1 do |
221 |
|
if not InTransaction then StartTransaction; |
231 |
– |
Countries.Active := true; |
232 |
– |
Employees.Active := true; |
233 |
– |
JobCodes.Active := true; |
222 |
|
Depts.Active := true; |
223 |
+ |
Employees.Active := true; |
224 |
|
end; |
225 |
|
|
226 |
|
procedure TForm1.DoOpenDatabase(Data: PtrInt); |
308 |
|
Employees.Transaction.Rollback |
309 |
|
end; |
310 |
|
|
322 |
– |
procedure TForm1.CountriesBeforeOpen(DataSet: TDataSet); |
323 |
– |
begin |
324 |
– |
Countries.ParamByName('JOB_GRADE').AsInteger := EmployeesJOB_GRADE.AsInteger; |
325 |
– |
Countries.ParamByName('JOB_CODE').AsString := EmployeesJOB_CODE.AsString |
326 |
– |
end; |
327 |
– |
|
311 |
|
procedure TForm1.DeleteEmployeeExecute(Sender: TObject); |
312 |
|
begin |
313 |
|
if MessageDlg( |
342 |
|
procedure TForm1.EmployeesAfterOpen(DataSet: TDataSet); |
343 |
|
begin |
344 |
|
TotalsQuery.Active := true; |
345 |
+ |
Countries.Active := true; |
346 |
+ |
JobCodes.Active := true; |
347 |
|
IBDynamicGrid1.SetFocus; |
348 |
|
end; |
349 |
|
|
365 |
– |
procedure TForm1.EmployeesAfterScroll(DataSet: TDataSet); |
366 |
– |
begin |
367 |
– |
JobGradeChangeTimer.Interval := 200; |
368 |
– |
end; |
369 |
– |
|
350 |
|
procedure TForm1.EmployeesBeforeClose(DataSet: TDataSet); |
351 |
|
begin |
352 |
< |
TotalsQuery.Active := false |
352 |
> |
TotalsQuery.Active := false; |
353 |
> |
Countries.Active := false; |
354 |
> |
JobCodes.Active := false; |
355 |
|
end; |
356 |
|
|
357 |
|
procedure TForm1.EmployeesBeforeOpen(DataSet: TDataSet); |