English
KMDY.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：5k
源码类别：
企业管理
开发平台：
VFP
- rsele = SELECT()
- SELE 0
- USE set
- kh = printer
- USE
- SELE (rsele)
- DO WHILE .T.
- SET COLOR TO
- @ 5, 8 CLEAR TO 10, 35
- SET COLOR TO W+/B
- @ 4, 5 CLEAR TO 9, 33
- x1 = 4
- x2 = 9
- y1 = 5
- y2 = 31
- DO box-1
- ?? CHR(7)
- @ 6, 9 SAY '请将16开纸竖放! '
- @ 7, 9 SAY '准备好后按任意键......'
- i = INKEY(0)
- IF SYS(13)<>'READY'
- ?? CHR(7)
- SET COLOR TO
- @ 5, 8 CLEAR TO 10, 35
- SET COLOR TO W+/B
- @ 4, 5 CLEAR TO 9, 33
- x1 = 4
- x2 = 9
- y1 = 5
- y2 = 31
- DO box-1
- @ 6, 9 SAY '打印机尚未准备好!'
- @ 7, 9 SAY '准备好后按任意键......'
- i = INKEY(0)
- IF i=27
- RETU
- ENDI
- ELSE
- SET COLOR TO
- @ 5, 8 CLEAR TO 10, 35
- SET COLOR TO W+/B
- @ 4, 5 CLEAR TO 9, 33
- x1 = 4
- x2 = 9
- y1 = 5
- y2 = 31
- DO box-1
- SET COLOR TO W+/B
- @ 6, 8 CLEAR TO 8, 30
- @ 6, 9 SAY '正在打印科目代码表!'
- @ 7, 13 SAY '请稍候......'
- EXIT
- ENDI
- ENDD
- SET PRINTER ON
- SET DEVICE TO PRINTER
- SET CONSOLE OFF
- ?? '`&1`'
- jsq = 1
- DO WHILE jsq<=kh
- ? ' '
- jsq = jsq+1
- ENDD
- ? ' 科 目 代 码 表 '
- ? '================================================================================'
- ? '科目代码'
- @ PROW(), 10 SAY ' 一 级 科 目 '
- @ PROW(), 31 SAY ' 二 级 科 目'
- @ PROW(), 52 SAY ' 三 级 科 目'
- ? '================================================================================'
- km1 = ' '
- km2 = ' '
- GOTO TOP
- pd = 1
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- pd = 1
- DO WHILE .NOT. EOF()
- IF LEN(LTRIM(TRIM(kmdm)))=3
- km1 = kmmc
- ENDI
- IF LEN(LTRIM(TRIM(kmdm)))=7
- km2 = kmmc
- ENDI
- @ PROW()+1, 0 SAY kmdm
- pd2 = LEN(LTRIM(TRIM(kmdm)))
- DO CASE
- CASE pd2=3
- @ PROW(), 11 SAY kmmc
- CASE pd2=7
- @ PROW(), 11 SAY km1
- @ PROW(), 33 SAY kmmc
- CASE pd2=9
- @ PROW(), 11 SAY km1
- @ PROW(), 33 SAY km2
- @ PROW(), 55 SAY kmmc
- ENDC
- SKIP
- pd = pd+1
- IF pd=60
- pd = 1
- ? '=================================================================================='
- ? ' '
- SET PRINTER OFF
- SET DEVICE TO SCREEN
- SET CONSOLE ON
- ?? CHR(7)
- SET COLOR TO
- @ 5, 8 CLEAR TO 10, 35
- SET COLOR TO W+/B
- @ 4, 5 CLEAR TO 9, 33
- x1 = 4
- x2 = 9
- y1 = 5
- y2 = 31
- DO box-1
- @ 6, 9 SAY '换页! Esc键=退出!'
- @ 7, 9 SAY '按其他键继续打印......'
- i = INKEY(0)
- IF i=27
- EXIT
- ENDI
- DO WHILE .T.
- IF SYS(13)<>'READY'
- ?? CHR(7)
- SET COLOR TO
- @ 5, 8 CLEAR TO 10, 35
- SET COLOR TO W+/B
- @ 4, 5 CLEAR TO 9, 33
- x1 = 4
- x2 = 9
- y1 = 5
- y2 = 31
- DO box-1
- @ 6, 9 SAY '打印机尚未准备好!'
- @ 7, 9 SAY '准备好后按任意键......'
- i = INKEY(0)
- ELSE
- SET COLOR TO
- @ 5, 8 CLEAR TO 10, 35
- SET COLOR TO W+/B
- @ 4, 5 CLEAR TO 9, 33
- x1 = 4
- x2 = 9
- y1 = 5
- y2 = 31
- DO box-1
- SET COLOR TO W+/B
- @ 6, 8 CLEAR TO 8, 30
- @ 6, 9 SAY '正在打印科目代码表!'
- @ 7, 13 SAY '请稍候......'
- EXIT
- ENDI
- ENDD
- SET PRINTER ON
- SET DEVICE TO PRINTER
- SET CONSOLE OFF
- jsq = 1
- DO WHILE jsq<=kh
- ? ' '
- jsq = jsq+1
- ENDD
- ? ' 科 目 代 码 表 '
- ? '================================================================================'
- ? '科目代码'
- @ PROW(), 10 SAY ' 一 级 科 目 '
- @ PROW(), 31 SAY ' 二 级 科 目'
- @ PROW(), 52 SAY ' 三 级 科 目'
- ? '================================================================================'
- ENDI
- ENDD
- ? ' '
- SET PRINTER OFF
- SET DEVICE TO SCREEN
- SET CONSOLE ON
- SET COLOR TO
- @ 5, 8 CLEAR TO 10, 35
- SET COLOR TO W+/B
- @ 4, 5 CLEAR TO 9, 33
- x1 = 4
- x2 = 9
- y1 = 5
- y2 = 31
- DO box-1
- ?? CHR(7)
- @ 6, 9 SAY '科目表打印完毕! '
- @ 7, 9 SAY '按任意键继续......'
- i = INKEY(1)
- RETU
- *
