mdiform1.frm

来自「用ＶＢ做的学生选课系统 .如果觉得好就顶起来哦」· FRM 代码 · 共 92 行

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