err.prg

用vfp语言设计的学籍管理系统源码

******************************
*错误捕获处理程序
*  err.prg
*****************************************************
*  调用方式： on error do err
*****************************
MESSAGEBOX("计算机名称:"+SYS(0)+CHR(13)+;
     "错误号:"+STR(ERROR())+CHR(13)+;
           "出错信息:"+MESSAGE()+CHR(13)+;   
           "出错的程序名:"+PROGRAM()+CHR(13)+;   
           "出错的程序行号:"+STR(LINENO())+CHR(13)+;    
           "出错的程序代码:"+ MESSAGE(1)+CHR(13)+CHR(13)+;
           "请根据系统以上错误信息修正系统!",; 
           0+48,;
           "警告信息:系统出现以下错误,需要终止运行!")
QUIT
****程序结束*****