English
KMGL.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：36k
源码类别：
企业管理
开发平台：
VFP
- HIDE POPUP pop1
- HIDE MENU mainmenu
- SET CLOCK TO 0, 69
- DEAC WINDOW win
- ON KEY
- SET SYSMENU OFF
- SET COLOR TO W/N
- CLOS ALL
- CLEA
- SELE 1
- USE kmk
- xg = 0
- SET COLOR TO GR/B
- @ 1, 0 SAY rdwmc PICTURE '99999999999999999999999'
- @ 1, 67 SAY 'ＪＱ财务系统'
- SET COLOR TO G/N
- @ 0, 25 SAY '科 目 维 护 、 管 理'
- @ 2, 0 SAY '================================================================================'
- @ 3, 0 SAY '科目代码'
- @ 3, 10 SAY ' 一 级 科 目 '
- @ 3, 31 SAY ' 二 级 科 目'
- @ 3, 52 SAY ' 三 级 科 目'
- @ 4, 0 SAY '================================================================================'
- pd = 4
- SET COLOR TO G/N
- @ 23, 0 SAY '================================================================================'
- SET COLOR TO B/GR
- @ 24, 0 SAY ' ↑上笔: ↓下笔: PgUp上页: PgDn下页: F5整理: F6增加: Delete删除: ^P打印: Esc退出 '
- SET COLOR TO W/N
- GOTO BOTTOM
- pd = RECNO()
- pd = pd/18
- pd1 = INT(pd)
- ys = pd-pd1
- IF ys=0
- ys = pd1
- ELSE
- ys = pd1+1
- ENDI
- km1 = ' '
- km2 = ' '
- GOTO TOP
- pd = 1
- ys1 = 1
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- DO WHILE .T.
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- @ 4+pd, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ 4+pd, 11 SAY kmmc
- CASE pd2=7
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY kmmc
- CASE pd2=9
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY km2
- @ 4+pd, 55 SAY kmmc
- ENDC
- IF .NOT. EOF()
- SKIP
- pd = pd+1
- ELSE
- EXIT
- ENDI
- IF pd=19
- EXIT
- ENDI
- ENDD
- GOTO TOP
- pd = 1
- SET COLOR TO GR+/BG
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- @ 4+pd, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ 4+pd, 11 SAY kmmc
- @ 4+pd, 33 SAY ' '
- @ 4+pd, 55 SAY ' '
- CASE pd2=7
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY kmmc
- @ 4+pd, 55 SAY ' '
- CASE pd2=9
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY km2
- @ 4+pd, 55 SAY kmmc
- ENDC
- DO WHILE .T.
- x = INKEY(0)
- DO CASE
- CASE x=16
- hc = pd
- eof = .F.
- IF EOF()
- eof = .T.
- hc = hc-1
- ENDI
- x = RECNO()
- SAVE SCREEN TO pm
- DO kmdy
- REST SCREEN FROM pm
- IF eof
- GOTO BOTTOM
- ELSE
- GOTO x
- ENDI
- pd = hc
- CASE x=1
- SAVE SCREEN TO crt
- xg = 0
- x = RECNO()
- SET COLOR TO W+/BG
- @ 7, 20 CLEAR TO 10, 50
- x1 = 7
- x2 = 10
- y1 = 22
- y2 = 48
- DO box-1
- @ 8, 26 SAY ' 正在进行科目整理,'
- @ 9, 26 SAY ' 请 稍 候 ......'
- DO kmkzl
- GOTO x
- REST SCREEN FROM crt
- SET COLOR TO GR+/BG
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- @ 4+pd, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ 4+pd, 11 SAY kmmc
- @ 4+pd, 33 SAY ' '
- @ 4+pd, 55 SAY ' '
- CASE pd2=7
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY kmmc
- @ 4+pd, 55 SAY ' '
- CASE pd2=9
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY km2
- @ 4+pd, 55 SAY kmmc
- ENDC
- CASE x=-5
- xg = 1
- IF EOF() .AND. .NOT. BOF()
- x1 = RECNO()-1
- pd = pd-1
- ELSE
- x1 = RECNO()
- ENDI
- DO WHILE .T.
- pd1 = ' '
- SET COLOR TO RB+/GR
- @ 4+pd, 0 SAY '' GET pd1 PICTURE '999999999'
- READ
- pd1 = TRIM(pd1)
- pd1 = LTRIM(pd1)
- xx = pd1
- IF 7<>LEN(pd1) .AND. 9<>LEN(pd1)
- SET COLOR TO BG+/RB
- ? CHR(7)
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 1 SAY ' 编号不正确,应是7或9个数字'
- @ 2, 5 SAY ' 按任意键继续......'
- a1 = INKEY(0)
- SET COLOR TO W/N
- @ 0, 0 CLEAR TO 3, 28
- SET COLOR TO GR/B
- @ 1, 0 SAY '广西盐业公司'
- SET COLOR TO G/N
- @ 0, 25 SAY '科 目 维 护 、 管 理'
- @ 2, 0 SAY '================================================================================'
- @ 3, 0 SAY '科目代码'
- @ 3, 11 SAY ' 一 级 科 目'
- LOOP
- ENDI
- IF LEN(pd1)>3
- pd2 = SUBSTR(pd1, 1, 3)
- LOCA ALL FOR pd2$kmdm .AND. LEN(LTRIM(TRIM(pd2)))=LEN(LTRIM(TRIM(kmdm)))
- IF EOF()
- ?? CHR(7)
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 7 SAY '没有上级科目!'
- @ 2, 5 SAY '按任意键继续......'
- a1 = INKEY(0)
- SET COLOR TO W/N
- @ 0, 0 CLEAR TO 3, 28
- SET COLOR TO GR/B
- @ 1, 0 SAY '广西盐业公司'
- SET COLOR TO G/N
- @ 0, 25 SAY '科 目 维 护 、 管 理'
- @ 2, 0 SAY '================================================================================'
- @ 3, 0 SAY '科目代码'
- @ 3, 11 SAY ' 一 级 科 目'
- LOOP
- ENDI
- IF LEN(pd1)>7
- pd2 = SUBSTR(pd1, 1, 7)
- LOCA ALL FOR pd2$kmdm .AND. LEN(LTRIM(TRIM(pd2)))=LEN(LTRIM(TRIM(kmdm)))
- IF EOF()
- ?? CHR(7)
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 7 SAY '没有上级科目!'
- @ 2, 5 SAY '按任意键继续......'
- a1 = INKEY(0)
- SET COLOR TO W/N
- @ 0, 0 CLEAR TO 3, 28
- SET COLOR TO GR/B
- @ 1, 0 SAY '广西盐业公司'
- SET COLOR TO G/N
- @ 0, 25 SAY '科 目 维 护 、 管 理'
- @ 2, 0 SAY '================================================================================'
- @ 3, 0 SAY '科目代码'
- @ 3, 11 SAY ' 一 级 科 目'
- LOOP
- ENDI
- ENDI
- ENDI
- LOCA ALL FOR pd1$kmdm
- IF .NOT. EOF()
- pd1 = 'F'
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 5 SAY '此码科目库原已建立,'
- @ 2, 5 SAY '是否输入新的号码?'
- @ 3, 5 SAY ' Y=是,其他=否?' GET pd1
- READ
- SET COLOR TO W/N
- @ 0, 0 CLEAR TO 3, 28
- SET COLOR TO GR/B
- @ 1, 0 SAY '广西盐业公司'
- SET COLOR TO G/N
- @ 0, 25 SAY '科 目 维 护 、 管 理'
- @ 2, 0 SAY '================================================================================'
- @ 3, 0 SAY '科目代码'
- @ 3, 11 SAY ' 一 级 科 目'
- IF pd1='Y' .OR. pd1='y'
- LOOP
- ELSE
- EXIT
- ENDI
- ENDI
- APPE BLANK
- GOTO BOTTOM
- REPL kmdm WITH xx
- IF 3<LEN(xx)
- pd1 = SUBSTR(xx, 1, 3)
- LOCA ALL FOR pd1$kmdm
- pd1 = slbz
- x = jhd
- GOTO BOTTOM
- REPL slbz WITH pd1
- REPL jhd WITH x
- ENDI
- mc = ' '
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 1 SAY '请输入新增的科目名称:'
- @ 2, 1 SAY ' ' GET mc
- READ
- SET COLOR TO W/N
- @ 0, 0 CLEAR TO 3, 28
- SET COLOR TO GR/B
- @ 1, 0 SAY '广西盐业公司'
- SET COLOR TO G/N
- @ 0, 25 SAY '科 目 维 护 、 管 理'
- @ 2, 0 SAY '================================================================================'
- @ 3, 0 SAY '科目代码'
- @ 3, 11 SAY ' 一 级 科 目'
- REPL kmmc WITH mc
- EXIT
- ENDD
- GOTO BOTTOM
- pd1 = RECNO()
- pd1 = pd1/18
- 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
- GOTO x1
- ENDI
- SET COLOR TO GR+/BG
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- @ 4+pd, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ 4+pd, 11 SAY kmmc
- @ 4+pd, 33 SAY ' '
- @ 4+pd, 55 SAY ' '
- CASE pd2=7
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY kmmc
- @ 4+pd, 55 SAY ' '
- CASE pd2=9
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY km2
- @ 4+pd, 55 SAY kmmc
- ENDC
- CASE x=5
- IF pd=1 .OR. RECNO()=1
- ?? CHR(7)
- ELSE
- SET COLOR TO W/N
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- @ 4+pd, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ 4+pd, 11 SAY kmmc
- @ 4+pd, 33 SAY ' '
- @ 4+pd, 55 SAY ' '
- CASE pd2=7
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY kmmc
- @ 4+pd, 55 SAY ' '
- CASE pd2=9
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY km2
- @ 4+pd, 55 SAY kmmc
- ENDC
- SET COLOR TO GR+/BG
- IF .NOT. BOF()
- SKIP -1
- pd = pd-1
- x = RECNO()
- IF LEN(LTRIM(TRIM(kmdm)))>3
- pd3 = SUBSTR(LTRIM(kmdm), 1, 3)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km1 = kmmc
- ENDI
- GOTO x
- IF LEN(LTRIM(TRIM(kmdm)))>7
- pd3 = SUBSTR(LTRIM(kmdm), 1, 7)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km2 = kmmc
- ENDI
- GOTO x
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- @ 4+pd, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ 4+pd, 11 SAY kmmc
- @ 4+pd, 33 SAY ' '
- @ 4+pd, 55 SAY ' '
- CASE pd2=7
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY kmmc
- @ 4+pd, 55 SAY ' '
- CASE pd2=9
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY km2
- @ 4+pd, 55 SAY kmmc
- ENDC
- ENDI
- ENDI
- CASE x=7
- IF err='1'
- ?? CHR(7)
- SAVE SCREEN TO crt
- SET COLOR TO W+/BG
- @ 7, 20 CLEAR TO 10, 50
- x1 = 7
- x2 = 10
- y1 = 22
- y2 = 48
- DO box-1
- @ 8, 26 SAY '本科目为系统级科目,'
- @ 9, 26 SAY '请勿删除 ... ... '
- i = INKEY(0)
- REST SCREEN FROM crt
- ELSE
- 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
- DELE
- PACK
- IF BOF()
- GOTO TOP
- ELSE
- GOTO x2
- ENDI
- pd1 = pd
- SET COLOR TO W/N
- @ 4+pd, 0 CLEAR TO 22, 79
- x = RECNO()
- IF LEN(LTRIM(TRIM(kmdm)))>3
- pd3 = SUBSTR(LTRIM(kmdm), 1, 3)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))>7
- pd3 = SUBSTR(LTRIM(kmdm), 1, 7)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km2 = kmmc
- ENDI
- GOTO x
- DO WHILE .T.
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- @ 4+pd, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ 4+pd, 11 SAY kmmc
- @ 4+pd, 33 SAY ' '
- @ 4+pd, 55 SAY ' '
- CASE pd2=7
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY kmmc
- @ 4+pd, 55 SAY ' '
- CASE pd2=9
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY km2
- @ 4+pd, 55 SAY kmmc
- ENDC
- IF .NOT. EOF()
- SKIP
- pd = pd+1
- ELSE
- EXIT
- ENDI
- IF pd=19
- EXIT
- ENDI
- ENDD
- GOTO BOTTOM
- pd = RECNO()
- pd = pd/18
- pd2 = INT(pd)
- ys = pd-pd2
- IF ys=0
- ys = pd2
- ELSE
- ys = pd2+1
- ENDI
- IF ys1>ys
- ys1 = ys
- GOTO (ys1-1)*18+1
- x2 = RECNO()
- pd = 1
- SET COLOR TO W/N
- @ 5, 0 CLEAR TO 22, 79
- x = RECNO()
- IF LEN(LTRIM(TRIM(kmdm)))>3
- pd3 = SUBSTR(LTRIM(kmdm), 1, 3)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))>7
- pd3 = SUBSTR(LTRIM(kmdm), 1, 7)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km2 = kmmc
- ENDI
- GOTO x
- DO WHILE .T.
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- @ 4+pd, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ 4+pd, 11 SAY kmmc
- @ 4+pd, 33 SAY ' '
- @ 4+pd, 55 SAY ' '
- CASE pd2=7
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY kmmc
- @ 4+pd, 55 SAY ' '
- CASE pd2=9
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY km2
- @ 4+pd, 55 SAY kmmc
- ENDC
- SKIP
- pd = pd+1
- IF pd=19
- EXIT
- ENDI
- ENDD
- GOTO x2
- ELSE
- IF BOF()
- GOTO TOP
- ELSE
- GOTO x2
- ENDI
- ENDI
- pd = pd1
- SET COLOR TO GR+/BG
- x = RECNO()
- IF LEN(LTRIM(TRIM(kmdm)))>3
- pd3 = SUBSTR(LTRIM(kmdm), 1, 3)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))>7
- pd3 = SUBSTR(LTRIM(kmdm), 1, 7)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km2 = kmmc
- ENDI
- GOTO x
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- @ 4+pd, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ 4+pd, 11 SAY kmmc
- @ 4+pd, 33 SAY ' '
- @ 4+pd, 55 SAY ' '
- CASE pd2=7
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY kmmc
- @ 4+pd, 55 SAY ' '
- CASE pd2=9
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY km2
- @ 4+pd, 55 SAY kmmc
- ENDC
- ENDI
- ENDI
- CASE x=24
- IF pd=18 .OR. EOF()
- ?? CHR(7)
- ELSE
- SET COLOR TO W/N
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- @ 4+pd, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ 4+pd, 11 SAY kmmc
- @ 4+pd, 33 SAY ' '
- @ 4+pd, 55 SAY ' '
- CASE pd2=7
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY kmmc
- @ 4+pd, 55 SAY ' '
- CASE pd2=9
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY km2
- @ 4+pd, 55 SAY kmmc
- ENDC
- SET COLOR TO GR+/BG
- SKIP
- pd = pd+1
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- @ 4+pd, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ 4+pd, 11 SAY kmmc
- @ 4+pd, 33 SAY ' '
- @ 4+pd, 55 SAY ' '
- CASE pd2=7
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY kmmc
- @ 4+pd, 55 SAY ' '
- CASE pd2=9
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY km2
- @ 4+pd, 55 SAY kmmc
- ENDC
- ENDI
- CASE x=18
- IF ys1>1
- ys1 = ys1-1
- GOTO ys1*18
- SKIP -17
- pd = 1
- SET COLOR TO W/N
- @ 5, 0 CLEAR TO 22, 79
- x = RECNO()
- IF LEN(LTRIM(TRIM(kmdm)))>3
- pd3 = SUBSTR(LTRIM(kmdm), 1, 3)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km1 = kmmc
- ENDI
- GOTO x
- IF LEN(LTRIM(TRIM(kmdm)))>7
- pd3 = SUBSTR(LTRIM(kmdm), 1, 7)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km2 = kmmc
- ENDI
- GOTO x
- DO WHILE .T.
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- @ 4+pd, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ 4+pd, 11 SAY kmmc
- @ 4+pd, 33 SAY ' '
- @ 4+pd, 55 SAY ' '
- CASE pd2=7
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY kmmc
- @ 4+pd, 55 SAY ' '
- CASE pd2=9
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY km2
- @ 4+pd, 55 SAY kmmc
- ENDC
- IF .NOT. EOF()
- SKIP
- pd = pd+1
- ELSE
- EXIT
- ENDI
- IF pd=19
- EXIT
- ENDI
- ENDD
- SKIP -18
- SET COLOR TO GR+/BG
- pd = 1
- x = RECNO()
- IF LEN(LTRIM(TRIM(kmdm)))>3
- pd3 = SUBSTR(LTRIM(kmdm), 1, 3)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km1 = kmmc
- ENDI
- GOTO x
- IF LEN(LTRIM(TRIM(kmdm)))>7
- pd3 = SUBSTR(LTRIM(kmdm), 1, 7)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km2 = kmmc
- ENDI
- GOTO x
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- @ 4+pd, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ 4+pd, 11 SAY kmmc
- @ 4+pd, 33 SAY ' '
- @ 4+pd, 55 SAY ' '
- CASE pd2=7
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY kmmc
- @ 4+pd, 55 SAY ' '
- CASE pd2=9
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY km2
- @ 4+pd, 55 SAY kmmc
- ENDC
- pd = 1
- ELSE
- ?? CHR(7)
- ENDI
- CASE x=3
- SET COLOR TO W/N
- IF ys1<ys
- ys1 = ys1+1
- GOTO (ys1-1)*18+1
- x = RECNO()
- pd = 1
- SET COLOR TO W/N
- @ 5, 0 CLEAR TO 22, 79
- x = RECNO()
- IF LEN(LTRIM(TRIM(kmdm)))>3
- pd3 = SUBSTR(LTRIM(kmdm), 1, 3)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km1 = kmmc
- ENDI
- GOTO x
- IF LEN(LTRIM(TRIM(kmdm)))>7
- pd3 = SUBSTR(LTRIM(kmdm), 1, 7)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km2 = kmmc
- ENDI
- GOTO x
- DO WHILE .T.
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- @ 4+pd, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ 4+pd, 11 SAY kmmc
- @ 4+pd, 33 SAY ' '
- @ 4+pd, 55 SAY ' '
- CASE pd2=7
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY kmmc
- @ 4+pd, 55 SAY ' '
- CASE pd2=9
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY km2
- @ 4+pd, 55 SAY kmmc
- ENDC
- IF .NOT. EOF()
- SKIP
- pd = pd+1
- ELSE
- EXIT
- ENDI
- IF pd=19
- EXIT
- ENDI
- ENDD
- GOTO x
- SET COLOR TO GR+/BG
- pd = 1
- x = RECNO()
- IF LEN(LTRIM(TRIM(kmdm)))>3
- pd3 = SUBSTR(LTRIM(kmdm), 1, 3)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km1 = kmmc
- ENDI
- GOTO x
- IF LEN(LTRIM(TRIM(kmdm)))>7
- pd3 = SUBSTR(LTRIM(kmdm), 1, 7)
- LOCA ALL FOR pd3$kmdm .AND. LEN(LTRIM(TRIM(kmdm)))=LEN(LTRIM(TRIM(pd3)))
- km2 = kmmc
- ENDI
- GOTO x
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- @ 4+pd, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ 4+pd, 11 SAY kmmc
- @ 4+pd, 33 SAY ' '
- @ 4+pd, 55 SAY ' '
- CASE pd2=7
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY kmmc
- @ 4+pd, 55 SAY ' '
- CASE pd2=9
- @ 4+pd, 11 SAY km1
- @ 4+pd, 33 SAY km2
- @ 4+pd, 55 SAY kmmc
- ENDC
- pd = 1
- ELSE
- ?? CHR(7)
- ENDI
- CASE x=27
- EXIT
- OTHE
- ?? CHR(7)
- ENDC
- ENDD
- IF xg=1
- SET COLOR TO W+/BG
- @ 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+/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
- *
