|
数据库报表程序是经常使用的，现在很多用户都使用报表设计器设计报表，且简单方便；但笔者在工作中遇到要对成百个数据库打印的情况，这些数据库除了字段名不相同外，其他结构信息基本相同，因此笔者就编制了如下的一个通用程序，供同行参考。
set talk off
hh1=printstatus()
set print on
do while .not.hh1
?"打印机未准备好，请准备好打印机"
hh1=printstatus()
enddo
set talk off
set device to print
clear
a1=getfile("dbf") &&打开打开文件对话框
use "&a1" &&打开指定的文件
n1=fcount() &&获取打开的库中的字段数
dimension a(n1) &&定义一个存放字段名的数组
dimension b(n1) &&定义一个存放字段宽度的数组
k=1
do while k<=n1
a(k)=field(k)
k=k+1
enddo &&将字段名赋给数组
w=1
do while w<=n1
b(w)=fsize(a(w)) &&获取字段的长度
if b(w)<6
b(w)=8
else
b(w)=b(w)+2
endif
w=w+1
enddo
do while not eof()
r1=1 &&显示表头的第一行
m=1
col1=1
do while m<=n1
if m=1
@r1,col1 say "┌"+replicate("-",b(m))
else
if m=n1
@r1,col1 say "┬"+replicate("-",b(m))+"┐"
else
@r1,col1 say "┬"+replicate("-",b(m))
endif
endif
col1=col1+b(m)
m=m+1
enddo
m=1 &&显示字段名行
col1=1
do while m<=n1
if m=1
@r1+1,col1 say "∣"+substr(a(m),1,6)+replicate(" ",(b(m)-len(a(m))))
else
if m=n1
@r1+1,col1 say "∣"+substr(a(m),1,6)+replicate(" ",(b(m)-len(substr(a(m),1,6))))+"∣"
else
@r1+1,col1 say "∣"+substr(a(m),1,6)+replicate(" ",(b(m)-len(substr(a(m),1,6))))
endif
endif
col1=col1+b(m)
m=m+1
enddo
m=1 &&由于字段多，一行不能完全显示整个行，因此分为两行显示字段名行
col1=1
do while m<=n1
if m=1
@r1+2,col1 say "∣"+substr(a(m),7)
else
if m=n1
@r1+2,col1 say "∣"+substr(a(m),7)+replicate(" ",(b(m)-len(substr(a(m),7))))+"∣"
else
@r1+2,col1 say "∣"+substr(a(m),7)
endif
endif
col1=col1+b(m)
m=m+1
enddo
m=1 &&显示字段名下面的一行表格线
col1=1
do while m<=n1
if m=1
@r1+3,col1 say "├"+replicate("-",b(m))
else
if m=n1
@r1+3,col1 say "┼"+replicate("-",b(m))+"┤"
else
@r1+3,col1 say "┼"+replicate("-",b(m))
endif
endif
col1=col1+b(m)
m=m+1
enddo
row1=r1+4
do while .not.eof() &&每页显示20个记录
m=1 &&显示各记录的值
col1=1
do while m<=n1
if type(a(m))="C"
if m=1
@row1,col1 say "∣"+&a(m)
else
if m=n1
@row1,col1 say "∣"+alltrim(&a(m))+replicate(" ",(b(m)-len(alltrim(&a(m)))))+"∣"
else
@row1,col1 say "∣"+&a(m)
endif
endif
else
if m=1
@row1,col1 say "∣"+str(&a(m))
else
if m=n1
@row1,col1 say "∣"+alltrim(str(&a(m)))+replicate(" ",(b(m)-len(alltrim(str(&a(m))))))+"∣"
else
@row1,col1 say "∣"+alltrim(str(&a(m)))
endif
endif
endif
col1=col1+b(m)
m=m+1
enddo
SKIP
if eof()
&&显示数据库结束的最后一行
m=1
col1=1
do while m<=n1
if m=1
@row1+1,col1 say "└"+replicate("-",b(m))
else
if m=n1
@row1+1,col1 say "┴"+replicate("-",b(m))+"┘"
else
@row1+1,col1 say "┴"+replicate("-",b(m))
endif
endif
col1=col1+b(m)
m=m+1
enddo
h=".f."
exit
else
if r1=20 &&显示每一页的最后一行
m=1
col1=1
do while m<=n1
if m=1
@row1+1,col1 say "└"+replicate("-",b(m))
else
if m=n1
@row1+1,col1 say "┴"+replicate("-",b(m))+"┘"
else
@row1+1,col1 say "┴"+replicate("-",b(m))
endif
endif
col1=col1+b(m)
m=m+1
enddo
r1=1
eject
exit
else
m=1 &&显示每个记录下面的一行表格线
col1=1
do while m<=n1
if m=1
@row1+1,col1 say "├"+replicate("-",b(m))
else
if m=n1
@row1+1,col1 say "┼"+replicate("-",b(m))+"┤"
else
@row1+1,col1 say "┼"+replicate("-",b(m))
endif
endif
col1=col1+b(m)
m=m+1
enddo
endif
ENDIF
row1=row1+2
r1=r1+1
enddo && 每页显示20个记录到此
enddo
set print off
set device to screen
set talk on
return
以上程序将一个数据库中的所有记录以行为单位打印出来，编制环境是Visual Foxpro 6.0，如果一个数据库字段比较少，希望一行打印二个以上的记录，稍作修改即可。需要提醒读者的是，由于考虑到篇幅，本程序只设计了包含数字型和字符型的数据库，对有其它类型的数据库，稍作修改就行了；如果用户希望一页的记录不是20，只需要修改if r1=20这句中r1的值。笔者已经编制了这类程序，可以向读者提供。
[系统软件]Visual Studio 2005 Express Beta Products 下载链… [系统软件]曝光Visual Foxpro 9.0 最新秘密
[系统软件]FOXPRO 系统指标 [系统软件]Visual FoxPro9.0中扩展报表系统功能
[系统软件]Visual FoxPro：我是旁观者 [系统软件]Visual Studio 2005 Express Editions Beta 2 下载…
[系统软件]ASP对FoxPro自由表(DBF文件)的操作 [系统软件]Boost库在XP+Visual C++.net中的安装
[系统软件]Visual Studio 2005 Express Edition 正式版下载地… [常用软件]Visual FoxPro 6.0与大型数据库的无数据源连接
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
