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 保存后的行設置為當前行
解決：

 const
       CM_SETFOCUSEDRECORD   =   WM_USER   +   1002;

 type
       TForm1   =   class(TForm)
           cxGrid1DBTableView1:   TcxGridDBTableView;
           cxGrid1Level1:   TcxGridLevel;
           cxGrid1:   TcxGrid;
           dxMemData1:   TdxMemData;
           dxMemData1Field1:   TStringField;
           dxMemData1Field2:   TIntegerField;
           DataSource1:   TDataSource;
           cxGrid1DBTableView1RecId:   TcxGridDBColumn;
           cxGrid1DBTableView1Field1:   TcxGridDBColumn;
           cxGrid1DBTableView1Field2:   TcxGridDBColumn;
           Timer1:   TTimer;
           CheckBox1:   TCheckBox;
           procedure   Timer1Timer(Sender:   TObject);
           procedure   dxMemData1AfterPost(DataSet:   TDataSet);
           procedure   CheckBox1Click(Sender:   TObject);
       private
           procedure   CMSetFocusedRecord(var   Msg:   TMessage);   message   CM_SETFOCUSEDRECORD;
       public
           {   Public   declarations   }
       end;

 var
       Form1:   TForm1;
       FocusedIdx:   Integer;


 implementation

 {$R   *.dfm}

 procedure   TForm1.Timer1Timer(Sender:   TObject);
 begin
       dxMemData1.AppendRecord(['',   IntToStr(Random(1000)),   Random(1000)]);
 end;

 procedure   TForm1.dxMemData1AfterPost(DataSet:   TDataSet);
 begin
       PostMessage(Handle, CM_SETFOCUSEDRECORD,   Integer(cxGrid1DBTableView1),   MakeLParam(cxGrid1DBTableView1.Controller.FocusedRowIndex,   cxGrid1DBTableView1.Controller.TopRowIndex));
 end;

 procedure   TForm1.CMSetFocusedRecord(var   Msg:   TMessage);
 begin
       TcxGridDBTableView(msg.WParam).Controller.FocusedRowIndex   :=   Msg.LParamLo;
       TcxGridDBTableView(msg.WParam).Controller.TopRowIndex   :=   Msg.LParamHi;
 end;

 procedure   TForm1.CheckBox1Click(Sender:   TObject);
 begin
       Timer1.Enabled   :=   TCheckBox(Sender).Checked;
 end;

 end.
 ****************************************************************************
 58 刪除記錄並獲得焦點
 解決：
 procedure   TForm1.BtnDeleteClick(Sender:   TObject);
 var
       FocusedRow,   TopRow:   Integer;
       View:   TcxGridTableView;
       DataController:   TcxGridDataController;
 begin
       View   :=   cxGrid1.FocusedView   as   TcxGridTableView;
       DataController   :=   View.DataController;

       //   Remember   the   top   row   (the   vertical   scrollbar   position)
       TopRow   :=   View.Controller.TopRowIndex;
       //   Remember   the   focused   row(!)   index
       FocusedRow   :=   DataController.FocusedRowIndex;

       DataController.DeleteFocused;

       //   After   deletion   the   same   row   must   be   focused,
       //   although   it   will   correspond   to   a   different   data   record
       DataController.FocusedRowIndex   :=   FocusedRow;
       //   Restore   the   top   row
       View.Controller.TopRowIndex   :=   TopRow;
 end;
 ****************************************************************************
 59 cxGrid的 TableView 數據排序與對應的數據集同步
 解決：
 COPYRIGHT BY cnCharles, ALL RIGHTS RESERVED.
 delphi群: 16497064, blog: http://hi.baidu.com/cnCharles

      //描述: cxGrid的 TableView 數據排序與對應的數據集同步, 該方法主要用於打印時
        //         的排序與所見到的排序保持一致;
        //參數: @tv: 排序的cxGridTableView
        //說明: @tv: 對應的數據集只支持 ADOQuery與 ClientDataSet;
        procedure cxGridSortSyncToDataSet(tv: TcxGridDBTableView); overload;

        //描述: 功能同上, 實現代碼一樣, 如果有更改就同步更改
        procedure cxGridSortSyncToDataSet(tv: TcxGridDBBandedTableView); overload;

 procedure cxGridSortSyncToDataSet(tv: TcxGridDBTableView);
 const
      SortArray: array[soAscending..soDescending] of string = (’ASC’, ’DESC’);
 var
      AscFields, DescFields, S, SortOrder: string;
      IndexPrint: string;
      I: integer;
      Index: integer;
      cds: TClientDataSet;
 begin
      S := ’’;
      AscFields := ’’;
      DescFields := ’’;
      if tv.SortedItemCount = 0 then
        Exit;
      if tv.DataController.DataSource.DataSet is TADOQuery then begin
        for I := 0 to tv.SortedItemCount - 1 do begin
          SortOrder := SortArray[tv.SortedItems[I].SortOrder];
          if S <> ’’ then
            S := S + ’, ’;
          Index := tv.SortedItems[I].Index;
          S := S + tv.Columns[Index].DataBinding.Field.FieldName + ’ ’ + SortOrder;
        end;
        (tv.DataController.DataSource.DataSet as TADOQuery).Sort := S;
      end else if (tv.DataController.DataSource.DataSet is TClientDataSet)     then begin
        Cds := tv.DataController.DataSource.DataSet as TClientDataSet;
        for I := 0 to tv.SortedItemCount - 1 do begin
          Index := tv.SortedItems[I].Index;
          S := tv.Columns[Index].DataBinding.Field.FieldName +’;’;
          AscFields := AscFields + S;
          if tv.SortedItems[I].SortOrder = soDescending then
            DescFields := DescFields + S;
        end;
        if AscFields <> ’’ then
          Delete(AscFields, Length(AscFields), 1); //刪除 ;

        if DescFields <> ’’ then
          Delete(DescFields, Length(DescFields), 1);
        IndexPrint := TimeToStr(Now());
        Cds.IndexDefs.Clear;
        IndexPrint := TimeToStr(Now());
        cds.AddIndex(IndexPrint, AscFields, [], DescFields);
        cds.IndexName := IndexPrint;
      end;
 end;
 ****************************************************************************
 60 cxGRID怎么遍歷已經選擇的單元格
 解決：
 n := cxGrid1DBTableView1.DataController.GetSelectedCount;

       for   i:=0   to   n   -   1   do
       begin
           Index   :=   cxGrid1DBTableView1.DataController.GetSelectedRowIndex(i);
           if   Index   <   0   then   continue;
           AccID   :=
                           cxGrid1DBTableView1.DataController.GetRowvalue(
                           cxGrid1DBTableView1.DataController.GetRowInfo(Index)
                           ,0);
           AccID   :=   dsData.DataSet.FieldByName(’AccountID’).AsString;

       end;
 n := cxGrid1DBTableView1.DataController.GetSelectedCount;
       for   i:=0   to   n   -   1   do
       begin
           Index   :=   cxGrid1DBTableView1.DataController.GetSelectedRowIndex(i);
           if   Index   <   0   then   continue;
           AccID   := cxGrid1DBTableView1.DataController.GetRowvalue(
                   cxGrid1DBTableView1.DataController.GetRowInfo(Index)
                   ,0);//這里的0是列的索引，能指定，也可用通過GridView獲取

       end;
 ****************************************************************************
 61 動態設置顯示格式
 解決：
 procedure SetDisplayFormat(ACtrlData: TClientDataSet;
 TbView: TcxGridDBTableView);
 var
 i: integer;
 begin
 if ACtrlData.RecordCount <= 0 then Exit;
 try
     TbView.ClearItems;
     ACtrlData.First;
     for i := 0 to ACtrlData.RecordCount - 1 do
     begin
       if ACtrlData.FieldByName('SQBF_DisplayInGrid').AsString = '1' then //在表格中顯示
       with TbView.CreateColumn do
       begin
         DataBinding.FieldName := ACtrlData.FieldByName('SQBF_FieldName').AsString;
         Caption := ACtrlData.FieldByName('SQBF_Caption').AsString; //字段中文標題
         Hint := ACtrlData.FieldByName('SQBF_Hint').AsString;
         Width := ACtrlData.FieldByName('SQBF_Width').AsInteger;
         HeaderAlignmentHorz := taCenter;
       end;
       ACtrlData.Next;
     end;
 except
     on E: Exception do
       SaveLog('設置顯示格式時出錯：' + E.Message);
 end;
 end;

****************************************************************************
62 給cxGRID加序號列
解決：

 procedure SetRowNumber(var ASender: TcxGridTableView;
 AViewInfo: TcxCustomGridIndicatorItemViewInfo;
    var ACanvas: TcxCanvas; var ADone: boolean);

 uses cxLookAndFeelPainters;

 procedure SetRowNumber(var ASender: TcxGridTableView; AViewInfo: TcxCustomGridIndicatorItemViewInfo;
    var ACanvas: TcxCanvas; var ADone: boolean);
 var
    AIndicatorViewInfo: TcxGridIndicatorRowItemViewInfo;
    ATextRect: TRect;
    AFont: TFont;
    AFontTextColor, AColor: TColor;
 begin
    AFont := ACanvas.Font;
    AColor := clBtnFace;
    AFontTextColor := clWindowText ;
 if (AViewInfo is TcxGridIndicatorHeaderItemViewInfo) then begin
    ATextRect := AViewInfo.Bounds;
    InflateRect(ATextRect, -1, -1);

    ASender.LookAndFeelPainter.DrawHeader(ACanvas, AViewInfo.Bounds,
      ATextRect, [], cxBordersAll, cxbsNormal, taCenter, vaCenter,
      False, False, '序號', AFont, AFontTextColor, AColor);
      ADone := True;
    end ;
 if not (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
      Exit;
    ATextRect := AViewInfo.ContentBounds;
    AIndicatorViewInfo := AViewInfo as TcxGridIndicatorRowItemViewInfo;
    InflateRect(ATextRect, -1, -1);
    ASender.LookAndFeelPainter.DrawHeader(ACanvas, AViewInfo.ContentBounds,
      ATextRect, [], [bBottom, bLeft, bRight], cxbsNormal, taCenter, vaCenter,
      False, False, IntToStr(AIndicatorViewInfo.GridRecord.Index + 1),
      AFont, AFontTextColor, AColor);
    ADone := True;
 ASender.LookAndFeelPainter.DrawIndicatorImage(ACanvas,ATextRect, AIndicatorViewInfo.IndicatorKind);
 end;

 如果你不要行標志的話,你可以不改控件
 直接注釋掉這一行: ASender.LookAndFeelPainter.DrawIndicatorImage(ACanvas, ATextRect, AIndicatorViewInfo.IndicatorKind);
 要標志的話,在DrawIndicatorImage 從這里跟進去(Ctrl+左鍵單擊)
 在 cxLookAndFeelPainters 單元中作如下修改:

 class procedure TcxCustomLookAndFeelPainter.DrawIndicatorImage(ACanvas: TcxCanvas;
    const R: TRect; AKind: TcxIndicatorKind);
 var
    X, Y: Integer;
 begin
    if AKind = ikNone then Exit;
    with cxIndicatorImages, R do
    begin
      X := (Left + Right - Width);               //靠右
      Y := (Top + Bottom - Height) div 2;       //居中
    end;
    cxIndicatorImages.Draw(ACanvas.Canvas, X, Y, Ord(AKind) - 1);
 end;

 注意,我已注明靠右的那一行, 就是去掉 DIV 2 了,
 還要改一個地方:
 SKIN控件目錄下的dxSkinLookAndFeelPainter單元,找到
 TdxSkinLookAndFeelPainter.DrawIndicatorImage 函數
 的
 OffsetRect(ARect, (Left + Right - cx div 2) , (Top + Bottom - cy) div 2);
 這一行,將 (Left + Right - cx div 2) 改為(Left + Right - cx) 也是去掉 div 2 就是靠右;
 修改后: OffsetRect(ARect, (Left + Right - cx) , (Top + Bottom - cy) div 2);

 使用
 procedure TForm1.cxGrid1DBTableView1CustomDrawIndicatorCell(
    Sender: TcxGridTableView; ACanvas: TcxCanvas;
    AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
 begin
      SetRowNumber(Sender,AviewInfo,ACanvas,ADone);
 end;

 另外序號列的列寬最好改為25以上!
 效果圖:

****************************************************************************
63 cxGrid自帶過濾后數據也數據集同步
解決：
在cxGrid的View Filter事件的OnBeforeChange中寫代碼就可以了.

 procedure TForm1.tvcxgd1DBTableView1DataControllerFilterBeforeChange( Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: String);

 begin

 //這里可以增加數據集控件的

 filter:=false; //如：adoquery.filter:=false; //如果使用的是cxgrid的漢化版本，可以將AFilterText中的中文等於，小於 替換成 = <等 //adoquery.filter:=替換了中文的AFilterText; ShowMessage(AFilterText); end; 寫了上述步驟后可以在tvcxgd1DBTableView1DataControllerFilterChanged寫 adoquery.filter:=true; 這樣就起到了cxgrid過濾后的數據同步到adoquery