English
BCMXBCX.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：13k
源码类别：
企业管理
开发平台：
VFP
- 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 bcmxb
- 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 xm1
- @ 4+pd, 36 SAY h1
- IF bys1<>0
- @ 4+pd, 43 SAY bys1 PICTURE '999,999,999.99'
- ENDI
- IF ljs1<>0
- @ 4+pd, 63 SAY ljs1 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 xm1
- @ 5, 36 SAY h1
- IF bys1<>0
- @ 5, 43 SAY bys1 PICTURE '999,999,999.99'
- ELSE
- @ 5, 43 SAY ' '
- ENDI
- IF ljs1<>0
- @ 5, 63 SAY ljs1 PICTURE '999,999,999.99'
- ELSE
- @ 5, 63 SAY ' '
- ENDI
- pd = 1
- xm = 'xm1'
- h = 'h1'
- bys = 'bys1'
- ljs = 'ljs1'
- 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 &xm
- @ 4+pd,36 say &h
- if &bys<>0
- @ 4+pd,43 say &bys pict'999,999,999.99'
- ELSE
- @ 4+pd, 43 SAY ' '
- ENDI
- if &ljs<>0
- @ 4+pd,63 say &ljs 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 &xm
- @ 4+pd,36 say &h
- if &bys<>0
- @ 4+pd,43 say &bys pict'999,999,999.99'
- ELSE
- @ 4+pd, 43 SAY ' '
- ENDI
- if &ljs<>0
- @ 4+pd,63 say &ljs 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 &xm
- @ 4+pd,36 say &h
- if &bys<>0
- @ 4+pd,43 say &bys pict'999,999,999.99'
- ELSE
- @ 4+pd, 43 SAY ' '
- ENDI
- if &ljs<>0
- @ 4+pd,63 say &ljs pict'999,999,999.99'
- ELSE
- @ 4+pd, 63 SAY ' '
- ENDI
- SET COLOR TO G+/B
- SKIP
- pd = pd+1
- @ 4+pd,2 say &xm
- @ 4+pd,36 say &h
- if &bys<>0
- @ 4+pd,43 say &bys pict'999,999,999.99'
- ELSE
- @ 4+pd, 43 SAY ' '
- ENDI
- if &ljs<>0
- @ 4+pd,63 say &ljs 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 &xm
- @ 4+pd,36 say &h
- if &bys<>0
- @ 4+pd,43 say &bys pict'999,999,999.99'
- ELSE
- @ 4+pd, 43 SAY ' '
- ENDI
- if &ljs<>0
- @ 4+pd,63 say &ljs 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 &xm
- @ 5,36 say &h
- if &bys<>0
- @ 5,43 say &bys pict'999,999,999.99'
- ELSE
- @ 5, 43 SAY ' '
- ENDI
- if &ljs<>0
- @ 5,63 say &ljs pict'999,999,999.99'
- ELSE
- @ 5, 63 SAY ' '
- ENDI
- pd = 1
- ELSE
- ?? CHR(7)
- ENDI
- CASE x=3
- 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 &xm
- @ 4+pd,36 say &h
- if &bys<>0
- @ 4+pd,43 say &bys pict'999,999,999.99'
- ENDI
- if &ljs<>0
- @ 4+pd,63 say &ljs 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 &xm
- @ 5,36 say &h
- if &bys<>0
- @ 5,43 say &bys pict'999,999,999.99'
- ELSE
- @ 5, 43 SAY ' '
- ENDI
- if &ljs<>0
- @ 5,63 say &ljs pict'999,999,999.99'
- ELSE
- @ 5, 63 SAY ' '
- ENDI
- pd = 1
- ELSE
- ?? CHR(7)
- ENDI
- CASE x=19
- IF p=2
- xm = 'xm1'
- h = 'h1'
- bys = 'bys1'
- ljs = 'ljs1'
- SET COLOR TO W/B
- GOTO (ys1-1)*18+1
- x = RECNO()
- pd = 1
- SET COLOR TO G/B
- 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 &xm
- @ 4+pd,36 say &h
- if &bys<>0
- @ 4+pd,43 say &bys pict'999,999,999.99'
- ENDI
- if &ljs<>0
- @ 4+pd,63 say &ljs 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 &xm
- @ 5,36 say &h
- if &bys<>0
- @ 5,43 say &bys pict'999,999,999.99'
- ELSE
- @ 5, 43 SAY ' '
- ENDI
- if &ljs<>0
- @ 5,63 say &ljs 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
- xm = 'xm2'
- h = 'h2'
- bys = 'bys2'
- ljs = 'ljs2'
- 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 &xm
- @ 4+pd,36 say &h
- if &bys<>0
- @ 4+pd,43 say &bys pict'999,999,999.99'
- ENDI
- if &ljs<>0
- @ 4+pd,63 say &ljs 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 &xm
- @ 5,36 say &h
- if &bys<>0
- @ 5,43 say &bys pict'999,999,999.99'
- ELSE
- @ 5, 43 SAY ' '
- ENDI
- if &ljs<>0
- @ 5,63 say &ljs 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
- *
