企业管理

开发平台：
VFP

PZCX.PRG：源码内容
							 HIDE POPUP pop2
 HIDE MENU mainmenu
 DEAC WINDOW win
 SET SYSMENU OFF
 ON KEY
 SET CLOCK TO 0, 69
 SET COLOR TO W/N
 CLOS DATABASES
 CLEA
 USE pzk
 SET INDEX TO pz
 REIN
 SELE 2
 USE kmk
 SELE 1
 DO pzgx
 pz = 1
 SET COLOR TO GR+/B
 @ 5, 20 CLEAR TO 14, 55
 @ 7, 26 SAY '请输入要查询的凭证号码:'
 @ 9, 34 SAY '' GET pz PICTURE '9999'
 READ
 DO WHILE .T.
      DO pzgx
      SEEK pz
      sl1 = RECNO()
      IF EOF()
           ?? CHR(7)
           SET COLOR TO GR+/B
           @ 5, 20 CLEAR TO 8, 60
           @ 6, 30 SAY '对不起,凭证没有找到!'
           @ 7, 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 = 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
      @ 2, 50 SAY '                    '
      @ 2, 50 SAY '总字第'
      @ 2, 56 SAY pzh
      @ 2, 66 SAY '号'
      SET COLOR TO B/GR
      @ 18, 0 SAY '    ↑上笔:↓下笔:PgUp上页:PgDn下页:F3上一张凭证:F4下一张凭证: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
      @ 10, 74 SAY pds
      @ 2, 30 SAY rq
      @ 17, 66 SAY lry
      @ 17, 49 SAY shy
      IF 5<=ml-sl1
           bs = 1
           DO WHILE bs<=6
                @ 18+bs, 33 SAY zy
                DO slxs
                DO kmxs
                DO fsxs
                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
                          @ 8, 71 SAY SYS(2002)
                     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=sl1+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
                          @ 13, 71 SAY SYS(2002)
                     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=-2
                     IF pz=1
                          ?? CHR(7)
                          SET COLOR TO BG+/RB
                          @ 0, 0 CLEAR TO 3, 28
                          @ 1, 3 SAY '这已是第一张凭证!'
                          @ 2, 3 SAY '按任意键继续......'
                          pd = INKEY(0)
                          DO qp
                     ELSE
                          pz = pz-1
                          EXIT
                     ENDI
                CASE pd=-3
                     IF pz=jyq
                          ?? CHR(7)
                          SET COLOR TO BG+/RB
                          @ 0, 0 CLEAR TO 3, 28
                          @ 1, 3 SAY '这已是最后一号凭证!'
                          @ 2, 3 SAY '按任意键继续......'
                          pd = INKEY(0)
                          DO qp
                     ELSE
                          pz = pz+1
                          EXIT
                     ENDI
                OTHE
                     ?? CHR(7)
           ENDC
      ENDD
      IF pd=-1234567
           EXIT
      ENDI
 ENDD
 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
*

						