在VFP报表中实现每页打印指定记录数

文章作者 100test 发表时间 2007:10:31 12:31:51
来源 100Test.Com百考试题网


  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

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

  0delete file TMP1.dbf

  if file("TMP1.fpt")

   0delete file TMP1.fpt

  endif

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

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

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

  5、运行你的报表。

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

相关文章


在VFP5.0中实现中英文自动切换
用VisualFoxpro开发主从结构数据库系统
在VFP程序中创建工具条
在VFP中编程自动产生所输入汉字的拼音
在VFP报表中实现每页打印指定记录数
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛