mdiform1.frm

学生管理系统：包括查询

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "学生信息管理系统"
   ClientHeight    =   7365
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   9765
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu xitong 
      Caption         =   "用户管理(&s)"
      Begin VB.Menu tjia 
         Caption         =   "添加用户 "
      End
      Begin VB.Menu SHANCHU 
         Caption         =   "删除用户"
      End
      Begin VB.Menu XIUGAI 
         Caption         =   "修改密码"
      End
      Begin VB.Menu tuichu 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu xjgl 
      Caption         =   "学籍管理(&e)"
      Begin VB.Menu TX 
         Caption         =   "添加学籍信息"
      End
      Begin VB.Menu XX 
         Caption         =   "修改学籍信息"
      End
      Begin VB.Menu cx 
         Caption         =   "查询学籍信息"
      End
   End
   Begin VB.Menu kg 
      Caption         =   "课程管理(&c)"
      Begin VB.Menu tk 
         Caption         =   "添加课程"
      End
      Begin VB.Menu xk 
         Caption         =   "修改课程"
      End
   End
   Begin VB.Menu cjgl 
      Caption         =   "成绩管理(&g)"
      Begin VB.Menu sc 
         Caption         =   "输入成绩"
      End
      Begin VB.Menu xc 
         Caption         =   "修改成绩"
      End
      Begin VB.Menu cc 
         Caption         =   "查询成绩"
      End
   End
   Begin VB.Menu tongji 
      Caption         =   "信息统计(&x)"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cc_Click()
Form3.Show
End Sub

Private Sub cx_Click()
Form7.Show
End Sub

Private Sub MDIForm_Load()
 Form14.Show
Form14.Top = 0
Form14.Left = 0
 Form14.ScaleWidth = MDIForm1.Width
  Form14.ScaleHeight = MDIForm1.Height
 
End Sub

Private Sub sc_Click()
Form5.Show
End Sub

Private Sub SHANCHU_Click()
Form11.Show
End Sub

Private Sub tjia_Click()
Form4.Show
End Sub

Private Sub tk_Click()
Form9.Show
End Sub

Private Sub tongji_Click()
Form13.Show
End Sub

Private Sub tuichu_Click()
End
End Sub

Private Sub TX_Click()
Form2.Show
End Sub

Private Sub xc_Click()
Form6.Show
End Sub

Private Sub XIUGAI_Click()
Form12.Show
Form12.Enabled = True
End Sub

Private Sub xk_Click()
Form10.Show
End Sub

Private Sub XX_Click()
Form8.Show
End Sub