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

Comparing ibx/trunk/examples/lookupcombobox/Unit1.pas (file contents):
Revision 21 by tony, Thu Feb 26 10:33:34 2015 UTC vs.
Revision 27 by tony, Tue Apr 14 13:10:23 2015 UTC

# Line 20 | Line 20 | type
20      CountriesSource: TDataSource;
21      EmployeesDEPT_KEY_PATH: TIBStringField;
22      EmployeesDEPT_PATH: TIBStringField;
23 +    IBDateEdit1: TDBDateEdit;
24      IBLookupComboEditBox2: TIBLookupComboEditBox;
25      IBLookupComboEditBox3: TIBLookupComboEditBox;
26      JobCodeSource: TDataSource;
27      DBComboBox1: TDBComboBox;
28      DBEdit4: TDBEdit;
28 –    IBDateEdit1: TDBDateEdit;
29      Countries: TIBQuery;
30      JobCodes: TIBQuery;
31      Label10: TLabel;
# Line 72 | Line 72 | type
72      procedure EmployeesAfterInsert(DataSet: TDataSet);
73      procedure EmployeesAfterPost(DataSet: TDataSet);
74      procedure EmployeesAfterTransactionEnd(Sender: TObject);
75 –    procedure EmployeesBeforeScroll(DataSet: TDataSet);
75      procedure EmployeesFULL_NAMEChange(Sender: TField);
76      procedure EmployeesJOB_CODEChange(Sender: TField);
77      procedure EmployeesJOB_GRADEChange(Sender: TField);
# Line 266 | Line 265 | begin
265      Application.QueueAsyncCall(@OpenDataSets,0)
266   end;
267  
269 – procedure TForm1.EmployeesBeforeScroll(DataSet: TDataSet);
270 – begin
271 –  with DataSet do
272 –    if State in [dsInsert,dsEdit] then
273 –    try
274 –      Post
275 –    except on E: Exception do
276 –      begin
277 –        Cancel;
278 –        MessageDlg(E.Message,mtError,[mbOK],0)
279 –      end;
280 –    end;
281 – end;
282 –
268   procedure TForm1.EmployeesFULL_NAMEChange(Sender: TField);
269   var I: integer;
270      aText: string;

Diff Legend

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