err_hand.prg

来自「功能模块:报关操作,运输操作,报关查询,运输查询」· PRG 代码 · 共 44 行

*-- 错误处理程序
*	调用方法：
*	on error do errorhand with ;
*		error(),;
*		message(),;
*		message(2),;
*		program(),;
*		program(1),;
*		lineno(2)

*	程 序 员：燎原工作室
*	编写日期：2001-1-18

para nErrCode,cErrMsg,cErrMsg1,cErrPrg,cErrPrg1,nErrLine
#Define	EnterBack	chr(13) + chr(13)

if cErrPrg # cErrPrg1
	cErrPrg = cErrPrg1 + " -> " + cErrPrg
endif
	
MsgInfo = 				"错误代码: " + str(nErrCode)	+ 	EnterBack
MsgInfo	=	MsgInfo	+	"程序行号: "	+	str(nErrLine)+	EnterBack
MsgInfo	=	MsgInfo	+	"错误指令: "	+	cErrMsg1	+ 	EnterBack
MsgInfo	=	MsgInfo	+	"错误信息: "	+	cErrMsg		+	EnterBack
MsgInfo	=	MsgInfo	+	"调用过程: "	+	cErrPrg		+	EnterBack
MsgInfo	=	MsgInfo	+	repl("-",50)	+	EnterBack
MsgInfo	=	MsgInfo	+	"如果问题依旧存在，请联燎原工作室 [e-mail]，谢谢！"

ANS	=	messagebox(MsgInfo,2+16,"系统程序意外错误")
DO CASE
	CASE ANS =3
	*-- 终止
	on shutdown quit
	_screen.hide
	cancel
	clea events
	RETU to master
	CASE ANS =4
	*-- 重试
		RETRY
	CASE ANS =5
	*-- 忽略
ENDCASE