cmidle.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 = "CMidle"
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 mProp As CNode
Private mAgents() As String

Private Sub Class_Initialize()
    Dim a As CDraw
    Set a = New CDraw
    Set mObj = a
    Set SupObj = a
    Set mProp = New CNode
End Sub

Private Sub Class_Terminate()
    Set mObj = Nothing
End Sub

Private Sub IDraw_AddR(Source As IDraw, Optional ByVal Modetype As Integer)
    mObj.AddR Source, Modetype
End Sub

Private Property Let IDraw_AutoAgents(RHS() As String)
    mAgents = RHS
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 = mProp.NodeName
End Function

Private Sub IDraw_Create(frm As Object)
    SupObj.Caption = mProp.NodeName
    Set SupObj.mpic = frmImage.img(0)
    mObj.Create frm
End Sub

Private Sub IDraw_Delete()
    mObj.Delete
End Sub

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

Private Sub IDraw_Hide()
    mObj.Hide
End Sub

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

Private Property Let IDraw_id(ByVal RHS As String)
    mObj.Id = RHS
    If SupObj.Caption = "" Then
        SupObj.Caption = "节点" & RHS
        mProp.NodeName = "节点" & RHS
    End If
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 = 2
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
    Set IDraw_NextNodes = mObj.NextNodes
End Function

Private Sub IDraw_Paint()
    mObj.Paint
End Sub

Private Function IDraw_PrevNodes() As Collection
    Set IDraw_PrevNodes = mObj.PrevNodes
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()
    frmNodeProperties.Display mProp, mAgents
    SupObj.Caption = mProp.NodeName
End Sub

Private Sub IDraw_TestRun()
    mObj.TestRun
End Sub

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

Private Sub IDraw_UnDel()
    mObj.UnDel
End Sub

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