mdimain.frm

本系统主要完成对教师基本信息、教师授课信息和教师工资情况的管理

VERSION 5.00
Begin VB.MDIForm MDIMain 
   BackColor       =   &H00FFC0C0&
   Caption         =   "教师管理系统"
   ClientHeight    =   6225
   ClientLeft      =   1800
   ClientTop       =   1815
   ClientWidth     =   6630
   LockControls    =   -1  'True
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuGeneral 
      Caption         =   "通用(&G)"
      WindowList      =   -1  'True
      Begin VB.Menu paysearchp 
         Caption         =   "教师查询工资"
      End
      Begin VB.Menu payin 
         Caption         =   "教师工资录入"
      End
      Begin VB.Menu paysearch 
         Caption         =   "教师工资查询"
      End
   End
   Begin VB.Menu mnuStudent 
      Caption         =   "教师管理(&S)"
   End
   Begin VB.Menu mnuFind 
      Caption         =   "教师查询(&F)"
   End
   Begin VB.Menu mnuLogin 
      Caption         =   "重新登录(&L)"
   End
   Begin VB.Menu mnuExit 
      Caption         =   "退出(&X)"
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuAbout 
         Caption         =   "关于(&A)..."
         Shortcut        =   {F1}
      End
   End
End
Attribute VB_Name = "MDIMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'表示当前的用户类型
'0---管理员类型的用户; 1---教师类型的用户
Public mnUserType As Integer
'表示当前登录的用户名
Public msUserName As String

Private Sub in_Click()
PayAdd.Show

End Sub

Private Sub MDIForm_Activate()
''根据不同的用户类型，使相应的菜单项可见
  Select Case mnUserType
    Case 0:                       '以管理员身份登录
        mnuFind.Visible = True
        paysearch.Visible = True
        payin.Visible = True
        paysearchp.Visible = False
        
    Case 1:                       '以教师身份登录， 只能查询自己的信息
        mnuFind.Visible = False
        paysearch.Visible = False
        payin.Visible = False
        paysearchp.Visible = True
  End Select
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If MsgBox("真的要对出本系统吗？", vbQuestion + vbYesNo + vbDefaultButton2, "退出") = vbNo Then
    Cancel = 1
  End If
End Sub

Private Sub mnuAbout_Click()
  Load frmSplash
  frmSplash.mbAbout = True
  frmSplash.Show vbModal
End Sub

Private Sub mnuExit_Click()
  Unload Me
End Sub

Private Sub mnuFind_Click()
   frmTeacher.Show
   frmTeacher.cmdSeek.Value = True
End Sub

Private Sub mnuLogin_Click()
  If MsgBox("若重新登录，所有窗体都将关闭！是否重新登录？", vbQuestion + vbYesNo + vbDefaultButton2, "重新登录") = vbYes Then
     Unload MDIMain
     frmLogin.Show
  End If
End Sub

Private Sub mnuStudent_Click()
   If mnUserType = 0 Then
      frmTeacher.Show
   Else
      frmLook.Show
   End If
End Sub

'Private Sub out_Click()
'PayViewM.Show
'
'End Sub

Private Sub payin_Click()
PayAdd.Show

End Sub

Private Sub paysearch_Click()
payviewp.Show

End Sub

Private Sub paysearchp_Click()
payviewp.Show

End Sub