err.prg

来自「用vfp语言设计的保健管理系统源码」· PRG 代码 · 共 16 行

******************************
*错误捕获处理程序
*  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
****程序结束