cxGrid 使用指南 3

发布时间：2019-09-17 07:45:25编辑：auto阅读（2108）

现在特将收集的一些文章与大家分享,也希望大家不要重蹈我的覆辙.
http://www.delphibbs.com/keylife/iblog_show.asp?xid=19911大富翁论坛-富翁笔记-cxgrid （数据库控件）控件的使用
http://www.delphifans.com/infoView/Article_722.html『Delphi园地』-分享一下ExpressQuantumGrid4的cxGrid的一些使用方法和经验
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2843325CxGrid显示数据时有多少条记录就画多表格线，其它地方为空，有没有办法可以像DbGrid一样画满
http://www.delphibbs.com/keylife/iblog_show.asp?xid=16001大富翁论坛-富翁笔记-ExpressQuantumGrid中如何将满足条件的记录用不同颜色显示？
http://soft.etcell.com/topicView.aspx?Id=35970 开个贴子,专门讨论一下cxGrid,用过的进来看看
http://blog.csdn.net/nhconch/archive/2007/03/02/1519254.aspx让cxGrid像Excel那样高亮显示选区的行号列标
http://community.csdn.net/Expert/topic/5642/5642196.xml?temp=.5949365关于手动向Cxgrid里面添加内容的问题。
http://download.csdn.net/source/15030DevExpress QuantumGrid4.5 教程

欢迎大家在此帖中提问和解答,在此先谢谢大家!

=========================================================

cxgrid为Delphi 上强大的表格控件，可以基本上不用写代码，就可以完成许多的功能，像排序，过滤，分组等。
现在，我们要完成的就是利用cxgrid的强大的过滤器生成器，生成我们的数据库过滤脚本。

虽然，dev express 提供了TcxDBFilterControl 和TcxFilterControl两个控件，但由于没有提供相应的帮助文件，导致使用起来很有难度。
首先，我们需要的是TcxDBFilterControl，这个好办，有控件可以直接用。
接着，怎么用，由于帮助文件的缺乏，这是最大的问题。
从cxDBFilterControl.pas可以看到这么一个函数

function ExecuteDBFilterControlDialog(ADataSet: TDataSet;
  ALookAndFeel: TcxLookAndFeel; AOnApplyProc: TNotifyEvent = nil;
  AOnShowDialog: TNotifyEvent = nil; AColor: TColor = clDefault;
  const AInitialDir: string = ''): Boolean;

注意到，这是全局函数，就是说可以直接使用的。
可以用来对给定的dataset生成相应的filterControl，使用时，只要传入要过滤的dataset，和一个cxgrid的 lookandFeel就可以了，当然，要真正的使用，还是需要指定apply或者show的事件代码（TNotifyEvent 类型的，就是只带sender:TObject参数的过程），传入相应的函数名就可以了。
比如说，我要为query1生成一个过滤器，在提交的时候，显示过滤器的文本内容

创建OnApplyProc事件代码：

procedure OnApplyProc(Sender:TObject);
//sender就是传入的FilterControl本身，
//通过FilterText属性，就可以访问到生成的filter文本了
begin
showmessage(TcxdbFiltercontrol(sender).FilterText);
end;

2. 调用ExecuteDBFilterControlDialog

procedure TForm1.Button1Click(Sender: TObject);
begin
inherited;
ExecuteDBFilterControlDialog(query1,cxgrid1.LookAndFeel,OnApplyProc);
end;

完成。在点击form1的button1后，出现filterbuilding dialog，点击OK之后呢，出现过滤器的文本。
可以通过把TcxDBFIlterControl的filtertext传递给query组件，放在where语句中，就可以实现服务器端的过滤了。

逝者如斯夫，不舍昼夜！

得到cxGrid被选（多选）后的字段内容

w ITh cxGrid1DBTableView1.Controller do
begin
      BeginUpdate ;
            for iRow := 0 to SelectedRowCount - 1 do
            begin
                  SelectedRows[iRow].Focused := True ;       //我就差这句！
                  valueStr := DataSource.DatASEt.FieldValues['Name'];
ShowMessage(valueStr);
            end;
      EndUpdate ;
  end;

逝者如斯夫，不舍昼夜！

===============================================================

Developer Express的cxGrid控件是一个相当有特色的数据栅格组件，支持自动分组、卡片式显示、和像Excel那样的过滤功能等。不过它在多选区时的显示方式却不太友善，对于我这样还有点追求的人来说肯定是不会满足的了，于是通过它的OnDrawColumnHeader事件和 OnDrawIndicatorCell事件把它变成像Excel那样以高亮显示行号列标。一切以图片说话，如下图：

PS：我平时是用来显示数据的，没有考虑编辑状态；为了说明效果，cxGrid使用DBTableView并设成允许多选和选区方式（在OptionsView里有设）。
OnDrawColumnHeader事件源码如下：
procedure TfrmAccount.cxtvMasterCustomDrawColumnHeader(
  Sender: TcxGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridColumnHeaderViewInfo; var ADone: Boolean);
var
AButtonState: TcxButtonState;
ARect: TRect;
begin
if AViewInfo.Column.Selected then begin
      AButtonState := cxbsHot;
      ARect := AViewInfo.Bounds;
      Sender.LookAndFeelPainter.DrawHeader(ACanvas, ARect, AViewInfo.TextAreaBounds
         , [], cxBordersAll, AButtonState, AViewInfo.Column.HeaderAlignmentHorz
         , AViewInfo.Column.HeaderAlignmentVert, False, False
         , AViewInfo.Column.Caption, ACanvas.Font, Sender.Styles.Selection.TextColor
         , Sender.Styles.Selection.Color);
{========================================================================
  DESIGN BY :  彭国辉
  DATE:       2007-03-02
  SITE:       http://kacarton.yeah.net/
  BLOG:       http://blog.csdn.net/nhconch
  EMAIL:    kacarton#sohu.com
  文章为作者原创，转载前请先与本人联系，转载请注明文章出处、保留作者信息，谢谢支持！
=========================================================================}
      ARect.Left := ARect.Right - 19;
      ARect.Right := ARect.Right - 1;
      InflateRect(ARect, -1, -3);
      if AViewInfo.Column.Options.Filtering then begin
         Sender.LookAndFeelPainter.DrawFilterDropDownButton(ACanvas, ARect
            , cxbsNormal, AViewInfo.Column.Filtered);
         OffsetRect(ARect, -16, 0);
      end;
      if AViewInfo.Column.SortIndex <> -1 then
         Sender.LookAndFeelPainter.DrawSortingMark(ACanvas, ARect
            , AViewInfo.Column.SortOrder=soAscending);
      ADone := true;
end;
end;
OnDrawIndicatorCell事件源码如下：
procedure TfrmAccount.cxtvMasterCustomDrawIndicatorCell(
  Sender: TcxGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var
AButtonState: TcxButtonState;
clFont, clBrush: TColor;
begin
if not (AViewInfo is TcxGridIndicatorRowItemViewInfo) then Exit;
if TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Selected then begin
      AButtonState := cxbsHot;
      if Sender.LookAndFeelPainter.LookAndFeelStyle = lfsOffice11 then begin
         clFont := ACanvas.Font.Color;
         clBrush := ACanvas.Brush.Color;
      end else begin
         clFont := Sender.Styles.Selection.TextColor;
         clBrush := Sender.Styles.Selection.Color;
   end;
end else begin
      AButtonState := cxbsNormal;
      clFont := ACanvas.Font.Color;
      clBrush := ACanvas.Brush.Color;
end;
Sender.LookAndFeelPainter.DrawHeader(ACanvas, AViewInfo.ContentBounds,
      AViewInfo.ContentBounds, [], [bLeft, bRight, bBottom], AButtonState, taCenter
      , vaCenter, False, False, IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1)
      , ACanvas.Font, clFont, clBrush);
ADone := True;
end;