cbenode.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 = "CBENode"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public NodeName As String
Public Comment As String
Public Notification As Boolean
Public NotAllowChangeUser As Boolean
Public NotAllowAgent As Boolean
Private mId As String
'Public Document As NotesDocument  '定义一文档 06-04-24
Public NodeX As Single, NodeY As Single

Public Sub CreateDocument(obj As Object)
End Sub

Public Property Get Id() As String
    'If Document Is Nothing Then
        Id = mId
   ' Else
   '     Id = Document.UniversalID
   ' End If
End Property

Public Property Let Id(value As String)
    mId = value
End Property