cxgrid强大用法

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

(2012-07-25 14:09:42)

转载▼

标签：

delphi

cxgrid

用法

强大

杂谈

分类： Delphi

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;

2007-7-19 12:48:54
查看评语»»»

2007-7-19 12:53:09 别人的，转载http://www.showding.cn/item/cxGrid__182526.aspx

最近在学习使用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;