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; //计算出表格各列单元宽度和整个表格的总宽度
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
