工资管理系统.frm

企业工资管理系统的主要任务是用计算机对各种工资信息进行日常的管理

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "工资管理系统"
   ClientHeight    =   5820
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7470
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnuExit 
         Caption         =   "退出"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu mnuSys 
      Caption         =   "系统管理(&S)"
      Begin VB.Menu mnuSysUser 
         Caption         =   "用户管理"
         Shortcut        =   ^U
      End
      Begin VB.Menu mnuSysPassword 
         Caption         =   "修改口令"
         Shortcut        =   ^P
      End
      Begin VB.Menu mnuStuffManage 
         Caption         =   "员工信息管理"
         Shortcut        =   ^S
      End
   End
   Begin VB.Menu mnuStandard 
      Caption         =   "设定工资标准(&I)"
      Begin VB.Menu mnuDuty 
         Caption         =   "职务工资标准"
         Shortcut        =   {F2}
      End
      Begin VB.Menu mnuTitle 
         Caption         =   "职称工资标准"
         Shortcut        =   {F3}
      End
      Begin VB.Menu mnuElse 
         Caption         =   "其他工资标准"
         Shortcut        =   {F4}
      End
   End
   Begin VB.Menu mnuWage 
      Caption         =   "工资信息管理(&G)"
      Begin VB.Menu mnuCount 
         Caption         =   "浏览与结算"
         Shortcut        =   ^L
      End
      Begin VB.Menu mnuQuery 
         Caption         =   "工资查询"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "窗口(&W)"
      Begin VB.Menu mnuCascade 
         Caption         =   "层叠窗体"
         Shortcut        =   ^C
      End
      Begin VB.Menu mnuHorizontal 
         Caption         =   "水平平铺"
         Shortcut        =   ^H
      End
      Begin VB.Menu mnuVertical 
         Caption         =   "垂直平铺"
         Shortcut        =   ^V
      End
      Begin VB.Menu mnuArrangeIcons 
         Caption         =   "重排图标"
         Shortcut        =   ^A
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
   If ThisStatus <> "管理员" Then
   '隐藏系统菜单
     mnuSystem.Visible = False
     mnuStuffManage.Visible = False
     mnuStandard.Visible = False
     mnuCount.Visible = False
   End If
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'在用户准备退出系统时提示
  If MsgBox("你选择了关闭工资管理系统，是否继续？", vbYesNo + vbInformation, "工资管理系统") = vbYes Then
  '判断在所有子窗体关闭之后才关闭系统的主窗体
    If Not Me.ActiveForm Is Nothing Then
       MsgBox " 请先关闭打开的子窗体！", vbCritical, "工资管理系统"
       Cancel = 1
    End If
  Else
    Cancel = 1
  End If
  
End Sub

Private Sub mnuArrangeIcons_Click()
  SystemMain.Arrange vbArrangeIcons
End Sub

Private Sub mnuCascade_Click()
  SystemMain.Arrange vbCascade
End Sub

Private Sub mnuCount_Click()
  ShowWage.Show: ShowWage.SetFocus
  
End Sub

Private Sub mnuDuty_Click()
  DutyManage.Show: DutyManage.SetFocus
End Sub

Private Sub mnuElse_Click()
  ElseWage.Show: ElseWage.SetFocus
End Sub

Private Sub mnuExit_Click()
  Unload Me
End Sub

Private Sub mnuHorizontal_Click()
  SystemMain.Arrange vbTileHorizontal
End Sub

Private Sub mnuQuery_Click()
  QueryWage.Show: QueryWage.SetFocus
End Sub

Private Sub mnuStuffManage_Click()
  StuffManage.Show: StuffManage.SetFocus
End Sub

Private Sub mnuSysPassword_Click()
  ChangePassword.Show: ChangePassword.SetFocus
End Sub

Private Sub mnuSysUser_Click()
  SystemUserManage.Show: SystemUserManage.SetFocus
End Sub

Private Sub mnuTitle_Click()
  TitleManage.Show: TitleManage.SetFocus
End Sub

Private Sub mnuVertical_Click()
  SystemMain.Arrange vbTileVertical
End Sub