如何快速自动生成并定制报表

西南交通大学电气学院（610031）童晓阳

在各种管理信息系统应用中，需要产生大量的报表，通常的做法是由编程人员一个个手工制作，工作效率较低；另外，用户希望能够将在应用程序里查询得到的结果生成报表以便打印。为了解决以上两种问题，本文利用动态生成技术实现了快速自动产生报表，允许用户手工对报表进行修饰，并将实现过程封装成一个类。

1．设计思路

使用过C++ Builder或Delphi的编程人员知道，有一个TDBGrid控件，它能以表格的形式显示和操作用户查询的数据记录；而要制作一个可供打印的报表，则需要使用TQuickRep控件，在它上面增加TQRLabel、TQRDBText、TQRShape等控件，设置它们对应的数据集、数据字段等属性，然后编排它们的位置，以表格或其它格式显示出来供预览和打印，这是一个很繁琐的过程。有时，用户希望能将查询出来的显示在TDBGrid控件的数据打印出来，按照以往的做法，就需要由编程人员按照TDBGrid的显示内容手工设计报表。在这里，本文利用动态生成技术，读出TDBGrid的有关显示信息，在TQuickRep控件里动态生成相应的TQRLabel、TQRDBText、TQRShape等控件，设置各字段的标题和数据以及表格分割条。这是完全可行的，因为在C++ Builder里所有的控件都可以由程序动态生成，不仅仅是在设计阶段才产生的。另外，如果用户对产生的报表表格布局不太满意，本文提供了接口使用户可对报表进行手工调整，调整表格的高度、宽度等布局，实现用户对报表的一定程度的定制。

利用C++的封装性特点，将自动产生并定制报表的实现封装成一个新类TGridPrint，对外提供编程人员关心的公用接口，屏蔽了内部信息和具体实现，体现了面向对象的设计思想，为编程人员带来方便。编程人员还可以在它基础上进一步扩充功能。这样设计的新类减轻了编程人员的工作量，同时为用户提供了定制报表的接口，提高了报表的质量和用户参与的积极性。

2．实现过程

自动产生并定制报表的实现过程包括自动产生和定制两部分。新类的定义和实现分别在GridPrint.h GridPrint.cpp文件里，另包含3个文件RepRst.h、RepRst.cpp、RepRst.dfm，它们是已产生的一个窗口FrmRepRst，在它里面已增加一个TQuickRep控件，它的属性Bands的各子属性的值全为true。

2.1 自动产生报表

先定义一个表示表格某一列信息的结构，在报表里一列有固定标题和显示的数据文本两种信息，为了能画出表格，每一列固定标题栏和数据栏右边分别增加一个分隔条。在类TGridPrint的构造函数里，先根据传入的TQuickRep *pSrcQuickRep（报表指针）,TDBGrid * pSrcDBGrid（数据表格指针）,TQRBand *SrcTitleBand1（报表中的总标题栏指针）, TQRBand *SrcColumnHeaderBand1（报表中的字段标题栏指针）,TQRBand * SrcDetailBand1（报表中的数据栏指针）参数设置类的私有变量。再动态生成并设置总标题文本、字段标题栏矩形框、数据栏矩形框的属性。然后通过一个循环，读出TDBGrid中各字段的标题和数据信息，动态生成报表中各字段的标题标签控件、数据文本控件以及对应的表格分割竖条控件。在类的析构函数里，删除所有由构造函数动态生成的对象。类的打印预览函数实现报表的打印预览功能。其它的函数说明略。

自动生成报表类的定义（GridPrint.h）

#include <DBGrids.hpp> //包含的相关头文件

#include <Db.hpp>

#include <Printers.hpp>

#include <QuickRpt.hpp>

#include <Qrctrls.hpp>

typedef struct tagFieldType{ //表示表格某一列信息的结构

AnsiString sTitle; //字段标题名称

int iWidth; //表格单元的宽度

TQRLabel *pLabel; //字段标题控件

TQRDBText *pDBText; //显示的数据控件

TQRShape *pShapeTitle, *pShapeData; //字段标题和数据的表格分隔条

} NEWFIELDTYPE;

class TGridPrint{

public:

TGridPrint(TQuickRep *pSrcQuickRep,TDBGrid * pSrcDBGrid,TQRBand *SrcTitleBand1,

TQRBand *SrcColumnHeaderBand1,TQRBand * SrcDetailBand1); //构造函数

~TGridPrint(); //析构函数

void DoPreview(); //报表的打印预览

void SetPrntTitle(AnsiString sTitle); //手工设置表格的总标题

void SetColumnsWidth(int *ColumnsWidth); //手工设置表格各列宽度

void SetHeadRectHeight(int iHeight); //手工设置字段标题行的高度

void SetDetailRectHeight(int iHeight); //手工设置数据行的高度

private:

TDBGrid * pDBGrid; //将要显示的DBGrid

TDataSet * pDataSet; //DBGrid对应数据集

TQuickRep * pQuickRep; //报表控件

TQRBand * TitleBand1; //报表的总标题栏

TQRBand * ColumnHeaderBand1; //报表的字段标题栏

TQRBand * DetailBand1; //报表的数据栏

TQRLabel * pTitleLabel; //总标题控件

TQRShape * pHeadRect, * pDetailRect; //整个字段标题栏、数据栏的表格矩形控件

int iHeadRectHeight, iDetailRectHeight; //对应表格矩形框的高度，它们宽度相同

int _iTotalWidth; //整个表格的总宽度

int _iIntClearance; //表格内部数据列到左表格的距离

int _iFieldCount; //将要打印的字段数目

NEWFIELDTYPE _arrayFieldType[40]; //支持到40个字段的打印

void AutoAdjustColumnsWidth(); //程序自动调整各列宽度

};

类的主要公用方法的实现（GridPrint.cpp）

TGridPrint::TGridPrint(TQuickRep * pSrcQuickRep,TDBGrid * pSrcDBGrid,TQRBand *SrcTitleBand1, TQRBand *SrcColumnHeaderBand1,TQRBand * SrcDetailBand1) //构造函数

{ int i,PreLeft;

pQuickRep = pSrcQuickRep; //根据传入参数设置私有变量

pDBGrid = pSrcDBGrid;

pDataSet = pDBGrid->DataSource->DataSet;

pQuickRep->DataSet = pDataSet;

TitleBand1 = SrcTitleBand1;

ColumnHeaderBand1 = SrcColumnHeaderBand1;

DetailBand1= SrcDetailBand1;

PTitleLabel = new TQRLabel(pQuickRep); //生成并设置总标题标签的属性

pTitleLabel->Parent = TitleBand1;

pTitleLabel->Caption = "报表标题";

pTitleLabel->Left= (TitleBand1->Width - pTitleLabel->Width)/2;

memset(_arrayFieldType,0,sizeof(NEWFIELDTYPE)*40);

_iTotalWidth=0; //计算出表格各列单元宽度和整个表格的总宽度

for(i=0; i< pDBGrid->FieldCount;i++)

{ _arrayFieldType[i].iWidth= pDBGrid->Columns->Items[i]->Width;

_iTotalWidth += _arrayFieldType[i].iWidth; }

if(_iTotalWidth > TitleBand1->Width)

{ //如果原DBGird各列宽度和大于总标题栏宽度，就调整各列宽度

_iTotalWidth= TitleBand1->Width;

AutoAdjustColumnsWidth(); }

PreLeft= ( TitleBand1->Width - _iTotalWidth)/2; //使整个表格居中

pHeadRect= new TQRShape(pSrcQuickRep); //生成并设置字段标题栏的矩形框

pHeadRect->Parent= ColumnHeaderBand1;

pHeadRect->Left = PreLeft; pHeadRect->Top = 0;

pHeadRect->Width = _iTotalWidth; pHeadRect->Height= pHeadRect->Parent->Height;

pDetailRect= new TQRShape(pSrcQuickRep); //生成设置数据行的矩形框

pDetailRect->Parent= DetailBand1;

pDetailRect->Left = PreLeft; pDetailRect->Top = -1;

pDetailRect->Width = _iTotalWidth; pDetailRect->Height= pDetailRect->Parent->Height+1 ;

_iIntClearance= 1;

_iFieldCount= pDBGrid->FieldCount; //设置表格总列数

for(i=0; i< _iFieldCount;i++) //动态生成各字段

{ //该字段的固定标题栏

_arrayFieldType[i].pLabel= new TQRLabel(pQuickRep); //标题控件

_arrayFieldType[i].pLabel->Parent= ColumnHeaderBand1;

//字段标题名称

_arrayFieldType[i].pLabel->Caption= pDBGrid->Columns->Items[i]->Title->Caption;

//字段标题的字体

_arrayFieldType[i].pLabel->Font= pDBGrid->Columns->Items[i]->Title->Font;

_arrayFieldType[i].pLabel->Alignment=

pDBGrid->Columns->Items[i]->Title->Alignment; //对齐方式

_arrayFieldType[i].pLabel->Left = PreLeft+_iIntClearance;

_arrayFieldType[i].pLabel->Width = _arrayFieldType[i].iWidth-2*_iIntClearance;

_arrayFieldType[i].pLabel->Height= _arrayFieldType[i].pLabel->Font->Height;

_arrayFieldType[i].pLabel->Top=

pHeadRect->Top+(pHeadRect->Height+_arrayFieldType[i].pLabel->Height)/2;

_arrayFieldType[i].pShapeTitle= new TQRShape(pQuickRep); //该字段右边的分隔竖条

_arrayFieldType[i].pShapeTitle->Parent= ColumnHeaderBand1;

_arrayFieldType[i].pShapeTitle->Left = PreLeft + _arrayFieldType[i].iWidth;

_arrayFieldType[i].pShapeTitle->Top = 0;

_arrayFieldType[i].pShapeTitle->Width= 1;

if( i == pDBGrid->FieldCount-1) //最后一列的分隔竖条宽度为0

_arrayFieldType[i].pShapeTitle->Width= 0;

_arrayFieldType[i].pShapeTitle->Height=_arrayFieldType[i].pShapeTitle->Parent->Height;

//显示的数据栏

_arrayFieldType[i].pDBText= new TQRDBText(pQuickRep); //该字段对应的文本控件

_arrayFieldType[i].pDBText->Parent = DetailBand1;

_arrayFieldType[i].pDBText->DataSet = pDataSet; //数据集

_arrayFieldType[i].pDBText->DataField = pDBGrid->Columns->Items[i]->FieldName; //字段名

_arrayFieldType[i].pDBText->Font = pDBGrid->Columns->Items[i]->Font; //字体

_arrayFieldType[i].pDBText->Alignment= pDBGrid->Columns->Items[i]->Alignment; //对齐方式

_arrayFieldType[i].pDBText->Left = PreLeft+_iIntClearance;

_arrayFieldType[i].pDBText->Width = _arrayFieldType[i].iWidth-2*_iIntClearance;

_arrayFieldType[i].pDBText->Height= _arrayFieldType[i].pDBText->Font->Height;

_arrayFieldType[i].pDBText->Top=

pDetailRect->Top+(pDetailRect->Height+_arrayFieldType[i].pDBText->Height)/2;

_arrayFieldType[i].pShapeData= new TQRShape(pQuickRep); //该数据右边的分隔竖条

_arrayFieldType[i].pShapeData->Parent= DetailBand1;

_arrayFieldType[i].pShapeData->Left = PreLeft+_arrayFieldType[i].iWidth;

_arrayFieldType[i].pShapeData->Top = 0;

_arrayFieldType[i].pShapeData->Width= 1;

if( i== pDBGrid->FieldCount-1) //最后一列的分隔竖条宽度为0

_arrayFieldType[i].pShapeData->Width= 0;

_arrayFieldType[i].pShapeData->Height=_arrayFieldType[i].pShapeData->Parent->Height;

PreLeft= _arrayFieldType[i].pShapeTitle->Left; //下列字段的左位置

}

TGridPrint::~TGridPrint() //析构函数

{ delete pTitleLabel; delete pHeadRect; delete pDetailRect;

for(int i=0; i< pDBGrid->FieldCount;i++)

{ delete _arrayFieldType[i].pDBText; delete _arrayFieldType[i].pShapeData;

delete _arrayFieldType[i].pLabel; delete _arrayFieldType[i].pShapeTitle;

} }

void TGridPrint::DoPreview() //打印预览函数

{ pQuickRep->Preview(); }

2.2 定制报表

类的公共接口提供有4个函数SetPrntTitle、SetColumnsWidth、SetHeadRectHeight、SetDetailRectHeight，分别是手工设置表格的总标题、表格各列宽度、字段标题行的高度和数据行的高度。编程人员可自己设计相关界面，供用户来对报表的布局做进一步的修正，满足用户的要求，提高了报表的质量和用户参与的积极性。实际上，这样做将编程人员在报表设计阶段的工作转交给用户来做，避免了原来设计好不能改变的问题。

2.3 调用方法

完成类TGridPrint的设计后，编程人员可以在需要的地方很方便地调用它。调用前注意包含两个头文件。调用时，需将下面构造函数里的DBGrid1换成程序界面上实际使用的TDBGrid控件名字，其它不用改动。

#include "GridPrint.h"

#include "RepRst.h"

TFrmRepRst *pFrmRepRst= new TFrmRepRst(NULL);

TGridPrint *pGridPrint= new TGridPrint(pFrmRepRst->QuickRep1, DBGrid1, pFrmRepRst->TitleBand1, pFrmRepRst->ColumnHeaderBand1, pFrmRepRst->DetailBand1);

pGridPrint->DoPreview();

delete pGridPrint; delete pFrmRepRst;

3．结束语

在前人设计的基础上，根据任务的需要，采用面向对象的设计方法，可设计出实现目标的新类，并能被继承和扩充。本文只针对数据表格TDBGrid控件设计的，起抛砖引玉的作用，读者可在上述思路的基础上，针对其它格式的报表，进行自动生成报表的设计。