frmwfclass.frm

办公流程定制

VERSION 5.00
Begin VB.Form frmWFClass 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "流程描述"
   ClientHeight    =   3630
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7140
   Icon            =   "frmWFClass.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3630
   ScaleWidth      =   7140
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame frabk 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      ForeColor       =   &H80000008&
      Height          =   3705
      Left            =   0
      TabIndex        =   0
      Top             =   -90
      Width           =   7125
      Begin VB.TextBox Text2 
         Height          =   1065
         Left            =   1170
         TabIndex        =   12
         Top             =   2025
         Width           =   5685
      End
      Begin VB.TextBox Text1 
         Height          =   300
         Left            =   1170
         TabIndex        =   10
         Top             =   1575
         Width           =   5685
      End
      Begin VB.TextBox txtwf_Name 
         Height          =   300
         Left            =   1170
         TabIndex        =   8
         Top             =   1125
         Width           =   5685
      End
      Begin VB.ComboBox cbowf_Type 
         Height          =   300
         Left            =   1170
         Style           =   2  'Dropdown List
         TabIndex        =   5
         Top             =   720
         Width           =   2535
      End
      Begin VB.ComboBox cbowf_Class 
         Height          =   300
         Left            =   1170
         TabIndex        =   3
         Text            =   "Combo1"
         Top             =   315
         Width           =   2535
      End
      Begin VB.CommandButton cmdYes 
         BackColor       =   &H80000009&
         Caption         =   "确定"
         Height          =   285
         Left            =   5040
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   3285
         Width           =   780
      End
      Begin VB.CommandButton cmdNo 
         BackColor       =   &H80000009&
         Caption         =   "取消"
         Height          =   285
         Left            =   5985
         Style           =   1  'Graphical
         TabIndex        =   1
         Top             =   3285
         Width           =   780
      End
      Begin VB.Label lblTitle 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "备注："
         ForeColor       =   &H80000008&
         Height          =   180
         Index           =   4
         Left            =   135
         TabIndex        =   11
         Top             =   2070
         Width           =   540
      End
      Begin VB.Label lblTitle 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "模板名称："
         ForeColor       =   &H80000008&
         Height          =   180
         Index           =   3
         Left            =   135
         TabIndex        =   9
         Top             =   1620
         Width           =   900
      End
      Begin VB.Label lblTitle 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "流程名称："
         ForeColor       =   &H80000008&
         Height          =   180
         Index           =   2
         Left            =   135
         TabIndex        =   7
         Top             =   1170
         Width           =   900
      End
      Begin VB.Label lblTitle 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "流程类型："
         ForeColor       =   &H80000008&
         Height          =   180
         Index           =   1
         Left            =   135
         TabIndex        =   6
         Top             =   765
         Width           =   900
      End
      Begin VB.Label lblTitle 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "流程类别："
         ForeColor       =   &H80000008&
         Height          =   180
         Index           =   0
         Left            =   135
         TabIndex        =   4
         Top             =   360
         Width           =   900
      End
   End
End
Attribute VB_Name = "frmWFClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private mvarDrawFrm As Toolbar
Public Property Set DrawFrm(ByVal vData As Object)
'Syntax: Set x.DrawFrm = Form1
    Set mvarDrawFrm = vData
End Property
Private Sub cmdNo_Click()
    Unload Me
End Sub

Private Sub cmdYes_Click()
    With mvarDrawFrm
        .Buttons(1).Enabled = True
        .Buttons(2).Enabled = True
        .Buttons(3).Enabled = False
        .Buttons(4).Enabled = True
        .Buttons(5).Enabled = True
        .Buttons(7).Enabled = False
        .Buttons(8).Enabled = False
        .Buttons(10).Enabled = True
        .Buttons(11).Enabled = True
    End With
    Me.Hide
End Sub

Private Sub Form_Load()
    If ConDB Then
        'MsgBox "数据库连接成功"
        
    End If
    '=================================
    With cbowf_Type
        cbowf_Type.AddItem "附件流程"
        cbowf_Type.AddItem "模板流程"
        cbowf_Type.AddItem "数据表单流程"
    End With
End Sub