DevExpress控件cxGrid实现多列模糊匹配输入的完美解决方案

Posted 我的学习笔记

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了DevExpress控件cxGrid实现多列模糊匹配输入的完美解决方案相关的知识,希望对你有一定的参考价值。

本方案不需要修改控件源码,是完美解决cxgrid或TcxDBExtLookupComboBox支持多列模糊匹配快速输入的最佳方案!!

小哥摸索多日,终于搞定cxgrid和TcxDBExtLookupComboBox可以支持多列模糊查找输入了!

 

纵观网上的方案,不是修改控件源码,就是自己封装弹窗,代码太长太复杂,后遗症也多多,而自己封装用户体验也是难以尽善尽美,因为UI风格皮肤都不一致啊,嗷嗷~~
本人吐血奉献不需要修改控件源码的方案,堪称史上最完美解决方案!!走过路过不要错过,欢迎收藏!
 

修改方案:cxGrid列的Properties设置为ExtLookupComboBox对象,或者用TcxDBExtLookupComboBox控件。

TExtLookupComboBox和TcxDBExtLookupComboBox控件默认只支持单列查找,而且是始于包含查找,不是我们想要的多列完全模糊匹配查找,所以还需要自行修改。改写方法如下:

假设cxgrid中有一个服务商ID数据列:cxGridDBTableView1VENDOR_ID: TcxGridDBColumn,绑定服务商ID字段。

第1步: OnGetPropertiesForEdit Event.

procedure TForm1.cxGridDBTableView1VENDOR_IDGetPropertiesForEdit

  (Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;

  var AProperties: TcxCustomEditProperties);

begin

  with (AProperties as TcxExtLookupComboBoxProperties) do

  begin

    //也可以在设计期的属性窗口中设置,则可以省去此第1步代码。

    CaseInsensitive := True;

    CaseSensitiveSearch := False;

    IncrementalSearch := False;

    IncrementalFiltering := False;
    DropDownListStyle := lsEditList; 

    View.DataController.Filter.Options := [fcoCaseInsensitive]; //过滤忽略大小写差异.

    View.DataController.Filter.AutoDataSetFilter := False; //避免编辑时干扰到其它行. 

    View.FilterBox.CustomizeDialog := False;

  end;

end;
 第2步:Properties.OnChange  Event.

procedure TForm1.cxGridDBTableView1VENDOR_IDPropertiesChange(Sender: TObject);

var

  iCol: Integer;

begin
  with (Sender as TcxExtLookupComboBox) do

  begin

    Properties.View.DataController.Filter.Clear;

    Properties.View.DataController.Filter.Root.Clear;

    // View中所有可视列都用于模糊检索.

    for iCol := 0 to Properties.View.ItemCount - 1 do

    begin

      if (Properties.View.Items[iCol] as TcxGridColumn).VisibleForCustomization

      then

      begin

        if Properties.View.DataController.Filter.Root.Count > 0 then

          Properties.View.DataController.Filter.Root.BoolOperatorKind := fboOR;

        Properties.View.DataController.Filter.Root.AddItem
         (Properties.View.Items[iCol], foLike, ‘%‘ + EditText + ‘%‘,  ‘%‘ +EditText + ‘%‘);

      end;

    end;

    Properties.View.DataController.Filter.Active := True;

    if Properties.View.DataController.DataRowCount = 1 then

      Properties.View.DataController.SetFocus;

  end;

 

end;
 第3步:Properties.OnCloseUp  Event.

Properties.OnCloseUp事件代码:
procedure TForm1.cxGridDBTableView1VENDOR_IDPropertiesCloseUp(Sender: TObject);
begin
  (Sender as TcxExtLookupComboBox).Properties.View.DataController.Filter.Clear;

end;

 

 

如果不要cxGrid,而用TcxDBExtLookupComboBox控件,方法与上述雷同!
 

以上是关于DevExpress控件cxGrid实现多列模糊匹配输入的完美解决方案的主要内容,如果未能解决你的问题,请参考以下文章

Devexpress 中GridLookUpEdit的实现多列筛选问题。

delphi cxgrid控件中自定义筛选,用like时,要加% %才能实现模糊查询,如何不要输入% %就能实现。

使用devExpress的cxGrid,怎样得到刚刚编辑过的值

仿LookUpEdit多列模糊搜索,功能比GridLookUpEdit强大,比SearhLookUpEdit方便

跪求delphi 中cxgrid控件的用法,越详细越好

如何访问cxGrid控件过滤后的数据集