formmain.frm

来自「人力资源系统 人员的录入 添加 修改 方便用于各种企业对人员进行管理」· FRM 代码 · 共 89 行

VERSION 5.00
Begin VB.Form FormMain 
   Caption         =   "人力资源管理系统"
   ClientHeight    =   3165
   ClientLeft      =   165
   ClientTop       =   780
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   ScaleHeight     =   3165
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu MenuUser 
      Caption         =   "系统用户管理"
      Begin VB.Menu Menu_addUser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu Menu_edit_User 
         Caption         =   "查看/修改密码"
      End
   End
   Begin VB.Menu Menu_DepInfo 
      Caption         =   "部门信息管理"
      Begin VB.Menu Menu_seeDep 
         Caption         =   "查看部门信息"
      End
      Begin VB.Menu Menu_edit_Dep 
         Caption         =   "修改/删除部门信息"
      End
      Begin VB.Menu Menu_addDep 
         Caption         =   "增加部门信息"
      End
   End
   Begin VB.Menu Menu_StaInfo 
      Caption         =   "员工信息管理"
      Begin VB.Menu Menu_seeSta 
         Caption         =   "查看员工信息"
      End
      Begin VB.Menu Menu_edit_Sta 
         Caption         =   "修改/删除员工信息"
      End
      Begin VB.Menu Menu_addSta 
         Caption         =   "增加员工信息"
      End
   End
   Begin VB.Menu end 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "FormMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub end_Click()
End
End Sub

Private Sub Menu_addDep_Click()
Frm_addDep.Show
End Sub

Private Sub Menu_addSta_Click()
Frm_addSta.Show
End Sub

Private Sub Menu_addUser_Click()
frm_addUser.Show
End Sub

Private Sub Menu_edit_Dep_Click()
Frm_edit_Dep.Show
End Sub

Private Sub Menu_edit_Sta_Click()
Frm_edit_Sta.Show
End Sub

Private Sub Menu_edit_User_Click()
Frm_edit_User.Show
End Sub

Private Sub Menu_seeDep_Click()
Frm_seeDep.Show
End Sub

Private Sub Menu_seeSta_Click()
Frm_seeSta.Show
End Sub