99 |
|
EmployeeSource: TDataSource; |
100 |
|
IBDatabase1: TIBDatabase; |
101 |
|
IBTransaction1: TIBTransaction; |
102 |
– |
procedure EmployeesAfterPost(DataSet: TDataSet); |
102 |
|
procedure EmployeesValidatePost(Sender: TObject; var CancelPost: boolean); |
103 |
|
procedure JobCodeChangeTimerTimer(Sender: TObject); |
104 |
|
procedure JobGradeChangeTimerTimer(Sender: TObject); |
229 |
|
end; |
230 |
|
end; |
231 |
|
|
233 |
– |
procedure TForm1.EmployeesAfterPost(DataSet: TDataSet); |
234 |
– |
begin |
235 |
– |
Employees.Refresh |
236 |
– |
end; |
237 |
– |
|
232 |
|
procedure TForm1.EmployeesValidatePost(Sender: TObject; var CancelPost: boolean |
233 |
|
); |
234 |
|
begin |