用VC++实现通用的报表控件

摘 要: 常用开发工具的报表设计工具操作繁琐，专业性强，难满足用户自己随时定制
报表格式的要求。本文基于Word模板，用VC建立一个通用的ActiveX报表控件，用以补充开
发工具中报表处理功能的不足。

关键词：报表控件,OLE自动化,定制报表,ActiveX控件

1 引言
信息管理系统的常用开发工具（如VFP、DELPHI、POWERBULID等）的报表设计工具操作
繁琐，专业性强，当用户对报表的需求有所变化时，需重新修该应用程序。特别对一些突
发性的临时报表的需求，更是无能为力。

为了制作复杂报表及赋予用户定制报表的能力，就需要对常用的开发工具扩充以提供一
种灵活的报表设计工具，当前ActiveX控件可用于大多数开发环境，是扩充开发工具报表
开发能力的首选。本文介绍一种基于WORD模板的报表ActiveX控件,该控件基于报表模板生
成WORD文档形式的报表，以供用户或应用程序打印或预览。用户可通过修改报表模板以改
变报表格式。

本文介绍本控件所实现三类报表中第一类报表（即数据源中每行数据生成一个报表）
的实现。报表的数据源采用EXCEL，当然为了扩充，我把对数据源的访问封装在两个函数
上即取属性名函数及取数据源特定行的函数内，这样能通过ADO方便的转换到其他数据源。

2 报表模板的设计
2．1 根据要求在WORD中设计好报表的格式 。

2．2 在设计好报表中，添加数据项的描述。

数据项的描述定义采用WORD标签，即在报表中需要输出数据源中的数据的位置插入标签。
标签名即数据源的属性名(对EXCEL第一行上各列单元格的值即为属性名)。

3 控件的实现
　 在VC++ 6．0下创建Activex控件
3.1建立工程
MFC Activex ControlWizard新建一个名为report的工程，在向导过程中选取
invisible at runtime 的特征。打开ClassWizard ---Add Class---From a type library
选择本机的Word9.olb（本机装Word2000,Word98中为Word8.olb 具体根据本机word的
版本）。选择_Application （类名改为_Applicationword），_Document，Documents ，
Bookmark，Bookmarks，Cell，Cells，Column，Columns ，Range（类名改成Rangeword），
Row，Rows，Selection，Table，Tables，Window，Characters，Paragraph，Paragraph，
View。加入新类。用同样方法选择本机的EXCEL9.OLB，选择_Application，_Workbook，
Workbooks ，_Worksheet，Sheets，Range加入新类。
在ReportCtl.h中加入
#include "excel9.h"
#include<comdef.h>
#include "msword9.h"
3.2增加ActiveX控件属性：
1．文档模板文件名：ReportTemplateFileName类型Cstring 内部名 m_reportTemplateFileName
2．数据源名： DateSourceName 类型 BSTR 内部名 m_DateSourceName;
3． 添加报表种类属性
（1）定义枚举类型：在CreportCtrl类的定义中加入
enum ReportType {OneRecordOneReport=1,OneGroupRecordOneReport, OneTableOneReport};
//每条记录一张报表，每组记录一张报表，所有记录一张报表
（2）添加报表种类属性 ReportType 类型 short 内部名 m_ReportType
4．添加报表文件名属性ReportFileName 类型 Cstring 内部名称 m_reportFileName
5．添加报表特征属性
（1）定义枚举类型enum ReportCharacter
{EveryReportPageAlone=0x0001,VerticalAjacentCellUnite=0x0002，Group=0x0004，
EveryPageHasHeadTail=0x0008 ，EveryPageHasTailNoHead=0x0010 };
//对第一类报表仅第一个用到，即一页能不能包含多张报表
（2）定义报表特征属性 ReportCharacter 类型 short 内部名称 m_ReportCharact
6．添加文件路径属性 FilePath 类型 Cstring 内部名m_filePath
7．添加数据源主属性属性 DataSourceKey 类 Cstring 内部名m_DateSourceName
多个主属性以，分开。
3.3 添加报表控件的报表制作方法及相关的私有函数及数据
3.3.1报表制作方法MakeReport
short CReportCtrl::MakeReport()
{
/*检查 数据源文件、报表文件、报表模板文件文件名的合法性及数据源文件、报表
模板文件及文件路径是否存在------从略*/
int pronum=GetDataSourceProperty(DataSourceProperty); /*启动excel服务，
读数据源的属性名到数组DataSourceProperty 返回 –1表示 启动EXCEL服务失败*/
if(pronum==-1){m_ErrorinformationCode=7; EndExcel();return 7;}
/* m_ErrorinformationCode是类的私有成员，保存制表后的错误代码 错误信息
在类的一个常量字符串数组中-----从略*/
if(!DataSourceKeyIsExist()){m_ErrorinformationCode=6; return 6;}
//检查关键字属性存在否
switch(m_ReportType) //报表类型
{ case OneRecordOneReport:if(OneRecordOneReportMakeReport()==-1)
{m_ErrorinformationCode=11; return 11; };
break; }
//对DataSourceProperty 等字符串数组删除数组内的所有串
/对pDataSourcePropertyKeySN等指针变量释放空间-----从略
EndExcel(); //结束Excel服务
return 0;
}
3.3.2添加私有数据
_Application excel;Workbooks books;_Workbook book;Sheets sheets;
_Worksheet worksheet;
CstringArray DataSourceProperty ，DataSourcePropertyKey ;
/*存放数据源的属性名，数据源的关键字 */
int * pDataSourcePropertyKeySN;//关键字属性对应的excel表的列数从一开始
3.3.3 添加的CreportCtr类的部分私有函数
1．从串中分解出子串（以，为分界）同时去除空格,返回子串数
int ExtractSubtring(Cstring &str,CstringArray &strarr)//实现从略
2．取excel指定行 返回false表示全空 n 表示第几行 SpaceEndOrAppointCol=0
表示该行从左到右查找，如碰到属性为空则表示该行结束 否则SpaceEndOrAppointCol
表示该行的列数*/
bool CReportCtrl::GetExcelRowToArray(int n, CStringArray &prostrarr,
int SpaceEndOrAppointCol)
{if(SpaceEndOrAppointCol<0) return false;
   Range range,cell;range=worksheet.GetRows ();
   range=range.GetItem (_variant_t((long)n),vtMissing).pdispVal ;
   // //取当前行
   range=range.GetCells (); //取当前行所有的单元格
   int i=1;
   while(1)
   { cell=range.GetItem (_variant_t((long)i),vtMissing).pdispVal ;
      //取出该行的第i列的单元格
      _variant_t f= cell.GetValue ();
      f.ChangeType( VT_BSTR ,NULL); //把取出数据如short转换成BSTR类型  
      BSTR bstr=f.bstrVal ;CString text(bstr); //把BSTR转换成CString
      ReMoveChar (text,' '); //删除text串中的空格
      if(SpaceEndOrAppointCol==0)
      {if(!text.GetLength ()) break;} else if(i＞SpaceEndOrAppointCol) break;
         prostrarr.Add (text); i++;}
         if(range.m_lpDispatch !=NULL)range.ReleaseDispatch ();
            int j; i=prostrarr.GetSize ();if(i==0) return false;
         for(j=0;j<i;j++)
         if(!prostrarr[j].IsEmpty ()) return true;
      return false;
}
3．取数据源的属性,返回属性个数 如返回-1则是启动excel失败或其他excel问题
int GetDataSourceProperty(CstringArray &prostrarr)
int CReportCtrl::GetDataSourceProperty(CStringArray &prostrarr)
{ if(excel.m_lpDispatch ==NULL)
{ if(!excel.CreateDispatch ("Excel.Application",NULL)) return -1;
   books=excel.GetWorkbooks (); if(books.m_lpDispatch ==NULL) return -1;
   books.Open (m_filePath?m_filePath+'//'+m_DateSourceName:m_DateSourceName,vtMissing,
   vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
   vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);
   book=books.GetItem (_variant_t((long)1)); if(book.m_lpDispatch ==NULL) return-1;
   sheets=book.GetSheets ();if(sheets.m_lpDispatch ==NULL) return-1;
   worksheet=sheets.GetItem (_variant_t((long)1));
   if(worksheet.m_lpDispatch ==NULL) return-1;}
      GetExcelRowToArray(1,prostrarr);
   return prostrarr.GetSize ();}

4．判断一个串集合是否属于另一个串集合 如one为空返回false 用p指向的数组返回one串中的每个元素在another串的位置
bool CReportCtrl::IsOneStrBelongAnotherStr(CStringArray &one, CStringArray &another,int *p ) //实现从略

5．判断数据源关键属性是否存在
bool CReportCtrl::DataSourceKeyIsExist()
{ bool result;
   if(!m_dataSourceKey.GetLength ()) return false;
   int grouppropertynum=ExtractSubtring(m_dataSourceKey,DataSourcePropertyKey);
   pDataSourcePropertyKeySN=new int[ DataSourcePropertyKey.GetSize ()];
   result=IsOneStrBelongAnotherStr(DataSourcePropertyKey,
   DataSourceProperty,
   pDataSourcePropertyKeySN);
   if(result==false) { delete pDataSourcePropertyKeySN;
      pDataSourcePropertyKeySN=NULL;}
   return result;
}
6．在字符数组中查找字符串
int CReportCtrl:: FindStringInStringArray (CStringArray &x, CString &str) //实现从略
7． 判断数组在制定位置是否为空，位置由共n个，由p指针所指
bool IsStringArrSpeciPositionNoEmpty( CStringArray &array , int *p,int n) //实现从略
8．结束word服务
void CReportCtrl::EndWord()
{ word.Quit(&vtMissing,&vtMissing,&vtMissing) ;
  word.ReleaseDispatch ();
  //对CreportCtrl类中所有word类的对象调用ReleaseDispatch () --从略
}
9．结束excel服务 类同结束word服务
void CReportCtrl::EndExcel()
10．制第一类表 返回-1表示制表错
short CReportCtrl::OneRecordOneReportMakeReport()
{
   Rangeword range; int exceldatarownum=0; CStringArray excelrow;
   long count,i,j,colnum; //count 标签数量 colnum excel当前行
   long priorposition_end=0; //粘贴前的文件结尾
   _variant_t end; long pagenum,priorpagenum; //粘贴前后的页数
   short *point;//标签所在的列
   int validbookname=0;
   if(word.m_lpDispatch !=NULL) return -1;
   //*******************启动word服务
   if(!word.CreateDispatch ("Word.Application",NULL)) return -1;
   if(worddoc_ReportFile.m_lpDispatch ==NULL)
   {
      word.SetVisible (false); word.SetWindowState (1);
      worddocs=word.GetDocuments ();
      worddoc_ReportFile=worddocs.Add(&vtMissing,&vtMissing,&vtMissing,&vtMissing);
      _variant_t file=m_filePath+'//'+ m_reportTemplateFileName;
      worddoc_TemplateFile=worddocs.Open (&file,&vtMissing,&vtMissing,
      &vtMissing,&vtMissing, &vtMissing,&vtMissing,
      &vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing);
      //*************启动word服务
      //*************取出模板文件中的标签并确定该标签对应数据源的第几列
      bookmarks=worddoc_TemplateFile.GetBookmarks ();
      count=bookmarks.GetCount ();
      point =new short[count+1];
      for(i=1;i<=count;i++) //确定标签对应excel表的列数
      {
         bookmark=bookmarks.Item (&_variant_t((long)i));
         CString str=bookmark.GetName (); //word标签是不含空格的
         point[i]= FindStringInStringArray (DataSourceProperty,str);
         if(point[i]＞0) validbookname++; }
         //***********取出数据源中的每一行，生成一个报表
         colnum=2; //第二列开始放数据，第一列为属性名
         while(GetExcelRowToArray(colnum,excelrow,DataSourceProperty.GetSize ())&&
         IsStringArrSpeciPositionNoEmpty(excelrow,
         pDataSourcePropertyKeySN, DataSourcePropertyKey.GetSize ())
         ) //取出第colnum列，如关键属性非空即如该行有效
         { exceldatarownum++; i=1;
            while(i<=count) //count为标签的个数
               { bookmark=bookmarks.Item (&_variant_t((long)i));
                  range=bookmark.GetRange ();
                  int k=point[i];
                  if(k＞0) //如该标签有效即有对应的数据源列
                  range.SetText (excelrow[k]); //用colnum行的对应列的数据插入到标签位置
                  i++;
               }
         //************把生成的第colnum-1张报表拷贝到报表文件的文件尾
      range= worddoc_TemplateFile.GetContent ();
      range.Copy ();
      /*如报表特性不为一张报表单独成页，则判断把报表拷贝到报表文件的文件尾后，是否会造成该报表在报表文件中跨页，跨页则该页从另一页开始*/
      range=worddoc_ReportFile.GetContent(); end=(long) (range.GetEnd ()-1);
      priorposition_end=end; priorpagenum=(range.GetInformation (4)).lVal ;
      range=worddoc_ReportFile.Range (&end,&end);range.Paste ();
      switch(m_ReportCharacter&0x0001?1:2)
      {
         case 1: //每张报表单独成页
         range=worddoc_ReportFile.GetContent();
   end=(long) (range.GetEnd ()-1);
   range=worddoc_ReportFile.Range (&end,&end);
   range.InsertBreak (&_variant_t((long)7)); //插入分页符
   break;
   case 2: // 每张报表不单独成页，但如跨页则当前报表从另一页开始
   range=worddoc_ReportFile.GetContent();
   end=(long) (range.GetEnd ()-1);
   pagenum=range.GetInformation (4).lVal;
   if(pagenum!=priorpagenum)
   {range=worddoc_ReportFile.Range (&_variant_t((long)(priorposition_end)),&_variant_t((long)   (priorposition_end)));
   range.InsertBreak (&_variant_t((long)7)); } //如跨页则分页
   break;
   } //switch
   colnum++; excelrow.RemoveAll ();
    //取消对worddoc2的修改
   worddoc_TemplateFile.Undo (&_variant_t((long)validbookname)); } //while
   //如模板文件刚好满页则结果多一个空页（一个仅包含回车的段），所以计算页数，多的减一
   switch(m_ReportCharacter&0x0001?1:2)
   { case 2:
     range= worddoc_ReportFile.GetContent ();
     j=range.GetInformation (4).lVal;
   if(j＞exceldatarownum) //每张报表不单独成页 则最多一页每条记录
    {
      characters=worddoc_ReportFile.GetCharacters ();
      range=characters.Item (1);
      range.Delete (&_variant_t(long(1)),&_variant_t(long(1)));
    }
   case 1:
   range= worddoc_TemplateFile.GetContent ();
   i=range.GetInformation (4).lVal; //取得页数
   range= worddoc_ReportFile.GetContent ();
   j=range.GetInformation (4).lVal;
   if(j＞=i* exceldatarownum+1)
    {
       paragraphs=worddoc_ReportFile.GetParagraphs ();
       count=paragraphs.GetCount ();
       if(count＞0)paragraph=paragraphs.Item (count);
       range=paragraph.GetRange ();
       range.Delete (&_variant_t(long(1)),&_variant_t(long(1)));
     }
   break;
  }
window=word.GetActiveWindow ();view=window.GetView ();
view.SetShowBookmarks (FALSE); _variant_t filename= m_filePath+'//'+m_reportFileName;
worddoc_ReportFile.SaveAs(&filename,&vtMissing,&vtMissing,&vtMissing,&vtMissing,
&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing);
worddoc_TemplateFile.Close (&_variant_t((long)0),&vtMissing,&vtMissing);
worddoc_ReportFile.Close (&_variant_t((long)0),&vtMissing,&vtMissing);
EndWord(); }
return 0;
}
　

4 结束语
本控件是在遇到用户要求一些突发的临时报表的时，为解决此类问题开发的。用户所要求的临时报表是对上下级部门之间交换的EXCEL数据，根据不同的格式生成报表。由于篇幅的关系，类中很多私有函数就没有给出。