mdiform1.frm

这是我自己做的系统 很不完善 不足之处请多多指教！

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H00FFFF80&
   Caption         =   "0"
   ClientHeight    =   4260
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6030
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu xuesheng 
      Caption         =   "学生管理"
      Begin VB.Menu score 
         Caption         =   "成绩管理"
         Begin VB.Menu chaxunscore 
            Caption         =   "查询成绩"
         End
         Begin VB.Menu addscore 
            Caption         =   "添加成绩"
         End
         Begin VB.Menu xiugaiscore 
            Caption         =   "修改成绩"
         End
         Begin VB.Menu deletescore 
            Caption         =   "删除成绩"
         End
      End
      Begin VB.Menu xuejiguanli 
         Caption         =   "学籍管理"
         Begin VB.Menu chaxun 
            Caption         =   "查询学生"
         End
         Begin VB.Menu tianjiaxuesheng 
            Caption         =   "添加学生"
         End
         Begin VB.Menu deletexinxi 
            Caption         =   "删除学生"
         End
      End
      Begin VB.Menu tianjia 
         Caption         =   "添加学生"
      End
      Begin VB.Menu xiugai 
         Caption         =   "修改学生信息"
      End
      Begin VB.Menu shanchu 
         Caption         =   "删除"
      End
   End
   Begin VB.Menu yx 
      Caption         =   "院系管理"
      Begin VB.Menu add 
         Caption         =   "添加院系"
         Shortcut        =   ^A
      End
      Begin VB.Menu alter 
         Caption         =   "修改院系"
         Shortcut        =   ^L
      End
      Begin VB.Menu delete 
         Caption         =   "删除院系"
         Shortcut        =   ^D
      End
   End
   Begin VB.Menu users 
      Caption         =   "用户管理"
      Begin VB.Menu adduser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu gaikeyword 
         Caption         =   "修改密码"
      End
   End
   Begin VB.Menu other 
      Caption         =   "其他"
      Begin VB.Menu reload 
         Caption         =   "重新登陆"
      End
      Begin VB.Menu exit 
         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 exit_Click()
Unload Me

End Sub

Private Sub reload_Click()
FrmLogin.Show
End Sub

Private Sub tianjia_Click()
FrmStuEdit.Show
End Sub