采用Word更好地输出VFP报表

最新推荐文章于 2026-06-22 18:20:54 发布

转载最新推荐文章于 2026-06-22 18:20:54 发布 · 49 阅读

本内容遵循CC 4.0 BY-SA版权协议

原文链接：https://mp.weixin.qq.com/s?__biz=MzU1NDE4MjcxNw==&mid=2247491377&idx=1&sn=e036c5048a2323fdfde918d860e717cb&chksm=fa2bf10b0afcba0b519038b74acd4d6a6316655f707cd1eed2ced776332c6d51c62048d9001f&scene=126&sessionid=0

GEO检测

标签

#word #c# #开发语言

一、概述

无论是西文还是中文Visual FoxPro 3.0(以下简称VFP),其报表输出都有一个严重缺陷,就是当数据库的某一

字段具有溢出延伸属性(就是当字段的内容长于指定的输出宽度时,自动进行换行的属性)时,在换行处容易出

现半个汉字,使输出的报表内容出现"乱码"。

另外,VFP与其他数据库管理系统一样,报表输出模块也存在以下严重不足:

①报表输出的宽度和长度不能由用户改变,无法实现页面的任意变化;

②由于数据库中数据的长度不一,必然会导致输出报表中各栏位的宽度不适,系统无法根据数据库的实际内容

对输出的各栏位的宽度进行随机调整,报表的整体效果差;

③报表一旦输出,用户不能对报表格式进行编辑;

④不宜实现对某些特定栏位的单独输出或组合输出。

为此,笔者利用VFP的OLE自动化技术,通过Microsoft Word 6.0 提供的Word.Basic对象,将数据库的记录输出

成Word文档。

二、在VFP中自动生成Word文档的基本原理和方法

1.用Word.Basic生成数据Word文档的基本原理我们知道,Windows的OLE技术是在两个具有OLE能力的应用程序

之间建立了一种信息共享机制。能够提供OLE服务的应用程序叫服务器,请求OLE服务的应用程序叫客户机。由

于VFP不能为其他具有OLE能力的应用程序提供可用的对象,不能作为OLE服务器。为了在VFP中使用OLE自动化

技术来解决报表输出存在的问题,必须在Windows环境下选择一个能作为OLE服务器的应用程序。Microsoft

Word 6.0不仅能够向VFP提供OLE对象类型Word.Basic,而且能够生成复杂的表格,具有较强的编辑功能,是生成

数据库报表的理想工具。

VFP和Microsoft Word 6.0之间的信息共享机制是通过在VFP中创建由MS Word 6.0提供可用OLE对象

Word.Basic实现的。因此,要使用OLE自动化技术,必须首先使用VFP的OLE对象创建函数CREATEOBJECT() 创建

MS Word 6.0的OLE对象,即: oleWord=CREATEOBJECT("Word.Basic")

2.用Word.Basic生成数据Word文档的基本方法在用CREATEOBJECT()函数创建OLE对象之后,我们就可以利用面

向对象的程序设计方法,调用Word.Basic的具体命令,将数据库的具体内容生成到Word文档。

用Word.Basic生成数据库的Word文档,常用的方法有两种:第一种方法是用Word.Basic的一系列命令生成数据

库的整个Word文档;另一种方法是利用Word.Basic打开预制的基本文档框架,再用Word.Basic的编辑命令来生

成数据库的Word文档。这两种方法各有优点,有时要将它们结合起来使用。第一种方法主要用于对数据库报表

没有任何要求的全自动生成,由于采用全自动生成技术,尽管也能实现输出页面的任意变化和报表中各栏位宽

度的自动调整等功能,但不能直接根据具体的数据库输出具有相应特色的标题。第二种方法在标题及输出的格

式上具有更大的灵活性。通常情况下,先用第一种方法输出某些数据库的一般文档,再利用W ord将其修改成特

殊报表输出的基本文档框架,供第二种方法使用。

下面结合应用介绍第二种方法的具体实现和主要算法。

(1) 定制基本的Word文档框架

在基本的文档框架中可以包含Word文档的任何内容,比如在标题的两边各插入一些图片等等。但是为了实现对

数据库字段的定位输出,该文档框架必须包含一个表,该表的表头可以设计成任何复杂的形式, 如下面的文档

框架:

表1 不良地质:瓦斯信息

为了能使Word.Basic将数据库中要输出的字段正确地输出到基本框架中,在基本框架中需要增加位置标记。我

们可以用在Word基本文档框架中添加书签的方法来指导Word.Basic在基本框架中的正确定位,这些书签分别添

加在基本文档框架中仅有的一行表体的各栏位处。由于Word.Basic在进行后续记录的输出时是按第一表体行

中输出字段的顺序进行输出的,这样就可以保证后续各行输出的正确性了。为了方便起见可将书签名定义成与

字段名同名。

在实际的数据输出过程中,由于我们允许输出页面任意变化,并允许对输出的各栏位宽度进行优化调整,这样就

很难保证各页的行数相同。为了使输出页面的标题能够正确地打印在每一输出页面的首部,将该表的表头设置

成"标题允许"(先选定要设置成标题允许的一行或多行,再用"表格"菜单中的"标题"命令进行设置)。为了使输

出页面的高度一致,可用"表格"菜单中"单元格高度和宽度"对话框选择"允许跨页断行"选项,当然也可用

Word.Basic的TableR owHeight命令对"允许跨页断行"进行设置。

另外,在定义基本文档框架时,不必考虑总的表格宽度应放大至何种尺寸以及各栏位之间的比例关系,仅仅需要

将各栏位的宽度定义成用户所想要的最小宽度即可,其具体目的在下面的数据库输出的主要算法中会作解释。

(2) 生成Word文档的主要算法

在用Word.Basic将数据库的记录输出成Word文档时,需要编程调整输出报表的页面和各栏位的宽度,下面介绍

编程中使用的调整策略和主要算法。

由于数据库中数据的随机性,特别是字符型和备注型数据长度的不定性,表中各栏位宽度的比例关系很难预先

确定,需要在整个报表生成之后进行调整。调整的基本策略是先将各记录中要输出的字段的具体内容输出到表

格中,并在输出过程中记下每一栏位在各行中的最大宽度(字符数),用它作为调整各栏位宽度比例关系的依

据。如果完全按照此依据进行调整,表体部分一定能编排得比较匀称,但表头部分的编排有可能发生变化(如上

面的"采取措施"表头,由于数据库中该字段对应的内容可能很少,在进行栏位宽度调整时,有可能使表头文字变

成多行排列),报表的整体效果仍然较差。所以有必要预先知道各栏位的最小宽度,以防止在调整各栏位宽度

时表头多行排列。为此,约定原始文档框架中各栏位的宽度即为最小宽度,且栏位宽度调整仅对字符型和备注

型字段进行。

基于上述调整策略,我们介绍相应的算法。为了便于介绍,我们假设通过页面和页边距的设置得出需要将表格

的宽度调宽至nWidth英寸,并定义如下数据类型:

LOCAL aFieldName[nOutColumn,6]

其中:

nOutColumn为要输出字段个数,也是表格的最大列数;

aFiledName[nOutColumn,1]为书签名;

aFiledName[nOutColumn,2]为该书签所在栏位对应字段的字段类型;

aFiledName[nOutColumn,3]为该书签所在栏位对应字段的字段宽度;

aFiledName[nOutColumn,4]为该书签所在栏位对应字段的小数位数;

aFiledName[nOutColumn,5]为该书签所在栏位最小TWIP数;(1英寸 =1440 TWIP)

aFiledName[nOutColumn,6]为该书签所在栏位在各行中的最大字符个数。

这样在计算出各栏位的最大字符个数和各栏位的最小TWIP数后,就可以计算出需要调整栏位的总字符数和可供

使用的宽度总TWIP数。

假设可供使用的宽度总数为j(TWIP),需要调整栏位的总字符数为(字符),则某要调整栏位的宽度应为:

j/k*aFieldName[i,6] 式中i为该调整栏在表中的列号。但是该宽度有可能小于该栏位的最小宽度,这样该栏

位就不应调整,需要将该栏的类型a FieldName[i,2]修改为"U"(非C且非M即可), 而将该栏位列入非调整的行

列,同时也要相应修改j和k,再从第一列逐一检查,查看是否仍有这样的列,如果有需要再重复上述步骤。直到

不再有上述类型的列为止。最后再用TableColumnWidth命令对剩下需要调整的栏位进行调整即可。

三、生成Word文档的程序实现根据上面的调整策略和算法,我们给出用VFP编制的从VFP数据库输出Word文档

的通用程序。此程序不依赖具体的数据库结构,也不依赖于具体的报表输出格式,可用于任何VFP数据库的Word

文档输出。

LOCAL nOldrecno,oleWord,i,j,k,nOutColumn,cString    LOCAL aFieldList[1]    USE b1    IF EOF()  &&无输出结果则直接返回        RETURN    ENDIF    =AFIELDS(aFieldList)  &&将当前数据库的字段信息存入数组中    nOldrecno=RECNO()    *下面首先生成Word.Basic对象,再用Word.Basic的打开文档命令打开基本文档框架    oleWord=CREATEOBJECT("Word.Basic")    oleWord.FileOpen("c:\mf\data\word.doc")    *下面是从Word文档的首部向下移动插入点指针,直到移动到表格中为止。    *这样做的原因是,基本文档框架中在表格的上面可以有附加内容。    DO WHILE oleWord.SelInfo(12)#-1       oleWord.LineDown    ENDDO    *下面是检查书签数与表格的最大列数是否相同    nOutColumn=oleWord.CountBookMarks()    IF nOutColumn#oleWord.SelInfo(18)       oleWord.AppClose("Microsoft Word")       =MESSAGEBOX("书签与表格的列数不符",16,"提示信息")       RETURN    ENDIF    *下面是定义列信息数组,并且填写该数组的前4列内容    LOCAL aFieldName[nOutColumn,6]    *-- aFieldName列的意义:1书签名,2字段类型,3字段宽度,4,小数位数,    *--  5原始表中各列宽度的最小TWIP数    *--  6在具体的填写过程中该书签所在列的所有行中的字符的最大个数    FOR i=1 to nOutColumn       aFieldName[i,1]=oleWord.BookMarkName(i)       FOR j = 1 TO FCOUNT()+1         IF j=FCOUNT()+1             oleWord.AppClose("Microsoft Word")             =MESSAGEBOX("标签名:"+aFieldName[i,1];                                  +"不是数据库的字段名",16,"                  提示信息")             RETURN          ENDIF             IF UPPER(aFieldName[i,1])==UPPER(ALLT(aFieldLis          t[j,1]))             aFieldName[i,2]=aFieldList[j,2]  &&类型             aFieldName[i,3]=aFieldList[j,3]  &&宽度             aFieldName[i,4]=aFieldList[j,4]  &&小数位             EXIT          ENDIF      ENDFOR    ENDFOR    *将插入点移到表格最底行的最右端    DO WHILE oleWord.SelInfo(12)=-1       oleWord.LineDown    ENDDO  &&按下箭头向下移出表格    DO WHILE oleWord.SelInfo(12)#-1       oleWord.CharLeft    ENDDO  &&按左箭头移到表格最后一列的末尾处    IF oleWord.SelInfo(16)#oleWord.SelInfo(18)+1       oleWord.AppClose("Microsoft Word")       =MESSAGEBOX("未能移到表格最后列的尾部",16,"提示信息")       RETURN    ENDIF    *--下面计算原始表格中各列的宽度,即列的最小宽度(以TWIP为单位)    j=oleWord.SelInfo(5)    FOR i=nOutColumn TO 1 STEP -1       oleWord.PrevCell       k=oleWord.SelInfo(5)       aFieldName[i,5]=j-k       aFieldName[i,6]=0       j=k    ENDFOR    IF oleWord.SelInfo(16)#1       oleWord.AppClose("Microsoft Word")       =MESSAGEBOX("最后不是移到表格列的首列",16,"提示信息")       RETURN    ENDIF    *各列的最小宽度计算完毕    *下面表格填写具体内容,    *并且在填写具体内容时将各列的最大字符数记录到aFieldName[       i,6]中    LOCATE    oleWord.EditGoto((aFieldName[1,1]))    oleWord.PrevCell()    DO WHILE !EOF()       FOR i=1 TO nOutColumn          DO CASE             CASE aFieldName[i,2]=="N"               cString=STR(&aFieldName[i,1],aFieldName[i,3],              aFieldName[i,4])             CASE aFieldName[i,2]=="I"               cString=ALLT(STR(&aFieldName[i,1],10,0]))             CASE aFieldName[i,2]=="C" OR aFieldName[i,2]=="M"               cString=TRIM(&aFieldName[i,1])               IF LEN(cString)>aFieldName[i,6]                 aFieldName[i,6]=LEN(cString)                  ENDIF            OTHERWISE                cString="暂不处理类型"          ENDCASE          oleWord.NextCell()          oleWord.Insert((cString))  &&字符型变量必须外加()       ENDFOR       SKIP    ENDDO    *--表格内容填写完毕    *下面根据填写的具体内容重新调整表格某些列的宽度    *(在下面的计算过程中单位为TWIP)    j=nWidth*1440  &&nWidth为版心宽度是一全局变量,单位为英寸                      &&1英寸=1440TWIP    k=0    FOR i=1 TO nOutColumn       IF aFieldName[i,2]#"C" AND aFieldName[i,2]#"M"         j=j-aFieldName[i,5]           &&剩余可用宽度       ELSE         k=k+aFieldName[i,6]           &&需要调整宽度的最大字符数之和       ENDIF    ENDFOR  &&减去禁止调列的宽度    FOR i=1 TO nOutColumn      IF aFieldName[i,2]="C" OR aFieldName[i,2]="M"    *如果要调整的宽度小于或等于最小宽度,则将其列入非调整之列        IF j/k*aFieldName[i,6] <= aFieldName[i,5]             aFieldName[i,2]="U"             j=j-aFieldName[i,5]             k=k-aFieldName[i,6]             i=1  &&从头循环             LOOP        ENDIF      ENDIF    ENDFOR    FOR i=1 TO nOutColumn      IF aFieldName[i,2]="C" OR aFieldName[i,2]="M"          oleWord.EditGoto((aFieldName[i,1]))          oleWord.TableSelectColumn          oleWord.TableColumnWidth(j/k*aFieldName[i,6]/20,2,0,0,0,0)    *1磅=20TWIP,TableColumn()的缺省单位为磅      ENDIF    ENDFOR    *宽度调整完毕    oleWord.FileSaveAs("c:\mf\data\word2.doc")    *oleWord.FilePrint(0,0,0,"","","",0,1,"",0,0,0,"")    oleWord.AppClose("Microsoft Word")    WAIT "卸载Word BAsic" WINDOW NOWAIT    WAIT CLEAR    RETURN

在将数据库内容生成Word文档的最终结果一种方法是以文档的形

式保存下来,另一方法是不仅要把文档保存下来,还要进行打印,此时

需要注意的一点是:不能采用后台打印,将上述程序的中*olwWord.Fil

ePrint(0,0,0,"","","",0,1,"",0,0,0,"")前面的星号"*"去掉即可

。

----------------------------------------------