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

 PARA mprogram, mline, merror, mmess, mmess1 
 CLEA 
 DEFI WINDOW win_e2 FROM 10, 5 TO 18, 75 SHADOW COLOR SCHEME 7 
 ACTI WINDOW win_e2 
 @ 0, 2 SAY ' 发生错误的程序名称: '+mprogram 
 @ 1, 2 SAY ' 发生错误的程序行号: '+LTRIM(STR(mline)) 
 @ 2, 2 SAY '           错误代码: '+LTRIM(STR(merror)) 
 @ 3, 2 SAY '           错误信息: '+mmess1 
 @ 4, 2 SAY '       出错程序内容: '+mmess 
 @ 5, 2 SAY '    如有不明,请向黄朝生查询. Tel: 0771-5627468 ' 
 @ 6, 10 GET act DEFAULT 0 SIZE 1, 10, 1 PICTURE '@*HN 继续;重试;返回主程序;退到DOS' VALID actvalid() 
 READ CYCLE 
* 
PROC actvalid 
 DO CASE 
      CASE act=1 
           DEAC WINDOW win_e2 
           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  
           ON KEY LABEL Escape do Rquit 
           SET CLOCK TO 23, 69 
           RETU 
      CASE act=2 
           DEAC WINDOW win_e2 
           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  
           ON KEY LABEL Escape do Rquit 
           SET CLOCK TO 23, 69 
           RETR 
      CASE act=3 
           DEAC WINDOW win_e2 
           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  
           ON KEY LABEL Escape do Rquit 
           SET CLOCK TO 23, 69 
           RETU TO MASTER 
      CASE act=4 
           QUIT 
 ENDC 
 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  
 ON KEY LABEL Escape do Rquit 
 SET CLOCK TO 23, 69 
 RETU 
*