merrors.bas

vb开发的连接mysql的工作流设置程序,图形化工作流自定义工具,原先是连接到Domino上的工作流自定义工具,现修改至mysql上,后台管理员设置工作流,前台读取数据库调用.

Attribute VB_Name = "MErrors"
Option Explicit

Public Const PrevNodeNotFind As String = "没有前驱节点"
Public Const NextNodeNotFind As String = "没有后续节点"

Private mCol As Collection

Public Sub Add(Source As Object, ErrorName As String, Comment As String)
    Dim a As CError
    Set a = New CError
    Set a.ErrorSource = Source
    a.ErrorName = ErrorName
    a.Comment = Comment
    mCol.Add a
End Sub

Public Sub Clear()
    Set mCol = New Collection
End Sub

Public Function Count() As Long
    Count = mCol.Count
End Function

Public Function ErrorObject(Index As Long) As CError
    Set ErrorObject = mCol.item(Index)
End Function

Public Function ErrorString() As String
    Dim m As CError
    Dim s As String
    For Each m In mCol
        s = s & "<" & m.ErrorName & ">" & vbTab & m.Comment & vbCrLf
    Next m
    ErrorString = s
End Function