学生成绩管理系统课程设计

一 实验摘要：

学生成绩管理信息系统可以有效提高学校管理成绩的效率与准确性,是学校办公自动化的重要组成部分。VB具有可视化集成开发环境,以事件驱动、图形用户界面等为特点,在设计学生成绩管理系统方面有着独特的优越性。通过学生成绩管理系统的研制,对基于VB建立成绩管理系统的一般方法,成绩管理系统的结构及功能模块、特点进行研究。该系统简便实用、通用性强,具有很好的可移植性。. .二 实验内容 ：

学生成绩管理系统

三 实验仪器与设备 ：

装有Visual Studio 2005软件的计算机

四 界面预览

五 代码编写

Public Class frm主控

Private frmBrowser As frm浏览'声明一个“浏览”对象

'方法：

Private Sub mnu学生_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu学生.Click

'点击学生菜单项的动作

UncheckTags()

Me.mnu学生.Checked = True

Me.tsb学生.Checked = True

ShowBasicHI()

End Sub

Private Sub mnu课程_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu课程.Click

'点击课程菜单项的动作

UncheckTags()

Me.mnu课程.Checked = True

Me.tsb课程.Checked = True

ShowBasicHI()

End Sub

Private Sub mnu教师_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu教师.Click

'点击教师菜单项的动作

UncheckTags()

Me.mnu教师.Checked = True

Me.tsb教师.Checked = True

ShowBasicHI()

End Sub

Private Sub mnu学年_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu学年.Click

'点击学年菜单项的动作

UncheckTags()

Me.mnu学年.Checked = True

Me.tsb学年.Checked = True

ShowBasicHI()

End Sub

Private Sub mnu操作员_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu操作员.Click

'点击操作员菜单项的动作

UncheckTags()

Me.mnu操作员.Checked = True

Me.tsb操作员.Checked = True

ShowBasicHI()

End Sub

Private Sub mnu成绩比例_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu成绩比例.Click

'点击成绩比例菜单项的动作

UncheckTags()

Me.mnu成绩比例.Checked = True

Me.tsb成绩比例.Checked = True

ShowBasicHI()

End Sub

Private Sub mnu重新登录_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu重新登录.Click

'创建并调用“frm登录”对象

Dim frm登录对象As frm登录= New frm登录

frm登录对象.ShowDialog()

End Sub

Private Sub mnu退出_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu退出.Click

'关闭主窗体

Me.Close()

End Sub

Private Sub mnu录入_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu录入.Click

'创建并调用“frm录入成绩”对象

Dim frm录入成绩对象As frm录入成绩= New frm录入成绩

frm录入成绩对象.ShowDialog()

End Sub

Private Sub mnu查询_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu查询.Click

'创建并调用“frm查询”对象

Dim frm查询对象As frm查询= New frm查询

frm查询对象.ShowDialog()

End Sub

Private Sub mnu导出_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu导出.Click

'创建并调用“frm”对象

Dim frm导出对象As frm导出= New frm导出

frm导出对象.ShowDialog()

End Sub

Private Sub mnu导入_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu导入.Click

'创建并调用“frm导入”对象

Dim frm导入对象As frm导入= New frm导入

frm导入对象.ShowDialog()

End Sub

Private Sub mnu删除_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu删除.Click

'创建并调用“frm删除”对象

Dim frm删除对象As frm删除= New frm删除

frm删除对象.ShowDialog()

End Sub

Private Sub mnu固定报表_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

mnu固定报表.Click

'创建并调用“frm报表控制台”对象，然后再调用各个具体的固定报表

Dim frm报表控制台对象As frm报表控制台= New frm报表控制台

frm报表控制台对象.ShowDialog()

End Sub

Private Sub mnu通用报表_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu通用报表.Click

'点击通用报表菜单项的动作

MessageBox.Show("通用报表")

End Sub

Private Sub mnu内容_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu内容.Click

'点击内容菜单项的动作

MessageBox.Show("内容")

End Sub

Private Sub mnu关于_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu关于.Click

'创建并调用“frm关于”对象

Dim frm关于对象As frm关于= New frm关于

frm关于对象.ShowDialog()

End Sub

Private Sub mnu添加_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu添加.Click

'调用Edit过程，在其中根据当前操作的基本数据创建并调用相应的对象

Edit(True)

End Sub

Private Sub mnu修改_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu修改.Click

'调用Edit过程，在其中根据当前操作的基本数据创建并调用相应的对象

Edit(False)

End Sub

Private Sub mnu结束_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu结束.Click

'进入学生成绩操作界面

ShowMainHI()

UncheckTags()

End Sub

Private Sub tsb学生_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsb学生.Click

'执行相应的菜单项

Me.mnu学生.PerformClick()

End Sub

Private Sub tsb课程_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsb课程.Click

'执行对应菜单命令

Me.mnu课程.PerformClick()

End Sub

Private Sub tsb教师_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsb教师.Click

'执行对应菜单命令

Me.mnu教师.PerformClick()

End Sub

Private Sub tsb学年_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsb学年.Click

'执行对应菜单命令

Me.mnu学年.PerformClick()

End Sub

Private Sub tsb操作员_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsb操作员.Click

'执行对应菜单命令

Me.mnu操作员.PerformClick()

End Sub

Private Sub tsb成绩比例_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsb成绩比例.Click

'执行对应菜单命令

Me.mnu成绩比例.PerformClick()

End Sub

Private Sub tsb查询_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsb查询.Click

'执行对应菜单命令

Me.mnu查询.PerformClick()

End Sub

Private Sub tsb录入_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsb录入.Click

'执行对应菜单命令

Me.mnu录入.PerformClick()

End Sub

Private Sub tsb添加_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsb添加.Click

'执行对应菜单命令

Me.mnu添加.PerformClick()

End Sub

Private Sub tsb修改_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsb修改.Click

'执行对应菜单命令

Me.mnu修改.PerformClick()

End Sub

Private Sub tsb删除_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles