Delphi CxGrid 汇总（4）

1.     CxGrid汇总功能

① OptionsView-Footer设置为True，显示页脚   ② CxGrid的Summary选项卡定义要汇总的列和字段名及汇总方式，Footer选项卡定义单个汇总，Default For Groups定义按组汇总。OptionsView-GroupFooters设置为gfAlwaysVisible则显示按组汇总。设置后界面如图。

2.       CxGrid的样式设置

当设置了Kind时，NativeStyle必须设置为False，如果指定了SkinName则Kind属性失效。

下图是设置skinname为MoneyTwins后效果

4.       取某个单元格的值

Cxgrid.DataController.Values[i,j]

5.       列操作，选择CxGrid控件后，点击“Customize”新建一列，在Columns集合中选中新建的列，选择propertites属性可以设置该列的显示形式。下面介绍常用的几个

①     Properties选择CheckBox，则该列显示一个复选框，如下：

判断是否选中 if  Cxgrid.DataController.Values[i,j]=’1’   选中

②     Properties选择ButtonEdit，并对该列的属性编辑器设置如下属性Buttons属性添加按钮项，对按钮项设置可以设置kind属性定义按钮样式；ViewStyle属性设置为vsButtonsOnly，Options-ShowEditButton设置为isebAlways。可以编写点击事件如下：

procedure TForm1.cxgrdbtblvwGrid1DBTableView1Column1PropertiesButtonClick(

Sender: TObject; AButtonIndex: Integer);

begin

ShowMessage(‘aaa‘);

end;

③ImageComboBox，可以关联一个imagelist，显示图片。如下关联imagelist后效果。

6．动态添加列和记录行

var

Column:   TcxGridColumn;

i:integer;

acount:integer;

begin

Column:= cxgrd1TableView1.CreateColumn;

Column.Caption   :=   ‘Test ‘;

cxgrd1TableView1.DataController.AppendRecord;

cxgrd1TableView1.DataController.Values[0,   0]   :=   ‘ABC ‘;

cxgrd1TableView1.DataController.Post;

//添加多条记录

for i:=1 to 4 do

begin

acount:=cxgrd1TableView1.DataController.RecordCount;

cxgrd1TableView1.DataController.AppendRecord;

cxgrd1TableView1.DataController.Values[acount,   0]   :=IntToStr(i*1);

cxgrd1TableView1.DataController.Post();

end;

end;

//删除记录

cxgrd1TableView1.DataController.DeleteRecord(0);

end;

50 保存/恢复带汇总行的布局

<TableView>.StoreToIniFile(‘c:\Grid.ini‘, True, [gsoUseSummary]);
<GridView>.RestoreFromIniFile(<inifilename>,True,False {or True, optional},[gsoUseSummary]);

****************************************************************************
51 取消过滤时移到第一行
解决：
uses  
      cxCustomData;  
   
procedure   TYour_Form.AViewDataControllerFilterChanged(Sender:   TObject);  
var  
      Filter:   TcxDataFilterCriteria;  
begin  
      with   Sender   as   TcxDataFilterCriteria   do  
          if   IsEmpty   then  
              DataController.FocusedRowIndex   :=   0;  
end;
****************************************************************************
52 排序后移到第一行
解决：
可以设置DataController.Options.FocusTopRowAfterSorting   :=   True，也可以使用如下的代码：  
   
uses  
      cxCustomData;  
   
procedure   TYour_Form.Your_ViewDataControllerSortingChanged(Sender:   TObject);  
begin  
      TcxCustomDataController(Sender).FocusedRowIndex   :=   0;  
end;
****************************************************************************
53 判断当前行是否第一行或最后一行
解决：
可以使用DataController的IsBOF,   IsEOF方法，或者：  
<AView>.Controller.Controller.FocusedRow.IsFirst  
<AView>.Controller.Controller.FocusedRow.IsLast
****************************************************************************
54 根据指定值查找记录
解决：
DataController提供了好几个方法来得到指定值对应的RecordIndex  
对于Bound   View可以使用FindRecordIndexByKeyValue方法
****************************************************************************
55 编辑和显示Blob字段
解决：
该字段的Properties设置为BlobEdit，并将BlobPaintStyle   属性设为   bpsText
****************************************************************************
56 得到可见行数
解决：
<View>.ViewInfo.VisibleRecordCount
****************************************************************************
57 保存后的行设置为当前行
解决：

[delphi] view plaincopy

  1. const
  2. CM_SETFOCUSEDRECORD   =   WM_USER   +   1002;
  3. type
  4. TForm1   =   class(TForm)
  5. cxGrid1DBTableView1:   TcxGridDBTableView;
  6. cxGrid1Level1:   TcxGridLevel;
  7. cxGrid1:   TcxGrid;
  8. dxMemData1:   TdxMemData;
  9. dxMemData1Field1:   TStringField;
  10. dxMemData1Field2:   TIntegerField;
  11. DataSource1:   TDataSource;
  12. cxGrid1DBTableView1RecId:   TcxGridDBColumn;
  13. cxGrid1DBTableView1Field1:   TcxGridDBColumn;
  14. cxGrid1DBTableView1Field2:   TcxGridDBColumn;
  15. Timer1:   TTimer;
  16. CheckBox1:   TCheckBox;
  17. procedure   Timer1Timer(Sender:   TObject);
  18. procedure   dxMemData1AfterPost(DataSet:   TDataSet);
  19. procedure   CheckBox1Click(Sender:   TObject);
  20. private
  21. procedure   CMSetFocusedRecord(var   Msg:   TMessage);   message   CM_SETFOCUSEDRECORD;
  22. public
  23. {   Public   declarations   }
  24. end;
  25. var
  26. Form1:   TForm1;
  27. FocusedIdx:   Integer;
  28. implementation
  29. {$R   *.dfm}
  30. procedure   TForm1.Timer1Timer(Sender:   TObject);
  31. begin
  32. dxMemData1.AppendRecord([‘‘,   IntToStr(Random(1000)),   Random(1000)]);
  33. end;
  34. procedure   TForm1.dxMemData1AfterPost(DataSet:   TDataSet);
  35. begin
  36. PostMessage(Handle, CM_SETFOCUSEDRECORD,   Integer(cxGrid1DBTableView1),   MakeLParam(cxGrid1DBTableView1.Controller.FocusedRowIndex,   cxGrid1DBTableView1.Controller.TopRowIndex));
  37. end;
  38. procedure   TForm1.CMSetFocusedRecord(var   Msg:   TMessage);
  39. begin
  40. TcxGridDBTableView(msg.WParam).Controller.FocusedRowIndex   :=   Msg.LParamLo;
  41. TcxGridDBTableView(msg.WParam).Controller.TopRowIndex   :=   Msg.LParamHi;
  42. end;
  43. procedure   TForm1.CheckBox1Click(Sender:   TObject);
  44. begin
  45. Timer1.Enabled   :=   TCheckBox(Sender).Checked;
  46. end;
  47. end.
  48. ****************************************************************************
  49. 58 删除记录并获得焦点
  50. 解决：
  51. procedure   TForm1.BtnDeleteClick(Sender:   TObject);
  52. var
  53. FocusedRow,   TopRow:   Integer;
  54. View:   TcxGridTableView;
  55. DataController:   TcxGridDataController;
  56. begin
  57. View   :=   cxGrid1.FocusedView   as   TcxGridTableView;
  58. DataController   :=   View.DataController;
  59. //   Remember   the   top   row   (the   vertical   scrollbar   position)
  60. TopRow   :=   View.Controller.TopRowIndex;
  61. //   Remember   the   focused   row(!)   index
  62. FocusedRow   :=   DataController.FocusedRowIndex;
  63. DataController.DeleteFocused;
  64. //   After   deletion   the   same   row   must   be   focused,
  65. //   although   it   will   correspond   to   a   different   data   record
  66. DataController.FocusedRowIndex   :=   FocusedRow;
  67. //   Restore   the   top   row
  68. View.Controller.TopRowIndex   :=   TopRow;
  69. end;
  70. ****************************************************************************
  71. 59 cxGrid的 TableView 数据排序与对应的数据集同步
  72. 解决：
  73. COPYRIGHT BY cnCharles, ALL RIGHTS RESERVED.
  74. delphi群: 16497064, blog: http://hi.baidu.com/cnCharles
  75. //描述: cxGrid的 TableView 数据排序与对应的数据集同步, 该方法主要用于打印时
  76. //         的排序与所见到的排序保持一致;
  77. //参数: @tv: 排序的cxGridTableView
  78. //说明: @tv: 对应的数据集只支持 ADOQuery与 ClientDataSet;
  79. procedure cxGridSortSyncToDataSet(tv: TcxGridDBTableView); overload;
  80. //描述: 功能同上, 实现代码一样, 如果有更改就同步更改
  81. procedure cxGridSortSyncToDataSet(tv: TcxGridDBBandedTableView); overload;
  82. procedure cxGridSortSyncToDataSet(tv: TcxGridDBTableView);
  83. const
  84. SortArray: array[soAscending..soDescending] of string = (’ASC’, ’DESC’);
  85. var
  86. AscFields, DescFields, S, SortOrder: string;
  87. IndexPrint: string;
  88. I: integer;
  89. Index: integer;
  90. cds: TClientDataSet;
  91. begin
  92. S := ’’;
  93. AscFields := ’’;
  94. DescFields := ’’;
  95. if tv.SortedItemCount = 0 then
  96. Exit;
  97. if tv.DataController.DataSource.DataSet is TADOQuery then begin
  98. for I := 0 to tv.SortedItemCount - 1 do begin
  99. SortOrder := SortArray[tv.SortedItems[I].SortOrder];
  100. if S <> ’’ then
  101. S := S + ’, ’;
  102. Index := tv.SortedItems[I].Index;
  103. S := S + tv.Columns[Index].DataBinding.Field.FieldName + ’ ’ + SortOrder;
  104. end;
  105. (tv.DataController.DataSource.DataSet as TADOQuery).Sort := S;
  106. end else if (tv.DataController.DataSource.DataSet is TClientDataSet)     then begin
  107. Cds := tv.DataController.DataSource.DataSet as TClientDataSet;
  108. for I := 0 to tv.SortedItemCount - 1 do begin
  109. Index := tv.SortedItems[I].Index;
  110. S := tv.Columns[Index].DataBinding.Field.FieldName +’;’;
  111. AscFields := AscFields + S;
  112. if tv.SortedItems[I].SortOrder = soDescending then
  113. DescFields := DescFields + S;
  114. end;
  115. if AscFields <> ’’ then
  116. Delete(AscFields, Length(AscFields), 1); //删除 ;
  117. if DescFields <> ’’ then
  118. Delete(DescFields, Length(DescFields), 1);
  119. IndexPrint := TimeToStr(Now());
  120. Cds.IndexDefs.Clear;
  121. IndexPrint := TimeToStr(Now());
  122. cds.AddIndex(IndexPrint, AscFields, [], DescFields);
  123. cds.IndexName := IndexPrint;
  124. end;
  125. end;
  126. ****************************************************************************
  127. 60 cxGRID怎么遍历已经选择的单元格
  128. 解决：
  129. n := cxGrid1DBTableView1.DataController.GetSelectedCount;
  130. for   i:=0   to   n   -   1   do
  131. begin
  132. Index   :=   cxGrid1DBTableView1.DataController.GetSelectedRowIndex(i);
  133. if   Index   <   0   then   continue;
  134. AccID   :=
  135. cxGrid1DBTableView1.DataController.GetRowvalue(
  136. cxGrid1DBTableView1.DataController.GetRowInfo(Index)
  137. ,0);
  138. AccID   :=   dsData.DataSet.FieldByName(’AccountID’).AsString;
  139. end;
  140. n := cxGrid1DBTableView1.DataController.GetSelectedCount;
  141. for   i:=0   to   n   -   1   do
  142. begin
  143. Index   :=   cxGrid1DBTableView1.DataController.GetSelectedRowIndex(i);
  144. if   Index   <   0   then   continue;
  145. AccID   := cxGrid1DBTableView1.DataController.GetRowvalue(
  146. cxGrid1DBTableView1.DataController.GetRowInfo(Index)
  147. ,0);//这里的0是列的索引，能指定，也可用通过GridView获取
  148. end;
  149. ****************************************************************************
  150. 61 动态设置显示格式
  151. 解决：
  152. procedure SetDisplayFormat(ACtrlData: TClientDataSet;
  153. TbView: TcxGridDBTableView);
  154. var
  155. i: integer;
  156. begin
  157. if ACtrlData.RecordCount <= 0 then Exit;
  158. try
  159. TbView.ClearItems;
  160. ACtrlData.First;
  161. for i := 0 to ACtrlData.RecordCount - 1 do
  162. begin
  163. if ACtrlData.FieldByName(‘SQBF_DisplayInGrid‘).AsString = ‘1‘ then //在表格中显示
  164. with TbView.CreateColumn do
  165. begin
  166. DataBinding.FieldName := ACtrlData.FieldByName(‘SQBF_FieldName‘).AsString;
  167. Caption := ACtrlData.FieldByName(‘SQBF_Caption‘).AsString; //字段中文标题
  168. Hint := ACtrlData.FieldByName(‘SQBF_Hint‘).AsString;
  169. Width := ACtrlData.FieldByName(‘SQBF_Width‘).AsInteger;
  170. HeaderAlignmentHorz := taCenter;
  171. end;
  172. ACtrlData.Next;
  173. end;
  174. except
  175. on E: Exception do
  176. SaveLog(‘设置显示格式时出错：‘ + E.Message);
  177. end;
  178. end;

****************************************************************************
62 给cxGRID加序号列
解决：

[delphi] view plaincopy

  1. procedure SetRowNumber(var ASender: TcxGridTableView;
  2. AViewInfo: TcxCustomGridIndicatorItemViewInfo;
  3. var ACanvas: TcxCanvas; var ADone: boolean);
  4. uses cxLookAndFeelPainters;
  5. procedure SetRowNumber(var ASender: TcxGridTableView; AViewInfo: TcxCustomGridIndicatorItemViewInfo;
  6. var ACanvas: TcxCanvas; var ADone: boolean);
  7. var
  8. AIndicatorViewInfo: TcxGridIndicatorRowItemViewInfo;
  9. ATextRect: TRect;
  10. AFont: TFont;
  11. AFontTextColor, AColor: TColor;
  12. begin
  13. AFont := ACanvas.Font;
  14. AColor := clBtnFace;
  15. AFontTextColor := clWindowText ;
  16. if (AViewInfo is TcxGridIndicatorHeaderItemViewInfo) then begin
  17. ATextRect := AViewInfo.Bounds;
  18. InflateRect(ATextRect, -1, -1);
  19. ASender.LookAndFeelPainter.DrawHeader(ACanvas, AViewInfo.Bounds,
  20. ATextRect, [], cxBordersAll, cxbsNormal, taCenter, vaCenter,
  21. False, False, ‘序号‘, AFont, AFontTextColor, AColor);
  22. ADone := True;
  23. end ;
  24. if not (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
  25. Exit;
  26. ATextRect := AViewInfo.ContentBounds;
  27. AIndicatorViewInfo := AViewInfo as TcxGridIndicatorRowItemViewInfo;
  28. InflateRect(ATextRect, -1, -1);
  29. ASender.LookAndFeelPainter.DrawHeader(ACanvas, AViewInfo.ContentBounds,
  30. ATextRect, [], [bBottom, bLeft, bRight], cxbsNormal, taCenter, vaCenter,
  31. False, False, IntToStr(AIndicatorViewInfo.GridRecord.Index + 1),
  32. AFont, AFontTextColor, AColor);
  33. ADone := True;
  34. ASender.LookAndFeelPainter.DrawIndicatorImage(ACanvas,ATextRect, AIndicatorViewInfo.IndicatorKind);
  35. end;
  36. 如果你不要行标志的话,你可以不改控件
  37. 直接注释掉这一行: ASender.LookAndFeelPainter.DrawIndicatorImage(ACanvas, ATextRect, AIndicatorViewInfo.IndicatorKind);
  38. 要标志的话,在DrawIndicatorImage 从这里跟进去(Ctrl+左键单击)
  39. 在 cxLookAndFeelPainters 单元中作如下修改:
  40. class procedure TcxCustomLookAndFeelPainter.DrawIndicatorImage(ACanvas: TcxCanvas;
  41. const R: TRect; AKind: TcxIndicatorKind);
  42. var
  43. X, Y: Integer;
  44. begin
  45. if AKind = ikNone then Exit;
  46. with cxIndicatorImages, R do
  47. begin
  48. X := (Left + Right - Width);               //靠右
  49. Y := (Top + Bottom - Height) div 2;       //居中
  50. end;
  51. cxIndicatorImages.Draw(ACanvas.Canvas, X, Y, Ord(AKind) - 1);
  52. end;
  53. 注意,我已注明靠右的那一行, 就是去掉 DIV 2 了,
  54. 还要改一个地方:
  55. SKIN控件目录下的dxSkinLookAndFeelPainter单元,找到
  56. TdxSkinLookAndFeelPainter.DrawIndicatorImage 函数
  57. 的
  58. OffsetRect(ARect, (Left + Right - cx div 2) , (Top + Bottom - cy) div 2);
  59. 这一行,将 (Left + Right - cx div 2) 改为(Left + Right - cx) 也是去掉 div 2 就是靠右;
  60. 修改后: OffsetRect(ARect, (Left + Right - cx) , (Top + Bottom - cy) div 2);
  61. 使用
  62. procedure TForm1.cxGrid1DBTableView1CustomDrawIndicatorCell(
  63. Sender: TcxGridTableView; ACanvas: TcxCanvas;
  64. AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
  65. begin
  66. SetRowNumber(Sender,AviewInfo,ACanvas,ADone);
  67. end;
  68. 另外序号列的列宽最好改为25以上!
  69. 效果图:

****************************************************************************
63 cxGrid自带过滤后数据也数据集同步
解决：
在cxGrid的View Filter事件的OnBeforeChange中写代码就可以了.

[delphi] view plaincopy

  1. procedure TForm1.tvcxgd1DBTableView1DataControllerFilterBeforeChange( Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: String);
  2. begin
  3. //这里可以增加数据集控件的
  4. filter:=false; //如：adoquery.filter:=false; //如果使用的是cxgrid的汉化版本，可以将AFilterText中的中文等于，小于 替换成 = <等 //adoquery.filter:=替换了中文的AFilterText; ShowMessage(AFilterText); end; 写了上述步骤后可以在tvcxgd1DBTableView1DataControllerFilterChanged写 adoquery.filter:=true; 这样就起到了cxgrid过滤后的数据同步到adoquery

原文地址：https://www.cnblogs.com/westsoft/p/8504045.html

时间： 2024-11-09 03:13:11

Delphi CxGrid 汇总（4）的相关文章

Delphi CxGrid 汇总（2）

17. 怎样设计多表头的cxGrid?解决:cxGrid可以解决如下的表头:---------------------------------| 说明1 | 说明2 |---------------------------------| 字段1 | 字段2 | 字段3 | 字段4 || 字段5 | 字段6 || 字段7 | 字段8 | 字段9 |实现这个很简单,你可以直接在上面拖动字段名,拖动时会显示箭头的,放入你想显示的位置就OK了.或者在鼠标右击cxGrid1DBBandedTableVie

delphi CXGRID用法 （取行、列值；定位选中某行等等）

CXGRID用法 (取行.列值:定位选中某行等等) Delphi Cxgrid获取选中行列,排序规则,当前正在编辑的单元格内的值 cxGrid1DBTableView1.Controller.FocusedRowIndex 当前行号 cxGrid1DBTableView1.Controller.FocusedRow 当前行 cxGrid1DBTableView1.Controller.FocusedColumn 当前列 cxGrid1DBTableView1.Controller.Focused

Delphi cxGrid加行号

1 procedure SetRowNumber(var ASender: TcxGridTableView; AViewInfo: TcxCustomGridIndicatorItemViewInfo; 2 var ACanvas: TcxCanvas; var ADone: boolean); 3 4 uses cxLookAndFeelPainters; 5 6 procedure SetRowNumber(var ASender: TcxGridTableView; AViewInfo:

delphi cxgrid 使用方法

delphi cxgrid 使用方法1.绑定数据 方法 cxGrid1DBTableView1.DataController.DataSource:=DataSource12.去掉"Drag   a   column   header   here   to   group   by   that   column"方法cxGrid1DBTableView1.OptionsView.GroupByBox置为False3.去掉表头下三角数据 方法cxGrid1DBTableView1.O

Delphi cxGrid使用汇总（一）

1. 去掉cxGrid中台头的Box解决:在tableview1的ptionsview的groupbybox=false; 2．统计功能解决:(1) tableview1. tableview1的optionsviewfooter=ture2.然后在cxGRid1的customize..中的summary 的footer.add需要合计的列kind= skSum在Footer的第一列显示[合计:]  加一个Summary项,Column设为Grid的第一列,Kind设为skNone  在该Sum

delphi CxGrid用法总结(63问)

1. 去掉cxGrid中台头的Box 解决:在tableview1的optionsview的groupbybox=false; ***************************************************************************** 2．统计功能 解决:(1) tableview tableview1的optionsviewfooter=ture 然后在cxGRid1的customize..中的summary 的footer.add需要合计的列k

Delphi : cxGrid的使用方法

1. 去掉cxgrid中抬头的box ,在tableview1的ptionsview的groupbybox=false; 2. 在GRID footer 中加入sum(列), tableview1的optionsview的footer=ture然后在cxGRid1的customize中的summary 的footer.add需要合计的列kind= skSum3. 去掉cxgrid 中的过滤下拉箭头选择tableview1.optionscustomize.columnfiltering=fasl

Delphi - cxGrid添加DB Banded Table

cxGrid添加DB Banded Table   添加操作 1:单击cxGrid Customize... ; 2:右击cxGridLevel1,选择DB Banded Table. 属性设置: 1:添加Bands分组: 选择Bands,可通过修改Caption属性,来控制前台显示值,这里修改为Bands1,Bands2,Bands3... 2:添加Columns列: 3:设置Column归属: 4:去除cxGrid灰色Box: 5:绑定数据库(请参考之前的文章): 最终效果如下: 原文地址:

Delphi疑难杂症汇总一

1.在代码编辑器中如果删除了某个事件过程.就如以下事件过程.连代码都没有 procedure TForm1.Button7Click(Sender: TObject); begin end; 如果删除了.那接下来就坑爹了 F9运行就会提示出错.关联2个头部信息的内容.要全部删除才可以.或者要把这个代码写全了..让人很纠结的事情 2.在程序中放入一个按钮button1 这时你双击按钮.进入事件.随便写一些东西..此时你如果ctrl+c ctrl+v复制这个按钮出来. 此时后一个按钮的事件过程.还是