ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/local-employeedb/unit1.pas
(Generate patch)

Comparing ibx/trunk/examples/local-employeedb/unit1.pas (file contents):
Revision 37 by tony, Mon Feb 15 14:44:25 2016 UTC vs.
Revision 107 by tony, Thu Jan 18 14:37:40 2018 UTC

# Line 121 | Line 121 | type
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;
# Line 300 | Line 299 | begin
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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines