clserrors.cls

欢迎您使用审批系统!该系统主要面向银行内部人员,但也为客户提供一些信息." 登陆,注册和管理员入口"项目专为银行内部人员设计."客户登陆,注册,贷款须知和预约"项目专为客户设计.客户可通过这些窗口浏览

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "ClsErrors"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private m_Error_Desc As String
Private m_Error_Number As Long

Public Property Let Error_Desc(description As String)
   m_Error_Desc = description
End Property
Public Property Get Error_Desc() As String
   Error_Desc = m_Error_Desc
End Property

Public Property Let Error_Number(Err_Number As Long)
   m_Error_Number = Err_Number
End Property
Public Property Get Error_Number() As Long
   Error_Number = m_Error_Number
End Property