Delphi cxGrid使用匯總（一）
解決：在tableview1的ptionsview的groupbybox=false;
2．統計功能
解決：(1) tableview
1. tableview1的optionsviewfooter=ture
2.然後在cxGRid1的customize..中的summary 的footer.add需要合計的列kind= skSum
在Footer的第一列顯示[合計:]
加一個Summary項,Column設為Grid的第一列,Kind設為skNone
在該Summary項的OnGetText事件中,輸入:
procedure TFormExpense.tvExpenseTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems2GetText(
Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean;
var AText: String);
begin
AText := ‘合計:‘;
end;
(2) 按條件匯總:
在TableView的DataController->Summary->FooterSummary->OnSummary事件中,輸入:
procedure TFormExpense.tvExpenseDataControllerSummaryFooterSummaryItemsSummary(
ASender: TcxDataSummaryItems; Arguments: TcxSummaryEventArguments;
var OutArguments: TcxSummaryEventOutArguments);
begin
//得到字段名 TcxDBDataSummaryItem(Arguments.SummaryItem).FieldName;
if (ASender.DataController.Values[Arguments.RecordIndex, tvExpenseLevel.Index] > 1) //只統計Level列=1的值
and (TcxDBDataSummaryItem(Arguments.SummaryItem).Kind = skSum) then
OutArguments.Value := 0; //Level > 1的統計值設為0
end;
OptionView中屬性GroupFooters設為gfAlwaysVisible並設置需要求和的列,
在summary.default for Groups 下add加入需要合計的字段,column下顯示fieldname 為統計字段,format為格式,kind為統計方法,position 為位子 spfooter 在分組的下面,spgroup 在分組的上面
或用cxGridPopupMenu1,在運行時可對任意數字類型列求和,方法是只需設置cxGridPopupMenu1的屬性Grid為cxGrid1DBTableView1的cxGrid,
*****************************************************************************
3．去掉cxgrid 中的過濾下拉箭頭
解決： 選擇tableview1.optionscustomize.columnfiltering=fasle;
****************************************************************************
4．讓“Drag a column here to group by that column”不顯示
解決：在cxGrid1DBTableView1->optionsview->groupbybox:=false即可
****************************************************************************
5．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;
註：改成中文後將字段拖上去中文還是會顯示，最好是設置空值
****************************************************************************
6．如何實現如下功能：
+財務部
+原材料倉庫
+成品庫
+沖壓車間
+軟件開發部
這個是部門的名稱,點擊加號就可以將本部門的人員情況顯示出來。
解決：其實這是一個主從表關系，1：填好主表的keyfieldnames
2：填好從表的keyfieldnames
3：填好從表的 detaikeyfieldNames與masterkeyfieldnames
4: 從表的數據源一定要按與主表關聯的字段排序
註：其它地方設置了主從表結構那樣就顯示不出來，比如設置了從表的Table或者Query的mastersource和
asterfield就會不能顯示數據！如果是兩個cxGrid的主從關系，這樣設置就很OK了。
****************************************************************************
7．類似PageControl顯示
解決：增加一個Level,將cxGrid1->RootLevelOptions->DetailTabsPosition設為dtpTop，然後相應的設置cxGrid1Level1,和cxGrid1Level2的Caption值。
****************************************************************************
8．如何設定左邊幾列，不能滾動
解決：使用DB Banded Table才可以實現，在cxGrid1DBBandedTableView裏建立Band0,Band1
Band0的Fixed=tfLeft
Band1的Fixed=tfnone
設置要鎖定的字段的BandIndex=0,其它為1，就OK了。
*******************************************************************************
9. 怎樣實現如EXCEL一樣的，當前格=G14+G15+G16 這樣的功能
解決： 舉一個簡單的例子：label1.Caption := cxGrid1DBTableView1.DataController.Value[2,3]+cxGrid1DBTableView2.DataController.Values[1, 1]+cxGrid1DBTableView3.DataController.Values[1, 1];
所以不同cxGrid1DBTableView中的數據都可以給當前格，這樣就做到了EXCEL中的當前格=G14+G15+G16 類似的功能。
****************************************************************************
10. 鼠標右擊cxGrid1DBBandedTableView1菜單裏的Edit Layout什麽用，怎麽使用？
解決：可以拖動字段，並列的可以拖成有層次感（一層層）， 拖動時會顯示箭頭的，就是說可以拖一個字段放
****************************************************************************
11．怎樣將cxGrid裏的數據導入到EXCEL，HTML，XML和TEXT
解決：uses
cxExportGrid4Link; ( cxExportGrid6Link)
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;
****************************************************************************
12. 如何使滿足條件的數據顯示不同的顏色
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時就顯示黃色
****************************************************************************
13. 如何從外邊的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; **************************************************************************** 14 如何改變列的顏色？ 解決： 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; **************************************************************************** 15 Set as default的用法？ 解決：Set as default的用法是為了解決設置參數的方便而做的，比如： 連好數據庫以後，更改cxGrid1DBBandedTableView1->OptionsCustomize-> ColumnFiltering 設為False。（這個設置可以將字段名的下拉單給去掉）更改cxGrid1DBBandedTableView1->OptionsView- >Navigator 設置為True。然後右擊cxGrid1DBBandedTableView1，在彈出的菜單欄裏面點擊Set as default。 OK，下次你再產生一個新的cxGrid1DBBandedTableView1時這些設置和剛才的一樣了。如果需要設置的參數很多的時候，這個Set as default很有用！ **************************************************************************** 16. 怎樣使鼠標移動時，相應的單元裏的文字變色？ 解決： 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;
Delphi cxGrid使用匯總（一）