cyxerror.cls

排队分诊管理系统源代码！该代码使用VB6开发环境

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CYXError"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'-------------------------------------------------
' Class     :   CYXError
' Create    :   yin     2005-08-01
' Description:  错误处理类
'-------------------------------------------------
Option Explicit

Public Number As Long
Public Description As String
Public Source As String
Public File As String
Public ObjectName As String

'-------------------------------------------
' 设置错误信息
Public Sub Raise(Optional ByVal Number As Long = -1, _
    Optional ByVal Description As String = "", _
    Optional ByVal Source As Variant = "", _
    Optional ByVal File As Variant = "")
    Me.Number = Number
    Me.Description = Description
    Me.Source = Source
    Me.File = File
    Show    '调试时，用于显示错误信息
End Sub

'-------------------------------------------
' 清除错误信息
Public Sub Clear()
    Me.Number = 0
    Me.Description = ""
    Me.Source = ""
    Me.File = ""
    Me.ObjectName = ""
End Sub

'-------------------------------------------
' 显示错误信息
Public Sub Show()
    Dim str As String
    Debug.Print "Error(" & Me.Number & "):" & Me.Description
    If Me.Source <> "" Then str = str & "Source:" & Me.Source & vbTab
    If Me.File <> "" Then str = str & "Sub/Func:" & Me.File & vbTab
    If Me.ObjectName <> "" Then str = str & "Object:" & Me.ObjectName & vbTab
    If str <> str Then Debug.Print vbTab & str
End Sub