-
vfp教程之Visual Foxpro生成任意打印字段报表的实现
---- 存在的问题
---- 用VFP生面的执行程序后,对于用户所需的某一数据库的任意字段组合报表,就显得不是那样运用自如。因为,一方面软件开发时,无法考虑到日后用户所需报表的所有格式。另一方面,由于所设计好的报表格式文件已编译成可执行文件,即使修改了.FRX和.FRT文件结构内容,也需在开发环境下重新编译,对用户来讲是不实现的。例如需一份员工名单及一个空栏位,进行签名或登记某一证件号码的问题就比较难解决。
---- 解决方案
---- 运用VFP与Excel 的交换数据及在VFP中全面控制Excel的操作(即自动服务器),就可以很好的解决这一问题。关于如何控制Excel,一方面可以通过Excel的帮助文件的VBA语法,另一方面也有相当多的文章关于控制Excel的语法。值得注意的是:1、为提高效率,所有有关计算、小计、合计最好在VFP中进行,并写在相应的记录内;2、由于是两个软件,如果在有大量数据逐一插入Excel单元格时,显得速度较慢,所以如果数据量较大,应直接用VFP的数据表导出为Excel格式,再由VFP在后台控制Excel打开,并指定的Excel格式文件进行修改文档标题、列的名称、网格线型,以及根据纸张大小计算各列宽和调整字体大小。
---- 实现办法
---- 利用SQL结构化语言的Select生成一个数据表
---- 在Select字段时,可以利用一个表单Form1加入两个列表框,一个列表框列出所有数据表的字段,另一个为空,利用鼠标双击或拖拉至空的列表框里,为选定一字段(此时第一个含有所有字段的列表框中,将不再显示被拖拉走的字段,而在另一列表中显示),并生成相应的Select查询程序段。
---- 在本实例中为:form1中含有一个list1和edit1和两个按钮
Form1.ini
public a,b,c,d,f,g
a="SELECT "
b=""
c=" FROM bn INTO CURSOR myquery"
d=""
f=0
g=0
list1.dblclick
if len(alltrim(b))=0
b=b+thisform.list1.value
else
b=b+","+thisform.list1.value
endif
d=a+b+c
thisform.edit1.refresh
for mm=1 to thisform.list1.listcount
if thisform.list1.selected(mm)
thisform.list1.removeitem(mm)
endif
endfor
command1.click ** 执行所生成的select语句
SELECT &B FROM BN INTO CURSOR MYQUERY
sele myquery
command2.click** 调用excel
my=createobject("excel.application")
my.visible=.t. **如果在交付用户时可以将其设置成 .F.
my.workbooks.add
select myquery
f=fcount()
g=reccount()
goto top
for l=1 to g
for i=1 to f
fieldname=field(i)
** 对于要生成中文的列位标题可以用
一英文字段名称与中文名称对应的参数库来解决
my.activeworkbook.sheets(1).cells(l,i).value=myquery.&fieldname
endfor
skip
endfor
** 如果要增加一空列可以用
my.activesheet.columns(f+1).insert语法
** 设置页眉 my.activesheet.pagesetup.
centerheader (centerfooter)=” xxx”
---- 其它方面的控制可以按上述提到的方法参考
---- 用VFP生面的执行程序后,对于用户所需的某一数据库的任意字段组合报表,就显得不是那样运用自如。因为,一方面软件开发时,无法考虑到日后用户所需报表的所有格式。另一方面,由于所设计好的报表格式文件已编译成可执行文件,即使修改了.FRX和.FRT文件结构内容,也需在开发环境下重新编译,对用户来讲是不实现的。例如需一份员工名单及一个空栏位,进行签名或登记某一证件号码的问题就比较难解决。
---- 解决方案
---- 运用VFP与Excel 的交换数据及在VFP中全面控制Excel的操作(即自动服务器),就可以很好的解决这一问题。关于如何控制Excel,一方面可以通过Excel的帮助文件的VBA语法,另一方面也有相当多的文章关于控制Excel的语法。值得注意的是:1、为提高效率,所有有关计算、小计、合计最好在VFP中进行,并写在相应的记录内;2、由于是两个软件,如果在有大量数据逐一插入Excel单元格时,显得速度较慢,所以如果数据量较大,应直接用VFP的数据表导出为Excel格式,再由VFP在后台控制Excel打开,并指定的Excel格式文件进行修改文档标题、列的名称、网格线型,以及根据纸张大小计算各列宽和调整字体大小。
---- 实现办法
---- 利用SQL结构化语言的Select生成一个数据表
---- 在Select字段时,可以利用一个表单Form1加入两个列表框,一个列表框列出所有数据表的字段,另一个为空,利用鼠标双击或拖拉至空的列表框里,为选定一字段(此时第一个含有所有字段的列表框中,将不再显示被拖拉走的字段,而在另一列表中显示),并生成相应的Select查询程序段。
---- 在本实例中为:form1中含有一个list1和edit1和两个按钮
Form1.ini
public a,b,c,d,f,g
a="SELECT "
b=""
c=" FROM bn INTO CURSOR myquery"
d=""
f=0
g=0
list1.dblclick
if len(alltrim(b))=0
b=b+thisform.list1.value
else
b=b+","+thisform.list1.value
endif
d=a+b+c
thisform.edit1.refresh
for mm=1 to thisform.list1.listcount
if thisform.list1.selected(mm)
thisform.list1.removeitem(mm)
endif
endfor
command1.click ** 执行所生成的select语句
SELECT &B FROM BN INTO CURSOR MYQUERY
sele myquery
command2.click** 调用excel
my=createobject("excel.application")
my.visible=.t. **如果在交付用户时可以将其设置成 .F.
my.workbooks.add
select myquery
f=fcount()
g=reccount()
goto top
for l=1 to g
for i=1 to f
fieldname=field(i)
** 对于要生成中文的列位标题可以用
一英文字段名称与中文名称对应的参数库来解决
my.activeworkbook.sheets(1).cells(l,i).value=myquery.&fieldname
endfor
skip
endfor
** 如果要增加一空列可以用
my.activesheet.columns(f+1).insert语法
** 设置页眉 my.activesheet.pagesetup.
centerheader (centerfooter)=” xxx”
---- 其它方面的控制可以按上述提到的方法参考
最新更新
显示/隐藏Excel网格线
用NPOI操作EXCEL--锁定列
组合行、列
用NPOI操作EXCEL--设置密码
用NPOI操作EXCEL--调整表单显示比例
打印相关设置
用NPOI操作EXCEL--插入图片
用NPOI操作EXCEL--画Grid
用NPOI操作EXCEL--画圆形
用NPOI操作EXCEL--画矩形
MySql索引原理与使用大全
Mysql命令大全(完整版)
Mysql常用命令行大全
mysql 索引类型以及创建
mysql命令详解
mysql的下载和命令行简单操作
mysql常用管理命令
MySQL命令大全
mysql命令行登录容易出现的错误
解决mysql的cmd命令错误及2003连接错误
数据类型之对象
数据类型之布尔型、整型、浮点型和字符
php教程之数据类型之数组
php教程之PHP 常量
php教程之变量
php教程之语法
PHP简介与安装
phpMyAdmin配置安装全攻略
PHP是什么
win2003 iis整合php后 环境变量无法读取到