企业管理

开发平台：
VFP

PZHZBDY.PRG：源码内容
							 nf = 0
 yf = 0
 SET COLOR TO N/G
 @ 5, 8 CLEAR TO 10, 35
 @ 6, 15 SAY '输 入 日 期:'
 @ 7, 13 SAY '年'
 @ 7, 10 GET nf PICTURE '@z 99'
 @ 7, 17 GET yf PICTURE '@z 99'
 @ 7, 20 SAY '月份汇总'
 READ
 @ 5, 8 CLEAR TO 10, 35
 @ 6, 10 SAY '请将8开纸放入打印机!'
 @ 7, 10 SAY '放纸后按任意键......'
 i = INKEY(0)
 rsele = SELECT()
 SELE 0
 USE set
 kh = printer
 USE
 SELE (rsele)
 SELE 1
 COUN ALL TO crecn
 SELE 2
 USE
 ERAS gzb_1.dbf
 SELE 1
 COPY TO gzb_1 STRUCTURE EXTENDED
 SELE 2
 USE gzb_1
 COUN ALL TO xms
 GOTO TOP
 SELE 2
 pd = 1
 bs = 1
 ys = 1
 xmk = 'xm1'
 h = 0
 len = 0
 GOTO 2
 hc = 0
 DO WHILE  .NOT. EOF()
      len = field_len
      p = field_name
      p = TRIM(p)
      len1 = LEN(p)
      len = MAX(len, len1)
      hc = hc+len+2
      SKIP
 ENDD
 DO WHILE .T.
      IF SYS(13)<>'READY'
           ?? CHR(7)
           SET COLOR TO
           @ 5, 8 CLEAR TO 10, 35
           SET COLOR TO W+/B
           @ 4, 5 CLEAR TO 9, 33
           x1 = 4
           x2 = 9
           y1 = 6
           y2 = 32
           DO box-1
           @ 6, 10 SAY '打印机尚未准备好! '
           @ 7, 10 SAY 'ESC=返回,其他=重试'
           i = INKEY(0)
           IF i=27
                SELE 2
                USE
                ERAS gzb_1.dbf
                SELE 1
                RETU
           ENDI
      ELSE
           SET COLOR TO
           @ 5, 8 CLEAR TO 10, 35
           SET COLOR TO W+/B
           @ 4, 5 CLEAR TO 9, 33
           x1 = 4
           x2 = 9
           y1 = 6
           y2 = 32
           DO box-1
           SET COLOR TO W+/B
           @ 6, 8 CLEAR TO 8, 30
           @ 6, 10 SAY '正在打印科目汇总表!'
           @ 7, 14 SAY '请稍候......'
           EXIT
      ENDI
 ENDD
 SET PRINTER ON
 SET DEVICE TO PRINTER
 SET CONSOLE OFF
 jsq = 1
 DO WHILE jsq<=kh
      jsq = jsq+1
 ENDD
 ? ' '
 ? '                                                      科      目      汇      总      表  '
 jsq = 1
 ?? '`&2`'
 ? ' '
 @ PROW()+1, 2 SAY '广西区盐业公司'
 @ PROW(), 60 SAY nf PICTURE '@z 99'
 @ PROW(), 63 SAY '年'
 @ PROW(), 66 SAY yf PICTURE '@z 99'
 @ PROW(), 69 SAY '月份汇总'
 pd = 1
 ? ''
 DO WHILE pd<=hc
      @ PROW(), pd SAY '-'
      pd = pd+1
 ENDD
 ? '  科目名称                   期初余额         借上旬         借中旬    借下旬         贷上旬         贷中旬         贷下旬       期末余额 '
 ? ''
 pd = 1
 DO WHILE pd<=hc
      @ PROW(), pd SAY '-'
      pd = pd+1
 ENDD
 ? ''
 ?? '`&-7`'
 h = 0
 SELE 1
 GOTO TOP
 DO WHILE  .NOT. EOF()
      SELE 2
      GOTO 2
      h = -1
      len = 0
      DO WHILE  .NOT. EOF()
           xmk = field_name
           p = xmk
           len = field_len
           dec = field_dec
           p = TRIM(p)
           len1 = LEN(p)
           len = MAX(len, len1)
           SELE 1
           @ prow(),pcol()+2 say &xmk pict'@z'
           h = h+len
           SELE 2
           SKIP
      ENDD
      SELE 1
      SKIP
      pd = 1
      ? ''
      DO WHILE pd<=hc
           @ PROW(), pd SAY '-'
           pd = pd+1
      ENDD
      ? ''
 ENDD
 ?? '`&2`'
 ? ' '
 SELE 2
 USE
 SELE 1
 SET COLOR TO
 ERAS gzb_1.dbf
 SET PRINTER OFF
 SET DEVICE TO SCREEN
 SET CONSOLE ON
 RETU
*

						