_error.prg

来自「吐血贡献纺织上的进销存原码,功能齐全,给大家吧.」· PRG 代码 · 共 29 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: _ERROR.PRG
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


IF FILE(SYSPATH+'data\error.dbf')
	IF NOT USED('error')
		SELECT 0
		USE (SYSPATH+'data\error.dbf')
	ENDIF 
	SELECT ERROR
	LOCATE FOR ALLTRIM(序号)==ALLTRIM(STR(ERROR()))
	IF FOUND()
		ERRINFO=ALLTRIM(错误信息)
	ELSE 
		ERRINFO='无错误信息！'
	ENDIF 
	SELECT ERROR
	USE 
	MESSAGEBOX('出现错误，编号'+ALLTRIM(STR(ERROR()))+'，' + CHR(13) + ERRINFO,16,'系统提示')
	LERROR = .T.
	RETURN 
ELSE 
	MESSAGEBOX('出现错误，编号'+ALLTRIM(STR(ERROR()))+'。',16,'系统提示')
	LERROR=.T.
	RETURN 
ENDIF 
*