frmmain.frm

用VB＋Access实现的企业人事工资管理系统。

VERSION 5.00
Begin VB.MDIForm FrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "企业人事信息管理系统"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   WindowState     =   2  'Maximized
   Begin VB.Menu A1 
      Caption         =   "系统"
      Begin VB.Menu A11 
         Caption         =   "添加用户"
      End
      Begin VB.Menu A14 
         Caption         =   "用户登录"
      End
      Begin VB.Menu A12 
         Caption         =   "修改密码"
      End
      Begin VB.Menu A13 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu A2 
      Caption         =   "员工管理"
      Begin VB.Menu A21 
         Caption         =   "员工信息添加"
      End
      Begin VB.Menu A23 
         Caption         =   "员工信息修改"
      End
      Begin VB.Menu A24 
         Caption         =   "员工信息查询"
      End
   End
   Begin VB.Menu A3 
      Caption         =   "员工工资管理"
      Begin VB.Menu A31 
         Caption         =   "计发与修改员工工资信息"
      End
      Begin VB.Menu A32 
         Caption         =   "员工工资信息查询"
      End
   End
   Begin VB.Menu A4 
      Caption         =   "帮助"
      Begin VB.Menu A41 
         Caption         =   "About"
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub A11_Click()
frmAdduser.Show
End Sub

Private Sub A12_Click()
FrmPWD.Show
End Sub

Private Sub A13_Click()
Unload Me
End Sub

Private Sub A14_Click()
frmLogin.Show
End Sub

Private Sub A21_Click()
If userAvailable = True Then
    frmAddYg.Show
Else
    frmLogin.Show
End If
End Sub

Private Sub A23_Click()
If userAvailable = True Then
    FrmModify.Show
Else
    frmLogin.Show
End If
End Sub

Private Sub A24_Click()
If userAvailable = True Then
    FrmShowGrid.Show
Else
    frmLogin.Show
End If
End Sub

Private Sub A31_Click()
If userAvailable = True Then
    frmCountPay.Show
Else
    frmLogin.Show
End If
End Sub

Private Sub A32_Click()
If userAvailable = True Then
    frmInquire.Show
Else
    frmLogin.Show
End If
End Sub

Private Sub A33_Click()
frmInquire.Show
End Sub

Private Sub A41_Click()
frmAbout.Show
End Sub

Private Sub MDIForm_Load()
frmLogin.Show
FrmMain.A11.Enabled = False
FrmMain.A12.Enabled = False
End Sub