tcxgrid主從結構顯示多行_cxGrid的使用方法(轉)

1.簡單介紹：cxGrid右下方的cxGrid1Level1是表示Grid表的層，cxGrid可以有多層，這相當于集合了PageControl的

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

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

裡面可以選擇很多不同總類的View。其中

1)DB Table可以和資料庫連接配接的View，更一般的DBGrid類似，它比DBGrid多了比如滑鼠中鍵可以用，可以統計，

查詢，等等功能；

2)DB Banded Table 則可以實作比如：

---------------------------------

| 說明1 | 說明2 |

---------------------------------

| 字段1 | 字段2 | 字段3 | 字段4 |

等類似的功能；

3)DB Card View 則提供了卡片方式的顯示資料的功能，這個用在比如人事檔案管理比較不錯；

4)其它不一一贅述。

2.一些使用方法：

1)有圖檔和MEMO的例子：

拖入一個cxGrid1，Table1，DataSource1。 Table1的DatabaseName設為DBDEMOS，TableName設為biolife.db，

Active設為True

ataSource1的DataSet設為Table1；cxGrid1DBTableView1的DataController中的DataSource

設為DataSource1;右擊cxGrid1DBTableView1選擇Create All Columns；輕按兩下cxGrid1，在彈出的視窗中找到

cxGrid1DBTableView1Notes和cxGrid1DBTableView1Graphic，将它們的Properties屬性設為BlobEdit；運作看看

結果。再将cxGrid1DBTableView1Graphic的Properties屬性設為Image，再将Properties下的Stretch設為True，

将cxGrid1DBTableView1->optionsview->CellAutoHeight 設為True，看看結果。

2)如何讓“Drag a column here to group by that column”不顯示

解決：點選cxGrid1上的cxGrid1DBTableView1

在cxGrid1DBTableView1->optionsview->groupbybox:=false即可

注：OptionsView裡面有很多屬性可能經常要用，比如：ColumnAutoWith,Navigator等等，慢慢琢磨吧

3)GroupPanel上面的英文[Drag a column header to group by that column]怎麼可以改成中文？

解決：最簡單的方法是 TcxGridTableView.OnCustomDrawPartBackground ，也可用 OnCustomDrawGroupCell：

procedure TForm1.cxGrid1DBTableView1CustomDrawPartBackground(

Sender: TcxGridTableView; ACanvas: TcxCanvas;

AViewInfo: TcxCustomGridCellViewInfo; var ADone: Boolean);

begin

AViewInfo.Text:='動态設定 GroupBox 的顯示内容';

ACanvas.FillRect(AViewInfo.Bounds);

end;

4)如何實作如下功能：

+财務部

+原材料倉庫

+成品庫

+沖壓工廠中的房間

+軟體開發部

這個是部門的名稱,點選加号就可以将本部門的人員情況顯示出來。

解決：其實這是一個主從表關系，1：填好主表的keyfieldnames

2：填好從表的keyfieldnames

3：填好從表的　detaikeyfieldNames與masterkeyfieldnames

4: 從表的資料源一定要按與主表關聯的字段排序

注：其它地方設定了主從表結構那樣就顯示不出來，比如設定了從表的Table或者Query的mastersource和

asterfield就會不能顯示資料！如果是兩個cxGrid的主從關系，這樣設定就很OK了。

5)統計功能

解決：cxGrid1DBTableView1->optionsview->Footer 設為True

cxGrid1DBTableView1-&gt

ataController->Summary設定FooterSummaryItems即可

6)類似PageControl顯示

解決：增加一個Level,将cxGrid1->RootLevelOptions-&gt

etailTabsPosition設為dtpTop，然後相應的設定cxGrid1Level1,和cxGrid1Level2的Caption值。

未完待續。。。。。。。。。

以上是在用cxGrid時候碰到的一些問題，我總結了一部分，還有很多問題等待解決。在這裡我希望用過cxGrid的人幫着一起總結一下，讓後學者可以少走點彎路！

7)如何設定左邊幾列，不能滾動?

解決：使用DB Banded Table才可以實作，

在cxGrid1DBBandedTableView裡建立Band0,Band1

Band0的Fixed=tfLeft

Band1的Fixed=tfnone

設定要鎖定的字段的BandIndex=0,其它為1，就OK了。

8)怎樣實作如EXCEL一樣的，目前格=G14+G15+G16 這樣的功能

解決：舉一個簡單的例子：label1.Caption := cxGrid1DBTableView1.DataController.Values[2,

3]+cxGrid1DBTableView2.DataController.Values[1, 1]+cxGrid1DBTableView3.DataController.Values[1, 1];

是以不同cxGrid1DBTableView中的資料都可以給目前格，這樣就做到了EXCEL中的目前格=G14+G15+G16 類似的功能。

9)滑鼠右擊cxGrid1DBBandedTableView1菜單裡的Edit Layout什麼用，怎麼使用？

解決：可以拖動字段，并列的可以拖成有層次感(一層層)， 拖動時會顯示箭頭的，就是說可以拖一個字段放

到最上面，就可以使記錄按此字段進行分組。點選其中一個字段，上面還會出現一個上升或者下降的小三角形，這個

小三角形的作用是在運作階段，資料就會按照這個字段上升或者下降排序。

還有一個Set as Default的作用是保持目前TableView的參數，下此産生新的TableView的時候就會可以和上次保持的參數一樣。

10)怎樣将cxGrid裡的資料導入到EXCEL，HTML，XML和TEXT

解決：這個問題在用了cxGrid以後變得異常簡單，

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;

11)如何使滿足條件的資料顯示不同的顔色？

解決：

var

AYellowStyle: TcxStyle;

procedure TForm1.FormCreate(Sender: TObject);

begin

//行顔色

AYellowStyle := TcxStyle.Create(Self);

AYellowStyle.Color := $0080FFFF;

AYellowStyle.TextColor := clMaroon;

end;

procedure TForm1.cxGrid1DBBandedTableView1StylesGetContentStyle(

Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;

AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);

begin

if ARecord.Values[cxGrid1DBBandedTableView1Lengthcm.Index] < 81 then

AStyle := AYellowStyle;

end;

這裡cxGrid1DBBandedTableView1Lengthcm.Index小于81時就顯示黃色

問題12)如何從外邊的TXT檔案導入到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 = '資産負債表.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;

其中“資産負債表.txt”中的資料如下：

資 産 行次 年 初 數 期 末 數 負債及所有者權益 行次 年 初 數 期 末 數

--------- ---- ----- -------- ---------- ---- -------- ---------

流動資産： 1 0.00 0.00 流動負債： 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的用法是為了解決設定參數的友善而做的，比如：

連好資料庫以後，更改cxGrid1DBBandedTableView1-ColumnFiltering 設為False。(這個設定可以将字段名的下拉單給去掉)更改cxGrid1DBBandedTableView1-Navigator 設定為True。然後右擊cxGrid1DBBandedTableView1，在彈出的菜單欄裡面點選Set as default。

OK，下次你再産生一個新的cxGrid1DBBandedTableView1時這些設定和剛才的一樣了。如果需要設定的參數很多的時候，這個Set as default很有用！

15)怎樣使滑鼠移動時，相應的單元格裡的文字變色？

解決：

var

FTrackItem: TcxCustomGridTableItem;

FTrackRec: TcxCustomGridRecord;

procedure TForm1.cxGrid1DBTableView1CustomDrawCell(

Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;

AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

begin

if (AViewInfo.GridRecord = FTrackRec) and (AViewInfo.Item = FTrackItem) then

begin

ACanvas.Font.Color := clred; //紅色字型

ACanvas.Font.Style := [fsUnderline];//帶下劃線

end;

end;

procedure TForm1.cxGrid1DBTableView1MouseMove(Sender: TObject;

Shift: TShiftState; X, Y: Integer);

var

AHitTest: TcxCustomGridHitTest;

ATrackItem: TcxCustomGridTableItem;

ATrackRec: TcxCustomGridRecord;

begin

ATrackItem := FTrackItem;

ATrackRec := FTrackRec;

AHitTest := (Sender as TcxGridSite).GridView.ViewInfo.GetHitTest(X, Y);

if AHitTest is TcxGridRecordCellHitTest then

begin

FTrackItem := TcxGridRecordCellHitTest(AHitTest).Item;

FTrackRec := TcxGridRecordCellHitTest(AHitTest).GridRecord;

end

else

begin

FTrackItem := nil;

FTrackRec := nil;

end;

if (ATrackItem <> FTrackItem) or (ATrackRec <> FTrackRec) then

begin

// Invalidate old cell

if ATrackRec <> nil then

ATrackRec.Invalidate(ATrackItem);

// Invalidate new cell

if FTrackRec <> nil then

FTrackRec.Invalidate(FTrackItem);

end;

end;

16)怎樣設計多表頭的cxGrid？

解決：cxGrid可以解決如下的表頭：

---------------------------------

| 說明1 | 說明2 |

---------------------------------

| 字段1 | 字段2 | 字段3 | 字段4 |

| 字段5 | 字段6 |

| 字段7 | 字段8 | 字段9 |

實作這個很簡單，你可以直接在上面拖動字段名，拖動時會顯示箭頭的，放入你想顯示的位置就OK了。或者在滑鼠右擊cxGrid1DBBandedTableView1菜單裡的Edit Layout裡也可以拖放。

但是cxGrid不能實作如下的多表頭形式：

---------------------------------

| 說明1 | 說明2 |

---------------------------------

| 說明3 | 說明4 | 說明5 | 說明6 |

| 字段1 | 字段2 |

| 字段3 | 字段4 | 字段5 |

不知道有誰能實作這樣的多表頭？

17)在主從表結構時，當點開“+”時怎樣将焦點聚在相應主表的記錄上？

解決：

var

HitTest: TcxCustomGridHitTest;

procedure TColumnsShareDemoMainForm.tvProjectsMouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

// Note that the Sender parameter is a Site

HitTest := (Sender as TcxGridSite).GridView.ViewInfo.GetHitTest(X, Y);

// The point belongs to the [+]/[-] button area

if HitTest is TcxGridExpandButtonHitTest then

// Move focus to the record

TcxGridExpandButtonHitTest(HitTest).GridRecord.Focused := True;

end;