📄 perror.prg
字号:
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
* 文件名: PERROR.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
PARAMETER ERR_NO , ERR_MSG , ERR_MSG1 , ERR_PRO , ERR_LINE
DO CASE
BERR = .T.
CASE ERR_NO = 1961
RETURN
CASE ERR_NO = 1705
IF BDYHTEST
BYHSM = BYHSM + 1
RETURN
ENDIF
IF MESSAGEBOX('文件暂时被其他用户使用,是否稍候再试?',33,'提示信息') = 1
RETRY
ELSE
CLOSE DATABASES ALL
QUIT
ENDIF
OTHERWISE
DO FORM serror WITH ERR_NO , ERR_MSG , ERR_MSG1 , ERR_PRO , ERR_LINE
ENDCASE
*
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -