mdiform1.frm

用VB编的学生信息管理系统

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   5895
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   7800
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu sys 
      Caption         =   "系统(&S)"
      Begin VB.Menu add_user 
         Caption         =   "添加用户"
         Shortcut        =   ^A
      End
      Begin VB.Menu clean 
         Caption         =   "删除用户"
         Shortcut        =   ^B
      End
      Begin VB.Menu put_on 
         Caption         =   "修改密码"
         Shortcut        =   ^D
      End
      Begin VB.Menu exit 
         Caption         =   "退出系统"
         Shortcut        =   ^F
      End
   End
   Begin VB.Menu manngle 
      Caption         =   "学籍管理(&E)"
      Begin VB.Menu ad_class 
         Caption         =   "添加学籍"
         Shortcut        =   ^I
      End
      Begin VB.Menu put_class 
         Caption         =   "修改学籍"
         Shortcut        =   ^J
      End
      Begin VB.Menu chose 
         Caption         =   "查询学籍"
         Shortcut        =   ^K
      End
   End
   Begin VB.Menu class_mangle 
      Caption         =   "课程管理(&C)"
      Begin VB.Menu add_class 
         Caption         =   "添加课程"
         Shortcut        =   ^L
      End
      Begin VB.Menu chose_class 
         Caption         =   "修改课程"
         Shortcut        =   ^M
      End
   End
   Begin VB.Menu score 
      Caption         =   "成绩管理(&G)"
      Begin VB.Menu put_score 
         Caption         =   "输入成绩"
         Shortcut        =   ^N
      End
      Begin VB.Menu choe_score 
         Caption         =   "修改成绩"
         Shortcut        =   ^O
      End
      Begin VB.Menu chose_score 
         Caption         =   "查询成绩"
         Shortcut        =   ^P
      End
   End
   Begin VB.Menu information 
      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 ad_class_Click()
Form3.Show
End Sub

Private Sub add_class_Click()
Form6.Show
End Sub
Private Sub add_user_Click()
Form13.Show
End Sub

Private Sub choe_score_Click()
Form9.Show
End Sub

Private Sub chose_class_Click()
Form7.Show
End Sub

Private Sub chose_Click()
Form5.Show
End Sub

Private Sub chose_score_Click()
Form10.Show
End Sub

Private Sub clean_Click()
 Form2.Show
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub information_Click()
Form11.Show
End Sub

Private Sub put_class_Click()
Form4.Show
End Sub

Private Sub put_on_Click()
 Form14.Show
End Sub

Private Sub put_score_Click()
Form8.Show
End Sub