errsub.bas

来自「用vb写的饮食管理系统功能全面」· BAS 代码 · 共 27 行

Attribute VB_Name = "errsub"
Public ErrCase As String

Public Const WERR1 = "窗口装载错误！" & vbCr & _
        "错误原因：" & vbCr & _
        "   资源文件-kfgz.res 被损坏或被删除！"

Public Const WERR2 = "窗口装载错误！" & vbCr & _
        "错误原因：" & vbCr & _
        "   数据库文件-gzt.mdb 被损坏或被删除！"

Public Const WERR3 = "窗口装载错误！" & vbCr & _
        "错误原因：" & vbCr & _
        "   数据库文件-gztmb.mdb 被损坏或被删除！"


Function ErrorHandle(strError As String)      '错误处理
    If Len(strError) = 0 Then
        strError = "错误号：" & err.Number & vbCr
        strError = strError & "    " & err.Description & vbCr
    End If
    MsgBox strError, vbOKOnly + vbInformation, "错误！"
End Function