使用cxGrid有一些時(shí)間了，在這里總結(jié)一下使用cxGrid的一些方法，希望給剛開(kāi)始接觸cxGrid的人一些幫助。

1.簡(jiǎn)單介紹：cxGrid右下方的cxGrid1Level1是表示Grid表的層，cxGrid可以有多層，這相當(dāng)于集合了PageControl的

功能,而cxGrid1Level1右邊的cxGrid1DBTableView1相當(dāng)于DBGrid一樣。右擊cxGrid1可以添加cxGrid1Level2，右擊

cxGrid1Level2，可以選擇Create View , Add level 或者Delete Level。Add level可以增加子Level，Create View

里面可以選擇很多不同總類(lèi)的View。其中
   1)DB Table可以和數(shù)據(jù)庫(kù)連接的View，更一般的DBGrid類(lèi)似，它比DBGrid多了比如鼠標(biāo)中鍵可以用，可以統(tǒng)計(jì)，

查詢，等等功能；
   2)DB Banded Table 則可以實(shí)現(xiàn)比如：
                     ---------------------------------
                     |     說(shuō)明1     |     說(shuō)明2     |
                     ---------------------------------
                     | 字段1 | 字段2 | 字段3 | 字段4 |
等類(lèi)似的功能；
   3)DB Card View 則提供了卡片方式的顯示數(shù)據(jù)的功能，這個(gè)用在比如人事檔案管理比較不錯(cuò)；
   4)其它不一一贅述。
 
2.一些使用方法：
   1)有圖片和MEMO的例子：
     拖入一個(gè)cxGrid1，Table1，DataSource1。 Table1的DatabaseName設(shè)為DBDEMOS，TableName設(shè)為biolife.db，

    Active設(shè)為T(mén)rue;DataSource1的DataSet設(shè)為T(mén)able1；cxGrid1DBTableView1的DataController中的DataSource  

    設(shè)為DataSource1;右擊cxGrid1DBTableView1選擇Create All Columns；雙擊cxGrid1，在彈出的窗口中找到    

   cxGrid1DBTableView1Notes和cxGrid1DBTableView1Graphic，將它們的Properties屬性設(shè)為BlobEdit；運(yùn)行看看  

   結(jié)果。再將cxGrid1DBTableView1Graphic的Properties屬性設(shè)為Image，再將Properties下的Stretch設(shè)為T(mén)rue，  

   將cxGrid1DBTableView1->optionsview->CellAutoHeight 設(shè)為T(mén)rue，看看結(jié)果。


   2)如何讓“Drag a column here to group by that column”不顯示
     解決：點(diǎn)擊cxGrid1上的cxGrid1DBTableView1
     在cxGrid1DBTableView1->optionsview->groupbybox:=false即可  
     注：OptionsView里面有很多屬性可能經(jīng)常要用，比如：ColumnAutoWith,Navigator等等，慢慢琢磨吧:)
     
   3)GroupPanel上面的英文[Drag a column header to group by that column]怎么可以改成中文？
     解決：最簡(jiǎn)單的方法是 TcxGridTableView.OnCustomDrawPartBackground ，也可用 OnCustomDrawGroupCell：

     procedure TForm1.cxGrid1DBTableView1CustomDrawPartBackground(
                Sender: TcxGridTableView; ACanvas: TcxCanvas;
               AViewInfo: TcxCustomGridCellViewInfo; var ADone: Boolean);
     begin
       AViewInfo.Text:='動(dòng)態(tài)設(shè)置 GroupBox 的顯示內(nèi)容';
       ACanvas.FillRect(AViewInfo.Bounds);
     end;

   4)如何實(shí)現(xiàn)如下功能：
            +財(cái)務(wù)部
            +原材料倉(cāng)庫(kù)
            +成品庫(kù)
            +沖壓車(chē)間
            +軟件開(kāi)發(fā)部
     這個(gè)是部門(mén)的名稱,點(diǎn)擊加號(hào)就可以將本部門(mén)的人員情況顯示出來(lái)。
     解決：其實(shí)這是一個(gè)主從表關(guān)系，1：填好主表的keyfieldnames
                                   2：填好從表的keyfieldnames
                                   3：填好從表的　detaikeyfieldNames與masterkeyfieldnames
                                   4: 從表的數(shù)據(jù)源一定要按與主表關(guān)聯(lián)的字段排序
    注：其它地方設(shè)置了主從表結(jié)構(gòu)那樣就顯示不出來(lái)，比如設(shè)置了從表的Table或者Query的mastersource和
    asterfield就會(huì)不能顯示數(shù)據(jù)！如果是兩個(gè)cxGrid的主從關(guān)系，這樣設(shè)置就很OK了。

   
  5)統(tǒng)計(jì)功能
    解決：cxGrid1DBTableView1->optionsview->Footer 設(shè)為T(mén)rue
          cxGrid1DBTableView1->DataController->Summary設(shè)置FooterSummaryItems即可  

  6)類(lèi)似PageControl顯示
    解決：增加一個(gè)Level,將cxGrid1->RootLevelOptions->DetailTabsPosition設(shè)為dtpTop，然后相應(yīng)的設(shè)置cxGrid1Level1,和cxGrid1Level2的Caption值。

   未完待續(xù)。。。。。。。。。

   以上是在用cxGrid時(shí)候碰到的一些問(wèn)題，我總結(jié)了一部分，還有很多問(wèn)題等待解決。在這里我希望用過(guò)cxGrid的人幫著一起總結(jié)一下，讓后學(xué)者可以少走點(diǎn)彎路！ 


   7)如何設(shè)定左邊幾列，不能滾動(dòng)?
    解決：使用DB Banded Table才可以實(shí)現(xiàn)，
          在cxGrid1DBBandedTableView里建立Band0,Band1
          Band0的Fixed=tfLeft
          Band1的Fixed=tfnone
          設(shè)置要鎖定的字段的BandIndex=0,其它為1，就OK了。  
 
  8)怎樣實(shí)現(xiàn)如EXCEL一樣的，當(dāng)前格=G14+G15+G16 這樣的功能
    解決：舉一個(gè)簡(jiǎn)單的例子：label1.Caption := cxGrid1DBTableView1.DataController.Values[2,

3]+cxGrid1DBTableView2.DataController.Values[1, 1]+cxGrid1DBTableView3.DataController.Values[1, 1];
所以不同cxGrid1DBTableView中的數(shù)據(jù)都可以給當(dāng)前格，這樣就做到了EXCEL中的當(dāng)前格=G14+G15+G16 類(lèi)似的功能。
 
  9)鼠標(biāo)右擊cxGrid1DBBandedTableView1菜單里的Edit Layout什么用，怎么使用？
    解決：可以拖動(dòng)字段，并列的可以拖成有層次感（一層層）， 拖動(dòng)時(shí)會(huì)顯示箭頭的，就是說(shuō)可以拖一個(gè)字段放

到最上面，就可以使記錄按此字段進(jìn)行分組。點(diǎn)擊其中一個(gè)字段，上面還會(huì)出現(xiàn)一個(gè)上升或者下降的小三角形，這個(gè)

小三角形的作用是在運(yùn)行階段，數(shù)據(jù)就會(huì)按照這個(gè)字段上升或者下降排序。
     還有一個(gè)Set as Default的作用是保持當(dāng)前TableView的參數(shù)，下此產(chǎn)生新的TableView的時(shí)候就會(huì)可以和上次保持的參數(shù)一樣。
10）怎樣將cxGrid里的數(shù)據(jù)導(dǎo)入到EXCEL，HTML，XML和TEXT
  解決：這個(gè)問(wèn)題在用了cxGrid以后變得異常簡(jiǎn)單，
uses
 cxExportGrid4Link;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ExportGrid4ToEXCEL('d:/wang.xsl',cxGrid1,True,True);
 ExportGrid4ToTEXT('d:/wang.txt',cxGrid1,True,True);
 ExportGrid4ToXML('d:/wang.xml',cxGrid1,True,True);
 ExportGrid4ToHTML('d:/wang.html',cxGrid1,True,True);
end;

問(wèn)題12）如何從外邊的TXT文件導(dǎo)入到cxGrid？
解決：    procedure CustomizeColumns;
          procedure LoadData;

procedure TForm1.CustomizeColumns;
const
 cDistance = 1;
 cRadius = 5;
 cPeriod = 4;
 cPstring = 0;
var
 I: Integer;
begin
 DecimalSeparator := '.';
 with cxGrid1TableView2 do
 for I := 0 to ColumnCount - 1 do
   if I in [cDistance, cRadius] then
     Columns[I].DataBinding.ValueTypeClass := TcxIntegerValueType//1，5列為Integer
   else
     if I in [cPstring,cPeriod] then
     Columns[I].DataBinding.ValueTypeClass := TcxStringValueType//0，4列為String
     else
      Columns[I].DataBinding.ValueTypeClass := TcxFloatValueType;//其他為Float
end;

procedure TForm1.LoadData;
const
 AFileName = '資產(chǎn)負(fù)債表.txt';
 AHeaderLineCount = 2;

var
 ARecords, AValues: TStringList;
 I: Integer;

 procedure InitRecord(const Str: string);
 var
   J: Integer;
   V: Variant;
 begin
   AValues.CommaText := Str;
   for J := 0 to AValues.Count - 1 do
    if AValues.Strings[J] <> '-' then
    begin
     V := AValues.Strings[J];
     if not VarIsNull(V) then
       cxGrid1TableView2.DataController.Values[I, J] := V;
    end;
 end;

begin
 if not FileExists(AFileName) then
   raise Exception.Create('Data file not found');

 ARecords := TStringList.Create;
 AValues := TStringList.Create;

 with ARecords do
 try
   LoadFromFile(AFileName);
   cxGrid1TableView2.BeginUpdate;
   cxGrid1TableView2.DataController.RecordCount := Count - AHeaderLineCount;
   for I := 0 to Count - (AHeaderLineCount + 1) do
     InitRecord(Strings[I + AHeaderLineCount]);
 finally
   cxGrid1TableView2.EndUpdate;
   ARecords.Free;
   AValues.Free;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 CustomizeColumns;
 LoadData_Zcfz;
end;

其中“資產(chǎn)負(fù)債表.txt”中的數(shù)據(jù)如下：

資        產(chǎn)  行次  年  初  數(shù)  期  末  數(shù)  負(fù)債及所有者權(quán)益  行次  年  初  數(shù)  期  末  數(shù)
---------       ----    -----           --------        ----------             ----     --------        ---------
流動(dòng)資產(chǎn)：  1  0.00          0.00          流動(dòng)負(fù)債：          2  0.00          0.00  

 
13）如何改變列的顏色？
var
 AFirstColumnStyle: TcxStyle;

procedure TForm1.FormCreate(Sender: TObject);
begin
 //列顏色
 AFirstColumnStyle := TcxStyle.Create(Self);
 AFirstColumnStyle.Color := clAqua;
 AFirstColumnStyle.TextColor := clBlue;
 cxGrid1TableView1.Columns[1].Styles.Content := AFirstColumnStyle;
end;
14）Set as default的用法？
 解決：Set as default的用法是為了解決設(shè)置參數(shù)的方便而做的，比如：
       連好數(shù)據(jù)庫(kù)以后，更改cxGrid1DBBandedTableView1->OptionsCustomize->ColumnFiltering 設(shè)為False。（這個(gè)設(shè)置可以將字段名的下拉單給去掉）更改cxGrid1DBBandedTableView1->OptionsView->Navigator 設(shè)置為T(mén)rue。然后右擊cxGrid1DBBandedTableView1，在彈出的菜單欄里面點(diǎn)擊Set as default。
  OK，下次你再產(chǎn)生一個(gè)新的cxGrid1DBBandedTableView1時(shí)這些設(shè)置和剛才的一樣了。如果需要設(shè)置的參數(shù)很多的時(shí)候，這個(gè)Set as default很有用！