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

Comparing ibx/trunk/examples/employee/unit1.pas (file contents):
Revision 17 by tony, Sat Dec 28 19:22:24 2013 UTC vs.
Revision 19 by tony, Mon Jul 7 13:00:15 2014 UTC

# Line 14 | Line 14 | type
14  
15    TForm1 = class(TForm)
16      CancelChanges: TAction;
17 +    IBQuery1SALARY: TIBBCDField;
18      IBUpdateSQL1: TIBUpdateSQL;
19      SaveChanges: TAction;
20      DeleteEmployee: TAction;
# Line 39 | Line 40 | type
40      IBQuery1JOB_GRADE: TSmallintField;
41      IBQuery1LAST_NAME: TIBStringField;
42      IBQuery1PHONE_EXT: TIBStringField;
42 –    IBQuery1SALARY: TIBBCDField;
43      IBTransaction1: TIBTransaction;
44      procedure AddEmployeeExecute(Sender: TObject);
45      procedure CancelChangesExecute(Sender: TObject);
# Line 55 | Line 55 | type
55      procedure IBQuery1AfterOpen(DataSet: TDataSet);
56      procedure IBQuery1AfterTransactionEnd(Sender: TObject);
57      procedure IBQuery1BeforeClose(DataSet: TDataSet);
58 –    procedure IBQuery1BeforeOpen(DataSet: TDataSet);
58      procedure IBQuery1PostError(DataSet: TDataSet; E: EDatabaseError;
59        var DataAction: TDataAction);
60      procedure IBQuery1SALARYGetText(Sender: TField; var aText: string;
# Line 219 | Line 218 | begin
218    FLastEmp_no := DataSet.FieldByName('Emp_no').AsInteger
219   end;
220  
222 – procedure TForm1.IBQuery1BeforeOpen(DataSet: TDataSet);
223 – begin
224 – end;
225 –
221   procedure TForm1.IBQuery1PostError(DataSet: TDataSet; E: EDatabaseError;
222    var DataAction: TDataAction);
223   begin

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines