frmprojdes.frm

本系统实现了软件项目开发的流程管理和控制

VERSION 5.00
Begin VB.Form FrmProjDes 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "工程分配"
   ClientHeight    =   2160
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5895
   Icon            =   "FrmProjDes.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2160
   ScaleWidth      =   5895
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Height          =   1215
      Left            =   240
      TabIndex        =   4
      Top             =   120
      Width           =   5415
      Begin VB.ComboBox ComboUser 
         Height          =   300
         ItemData        =   "FrmProjDes.frx":1272
         Left            =   1200
         List            =   "FrmProjDes.frx":1274
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   660
         Width           =   1335
      End
      Begin VB.TextBox txtProj 
         Enabled         =   0   'False
         Height          =   270
         Left            =   1200
         MaxLength       =   20
         TabIndex        =   0
         Top             =   240
         Width           =   3975
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "客户单位"
         Height          =   180
         Left            =   240
         TabIndex        =   6
         Top             =   285
         Width           =   720
      End
      Begin VB.Label Label9 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "负责主管"
         Height          =   180
         Left            =   240
         TabIndex        =   5
         Top             =   720
         Width           =   720
      End
   End
   Begin VB.CommandButton Cmd_Cancel 
      BackColor       =   &H80000000&
      Cancel          =   -1  'True
      Caption         =   "取 消"
      Height          =   400
      Left            =   3197
      MouseIcon       =   "FrmProjDes.frx":1276
      MousePointer    =   99  'Custom
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   1560
      Width           =   1300
   End
   Begin VB.CommandButton Cmd_Ok 
      BackColor       =   &H80000000&
      Caption         =   "确 定"
      Height          =   400
      Left            =   1397
      MouseIcon       =   "FrmProjDes.frx":1580
      MousePointer    =   99  'Custom
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   1560
      Width           =   1300
   End
End
Attribute VB_Name = "FrmProjDes"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public OriId As String

Private Sub Cmd_Cancel_Click()
  Unload Me
End Sub

Private Sub Cmd_OK_Click()
  '判断用户输入数据的有效性
  If Trim(ComboUser.Text) = "" Then
    MsgBox "请选择主管用户"
    ComboUser.SetFocus
    Exit Sub
  End If
  '把用户输入的数据赋值到MyProj对象中
  '然后更新软件开发主管、项目状态和项目开始日期
  MyProj.Softmanager = ComboUser.Text
  MyProj.UpdateSoft (OriId)
  MyProj.Status = 2
  MyProj.UpdateStatus (OriId)
  MyProj.UpdateStart (OriId)
  '关闭窗体
  Unload Me
End Sub

Private Sub Form_Load()
  '把所有软件开发主管的员工姓名装入数组Arr_Ename()中
  MyUser.LoadEname (4)
  i = 0
  '依次把数组Arr_Ename()中的数据添加到ComboUser中
  Do While Arr_Ename(i) <> ""
    ComboUser.AddItem Arr_Ename(i)
    i = i + 1
  Loop
  '对ComboUser赋初值
  If ComboUser.ListCount > 0 Then
    ComboUser.ListIndex = 0
  End If
End Sub