cxGrid的使用方法

cxGrid 的使用方法

cxGrid 功能强大，适合做企业级的复杂查询。非常方便。

但是对其用法介绍的并不多，在此总结他人的使用经验和自己的一点小经验，供大家参考。

（１）动态设置显示格式

procedure SetDisplayFormat(ACtrlData: TClientDataSet;

 TbView: TcxGridDBTableView);

var

 i: integer;

  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;

end;

（２）显示行号

procedure TFmQueryBase.cxDBViewMasterCustomDrawIndicatorCell(

 Sender: TcxGridTableView; ACanvas: TcxCanvas;

 AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);

var

 FValue: string;

 FBounds: TRect;

begin

 FBounds := AViewInfo.Bounds;

  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

  if cxDBViewMaster.DataController.DataSet.Fields[i] is TNumericField then

  begin

   if Pos('AMOUNT', UpperCase(cxDBViewMaster.DataController.DataSet.Fields[i].FieldName)) > 0 then

   begin

    Continue;

    Continue;

   end;

 end;

 end;

end;

最近在学习使用 cxGrid,安装的版本是 ExpressQuantumGrid  Suite  v5.10 

 我发现这个控件功能虽然强大,但是非常难用。

 现在我手头就有几个问题还没解决：

 1）主从模式下导出 Excel 中文会产生乱码，而且从表内容没有导出。

 我不知道是不是因为我的字段名包括单引号的原因。

 导出代码：ExportGrid4ToExcel(FileName,  cxGrid); 

 

 2）主从模式下通过按钮对从表添加/删除行，代码怎幺写。

 附：单表添加/删除行的代码

 

 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; 

   GridView:  TcxGridDBTableView; 

 

   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  :=  TcxGridDBTableView(cxGrid1.Levels[0].GridView); 

   GridView.DataController.KeyFieldNames  :=  'VendorID'; 

   GridView.OptionsView.GroupByBox  :=  False; 

 

   tvResult.BeginUpdate; 

   tvResult.EndUpdate; 

 

   //显示明细表内容

   GridView  :=  TcxGridDBTableView(cxGrid1.Levels[0].Items[0].GridView); 

   GridView.BeginUpdate; 

   GridView.ClearItems; 

   GridView.DataController.CreateAllItems; 

   GridView.DataController.Refresh; 

   GridView.EndUpdate; 

 end; 

此楼回复 Re：

你说的这几个问题我也遇到过。

 第一个问题是编码的问题，修改了其中关于编码的函数，OK. 

 第二个问题在 cxGrid 的社区可以找到解答，但从表必须满足某种条件，例如关键字排序。

 第三个问题的解决办法，你可以尝试在动态创建的代码前后加上：

 grid.beginupdate; 

 ... 

 grid.endupdate 

 来解决。

此楼回复 Re：

没用过

 不要经常使用三方控件

此楼回复 Re：

to  tttk(网络芝麻)：

 第一个问题：如何修改啊，贴出代码

 第二个问题：没搜到啊

此楼回复 Re：

 ====================== 

 我感觉不用 cxGrid 的话，没必要用 Delphi 了，呵呵

 我感觉不用 cxGrid 的话，没必要用 Delphi 了，呵呵

   

  

 ********** 

 楼主乃天人也！！

此楼回复 Re：