mdiform1.frm

班里一位同学做的学生管理系统的课程实习

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H80000003&
   Caption         =   "学生信息管理系统"
   ClientHeight    =   3810
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   6345
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu system 
      Caption         =   "系统"
      Begin VB.Menu AddUser 
         Caption         =   "添加系统新用户"
         Shortcut        =   ^A
      End
      Begin VB.Menu changCode 
         Caption         =   "修改用户密码"
         Shortcut        =   ^B
      End
      Begin VB.Menu canceluser 
         Caption         =   "删除用户"
         Shortcut        =   ^C
      End
      Begin VB.Menu exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu student 
      Caption         =   "学籍管理"
   End
   Begin VB.Menu mark 
      Caption         =   "成绩管理"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub AddUser_Click()

frmadduser.Show

End Sub

Private Sub canceluser_Click()
frmcanceluser.Show
End Sub

Private Sub changCode_Click()
frmchangecode.Show
End Sub

Private Sub exit_Click()
frmexit.Show
End Sub




Private Sub mark_Click()
frmMark.Show
End Sub

Private Sub student_Click()
frmstudent.Show

End Sub