生成动态报表文件【增强版V3.0】.docx

*生成动态报表文件【增强版V3.0】

*程序名：DBFTOFRX

*功能：根据当前工作区的表生成报表文件

*1、打印字段可自由选择；

*2、可自定义报表打印方向；

*3、可自定义左边距；

*4、可自定义页脚高度；

*5、可自定义页脚

*调用方法：DBFTOFRX([报表文件名],[报表标题],[打印方向],[左页脚],[右页脚])

*使用举例1：

*USEE:\kb201809\jsrkb201809.dbf

*dbfTofrx(教师任课表,陈集小学2018年秋学期各班教师任课表,1)

*REPORTFORMe:\kb201809\教师任课表Preview预览

*或REPORTFORMe:\kb201809\教师任课表打印

*使用举例2：

*USE陈集小学教师

*或SELECT*from陈集小学教师WHERE政治面貌=党员intoCURSORtemp

*或SELECT姓名,性别,出生年月,学历,工作时间from陈集小学教师intocursortemp

*dbfToFrx([jsxx2024],[陈集小学教师信息一览表],0,[制表人：XXX],[制表单位：陈集小学])

*reportformjsxx2024preview

【VFP9.0代码】

PARAMETERS报表文件名,报表标题,L_打印方向,L_左页脚,L_右页脚

报表文件名不带扩展名，可缺省(缺省文件名为TMP_REPORT)，报表标题可缺省

PRIVATEALLLIKEL_CA*

WAIT正在生成报表WINDOWNOWAITNOCLEAR

IFTYPE(M.报表文件名)=LOREMPTY(M.报表文件名)

报表文件名=TMP_REPORT

ENDIF

*定义页脚

LeftFooter=制表日期：+STR(year(DATE()),4)+年+STR(month(DATE()),2)+月+STR(day(DATE()),2)+日

*RightFooter=共+ALLTRIM(STR(_PAGETOTAL))+页第+ALLTRIM(STR(_PAGENO))+页

*RightFooter=第+ALLTRIM(STR(_PAGENO))+页

RightFooter=

IFEMPTY(L_左页脚)

L_左页脚=LeftFooter

ELSE

LeftFooter=L_左页脚

ENDIF

IFEMPTY(L_右页脚)

L_右页脚=

ELSE

RightFooter=L_右页脚

ENDIF

IFEMPTY(L_打印方向)

L_打印方向=0

ENDIF

L_字符宽度9=625FONTSIZE=9

L_字符宽度9粗=729.167FONTSIZE=9,粗体

L_字符宽度16=1250FONTSIZE=16(半角字符宽度为1250，半个全角字符宽度为1145.833，故由此算得标题居中位置并不准确)

L_域控件宽度修正9=370由L_字符宽度9算得域控件宽度需加上此数值，才能完整输出

L_带区指示条高度=2083

L_标题区高度=IIF(TYPE(M.报表标题)=LOREMPTY(报表标题),0,5000)

L_页标头区高度=2400

L_细节区高度=2400

L_页脚区高度=2500

L_左边距=5000

L_右边距=0

L_页标头区VPOS=L_标题区高度+IIF(L_标题区高度=0,0,L_带区指示条高度)

L_细节区VPOS=L_标题区高度+L_页标头区高度+IIF(L_标题区高度=0,1,2)*L_带区指示条高度

L_TMP=SYS(2015)

L_CA=SELECT()

COPYSTRUCTURETO(L_TMP)EXTE

CREATECURSORTMP(TMPFIELDC(10))

CREATEREPORT(报表文件名)FROMTMP

USE报表文件名+.FRXEXCL

IFL_标题区高度#0

*添加标题区

INSERTBLANK

REPLACEPLATFORMWITHWINDOWS,;

OBJTYPEWITH9,;

HEIGHTWITHL_标题区高度

ENDIF

*设置左边距

LOCATEFOROBJTYPE=1

REPLACEHPOSWIT