FSubMenuItem

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;