frmnodeproperties.frm

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

        Me.chkAllow(1).value = 0
    End If
    If mObj.AllowAgent Then
        Me.chkAllow(3).value = 1
    Else
        Me.chkAllow(3).value = 0
    End If
    Me.txtActionList = mObj.ActionList
    '时间控制
    If mObj.TimeLimitNotification Then
        Me.chkTimecLimit.value = 1
        Me.Frame4.Visible = True
    Else
        Me.chkTimecLimit.value = 0
        Me.Frame4.Visible = False
    End If
    If Not mObj.Notification Then
        Me.Frame4.Visible = False
        Me.chkTimecLimit.value = 0
        Me.chkTimecLimit.Enabled = False
    Else
        Me.chkTimecLimit.Enabled = True
    End If
    Dim dig As String, dw As String
    If mObj.DurationTime <> "" Then
        MMain.SeprateDateTime mObj.DurationTime, dig, dw
        Me.txtDurationTime = dig
        Me.cmbTime(0) = dw
    End If
    If mObj.DurationTolerance <> "" Then
        MMain.SeprateDateTime mObj.DurationTolerance, dig, dw
        Me.txtDurationTolerance.Text = dig
        Me.cmbTime(1).Text = dw
    End If
    If mObj.DurationRepeat <> "" Then
        MMain.SeprateDateTime mObj.DurationRepeat, dig, dw
        Me.txtDurationRepeat.Text = dig
        Me.cmbTime(2).Text = dw
    End If
    Me.txtRepeatTimes.Text = mObj.DurationRepeatTimes
    Me.cmbAfterDuration.ListIndex = mObj.AfterDuration
    '自动代理
    If mObj.AutoAgent Then Me.chkAutoAgent.value = 1
    Me.Frame6.Visible = mObj.AutoAgent
    Me.optAgentType(mObj.AutoSelect) = True
    Me.Frame8.Visible = Me.optAgentType(1)
    Me.Frame10.Visible = Me.optAgentType(0)
    mUser = mObj.AutoMailRecipients
    For i = LBound(mUser) To UBound(mUser)
        If mUser(i) <> "" Then Me.lstSendTo.AddItem mUser(i)
    Next i
    Me.txtSubject.Text = mObj.AutoMailSubject
    Me.txtBody.Text = mObj.AutoMailText
    Dim v As Variant
    '代理列表
    v = mObj.AutoAgentName
    If Not IsEmpty(v) Then
        For i = LBound(v) To UBound(v)
            If v(i) <> "" Then
                Me.cmbAgent.AddItem v(i)
            End If
        Next i
    End If
    '代理名称
    Me.txtAgentTitle.Text = mObj.AutoAgentTitle
    '代理说明
    Me.txtDescription.Text = mObj.AutoDescription
    If (Me.lstPeople.ListCount <= 1) Then
        Me.chkMult.value = 0
        Me.chkMult.Enabled = False
    Else
        If mObj.IsMulteit Then
            Me.chkMult.value = 1
            Me.chkMult.Enabled = True
            Me.Frame3.Visible = True
        End If
    End If
    '分发设置
    If mObj.Distribute Then
        Me.chkDistribute.value = 1
        Me.cmbDistributeLevel.AddItem "不限制"
        If mObj.DistributeLevel > 0 Then Me.cmbDistributeLevel.AddItem mObj.DistributeLevel
        If mObj.DistributeLevel = 0 Then Me.cmbDistributeLevel.ListIndex = 0
        If mObj.DistributeLevel < 0 Then Me.cmbDistributeLevel.ListIndex = -1
        If mObj.DistributeLevel > 0 Then Me.cmbDistributeLevel.ListIndex = 1
        Me.cmbDistributeSetup.AddItem "逐级下发"
        Me.cmbDistributeSetup.AddItem "随机下发"
        Me.cmbDistributeSetup.ListIndex = mObj.DistributeSetup
        Me.cmbDistributeDone.AddItem "办理完成后自动返回上一办理人"
        Me.cmbDistributeDone.AddItem "最后一个办理完成后返回上一办理"
        Me.cmbDistributeDone.ListIndex = mObj.DistributeDone
        Me.cmbDistributeEnd.AddItem "自动返回上一节点"
        Me.cmbDistributeEnd.AddItem "结束后自动结束流程"
        Me.cmbDistributeEnd.ListIndex = mObj.DistributeEnd
    Else
        Me.chkDistribute.value = 0
        Me.Frame12.Visible = False
        Me.cmbDistributeLevel.AddItem "不限制"
        Me.cmbDistributeSetup.AddItem "逐级下发"
        Me.cmbDistributeSetup.AddItem "随机下发"
        Me.cmbDistributeDone.AddItem "办理完成后自动返回上一办理人"
        Me.cmbDistributeDone.AddItem "最后一个办理完成后返回上一办理"
        Me.cmbDistributeEnd.AddItem "自动返回上一节点"
        Me.cmbDistributeEnd.AddItem "结束后自动结束流程"
    End If
    Me.Icon = frmMain.Icon
    Me.Show vbModal
Exit Sub
ErrHandler:
    MsgBox Err.Number & ":" & Err.Description
    Me.Show vbModal
End Sub


Private Sub chkDeptManager_Click()
Frame2.Visible = (Me.chkDeptManager.value = 0)
End Sub

Private Sub chkDistribute_Click()
 Frame12.Visible = (Me.chkDistribute.value = 1)
End Sub
Private Sub cmdOK_Click()
    Dim i As Integer
    '基本属性
    mObj.NodeName = Me.txtName.Text
    mObj.IsMulteit = (Me.chkMult.value = 1)
    ReDim mUser(0 To Me.lstPeople.ListCount)
    For i = 1 To Me.lstPeople.ListCount
        mUser(i) = Me.lstPeople.List(i - 1)
    Next i
    mObj.ParticipantExpanded = mUser
    If Me.optShun.value Then
        mObj.Order = 0 '顺发
    Else
        mObj.Order = 1 '群发
    End If
    mObj.Comment = Me.txtComment.Text '其他属性设置
    mObj.DeptManager = Me.chkDeptManager.value
    '高级属性设置
    mObj.UserModifyType = Me.cmbUserModifyType.ListIndex
    '*************************************************
    mObj.MailNotification = (Me.chkAllow(0).value = 1)
    mObj.AllowChangeUser = (Me.chkAllow(1).value = 1)
    mObj.AllowAgent = (Me.chkAllow(3).value = 1)
    mObj.ActionList = Me.txtActionList
    '时间控制
    
    mObj.TimeLimitNotification = (Me.chkTimecLimit.value = 1)
    If txtDurationTime.Text <> "" Then
        mObj.DurationTime = Me.txtDurationTime.Text & "[" & Me.cmbTime(0).Text & "]"
    Else
        mObj.DurationTime = ""
    End If
    If txtDurationTolerance.Text <> "" Then
        mObj.DurationTolerance = Me.txtDurationTolerance & "[" & Me.cmbTime(1).Text & "]"
    Else
        mObj.DurationTolerance = ""
    End If
    If txtDurationRepeat.Text <> "" Then
        mObj.DurationRepeat = Me.txtDurationRepeat & "[" & Me.cmbTime(2).Text & "]"
    Else
        mObj.DurationRepeat = ""
    End If
    If txtRepeatTimes.Text <> "" Then
        mObj.DurationRepeatTimes = Me.txtRepeatTimes.Text
    Else
        mObj.DurationRepeatTimes = "3"
    End If
    mObj.AfterDuration = Me.cmbAfterDuration.ListIndex
    '自动代理
    mObj.AutoAgent = (Me.chkAutoAgent.value = 1)
    ReDim mUser(0 To Me.lstSendTo.ListCount)
    For i = 1 To Me.lstSendTo.ListCount
        mUser(i) = Me.lstSendTo.List(i - 1)
    Next i
    If Me.optAgentType(0) Then
        i = 0
    Else
        i = 1
    End If
    mObj.AutoSelect = i
    mObj.AutoMailRecipients = mUser
    mObj.AutoMailSubject = Me.txtSubject.Text
    mObj.AutoMailText = Me.txtBody.Text
    mObj.AutoAgentName = Me.txtAgentTitle.Text
    Dim v() As String
    ReDim v(0 To Me.cmbAgent.ListCount)
    For i = 1 To Me.cmbAgent.ListCount
        v(i) = Me.cmbAgent.List(i - 1)
    Next i
    mObj.AutoAgentName = v
    '代理名称
    mObj.AutoAgentTitle = Me.txtAgentTitle.Text
    mObj.AutoDescription = Me.txtDescription.Text
    '分发设置
    mObj.Distribute = Me.chkDistribute.value
    If mObj.Distribute Then
        If Me.cmbDistributeLevel.ListIndex = -1 Then
            If Me.cmbDistributeLevel.Text = "" Then
                mObj.DistributeLevel = -1
            Else
                mObj.DistributeLevel = Int(Me.cmbDistributeLevel.Text)
            End If
        Else
            If Me.cmbDistributeLevel.ListIndex = 0 Then
                mObj.DistributeLevel = Me.cmbDistributeSetup.ListIndex
            End If
        End If
        mObj.DistributeSetup = Me.cmbDistributeSetup.ListIndex
        mObj.DistributeDone = Me.cmbDistributeDone.ListIndex
        mObj.DistributeEnd = Me.cmbDistributeEnd.ListIndex
    End If
    Unload Me
End Sub

Private Sub chkAutoAgent_Click()
    Frame6.Visible = (Me.chkAutoAgent.value = 1)
End Sub

Private Sub cmdAddSendTo_Click()
    Dim strName() As String
    ReDim strName(0 To Me.lstSendTo.ListCount)
    Dim i As Long
    For i = 1 To Me.lstSendTo.ListCount
        strName(i) = Me.lstSendTo.List(i - 1)
    Next i
    strName = frmSetPeople.Display(strName)
    Me.lstPeople.Clear
    For i = 1 To UBound(strName)
        If strName(i) <> "" Then
            Me.lstSendTo.AddItem strName(i)
        End If
    Next i
End Sub

Private Sub cmdDelSendTo_Click()
    Dim i As Integer
    With Me.lstSendTo
        i = 0
        Do While i < .ListCount
            If .Selected(i) Then
                .RemoveItem (i)
            Else
                i = i + 1
            End If
        Loop
    End With
End Sub

Private Sub chkTimecLimit_Click()
    Frame4.Visible = (Me.chkTimecLimit.value = 1)
End Sub

Private Sub chkMult_Click()
    Me.Frame3.Visible = (Me.chkMult.value = 1)
End Sub

Private Sub cmdAddPeople_Click()
    Dim strName() As String
    ReDim strName(0 To Me.lstPeople.ListCount)
    Dim i As Long
    For i = 1 To Me.lstPeople.ListCount
        strName(i) = Me.lstPeople.List(i - 1)
    Next i
    strName = frmSetPeople.Display(strName)
    Me.lstPeople.Clear
    For i = 1 To UBound(strName)
        If strName(i) <> "" Then
            Me.lstPeople.AddItem strName(i)
        End If
    Next i
    If (Me.lstPeople.ListCount <= 1) Then
        Me.chkMult.value = 0
        Me.chkMult.Enabled = False
    Else
        Me.chkMult.value = 0
        Me.chkMult.Enabled = True
        Me.Frame3.Visible = False
    End If
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdRemovePeople_Click()
    Dim i As Integer
    With Me.lstPeople
        i = 0
        Do While i < .ListCount
            If .Selected(i) Then
                .RemoveItem (i)
            Else
                i = i + 1
            End If
        Loop
        If .ListCount <= 1 Then
            Me.chkMult.value = 0
            Me.chkMult.Enabled = False
        Else
            Me.chkMult.Enabled = True
            Me.Frame3.Visible = (Me.chkMult = 1)
        End If
    End With
End Sub

Private Sub cmdSelectAgent_Click()
    Dim v() As String
    ReDim v(0)
    Dim i As Long
    ReDim v(0 To Me.cmbAgent.ListCount)
    For i = 0 To cmbAgent.ListCount - 1
        v(i + 1) = cmbAgent.List(i)
    Next i
    v = frmSetAgent.Display(mAllAgents, v)
    cmbAgent.Clear
    For i = LBound(v) To UBound(v)
        If v(i) <> "" Then
            cmbAgent.AddItem v(i)
        End If
    Next i
End Sub




Private Sub optAgentType_Click(Index As Integer)
    Frame8.Visible = (Index = 1)
    Frame10.Visible = (Index = 0)
End Sub
Public Property Get txtActionList() As String
'0:意见处理;  1:填写意见; 2:查看意见; 3:笔迹留痕; 4:编辑批注; 5:查看批注; 6:引入文头
    Dim v() As String, i As Long
    i = 0
    ReDim v(0)
    If Me.chkActionList(0).value = 1 Then
        ReDim Preserve v(i)
        v(i) = "意见处理"
        i = i + 1
    End If
    If Me.chkActionList(1).value = 1 Then
        ReDim Preserve v(i)
        v(i) = "填写意见"
        i = i + 1
    End If
    If Me.chkActionList(2).value = 1 Then
        ReDim Preserve v(i)
        v(i) = "查看意见"
        i = i + 1
    End If
    If Me.chkActionList(3).value = 1 Then
        ReDim Preserve v(i)
        v(i) = "笔迹留痕"
        i = i + 1
    End If
    If Me.chkActionList(4).value = 1 Then
        ReDim Preserve v(i)
        v(i) = "编辑批注"
        i = i + 1
    End If
    If Me.chkActionList(5).value = 1 Then
        ReDim Preserve v(i)
        v(i) = "查看批注"
        i = i + 1
    End If
    If Me.chkActionList(6).value = 1 Then
        ReDim Preserve v(i)
        v(i) = "引入文头"
        i = i + 1
    End If
    txtActionList = Join(v, ";")
End Property


Public Property Let txtActionList(value As String)
'0:意见处理;  1:填写意见; 2:查看意见; 3:笔迹留痕; 4:编辑批注; 5:查看批注; 6:引入文头
     Dim v
    v = Split(value, ";")
    Dim i As Long
    For i = LBound(v) To UBound(v)
        Select Case v(i)
        Case "意见处理"
            Me.chkActionList(0).value = 1
        Case "填写意见"
            Me.chkActionList(1).value = 1
        Case "查看意见"
            Me.chkActionList(2).value = 1
        Case "笔迹留痕"
            Me.chkActionList(3).value = 1
        Case "编辑批注"
            Me.chkActionList(4).value = 1
        Case "查看批注"
            Me.chkActionList(5).value = 1
        Case "引入文头"
            Me.chkActionList(6).value = 1
        Case Else
        End Select
    Next i
End Property