_error.prg

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

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: _ERROR.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 IF FILE(DXPATH + 'data\error.dbf')
    IF  .NOT. USED('error')
       SELECT 0
       USE (DXPATH + '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 
*