121 |
|
IBTransaction1: TIBTransaction; |
122 |
|
procedure DBImage1DBImageRead(Sender: TObject; S: TStream; |
123 |
|
var GraphExt: string); |
124 |
– |
procedure EmployeesAfterPost(DataSet: TDataSet); |
124 |
|
procedure EmployeesValidatePost(Sender: TObject; var CancelPost: boolean); |
125 |
|
procedure IBDatabase1AfterConnect(Sender: TObject); |
126 |
|
procedure IBLocalDBSupport1GetDBVersionNo(Sender: TObject; |
299 |
|
end; |
300 |
|
end; |
301 |
|
|
303 |
– |
procedure TForm1.EmployeesAfterPost(DataSet: TDataSet); |
304 |
– |
begin |
305 |
– |
Employees.Refresh |
306 |
– |
end; |
307 |
– |
|
302 |
|
procedure TForm1.DBImage1DBImageRead(Sender: TObject; S: TStream; |
303 |
|
var GraphExt: string); |
304 |
|
begin |