企业管理

开发平台：
VFP

ZBDY-2.PRG：源码内容
							 USE A%
 km = zzkm
 km1 = mxkm
 my = 2
 yc = 1
 SET COLOR TO GR+/BG
 @ 9, 20 CLEAR TO 13, 60
 sxh = 1
 ?? CHR(7)
 @ 11, 27 SAY '请问开始打印行次和页次?'
 @ 12, 27 SAY '请输入行次:' GET sxh PICTURE '99' VALID sxh>0 .AND. sxh<31
 READ
 @ 12, 43 SAY '页次:' GET yc PICTURE '999'
 READ
 @ 9, 20 CLEAR TO 13, 60
 @ 11, 30 SAY '正在进行打印帐本...... '
 @ 12, 30 SAY '  请稍候......         '
 x = 0
 gcy_jf = 0
 gcy_df = 0
 gcy_jfsl = 0
 gcy_dfsl = 0
 DO WHILE .T.
      DO WHILE .T.
           IF SYS(13)<>'READY'
                SET CONSOLE ON
                SET PRINTER OFF
                SET DEVICE TO SCREEN
                ?? CHR(7)
                @ 11, 30 SAY '打印机未准备好,准备好后'
                @ 12, 30 SAY ' 按任意键继续 ......'
                x2 = INKEY(0)
                IF x2=27
                     SET COLOR TO W+/N
                     @ 2, 1, 20, 78 BOX '鞍鞍鞍鞍鞍鞍'
                     RETU
                ENDI
                @ 11, 30 SAY '正在进行打印帐本...... '
                @ 12, 30 SAY '  请稍候......         '
           ELSE
                EXIT
           ENDI
      ENDD
      SET CONSOLE OFF
      SET DEVICE TO PRINTER
      SET PRINTER ON
      ?? '`&2`'
      IF sxh=1
           h = 9
           s = 1
           DO zbbtdy-2
      ELSE
           h = 9
           s = 0
      ENDI
      ?? '`@a^1`'
      DO WHILE sxh<=30
           IF s=1
                @ PROW()+1, 12 SAY sxh PICTURE '99'
           ELSE
                @ h+sxh, 12 SAY sxh PICTURE '99'
           ENDI
           IF (gcy_jf<>0 .OR. gcy_df<>0) .AND. sxh=1 .AND. zy<>'本月合计' .AND. yc<>1
                @ PROW(), 15 SAY '│'
                @ PROW(), 28 SAY '│'
                @ PROW(), 39 SAY '│'
                @ PROW(), 42 SAY '承前页'
                @ PROW(), 82 SAY '│'
                IF gcy_jfsl<>0
                     @ PROW(), 84 SAY gcy_jfsl PICTURE '9999999.999'
                ENDI
                @ PROW(), 98 SAY '│'
                IF gcy_jf<>0
                     @ PROW(), 100 SAY gcy_jf
                ENDI
                @ PROW(), 114 SAY '│'
                IF gcy_dfsl<>0
                     @ PROW(), 117 SAY gcy_dfsl PICTURE '999999.999'
                ENDI
                @ PROW(), 130 SAY '│'
                IF gcy_df<>0
                     @ PROW(), 132 SAY gcy_df
                ENDI
                @ PROW(), 146 SAY '│'
                @ PROW(), 151 SAY '│'
                @ PROW(), 164 SAY '│'
                @ PROW(), 180 SAY '│'
           ELSE
                @ PROW(), 15 SAY '│'
                @ PROW(), 17 SAY rq
                @ PROW(), 28 SAY '│'
                xx = zy
                xx = SUBSTR(xx, 1, 40)
                IF pzh<>0
                     @ PROW(), 32 SAY pzh
                ENDI
                @ PROW(), 39 SAY '│'
                IF sy=1 .AND. zy='期初余额' .AND. s=1
                     @ PROW(), 42 SAY '上年结转'
                ELSE
                     @ PROW(), 42 SAY xx
                ENDI
                @ PROW(), 82 SAY '│'
                IF ssl<>0
                     @ PROW(), 84 SAY ssl PICTURE '9999999.999'
                ENDI
                @ PROW(), 98 SAY '│'
                IF jje<>0
                     @ PROW(), 100 SAY jje
                ENDI
                @ PROW(), 114 SAY '│'
                IF fsl<>0
                     @ PROW(), 117 SAY fsl PICTURE '999999.999'
                ENDI
                @ PROW(), 130 SAY '│'
                IF dje<>0
                     @ PROW(), 132 SAY dje
                ENDI
                @ PROW(), 146 SAY '│'
                IF ye<>0
                     IF jhd='+' .AND. ye>0 .OR. jhd='-' .AND. ye<0
                          @ PROW(), 148 SAY '借'
                          @ PROW(), 151 SAY '│'
                          IF ye<0
                               ye1 = -ye
                          ELSE
                               ye1 = ye
                          ENDI
                          IF ysl<>0
                               @ PROW(), 153 SAY ysl PICTURE '999999.999'
                          ENDI
                          @ PROW(), 164 SAY '│'
                          @ PROW(), 166 SAY ye1
                     ELSE
                          @ PROW(), 148 SAY '贷'
                          @ PROW(), 151 SAY '│'
                          IF ye<0
                               ye1 = -ye
                          ELSE
                               ye1 = ye
                          ENDI
                          IF ysl<>0
                               @ PROW(), 153 SAY ysl PICTURE '999999.999'
                          ENDI
                          @ PROW(), 164 SAY '│'
                          @ PROW(), 166 SAY ye1
                     ENDI
                ELSE
                     @ PROW(), 151 SAY '│'
                     @ PROW(), 164 SAY '│'
                ENDI
                @ PROW(), 180 SAY '│'
                IF zy='本月合计' .OR. zy='期末及累计'
                     gcy_jf = 0
                     gcy_df = 0
                     gcy_jfsl = 0
                     gcy_dfsl = 0
                ELSE
                     gcy_jf = gcy_jf+jje
                     gcy_df = gcy_df+dje
                     gcy_jfsl = gcy_jfsl+ssl
                     gcy_dfsl = gcy_dfsl+fsl
                ENDI
                SKIP
           ENDI
           IF EOF()
                IF sxh=30
                     sxh = 31
                ENDI
                x = 27
                EXIT
           ENDI
           sxh = sxh+1
      ENDD
      IF gcy_jf<>0 .OR. gcy_df<>0
           @ PROW()+1, 12 SAY sxh PICTURE '99'
           @ PROW(), 15 SAY '│'
           @ PROW(), 28 SAY '│'
           @ PROW(), 39 SAY '│'
           @ PROW(), 42 SAY '过次页'
           @ PROW(), 82 SAY '│'
           IF gcy_jfsl<>0
                @ PROW(), 84 SAY gcy_jfsl PICTURE '9999999.999'
           ENDI
           @ PROW(), 98 SAY '│'
           IF gcy_jf<>0
                @ PROW(), 100 SAY gcy_jf
           ENDI
           @ PROW(), 114 SAY '│'
           IF gcy_dfsl<>0
                @ PROW(), 117 SAY gcy_dfsl PICTURE '999999.999'
           ENDI
           @ PROW(), 130 SAY '│'
           IF gcy_df<>0
                @ PROW(), 132 SAY gcy_df
           ENDI
           @ PROW(), 146 SAY '│'
           @ PROW(), 151 SAY '│'
           @ PROW(), 164 SAY '│'
           @ PROW(), 180 SAY '│'
      ENDI
      yc = yc+1
      IF sxh=31 .OR. my=12 .OR. x=27
           ?? '`@A^0`'
           @ PROW()+1, 7 SAY '━━┿━━━━┿━━━┿━━━━━━━━━━━━━━━┿━━━━━┿━━━━━┿━━━━━┿━━━━━┿━┿━━━━┿━━━━━┿━'
      ENDI
      ? ' '
      sxh = 1
      IF x=27
           SET PRINTER OFF
           SET DEVICE TO SCREEN
           SET CONSOLE ON
           ?? CHR(7)
           @ 9, 20 CLEAR TO 13, 60
           @ 11, 30 SAY '打  印  完  毕  !'
           @ 12, 30 SAY '按任意键继续......'
           SET COLOR TO
           x1 = INKEY(0)
           EXIT
      ELSE
           SET PRINTER OFF
           SET DEVICE TO SCREEN
           SET CONSOLE ON
           ?? CHR(7)
           @ 11, 30 SAY '换页,按ESC键退出打印'
           @ 12, 30 SAY '按其他键继续打印....'
           x = INKEY(0)
           IF x=27
                SET COLOR TO W+/N
                @ 2, 1, 20, 78 BOX '鞍鞍鞍鞍鞍鞍'
                RETU
           ELSE
                @ 11, 30 SAY '正在进行打印帐本...... '
                @ 12, 30 SAY '  请稍候......         '
           ENDI
           SET CONSOLE OFF
           SET DEVICE TO PRINTER
           SET PRINTER ON
      ENDI
 ENDD
 RETU
*

						