English
SYBCX.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：11k
源码类别：
企业管理
开发平台：
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 syb
- 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, 28 SAY '│'
- @ 3, 30 SAY '行'
- @ 3, 32 SAY '│'
- @ 3, 34 SAY ' 本 月 数'
- @ 3, 48 SAY '│'
- @ 3, 52 SAY ' 累 计 数'
- @ 3, 66 SAY '│'
- @ 3, 68 SAY '按销量平均'
- @ 3, 78 SAY '┃'
- @ 4, 0 SAY '┠─────────────┼─┼───────┼────────┼─────┨'
- pd = 4
- DO WHILE pd<23
- i = pd+1
- @ i, 0 SAY '┃'
- @ i, 28 SAY '│'
- @ i, 32 SAY '│'
- @ i, 48 SAY '│'
- @ i, 66 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 sm
- @ 4+pd, 30 SAY h
- IF bys<>0
- @ 4+pd, 34 SAY bys PICTURE '999,999,999.99'
- ENDI
- IF ljs<>0
- @ 4+pd, 52 SAY ljs PICTURE '999,999,999.99'
- ENDI
- IF pjs<>0
- @ 4+pd, 69 SAY pjs PICTURE '9999.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 sm
- @ 5, 30 SAY h
- IF bys<>0
- @ 5, 34 SAY bys PICTURE '999,999,999.99'
- ELSE
- @ 5, 34 SAY ' '
- ENDI
- IF ljs<>0
- @ 5, 52 SAY ljs PICTURE '999,999,999.99'
- ELSE
- @ 5, 52 SAY ' '
- ENDI
- IF pjs<>0
- @ 5, 69 SAY pjs PICTURE '9999.99'
- ELSE
- @ 5, 70 SAY ' '
- ENDI
- pd = 1
- 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 sm
- @ 4+pd, 30 SAY h
- IF bys<>0
- @ 4+pd, 34 SAY bys PICTURE '999,999,999.99'
- ELSE
- @ 4+pd, 34 SAY ' '
- ENDI
- IF ljs<>0
- @ 4+pd, 52 SAY ljs PICTURE '999,999,999.99'
- ELSE
- @ 4+pd, 52 SAY ' '
- ENDI
- IF pjs<>0
- @ 4+pd, 69 SAY pjs PICTURE '9999.99'
- ELSE
- @ 4+pd, 70 SAY ' '
- ENDI
- SET COLOR TO G+/B
- SKIP -1
- pd = pd-1
- @ 4+pd, 2 SAY sm
- @ 4+pd, 30 SAY h
- IF bys<>0
- @ 4+pd, 34 SAY bys PICTURE '999,999,999.99'
- ELSE
- @ 4+pd, 34 SAY ' '
- ENDI
- IF ljs<>0
- @ 4+pd, 52 SAY ljs PICTURE '999,999,999.99'
- ELSE
- @ 4+pd, 52 SAY ' '
- ENDI
- IF pjs<>0
- @ 4+pd, 69 SAY pjs PICTURE '9999.99'
- ELSE
- @ 4+pd, 70 SAY ' '
- ENDI
- ENDI
- CASE x=24
- IF pd=18 .OR. EOF()
- ?? CHR(7)
- ELSE
- SET COLOR TO W/B
- @ 4+pd, 2 SAY sm
- @ 4+pd, 30 SAY h
- IF bys<>0
- @ 4+pd, 34 SAY bys PICTURE '999,999,999.99'
- ELSE
- @ 4+pd, 34 SAY ' '
- ENDI
- IF ljs<>0
- @ 4+pd, 52 SAY ljs PICTURE '999,999,999.99'
- ELSE
- @ 4+pd, 52 SAY ' '
- ENDI
- IF pjs<>0
- @ 4+pd, 69 SAY pjs PICTURE '9999.99'
- ELSE
- @ 4+pd, 70 SAY ' '
- ENDI
- SET COLOR TO G+/B
- SKIP
- pd = pd+1
- @ 4+pd, 2 SAY sm
- @ 4+pd, 30 SAY h
- IF bys<>0
- @ 4+pd, 34 SAY bys PICTURE '999,999,999.99'
- ELSE
- @ 4+pd, 34 SAY ' '
- ENDI
- IF ljs<>0
- @ 4+pd, 52 SAY ljs PICTURE '999,999,999.99'
- ELSE
- @ 4+pd, 52 SAY ' '
- ENDI
- IF pjs<>0
- @ 4+pd, 69 SAY pjs PICTURE '9999.99'
- ELSE
- @ 4+pd, 70 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, 27
- @ 5, 30 CLEAR TO 22, 31
- @ 5, 34 CLEAR TO 22, 47
- @ 5, 52 CLEAR TO 22, 65
- @ 5, 69 CLEAR TO 22, 76
- DO WHILE .T.
- @ 4+pd, 2 SAY sm
- @ 4+pd, 30 SAY h
- IF bys<>0
- @ 4+pd, 34 SAY bys PICTURE '999,999,999.99'
- ELSE
- @ 4+pd, 34 SAY ' '
- ENDI
- IF ljs<>0
- @ 4+pd, 52 SAY ljs PICTURE '999,999,999.99'
- ELSE
- @ 4+pd, 52 SAY ' '
- ENDI
- IF pjs<>0
- @ 4+pd, 69 SAY pjs PICTURE '9999.99'
- ELSE
- @ 4+pd, 70 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 sm
- @ 5, 30 SAY h
- IF bys<>0
- @ 5, 34 SAY bys PICTURE '999,999,999.99'
- ELSE
- @ 5, 34 SAY ' '
- ENDI
- IF ljs<>0
- @ 5, 52 SAY ljs PICTURE '999,999,999.99'
- ELSE
- @ 5, 52 SAY ' '
- ENDI
- IF pjs<>0
- @ 5, 69 SAY pjs PICTURE '9999.99'
- ELSE
- @ 5, 70 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, 27
- @ 5, 30 CLEAR TO 22, 31
- @ 5, 34 CLEAR TO 22, 47
- @ 5, 52 CLEAR TO 22, 65
- @ 5, 69 CLEAR TO 22, 77
- DO WHILE .T.
- @ 4+pd, 2 SAY sm
- @ 4+pd, 30 SAY h
- IF bys<>0
- @ 4+pd, 34 SAY bys PICTURE '999,999,999.99'
- ENDI
- IF ljs<>0
- @ 4+pd, 52 SAY ljs PICTURE '999,999,999.99'
- ENDI
- IF pjs<>0
- @ 4+pd, 69 SAY pjs PICTURE '9999.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 sm
- @ 5, 30 SAY h
- IF bys<>0
- @ 5, 34 SAY bys PICTURE '999,999,999.99'
- ELSE
- @ 5, 34 SAY ' '
- ENDI
- IF ljs<>0
- @ 5, 52 SAY ljs PICTURE '999,999,999.99'
- ELSE
- @ 5, 52 SAY ' '
- ENDI
- IF pjs<>0
- @ 5, 69 SAY pjs PICTURE '9999.99'
- ELSE
- @ 5, 70 SAY ' '
- ENDI
- pd = 1
- 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
- *
