www.pudn.com > jq_caiwu.ARJ > BCMXBCX.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 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 ys10
@ 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
*