cbegin.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CBegin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Implements IDraw
Private SupObj As CDraw
Private mObj As IDraw
Private mDCol As Collection
Private mProp As CBENode
Private Sub Class_Initialize()
    'Dim a As CDraw
    Set SupObj = New CDraw
    'SupObj.Caption = "工作流原点"
    Set mObj = SupObj
    Set mProp = New CBENode
    Set mDCol = New Collection
    mProp.NodeName = "工作流原点"
End Sub

Private Sub Class_Terminate()
    Set mObj = Nothing
    Set mProp = Nothing
    Set mDCol = Nothing
End Sub

Private Sub IDraw_AddR(Source As IDraw, Optional ByVal Modetype As Integer)
    If Modetype = 1 Then
        mDCol.Add Source
    Else
        Err.Raise 12000, "CBegin", "流程不能指向开始"
    End If
End Sub

Private Property Let IDraw_AutoAgents(RHS() As String)

End Property

Private Function IDraw_BeingRun() As Boolean
    IDraw_BeingRun = mObj.BeingRun
End Function

Private Function IDraw_CanMove() As Boolean
    IDraw_CanMove = True
End Function

Private Function IDraw_Caption() As String
    IDraw_Caption = "开始"
End Function

Private Sub IDraw_Create(frm As Object)
    mObj.Create frm
    Dim ic As CDraw
    Set ic = mObj
    Set ic.mpic = frmImage.img(0)
    mObj.Create frm
End Sub

Private Sub IDraw_Delete()
    mObj.Delete
    Dim ic As IDraw
    For Each ic In mDCol
        ic.Delete
    Next ic
End Sub

Private Function IDraw_Height() As Long
    IDraw_Height = mObj.Height
End Function

Private Sub IDraw_Hide()
    mObj.Hide
End Sub

Private Property Let IDraw_id(ByVal RHS As String)
    mObj.Id = RHS
End Property

Private Property Get IDraw_id() As String
    IDraw_id = mObj.Id
End Property

Private Function IDraw_InMe(ByVal X As Single, ByVal Y As Single) As Boolean
    IDraw_InMe = mObj.InMe(X, Y)
End Function

Private Function IDraw_IsDelete() As Boolean
    IDraw_IsDelete = mObj.IsDelete
End Function

Private Function IDraw_isHide() As Boolean
    IDraw_isHide = mObj.isHide
End Function

Private Function IDraw_Left() As Single
    IDraw_Left = mObj.Left
End Function

Private Sub IDraw_LostFocus()
    mObj.LostFocus
End Sub

Private Function IDraw_ModeName() As Integer
    IDraw_ModeName = 3
End Function

Private Sub IDraw_MoveTo(ByVal X As Single, ByVal Y As Single)
    mObj.MoveTo X, Y
    mProp.NodeX = X
    mProp.NodeY = Y
End Sub

Private Function IDraw_NextNodes() As Collection
    Dim ic As IDraw
    Dim col As New Collection
    For Each ic In mDCol
        If Not (ic.IsDelete Or ic.isHide) Then
            col.Add ic
        End If
    Next ic
    Set IDraw_NextNodes = col
End Function

Private Sub IDraw_Paint()
    mObj.Paint
End Sub

Private Function IDraw_PrevNodes() As Collection
    Set IDraw_PrevNodes = Nothing
End Function

Private Function IDraw_Properties() As Object
    Set IDraw_Properties = mProp
End Function

Private Sub IDraw_RunClear()
    mObj.RunClear
End Sub

Private Sub IDraw_SetFocus()
    mObj.SetFocus
End Sub

Private Sub IDraw_Show()
    mObj.Show
End Sub

Private Sub IDraw_ShowProperties()
    frmProp.Display mProp
End Sub

Private Sub IDraw_TestRun()
    Dim ia As IDraw, s As String
    s = MErrors.NextNodeNotFind
    For Each ia In mDCol
        If Not (ia.IsDelete Or ia.isHide) Then
            s = ""
            Exit For
        End If
    Next ia
    If s <> "" Then
        MErrors.Add Me, mProp.NodeName, s
    End If
End Sub

Private Function IDraw_Top() As Single
    IDraw_Top = mObj.Top
End Function

Private Sub IDraw_UnDel()
    mObj.UnDel
    Set SupObj.mpic = frmImage.img(1)
End Sub

Private Function IDraw_Width() As Long
    IDraw_Width = mObj.Width
End Function