cerror.cls

OA编程 源代码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CError"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Function ErrMessage() As CError    '错误信息
    Select Case err.Number
        Case -2147467259
            MsgBox "找不到指定的服务器，请重试！", vbCritical, "登录错误"
        Case -2147217843
            MsgBox "无效的用户名或密码，请重试！", vbCritical, "登录错误"
        Case -2147217911
            MsgBox "您没有相应权限进行该操作！", vbCritical, "警告"
        Case -2147217900
            MsgBox "当前用户名已经存在！", vbCritical, "警告"
        Case -2147217887
            MsgBox "可能您所录入的部分信息文本过长或类型不对！", vbInformation, "提示"
        Case 40002
            MsgBox "您所在的用户组没有权限！", vbCritical, "警告"
        Case 28663, 32755
            '系统已自动显示提示信息
        Case 482
            MsgBox "　　打印机错误！" & Chr(13) + Chr(13) & "您可能没有添加打印机，这将" & Chr(13) & "导致部分相关程序出错！", vbInformation, "错误"
        Case 438
            MsgBox "该对象不支持剪切、复制、粘贴操作！", vbInformation, "提示"
        Case 13
            MsgBox "请按提示输入正确的信息！", vbInformation, "提示"
        Case 514
            MsgBox err.Description, vbInformation, "提示"
        Case 429
            MsgBox "有组件或控件没有注册！", vbInformation, "提示"
        Case 10048
            MsgBox "通讯端口已经占用！", vbInformation, "提示"
        Case Else
            MsgBox err.Description, vbExclamation, "错误"
    End Select
End Function