WEB开发网
开发学院数据库MSSQL Server 认识VF--Visual FoxPro 漫谈 阅读

认识VF--Visual FoxPro 漫谈

 2007-11-11 11:37:25 来源:WEB开发网   
核心提示: ·Visual FoxPro 6.0与大型数据库的无“·认识VF--Visual FoxPro 漫谈·Visual Foxpro生成任意打印字段报表的·为Visual FoxPro应用程序增加文件压缩·Visual FoxPro 9.0更强大了&m
    ·Visual FoxPro 6.0与大型数据库的无“
    ·认识VF--Visual FoxPro 漫谈
    ·Visual Foxpro生成任意打印字段报表的
    ·为Visual FoxPro应用程序增加文件压缩
    ·Visual FoxPro 9.0更强大了
    ·Visual FoxPro9.0中扩展报表系统功能
    ·使用 Visual FoxPro 的TreeView 控件
    ·Visual Foxpro 的一个BUG
    ·Microsoft Visual FoxPro的性能调整技
    ·怎样在Visual FoxPro 中增加与去除网

数据库报表程序是经常使用的,现在很多用户都使用报表设计器设计报表,且简单方便;但笔者在工作中遇到要对成百个数据库打印的情况,这些数据库除了字段名不相同外,其他结构信息基本相同,因此笔者就编制了如下的一个通用程序,供同行参考。

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的值。笔者已经编制了这类程序,可以向读者提供。

上一页  1 2 3 4 5 6 7 8  下一页

Tags:认识 VF Visual

编辑录入:coldstar [复制链接] [打 印]
赞助商链接