idraw.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 = "IDraw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Public Id As String

Public Sub Create(frm As Object)
End Sub

Public Sub Paint()
End Sub

Public Sub MoveTo(ByVal X As Single, ByVal Y As Single)
End Sub

Public Sub Hide()
End Sub

Public Sub Show()
End Sub

Public Sub Delete()
End Sub

Public Sub UnDel()
End Sub

Public Sub SetFocus()
End Sub

Public Sub LostFocus()
End Sub

Public Sub AddR(Source As IDraw, Optional ByVal Modetype As Integer)
End Sub

Public Function InMe(ByVal X As Single, ByVal Y As Single) As Boolean
End Function

Public Function CanMove() As Boolean
End Function

Public Function isHide() As Boolean
End Function

Public Function IsDelete() As Boolean
End Function

Public Function ModeName() As Integer
End Function

Public Function Top() As Single
End Function

Public Function Left() As Single
End Function

Public Function Width() As Long
End Function

Public Function Height() As Long
End Function

Public Sub TestRun()
End Sub

Public Function BeingRun() As Boolean
End Function

Public Sub RunClear()
End Sub

Public Function Properties() As Object
End Function

Public Sub ShowProperties()
End Sub

Public Function PrevNodes() As Collection
End Function

Public Function NextNodes() As Collection
End Function

Public Function Caption() As String
End Function

Public Property Let AutoAgents(Value() As String)
End Property