企业管理

开发平台：
VFP

YJKBCX.PRG：源码内容
							 HIDE POPUP pop4
 HIDE POPUP pop4_2
 HIDE MENU mainmenu
 SET CLOCK TO 0, 69
 DEAC WINDOW win
 ON KEY
 SET SYSMENU OFF
 SET COLOR TO W/B
 CLEA
 p = 1
 USE yjkb
 SET COLOR TO GR/B
 @ 1, 0 SAY 'ＪＱ软件工作室'
 @ 1, 67 SAY 'ＪＱ财务系统'
 SET COLOR TO G/B
 @ 0, 25 SAY '应  交  款  项  表'
 @ 2, 0 SAY '┏━━━━━━━━━━━━━━━━┯━┯━━━━━━━━━━┯━━━━━━━━┓'
 @ 3, 0 SAY '┃'
 @ 3, 5 SAY '        项         目 '
 @ 3, 34 SAY '│'
 @ 3, 36 SAY '行'
 @ 3, 38 SAY '│'
 @ 3, 44 SAY '年初未交数'
 @ 3, 60 SAY '│'
 @ 3, 63 SAY ' 本年应交数'
 @ 3, 78 SAY '┃'
 @ 4, 0 SAY '┠────────────────┼─┼──────────┼────────┨'
 pd = 4
 DO WHILE pd<23
      i = pd+1
      @ i, 0 SAY '┃'
      @ i, 34 SAY '│'
      @ i, 38 SAY '│'
      @ i, 60 SAY '│'
      @ i, 78 SAY '┃'
      pd = pd+1
 ENDD
 @ 23, 0 SAY '┗━━━━━━━━━━━━━━━━┷━┷━━━━━━━━━━┷━━━━━━━━┛'
 SET COLOR TO B/GR
 @ 24, 0 SAY ' ← 左页 : → 右页: ↑ 上一笔 : ↓ 下一笔 : PgUp 上一页 : PgDn 下一页 : Esc 退出            '
 SET COLOR TO W/B
 GOTO BOTTOM
 pd = RECNO()
 pd = pd/16
 pd1 = INT(pd)
 ys = pd-pd1
 IF ys=0
      ys = pd1
 ELSE
      ys = pd1+1
 ENDI
 GOTO TOP
 pd = 1
 ys1 = 1
 DO WHILE .T.
      @ 4+pd, 2 SAY xm
      @ 4+pd, 36 SAY h
      IF ncs<>0
           @ 4+pd, 43 SAY ncs PICTURE '999,999,999.99'
      ENDI
      IF bns<>0
           @ 4+pd, 63 SAY bns PICTURE '999,999,999.99'
      ENDI
      IF  .NOT. EOF()
           SKIP
           pd = pd+1
      ELSE
           EXIT
      ENDI
      IF pd=19
           EXIT
      ENDI
 ENDD
 GOTO 1
 SET COLOR TO G+/B
 @ 5, 2 SAY xm
 @ 5, 36 SAY h
 IF ncs<>0
      @ 5, 43 SAY ncs PICTURE '999,999,999.99'
 ELSE
      @ 5, 43 SAY '              '
 ENDI
 IF bns<>0
      @ 5, 63 SAY bns PICTURE '999,999,999.99'
 ELSE
      @ 5, 63 SAY '              '
 ENDI
 pd = 1
 zc1 = 'XM'
 h = 'h'
 ncs = 'ncs'
 nms = 'bns'
 DO WHILE .T.
      x = INKEY(0)
      DO CASE
           CASE x=5
                IF pd=1 .OR. RECNO()=1
                     ?? CHR(7)
                ELSE
                     SET COLOR TO W/B
                     @ 4+pd,2 say &zc1
                     @ 4+pd,36 say &h
                     if &ncs<>0
                          @ 4+pd,43 say &ncs pict'999,999,999.99'
                     ELSE
                          @ 4+pd, 43 SAY '              '
                     ENDI
                     if &nms<>0
                          @ 4+pd,63 say &nms pict'999,999,999.99'
                     ELSE
                          @ 4+pd, 63 SAY '              '
                     ENDI
                     SET COLOR TO G+/B
                     SKIP -1
                     pd = pd-1
                     @ 4+pd,2 say &zc1
                     @ 4+pd,36 say &h
                     if &ncs<>0
                          @ 4+pd,43 say &ncs pict'999,999,999.99'
                     ELSE
                          @ 4+pd, 43 SAY '              '
                     ENDI
                     if &nms<>0
                          @ 4+pd,63 say &nms pict'999,999,999.99'
                     ELSE
                          @ 4+pd, 63 SAY '              '
                     ENDI
                ENDI
           CASE x=24
                IF pd=18 .OR. EOF()
                     ?? CHR(7)
                ELSE
                     SET COLOR TO W/B
                     @ 4+pd,2 say &zc1
                     @ 4+pd,36 say &h
                     if &ncs<>0
                          @ 4+pd,43 say &ncs pict'999,999,999.99'
                     ELSE
                          @ 4+pd, 43 SAY '              '
                     ENDI
                     if &nms<>0
                          @ 4+pd,63 say &nms pict'999,999,999.99'
                     ELSE
                          @ 4+pd, 63 SAY '              '
                     ENDI
                     SET COLOR TO G+/B
                     SKIP
                     pd = pd+1
                     @ 4+pd,2 say &zc1
                     @ 4+pd,36 say &h
                     if &ncs<>0
                          @ 4+pd,43 say &ncs pict'999,999,999.99'
                     ELSE
                          @ 4+pd, 43 SAY '              '
                     ENDI
                     if &nms<>0
                          @ 4+pd,63 say &nms pict'999,999,999.99'
                     ELSE
                          @ 4+pd, 63 SAY '              '
                     ENDI
                ENDI
           CASE x=18
                IF ys1>1
                     ys1 = ys1-1
                     GOTO ys1*18
                     SKIP -17
                     pd = 1
                     SET COLOR TO W/B
                     @ 5, 2 CLEAR TO 22, 33
                     @ 5, 36 CLEAR TO 22, 37
                     @ 5, 40 CLEAR TO 22, 58
                     @ 5, 62 CLEAR TO 22, 77
                     DO WHILE .T.
                          @ 4+pd,2 say &zc1
                          @ 4+pd,36 say &h
                          if &ncs<>0
                               @ 4+pd,43 say &ncs pict'999,999,999.99'
                          ELSE
                               @ 4+pd, 43 SAY '              '
                          ENDI
                          if &nms<>0
                               @ 4+pd,63 say &nms pict'999,999,999.99'
                          ELSE
                               @ 4+pd, 63 SAY '              '
                          ENDI
                          IF  .NOT. EOF()
                               SKIP
                               pd = pd+1
                          ELSE
                               EXIT
                          ENDI
                          IF pd=19
                               EXIT
                          ENDI
                     ENDD
                     SKIP -18
                     SET COLOR TO G+/B
                     @ 5,2 say &zc1
                     @ 5,36 say &h
                     if &ncs<>0
                          @ 5,43 say &ncs pict'999,999,999.99'
                     ELSE
                          @ 5, 43 SAY '              '
                     ENDI
                     if &nms<>0
                          @ 5,63 say &nms pict'999,999,999.99'
                     ELSE
                          @ 5, 63 SAY '              '
                     ENDI
                     pd = 1
                ELSE
                     ?? CHR(7)
                ENDI
           CASE x=3
                SET COLOR TO W/B
                IF ys1<ys
                     ys1 = ys1+1
                     GOTO (ys1-1)*18+1
                     x = RECNO()
                     pd = 1
                     SET COLOR TO W/B
                     @ 5, 2 CLEAR TO 22, 33
                     @ 5, 36 CLEAR TO 22, 37
                     @ 5, 40 CLEAR TO 22, 58
                     @ 5, 62 CLEAR TO 22, 77
                     DO WHILE .T.
                          @ 4+pd,2 say &zc1
                          @ 4+pd,36 say &h
                          if &ncs<>0
                               @ 4+pd,43 say &ncs pict'999,999,999.99'
                          ENDI
                          if &nms<>0
                               @ 4+pd,63 say &nms pict'999,999,999.99'
                          ENDI
                          IF  .NOT. EOF()
                               SKIP
                               pd = pd+1
                          ELSE
                               EXIT
                          ENDI
                          IF pd=19
                               EXIT
                          ENDI
                     ENDD
                     GOTO x
                     SET COLOR TO G+/B
                     @ 5,2 say &zc1
                     @ 5,36 say &h
                     if &ncs<>0
                          @ 5,43 say &ncs pict'999,999,999.99'
                     ELSE
                          @ 5, 43 SAY '              '
                     ENDI
                     if &nms<>0
                          @ 5,63 say &nms pict'999,999,999.99'
                     ELSE
                          @ 5, 63 SAY '              '
                     ENDI
                     pd = 1
                ELSE
                     ?? CHR(7)
                ENDI
           CASE x=19
                IF p=2
                     ncs = 'ncs'
                     nms = 'bns'
                     SET COLOR TO W/B
                     GOTO (ys1-1)*18+1
                     x = RECNO()
                     pd = 1
                     SET COLOR TO G/B
                     @ 3, 44 SAY '年初未交数 '
                     @ 3, 63 SAY ' 本年应交数'
                     SET COLOR TO W/B
                     @ 5, 2 CLEAR TO 22, 33
                     @ 5, 36 CLEAR TO 22, 37
                     @ 5, 40 CLEAR TO 22, 58
                     @ 5, 62 CLEAR TO 22, 77
                     DO WHILE .T.
                          @ 4+pd,2 say &zc1
                          @ 4+pd,36 say &h
                          if &ncs<>0
                               @ 4+pd,43 say &ncs pict'999,999,999.99'
                          ENDI
                          if &nms<>0
                               @ 4+pd,63 say &nms pict'999,999,999.99'
                          ENDI
                          IF  .NOT. EOF()
                               SKIP
                               pd = pd+1
                          ELSE
                               EXIT
                          ENDI
                          IF pd=19
                               EXIT
                          ENDI
                     ENDD
                     GOTO x
                     SET COLOR TO G+/B
                     @ 5,2 say &zc1
                     @ 5,36 say &h
                     if &ncs<>0
                          @ 5,43 say &ncs pict'999,999,999.99'
                     ELSE
                          @ 5, 43 SAY '              '
                     ENDI
                     if &nms<>0
                          @ 5,63 say &nms pict'999,999,999.99'
                     ELSE
                          @ 5, 63 SAY '              '
                     ENDI
                     pd = 1
                     p = 1
                ELSE
                     ?? CHR(7)
                ENDI
           CASE x=4
                IF p=1
                     SET COLOR TO W/B
                     GOTO (ys1-1)*18+1
                     x = RECNO()
                     pd = 1
                     ncs = 'bnyj'
                     nms = 'nms'
                     SET COLOR TO G/B
                     @ 3, 44 SAY '本年已交数'
                     @ 3, 63 SAY ' 年末未交数 '
                     SET COLOR TO W/B
                     @ 5, 2 CLEAR TO 22, 33
                     @ 5, 36 CLEAR TO 22, 37
                     @ 5, 40 CLEAR TO 22, 58
                     @ 5, 62 CLEAR TO 22, 77
                     DO WHILE .T.
                          @ 4+pd,2 say &zc1
                          @ 4+pd,36 say &h
                          if &ncs<>0
                               @ 4+pd,43 say &ncs pict'999,999,999.99'
                          ENDI
                          if &nms<>0
                               @ 4+pd,63 say &nms pict'999,999,999.99'
                          ENDI
                          IF  .NOT. EOF()
                               SKIP
                               pd = pd+1
                          ELSE
                               EXIT
                          ENDI
                          IF pd=19
                               EXIT
                          ENDI
                     ENDD
                     GOTO x
                     SET COLOR TO G+/B
                     @ 5,2 say &zc1
                     @ 5,36 say &h
                     if &ncs<>0
                          @ 5,43 say &ncs pict'999,999,999.99'
                     ELSE
                          @ 5, 43 SAY '              '
                     ENDI
                     if &nms<>0
                          @ 5,63 say &nms pict'999,999,999.99'
                     ELSE
                          @ 5, 63 SAY '              '
                     ENDI
                     pd = 1
                     p = 2
                ELSE
                     ?? CHR(7)
                ENDI
           CASE x=27
                EXIT
           OTHE
                ?? CHR(7)
      ENDC
 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 
 SET CLOCK TO 23, 69
 ON KEY LABEL Escape do Rquit
 RETU
*

						