www.pudn.com > jq_caiwu.ARJ > CSHXG.PRG
SET COLOR TO W/N
CLOS DATABASES
CLEA
SELE 1
USE kmk
SELE 2
USE pzk
xg = 0
SET COLOR TO GR/N
@ 0, 0 SAY 'ＪＱ软件工作室'
@ 0, 67 SAY 'ＪＱ财务系统'
SET COLOR TO G/N
@ 0, 25 SAY '初 始 化 录 入 接 口'
@ 1, 0 SAY '================================================================================'
@ 2, 0 SAY ' 借 方 累 计 贷 方 累 计 年 初 借 方 年 初 贷 方'
@ 4, 0 SAY '================================================================================'
@ 5, 0 SAY '科目代码'
@ 5, 10 SAY ' 总 帐 科 目'
@ 5, 31 SAY ' 明 细 科 目'
@ 5, 51 SAY ' 借方余额'
@ 5, 65 SAY ' 贷方余额'
? '================================================================================'
pd = 0
SET COLOR TO G/N
@ 23, 0 SAY '=================================================================================='
SET COLOR TO B/GR
@ 24, 0 SAY '↑上笔:↓下笔: PgUp上页: PgDn下页: Home整理: F6增加: F5修改: Delete删除: 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.
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
ENDI
ELSE
IF ye>=0
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
ELSE
@ 6+pd, 52 SAY -ye
ENDI
ENDI
IF .NOT. EOF()
SKIP
pd = pd+1
ELSE
EXIT
ENDI
IF pd=17
EXIT
ENDI
ENDD
GOTO TOP
pd = 1
SET COLOR TO G+/B
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
ENDI
ELSE
IF ye>=0
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
ELSE
@ 6+pd, 52 SAY -ye
ENDI
ENDI
SET COLOR TO W/N
@ 3, 1 SAY jje
@ 3, 22 SAY dje
@ 3, 45 SAY njye
@ 3, 64 SAY ndye
DO WHILE .T.
x = INKEY(0)
DO CASE
CASE x=1
SAVE SCREEN TO crt
IF EOF()
x = RECNO()-1
pd = pd-1
ELSE
ENDI
SET COLOR TO W+/B
@ 7, 20 CLEAR TO 10, 50
x1 = 7
x2 = 10
y1 = 22
y2 = 48
DO box-1
@ 8, 26 SAY ' 正在进行数据整理,'
@ 9, 26 SAY ' 请 稍 候 ......'
DO cshzl
GOTO x
REST SCREEN FROM crt
SET COLOR TO G+/B
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
ENDI
ELSE
IF ye>=0
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
ELSE
@ 6+pd, 52 SAY -ye
ENDI
ENDI
SET COLOR TO W/N
@ 3, 1 SAY jje
@ 3, 22 SAY dje
@ 3, 45 SAY njye
@ 3, 64 SAY ndye
CASE x=-4
DO cshxg-1
CASE x=-5
IF pd<16
xg = 1
IF EOF() .AND. .NOT. BOF()
x1 = RECNO()-1
pd = pd-1
ELSE
x1 = RECNO()
ENDI
a1 = pd
IF EOF()
a1 = a1+1
ENDI
SET COLOR TO W/N
@ 6+pd, 0 CLEAR TO 22, 79
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
ENDI
ELSE
IF ye>=0
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
ELSE
@ 6+pd, 52 SAY -ye
ENDI
ENDI
pd = pd+1
DO WHILE .T.
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
ENDI
ELSE
IF ye>=0
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
ELSE
@ 6+pd, 52 SAY -ye
ENDI
ENDI
IF .NOT. EOF()
SKIP
pd = pd+1
ELSE
EXIT
ENDI
IF pd=17
EXIT
ENDI
ENDD
pd = a1
@ 6+pd, 0 SAY ' '
IF EOF() .AND. BOF()
GOTO TOP
ELSE
GOTO x1
ENDI
DO cshsr-1
SELE 2
GOTO BOTTOM
pd1 = RECNO()
pd1 = pd1/16
pd2 = INT(pd1)
ys = pd1-pd2
IF ys=0
ys = pd2
ELSE
ys = pd2+1
ENDI
IF BOF()
GOTO TOP
ELSE
IF x1<=0
x1 = 1
ENDI
IF pd<=0
pd = 1
ENDI
IF .NOT. RECNO()=1
GOTO x1+1
ELSE
GOTO BOTTOM
ENDI
ENDI
SET COLOR TO W/N
@ 6+pd, 0 SAY SPACE(80)
@ 3, 0 SAY SPACE(80)
SET COLOR TO G+/B
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
@ 6+pd, 66 SAY ' '
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
@ 6+pd, 52 SAY ' '
ENDI
ELSE
IF ye>=0
@ 6+pd, 52 SAY ' '
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
ELSE
@ 6+pd, 66 SAY ' '
@ 6+pd, 52 SAY -ye
ENDI
ENDI
SET COLOR TO W/N
@ 3, 1 SAY jje
@ 3, 22 SAY dje
@ 3, 43 SAY ' '
@ 3, 45 SAY njye
@ 3, 62 SAY ' '
@ 3, 65 SAY ndye
ELSE
?? CHR(7)
ENDI
CASE x=5
IF pd=1 .OR. RECNO()=1
?? CHR(7)
ELSE
SET COLOR TO W/N
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
@ 6+pd, 66 SAY ' '
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
@ 6+pd, 52 SAY ' '
ENDI
ELSE
IF ye>=0
@ 6+pd, 52 SAY ' '
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
ELSE
@ 6+pd, 52 SAY -ye
@ 6+pd, 66 SAY ' '
ENDI
ENDI
SET COLOR TO W/N
@ 3, 1 SAY jje
@ 3, 22 SAY dje
@ 3, 45 SAY njye
@ 3, 65 SAY ndye
SET COLOR TO G+/B
IF .NOT. BOF()
SKIP -1
pd = pd-1
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
@ 6+pd, 66 SAY ' '
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
@ 6+pd, 52 SAY ' '
ENDI
ELSE
IF ye>=0
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
@ 6+pd, 52 SAY ' '
ELSE
@ 6+pd, 52 SAY -ye
@ 6+pd, 66 SAY ' '
ENDI
ENDI
SET COLOR TO W/N
@ 3, 1 SAY jje
@ 3, 22 SAY dje
@ 3, 45 SAY njye
@ 3, 65 SAY ndye
ENDI
ENDI
CASE x=7
xg = 1
IF EOF() .AND. .NOT. BOF()
?? CHR(7)
ELSE
x1 = RECNO()
x2 = x1
GOTO BOTTOM
IF x1=RECNO()
x2 = x1-1
IF pd>1
pd = pd-1
ENDI
ENDI
IF BOF()
GOTO TOP
ELSE
GOTO x1
ENDI
a1 = LTRIM(TRIM(kmdm))
DELE
PACK
SELE 1
LOCA ALL FOR a1$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(a1)))
DELE
PACK
SELE 2
IF BOF()
GOTO TOP
ELSE
GOTO x2
ENDI
pd1 = pd
SET COLOR TO W/N
@ 6+pd, 0 CLEAR TO 22, 79
DO WHILE .T.
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
ENDI
ELSE
IF ye>=0
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
ELSE
@ 6+pd, 52 SAY -ye
ENDI
ENDI
IF .NOT. EOF()
SKIP
pd = pd+1
ELSE
EXIT
ENDI
IF pd=17
EXIT
ENDI
ENDD
GOTO BOTTOM
pd = RECNO()
pd = pd/16
pd2 = INT(pd)
ys = pd-pd2
IF ys=0
ys = pd2
ELSE
ys = pd2+1
ENDI
IF ys1>ys
ys1 = ys
GOTO (ys1-1)*16+1
x2 = RECNO()
pd = 1
SET COLOR TO W/N
@ 7, 0 CLEAR TO 22, 79
DO WHILE .T.
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
ENDI
ELSE
IF ye>=0
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
ELSE
@ 6+pd, 52 SAY -ye
ENDI
ENDI
SKIP
pd = pd+1
IF pd=17
EXIT
ENDI
ENDD
GOTO x2
ELSE
IF BOF()
GOTO TOP
ELSE
GOTO x2
ENDI
ENDI
pd = pd1
SET COLOR TO G+/B
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
ENDI
ELSE
IF ye>=0
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
ELSE
@ 6+pd, 52 SAY -ye
ENDI
ENDI
SET COLOR TO W/N
@ 3, 1 SAY jje
@ 3, 22 SAY dje
@ 3, 45 SAY njye
@ 3, 65 SAY ndye
ENDI
CASE x=24
IF pd=16 .OR. EOF()
?? CHR(7)
ELSE
SET COLOR TO W/N
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
@ 6+pd, 66 SAY ' '
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
@ 6+pd, 52 SAY ' '
ENDI
ELSE
IF ye>=0
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
@ 6+pd, 52 SAY ' '
ELSE
@ 6+pd, 52 SAY -ye
@ 6+pd, 66 SAY ' '
ENDI
ENDI
SET COLOR TO W/N
@ 3, 1 SAY jje
@ 3, 22 SAY dje
@ 3, 45 SAY njye
@ 3, 65 SAY ndye
SET COLOR TO G+/B
SKIP
pd = pd+1
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
@ 6+pd, 66 SAY ' '
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
@ 6+pd, 52 SAY ' '
ENDI
ELSE
IF ye>=0
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
@ 6+pd, 52 SAY ' '
ELSE
@ 6+pd, 52 SAY -ye
@ 6+pd, 66 SAY ' '
ENDI
ENDI
SET COLOR TO W/N
@ 3, 1 SAY jje
@ 3, 22 SAY dje
@ 3, 45 SAY njye
@ 3, 65 SAY ndye
ENDI
CASE x=18
IF ys1>1
ys1 = ys1-1
GOTO ys1*16
SKIP -15
pd = 1
SET COLOR TO W/N
@ 7, 0 CLEAR TO 22, 79
DO WHILE .T.
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
ENDI
ELSE
IF ye>=0
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
ELSE
@ 6+pd, 52 SAY -ye
ENDI
ENDI
IF .NOT. EOF()
SKIP
pd = pd+1
ELSE
EXIT
ENDI
IF pd=17
EXIT
ENDI
ENDD
SKIP -16
SET COLOR TO G+/B
pd = 1
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
ENDI
ELSE
IF ye>=0
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
ELSE
@ 6+pd, 52 SAY -ye
ENDI
ENDI
SET COLOR TO W/N
@ 3, 1 SAY jje
@ 3, 22 SAY dje
@ 3, 45 SAY njye
@ 3, 65 SAY ndye
pd = 1
ELSE
?? CHR(7)
ENDI
CASE x=3
SET COLOR TO W/N
IF ys1=0
@ 6+pd, 52 SAY ye
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
ENDI
ELSE
IF ye>=0
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
ELSE
@ 6+pd, 52 SAY -ye
ENDI
ENDI
IF .NOT. EOF()
SKIP
pd = pd+1
ELSE
EXIT
ENDI
IF pd=17
EXIT
ENDI
ENDD
GOTO x
SET COLOR TO G+/B
pd = 1
@ 6+pd, 0 SAY kmdm
@ 6+pd, 10 SAY zzkm
@ 6+pd, 31 SAY mxkm
IF jhd='+'
IF ye>=0
@ 6+pd, 52 SAY ye
ELSE
@ 6+pd, 66 SAY -ye PICTURE '99999999999.99'
ENDI
ELSE
IF ye>=0
@ 6+pd, 66 SAY ye PICTURE '99999999999.99'
ELSE
@ 6+pd, 52 SAY -ye
ENDI
ENDI
SET COLOR TO W/N
@ 3, 1 SAY jje
@ 3, 22 SAY dje
@ 3, 45 SAY njye
@ 3, 65 SAY ndye
pd = 1
ELSE
?? CHR(7)
ENDI
CASE x=27
EXIT
OTHE
?? CHR(7)
ENDC
ENDD
IF xg=1
SET COLOR TO W+/B
@ 7, 20 CLEAR TO 10, 50
x1 = 7
x2 = 10
y1 = 22
y2 = 48
DO box-1
@ 8, 28 SAY '正在进行科目整理,'
@ 9, 28 SAY '请 稍 候 ......'
DO kmkzl
ENDI
CLOS DATABASES
SET COLOR TO W/N
RETU
*