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

Comparing ibx/trunk/examples/ibtable/Unit1.pas (file contents):
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 272 by tony, Mon Feb 4 13:34:37 2019 UTC

# Line 32 | Line 32 | interface
32  
33   uses
34    Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
35 <  DBGrids, db, IBDatabase, IBTable, IBCustomDataSet, IBDynamicGrid, IB;
35 >  DBGrids, StdCtrls, db, IBDatabase, IBTable, IBCustomDataSet, IBDynamicGrid,
36 >  IB;
37  
38   type
39  
40    { TForm1 }
41  
42    TForm1 = class(TForm)
43 +    CheckBox1: TCheckBox;
44      Datasource1: TDataSource;
45      DataSource2: TDataSource;
46      IBDatabase1: TIBDatabase;
47      IBDynamicGrid1: TIBDynamicGrid;
46    IBDynamicGrid2: TIBDynamicGrid;
48      Employees: TIBTable;
49      EmployeesDEPT_NO: TIBStringField;
50      EmployeesEMP_NO: TSmallintField;
# Line 64 | Line 65 | type
65      DeptsLOCATION: TIBStringField;
66      DeptsMNGR_NO: TSmallintField;
67      DeptsPHONE_NO: TIBStringField;
68 +    IBDynamicGrid2: TIBDynamicGrid;
69      IBTransaction1: TIBTransaction;
70      Panel1: TPanel;
71      Panel2: TPanel;
72 +    Panel3: TPanel;
73 +    Panel4: TPanel;
74      Splitter1: TSplitter;
75 +    procedure CheckBox1Change(Sender: TObject);
76      procedure EmployeesSALARYGetText(Sender: TField; var aText: string;
77        DisplayText: Boolean);
78      procedure FormShow(Sender: TObject);
# Line 114 | Line 119 | begin
119      aText := Sender.AsString;
120   end;
121  
122 + procedure TForm1.CheckBox1Change(Sender: TObject);
123 + begin
124 +  if (Sender as TCheckbox).Checked then
125 +    Employees.Filter := 'Salary < 100000'
126 +  else
127 +    Employees.Filter := '';
128 + end;
129 +
130   procedure TForm1.IBDatabase1AfterConnect(Sender: TObject);
131   begin
132    Depts.Active := true;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines