行业应用

开发平台：

VFP

errhand.prg：源码内容

							* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: ERRHAND.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 PARAMETER ERRNUM , MESSAGE
 NANSWER =  ;
      MESSAGEBOX('出错代码为：' + ALLTRIM(STR(ERRNUM)) + CHR(13) + CHR(13) + '错误原因是：' +  ;
MESSAGE +  ;
CHR(13) +  ;
CHR(13) +  ;
'请与陈剑秋联系！',18,'餐厅收银：程序出错！')
 IF NANSWER = 3
 QUIT 
 ENDIF 
 IF NANSWER = 4
 RETRY  
 ENDIF 
 IF NANSWER = 5
 RETURN 
 ENDIF 
*

						