frmmdimain.frm

人事工资管理系统应包含对员工档案、员工培训、员工调动、员工职称评定、员工奖惩的管理和工资的查询与管理等诸多模块。员工档案管理模块对员工信息进行添加、修改、删除和查询；员工培训管理模块可增加

VERSION 5.00
Begin VB.MDIForm Frmmdimain 
   BackColor       =   &H00FFFFFF&
   Caption         =   "人事工资管理系统 "
   ClientHeight    =   6570
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   9510
   Icon            =   "Frmmdimain.frx":0000
   LinkTopic       =   "MDIForm1"
   LockControls    =   -1  'True
   Picture         =   "Frmmdimain.frx":014A
   StartUpPosition =   1  '所有者中心
   WindowState     =   2  'Maximized
   Begin VB.PictureBox StaBar 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      ScaleHeight     =   315
      ScaleWidth      =   9450
      TabIndex        =   0
      Top             =   6195
      Width           =   9510
   End
   Begin VB.Menu mnuSysset 
      Caption         =   "系统设置"
      Begin VB.Menu mnuAdduser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu mnuModifyPassWord 
         Caption         =   "修改密码"
      End
      Begin VB.Menu mnuReLogin 
         Caption         =   "重新登录"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mnuRecordManage 
      Caption         =   "员工档案管理"
      Begin VB.Menu mnuAddRecord 
         Caption         =   "添加员工档案"
      End
      Begin VB.Menu mnuModifyRecord 
         Caption         =   "修改员工档案"
      End
      Begin VB.Menu mnuDeleteRecord 
         Caption         =   "删除员工档案"
      End
      Begin VB.Menu mnuQueryRecord 
         Caption         =   "查询员工档案"
      End
   End
   Begin VB.Menu mnuTrainingManage 
      Caption         =   "员工培训管理"
      Begin VB.Menu mnuAddTraining 
         Caption         =   "添加培训信息"
      End
      Begin VB.Menu mnuModifyTraining 
         Caption         =   "修改培训信息"
      End
      Begin VB.Menu mnuDeleteTraining 
         Caption         =   "删除培训信息"
      End
      Begin VB.Menu mnuQueryTraining 
         Caption         =   "查询培训信息"
      End
   End
   Begin VB.Menu mnuWorkComment 
      Caption         =   "职称评定管理"
      Begin VB.Menu mnuAddComment 
         Caption         =   "添加职称评定"
      End
      Begin VB.Menu mnuModifyComment 
         Caption         =   "修改职称评定"
      End
      Begin VB.Menu mnuDeleteComment 
         Caption         =   "删除职称评定"
      End
      Begin VB.Menu mnuQueryComment 
         Caption         =   "查询职称评定"
      End
   End
   Begin VB.Menu mnuMoveInfo 
      Caption         =   "员工调动管理"
      Begin VB.Menu mnuAddMove 
         Caption         =   "添加调动信息"
      End
      Begin VB.Menu mnuModifyMove 
         Caption         =   "修改调动信息"
      End
      Begin VB.Menu mnuDeleteMove 
         Caption         =   "删除调动信息"
      End
      Begin VB.Menu mnuQueryMove 
         Caption         =   "查询调动信息"
      End
   End
   Begin VB.Menu mnuDealManage 
      Caption         =   "员工奖惩管理"
      Begin VB.Menu mnuAddDeal 
         Caption         =   "添加奖惩记录"
      End
      Begin VB.Menu mnuModifyDeal 
         Caption         =   "修改奖惩记录"
      End
      Begin VB.Menu mnuDeleteDeal 
         Caption         =   "删除奖惩记录"
      End
      Begin VB.Menu mnuQueryDeal 
         Caption         =   "查询奖惩记录"
      End
   End
   Begin VB.Menu mnuPayManage 
      Caption         =   "工资管理"
      Begin VB.Menu mnuPlanPay 
         Caption         =   "计发员工工资"
      End
      Begin VB.Menu mnuModifyPay 
         Caption         =   "修改员工工资"
      End
      Begin VB.Menu mnuQueryPay 
         Caption         =   "查询员工工资"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助"
      Begin VB.Menu mnuAbout 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "Frmmdimain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuAdduser_Click()
FrmAddUsers.Show             '//单击添加用户按钮显示FrmAddUsers窗体
End Sub

Private Sub mnuModifyPassWord_Click()
FrmModifyPassWord.Show       '//单击修改密码按钮显示FrmModifyPassWord窗体
End Sub

Private Sub mnuReLogin_Click()
If MsgBox("确定要重新登录吗？", vbInformation + vbYesNo, "重新登录") = vbYes Then
    Unload Me
    Load FrmLogin            '//重新加载登录窗体
    FrmLogin.Show            '//显示登陆窗体
End If
End Sub

Private Sub mnuExit_Click()
If MsgBox("确定要退出系统吗？", vbInformation + vbYesNo, "退出系统") = vbYes Then
    End                      '//退出系统
End If
End Sub

Private Sub mnuAddRecord_Click()
FrmRecord.Show               '//单击添加员工档案按钮显示FrmRecord窗体
End Sub

Private Sub mnuModifyRecord_Click()
FrmRecord.Show               '//单击修改员工档案按钮显示FrmRecord窗体
End Sub

Private Sub mnuDeleteRecord_Click()
FrmRecord.Show               '//单击删除员工档案按钮显示FrmRecord窗体
End Sub

Private Sub mnuQueryRecord_Click()
FrmQueryRecord.Show          '//单击查询员工档案按钮显示FrmQueryRecord窗体
End Sub

Private Sub mnuAddTraining_Click()
FrmTraining.Show             '//单击添加培训信息按钮显示FrmTraining窗体
End Sub

Private Sub mnuModifyTraining_Click()
FrmTraining.Show             '//单击修改培训信息按钮显示FrmTraining窗体
End Sub

Private Sub mnuDeleteTraining_Click()
FrmTraining.Show             '//单击删除培训信息按钮显示FrmTraining窗体
End Sub

Private Sub mnuQueryTraining_Click()
FrmQueryTraining.Show        '//单击查询培训信息按钮显示FrmQueryTraining窗体
End Sub

Private Sub mnuAddComment_Click()
FrmWorkComment.Show       '//单击添加评定记录按钮显示FrmWorkComment窗体
End Sub

Private Sub mnuModifyComment_Click()
FrmWorkComment.Show       '//单击修改评定记录按钮显示FrmWorkComment窗体
End Sub

Private Sub mnuDeleteComment_Click()
FrmWorkComment.Show       '//单击删除评定记录按钮显示FrmWorkComment窗体
End Sub

Private Sub mnuQueryComment_Click()
FrmQueryComment.Show           '//单击查询评定记录按钮显示FrmQueryComment窗体
End Sub

Private Sub mnuAddMove_Click()
FrmMoveInfo.Show             '//单击添加调动信息按钮显示FrmMoveInfo窗体
End Sub


Private Sub mnuModifyMove_Click()
FrmModifyMove.Show           '//单击修改调动信息按钮显示FrmModifyMove窗体
End Sub


Private Sub mnuDeleteMove_Click()
FrmModifyMove.Show           '//单击删除调动信息按钮显示FrmModifyMove窗体
End Sub


Private Sub mnuQueryMove_Click()
FrmQueryMove.Show            '//单击查询调动信息按钮显示FrmQueryMove窗体
End Sub

Private Sub mnuAddDeal_Click()
FrmDeal.Show                 '//单击添加奖惩记录按钮显示FrmDeal窗体
End Sub

Private Sub mnuModifyDeal_Click()
FrmDeal.Show                 '//单击修改奖惩记录按钮显示FrmDeal窗体
End Sub

Private Sub mnuDeleteDeal_Click()
FrmDeal.Show                 '//单击删除奖惩记录按钮显示FrmDeal窗体
End Sub

Private Sub mnuQueryDeal_Click()
FrmQueryDeal.Show            '//单击查询奖惩记录按钮显示FrmQueryDeal窗体
End Sub

Private Sub mnuPlanPay_Click()
FrmPayManage.Show            '//单击计发员工工资按钮显示FrmPayManage窗体
End Sub
Private Sub mnuModifyPay_Click()
FrmModifyPay.Show            '//单击修改员工工资按钮显示FrmModifyPay窗体
End Sub

Private Sub mnuQueryPay_Click()
FrmQueryPay.Show             '//单击查询员工工资按钮显示FrmQueryPay窗体
End Sub

Private Sub mnuAbout_Click()
frmAbout.Show                '//单击关于按钮显示frmAbout窗体
End Sub