frmsystemmain.frm

工资管理系统

VERSION 5.00
Begin VB.MDIForm SystemMain 
   BackColor       =   &H8000000C&
   Caption         =   "工资管理系统"
   ClientHeight    =   3945
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6720
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnuExit 
         Caption         =   "退出"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu mnuSys 
      Caption         =   "系统管理(&S)"
      Begin VB.Menu mnuSysUsers 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mnuSysPassword 
         Caption         =   "修改口令"
      End
      Begin VB.Menu mnuStuffManage 
         Caption         =   "员工信息管理"
      End
   End
   Begin VB.Menu mnuStandard 
      Caption         =   "设定工资标准(&T)"
      Begin VB.Menu mnuDuty 
         Caption         =   "职务工资标准"
      End
      Begin VB.Menu mnuTitle 
         Caption         =   "职称工资标准"
      End
      Begin VB.Menu mnuElse 
         Caption         =   "其他工资标准"
      End
   End
   Begin VB.Menu mnuWage 
      Caption         =   "工资信息管理(&G)"
      Begin VB.Menu mnuCount 
         Caption         =   "浏览与结算"
      End
      Begin VB.Menu mnuQuery 
         Caption         =   "工资查询"
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "窗口(&W)"
      WindowList      =   -1  'True
      Begin VB.Menu mnuCascade 
         Caption         =   "层叠窗口"
      End
      Begin VB.Menu mnuHorizontal 
         Caption         =   "水平平铺"
      End
      Begin VB.Menu mnuVertical 
         Caption         =   "垂直平铺"
      End
      Begin VB.Menu mnuArrangeIcons 
         Caption         =   "重排图标"
      End
   End
End
Attribute VB_Name = "SystemMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub MDIForm_Load()
    If ThisStatus <> "管理员" Then
        '隐藏系统菜单
        mnuSysUsers.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 mnuExit_Click()
    Unload Me       '关闭系统主窗体
End Sub
Private Sub mnuCount_Click()
    ShowWage.Show: ShowWage.SetFocus
End Sub
Private Sub mnuElse_Click()
    ElseWage.Show: ElseWage.SetFocus
End Sub
Private Sub mnuDuty_Click()
    DutyWage.Show: DutyWage.SetFocus
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 mnuSysUsers_Click()
    SysUserManage.Show: SysUserManage.SetFocus
End Sub

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

Private Sub mnuArrangeIcons_Click()
    SystemMain.Arrange vbArrangeIcons
End Sub

Private Sub mnuCascade_Click()
   SystemMain.Arrange vbCascade
End Sub
Private Sub mnuHorizontal_Click()
    SystemMain.Arrange vbTileHorizontal
End Sub

Private Sub mnuVertical_Click()
    SystemMain.Arrange vbTileVertical
End Sub