Delphi CxGrid 汇总（5） 转

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

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

[delphi] view plaincopy

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

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

[delphi] view plaincopy

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