VB课程设计(论文）学生成绩管理系统

1VB 课程设计学生成绩管理系统姓名：学号：班级：系别：电子工程系2前前 言言随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。本文介绍了在 VISUAL BASIC6.0 环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析学生成绩管理的不足，创建了一套行之有效的计算机管理学生的方案。文章介绍了学生成绩管理信息系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个主要模块的算法， 本系统面友好，操作简单，比较实用。3目 录前 言2第一章 学生成绩管理系统511 需求分析6111 系统概述81. 1. 2 功能需求描述10第二章 总体设计及流程图142.1 开发与设计的总体思想152.2 系统模块结构图162.2.1 模块设计162.2.2 界面设计172.2.3 数据库设计17第三章 详细设计183.1 学生管理模块1843.2 教师管理模块233.3 课程管理模块233.4 成绩管理模块23参考文献27致 谢27河南工业职业技术学院 VB 大型作业- -1前前 言言 几年的学习即将结束，经过几个月的努力，我所设计的“学生成绩管理系统”也已完成。以往学的都是理论性很强的知识，再加上实践机会不多，更增强了我对计算机科学的兴趣。在这段时间里，我增强了自己动手的能力，更重要的是似乎把握住了计算机的一些实质性的东西终于能够用我所学的知识解决一些实际应用的问题了。但我知道，数据库技术只是计算机科学的一个小小分支，计算机还有更广阔的领域有待我们去探索。 这次毕业设计是用 Visul Basic 语言设计的“学生成绩管理系统” ，这就要求对 Visul Basic 语言及数据库技术能够真正了解和熟练的掌握，并且能够灵活的运用。 当今的时代是信息的时代，数据库技术是数据管理的最新方法，也是信息管理中一项非常重要的新技术，数据库管理是帮助人们处理大量信息，实现科学化和现代化的强有力工具，数据库管理子系统已发展成为通用的系统软件。由于数据库具有数据结构化、最低冗余度、较高的程序独立性、易于扩充、易于编制应用程序等优点，因而是近年来发展非常迅猛的计算机软件。数据库技术是数据信息管理技术的最新成果，被广泛应用于国民经济、文化教育、军事情报、科学计算、人工智能和计算机辅助设计领域，为计算机的应用开辟了广阔的天地。河南工业职业技术学院 VB 大型作业- -2第一章 学生成绩管理系统11 需求分析 考试成绩是学生在校期间的重要历史资料，学生成绩信息的管理（成绩的录入、查询、分类统计等）是各个学校面临的一个重要问题。该成绩管理系统主要是用于管理在校学生的考试成绩，对教、班级、学生、课程和成绩信息进行维护与管理。本系统要求运行稳定，图形用户界面符合用户的日常使用习惯，数据处理正确无误。111 系统概述 学生成绩管理系统主要完成学生成绩的管理，包括：（1）教师管理。主要完成教师的添加、修改、删除和查询。（2）班级管理。主要完成班级的添加、修改、删除和班级列表。（3）学生管理。主要完成对学生信息的添加、修改、删除和查询。（4）课程管理。主要完成对课程信息的维护，包括课程添加、修改、删除和查询功能。（5）成绩管理。主要完成成绩的添加、删改和成绩杳询。1.1.2 功能需求描述 该系统的功能需求有如下几个方面：（1）教师管理。主要用于对教师信息进得维护。功能包括新教师信息的添加、修改和删除已有的教师信息，对教师信息进行查询。（2）班级管理。主要用于对班级信息进行维护。功能包括对班级信息的添河南工业职业技术学院 VB 大型作业- -3加、删改和班级列表。（3）学生管理。主要用于维护学生信息。功能包括对学生信息的添加、删改和查询。（4）课程管理。主要用于维护课程信息，功能包括课程的添加、删改和查询。（5）成绩管理。用于维护成绩信息，功能包括成绩的添加和查询。第二章 总体设计及流程图 上面的需求分析已经对系统的功能需求、环境需求做了较为明确的阐述。根据上述需求，下面按照开发设计思想、功能模块、图形用户界面、数据库等方面阐述成绩管理系统的总体设计。2.1 开发与设计的总体思想 作为学校使用的成绩管理系统，能够满足成绩管理的基本功能需求，界面简单、操作简便是设计的一个重要考虑。2.22.2 系统模块结构图系统模块结构图 河南工业职业技术学院 VB 大型作业- -42.2.1 模块设计河南工业职业技术学院 VB 大型作业- -5图 2-7 主窗体菜单设计的效果图1.教师管理菜单设计（1）教师信息添加界面设计 教师信息添加界面使用文本框输入教师相关基本信息，使用组合列表框选择部门和性别。单击添加按钮保存教师信息，单击返回按钮返回主菜单。具体设计效果图如图 2-8 所示。河南工业职业技术学院 VB 大型作业- -6图 2-8 具体设计效果图（2）教师信息修改删除界面设计图 2-9 具体设计效果图2.学生管理界面设计河南工业职业技术学院 VB 大型作业- -7（1）学生信息添加界面设计学生信息添加界面使用文本框输入学生的姓名、学号、生日、电话、地址和备注信息。同时使用了两个组合列表框，分别用于选择班级和性别。组合列表框中的数据会在窗体加载的时候就进行初始化。具体设计效果图如图 1-11 所示。（2）学生信息删改界面设计在学生信息删改界面中，在班级组合列表框中选择班级，该班级的所有学号会添加到学号组合列表框中，在学号组合列表框中选择学号，就会在下方显示该学生的基本信息。根据需要单击修改按钮来修改学生信息，也可以单击删除按钮来删除该学生的信息，或是单击返回按钮返回主菜单。具体设计效果图如图 2-10 所示。图 2-10 具体设计效果图（3）学生信息查询界面设计河南工业职业技术学院 VB 大型作业- -8学生信息查询办面提供了四种查询方式：全部、按班级查询、按学号查询和按姓名查询。提供了一个表格用于赤示查询结果。3.课程管理界面设计（1）课程信息添加界面设计课程添加界面提供了文本框，用于输入课程名称、课程编号、课程学时数和学分等课程基本信息。并且提供了两个组合列表框，分别用于选择课程类型和任课教师。这两个组合列表框的数据是在加载窗体的时候进行初始化的。（2）课程信息删改界面设计课程信息删改界面提供了文本框，用于输入课程编号，单击查询按钮就会查找该课程编号所代表的课程信息，找到后将信息显示出来。修改和删除按钮用于完成修改和删除操作。具体设计效果图如图 2-11 所示。图 2-11 具体设计效果图河南工业职业技术学院 VB 大型作业- -94.成绩管理界面设计（1）成绩录入界面设计成绩界面使用文本框输入学生学号和课程成绩。使用组合列表框选择课程编号。使用表格显示查询结果。使用两个文本框显示学生姓名和课程名称。这两个文本框是不可编辑的。具体设计效果图如图 2-12 所示。图 2-12 具体设计效果图（2）成绩删改界面设计河南工业职业技术学院 VB 大型作业- -10图 2-13 具体设计效果图（3）成绩查询界面设计成绩查询界面提供了三种查询方式：按学号、按课程和按成绩查询。使用表格显示查询结果。2.2.3 数据库设计 根据系统功能设计的要求以及功能模块的划分，数据库表结构设计如下。1.学生信息表名称：学生信息表（见表 2-1）表名称标识：studentInfo数据来源：学生管理模块进行录入。2教师信息表名称：教师信息表（见表 2-2）表名称标识：teacherInfo数据来源：教师管理模块进行录入。3.班级信息表 表 2-3 班级信息表名称字段名称类型主键非空班级编号ClassNo文本YesYes河南工业职业技术学院 VB 大型作业- -11班级名称className文本NoYes4.部门信息表 表 2-4 部门信息表名称字段名称类型主键非空部门编号Dept_no文本YesYes部门名称Dept_name文本NoYes5.课程信息表 表 2-5 课程信息表名称字段名称类型主键非空序号No自动编号YesYes课程编号Course_no文本NoYes课程名称Course_name文本NoYes课程类型Course_type文本NoYes学时数Course_hours数字NoYes学分Score数字NoYes河南工业职业技术学院 VB 大型作业- -12授课教师Teacher文本NoYes6.成绩信息表 表 2-6 成绩信息表名称字段名称类型主键非空编号No自动编号YesYes学号Stu_no文本NoYes课程号Course_no文本NoYes成绩Score数字NoYes第三章 详细设计基于系统需求分析与系统总体设计的结论，本系统采用 Visual Basic 6.0实现各模块的功能，下面按照功能模块的划分来分别阐述系统的详细设计和实现过程。3.1 学生管理模块1.功能描述为用户提供学生信息的添加、修改、删除和查询界面，完成学生信息的添加、修改、删除和查询功能。2.窗体和源文件定义河南工业职业技术学院 VB 大型作业- -13该功能模块涉及到的窗体名称和文件名参见表 3-1。 表 3-1 窗体列表窗体各称窗体文件名作用frmStudentfrmStudent.frm用于学生信息添加frmUpdateStudentfrmUpdateStudent.frm用于修改、删除学生信息frmQueryStudentfrmQueryStudent.frm用于查询学生信息Module1Module1.bas用于定义全局变量和公用函数3.2 教师管理模块1功能描述 该模块提供教师信息的添加、修改、删除和查询界面，完成教师信息的添加、修改、删除和查询功能。2窗体和源文件定义 表 3-3 窗体列表窗体名称窗体文件名作用frmAddTeacherfrmAddTeacher.frm用于教师信息河南工业职业技术学院 VB 大型作业- -14添加frmUpdateTeacherfrmUpdateTeacher.frm用于修改、删除教师信息frmQueryTeacherfrmQueryTeacher.frm用于查询教师信息3.变量声明窗体模块中的声明Public sqlstr As StringPublic msgText As String代码模块中的声明Public dbpath As StringPublic connStr As String4.函数与方法声明 表 3-4 主要函数与方法窗体名称函数/方法名作用frmAddTeacherSub initDepartment()在组合列表框中列出所有部门名称河南工业职业技术学院 VB 大型作业- -15Sub initForm()初始化窗体上的文本框和组合列表框Private sub cmdOK_Click()添加教师信息Sub initDepartment()在组合列表框中列出所有部门名称Sub initTeacherNo()在组合列表框中列出所有教师编号Sub getTeacherNo()获取教师信息Private sub cmdDelete_click()删除教师信息frmUpdateTeacherprivatesubcmdUpdate_click()修改教师信息Sub initDepartment()在组合列表框中列出所有部门名称Sub initTitles()在组合列表框中列出所有的职称frmQueryTeacherPrivate sub queryTeacher()查询教师信息河南工业职业技术学院 VB 大型作业- -16处理：1)获取信息输入窗口中填写的数据。2)执行查询得到结果集，然后调用结果集对象的 addNew 方法。3)设置各个字段的值。4)调用 update 方法更新结果集，完成教师信息添加。输出：将数据写入教师信息表程序清单：与学生信息添加代码类似，请参考本书提供的源代码。(3)frmUpdateTeacher 窗体：private sub cmdUpdate_Click()功能：主要用来完成教师信息的修改，将窗体上修改后的信息添加到数据库中。输入：教师信息删改窗体上输入的数据。处理：1)获取信息输入窗口中填写的数据并得到 SQL 语句。2)执行 SQL 语句完成数据修改。输出：将修改后的数据写入教师信息表。程序清单：Private sub cmdUpdate_Click() Dim conn As ADODB.Connection sqlStr= “UPDATE teacherInfo set birthdate=#”& txtBirth 河南工业职业技术学院 VB 大型作业- -17& “#,department= ”&cboDept(0).Text & “,telno= ”&txtTel.Text&” ,title= ”&txtTitle.Text&” ”& “where teacher_no= ” & txtNo.Text & “ ”on Error GoTo exitsubset conn=New ADODB.Connectionconn.Open connStrconn.Execute sqlstrMsgBox “成功修改数据!” Exitsub:Conn.closeinitDepartmentend sub 3.5 成绩管理模块1功能描述该模块提供成绩信息的录入、修改、删除和查询界面，完成成绩信息的录入、修改、删除和查询功能。2窗体和源文件定义该功能模块涉及到的窗体名称和文件名参见表 3-9。 表 3-9 窗体列表河南工业职业技术学院 VB 大型作业- -18窗体名称窗体文件名作用frmAddScorefrmAddScore.frm用于成绩信息添加frmUpdateScorefrmUpdateScore.frm用于修改、删除成绩信息frmQueryScorefrmQueryscore.frm用于查询成绩信息3.变量声明 窗体模块中的声明Public sqlstr As StringPublic msgText As String代码模块中的声明Public dbpath As StringPublic connStr As String4函数与方法声明 表 3-10 主要函数与方法窗体名称函数/方法名作用河南工业职业技术学院 VB 大型作业- -19Sub initCourseNo()在下拉列表框中显示所有课程号Private sub txtStuNo_KeyPress(KeyAscii As Integer)文本框响应回车键，如果输入学号后回车，就会查找并显示学生姓名Private sub cboCourseNo_Click()在组合列表框中选择课程编号，触发 click 事件，查找显示课程名称frmAddScorePrivate sub cmdOK_Click()向数据库中添加成绩信息Sub initCourseNo()在下拉列表框中显示所有课程号Sub getScoreInfo()从数据库中查找成绩信息Private sub cmdUpdate_click()修改成绩信息frmUpdateScorePrivate sub cmdDelete_Click()删除成绩信息frmQueryScorePrivate sub cmdOK_Click()查询成绩河南工业职业技术学院 VB 大型作业- -20(1)frmAddScore 窗体：private sub txtStuNo_KeyPress(KeyAscii As Integer)功能：相应键盘事件，如果是回车键，则按学号查询学生姓名。输入：按键的 ASCII 码。处理：1)判断按键是否为回车键。2)如果为回车键，刚转 3,否则退出。3)查询学生姓名并显示出来。输出：学生姓名。程序清单： Private sub txtStuNo_keypress(keyAscii As Integer)Dim rstStudent As ADODB.RecordsetIf KeyAscii=13 Then sqlStr= “select name from studentInfo” set rststudent=ExecuteSQL(sqlStr,msgText) If Not rstStudent.EOF ThentxtName=rstStudent.Fields(0) Else MsgBox “未找到学生的信息记录！”,vbOKOnly+vbExclamation, “警告”河南工业职业技术学院 VB 大型作业- -21 Exit subEnd IfrstStudent.Close End If End sub (2)frmAddScore 窗体：private sub cmdOK_Click()功能：将窗体中的成绩信息添加到数据库中。输入：成绩添加窗体中填写的数据。处理：1)获取信息输入窗口中填写的数据。2)执行查询得到结果集，然后调用结果集对象的 addNew 方法。3)设置各个字段的值。4)调用 update 方法更新结果集，完成成绩信息添加。输出：将成绩信息写入数据库。程序清单： Private sub cmdok_click() Dim rstScore As ADODB.Recordset Dim stuNo As String河南工业职业技术学院 VB 大型作业- -22 Dim courseNo As String Dim score As String 获取数据 stuNo=Trim(txtstuNo.Text) courseNo=Trim(cboCourseNo.Text) score=Trim(txtScore.Text) If stuNo= “”or score= “”Then MsgBox “请将信息补充完整”,vbOKOnly+vbExclamation, “警告”Exit sub End If 添加新记录 sqlStr=”select*from scoreInfo” set rstScore=ExecuteSQL(sqlStr,msgText) rstScore.AddNew rstScore.Fields(“stu_no”)=stuNo rstScore.Fields(“course_no”)=courseNo rstScore.Fields(“course_score”)=scorerstScore.UpdaterstScore.Close河南工业职业技术学院 VB 大型作业- -23MsgBox “成绩信息添加完成！”,vboOKOnly+vbExclamation, “警告”initFormEnd sub(3)frmUpdateScore 窗体:sub getScoreInfo()功能：根据课程编号和学号，从数据库中读取成绩信息、课程名和学生名。输入：课程编号和学号。处理：1)获取课程名称和学号，得到多表查询的 SQL 语句。2)执行查询得到结果集。3)从结果集中读取各个字段的值并显示出来。输出：学生姓名、课程名称、考试成绩。程序清单： Sub getScoreInfo() Dim rstScore As ADODB.Recordset从数据库中读取成绩相关信息并添加到窗体中的输入框 sqlStr= “select name,course_name,coure_score fromcourseInfo,studentInfo,scoreInfo”&“wherescoreInfo.course_no= ”&cbocourseNo.text & “ ”& “AND scoreInfo.course_no=courseInfo.course_no”& “AND 河南工业职业技术学院 VB 大型作业- -24scoreInfo.stu_no=studentInfo.stu_no”& “AND scoreInfo.stu_no= ”& txtStuNo.Text & “ ” txtName=Trim(rstScore.Fields(“name”) txtCourseName.Text=trim(rstScore.Fields(“dourse_name”) txtScore.Text=Trim(rstScore.Fields(“course_score”)Else MsgBox “没找到符合条件的数据！”,vbOKOnly+vbExclamation, “警告” Exit sub End If rstScore.CloseEnd sub(4)frmQueryScore 窗体:private sub cmdOk_Click()功能：根据查询条件查找成绩信息。输入：查询方式和关键字。处理：1)获取查询方式和输入的关键字。2)形成 SQL 语句，执行 SQL 语句得到结果集。3)从结果集中读取全部数据，并在表格中显示出来。输出：符合查询条件的课程成绩信息。河南工业职业技术学院 VB 大型作业- -25程序清单：Dim sqlstr1 As StringDim sqlcond1 As StringDim sqlcond2 As StringDim sqlcond3 As StringDim sign As BooleanSqlcond1= “”Sqlcond2= “”Sqlcond3= “”Sign=FalseSqlstr=”selectstudentInfo.stu_noasstuNo.studentInfo.name as stuName,”_&“courseInfo.course_nameascourseName,scoreInfo.course_score as score”&_ “from studentInfo,courseInfo,scoreInfo WHERE”检查是否已选择了查询条件If chkOp(0).value1 And chkOp91).value1 And chkOp(2).value1 Then MsgBox “请选择查询条件！” Exit sub河南工业职业技术学院 VB 大型作业- -26End if获得子查询条件If chkOp(0).value=1 Then Sqlcond1= “studentInfo.stu_no= ”&Trim(txtstuNo.Text)& “ ”End IfIf chkOp(1).value=1 ThenSqlcond2= “scoreInfo.course_no= ”&Trim(txtCourseNo.Text)& “ ”End IfIf chkOp(2).value=1 Then If cboOperator.Text “between” Then Sqlcond3= “scoreInfo.course_score”&cboOperator.Text&Trim(txtscore1.Text) Else Sqlcond3= “scoreInfo.course_score”&cboOperator.Text& “”&Trim(txtScore1.Text)& “AND”&Trim(txtScore2.Text) End IfEnd If If sqlcond1 “”Then河南工业职业技术学院 VB 大型作业- -27Sqlstr=sqlstr&sqlcond1Sign=trueEnd IfEnd IfIf sqlcond3 “”Then If sign=True Then Sqlstr=sqlstr & “ AND”& sqlcond3 Else Sqlstr=sqlstr & sqlcond3 End IfEnd IfsqlStr = sqlstr & “AND studentInfo.stu_no=scoreInfo.stu_no”_& “ AND courseInfo.course_no=scoreInfo.course_no”Set rs = ExecuteSQL(sqlStr,msgText)河南工业职业技术学院 VB 大型作业- -28致 谢这次设计能够顺利完成我要感谢我的指导老师以及在此次设计中帮助过我的其他老师跟同学，因为是他们帮助我解决了在此次设计中我所不能解决的问题，才使得我的设计能够顺利完成。