frmmdimain.frm

企业人事管理完美版,使用了许多高级控件,相信你一定会喜欢

         Caption         =   "退出系统"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu mnuRecord 
      Caption         =   "员工档案(&R)"
      Begin VB.Menu mnuAddRecord 
         Caption         =   "添加员工档案"
      End
      Begin VB.Menu mnuUpdateRecord 
         Caption         =   "更新员工档案"
      End
      Begin VB.Menu mnuDeleteRecord 
         Caption         =   "删除员工档案"
      End
      Begin VB.Menu mnuLine3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQueryRecord 
         Caption         =   "查询员工档案"
      End
      Begin VB.Menu mnuRecordR 
         Caption         =   "员工档案报表"
      End
   End
   Begin VB.Menu mnuCheckManage 
      Caption         =   "考勤管理(&C)"
      Begin VB.Menu mnuAddCheck 
         Caption         =   "添加考勤信息"
      End
      Begin VB.Menu mnuModifyCheck 
         Caption         =   "修改考勤信息"
      End
      Begin VB.Menu mnuDeleteCheck 
         Caption         =   "删除考勤信息"
      End
      Begin VB.Menu mnuLine4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQueryCheck 
         Caption         =   "查询考勤信息"
      End
      Begin VB.Menu mnuCheckR 
         Caption         =   "考勤信息报表"
      End
   End
   Begin VB.Menu mnuWorkComment 
      Caption         =   "工作评价(&W)"
      Begin VB.Menu mnuAddComment 
         Caption         =   "添加员工评价"
      End
      Begin VB.Menu mnuModifyComment 
         Caption         =   "修改员工评价"
      End
      Begin VB.Menu mnuDeleteComment 
         Caption         =   "删除员工评价"
      End
      Begin VB.Menu mnuLine5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQueryComment 
         Caption         =   "查询员工评价"
      End
      Begin VB.Menu mnuCommentR 
         Caption         =   "工作评价报表"
      End
   End
   Begin VB.Menu mnuMoveInfo 
      Caption         =   "员工调动(&M)"
      Begin VB.Menu mnuAddMove 
         Caption         =   "添加调动信息"
      End
      Begin VB.Menu mnuModifyMove 
         Caption         =   "修改调动信息"
      End
      Begin VB.Menu mnuDeleteMove 
         Caption         =   "删除调动信息"
      End
      Begin VB.Menu mnuLine6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQueryMove 
         Caption         =   "查询调动信息"
      End
      Begin VB.Menu mnuMoveR 
         Caption         =   "调动信息报表"
      End
   End
   Begin VB.Menu mnuPayManage 
      Caption         =   "工资管理(&R)"
      Begin VB.Menu mnuPlanPay 
         Caption         =   "计发员工工资"
      End
      Begin VB.Menu mnuUpdatePay 
         Caption         =   "整理员工工资"
      End
      Begin VB.Menu mnuLine7 
         Caption         =   "-"
      End
      Begin VB.Menu mnuQueryPay 
         Caption         =   "查询员工工资"
      End
      Begin VB.Menu mnuPayR 
         Caption         =   "员工工资报表"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuSystemHelp 
         Caption         =   "系统帮助"
         Shortcut        =   {F1}
      End
      Begin VB.Menu mnuAboutAuthor 
         Caption         =   "关于作者"
      End
      Begin VB.Menu mnuLine8 
         Caption         =   "-"
      End
      Begin VB.Menu mnuOnlineUpdate 
         Caption         =   "在线升级"
         Shortcut        =   ^U
      End
   End
   Begin VB.Menu mnuQueryInfo 
      Caption         =   "查询信息"
      Visible         =   0   'False
      Begin VB.Menu mnuFindRecord 
         Caption         =   "查询员工档案"
      End
      Begin VB.Menu mnuFindCheck 
         Caption         =   "查询考勤信息"
      End
      Begin VB.Menu mnuFindComment 
         Caption         =   "查询员工评价"
      End
      Begin VB.Menu mnuFindMove 
         Caption         =   "查询调动信息"
      End
      Begin VB.Menu mnuFindPay 
         Caption         =   "查询员工工资"
      End
   End
   Begin VB.Menu mnuReport 
      Caption         =   "打印报表"
      Visible         =   0   'False
      Begin VB.Menu mnuRecordReport 
         Caption         =   "员工档案报表"
      End
      Begin VB.Menu mnuCheckReport 
         Caption         =   "考勤信息报表"
      End
      Begin VB.Menu mnuWorkReport 
         Caption         =   "工作评价报表"
      End
      Begin VB.Menu mnuMoveReport 
         Caption         =   "员工调动报表"
      End
      Begin VB.Menu mnuRiceReport 
         Caption         =   "员工工资报表"
      End
   End
End
Attribute VB_Name = "Frmmdimain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'API函数定义
Private Declare Function HtmlHelpA Lib "hhctrl.ocx" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long
Const HH_DISPLAY_TOPIC = &H0
Const HH_DISPLAY_INDEX = &H2
Const HH_HELP_CONTEXT = &HF
Const HH_DISPLAY_SEARCH = &H3
Const HH_DISPLAY_TEXT_POPUP = &HE
Private Sub CmdTool_Click(Index As Integer)
Select Case Index
    Case 1
        Call mnuAdduser_Click
    Case 2
        Call mnuReLogin_Click
    Case 3
        Call mnuExit_Click
    Case 5
        Call mnuAddRecord_Click
    Case 6
        PopupMenu mnuQueryInfo       '//弹出菜单
    Case 8
        Call mnuSystemHelp_Click
    Case 9
        Call mnuSysKey_Click
    Case 10
        PopupMenu mnuReport
End Select
End Sub

Private Sub CmdTool_DropDownClick(Index As Integer)
Select Case Index
    Case 6
    PopupMenu mnuQueryInfo       '//弹出菜单
    Case 10
    PopupMenu mnuReport
End Select
End Sub

Private Sub MDIForm_Load()
WinXPMain.InitSubClassing
StaBar.Panels(1).Text = "今天是：" & Format(Date, "dddddd")      '//MDI窗体加载时给状态栏赋值
StaBar.Panels(2).Text = "当前用户：" & UserName
StaBar.Panels(3).Text = "用户权限：" & Group
StaBar.Panels(4).Text = "登录时间：" & Time()
End Sub

Private Sub mnuAboutAuthor_Click()
frmAbout.Show
End Sub

Private Sub mnuAddCheck_Click()
FrmCheck.Show
End Sub

Private Sub mnuAddComment_Click()
FrmWorkComment.Show
End Sub

Private Sub mnuAddMove_Click()
FrmMoveInfo.Show
End Sub

Private Sub mnuAddRecord_Click()
FrmRecord.Show
End Sub

Private Sub mnuAdduser_Click()
FrmAddUsers.Show
End Sub

Private Sub mnuCheckR_Click()
DataRepCheck.Show
End Sub

Private Sub mnuCheckReport_Click()
mnuCheckR_Click
End Sub

Private Sub mnuClose_Click()
On Error GoTo ErrUnload         '//错误捕捉
    Unload Me.ActiveForm        '//关闭活动窗体
Exit Sub
ErrUnload:
MsgBox "当前没有活动窗体", , "关闭窗口"
End Sub

Private Sub mnuCommentR_Click()
DataRepWorkComment.Show
End Sub

Private Sub mnuDeleteCheck_Click()
FrmCheck.Show
End Sub

Private Sub mnuDeleteComment_Click()
FrmWorkComment.Show
End Sub

Private Sub mnuDeleteMove_Click()
FrmModifyMove.Show
End Sub

Private Sub mnuDeleteRecord_Click()
FrmRecord.Show
End Sub

Private Sub mnuDeptManage_Click()
FrmDeptManage.Show
End Sub

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

Private Sub mnuFindCheck_Click()
mnuQueryCheck_Click
End Sub

Private Sub mnuFindComment_Click()
mnuQueryComment_Click
End Sub

Private Sub mnuFindMove_Click()
mnuQueryMove_Click
End Sub

Private Sub mnuFindPay_Click()
mnuQueryPay_Click
End Sub

Private Sub mnuFindRecord_Click()
mnuQueryRecord_Click
End Sub

Private Sub mnuModifyCheck_Click()
FrmCheck.Show
End Sub

Private Sub mnuModifyComment_Click()
FrmWorkComment.Show
End Sub

Private Sub mnuModifyMove_Click()
FrmModifyMove.Show
End Sub

Private Sub mnuModifyPWD_Click()
FrmModifyPassWord.Show
End Sub

Private Sub mnuMoveR_Click()
DataReMove.Show
End Sub

Private Sub mnuMoveReport_Click()
mnuMoveR_Click
End Sub

Private Sub mnuOnlineUpdate_Click()
FrmUpDate.Show
End Sub

Private Sub mnuPayR_Click()
DataRepPay.Show
End Sub

Private Sub mnuPlanPay_Click()
FrmPayManage.Show
End Sub

Private Sub mnuQueryCheck_Click()
FrmQueryCheck.Show
End Sub

Private Sub mnuQueryComment_Click()
FrmQueryComment.Show
End Sub

Private Sub mnuQueryMove_Click()
FrmQueryMove.Show
End Sub

Private Sub mnuQueryPay_Click()
FrmQueryPay.Show
End Sub

Private Sub mnuQueryRecord_Click()
FrmQueryRecord.Show
End Sub

Private Sub mnuRecordR_Click()
DataRepRecord.Show
End Sub

Private Sub mnuRecordReport_Click()
mnuRecordR_Click
End Sub

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

Private Sub mnuRiceReport_Click()
mnuPayR_Click
End Sub

Private Sub mnuSysKey_Click()
If MsgBox("确定要锁定系统吗？", vbInformation + vbYesNo, "锁定系统") = vbYes Then
    Me.Hide
    FrmSystemLock.Show vbModal          '以有模式窗口打开
    
End If
End Sub

Private Sub mnuSystemHelp_Click()
'弹出帮助文件
HtmlHelpA Me.hWnd, App.Path & "\企业人事管理系统.CHM", 0, 0
End Sub

Private Sub mnuUpdatePay_Click()
FrmModPay.Show
End Sub

Private Sub mnuUpdateRecord_Click()
FrmRecord.Show
End Sub

Private Sub mnuWorkReport_Click()
mnuCommentR_Click
End Sub