VB课程设计报告--学生成绩管理系统

《VB课程设计报告--学生成绩管理系统》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、课程设计报告课程名称：　VisualBasic实用教程　　　设计题目：　学生成绩管理系统　指导教师：　　　　　　时间：　2010～2011　学年第一学期南京人口学院信息科学系8课程设计题目设计学生成绩管理系统，系统要求包括课程管理、学生管理、选课管理、成绩管理的功能。后台数据库包括三张表，学生基本情况表（学号、姓名、性别、年龄、专业）、课程表（课程编号、课程名、学分）、成绩表（学号、课程号、成绩）系统包含5个窗体：1、主窗体。包含课程管理、学生管理、选课管理、成绩管理、退出5个按钮，通过单击各个按钮，启动不同窗体实现各自的功能。2、课程管理窗体。主要功能是对课程表的记

2、录进行浏览、添加、编辑、删除、实现对课程信息的管理，界面自行设计3、学生管理窗体。主要功能是对学生表的记录进行浏览、添加、编辑、删除、实现对课程信息的管理，界面自行设计4、选课管理窗体。主要功能是每个学生通过选择课程表中所设定的课程，产生选课纪录，并在成绩表中记录选课情况，形成一个只有学号、课程号，而成绩为空的空白成绩表。界面自行设计5、成绩管理窗体。主要功能是用来录入、修改不同课程的学生成绩。当选择某一课程时，只显示选修该课程的学生名单。界面自行设计课程设计目的及要求1、使学生了解VB中各部件的功能及如何使用；2、掌握使用控件显示数据库表数据，并掌握查询的基本方法；

3、3、掌握对数据库操作的基本方法（增、删、改）；4、掌握VB中调用SQLServer存储过程的基本方法；5、掌握Parameter参数对象的使用。8课程设计详细内容：一、数据库表：1、学生基本情况表2、课程表3、成绩表8二、窗体1、主窗体。包含课程管理、学生管理、选课管理、成绩管理、退出5个按钮，通过单击各个按钮，启动不同窗体实现各自的功能。代码：PrivateSubCommand1_Click()Form2.ShowEndSubPrivateSubCommand2_Click()Form3.ShowEndSubPrivateSubCommand3_Click()For

4、m4.ShowEndSubPrivateSubCommand4_Click()Form5.ShowEndSubPrivateSubCommand5_Click()EndEndSub82、课程管理窗体。主要功能是对课程表的记录进行浏览、添加、编辑、删除、实现对课程信息的管理，界面自行设计代码：PrivateSubCommand1_Click()Data1.Recordset.AddNewData1.Recordset.UpdateData1.Recordset.MoveLastEndSubPrivateSubCommand2_Click()Data1.Recordset

5、.EditData1.Recordset.UpdateEndSubPrivateSubCommand3_Click()Dimmagmag=MsgBox("要删除吗？",vbYesNo,"删除记录")Ifmag=vbYesThenData1.Recordset.DeleteData1.Recordset.MoveLastEndIfEndSub83、学生管理窗体。主要功能是对学生表的记录进行浏览、添加、编辑、删除、实现对课程信息的管理，界面自行设计代码：PrivateSubCommand1_Click()Data1.Recordset.AddNewData1.Record

6、set.UpdateData1.Recordset.MoveLastEndSubPrivateSubCommand2_Click()Data1.Recordset.EditData1.Recordset.UpdateEndSubPrivateSubCommand3_Click()Dimmagmag=MsgBox("要删除吗？",vbYesNo,"删除记录")Ifmag=vbYesThenData1.Recordset.DeleteData1.Recordset.MoveLastEndIfEndSub84、选课管理窗体。主要功能是每个学生通过选择课程表中所设定的课程，产

7、生选课纪录，并在成绩表中记录选课情况，形成一个只有学号、课程号，而成绩为空的空白成绩表。界面自行设计DimnumAsIntegerPrivateSubCommand1_Click()Data1.RecordSource="学生成绩表"Data1.RefreshFori=0TonumIfList1.Selected(i)=TrueThenIfData1.Recordset.NoMatch=TrueThenData1.Recordset.AddNewData1.Recordset("学号")=Trim(Text1.Text)Data1.Recordset