学生成绩管理系统的设计Word文档下载推荐.docx

1、主要用于维护学生信息。功能包括对学生信息的添加、删改和查询。主要用于维护课程信息，功能包括课程的添加、删改和查询。用于维护成绩信息，功能包括成绩的添加和查询。第二章 总体设计及流程图 上面的需求分析已经对系统的功能需求、环境需求做了较为明确的阐述。根据上述需求，下面按照开发设计思想、功能模块、图形用户界面、数据库等方面阐述成绩管理系统的总体设计。2.1开发与设计的总体思想 作为学校使用的成绩管理系统，能够满足成绩管理的基本功能需求，界面简单、操作简便是设计的一个重要考虑。2.2系统模块结构图 2.2.1模块设计图2-7 主窗体菜单设计的效果图1.教师管理菜单设计（1） 教师信息添加界面设计 教

2、师信息添加界面使用文本框输入教师相关基本信息，使用组合列表框选择部门和性别。单击添加按钮保存教师信息，单击返回按钮返回主菜单。具体设计效果图如图2-8所示。图2-8 具体设计效果图（2） 教师信息修改删除界面设计图2-9 具体设计效果图2.学生管理界面设计（1） 学生信息添加界面设计学生信息添加界面使用文本框输入学生的姓名、学号、生日、电话、地址和备注信息。同时使用了两个组合列表框，分别用于选择班级和性别。组合列表框中的数据会在窗体加载的时候就进行初始化。具体设计效果图如图1-11所示。（2） 学生信息删改界面设计在学生信息删改界面中，在班级组合列表框中选择班级，该班级的所有学号会添加到学号组

3、合列表框中，在学号组合列表框中选择学号，就会在下方显示该学生的基本信息。根据需要单击修改按钮来修改学生信息，也可以单击删除按钮来删除该学生的信息，或是单击返回按钮返回主菜单。具体设计效果图如图2-10所示。图2-10 具体设计效果图（3） 学生信息查询界面设计学生信息查询办面提供了四种查询方式：全部、按班级查询、按学号查询和按姓名查询。提供了一个表格用于赤示查询结果。3.课程管理界面设计（1） 课程信息添加界面设计课程添加界面提供了文本框，用于输入课程名称、课程编号、课程学时数和学分等课程基本信息。并且提供了两个组合列表框，分别用于选择课程类型和任课教师。这两个组合列表框的数据是在加载窗体的时

4、候进行初始化的。（2） 课程信息删改界面设计课程信息删改界面提供了文本框，用于输入课程编号，单击查询按钮就会查找该课程编号所代表的课程信息，找到后将信息显示出来。修改和删除按钮用于完成修改和删除操作。具体设计效果图如图2-11所示。图2-11 具体设计效果图4.成绩管理界面设计（1） 成绩录入界面设计成绩界面使用文本框输入学生学号和课程成绩。使用组合列表框选择课程编号。使用表格显示查询结果。使用两个文本框显示学生姓名和课程名称。这两个文本框是不可编辑的。具体设计效果图如图2-12所示。图2-12 具体设计效果图（2） 成绩删改界面设计图2-13 具体设计效果图（3） 成绩查询界面设计成绩查询界

5、面提供了三种查询方式：按学号、按课程和按成绩查询。2.2.3数据库设计 根据系统功能设计的要求以及功能模块的划分，数据库表结构设计如下。1.学生信息表名称：学生信息表（见表2-1）表名称标识：studentInfo数据来源：学生管理模块进行录入。2教师信息表教师信息表（见表2-2）teacherInfo教师管理模块进行录入。3.班级信息表 表2-3 班级信息表名称字段名称类型主键非空班级编号ClassNo文本Yes班级名称classNameNo4.部门信息表 表2-4 部门信息表部门编号Dept_no部门名称Dept_name5.课程信息表 表2-5 课程信息表序号自动编号课程编号Course

6、_no课程名称Course_name课程类型Course_type学时数Course_hours数字学分Score授课教师Teacher6.成绩信息表 表2-6 成绩信息表编号学号Stu_no课程号成绩第三章 详细设计基于系统需求分析与系统总体设计的结论，本系统采用Visual Basic 6.0实现各模块的功能，下面按照功能模块的划分来分别阐述系统的详细设计和实现过程。3.1学生管理模块1.功能描述为用户提供学生信息的添加、修改、删除和查询界面，完成学生信息的添加、修改、删除和查询功能。2.窗体和源文件定义该功能模块涉及到的窗体名称和文件名参见表3-1。 表3-1 窗体列表窗体各称窗体文件名

7、作用frmStudentfrmStudent.frm用于学生信息添加frmUpdateStudentfrmUpdateStudent.frm用于修改、删除学生信息frmQueryStudentfrmQueryStudent.frm用于查询学生信息Module1Module1.bas用于定义全局变量和公用函数3.2教师管理模块1功能描述 该模块提供教师信息的添加、修改、删除和查询界面，完成教师信息的添加、修改、删除和查询功能。2窗体和源文件定义 表3-3 窗体列表窗体名称frmAddTeacherfrmAddTeacher.frm用于教师信息添加frmUpdateTeacherfrmUpdate

8、Teacher.frm用于修改、删除教师信息frmQueryTeacherfrmQueryTeacher.frm用于查询教师信息3.变量声明窗体模块中的声明Public sqlstr As StringPublic msgText As String代码模块中的声明Public dbpath As StringPublic connStr As String4.函数与方法声明 表3-4 主要函数与方法函数/方法名Sub initDepartment（）在组合列表框中列出所有部门名称Sub initForm（）初始化窗体上的文本框和组合列表框Private sub cmdOK_Click（）添加

9、教师信息Sub initTeacherNo（）在组合列表框中列出所有教师编号Sub getTeacherNo（）获取教师信息Private sub cmdDelete_click（）删除教师信息privatesubcmdUpdate_click（）修改教师信息Sub initTitles（）在组合列表框中列出所有的职称Private sub queryTeacher（）查询教师信息处理：1） 获取信息输入窗口中填写的数据。2） 执行查询得到结果集，然后调用结果集对象的addNew方法。3） 设置各个字段的值。4） 调用update方法更新结果集，完成教师信息添加。输出：将数据写入教师信息表程序

10、清单：与学生信息添加代码类似，请参考本书提供的源代码。（3）frmUpdateTeacher窗体：private sub cmdUpdate_Click（）功能：主要用来完成教师信息的修改，将窗体上修改后的信息添加到数据库中。输入：教师信息删改窗体上输入的数据。1） 获取信息输入窗口中填写的数据并得到SQL语句。2） 执行SQL语句完成数据修改。将修改后的数据写入教师信息表。Private sub cmdUpdate_Click（） Dim conn As ADODB.Connection sqlStr= “UPDATE teacherInfo set birthdate=#”& txtBir

11、th & “#,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成绩管理模块该模块提供成绩信息的录入、修改、删除和查询界面

12、，完成成绩信息的录入、修改、删除和查询功能。该功能模块涉及到的窗体名称和文件名参见表3-9。 表3-9 窗体列表frmAddScorefrmAddScore.frm用于成绩信息添加frmUpdateScorefrmUpdateScore.frm用于修改、删除成绩信息frmQueryScorefrmQueryscore.frm用于查询成绩信息 窗体模块中的声明4函数与方法声明 表3-10 主要函数与方法Sub initCourseNo（）在下拉列表框中显示所有课程号Private sub txtStuNo_KeyPress（KeyAscii As Integer）文本框响应回车键，如果输入学号后

13、回车，就会查找并显示学生姓名Private sub cboCourseNo_Click（）在组合列表框中选择课程编号，触发click事件，查找显示课程名称向数据库中添加成绩信息Sub getScoreInfo（）从数据库中查找成绩信息Private sub cmdUpdate_click（）修改成绩信息Private sub cmdDelete_Click（）删除成绩信息查询成绩（1）frmAddScore窗体：private sub txtStuNo_KeyPress（KeyAscii As Integer）相应键盘事件，如果是回车键，则按学号查询学生姓名。按键的ASCII码。1） 判断按键

14、是否为回车键。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 “未

15、找到学生的信息记录！”,vbOKOnly+vbExclamation, “警告” Exit subEnd IfrstStudent.Close End If End sub （2）frmAddScore窗体：private sub cmdOK_Click（）将窗体中的成绩信息添加到数据库中。成绩添加窗体中填写的数据。4） 调用update方法更新结果集，完成成绩信息添加。将成绩信息写入数据库。 Private sub cmdok_click（） Dim rstScore As ADODB.Recordset Dim stuNo As String Dim courseNo As String

16、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 添加新记录 sqlStr=”select*from scoreInfo” set rstScore=ExecuteSQL（sqlStr,msgText） rstScore.AddNew rstScore.Field

17、s（“stu_no”）=stuNo rstScore.Fields（“course_no”）=courseNo rstScore.Fields（“course_score”）=scorerstScore.UpdaterstScore.CloseMsgBox “成绩信息添加完成！”,vboOKOnly+vbExclamation, “警告”initFormEnd sub（3）frmUpdateScore窗体:sub getScoreInfo（）根据课程编号和学号，从数据库中读取成绩信息、课程名和学生名。课程编号和学号。1） 获取课程名称和学号，得到多表查询的SQL语句。2） 执行查询得到结果集。

18、3） 从结果集中读取各个字段的值并显示出来。学生姓名、课程名称、考试成绩。 Sub getScoreInfo（）从数据库中读取成绩相关信息并添加到窗体中的输入框 sqlStr= “select name,course_name,coure_score fromcourseInfo,studentInfo,scoreInfo”&“wherescoreInfo.course_no=”&cbocourseNo.text & “”& “AND scoreInfo.course_no=courseInfo.course_no”& “AND scoreInfo.stu_no=studentInfo.stu

19、_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 “没找到符合条件的数据！ rstScore.Close（4）frmQueryScore窗体:private sub cmdOk_Click（）根据查询条件查找成绩信息。查询方式和关键字。1） 获取查

20、询方式和输入的关键字。2） 形成SQL语句，执行SQL语句得到结果集。3） 从结果集中读取全部数据，并在表格中显示出来。符合查询条件的课程成绩信息。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,”_&“co

21、urseInfo.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 “请选择查询条件！End if获得子查询条件If chkOp（0）.value=1 Then Sqlcond1= “studentInfo.stu_no=”&Trim（txtstuNo.Text）&If ch

22、kOp（1）.value=1 ThenSqlcond2= “scoreInfo.course_no=”&Trim（txtCourseNo.Text）&If chkOp（2）.value=1 Then If cboOperator.Text “between” Then Sqlcond3= “scoreInfo.course_score”&cboOperator.Text&Trim（txtscore1.Text） “”&Trim（txtScore1.Text）& “AND”&Trim（txtScore2.Text） If sqlcond1 “”ThenSqlstr=sqlstr&sqlcond1Sign=trueIf sqlcond3 If