利用cxSpreadSheetBook电子表格控件完成复杂性的报表例子

最新推荐文章于 2019-01-17 00:19:41 发布

albve20200

最新推荐文章于 2019-01-17 00:19:41 发布

阅读量263

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/hsbs/p/4677254.html

版权

如果报表复杂，可以利用cxSpreadSheetBook电子表格控件来生成报表。

下面例子是装载数据同时设置电子表格格式：

procedure TAO_RepShowData.LoadRepData;
var
CurCursor: TCursor;
begin
CurCursor := Screen.Cursor;                              // 光标设置
Screen.Cursor := crHourGlass;
try
    cxSpreadBook.BeginUpdate;
    LoadTitle;                                                      //从数据库取数加载表格标题
    LoadData;                                                     //从数据库取数加载表格数据
    cxSpreadBook.ActiveSheet.SelectCell(-1, -1, False);//光标位置在表格外
Finally
    cxSpreadBook.EndUpdate;
    cxSpreadBook.Recalc;                                   //重新计算表格
    cxSpreadBook.ActivePage := 0;                          // 第一页

Screen.Cursor := CurCursor; // 光标设置

end;
end;

procedure TAO_RepShowData.LoadTitle; //装载表格标题
var
i, CRow: integer;
CHeader: TcxSSHeader;
begin
i := cdsAnalyseField.RecordCount; //合并单元格格数

//GlobalVars.Values['REPNAME'] 是个变量
SetCellText(1, 0, GlobalVars.Values['REPNAME']); //设置表格头名称（报表名称） cxSpreadBook.ActiveSheet.Caption := GlobalVars.Values['REPNAME'];//页标签名称
cxSpreadBook.ActiveSheet.SelectCell(1, 0); //选中单元格
SetMergedStateA(1, 0, i + 1, 0, true); //合并单元格
SetCellFont(1, 0, i, 0, [fsBold], 20); //设置字体大小
//SetCellsStyle([svAlign], haCenter, 0, cbxFont.Text, []);
SetCellAlignment(1, 0, i + 1, 0, haCenter, vaCenter);//格式居中
SetCellText(1, 1, GlobalVars.Values['JHDW']); //设置金额单位
SetCellText(1, 2, '单位名称');//设置表格表题
SetCellAlignment(1, 2, 1, 2, haCenter, vaCenter);//格式居中

SetCellFont(1, 2, 1, 2, [fsBold], 8);
CHeader := cxSpreadBook.ActiveSheet.Cols;
CHeader.Size[1] := 180;//列宽度
cdsRepDwData.DisableControls;
try
    CRow := 3;//从第三行开始
    cxSpreadBook.ActivePage := 0;
    cdsRepDwData.First;
    while not cdsRepDwData.eof do begin
      SetCellText(1, CRow, cdsRepDwDataDANWEI_MINGCHANG.Value);//从数据库中取数填入表格单元
      cdsRepDwData.Next;
      Inc(CRow);
    end;
    SetmnuCellBorders(1, 2, 1, CRow - 1, 5);//设置表格格式
    //SetCellPattern(1,2,1,CurRow-1,23,1,fsSolid);
Finally
    cdsRepDwData.EnableControls;                         // restore original cursor
end;
end;

procedure TAO_RepShowData.LoadData;//装载数据
var
CurCol, CurRow: Integer;
CHeader: TcxSSHeader;
begin
if cdsAnalyseField.RecordCount > 0 then
begin
try

      cxSpreadBook.ActivePage := 0;
      cdsAnalyseField.DisableControls;
      CurCol := 2;//从第二列开始
      CurRow := 3;//从第三行开始
      cdsAnalyseField.First;
      while not cdsAnalyseField.eof do begin
        CHeader := cxSpreadBook.ActiveSheet.Cols;
        CHeader.Size[CurCol] := 120;//列宽度
        SetCellText(CurCol, 2, cdsAnalyseFieldANALYSE_FIELD_NAME.Value);
        try
          OpenRepDwData(GlobalVars.Values['DANWEI_QYDM'], StrToInt(GlobalVars.Values['REP_VOL_KEY']), cdsAnalyseFieldSIGN_CELL_KEY.Value);
          cdsRepDwData.DisableControls;
          CurRow := 3;
          cdsRepDwData.First;
          while not cdsRepDwData.eof do begin
            if cxSpreadBook.ActiveSheet.GetCellObject(1, CurRow).Text = cdsRepDwDataDANWEI_MINGCHANG.Value then
            begin
              if cdsRepDwDataSIGN_DELL_TYPE.Value = 0 then //RoundFloat(StrToFloat(Text),2)
                if cdsRepDwDataREP_DATA.Value = 0 then
                  SetCellText(CurCol, CurRow, '0')
                else
                begin
                  if GlobalVars.Values['JHDW'] = '金额单位:元' then//加载数据，金额换算成元。
                    SetCellText(CurCol, CurRow, FormatFloat('#,#.00', cdsRepDwDataREP_DATA.Value));    //FormatFloat('#,#.##',cdsRepCellDataREP_DATA.Value))
                  if GlobalVars.Values['JHDW'] = '金额单位:万元' then//加载数据，金额换算成万元。
                    SetCellText(CurCol, CurRow, FormatFloat('#,#.00', StrToFloat(FloatToStr(cdsRepDwDataREP_DATA.Value / 10000))));
                  if GlobalVars.Values['JHDW'] = '金额单位:亿元' then//加载数据，金额换算成亿元。
                    SetCellText(CurCol, CurRow, FormatFloat('#,#.00', StrToFloat(FloatToStr(cdsRepDwDataREP_DATA.Value / 100000000))));
                end;
              if cdsRepDwDataSIGN_DELL_TYPE.Value = 1 then
                SetCellText(CurCol, CurRow, cdsRepDwDataREP_TEXT.Value);
            end;
            cdsRepDwData.Next;
            Inc(CurRow);
          end;
        Finally
          cdsRepDwData.EnableControls;                         // restore original cursor
        end;
        cdsAnalyseField.Next;
        Inc(CurCol);
      end;
      SetCellFormat(2, 3, CurCol, CurRow, 4);//设置表格格式
      SetmnuCellBorders(2, 2, CurCol - 1, CurRow - 1, 5);//设置表格线
      SetCellAlignment(2, 2, CurCol, 2, haCenter, vaCenter);
      SetCellFont(2, 2, CurCol, 2, [fsBold], 8);
    Finally
      cdsAnalyseField.EnableControls;                         // restore original cursor
    end;
end;
end;