frmmain.frm

软件项目管理的基本功能

VERSION 5.00
Begin VB.Form FrmMain 
   Caption         =   "软件项目管理系统"
   ClientHeight    =   8970
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   12030
   LinkTopic       =   "Form1"
   Picture         =   "FrmMain.frx":0000
   ScaleHeight     =   8970
   ScaleWidth      =   12030
   StartUpPosition =   2  'CenterScreen
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "软件项目管理系统"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   840
      Left            =   2880
      TabIndex        =   0
      Top             =   3360
      Width           =   6840
   End
   Begin VB.Menu mn_1 
      Caption         =   "基本信息设置"
      Begin VB.Menu mn_Type 
         Caption         =   "项目类型设置"
      End
      Begin VB.Menu mn_Status 
         Caption         =   "项目状态设置"
      End
      Begin VB.Menu mn_ModuleStatus 
         Caption         =   "模块状态设置"
      End
      Begin VB.Menu mn_Level 
         Caption         =   "缺陷级别设置"
      End
      Begin VB.Menu mn_Exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mn_2 
      Caption         =   "项目组管理"
      Begin VB.Menu mn_Emp 
         Caption         =   "员工管理"
      End
      Begin VB.Menu mn_Role 
         Caption         =   "角色管理"
      End
   End
   Begin VB.Menu mn_3 
      Caption         =   "软件项目管理"
      Begin VB.Menu mn_Project 
         Caption         =   "项目信息管理"
      End
      Begin VB.Menu mn_Module 
         Caption         =   "软件模块管理"
      End
      Begin VB.Menu mn_Bug 
         Caption         =   "软件缺陷管理"
      End
   End
   Begin VB.Menu mn_4 
      Caption         =   "系统管理"
      Begin VB.Menu mn_Users 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mn_PwdChange 
         Caption         =   "修改密码"
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  FrmLogin.Show 1
End Sub

Private Sub mn_Bug_Click()
  FrmBugMan.Show 1
End Sub

Private Sub mn_Emp_Click()
  FrmEmpMan.Show 1
End Sub

Private Sub mn_Exit_Click()
  End
End Sub

Private Sub mn_Level_Click()
  FrmTypes.nFlag = 4
  FrmTypes.Caption = "缺陷级别设置"
  FrmTypes.Show 1
End Sub

Private Sub mn_Module_Click()
  FrmModuleMan.Show 1
End Sub

Private Sub mn_ModuleStatus_Click()
  FrmTypes.nFlag = 3
  FrmTypes.Caption = "模块状态设置"
  FrmTypes.Show 1
End Sub

Private Sub mn_Project_Click()
  FrmProjectMan.Show 1
End Sub

Private Sub mn_PwdChange_Click()
  With FrmUserEdit
    .OriUser = CurUser.UserName
    .txtUserName = CurUser.UserName
    .txtPass = CurUser.UserPwd
    .txtPass2 = CurUser.UserPwd
    .txtUserName.Enabled = False
    .Modify = True
    .Show 1
  End With
End Sub

Private Sub mn_Role_Click()
  FrmRoleMan.Show 1
End Sub

Private Sub mn_Status_Click()
  FrmTypes.nFlag = 2
  FrmTypes.Caption = "项目状态设置"
  FrmTypes.Show 1
End Sub

Private Sub mn_Type_Click()
  FrmTypes.nFlag = 1
  FrmTypes.Caption = "项目类型设置"
  FrmTypes.Show 1
End Sub

Private Sub mn_Users_Click()
  '只有系统管理员才能进入用户管理窗体
  If Trim(CurUser.UserName) = "Admin" Then
    FrmUserMan.Show 1
  Else
    '其他用户只能编辑自己的用户信息
    With FrmUserEdit
    .OriUser = CurUser.UserName
    .txtUserName = CurUser.UserName
    .txtPass = CurUser.UserPwd
    .txtPass2 = CurUser.UserPwd
    .txtUserName.Enabled = False
    .Modify = True
    .Show 1
    End With
  End If
End Sub