VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   7785
   ClientLeft      =   1500
   ClientTop       =   3555
   ClientWidth     =   9495
   LinkTopic       =   "MDIForm1"
   Visible         =   0   'False
   Begin VB.Menu xx 
      Caption         =   "學生信息"
      Begin VB.Menu stu 
         Caption         =   "學生信息情況"
      End
      Begin VB.Menu dd 
         Caption         =   "添加學生信息"
      End
      Begin VB.Menu bixiu 
         Caption         =   "學生必修課信息"
      End
      Begin VB.Menu stu_cou 
         Caption         =   "學生選修課信息"
      End
   End
   Begin VB.Menu kcqk 
      Caption         =   "課程情況"
      Begin VB.Menu kcxx 
         Caption         =   "課程信息"
      End
      Begin VB.Menu xk 
         Caption         =   "選修課程信息"
      End
      Begin VB.Menu tjkc 
         Caption         =   "添加課程"
      End
   End
   Begin VB.Menu teacherxinxi 
      Caption         =   "教師信息"
      Begin VB.Menu teacher 
         Caption         =   "教師情況信息"
      End
      Begin VB.Menu rk 
         Caption         =   "教師任課信息"
      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 bixiu_Click()
bixiuxinxi.Show
End Sub

Private Sub dd_Click()
addstu.Show
End Sub

Private Sub kcxx_Click()
kcxinxi.Show
End Sub
Private Sub rk_Click()
renke.Show
End Sub

Private Sub stu_Click()
stuin.Show
End Sub

Private Sub stu_cou_Click()
stu_course.Show
End Sub

Private Sub teacher_Click()
teach.Show
End Sub

Private Sub tjkc_Click()
addcourse.Show
addcourse.Text1.Text = ""
addcourse.Text2.Text = ""
addcourse.Text3.Text = ""
addcourse.Text4.Text = ""
addcourse.Text5.Text = ""
End Sub

Private Sub xk_Click()
xuanke.Show
End Sub