www.pudn.com > jq_caiwu.ARJ > KMDY.PRG

 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 
*