English
CSHXG.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：24k
源码类别：
企业管理
开发平台：
VFP
- 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<ys
- ys1 = ys1+1
- GOTO (ys1-1)*16+1
- x = 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
- 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
- *
