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

如何快速自动生成并定制报表在各种管理信息系统应用中，需要产生大量的报表，通常的做法是由编程人员一个个手工制作，工作效率较低；另外，用户希望能够将在应用程序里查询得到的结果生成报表以便打印。为了解决以上两种问题，本文利用动态生成技术实现了快速自动产生报表，允许用户手工对报表进行修饰，并将实现过程封装成一个类。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 /包含的相关头文件#include #include #include #include typedef struct tagFieldType /表示表格某一列信息的结构AnsiString sTitle; /字段标题名称int iWidth; /表格单元的宽度TQRLabel *pLabel; /字段标题控件TQRDBText *pDBText; /显示的数据控件TQRShape *pShapeTitle, *pShapeData; /字段标题和数据的表格分隔条 NEWFIELDTYPE;class TGridPrintpublic: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; /将要显示的DBGridTDataSet * 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 _arrayFieldType40; /支持到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; iFieldCount;i+) _arrayFieldTypei.iWidth= pDBGrid-Columns-Itemsi-Width;_iTotalWidth += _arrayFieldTypei.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; iParent= ColumnHeaderBand1;/字段标题名称_arrayFieldTypei.pLabel-Caption= pDBGrid-Columns-Itemsi-Title-Caption; /字段标题的字体_arrayFieldTypei.pLabel-Font= pDBGrid-Columns-Itemsi-Title-Font;_arrayFieldTypei.pLabel-Alignment=pDBGrid-Columns-Itemsi-Title-Alignment; /对齐方式_arrayFieldTypei.pLabel-Left = PreLeft+_iIntClearance;_arrayFieldTypei.pLabel-Width = _arrayFieldTypei.iWidth-2*_iIntClearance;_arrayFieldTypei.pLabel-Height= _arrayFieldTypei.pLabel-Font-Height;_arrayFieldTypei.pLabel-Top=pHeadRect-Top+(pHeadRect-Height+_arrayFieldTypei.pLabel-Height)/2;_arrayFieldTypei.pShapeTitle= new TQRShape(pQuickRep); /该字段右边的分隔竖条_arrayFieldTypei.pShapeTitle-Parent= ColumnHeaderBand1;_arrayFieldTypei.pShapeTitle-Left = PreLeft + _arrayFieldTypei.iWidth;_arrayFieldTypei.pShapeTitle-Top = 0;_arrayFieldTypei.pShapeTitle-Width= 1;if( i = pDBGrid-FieldCount-1) /最后一列的分隔竖条宽度为0_arrayFieldTypei.pShapeTitle-Width= 0;_arrayFieldTypei.pShapeTitle-Height=_arrayFieldTypei.pShapeTitle-Parent-Height;/显示的数据栏_arrayFieldTypei.pDBText= new TQRDBText(pQuickRep); /该字段对应的文本控件_arrayFieldTypei.pDBText-Parent = DetailBand1;_arrayFieldTypei.pDBText-DataSet = pDataSet; /数据集_arrayFieldTypei.pDBText-DataField = pDBGrid-Columns-Itemsi-FieldName; /字段名_arrayFieldTypei.pDBText-Font = pDBGrid-Columns-Itemsi-Font; /字体_arrayFieldTypei.pDBText-Alignment= pDBGrid-Columns-Itemsi-Alignment; /对齐方式_arrayFieldTypei.pDBText-Left = PreLeft+_iIntClearance;_arrayFieldTypei.pDBText-Width = _arrayFieldTypei.iWidth-2*_iIntClearance;_arrayFieldTypei.pDBText-Height= _arrayFieldTypei.pDBText-Font-Height;_arrayFieldTypei.pDBText-Top=pDetailRect-Top+(pDetailRect-Height+_arrayFieldTypei.pDBText-Height)/2;_arrayFieldTypei.pShapeData= new TQRShape(pQuickRep); /该数据右边的分隔竖条_arrayFieldTypei.pShapeData-Parent= DetailBand1;_arrayFieldTypei.pShapeData-Left = PreLeft+_arrayFieldTypei.iWidth;_arrayFieldTypei.pShapeData-Top = 0;_arrayFieldTypei.pShapeData-Width= 1;if( i= pDBGrid-FieldCount-1) /最后一列的分隔竖条宽度为0_arrayFieldTypei.pShapeData-Width= 0;_arrayFieldTypei.pShapeData-Height=_arrayFieldTypei.pShapeData-Parent-Height;PreLeft= _arrayFieldTypei.pShapeTitle-Left; /下列字段的左位置TGridPrint:TGridPrint() /析构函数 delete pTitleLabel; delete pHeadRect; delete pDetailRect;for(int i=0; iFieldCount;i+) delete _arrayFieldTypei.pDBText; delete _arrayFieldTypei.pShapeData;delete _arrayFieldTypei.pLabel; delete _arrayFieldTypei.pShapeTitle; void TGridPrint:DoPreview() /打印预览函数 pQuickRep-Preview(); 2.2 定制报表类的公共接口提供有4个函数S