EhLib表格控件DBGridEh自动排序、自动过滤的实现

一、排序功能：(原文链接：http://www.tansoo.cn/?p=401)

首先在uses节中根据你选用的数据集引用对应的 EhLibXXX (EhLibADO, EhLibCDS…)

然后再设置下面几个DBGridEh控件的属性：

1 procedure TForm1.FormCreate(Sender: TObject);
2 var
3   I: Integer;
4 begin
5   DBGridEh1.SortLocal := True;
6   DBGridEh1.OptionsEh := DBGridEh1.OptionsEh + [dghAutoSortMarking];
7   for I := 0 to DBGridEh1.Columns.Count - 1 do
8     DBGridEh1.Columns[I].Title.TitleButton := True;
9 end;

 二、过滤功能：
具体设置很简单，如下：

1 DBGridEh1.STFilter.Visible := True;
2 DBGridEh1.STFilter.Local := True;

如果想在下拉列表中加入自定义过滤条件，可以在相应列的OnFillSTFilterListValues事件中加入：

1 procedure TForm3.DBGridEh1Columns1FillSTFilterListValues(
2   Sender: TCustomDBGridEh; Column: TColumnEh; Items: TStrings;
3   var Processed: Boolean);
4 begin
5   Items.Add('201201');
6   Items.Add('201202');
7   Items.Add('201203');
8   Items.Add('201204');
9 end;

 

三、自动搜索：

该搜索框可实现自动搜索并过滤。

1 DBGridEh1.SearchPanel.Enabled := True;
2 DBGridEh1.SearchPanel.FilterOnTyping := True; //实时过滤