www.pudn.com > jq_caiwu.ARJ > FZBCX.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
CLEA
p = 1
USE fzb
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, 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/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 zc
@ 4+pd, 36 SAY h1
IF ncs1<>0
@ 4+pd, 43 SAY ncs1 PICTURE '999,999,999.99'
ENDI
IF nms1<>0
@ 4+pd, 63 SAY nms1 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 zc
@ 5, 36 SAY h1
IF ncs1<>0
@ 5, 43 SAY ncs1 PICTURE '999,999,999.99'
ELSE
@ 5, 43 SAY ' '
ENDI
IF nms1<>0
@ 5, 63 SAY nms1 PICTURE '999,999,999.99'
ELSE
@ 5, 63 SAY ' '
ENDI
pd = 1
zc1 = 'zc'
h = 'h1'
ncs = 'ncs1'
nms = 'nms1'
DO WHILE .T.
x = INKEY(0)
DO CASE
CASE x=5
IF pd=1 .OR. RECNO()=1
?? CHR(7)
ELSE
SET COLOR TO W/N
@ 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/N
@ 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 G/N
@ 3, 44 SAY ' 上 年 数 '
@ 3, 63 SAY ' 本 年 数 '
SET COLOR TO W/N
@ 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
IF ys1=ys-1
SET COLOR TO G/N
@ 3, 44 SAY ' 数 量 '
@ 3, 63 SAY ' 金 额 '
ENDI
SET COLOR TO W/N
IF ys10
@ 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
zc1 = 'zc'
h = 'h1'
ncs = 'ncs1'
nms = 'nms1'
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, 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/N
GOTO (ys1-1)*18+1
x = RECNO()
pd = 1
zc1 = 'fz'
h = 'h2'
ncs = 'ncs2'
nms = 'nms2'
SET COLOR TO G/N
@ 3, 5 SAY ' 负债及所有者权益 '
SET COLOR TO W/N
@ 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
*