frmsetagent.frm

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

VERSION 5.00
Begin VB.Form frmSetAgent 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   4425
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5895
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4425
   ScaleWidth      =   5895
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmd 
      Cancel          =   -1  'True
      Caption         =   "取　消"
      Height          =   375
      Index           =   3
      Left            =   2280
      TabIndex        =   5
      Top             =   2760
      Width           =   975
   End
   Begin VB.CommandButton cmd 
      Caption         =   "确　定"
      Default         =   -1  'True
      Height          =   375
      Index           =   2
      Left            =   2280
      TabIndex        =   4
      Top             =   2040
      Width           =   975
   End
   Begin VB.CommandButton cmd 
      Caption         =   "删　除"
      Height          =   375
      Index           =   1
      Left            =   2280
      TabIndex        =   3
      Top             =   1440
      Width           =   975
   End
   Begin VB.CommandButton cmd 
      Caption         =   "添　加"
      Height          =   375
      Index           =   0
      Left            =   2280
      TabIndex        =   2
      Top             =   840
      Width           =   975
   End
   Begin VB.ListBox lst 
      Height          =   2940
      Index           =   1
      ItemData        =   "frmSetAgent.frx":0000
      Left            =   3480
      List            =   "frmSetAgent.frx":0002
      TabIndex        =   1
      Top             =   600
      Width           =   2175
   End
   Begin VB.ListBox lst 
      Height          =   2940
      Index           =   0
      ItemData        =   "frmSetAgent.frx":0004
      Left            =   120
      List            =   "frmSetAgent.frx":0006
      TabIndex        =   0
      Top             =   600
      Width           =   2055
   End
End
Attribute VB_Name = "frmSetAgent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private mSelects() As String
'AllAgents
'Agents
'
Public Function Display(AllAgents() As String, Agents() As String) As String()
    mSelects = Agents
    Dim i As Long
    For i = LBound(AllAgents) To UBound(AllAgents)
        If AllAgents(i) <> "" Then
            Me.lst(0).AddItem AllAgents(i)
        End If
    Next i
    For i = LBound(Agents) To UBound(Agents)
        If Agents(i) <> "" Then
            Me.lst(1).AddItem Agents(i)
        End If
    Next i
    Me.Icon = frmMain.Icon
    Me.Show vbModal
    Display = mSelects
End Function

Private Sub cmd_Click(Index As Integer)
    Dim i As Long
    Select Case Index
    Case 0 '添加
        For i = 0 To lst(0).ListCount - 1
            If lst(0).Selected(i) Then
                AddSelect lst(0).List(i)
            End If
        Next i
    Case 1 '删除
        With Me.lst(1)
            i = 0
            Do While i < .ListCount
                If .Selected(i) Then
                    .RemoveItem (i)
                Else
                    i = i + 1
                End If
            Loop
        End With
    Case 2 '确定
        ReDim mSelects(0 To lst(1).ListCount)
        For i = 1 To lst(1).ListCount
            mSelects(i) = lst(1).List(i - 1)
        Next i
        Unload Me
    Case 3 '取消
        Unload Me
    End Select
End Sub

Private Sub AddSelect(AName As String)
    Dim i As Integer
    For i = 0 To Me.lst(1).ListCount - 1
        If AName = Me.lst(1).List(i) Then Exit Sub
    Next i
    Me.lst(1).AddItem AName
End Sub