巧用CCED、FOX、WPS实现工资报表输出

Author: 安徽时东亚 Date: 1995-12-01

        打印工资表有一个重要的问题，就是工资表要求每页要有页合计，而DBST.EXE 3.3程序没有提供这个功能，怎么办呢?问题是在FOX中得到解决的。首先，把工资数据库GZ打开(数据库总记录数应为十的倍数，否则，在最后加空记录以补足)，多加上两个字段，字段名分别为记录号、页号(页号字段应留一位小数位)。先将“页号”字段赋值。程序如下：
        AA=1
        1
        do while .t.
        repl next 11 页号with AA
        do while eof()
        exit
        enddo
        AA=AA+1
        enddo
        下面一步就是将工资表数据库GZ汇总，汇总库名为HZ，最终生成数据库为YGZ。
        use GZ
        total to HZ on 页号
        use HZ
        repl all 姓名 with '合计'
        repl all 页号 with 页号 /10+0.1
        appe from gz
        repl all 序号 with recno()
        sort to YGZ on 页号，序号
        生成数据库YGZ，运行DBST.EXE后，便可生成带有页合计的工资表文件，再由WPS调出打印。本方法巧妙借用了CCED、FOX、WPS三种软件对制表、排版、数据管理方面的功能。
        (安徽  时东亚)