Frequently Asked Component Specific Questions
Options |
|
Display all FAQ items |
Displaying items 1 to 1 of 1, page 1 of 1
<< previous next >>
TDBAdvGridDoing custom dataset filtering in TDBAdvGrid from the filter edit row
Default, the grid performs built-in filtering of data. It can be desirable to not use the built-in grid filtering but instead perform the filtering directly on the dataset but still use the filter edit UI to enter the filter condition.
To perform the dataset filtering, implement the OnFilterEditUpdate and from this event, set the flag grid.DoAutoEditFilter = false. When this flag is set false, the OnFilterEditDone event will be triggered from where the code can be added to specify the filter.
Example implementation in code with a grid bound to a TADOQuery dataset assuming the filter condition is set in the filter UI for the ''BRAND'' or ''TYPE'' field in the dataset:
procedure TForm1.FormCreate(Sender: TObject); begin
adoquery1.SQL.Text := ''SELECT * FROM CARS'';
adoquery1.Active := true;
dbadvgrid1.FilterEdit.Enabled := true; end; end;
procedure TForm1.DBAdvGrid1FilterEditDone(Sender: TObject; ACol: Integer;
Condition: string; FilterType: TFilterType); begin
//event is triggered when built-in filtering is not used and from here custom dataset filtering can be done
if ACol = BrandColumn then
adoquery1.SQL.Text := ''SELECT * FROM CARS WHERE BRAND LIKE ''''''+
Condition+'''''''';
if ACol = TypeColumn then
adoquery1.SQL.Text := ''SELECT * FROM CARS WHERE TYPE LIKE ''''''+
Condition+'''''''';
adoquery1.Active := true;
end;
procedure TForm1.DBAdvGrid1FilterEditUpdate(Sender: TObject; ACol: Integer;
Condition: string; FilterType: TFilterType); begin
//just set the flag that built-in filtering will not be used
DBAdvGrid1.DoAutoEditFilter := false;
end;