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

最新推荐文章于 2024-09-26 15:39:06 发布

原创最新推荐文章于 2024-09-26 15:39:06 发布 · 4.2k 阅读

6 ·

本内容遵循CC 4.0 BY-SA版权协议

本文介绍 Delphi 中 DBGridEh 控件的排序、过滤及自动搜索功能的实现方法。通过设置属性和编写事件处理代码，可以轻松实现数据的排序、过滤和实时搜索功能。

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

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

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

 
    1procedure TForm1.FormCreate(Sender: TObject);
 
    2var
 
    3  I: Integer;
 
    4begin
 
    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;
 
    9end;

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

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

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

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

三、自动搜索：

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

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

标签

#delphi #Ehlib