mdimain.frm

对成绩的管理,很方便,也很实用,适合各种学校的管理

VERSION 5.00
Begin VB.MDIForm MDIMain 
   BackColor       =   &H8000000C&
   Caption         =   "成绩管理系统"
   ClientHeight    =   3780
   ClientLeft      =   1800
   ClientTop       =   1815
   ClientWidth     =   4425
   LockControls    =   -1  'True
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuGeneral 
      Caption         =   "通用(&G)"
      WindowList      =   -1  'True
      Begin VB.Menu mnuLogin 
         Caption         =   "重新登录(&L)..."
         Shortcut        =   {F2}
      End
      Begin VB.Menu mnuLine 
         Caption         =   "-"
         Index           =   0
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出(&X)"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu mnuScore 
      Caption         =   "成绩管理(&S)"
      Begin VB.Menu mnuStudentScore 
         Caption         =   "按学生进行(&S)..."
         Shortcut        =   {F5}
      End
      Begin VB.Menu mnuCourseScore 
         Caption         =   "按课程进行(&C)..."
         Shortcut        =   {F6}
      End
   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

Private Sub MDIForm_Load()
  ''根据不同的用户类型，使相应的菜单项可见
  Select Case gnUserType
    Case 0:                       '以教师身份登录, 可以按各种方式进行查询和管理
        mnuCourseScore.Visible = True
        mnuStudentScore.Visible = True
    Case 1:                       '以课程身份登录， 只能查询自己的信息
        mnuCourseScore.Visible = False
        mnuStudentScore.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()
  frmSplash.Show vbModal
End Sub

Private Sub mnuCourseScore_Click()
    frmCourseScore.Show
End Sub

Private Sub mnuExit_Click()
  Unload Me
End Sub

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

Private Sub mnuStudentScore_Click()
   frmStudentScore.Show
End Sub