企业管理

开发平台：
VFP

PZSH.PRG：源码内容
							 HIDE POPUP pop2
 HIDE MENU mainmenu
 DEAC WINDOW win
 SET SYSMENU OFF
 SET CLOCK TO 0, 69
 ON KEY
 SET COLOR TO W/N
 CLOS DATABASES
 CLEA
 USE pzk
 SET INDEX TO pz
 REIN
 SELE 2
 USE kmk
 SELE 1
 SET COLOR TO W/N
 CLEA
 DO pzgx
 IF EOF()
      SET COLOR TO G+/GR
      @ 10, 20 CLEAR TO 14, 60
      @ 11, 30 SAY '凭证库里没有凭证,'
      @ 13, 30 SAY '按任意键返回 !'
      x = INKEY(0)
      CLOS DATABASES
      SET COLOR TO W+/B
      @ 0, 0, 23, 79 BOX '北北北北'
      SET COLOR TO W+/N
      @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍'
      @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG 
      @ 24, 0 SAY ' JQ001财务管理系统(Ver2.5)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' COLOR R/W 
      ON KEY LABEL Escape do Rquit
      SET CLOCK TO 23, 69
      RETU
 ENDI
 pz = 1
 GOTO 1
 pz = pzh
 LOCA ALL FOR '      '$shy
 IF EOF()
      ?? CHR(7)
      SET COLOR TO BG+/RB
      @ 0, 0 CLEAR TO 3, 28
      @ 1, 4 SAY '凭证已全部审核完毕!'
      @ 2, 4 SAY '有  0 张凭证未通过.'
      pd = INKEY(0)
      DO qp
      DO pzgx
      @ 18, 0 CLEAR TO 24, 80
 ELSE
      pz = pzh
      DO WHILE .T.
           DO WHILE .T.
                SEEK pz
                pd = shy
                IF pd<>'       '
                     pz = pz+1
                ELSE
                     EXIT
                ENDI
           ENDD
           DO pzgx
           LOCA ALL FOR pzh=pz .AND. shy='       '
           IF EOF()
                PACK
                GOTO 1
                pd1 = 1
                jyq = -1
                DO WHILE  .NOT. EOF()
                     SEEK pd1
                     pd = shy
                     IF pd='        '
                          jyq = jyq+1
                     ENDI
                     pd1 = pd1+1
                ENDD
                ?? CHR(7)
                SET COLOR TO BG+/RB
                @ 0, 0 CLEAR TO 3, 28
                @ 1, 4 SAY '凭证已全部审核完毕!'
                @ 2, 4 SAY '有'
                @ 2, 6 SAY jyq PICTURE '999999'
                @ 2, 12 SAY '张凭证未通过.'
                pd = INKEY(0)
                DO qp
                DO pzgx
                @ 18, 0 CLEAR TO 24, 80
                EXIT
           ENDI
           @ 2, 50 SAY '                    '
           @ 2, 50 SAY '总字第'
           @ 2, 56 SAY pzh
           @ 2, 66 SAY '号'
           sl1 = RECNO()
           pz = pz+1
           SEEK pz
           IF  .NOT. EOF()
                SKIP -1
                ml = RECNO()
           ELSE
                GOTO BOTTOM
                ml = RECNO()
           ENDI
           pz = pz-1
           GOTO BOTTOM
           jyq = pzh
           GOTO sl1
           @ 10, 74 SAY pds
           @ 17, 66 SAY lry
           @ 2, 30 SAY rq
           SET COLOR TO B/GR
           @ 18, 0 SAY '                                                 '
           @ 18, 0 SAY '    ↑上笔:↓下笔: PgUp上页: PgDn下页: F9不签字: F10签字: Esc退出审核        '
           SET COLOR TO W/N
           GOTO BOTTOM
           @ 19, 0 CLEAR TO 24, 80
           pd = INT((ml+1-sl1)/6)
           IF INT((ml+1-sl1)/6)=(ml+1-sl1)/6
                ys = pd
           ELSE
                ys = pd+1
           ENDI
           DO hjxs
           GOTO sl1
           IF 5<=ml-sl1
                bs = 1
                DO WHILE bs<=6
                     @ 18+bs, 33 SAY zy
                     DO slxs
                     DO kmxs
                     DO fsxs
                     pd1 = RECNO()
                     SKIP
                     bs = bs+1
                ENDD
                bs = 1
                SKIP -6
                SET COLOR TO G/B
                @ 4, 11 SAY zy
                SET COLOR TO W/N
                DO kmxs-1
                DO fsxs-1
                DO slxs-1
                yc = 1
           ELSE
                pd = 1
                pd1 = 0
                bs = 1
                DO WHILE pd1<=ml-sl1
                     @ 19+pd1, 33 SAY zy
                     DO kmxs
                     DO fsxs
                     DO slxs
                     SKIP
                     pd1 = pd1+1
                     bs = bs+1
                ENDD
                SKIP -pd1
                SET COLOR TO G/B
                @ 4, 11 SAY zy
                SET COLOR TO W/N
                bs = 1
                DO kmxs-1
                DO fsxs-1
                DO slxs-1
                yc = 1
           ENDI
           DO WHILE .T.
                pd = INKEY(0)
                DO CASE
                     CASE pd=5
                          pd = RECNO()
                          IF pd=sl1 .OR. bs=1 .OR. bs=0
                               SET COLOR TO BG+/RB
                               @ 0, 0 CLEAR TO 3, 28
                               @ 1, 5 SAY '这是本页第一笔,'
                               @ 2, 5 SAY '按任意键继续......'
                               ?? CHR(7)
                               pd = INKEY(0)
                               DO qp
                          ELSE
                               @ 18+bs, 33 SAY zy
                               DO fsxs
                               DO kmxs
                               DO slxs
                               bs = bs-1
                               SKIP -1
                               @ 4, 11 SAY zy
                               SET COLOR TO G/B
                               @ 18+bs, 33 SAY zy
                               SET COLOR TO W/N
                               DO slxs-1
                               DO kmxs-1
                               DO fsxs-1
                          ENDI
                     CASE pd=24
                          pd = RECNO()
                          IF pd=ys*6 .OR. pd=ml .OR. bs=6
                               SET COLOR TO BG+/RB
                               @ 0, 0 CLEAR TO 3, 28
                               @ 1, 5 SAY '这是本页最后一笔,'
                               @ 2, 5 SAY '按任意键继续......'
                               ?? CHR(7)
                               pd = INKEY(0)
                               DO qp
                          ELSE
                               SET COLOR TO W/N
                               @ 18+bs, 33 SAY zy
                               DO kmxs
                               DO slxs
                               SET COLOR TO W/N
                               DO fsxs
                               bs = bs+1
                               pd1 = RECNO()
                               IF pd1<ml
                                    SKIP 1
                               ENDI
                               @ 4, 11 SAY zy
                               SET COLOR TO G/B
                               @ 18+bs, 33 SAY zy
                               SET COLOR TO W/N
                               DO slxs-1
                               DO kmxs-1
                               DO fsxs-1
                          ENDI
                     CASE pd=3
                          IF yc=ys
                               SET COLOR TO BG+/RB
                               @ 0, 0 CLEAR TO 3, 28
                               @ 1, 4 SAY '这是本凭证最后一页,'
                               @ 2, 4 SAY '按任意键继续......'
                               ?? CHR(7)
                               pd = INKEY(0)
                               DO qp
                          ELSE
                               DO pzgx
                               DO hjxs
                               @ 19, 0 CLEAR TO 25, 81
                               GOTO sl1+yc*6
                               pd = RECNO()
                               IF ml-pd>=6
                                    pd1 = 6
                               ELSE
                                    pd1 = ml-pd+1
                               ENDI
                               bs = 1
                               DO WHILE bs<=pd1
                                    @ 18+bs, 33 SAY zy
                                    DO kmxs
                                    DO fsxs
                                    DO slxs
                                    pd = RECNO()
                                    IF pd<>ml
                                         SKIP
                                         bs = bs+1
                                    ELSE
                                         EXIT
                                    ENDI
                               ENDD
                               yc = yc+1
                               SKIP -bs+1
                               bs = 1
                               @ 4, 11 SAY zy
                               SET COLOR TO G/B
                               @ 18+bs, 33 SAY zy
                               SET COLOR TO W/N
                               DO kmxs-1
                               DO fsxs-1
                               DO slxs-1
                          ENDI
                     CASE pd=18
                          IF yc=1
                               SET COLOR TO BG+/RB
                               @ 0, 0 CLEAR TO 3, 28
                               @ 1, 4 SAY '这是本凭证第一页,'
                               @ 2, 4 SAY '按任意键继续......'
                               ?? CHR(7)
                               pd = INKEY(0)
                               DO qp
                          ELSE
                               DO pzgx
                               DO hjxs
                               @ 19, 0 CLEAR TO 25, 81
                               yc = yc-1
                               GOTO sl1+yc*6-6
                               bs = 1
                               DO WHILE bs<=6
                                    @ 18+bs, 33 SAY zy
                                    DO kmxs
                                    DO fsxs
                                    DO slxs
                                    SKIP
                                    bs = bs+1
                               ENDD
                               SKIP -6
                               @ 4, 11 SAY zy
                               bs = 1
                               SET COLOR TO G/B
                               @ 18+bs, 33 SAY zy
                               SET COLOR TO W/N
                               DO kmxs-1
                               DO fsxs-1
                               DO slxs-1
                               bs = 1
                          ENDI
                     CASE pd=27
                          pd = -1234567
                          EXIT
                     CASE pd=-8
                          ?? CHR(7)
                          pz = pz+1
                          EXIT
                     CASE pd=-9
                          REPL shy WITH czy FOR pzh=pz
                          pz = pz+1
                          EXIT
                     OTHE
                          ?? CHR(7)
                ENDC
           ENDD
           IF pd=-1234567
                EXIT
           ENDI
      ENDD
 ENDI
 CLOS DATABASES
 SET COLOR TO W+/B
 @ 0, 0, 23, 79 BOX '北北北北'
 SET COLOR TO W+/N
 @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍'
 @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG 
 @ 24, 0 SAY ' JQ001财务管理系统(Ver2.5)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' COLOR R/W 
 ON KEY LABEL Escape do Rquit
 SET CLOCK TO 23, 69
 RETU
*

						