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; |
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); |
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; |