网站建设| 数据库类| 图形图象| 程序设计| 现代办公| 操作系统| 考试认证| 网络技术| 软件工程| 电脑相关| 文学作品
网站开发| 网页制作| 操作系统| 图象图形| 考试认证| 数据库类| 程序设计| 硬件技术| 现代办公| 网络技术| 笑话频道
 
您的位置: 电脑书库首页-> 电脑文摘-> 数据库类-> Foxpro-> 在VFP报表中实现每页打印指定记录数

在VFP报表中实现每页打印指定记录数
作者:佚名 来源:InterNet 加入时间:2005-1-31
相关文章
  • 如何用VFP的dbf进行SQL Server 7.0 的分布式查询
  • VFP智能感应的二次开发
  • 在VFP5.0中实现中英文自动切换
  • 在VFP中实现跟变式组合框及椭圆图形菜单
  • VFP中实现在浏览器中运行应用程序方法
  • 在VFP中模拟动画
  • VFP表跟踪实现方法
  • 让VFP程序在浏览器中运行
  • 分发VFP应用时自动建立快捷方式
  • VFP右键功能
  • 相关书籍:
    VFP在各企事业单位中有着广泛的应用,我用它开发了本单位使用的元器件检测信息管理系统,现在是本单位日常工作中不可缺少的管理工具。开发中自有许多心得,但最想跟大家谈的是在报表中实现每页打印指定记录数这个问题。

      方法一

      在VFP的报表生成器中,编制报表,用调整报表页头带和页脚带高度的方法来控制每页要打印的记录数据,这是一种比较简单、容易实现的方法。但是由于不同的计算机中默认的纸张大小不一样,或者相同的纸型中的页边距设置不一样而使得每页打印的记录数发生改变。这对于固定的用户和固定的打印机、纸张来讲,没有什么问题,但如果软件要运行于多台电脑上或推广到更广泛的用户中,就要考虑不同的打印机及纸张的问题了。此时可以用下面介绍的方法二和方法三来实现。

      另外,有很多用户要求当表中的记录数不是整页数时在最后一页中以空的表格填满报表,也只有在下面的两种方法中才能实现。

      方法二

      以下过程中假设报表中使用的表名为 TEMP.DBF

      在报表设计器中:

      1、将报表中的打印字段前面的别名前缀全部删除。

      2、将报表数据环境中原来的表从数据环境中移去。

      3、在报表的数据环境的 Init 中放入以下代码:

      *-- DetailNum 是细节带中要打印的记录数,可在这里按需要进入修改

      local DetailNum

      DetailNum = 17

      *-- 以下 SQL语句消除删除记录对分组字段的影响及对数据进行适当的排序

      SELECT * FROM TempsintosTABLE TMP1swheresNOT DELETED() &&&&sgroupsby 排序条件

      SELECT int((recno()-1)/DetailNum) as GroupCount, * ;

       FROM Tmp1 ;

      sintosCURSOR Temp2

      USE IN TMP1

      *-- 为保持一个干净的环境,删除刚刚建立的临时过渡表

      delete file TMP1.dbf

      if file("TMP1.fpt")

       delete file TMP1.fpt

      endif

      *-- 注:你可以在上面的代码中设置 DetailNum 的值为你所希望每页报表要打印的记录数。

      *-- 你也可以在第一句 SQL Select 中按你的需要设置sgroupsby 子句来排序数据。

      4、在报表中增加一个分组并设置分组表达式为 GroupCount(即上面第二个 SQL Select 语句中的第一个字段名), 并选择每组从新的一页上开始复选框。

      5、运行你的报表。

      6、最后要说明的是:在运行报表前应设置正确的路径以便 VFP 可以找到报表所使用的表。

      方法三

      在该方法中,定义了一个全局变量tobePrint,该变量的值就是每页要打印的记录数,如果没有定义该变量,则使用默认的每页打印 15 条记录。

      1、temp.dbf添加到报表数据环境中。

      2、将temp.dbf的数据环境中的 BufferModeOverride 属性设置为 5。

      3、在数据环境属性Destroy 事件中写:

      =tablerevert(.t.)

      4、在数据环境属性Init 事件中写:

      if vartype(tobePrint) = "U" &&&& 如果全局变量还没有定义,在这里定义它的默认值为15

      Public tobePrint

      tobePrint = 15

      endif

      *-- 以下代码是为了当要打印的记录数不满一页时,打印空行来填满整个报表页

      do while reccount("temp") % tobePrint <> 0

      append blank

      enddo

      5、 在报表中新建两个报表变量如:nCount、nGroup,变量nCount的计算选项组中选择计数,在变量 nGroup 的要存储的值中写:

      iif(nCount<>0 and nCount % tobePrint=0,nGroup+1,nGroup)

      6、 在报表中增加一个分组并设置分组表达式为nGroup,并选择每组从新的一页上开始复选框。

      7、 用以下代码来运行报表:

      use temp

      *-- 为避免重复定义变量错误,在定义全局变量前首先释放它

      release tobeprint

      *-- 定义全局变量,该变量中保存了每页要打印的记录数

      public tobeprint

      *-- 设置每页打印10条记录

      tobeprint = 10

      *-- 打印我们的报表

      report form temp preview

      方法二与方法三的异同

      二者都是采用了数据分组的方法来实现“每页打印指定记录数”,向表中添加空记录来实现“表中的记录数不是整页数时在最后一页中以空的表格填满报表”。

      二者不同之处在于:方法二是利用临时表来解决问题,数据的分组信息写在临时表中,方法三是利用报表变量来解决分组问题,数据分组是用报表变量来实现的。 

    [文章录入员:nancy]

    相关文章
  • 如何用VFP的dbf进行SQL Server 7.0 的分布式查询
  • VFP智能感应的二次开发
  • 在VFP5.0中实现中英文自动切换
  • 在VFP中实现跟变式组合框及椭圆图形菜单
  • VFP中实现在浏览器中运行应用程序方法
  • 在VFP中模拟动画
  • VFP表跟踪实现方法
  • 让VFP程序在浏览器中运行
  • 分发VFP应用时自动建立快捷方式
  • VFP右键功能
  • 相关书籍:
    本站推荐内容

    近期主机类热搜关键词:
    美国服务器 美国服务器租用 海外服务器租用 国外服务器租用

    Foxpro
    ACCESS
    MS SQL
    MySQL
    Oracle
    Foxpro
    PowerBuilder
    Sybase
    其它
    电脑教程阅读排行
    ·Visual FoxPro 9....
    ·VFP与Excel交互编程
    ·Visual Foxpro生成任...
    ·VFP访问外部数据源的几种方法
    ·为Visual FoxPro应用...
    ·如何用VFP的dbf进行SQL ...
    ·如何修复被破坏的Foxpro数据...
    ·用VFP6.0编写图片浏览器
    ·在VFP报表中实现每页打印指定记...
    ·利用Foxpro在网络环境下开发...