朋友貼給我的，只知道是大陸網站上分享的資料，可在cxGrid內使用CheckBox喔!!!只是用了之後以前可使用 Shift 選區段的功能似乎不能用了。
======================================================================
cxGrid的使用方法
cxGrid功能強大，適合做企業級的複雜查詢。非常方便。
但是對其用法介紹的並不多，在此總結他人的使用經驗和自己的一點小經驗，供大家參考。
（１）動態設置顯示格式
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;
（２）顯示行號
procedure TFmQueryBase.cxDBViewMasterCustomDrawIndicatorCell(
Sender: TcxGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var
FValue: string;
FBounds: TRect;
begin
FBounds := AViewInfo.Bounds;
if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
begin
ACanvas.FillRect(FBounds);
ACanvas.DrawComplexFrame(FBounds, clBlack, clBlack, [bBottom, bLeft, bRight], 1);
FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index+1);
InflateRect(FBounds, -3, -2); //Platform specific. May not work on Linux.
ACanvas.Font.Color := clBlack;
ACanvas.Brush.Style := bsClear;
ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop);
ADone := True;
end;
end;
（３）設置顯示格式，我的專案要求先動態添加欄位，這時不知道欄位類型，所以設置DisplayFormat不方便，我還沒有找到好方法。
所以採用打開資料集後再設置：
procedure TFmQueryBase.cdsMasterAfterOpen(DataSet: TDataSet);
var
i: Integer;
begin
for i := 0 to cxDBViewMaster.DataController.DataSet.FieldCount -1 do
begin
if cxDBViewMaster.DataController.DataSet.Fields[i] is TNumericField then
begin
if Pos(‘AMOUNT’, UpperCase(cxDBViewMaster.DataController.DataSet.Fields[i].FieldName)) > 0 then
begin
TNumericField(cxDBViewMaster.DataController.DataSet.Fields[i]).DisplayFormat := ‘#,##0.000’;
Continue;
end;
if Pos(‘QUANTITY’, UpperCase(cxDBViewMaster.DataController.DataSet.Fields[i].FieldName)) > 0 then
begin
TNumericField(cxDBViewMaster.DataController.DataSet.Fields[i]).DisplayFormat := ‘#,##0.000’;
Continue;
end;
if Pos(‘MONEY’, UpperCase(cxDBViewMaster.DataController.DataSet.Fields[i].FieldName)) > 0 then
begin
TNumericField(cxDBViewMaster.DataController.DataSet.Fields[i]).DisplayFormat := ‘#,##0.00’;
Continue;
end;
end;
end;
end;
最近在學習使用cxGrid,安裝的版本是ExpressQuantumGrid Suite v5.10
我發現這個控制項功能雖然強大,但是非常難用。
現在我手頭就有幾個問題還沒解決：
1）主從模式下導出Excel中文會產生亂碼，而且從表內容沒有導出。
我不知道是不是因為我的欄位名包括單引號的原因。
導出代碼：ExportGrid4ToExcel(FileName, cxGrid);
2）主從模式下通過按鈕對從表添加/刪除行，代碼怎么寫。
附：單表添加/刪除行的代碼
procedure TFormAccount.cxButtonNewClick(Sender: TObject);
begin
Self.tvAccount.DataController.Append;
Self.tvAccount.Columns[0].Focused := True;
cxGrid.SetFocus;
end;
procedure TFormAccount.cxButtonDeleteClick(Sender: TObject);
begin
if Self.tvAccount.DataController.RowCount = 0 then
Exit;
if Application.MessageBox(‘確認刪除當前記錄?’, ‘確認刪除’,
MB_YesNo + MB_IconQuestion) = IDNO then
Exit;
Self.tvAccount.DataController.DeleteFocused;
end;
3）動態創建主從結構出錯（Compiler沒錯，運行時出現系統錯誤0000000018），
我使用了二個ADOStoreProcedure作主從表
代碼如下：
var
Level: TcxGridLevel;
GridView: TcxGridDBTableView;
begin
Level := cxGrid1.Levels[0].Add;
GridView := TcxGridDBTableView(cxGrid1.CreateView(TcxGridDBTableView));
GridView.DataController.DataSource := Self.dsDetail;
GridView.DataController.KeyFieldNames := ‘PurchOrderID;POLineNbr;PromiseDate;ReceiverDate’;
GridView.DataController.MasterKeyFieldNames := ‘VendorID’;
GridView.DataController.DetailKeyFieldNames := ‘VendorID’;
GridView.DataController.DataModeController.SmartRefresh := True;
GridView.OptionsCustomize.ColumnHiding := True;
GridView.OptionsCustomize.ColumnsQuickCustomization := True;
GridView.OptionsData.Deleting := False;
GridView.OptionsData.Inserting := False;
GridView.OptionsView.Indicator := True;
Level.GridView := GridView;
GridView := TcxGridDBTableView(cxGrid1.Levels[0].GridView);
GridView.DataController.KeyFieldNames := ‘VendorID’;
GridView.OptionsView.GroupByBox := False;
//顯示主表內容
tvResult.BeginUpdate;
tvResult.ClearItems;
tvResult.DataController.CreateAllItems;
tvResult.EndUpdate;
//顯示明細表內容
GridView := TcxGridDBTableView(cxGrid1.Levels[0].Items[0].GridView);
GridView.BeginUpdate;
GridView.ClearItems;
GridView.DataController.CreateAllItems;
GridView.DataController.Refresh;
GridView.EndUpdate;
end;
此樓回復Re：
小技巧:用代碼展開/收縮主從結構
Self.tvDepartment.ViewData.Expand(True);
Self.tvDepartment.ViewData.Collaspe(True);
注:tvDepartment為主表對應的TableView
此樓回復Re：
你說的這幾個問題我也遇到過。
第一個問題是編碼的問題，修改了其中關於編碼的函數，OK.
第二個問題在cxGrid的社區可以找到解答，但從表必須滿足某種條件，例如關鍵字排序。
第三個問題的解決辦法，你可以嘗試在動態創建的代碼前後加上：
grid.beginupdate;
…
grid.endupdate
來解決。
此樓回復Re：
沒用過
不要經常使用三方控制項
此樓回復Re：
to tttk(網路芝麻)：
第一個問題：如何修改啊，貼出代碼
第二個問題：沒搜到啊
第三個問題：試一下再說
此樓回復Re：
不要經常使用三方控制項
======================
我感覺不用cxGrid的話，沒必要用Delphi了，呵呵
此樓回復Re：
樓上這話是不是有點問題?DELPHI能做得事情很多很多,難道非要用CXGRID?CXGRID不是用DELPHI做出來得?
此樓回復Re：
沒用過…..
此樓回復Re：
回復人： zxkid(沒有人會像我這樣…) ( ) 信譽：101 2006-01-06 16:58:00 得分: 0
不要經常使用三方控制項
======================
我感覺不用cxGrid的話，沒必要用Delphi了，呵呵
**********
樓主乃天人也！！
此樓回復Re：
呵呵
此樓回復Re：
cxGrid比較不錯,我也使用過導出到Excel,沒有遇到你說的亂碼
主從表也沒有問題的，其實跟單表操作還不是一回事
此樓回復Re：
up
此樓回復Re：
沒用過cxGrid，以後考慮
此樓回復Re：
樓主乃天人也！！
=============================
Delphi下有cxGrid, .NET下有XtraGrid, 它們都是同一公司出的。
遲早都會轉到.NET，所以。。。
此樓回復Re：
路過
此樓回復Re：
用過，挺好，只會使用最簡單的。
此樓回復Re：
發一個郵件給我，我把解決亂碼後的源代碼發一分給你，放到你的專案檔夾下即可。
tttk2000@hotmail.com
此樓回復Re：
第二個問題：https://www.devexpress.com/Support/Center/default.aspx?view=ViewIssue&issueid=B2691
此樓回復Re：
謝謝tttk(網路芝麻)
第二個問題：我現在直接讓用戶用導航條的刪除/添加按鈕了。根據你給的網址上的內容我知道大概該怎么寫了，有空再試試。
第一個問題：不光是亂碼問題，還有從表內容沒導出的問題。
只有一個表的話是不會出現亂碼的。
第三個問題：還沒來得及試。
此樓回復Re：
第一個問題：看了一下幫助，原來cxGrid不支持主從表的導出，只能導出主表（頂層表）的內容。暈
此樓回復Re：
貼一些小技巧,希望與各位使用cxGrid的朋友共同交流
各位有什么好個技巧也可以貼出來:
技巧二：在內置右鍵功能表的後面增加功能表項
首先應在Form上加一個cxGridPopupMenu控制項 以啟用右鍵功能表
UseBuildInPopupMenus設為True
procedure TFormItemList.FormCreate(Sender: TObject);
var
AMenu: TComponent;
FMenuItem, FSubMenuItem: TMenuItem;
begin
AMenu := nil;
if cxGridPopupMenu.BuiltInPopupMenus.Count = 0 then
Exit;
AMenu := cxGridPopupMenu.BuiltInPopupMenus[0].PopupMenu; //第一個內置右鍵功能表(表頭功能表)
if Assigned(AMenu) and AMenu.InheritsFrom(TPopupMenu) then
begin
TPopupMenu(AMenu).AutoHotkeys := maManual; //手動熱鍵
//————————-
FMenuItem := TMenuItem.Create(Self);
FMenuItem.Caption := ‘-‘;
FMenuItem.Name := ‘miLineForGroup’;
TPopupMenu(AMenu).Items.Add(FMenuItem);
//展開所有組
FMenuItem := TMenuItem.Create(Self);
FMenuItem.Name := ‘miExpandAllGroup’;
FMenuItem.Caption := ‘展開所有組(&X)’;
FMenuItem.OnClick := miExpandAllGroupClick;
TPopupMenu(AMenu).Items.Add(FMenuItem);
//收縮所有組
FMenuItem := TMenuItem.Create(Self);
FMenuItem.Name := ‘miCollapseAllGroup’;
FMenuItem.Caption := ‘收縮所有組(&O)’;
FMenuItem.OnClick := miCollapseAllGroupClick;
TPopupMenu(AMenu).Items.Add(FMenuItem);
//————————-
FMenuItem := TMenuItem.Create(Self);
FMenuItem.Caption := ‘-‘;
TPopupMenu(AMenu).Items.Add(FMenuItem);
//過濾面板
FMenuItem := TMenuItem.Create(Self);
FMenuItem.Name := ‘miFilterPanel’;
FMenuItem.Caption := ‘過濾面板(&P)’;
//自動顯示
FSubMenuItem := TMenuItem.Create(Self);
FSubMenuItem.Name := ‘miFilterPanelAuto’;
FSubMenuItem.Caption := ‘自動(&A)’;
FSubMenuItem.RadioItem := True;
FSubMenuItem.GroupIndex := 5; //指定同一組
FSubMenuItem.Checked := True;
FSubMenuItem.OnClick := miFilterPanelClick;
FMenuItem.Add(FSubMenuItem); //加入二級子功能表
//總是顯示
FSubMenuItem := TMenuItem.Create(Self);
FSubMenuItem.Name := ‘miFilterPanelAlways’;
FSubMenuItem.Caption := ‘總是顯示(&W)’;
FSubMenuItem.RadioItem := True;
FSubMenuItem.GroupIndex := 5;
FSubMenuItem.OnClick := miFilterPanelClick;
FMenuItem.Add(FSubMenuItem);
//從不顯示
FSubMenuItem := TMenuItem.Create(Self);
FSubMenuItem.Name := ‘miFilterPanelNerver’;
FSubMenuItem.Caption := ‘從不顯示(&N)’;
FSubMenuItem.RadioItem := True;
FSubMenuItem.GroupIndex := 5;
FSubMenuItem.OnClick := miFilterPanelClick;
FMenuItem.Add(FSubMenuItem);
TPopupMenu(AMenu).Items.Add(FMenuItem);
//自定義過濾
FMenuItem := TMenuItem.Create(Self);
FMenuItem.Name := ‘miCustomFilter’;
FMenuItem.Caption := ‘自定義過濾(&M)’;
FMenuItem.OnClick := miCustomFilterClick;
TPopupMenu(AMenu).Items.Add(FMenuItem);
//過濾管理器
FMenuItem := TMenuItem.Create(Self);
FMenuItem.Name := ‘miFilterBuilder’;
TPopupMenu(AMenu).Images.AddImage(FormMain.ImageListExtend, 44); //添加圖示圖像
FMenuItem.ImageIndex := TPopupMenu(AMenu).Images.Count - 1; //指定圖示序號
FMenuItem.Caption := ‘過濾管理器’;
FMenuItem.OnClick := Self.miFilterBuilderClick;
TPopupMenu(AMenu).Items.Add(FMenuItem);
//———————
FMenuItem := TMenuItem.Create(Self);
FMenuItem.Caption := ‘-‘;
TPopupMenu(AMenu).Items.Add(FMenuItem);
//導出
FMenuItem := TMenuItem.Create(Self);
FMenuItem.Name := ‘miExport’;
TPopupMenu(AMenu).Images.AddImage(FormMain.ImageListExtend, 37);
FMenuItem.ImageIndex := TPopupMenu(AMenu).Images.Count - 1;
FMenuItem.Caption := ‘導出(&E)’;
FMenuItem.OnClick := Self.miExportClick;
TPopupMenu(AMenu).Items.Add(FMenuItem);
//列印
FMenuItem := TMenuItem.Create(Self);
FMenuItem.Name := ‘miPrint’;
FMenuItem.Caption := ‘列印(&P)’;
TPopupMenu(AMenu).Images.AddImage(FormMain.ImageListExtend, 14);
FMenuItem.ImageIndex := TPopupMenu(AMenu).Images.Count - 1;
FMenuItem.OnClick := Self.miPrintClick;
TPopupMenu(AMenu).Items.Add(FMenuItem);
end;
end;
procedure TFormItemList.miExportClick(Sender: TObject);
var
FileName, FileExt, msg: String;
begin
if Self.aqyQuery.IsEmpty then
begin
msg := ‘沒有導出資料…’;
Application.MessageBox(PChar(msg), PChar(Application.Title),
MB_OK or MB_IconWarning);
Exit;
end;
Self.SaveDialogExport.Filter := ‘Excel文件 (*.xls)|*.xls|XML文件 (*.xml)|*.xml’
+ ‘|文字檔案 (*.txt)|*.txt|網頁文件 (*.html)|*.html’;
Self.SaveDialogExport.Title := ‘導出為’;
if not Self.SaveDialogExport.Execute then
Exit;
FileName := Self.SaveDialogExport.FileName;
FileExt := LowerCase(ExtractFileExt(FileName));
if FileExt = ‘.xls’ then
ExportGrid4ToExcel(FileName, Self.cxGrid1)
else if FileExt = ‘.xml’ then
ExportGrid4ToXML(FileName, Self.cxGrid1)
else if FileExt = ‘.txt’ then
ExportGrid4ToText(FileName, Self.cxGrid1)
else if FileExt = ‘.html’ then
ExportGrid4ToHTML(FileName, Self.cxGrid1)
else
begin
msg := ‘不支援的導出檔類型…’;
Application.MessageBox(PChar(msg), PChar(Application.Title),
MB_OK or MB_IconError);
Exit;
end;
msg := ‘導出完成…’;
Application.MessageBox(PChar(msg), PChar(Application.Title),
MB_OK or MB_IconInformation);
end;
procedure TFormItemList.miPrintClick(Sender: TObject);
begin
//列印
Self.dxComponentPrinter.Preview(True, Self.dxComponentPrinterLink1);
end;
procedure TFormItemList.cxGridPopupMenuPopup(ASenderMenu: TComponent;
AHitTest: TcxCustomGridHitTest; X, Y: Integer; var AllowPopup: Boolean);
begin
if GetHitTypeByHitCode(AHitTest.HitTestCode) = gvhtColumnHeader then //右擊列標題時
begin
//if tvResult.DataController.Groups.GroupingItemCount > 0 then
if tvResult.GroupedColumnCount > 0 then //有分組時顯示
begin
TMenuItem(Self.FindComponent(‘miLineForGroup’)).Visible := True;
TMenuItem(Self.FindComponent(‘miExpandAllGroup’)).Visible := True;
TMenuItem(Self.FindComponent(‘miCollapseAllGroup’)).Visible := True;
end
else
begin
TMenuItem(Self.FindComponent(‘miLineForGroup’)).Visible := False;
TMenuItem(Self.FindComponent(‘miExpandAllGroup’)).Visible := False;
TMenuItem(Self.FindComponent(‘miCollapseAllGroup’)).Visible := False;
end;
end;
end;
procedure TFormItemList.miFilterBuilderClick(Sender: TObject);
begin
//過濾管理器
//彈出Filter Builder Dialog對話方塊
tvResult.Filtering.RunCustomizeDialog;
end;
procedure TFormItemList.miCustomFilterClick(Sender: TObject);
var
AHitTest: TcxCustomGridHitTest;
begin
//自定義過濾
//彈出Custom Filter Dialog對話方塊
AHitTest := cxGridPopupMenu.HitTest;
if GetHitTypeByHitCode(AHitTest.HitTestCode) = gvhtColumnHeader then //獲得右擊的列
tvResult.Filtering.RunCustomizeDialog(TcxGridColumnHeaderHitTest(AHitTest).Column);
end;
procedure TFormItemList.miFilterPanelClick(Sender: TObject);
var
mi: TMenuItem;
begin
//隱藏/顯示過濾面板
mi := TMenuItem(Sender);
mi.Checked := True;
if mi.Name = ‘miFilterPanelAlways’ then
tvResult.Filtering.Visible := fvAlways
else if mi.Name = ‘miFilterPanelNerver’ then
tvResult.Filtering.Visible := fvNever
else
tvResult.Filtering.Visible := fvNonEmpty;
end;
procedure TFormItemList.miExpandAllGroupClick(Sender: TObject);
begin
//展開所有組
tvResult.DataController.Groups.FullExpand;
end;
procedure TFormItemList.miCollapseAllGroupClick(Sender: TObject);
begin
//收縮所有組
tvResult.DataController.Groups.FullCollapse;
end;
此樓回復Re：
在用，留名
此樓回復Re：
技巧三 按條件計算合計值
在Footer的第一列顯示[合計:]
加一個Summary項,Column設為Grid的第一列,Kind設為skNone
在該Summary項的OnGetText事件中,輸入:
procedure TFormExpense.tvExpenseTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems2GetText(
Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean;
var AText: String);
begin
AText := ‘合計:’;
end;
按條件匯總:
在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;
此樓回復Re：
借貴地一用,問個CXGrid問題,在cxgrid中如何使一些行不能編輯,如:欄位isenable = false的行
此樓回復Re：
樓上的問題
請參考下面的技巧
技巧四:根據某列的值設定其他列的可編輯性
procedure TFormUser.tvUserEditing(Sender: TcxCustomGridTableView;
AItem: TcxCustomGridTableItem; var AAllow: Boolean);
begin
//如果第三列值為True,則第4列不能修改
if (tvUser.Controller.FocusedRecord.Values[2] = True) and (AItem.Index = 4) then
AAllow := False
else
AAllow := True;
end;
此樓回復Re：
技巧五:保存/恢復Grid佈局
//恢復佈局
IniFileName := ExtractFilePath(Application.ExeName) + ‘Layout\’ + Self.Name + ‘.ini’;
if FileExists(IniFileName) then
Self.tvResult.RestoreFromIniFile(IniFileName) //從佈局檔中恢復
else
begin
Self.tvResult.BeginUpdate;
for i := 0 to Self.tvResult.ItemCount - 1 do
Self.tvResult.Items[i].ApplyBestFit; //調整為最佳寬度
Self.tvResult.EndUpdate;
end;
//保存佈局
IniFileName := ExtractFilePath(Application.ExeName) + ‘Layout\’ + Self.Name + ‘.ini’;
if not DirectoryExists(ExtractFileDir(IniFileName)) then
CreateDir(ExtractFileDir(IniFileName));
Self.tvResult.StoreToIniFile(IniFileName); //保存為佈局檔
此樓回復Re：
借用地問一下：在 cxgrid中，如果我同時選中主表與子表中的記錄，怎么樣能同時進行對其所選記錄進行處理呢。
我現在只能判斷 焦點是在主表還是從表中，然後只能對主表或子表中的資料進行處理。
此樓回復Re：
看來用cxGrid人不多啊
再多貼一些技巧,需要的朋友頂一下
==========================================================================
在主從TableView中根據主TableView得到對應的從TableView
var
ADetailDC: TcxGridDataController;
AView: TcxCustomGridTableView;
begin
with cxGrid1DBTableView1.DataController do
ADetailDC := TcxGridDataController(GetDetailDataController(FocusedRecordIndex, 0));
AView := ADetailDC.GridView;
end;
==============================================================================
定位在第一行並顯示內置編輯器
cxDBVerticalGrid1.FocusedRow := cxDBVerticalGrid1.Rows[0];
cxDBVerticalGrid1.ShowEdit;
==============================================================================
隱藏 "<No data to display>" 字串
該文本存儲在scxGridNoDataInfoText資源字串,可以將該資源字串的內容設為空
來隱藏該文本。
uses cxClasses, cxGridStrs;
…
cxSetResourceString(@scxGridNoDataInfoText, ”);
//如果"<No data to display>" 字串已經顯示，需要調用：
<View>.LayoutChanged;
============================================================
刪除應用過濾後的行
var
I: Integer;
begin
with <GridView> do
for I := 0 to ViewData.RecordCount - 1 do
begin
ViewData.Records[0].Focused := True;
DataController.DataSet.Delete;
end;
=============================================================
根據單元的值設置樣式
procedure <aForm>.<aColumn>StylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
begin
if ARecord.Values[AItem.Index] = aSomeValue then
AStyle := <aSomeStyle>;
end;
procedure <aForm>.<aView>StylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
AColumn: TcxCustomGridTableItem;
begin
AColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName(‘Email’);
if VarToStr(ARecord.Values[AColumn.Index]) = ” then
AStyle := cxStyleNullEmail;
end;
==============================================================================
TcxCustomGridTableView.FindItemByName, TcxGridDBTableView.GetColumnByFieldName or
TcxGridDBDataController.GetItemByFieldName
with cxGrid1DBBandedTableView1.DataController do
AValue := Values[FocusedRecordIndex, GetItemByFieldName(‘SomeFieldName’).Index];
===================================================================
動態生成BandedView
var
AView: TcxCustomGridView;
begin
AView := <cxGrid>.CreateView(TcxGridDBBandedTableView);
TcxGridDBBandedTableView(AView).DataController.DataSource := <DataSource>;
TcxGridDBBandedTableView(AView).Bands.Add;
with TcxGridDBBandedTableView(AView).Bands.Add do
begin
Visible := False;
FixedKind := fkLeft;
end;
TcxGridDBBandedTableView(AView).DataController.CreateAllItems;
<cxGridLevel>.GridView := AView;
此樓回復Re：
======================================================================
當底層資料集為空時顯示一條空記錄
procedure <Form>.<cxGrid>Enter(Sender: TObject);
var
View: TcxGridDBTableView;
begin
View := TcxGridDBTableView((Sender as TcxGrid).FocusedView);
if View.DataController.DataSet.IsEmpty then
begin
View.DataController.DataSet.Append;
View.Controller.EditingController.ShowEdit;
end;
end;
=======================================================================
在當前View插入記錄
使用FocusedView屬性得到當前焦點View，用View.DataController得到對應的Data Controller，
之後使用Data Controller的方法來運算元據：
- Append
- Insert
- Post
- Cancel
- DeleteFocused
- DeleteSelection
示例：
var
ARecIndex: Integer;
…
View.DataController.Append;
ARecIndex := View.DataController.FocusedRecordIndex;
View.DataController.Values[ARecIndex, SomeItemIndex] := SomeValue;
View.DataController.Post;
另外一種方法是使用View.DataController.DataSource.DataSet得到底層資料集後，再用資料集的
方法來運算元據。
========================================================================
啟動內置編輯控制項
1) <aView>.Controller.EditingController.ShowEdit(<aColumn>);
2) <aView>.Controller.EditingController.StartEditShowingTimer(<aColumn>);
3) <aView>.Controller.EditingItem := <aColumn>;
4) <aColumn>.Editing := True;
隱藏內置編輯控制項
<aView>.Controller.EditingController.HideEdit(True);
===========================================================================
移除一個分組列
<aColumn>.GroupIndex := -1;
<aColumn>.Visible := True;
===========================================================================
保存修改到資料庫
procedure <aForm>.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (<aGrid>.FocusedView <> nil) and (<aGrid>.FocusedView.DataController.EditState <> []) then
<aGrid>.FocusedView.DataController.Post;
end;
============================================================================
設置內置右鍵菜單
內置右鍵功能表包括二個功能表:cxGridStdHeaderMenu, TcxGridStdFooterMenu
uses cxGridStdPopupMenu;
procedure TForm1.cxGridPopupMenu1Popup(ASenderMenu: TComponent;
AHitTest: TcxCustomGridHitTest; X, Y: Integer; var AllowPopup: Boolean);
begin
if ASenderMenu is TcxGridStdHeaderMenu then
TcxGridStdHeaderMenu(ASenderMenu).OnPopup := StdHeaderMenuPopup;
end;
procedure TForm1.StdHeaderMenuPopup(Sender: TObject);
var
I: Integer;
begin
with TcxGridStdHeaderMenu(Sender).Items do
for I := 0 to Count - 1 do
if Items[I].Caption = ‘Group By Box’ then
begin
Items[I].Enabled := False;
System.Break;
end
end;
===========================================================================
得到選中記錄的值(MultiSelect)
1) View.DataController.DataModeController.GridMode = False時
RecIdx := View.Controller.SelectedRecords[i].RecordIndex;
ColIdx := View.DataController.GetItemByFieldName(AFieldName).Index;
OutputVal := View.DataController.Values[RecIdx, ColIdx];
//RecID := View.DataController.GetRecordId(RecIdx);
//OutputVal := ADataSet.Lookup(View.DataController.KeyFieldNames, RecID, AFieldName);
2) Bkm: string;
View.DataController.DataModeController.GridMode = True時
Bkm := View.DataController.GetSelectedBookmark(ASelectedRecordIndex);
if ADataSet.BookmarkValid(TBookmark(Bkm)) then
begin
ADataSet.Bookmark := Bkm;
OutputVal := ADataSet.FieldByName(AFieldName).Value;
end;
View.BeginUpdate;
View.DataController.BeginLocate;
try
// make changes here…
finally
View.DataController.EndLocate;
View.EndUpdate;
end;
//直接讀取選擇的單格內容
var
I, J: Integer;
val: Variant;
begin
Result := 0;
for I := 0 to TableView.Controller. SelectedRowCount – 1 do
for J := 0 to TableView.Controller. SelectedColumnCount – 1 do
begin
val := TableView.DataController.GetValue(
TableView.Controller.SelectedRows[I].RecordIndex,
TableView.Controller.SelectedColumns[J].Index);
Showmessage(val);
end;
end;
=============================================================
在GridMode禁用內置的右鍵Footer菜單
uses cxGridStdPopupMenu;
procedure cxGridPopupMenuOnPopup(…)
begin
if (ASenderMenu is TcxGridStdFooterMenu) and
<GridView>.DataController.DataModeController.GridMode then
AllowPopup := False;
end;
==============================================================
主從表任何時候只能展開一個組
procedure TForm1.ADetailDataControllerCollapsing(
ADataController: TcxCustomDataController; ARecordIndex: Integer;
var AAllow: Boolean);
var
I: Integer;
C: Integer;
begin
AAllow := False;
C := 0;
for I := 0 to ADataController.RecordCount - 1 do
begin
if ADataController.GetDetailExpanding(I) then
Inc(C);
if C > 1 then
AAllow := True;
end;
end;
procedure TForm1.ADetailDataControllerExpanding(
ADataController: TcxCustomDataController; ARecordIndex: Integer;
var AAllow: Boolean);
begin
ADataController.CollapseDetails;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
cxGrid1DBTableView1.DataController.OnDetailExpanding := ADetailDataControllerExpanding;
cxGrid1DBTableView1.DataController.OnDetailCollapsing := ADetailDataControllerCollapsing;
end;
=================================================================
動態創建層次(Level)和視圖(View)
var
Grid: TcxGrid;
Level: TcxGridLevel;
View: TcxGridDBTableView;
begin
// Creates a Grid instance
Grid := TcxGrid.Create(SomeOwner);
Grid.Parent := SomeParent;
// Creates a Level
Level := Grid.Levels.Add;
Level.Name := ‘SomeLevelName’;
// Creates a View
View := Grid.CreateView(TcxGridDBTableView) as TcxGridDBTableView;
View.Name := ‘SomeViewName’;
// … and binds it to the Level
Level.GridView := View;
// Hooks up the View to the data
View.DataController.DataSource := SomeDataSource;
// … and creates all columns
View.DataController.CreateAllItems;
end;
此樓回復Re：
======================================================================
獲得Group Footer合計行對應的記錄
procedure TForm1.cxGrid1DBTableView1CustomDrawFooterCell(
Sender: TcxGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridColumnHeaderViewInfo; var ADone: Boolean);
var
ALevel, ADataGroupIndex: Integer;
AGridRecord, AGroupRecord: TcxCustomGridRecord;
begin
if AViewInfo is TcxGridRowFooterCellViewInfo and // Row footer
(TcxGridDBColumn(AViewInfo.Column).DataBinding.FieldName = ‘Area’) then // Area column
begin
AGridRecord := TcxGridRowFooterCellViewInfo(AViewInfo).GridRecord;
ALevel := TcxGridRowFooterCellViewInfo(AViewInfo).Container.GroupLevel;
ADataGroupIndex := Sender.DataController.Groups.DataGroupIndexByRowIndex[AGridRecord.Index];
if ADataGroupIndex <> -1 then
begin
AGroupRecord := AGridRecord;
while AGroupRecord.Level <> ALevel do
AGroupRecord := AGroupRecord.ParentRecord;
AViewInfo.Text := AGroupRecord.DisplayTexts[0];
end;
end;
end;
===========================================================================
訪問過濾之後的記錄
var
I: Integer;
begin
Memo1.Lines.Clear;
with cxGrid1DBTableView1.DataController do
for I := 0 to FilteredRecordCount - 1 do
Memo1.Lines.Add(DisplayTexts[FilteredRecordIndex[I], 0]);
end;
============================================================================
獲得單元的Font
cxGrid1DBTableView1.ViewInfo.RecordsViewInfo.Items[1].GetCellViewInfoByItem(
cxGrid1DBTableView1Company).EditViewInfo.Font;
============================================================================
根據Level名稱找到Level物件
function GetLevelByName(AGrid: TcxGrid; ALevelName: string): TcxGridLevel;
function LoopThroughLevels(ALevel: TcxGridLevel; ALevelName: string): TcxGridLevel;
var
I: Integer;
begin
Result := nil;
for I := 0 to ALevel.Count - 1 do
begin
if ALevel[I].Name = ALevelName then
begin
Result := ALevel[I];
Exit;
end;
if ALevel[I].Count > 0 then
begin
Result := LoopThroughLevels(ALevel[I], ALevelName);
if Result <> nil then
Exit;
end;
end;
end;
var
I: Integer;
begin
Result := nil;
for I := 0 to AGrid.Levels.Count - 1 do
begin
if AGrid.Levels[I].Name = ALevelName then
begin
Result := AGrid.Levels[I];
Exit;
end;
if AGrid.Levels[I].Count > 0 then
begin
Result := LoopThroughLevels(AGrid.Levels[I], ALevelName);
if Result <> nil then
Exit;
end;
end;
end;
============================================================================
指定Filter Builder打開/保存過濾檔的默認路徑
uses
…, cxFilterControlDialog;
procedure TForm.GridView1FilterControlDialogShow(
Sender: TObject);
begin
TfmFilterControlDialog(Sender).OpenDialog.InitialDir := ‘D:\’
end;
============================================================================
保存/恢復帶匯總行的佈局
<TableView>.StoreToIniFile(‘c:\Grid.ini’, True, [gsoUseSummary]);
<GridView>.RestoreFromIniFile(<inifilename>,True,False {or True, optional},[gsoUseSummary]);
============================================================================
取消過濾時移到第一行
uses
cxCustomData;
procedure TYour_Form.AViewDataControllerFilterChanged(Sender: TObject);
var
Filter: TcxDataFilterCriteria;
begin
with Sender as TcxDataFilterCriteria do
if IsEmpty then
DataController.FocusedRowIndex := 0;
end;
=============================================================================
排序後移到第一行
可以設置DataController.Options.FocusTopRowAfterSorting := True，也可以使用如下的代碼：
uses
cxCustomData;
procedure TYour_Form.Your_ViewDataControllerSortingChanged(Sender: TObject);
begin
TcxCustomDataController(Sender).FocusedRowIndex := 0;
end;
==============================================================================
判斷當前行是否第一行或最後一行
可以使用DataController的IsBOF, IsEOF方法，或者：
<AView>.Controller.Controller.FocusedRow.IsFirst
<AView>.Controller.Controller.FocusedRow.IsLast
==============================================================================
根據指定值查找記錄
DataController提供了好幾個方法來得到指定值對應的RecordIndex
對於Bound View可以使用FindRecordIndexByKeyValue方法
===============================================================================
編輯和顯示Blob欄位
該欄位的Properties設置為BlobEdit，並將BlobPaintStyle 屬性設為 bpsText
===============================================================================
得到可見行數
<View>.ViewInfo.VisibleRecordCount
===============================================================================
保存後的行設置為當前行
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.
=================================================================================
刪除記錄並獲得焦點
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;
//====================================================================================
報表匯總的設置
資料庫中的財務表為：
ID 收支類型 金額 其他屬性
其中收支類型只有兩種值：0 表示收入，1 表示支出 ；金額都是正數。
設置cxGrid的Footer 可以使得在顯示時，列表的下方出現匯總行：“金額”的和
同樣設置Default For Groups可以使得在用戶拖動表頭屬性實現分組時，顯示組內的匯總行：“金額”的和。
上面說的，用過cxGrid應該都會，下面就有這么一個問題
如果我想使匯總行的值變為如下的值應該怎樣實現：
收支類型為0的金額的和 - 收支類型為1的金額的和
實現Footer的功能好辦，因為它的值不會變，自己用迴圈寫一個就完了，但是Default For Groups的功能就不好說了，因為它的值是根據用戶拖動的屬性計算的，而且還有可能是多層分組，想不出來了，所有到這來問
是不是要設置什么屬性？或者cxGrid根本就沒這個功能，那該用什么方法解決？希望哪位幫我解決，謝謝了先！
給你一個例子,可能對你有幫助,
with tvOrders.DataController.Summary do
begin
BeginUpdate;
try
SummaryGroups.Clear;
//The first summary group
with SummaryGroups.Add do
begin
//Add proposed grouping column(s)
TcxGridTableSummaryGroupItemLink(Links.Add).Column := tvOrdersCustomerID;
//Add summary items
with SummaryItems.Add as TcxGridDBTableSummaryItem do
begin
Column := tvOrdersPaymentAmount;
Kind := skSum;
Format := ‘Amount Paid: $,0’;
end;
with SummaryItems.Add as TcxGridDBTableSummaryItem do
begin
Column := tvOrdersPaymentAmount;
Kind := skCount;
Format := ‘Records: 0’;
end;
end;
//The second summary group
with SummaryGroups.Add do
begin
//Add proposed grouping column(s)
TcxGridTableSummaryGroupItemLink(Links.Add).Column := tvOrdersProductID;
//Add summary items
with SummaryItems.Add as TcxGridDBTableSummaryItem do
begin
Column := tvOrdersQuantity;
Kind := skSum;
Position := spFooter;
Format := ‘TOTAL = 0’;
end;
with SummaryItems.Add as TcxGridDBTableSummaryItem do
begin
Column := tvOrdersPurchaseDate;
Kind := skMin;
Position := spFooter;
end;
end;
finally
EndUpdate;
end;
end;
2007-7-19 12:56:41 go on
訂單號 商品名 單價 數量 金額
001 aa 11.00 2 22.00
001 bb 2.00 2 4.00
001 cc 3.00 3 9.00
———————-合計 7 35.00
002 ee 11.00 2 22.00
002 bb 3.00 2 6.00
002 cc 3.00 3 9.00
———————-合計 7 37.00
總計14 72.00
每個單號分一個小結，能實現嗎？最後在底下實現總的合計
可以的，cxGrid的功能比你想像的還要強大。
1.你先放一個cxGrid，設置好View，設置View.DataController連接的DataSource
2.啟動DataSource連接的DataSet，雙擊cxGrid，點擊Retrieve Fields，取得所有的Column
3.設置View的OptionsView.Footer=True，OptionsView.GroupFooters=True，這是為了把分組小計和總計面板顯示出來
4.將“訂單號”欄位拖到cxGrid上方的分組面板(GroupbyBox)，將資料按“訂單號”分組。這時你會發現單身所有的資料都縮起來了，如果想使所有的資料都展開，可以設置View.DataController.Options.dcoGroupsAlwaysExpanded=True
5.設置分組小計：把View.DataController.Summary.DefaultGroupSummaryItems點開，新增一個Item，Column屬性在下拉裏選擇“數量”欄位，FieldName屬性為空，Format屬性可以設置數值的顯示格式，Kind屬性下拉skSum加總，Position屬性一定要選擇spFooter。
6.設置總計：把View.DataController.Summary.FooterSummaryItems點開，新增一個Item，Column屬性在下拉裏選擇“數量”欄位，FieldName屬性為空，Format屬性可以設置數值的顯示格式，Kind屬性下拉skSum加總，Position屬性一定要選擇spFooter。
大功告成，按F9看一下勝利果實吧。
再奉送一個技巧，在Form1再放一個TcxGridPopupMenu控制項，就在cxGrid控制項旁邊的那個，把TcxGridPopupMenu的Grid屬性設置成你的cxGrid。
然後運行程式，在運行狀態，點擊Grid上的所有地方，左鍵或右鍵，你都會有意外收穫。
ExpressQuantumGrid控制項實在是太複雜，太龐大，最好的瞭解它的方法就是查幫助。
cxGrid的多選我一般都是用這個方法：
//————— .Pas文件
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxEdit,
DB, cxDBData, DBTables, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
cxGridCustomView, cxGrid, cxLookAndFeelPainters, cxGridRows, cxContainer,
cxCheckBox, cxDataStorage;
type
TForm1 = class(TForm)
cxGrid1: TcxGrid;
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1DBTableView1CustNo: TcxGridDBColumn;
cxGrid1DBTableView1Company: TcxGridDBColumn;
cxGrid1DBTableView1Addr1: TcxGridDBColumn;
cxGrid1DBTableView1City: TcxGridDBColumn;
cxGrid1DBTableView1State: TcxGridDBColumn;
cxGrid1DBTableView1Country: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Table1: TTable;
DataSource1: TDataSource;
cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure cxGrid1DBTableView1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure cxGrid1DBTableView1DBColumn1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure cxGrid1DBTableView1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
private
AList: TList;
function CheckList(ARecord: TcxCustomGridRecord): Boolean;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
AList := TList.Create;
end;
function TForm1.CheckList(ARecord: TcxCustomGridRecord): Boolean;
begin
Result := AList.IndexOf(Pointer(ARecord.RecordIndex)) <> – 1;
end;
procedure TForm1.cxGrid1DBTableView1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
AHitTest: TcxCustomGridHitTest;
AGridRecord: TcxCustomGridRecord;
begin
if Sender is TcxGridSite then
begin
with TcxGridSite(Sender).GridView do
AHitTest := ViewInfo.GetHitTest(X, Y);
if (AHitTest.HitTestCode = htCell) and (TcxGridDBColumn(TcxGridRecordCellHitTest (AhitTest). Item ). DataBinding . FieldName = ) then
AGridRecord := TcxGridRecordCellHitTest(AHitTest).GridRecord
else
Exit;
end;
if (AGridRecord <> nil) then
if CheckList(AGridRecord) then
AList.Remove(Pointer(AGridRecord.RecordIndex))
else
AList.Add(Pointer(AGridRecord.RecordIndex));
end;
procedure TForm1.cxGrid1DBTableView1DBColumn1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.EditViewInfo is TcxCustomCheckBoxViewInfo then
TcxCustomCheckBoxViewInfo(AViewInfo.EditViewInfo).State:= TcxCheckBoxState(CheckList(AViewInfo.GridRecord));
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AList.Free;
end;
procedure TForm1.cxGrid1DBTableView1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
with AViewInfo do
if CheckList(GridRecord) then
ACanvas.Brush.Color := clHighlight
else
ACanvas.Brush.Color := clWindow;
ACanvas.Font.Color := clBlack;
end;
end.
//—————cxGrid的Dfm屬性
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 688
Height = 446
Align = alClient
TabOrder = 0
object cxGrid1DBTableView1: TcxGridDBTableView
OnMouseDown = cxGrid1DBTableView1MouseDown
NavigatorButtons.ConfirmDelete = False
OnCustomDrawCell = cxGrid1DBTableView1CustomDrawCell
DataController.DataSource = DataSource1
DataController.DetailKeyFieldNames = CustNo
DataController.KeyFieldNames = CustNo
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsSelection.MultiSelect = True
object cxGrid1DBTableView1CustNo: TcxGridDBColumn
DataBinding.FieldName = CustNo
end
object cxGrid1DBTableView1DBColumn1: TcxGridDBColumn
Caption = CheckColumn
PropertiesClassName = TcxCheckBoxProperties
Properties.DisplayUnchecked = False
OnCustomDrawCell = cxGrid1DBTableView1DBColumn1CustomDrawCell
Options.Editing = False
Options.Filtering = False
Options.IncSearch = False
Options.ShowEditButtons = isebNever
Options.Grouping = False
Options.Sorting = False
Width = 123
end
object cxGrid1DBTableView1Company: TcxGridDBColumn
DataBinding.FieldName = Company
end
object cxGrid1DBTableView1Addr1: TcxGridDBColumn
DataBinding.FieldName = Addr1
end
object cxGrid1DBTableView1City: TcxGridDBColumn
DataBinding.FieldName = City
end
object cxGrid1DBTableView1State: TcxGridDBColumn
DataBinding.FieldName = State
end
object cxGrid1DBTableView1Country: TcxGridDBColumn
DataBinding.FieldName = Country
end
end
object cxGrid1Level1: TcxGridLevel
GridView = cxGrid1DBTableView1
end
end
cyblueboy83 發表於 2005-12-9 11:30:45
學習
hanlin2004 發表於 2005-12-9 13:14:52
我一般是這樣取cxGrid選中的紀錄的值的：
function TFrameAccount.GetSelectedID:variant;
var
AccID: array of string;
i, n: Integer;
Index: Integer;
begin
n := cxGrid1DBTableView1.DataController.GetSelectedCount;
for i:=0 to n – 1 do
begin
Index := cxGrid1DBTableView1.DataController.GetSelectedRowIndex(i);
setlength(AccID, length(AccID) + 1);
AccID[High(AccID)] :=cxGrid1DBTableView1.DataController.GetRowValue(cxGrid1DBTableView1.DataController.GetRowInfo(Index),0); //這裏的0是Grid中列的索引，0表示第一個列綁定的欄位
end;
result := AccID;
end;
DevExpress cxGrid的應用
在cxGrid下建立view，取名myView
1. 允許選擇多條記錄(MultiSelect)：
myView–OptionsSelection–MultiSelect 設成true
2. 取得選定行的值：
myView->DataController->FocusedRowIndex 獲得選擇行的行號
myView->DataController->Values[myView->DataController->FocusedRowIndex+1][0] 選擇的行的第一列的值
myView->DataController->GetSelectedCount() 選擇多行的行數
myView->DataController->GetSelectedRowIndex(行號n) 所選多行裏的第n行
3. VerticalGrid的單元值
控制項->Properties->Value 獲得單元的值，此值為variant類型，需要強制轉換成AnsiString
4. VerticalGrid裏的CheckGroup的使用
得到的值為: (;1,3,8)此為選擇了選項裏的第1、3、8項
5. VerticalGrid裏驗證
TcxEditorRow的properties->EditorProperties選MaskEdit，然後再選下面的MaskEdit和MaskKind，可以限定輸入的東西
6. TcxPopupEdit控制項的應用，Form1加一個控制項cxPopupEdit1
屬性裏PopupControl指向你要彈出的表單Form2，Form2裏添加一個按鈕，說明文件裏添加
[Copy to clipboard] [ – ]
CODE:
private: // User declarations
AnsiString FEditValue;
TcxPopupEdit *FPopupEdit;
。。。
public:
__property AnsiString EditValue = {read=FEditValue,write=FEditValue};
__property TcxPopupEdit *PopupEdit = {read=FPopupEdit, write=FPopupEdit};
在Form1的cxPopupEdit1控制項的事件裏添加下面的代碼
[Copy to clipboard] [ – ]
CODE:
//—————————————————————————
void __fastcall TForm1::cxPopupEdit1PropertiesInitPopup(TObject *Sender)
{
Form2->PopupEdit = (TcxPopupEdit*)Sender;
}
//—————————————————————————
void __fastcall TForm1::cxPopupEdit1PropertiesCloseUp(TObject *Sender)
{
cxPopupEdit1->EditValue = Form2->EditValue;
}
在Form1的按鈕事件裏可以加入
[Copy to clipboard] [ – ]
CODE:
FEditValue = "嘻嘻哈哈";
FAccepted = AAccepted;
FPopupEdit->DroppedDown = false;
//—————————————————————————
7. TcxGrid控制項去掉上面的"Drag a column header here to group by that column"欄
在控制項的view的OptionsView屬性裏有一個GroupByBox，設為false即可
呵呵，寫的有些亂，自己試著做吧
選擇了若干條記錄(MultiSelect)
選擇了若干條記錄(MultiSelect),現在要把這些選中的記錄從該資料庫複製到另一庫中，該如何做？
可以參考。我的程式是列印選擇的記錄 ，
你可以保存到其他表就好。
var i:integer;
begin
if cxview1.DataController.Controller.SelectedRecordCount>0 then
with cxview1.DataController.DataSource.DataSet do
begin
global.BQ_ppp(”,3); //只進行資料清除
for i:=0 to cxview1.DataController.Controller.SelectedRecordCount-1 do
begin
GotoBookmark(Pointer(cxview1.DataController.GetSelectedBookmark(i)));
if Pos(‘計’,fields[0].AsString)=0 then
begin
if CheckBox2.Checked then
global.BQ_ppp(fields[0].AsString,0)//立即進行標籤列印，不把資料加到臨時資料庫。
else
global.BQ_ppp(fields[0].AsString,1); //加入資料到臨時資料庫。
end;
end;
if CheckBox2.Checked=false then //列印中的資料只是包含一種標籤。 不是多種標籤列印，集中列印臨時資料庫中的資料。
global.BQ_ppp(”,2); //只進行標籤列印
Log_save(‘標籤補打’,’標籤列印’);
end;
end;
來自：lihoulong, 時間：2006-7-8 23:59:31, ID：3500034
function CopyRecord(var recData: TArrayVariant): boolean;
var
i: integer;
begin
with FDataset do
begin
SetLength(recData, Fields.Count);
for i := 0 to Fields.Count – 1 do
recData[i] := Fields[i].Value;
end;
Result := true;
end;
function TwpQDTable.PasteRecord(
const RecData: array of Variant): boolean;
var
fcnt,
i: integer;
begin
with FDataset do
try
fcnt := Length(RecData) – 1;
for i := 0 to fcnt do
begin
if FDataset.State in [dsBrowse] then
Edit;
Fields[i].Value := RecData[i];
end;
Result := true;
except
Result := false;
end;
end;
定義一個記錄陣列
for i := 0 to cxgrid.SelectedCount-1 do begin
依據關鍵字定位資料集,再執行CopyRecord
end;
在粘貼的地方用pasteRecord
cxGrid的使用方法
1. 去掉cxgrid中台頭的box ,在tableview1的ptionsview的groupbybox=false;
2. 在GRID footer 中加入sum(列), tableview1的optionsviewàfooter=ture
然後在cxGRid1的customize..中的summary 的footer.add需要合計的列kind= skSum
3. 去掉cxgrid 中的過濾下拉箭頭 選擇tableview1.optionscustomize.columnfiltering=fasle;
4. cxGrid1DBTableView1 的 OptionView中屬性GroupFooters設為gfAlwaysVisible並設置需要求和的列,在summary.default for Groups 下add加入需要合計的欄位,column下顯示fieldname 為統計欄位,format為格式,kind為統計方法,position 為位子 spfooter 在分組的下面,spgroup 在分組的上面
或用cxGridPopupMenu1,在運行時可對任意數字類型列求和,方法是只需設置cxGridPopupMenu1的屬性Grid為cxGrid1DBTableView1的cxGrid,
即可實現您所需功能
5. DEV Express裏的cxGrid默認的數值格式帶￥，怎么去掉啊！
6. 雙擊Cxgrid，選擇colmnum改變類型 options.properties.Memo
7. 在displayformat中進行設置
來源於大富翁論壇
使用cxGrid有一些時間了，在這裏總結一下使用cxGrid的一些方法，希望給剛開始接觸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;DataSource1的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->DataController->Summary設置FooterSummaryItems即可
6)類似PageControl顯示
解決：增加一個Level,將cxGrid1->RootLevelOptions->DetailTabsPosition設為dtpTop，然後相應的設置cxGrid1Level1,和cxGrid1Level2的Caption值。
未完待續。。。。。。。。。
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;
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->OptionsCustomize->ColumnFiltering 設為False。（這個設置可以將欄位名的下拉單給去掉）更改cxGrid1DBBandedTableView1->OptionsView->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)ExpressQuantumGrid 3.2.2中的dxdbgrid和4.2版本中的cxgrid有什么區別?
有很大的區別，基本上相當於是兩個控制項一樣。
cxgrid是在dxdbgrid基礎上完全重寫的，所以cxgrid不支持dxdbgrid
所以cxgrid裏面特意提供了一個將dxdbgrid導入到cxgrid的功能。
17）怎樣設計多表頭的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 |
不知道有誰能實現這樣的多表頭？
18）在主從表結構時，當點開“+”時怎樣將焦點聚在相應主表的記錄上？
解決：
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;
19)CXGrid4如何展開全部節點
解決：GridDBTableView1.DataController.Groups.FullExpand;
2003-12-12 17:07:30 問題20
20）cxGrid如何動態創建Items的Editor的項?
cxGrid的列有一個屬性,它的編輯框可以指定combobox,spinedit等.在設計時,可以為
combobox的items添加項目.請問是否可以動態創建?(run-time時由程式加入)
解決：
var
A:TDataSource:
B:TcxlookupcomboboxProperties;
begin
A:=TDataSource.create(self);
B:=tcxlookupcomboboxproperties.create(self);
A.Dataset:=Dic_ry_xb;//此處指定數據源。
b.listdource:=a;//此處指明欄位的listsource屬性。
b.keyfieldnames:=’a’; //此處指明欄位的關鍵字段
b.listfieldnames:=’b’; //此處指明欄位的返回值。
b.listcolumns.items[0].caption:=’x; //此處默認是會建立一個欄位，但是顯示的表頭是name，所以此處讓它顯示為自己想要的中午顯示。
cxGrid1DBTableView1c1_sex_code.Properties:=b; //此處指明是那個欄位。
end; //這個是初始化的代碼，
2004-1-7 14:05:14 問題21
21）ExpressQuantumGrid4.5的漢化包
在這裏可以下載ExpressQuantumGrid4.5的漢化包，將檔直接覆蓋到原始檔案就可以了。
如何在dxMemData1或cxGrid1中動態添加欄位？
Procedure TcxGridDBTableView.CreateDefaultColumn; //建立默認的列 //Add By Pgt
Var
CxColumn:TcxGridDBColumn;
FootItem:TcxDataSummaryItem;
i:Integer;
OldAutoWidth:Boolean;
Begin
If Assigned(DataController.DataSource) And
Assigned(DataController.DataSource.DataSet) And
DataController.DataSource.DataSet.Active Then Begin
With DataController.DataSource.DataSet Do Begin
While ColumnCount>0 Do
Columns[0].Free ;
For i:=0 to FieldCount -1 Do Begin
If (Fields[i].DataType<>ftAutoInc) And (UpperCase(Fields[i].FullName)<>’ID’) Then Begin
CxColumn:=Self.CreateColumn ;
CxColumn.DataBinding.FieldName := Fields[i].FullName ;
CxColumn.HeaderAlignmentHorz := taCenter ;
CxColumn.HeaderAlignmentVert := VaCenter ;
If CxColumn.Width >150 Then CxColumn.Width := 150 ;
If i=0 Then Begin
FootItem := DataController.Summary.FooterSummaryItems.Add ;
FootItem.ItemLink :=CxColumn ;
FootItem.Format := ‘共0條’;
FootItem.Kind := skCount ;
End Else Begin
If (Fields[i].DataType = ftFloat) And (Pos(‘價’,Fields[i].FullName)=0) Then Begin
FootItem := DataController.Summary.FooterSummaryItems.Add ;
FootItem.ItemLink :=CxColumn ;
If Pos(‘數量’,Fields[i].FullName)<>0 Then
FootItem.Format := ‘,0;-,0’
Else Begin
FootItem.Format := ‘,0.00;-,0.00’ ; // ‘￥,0.00;-￥,0.00’;
If CxColumn.Width<80 Then CxColumn.Width := 80 ;
End;
FootItem.DisplayName := Fields[i].FullName ;
FootItem.Kind := skSum ;
End;
End;
End;
End;
OldAutoWidth := Self.OptionsView.ColumnAutoWidth ;
Self.OptionsView.ColumnAutoWidth := True ;
Self.OptionsView.ColumnAutoWidth := OldAutoWidth ;
End;
End;
End;
近期留言