企业管理

开发平台：
VFP

XJBCX.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/N
 CLOS DATABASES
 CLEA
 p = 1
 wj = 'bdb.dbf'
 IF FILE(wj)
      use &wj
 ELSE
      ! copy cwbdb.dbf &wj >nul
      use &wj
 ENDI
 SET COLOR TO GR/N
 @ 1, 0 SAY 'ＪＱ软件工作室'
 @ 1, 67 SAY 'ＪＱ财务系统'
 SET COLOR TO G/N
 @ 0, 25 SAY '现  金  流  量  表  '
 @ 2, 0 SAY '┏━━━━━━━━━━━━━━━━━━━━━━━━━━┯━━┯━━━━━━━━┓'
 @ 3, 0 SAY '┃'
 @ 3, 5 SAY '             项             目    '
 @ 3, 54 SAY '│'
 @ 3, 57 SAY '行'
 @ 3, 60 SAY '│'
 SET COLOR TO GR+/N
 @ 3, 63 SAY ' 金      额 '
 SET COLOR TO G/N
 @ 3, 78 SAY '┃'
 @ 4, 0 SAY '┠──────────────────────────┼──┼────────┨'
 pd = 4
 DO WHILE pd<23
      i = pd+1
      @ i, 0 SAY '┃'
      @ i, 54 SAY '│'
      @ i, 60 SAY '│'
      @ i, 78 SAY '┃'
      pd = pd+1
 ENDD
 @ 23, 0 SAY '┗━━━━━━━━━━━━━━━━━━━━━━━━━━┷━━┷━━━━━━━━┛'
 SET COLOR TO B/GR
 @ 24, 0 SAY '←左栏:→右栏:|←左页:右页→|:↑上笔:↓下笔:PgUp上页:PgDn 下页:Home计算:Esc退出'
 SET COLOR TO W/N
 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 sm1
      @ 4+pd, 57 SAY h1
      IF je1<>0
           @ 4+pd, 63 SAY je1 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 sm1
 @ 5, 57 SAY h1
 IF je1<>0
      @ 5, 63 SAY je1 PICTURE '999,999,999.99'
 ELSE
      @ 5, 63 SAY '              '
 ENDI
 pd = 1
 zc1 = 'sm1'
 h = 'h1'
 ncs = 'je1'
 zy = 1
 p = 1
 DO WHILE .T.
      x = INKEY(0)
      DO CASE
           CASE x=46 .OR. x=45 .OR. x>47 .AND. x<58
                a1 = 0.00
                IF pp1='1' .AND. p=1 .OR. p=2 .AND. pp2='1' .OR. EOF()
                     ?? CHR(7)
                     LOOP
                ENDI
                KEYB CHR(x)
                SET COLOR TO N/W
                @ 4+pd, 63 SAY '           '
                @ 4+pd, 63 GET a1 PICTURE '@bz 99999999999.99'
                READ
                repl &ncs with a1 
                SET COLOR TO W/N
                xx = RECNO()
                pd2 = pd
                SELE 3
                USE xjbjs
                DO jsgs
                SELE 1
                IF ys1=ys
                     GOTO (ys-1)*18+1
                ELSE
                     GOTO (ys1)*18
                     SKIP -17
                ENDI
                pd = 1
                SET COLOR TO W/N
                DO WHILE .T.
                     if &ncs<>0
                          @ 4+pd,63 say &ncs 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
                GOTO xx
                pd = pd2
                IF pd=18 .OR. EOF()
                     ?? CHR(7)
                ELSE
                     SET COLOR TO W/N
                     @ 4+pd,2 say &zc1
                     @ 4+pd,57 say &h
                     if &ncs<>0
                          @ 4+pd,63 say &ncs pict'999,999,999.99'
                     ELSE
                          @ 4+pd, 62 SAY '               '
                     ENDI
                     SET COLOR TO G+/B
                     SKIP
                     pd = pd+1
                     @ 4+pd,2 say &zc1
                     @ 4+pd,57 say &h
                     if &ncs<>0
                          @ 4+pd,63 say &ncs pict'999,999,999.99'
                     ELSE
                          @ 4+pd, 63 SAY '              '
                     ENDI
                ENDI
           CASE x=5
                IF pd=1 .OR. RECNO()=1
                     ?? CHR(7)
                ELSE
                     SET COLOR TO W/N
                     @ 4+pd,2 say &zc1
                     @ 4+pd,57 say &h
                     if &ncs<>0
                          @ 4+pd,63 say &ncs 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,57 say &h
                     if &ncs<>0
                          @ 4+pd,63 say &ncs 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/N
                     @ 4+pd,2 say &zc1
                     @ 4+pd,57 say &h
                     if &ncs<>0
                          @ 4+pd,63 say &ncs 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,57 say &h
                     if &ncs<>0
                          @ 4+pd,63 say &ncs 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/N
                     @ 5, 2 CLEAR TO 22, 52
                     @ 5, 56 CLEAR TO 22, 58
                     @ 5, 62 CLEAR TO 22, 77
                     DO WHILE .T.
                          @ 4+pd,2 say &zc1
                          @ 4+pd,57 say &h
                          if &ncs<>0
                               @ 4+pd,63 say &ncs 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,57 say &h
                     if &ncs<>0
                          @ 5,63 say &ncs pict'999,999,999.99'
                     ELSE
                          @ 5, 63 SAY '              '
                     ENDI
                     pd = 1
                ELSE
                     ?? CHR(7)
                ENDI
           CASE x=3
                SET COLOR TO W/N
                IF ys1<ys
                     ys1 = ys1+1
                     GOTO (ys1-1)*18+1
                     x = RECNO()
                     pd = 1
                     SET COLOR TO W/N
                     @ 5, 2 CLEAR TO 22, 52
                     @ 5, 56 CLEAR TO 22, 58
                     @ 5, 62 CLEAR TO 22, 77
                     DO WHILE .T.
                          @ 4+pd,2 say &zc1
                          @ 4+pd,57 say &h
                          if &ncs<>0
                               @ 4+pd,63 say &ncs 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,57 say &h
                     if &ncs<>0
                          @ 5,63 say &ncs pict'999,999,999.99'
                     ELSE
                          @ 5, 63 SAY '              '
                     ENDI
                     pd = 1
                ELSE
                     ?? CHR(7)
                ENDI
           CASE x=15
                IF p=2
                     zc1 = 'sm1'
                     h = 'h1'
                     ncs = 'je1'
                     SET COLOR TO W/N
                     GOTO (ys1-1)*18+1
                     x = RECNO()
                     pd = 1
                     SET COLOR TO G/N
                     @ 3, 5 SAY '          项        目                      '
                     SET COLOR TO W/N
                     @ 5, 2 CLEAR TO 22, 52
                     @ 5, 56 CLEAR TO 22, 58
                     @ 5, 62 CLEAR TO 22, 77
                     DO WHILE .T.
                          @ 4+pd,2 say &zc1
                          @ 4+pd,57 say &h
                          if &ncs<>0
                               @ 4+pd,63 say &ncs 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,57 say &h
                     if &ncs<>0
                          @ 5,63 say &ncs pict'999,999,999.99'
                     ELSE
                          @ 5, 63 SAY '              '
                     ENDI
                     pd = 1
                     p = 1
                ELSE
                     ?? CHR(7)
                ENDI
           CASE x=9
                IF p=1
                     SET COLOR TO W/N
                     GOTO (ys1-1)*18+1
                     x = RECNO()
                     pd = 1
                     zc1 = 'sm2'
                     h = 'h2'
                     ncs = 'je2'
                     SET COLOR TO G/N
                     @ 3, 5 SAY '           补充资料项目                 '
                     SET COLOR TO W/N
                     @ 5, 2 CLEAR TO 22, 52
                     @ 5, 56 CLEAR TO 22, 58
                     @ 5, 62 CLEAR TO 22, 77
                     DO WHILE .T.
                          @ 4+pd,2 say &zc1
                          @ 4+pd,57 say &h
                          if &ncs<>0
                               @ 4+pd,63 say &ncs 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,57 say &h
                     if &ncs<>0
                          @ 5,63 say &ncs 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
*

						