mdiform1.frm

以VC为前台

VERSION 5.00
Begin VB.MDIForm 学生成绩管理系统 
   BackColor       =   &H8000000C&
   Caption         =   "学生成绩管理系统"
   ClientHeight    =   11775
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   14685
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu new 
      Caption         =   "新用户注册"
   End
   Begin VB.Menu course 
      Caption         =   "开课情况查询"
   End
   Begin VB.Menu grade 
      Caption         =   "学习成绩查询"
      Begin VB.Menu pm 
         Caption         =   "个人总成绩及排名"
      End
   End
   Begin VB.Menu cjwh 
      Caption         =   "学生成绩维护"
      Begin VB.Menu addgrade 
         Caption         =   "添加成绩记录"
      End
      Begin VB.Menu upgrade 
         Caption         =   "修改成绩记录"
      End
      Begin VB.Menu delgrade 
         Caption         =   "删除成绩记录"
      End
   End
   Begin VB.Menu student 
      Caption         =   "学生基本信息维护"
      Begin VB.Menu addstu 
         Caption         =   "添加学生记录"
      End
      Begin VB.Menu upstu 
         Caption         =   "修改学生记录"
      End
      Begin VB.Menu delstu 
         Caption         =   "删除学生记录"
      End
   End
   Begin VB.Menu password 
      Caption         =   "修改密码"
   End
   Begin VB.Menu help 
      Caption         =   "关于"
   End
   Begin VB.Menu exit 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "学生成绩管理系统"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub addgrade_Click()
Dim newdoc As New 添加成绩记录
newdoc.Width = 7800
newdoc.Height = 5300
newdoc.Show

End Sub

Private Sub course_Click()
Dim newdoc As New 开课情况查询
newdoc.Show
newdoc.Width = 8200
newdoc.Height = 6200
End Sub

Private Sub delstu_Click()
Dim newdoc As New 删除学生记录
newdoc.Show
newdoc.Width = 7800
newdoc.Height = 6200
End Sub

Private Sub delgrade_Click()
Dim newdoc As New 删除成绩记录
newdoc.Show
newdoc.Width = 7800
newdoc.Height = 6200
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub help_Click()
Dim newdoc As New 关于
newdoc.Show
newdoc.Width = 7800
newdoc.Height = 6400
End Sub

Private Sub addstu_Click()
Dim newdoc As New 添加学生记录
newdoc.Show
newdoc.Width = 7800
newdoc.Height = 5600
End Sub

Private Sub MDIForm_Load()
学生成绩管理系统.Width = 9200
学生成绩管理系统.Height = 7200
Load 登陆
End Sub

Private Sub new_Click()
Dim newdoc As New 新用户注册
newdoc.Show
End Sub

Private Sub password_Click()
Dim newdoc As New 修改密码
newdoc.Show

End Sub

Private Sub pm_Click()
Dim newdoc As New 学习成绩查询
newdoc.Show
newdoc.Width = 8000
newdoc.Height = 6200
End Sub

Private Sub upgrade_Click()
Dim newdoc As New 修改成绩记录
newdoc.Show
newdoc.Width = 7800
newdoc.Height = 6200
End Sub

Private Sub upstu_Click()
Dim newdoc As New 修改学生记录
newdoc.Show
newdoc.Width = 7800
newdoc.Height = 6200
End Sub