mdiform1.frm

一个教学管理系统,可以满足一般课程设计的要求

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H80000006&
   Caption         =   "教学管理系统"
   ClientHeight    =   7275
   ClientLeft      =   165
   ClientTop       =   795
   ClientWidth     =   10710
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu menu0 
      Caption         =   "系统"
      Begin VB.Menu menuform7 
         Caption         =   "修改密码"
      End
      Begin VB.Menu menufrom6 
         Caption         =   "重新登陆"
      End
      Begin VB.Menu menuend 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu menu1 
      Caption         =   "学生管理"
      Index           =   1
      WindowList      =   -1  'True
      Begin VB.Menu menuform2 
         Caption         =   "查看学生情况"
         Index           =   2
      End
      Begin VB.Menu menuform5 
         Caption         =   "查询学生成绩"
         Index           =   6
      End
      Begin VB.Menu menuform11 
         Caption         =   "学生选课"
      End
   End
   Begin VB.Menu menu2 
      Caption         =   "课程管理"
      Begin VB.Menu menuform3 
         Caption         =   "查看课程情况"
         Index           =   3
      End
      Begin VB.Menu menuform4 
         Caption         =   "查询课程成绩"
         Index           =   5
      End
      Begin VB.Menu menuform12 
         Caption         =   "成绩录入/修改"
      End
   End
   Begin VB.Menu menu4 
      Caption         =   "编辑信息"
      Begin VB.Menu menufrom2x 
         Caption         =   "编辑学生信息"
      End
      Begin VB.Menu menuform3x 
         Caption         =   "编辑课程信息"
      End
      Begin VB.Menu menuform10 
         Caption         =   "编辑教师信息"
      End
   End
   Begin VB.Menu menu3 
      Caption         =   "帮助"
      Index           =   7
      Begin VB.Menu menu 
         Caption         =   "帮助"
         Index           =   8
      End
      Begin VB.Menu menuform1 
         Caption         =   "关于"
         Index           =   9
      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 Y = 1 Then
   s = "管理员"
ElseIf Y = 2 Then
   s = "教师"
ElseIf Y = 3 Then
   s = "学生"
End If
MDIForm1.Caption = MDIForm1.Caption & "（权限：" & s & "）"
End Sub

Private Sub menuend_Click()
End
End Sub

Private Sub menuform1_Click(index As Integer)
Form1.Show
End Sub

Private Sub menuform10_Click()
Form10.Show
End Sub

Private Sub menuform11_Click()
If Y = 3 Then
  Form11.Show
Else
  MsgBox "您的权限不足，只有学生可以进入选课窗体"
End If
End Sub

Private Sub menuform12_Click()
If Y = 3 Then
  MsgBox "您的权限无法进入", , "提示"
Else
  Form12.Show
End If
End Sub

Private Sub menuform2_Click(index As Integer)
Form2.Show
End Sub

Private Sub menuform3_Click(index As Integer)
Form3.Show
End Sub

Private Sub menuform4_Click(index As Integer)
If Y = 3 Then
  MsgBox "您的权限不足，学生无法查询课程成绩", , "提示"
Else
  Form4.Show
End If
End Sub

Private Sub menuform3x_Click()
If Y = 1 Then
  X = 1
  Form3.Show
Else
  MsgBox "您的权限不足，只有管理员才能编辑记录", , "提示"
End If
End Sub

Private Sub menuform5_Click(index As Integer)
Form5.Show
End Sub

Private Sub menuform7_Click()
Form7.Show
End Sub

Private Sub menufrom2x_Click()
If Y = 1 Then
  X = 1
  Form2.Show
Else
  MsgBox "您的权限不足，只有管理员才能编辑记录", , "提示"
End If
End Sub

Private Sub menufrom6_Click()
Form6.Show
Unload Me
End Sub