小型学生成绩管理系统课程设计报告书.doc

单单 位位 机机 械械 工工 程程 分院分院(系系) 专专 业业 机械机械设计设计制造及其自制造及其自动动化化 学学 号号 学生姓名学生姓名 指指导导教教师师 完成日期完成日期 2009 年年 9 月月 26 日日 小型学生成绩管理系统小型学生成绩管理系统 摘 要 管理系统是一个学校不可缺少的部分,它的内容对于学校管理者来说是至关 重要,所以学生成绩信息管理系统应该能够为学校管理者提供充足的信息和快捷 的查询手段。但一直以来人们使用传统人工的方式管理学生信息，这种管理方 式存在着许多缺点,如:效率低、保密性差,另外时间长了,将产生大量的文件和 数据,这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深 刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分,使用计算机对学生成绩信息进行管理,具有手工 管理所无法比拟的优点.例如:更新迅速、查找方便、可靠性高、存储量大、保 密性好、寿命长、成本低等。这些优点能够极大地提高效率,也是学校科学化、 正规化管理的重要条件。 随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在 技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位 要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特 点相适应的管理信息系统。 本文介绍了在 Visual Basic6.0 环境下采用“自上而下地总体规划，自下 而上地应用开发”的策略开发一个管理信息系统的过程。通过分析某一学校学 生成绩信息管理的不足，创建了一套行之有效的计算机管理学生的方案。文章 介绍了学生成绩信息管理系统的系统分析部分，包括需求性分析、可行性分析 等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实 现部分说明了几个主要模块的算法，本系统界面友好，操作简单，比较实用。 关键词：学生成绩管理系统、学生信息管理、Visual Basic 应用。 目 录 第一章第一章 选题的意义选题的意义4 4 第二章第二章 系统功能需求分析系统功能需求分析5 5 2.1 系统概述.5 2.2 系统的构成 5 2.3 各模块功能 6 2.4 系统的运行环境 6 第三章第三章 系统设计系统设计6 6 3.1 总体结构设计 6 3.2 数据库设计 7 第四章第四章 系统实现系统实现8 8 4.1 系统登录模块的设计与实现 8 4.2 成绩维护模块的设计与实现 9 4.3 学生成绩查询模块的设计与实现：13 4.4 学生成绩统计 .15 第五章第五章 总结总结2121 5.1 总结 .21 5.2 存在的主要问题 .22 致谢词致谢词2323 参考文献参考文献2424 第一章 选题的意义 现在我国的一些院校的学生成绩管理水平普遍不高，有的还停留在纸介质 基础上，这种管理手段已不能适应时代的发展，因为它浪费了了许多的人力和 物力。在当今信息时代这种传统的管理方法必然被计算机为基础的信息管理系 统所代替。如果本系统能被学校所采用，将会改变以前靠手工管理学生成绩的 状况，可以树立良好的办学形象，提高工作效率。 学生成绩管理系统是为本校开发的，本系统所采用的语言是 Visual Basic 语言，通过本校内部的信息，依据统一数据信息进行管理，把任何一块信息所 产生的数据变动及时地反映给其它相关信息，做到数据共享。 我这次选的课程设计题目是小型学生成绩管理系统，该课程设计题目主要 围绕学生成绩信息录入、管理与维护展开的，通过对系统的设置将各方面的信 息联系在一起，使用户对学生成绩的信息一目了然，能够简洁、迅速的浏览信 息，查询信息，快速的找到自己想要的信息。 本次课程设计应达到的目的是通过对该题目的设计，掌握软件开发过程的 问题分析，系统设计，程序编码，测试等基本方法和技能；掌握数据库的基础 知识，利用数据库管理器进行数据库设计的方法，使用 Data 空间访问数据的方 法和掌握利用 VB 开发数据库系统的方法。 通过这次课程设计，我对 VB 课程设计有了更深入的了解。由于以前只是一 些抽象的理论课程，所以对一些具体的课程设计没有具体的接触，对一些语言 功能也不是很了解，没有独立完成一次真正的课程设计。通过这次实际操作， 我收获很大，对 VB 的认识也不仅仅停留在以前的层面上，认识到自身存在很大 的不足，对 VB 的认识还需要更深入的了解，进行更详尽的学习，并且需要多次 的实践练习。 第二章 系统功能需求分析 2.1 系统概述 本次创建的学生成绩管理系统能够方便、迅速的实现有关学生成绩信息的 录入、查询、统计和维护。本系统由四部分组成：用户的登录、学生成绩信息 的录入、学生信息的维护和学生成绩的查询和统计。利用该系统，可以对学生 的信息进行编辑、添加、删除和查询，可以快捷灵活的查找信息，利于大量信 息的输入，节约时间。 2.2 系统的构成 小型学生成绩管理系统 用户登录学生成绩维护学生成绩查询 添 加 删 除 学 生 信 息 添 加 学 生 高 数 成 绩 添 加 学 生 计 算 机 成 绩 添 加 学 生 信 息 的 删 除 修 改 学 生 成 绩 信 息 的 修 改 学 英 语 成 绩 添 加 姓 名 查 询 学 号 查 询 浏 览 所 查 学 生 信 息 浏 览 所 查 学 生 信 息 学生成绩统计 统 计 男 生 成 绩 统 计 女 生 成 绩 统 计 英 语 不 及 格 人 数 统 计 计 算 机 不 及 格 人 数 平 均 成 绩 由 高 到 低 排 列 统 计 数 学 不 及 格 人 数 输 入 用 户 名 输 入 密 码 2.3 各模块功能 （1）用户登录 通过输入用户名和密码登录学生信息管理系统。 （2）学生成绩的维护 能够输入学生信息，实现对数据的添加、删除、修改功能。基础数据包括 用户信息的添加和修改，学生高数、英语、计算机成绩的添加和修改，添加学 生密码的录入，实现管理员管理。 （3）学生成绩的查询 基础数据包括学生基本信息和其学科成绩信息的记录，可以按学生名称和 按学生学号进行查询和浏览。 （4）学生成绩的统计 能够根据数据库中的学生成绩信息进行统计，可以统计男生成绩、统计女 生成绩、统计数学不及格人数、统计英语不及格人数、统计计算机不及格人和 平均成绩由高到低排列，并进行浏览。 2.4 系统的运行环境 Visual Basic6.0,Window XP , Window 2003 等。 第三章 系统设计 3.1 总体结构设计 （1） 建立“小型学生成绩管理系统”文件夹，并设置其为默认文件夹， 系统产生的文件均保存到其中。 （2） 建立“学生库”项目。 （3） 在“学生库”项目中建立数据库，在数据库中建立数据库表“成 绩表” 。 (4) 在“小型学生成绩管理系统”文件夹中建立“用户登录”和“学生成 绩信息”两个窗体。 （5）最终形成名为“小型学生成绩管理系统”的可执行性文件。 3.2 数据库设计 数据库是指存放数据的仓库，即与一定的组织方式存储在一起、能够为多 个用户共享且独立于应用程序的相关联的数据集合 数据库是一个表的集合，本次所做的系统只需要一个数据库，数据库设计 是根据需求分析，确定数据库所包含的表及字段、表间的关系，然后具体确定 表的结构，包括字段名、字段类型及宽度等。本次系统需设置的表如下： （1） 学生基本信息表结构如下： 字段说明字段名字段类型字段长度 学号 IDText8 姓名 NameText 性别 SexText1 年龄 AgeInteger 英语成绩 EnglishSingle 高数成绩 MathsSingle 计算机成绩 ComputerSingle 平均分 averageSingle 用户名 userText 密码 passwordText ( 2 ) 数据库中“成绩表”学生信息初始化情况如下： 学 号姓 名 性 别 年 龄 英语 成 绩 高数 成 绩 计算 机成 绩 平均分用户名密码 20080601莫嘉女1989787781.33莫嘉10 20080602林峰男2058695460.33林峰11 20080603李静女1968898179.33李静12 20080604贺伟男1988918688.33贺伟13 20080605韩羽轩男1947737665.33韩羽轩14 20080606程敬南男2077846776程敬南15 20080607杨茜女1968588269.33杨茜16 20080608留白女1988859087.67留白17 20080609张扬男1974687873.33张扬18 20080610赵默笙女1967867977.33赵默笙19 第四章 系统实现 4.1 系统登录模块的设计与实现 登录模块的启动在封面表单运行之后，正确输入密码就可以登录，程序界 面如下： 当密码或用户名错误，显示 MsgBox，提示用户名或密码错误，并从新登录： 登录代码如下： Private Sub Form1_Load() Text1.Text = “ “ Text2.Text = “ “ Text1.SetFocus End Sub Private Sub Command1_Click() U = Trim(Text1.Text) P = Trim(Text2.Text) If U = “ Then MsgBox “输入用户名“ Text1.SetFocus End If If P = “ Then MsgBox “输入密码“ Text2.SetFocus End If Data1.Recordset.FindFirst “ User=“ & U & “ and Password =“ & P & “ If Data1.Recordset.NoMatch Then Dim I I = MsgBox(“用户名或密码错误“, vbOKOnly + vbOKCancel, “错误提示“) Text1.Text = “ Text2.Text = “ Text1.SetFocus Else Form1.Hide Form2.Show End If End Sub Private Sub Command2_Click() Text1.Text = “ “ Text2.Text = “ “ Text1.SetFocus End Sub 4.2 成绩维护模块的设计与实现 （1）学生成绩维护界面： 单击不同按钮对学生信息进行不同操作： 单击“添加”按钮，添加学生信息，此时此按钮为“确定” ； 单击“修改”按钮，修改学生信息，此时此按钮为“确定” ； 单击“删除”按钮，删除当前学生记录，并提示 。 当添加信息不完整时： 添加成功： 信息修改后提示： 删除提示： 删除成功： （2）成绩维护设计代码如下： Private Sub Cmdadd_Click() Cmddel.Enabled = Not Cmddel.Enabled Cmdedit.Enabled = Not Cmdedit.Enabled If Cmdadd.Caption = “确定“ Then If Text1.Text = “ Or Text2.Text = “ Or Text3.Text = “ Or Text4.Text = “ Or Text5.Text = “ Or Text6.Text = “ Or Text7.Text = “ Or Combo1.Text = “ Or Text9.Text = “ Or Text10.Text = “ Then MsgBox “字段不能为空“ Cmddel.Enabled = False Cmdedit.Enabled = False Text1.SetFocus Else Data2.Recordset.Update Cmdadd.Caption = “添加“ Data2.Visible = True Text1.Locked = True: Text2.Locked = True: Text3.Locked = True: Text4.Locked = True: Text5.Locked = True: Text6.Locked = True: Text7.Locked = True: Text9.Locked = True: Text10.Locked = True: Combo2.Locked = True MsgBox “添加成功!“, vbExclamation, “信息提示“ End If Else Text1.Locked = False: Text2.Locked = False: Text3.Locked = False: Text4.Locked = False: Text5.Locked = False: Text6.Locked = False: Text7.Locked = False: Text9.Locked = False: Text10.Locked = False: Combo2.Locked = False Cmdadd.Caption = “确定“ Data2.Recordset.AddNew Data2.Visible = False Text1.SetFocus End If End Sub Private Sub Cmdcancel_Click() Cmdadd.Caption = “添加“ Cmdedit.Caption = “修改“ Cmdadd.Enabled = True Cmdedit.Enabled = True Cmddel.Enabled = True Text1.Locked = True: Text2.Locked = True: Text3.Locked = True: Text4.Locked = True: Text5.Locked = True: Text6.Locked = True: Text7.Locked = True: Text9.Locked = True: Text10.Locked = True: Combo2.Locked = True Data2.UpdateControls Data2.Recordset.MoveNext If Data2.Recordset.EOF Then Data2.Recordset.MoveFirst Data2.Visible = True End Sub Private Sub Cmddel_Click() Dim ms As Integer ms = MsgBox(“是否删除当前记录?“, 4 + 32 + 256, “信息提示“) If ms = vbYes Then Data2.Recordset.Delete MsgBox “成功删除!“, vbExclamation, “信息提示“ Data2.Recordset.MoveNext If Data2.Recordset.EOF Then Data2.Recordset.MoveLast End If End Sub Private Sub Cmdedit_Click() Cmdadd.Enabled = Not Cmdadd.Enabled Cmddel.Enabled = Not Cmddel.Enabled If Cmdedit.Caption = “确认“ Then Cmdedit.Caption = “修改“ Data2.Recordset.Edit Data2.Recordset.Update Data2.Visible = True MsgBox “修改成功!“, vbExclamation, “信息提示“ Text1.SetFocus Else Cmdedit.Caption = “确认“ Data2.Visible = False Text1.Locked = False: Text2.Locked = False: Text3.Locked = False: Text4.Locked = False: Text5.Locked = False: Text6.Locked = False: Text7.Locked = False: Text9.Locked = False: Text10.Locked = False: Combo2.Locked = False End If End Sub Private Sub Text5_Change() If Text5.Text “ And Text7.Text “ And Text7.Text “ Then Text3.Text = (Val(Text5) + Val(Text6) + Val(Text7) / 3 End If End Sub Private Sub Text6_Change() If Text6.Text “ And Text5.Text “ Then If Combo1.Text = “按姓名“ Then cx = “ where 成绩表.name= “ & Text8.Text & “ Else cx = “ where 成绩表.ID = “ & Text8.Text & “ End If Else: cx = “ 如果条件为空,则显示所有记录 End If Data1.RecordSource = “ select * from 成绩表 “ & cx Data1.Refresh If Data1.Recordset.EOF Then MsgBox (“ 无匹配记录 “) Text8.Text = “ Text8.SetFocus Data1.RecordSource = “ select * from 成绩表 “ & “ Data1.Refresh End If End Sub 4.4 学生成绩统计 （1）程序界面设计 在第三个选项卡中添加一个 MSFlexGrid 控件、一个下拉列表框、一个命令按钮， 界面如图 4.4-1 所示，控件的属性设置如下表所示： 控件名控件属性属性值 MSFlexGridRecordSourceData3 Combo3 Command2Caption统计 Frame2Caption统计条件 图 4.4-1 （2）学生成绩统计代码设计如下： Private Sub Form_Load() Combo1.AddItem (“按姓名“) Combo1.AddItem (“按学号“) Combo2.AddItem (“男“) Combo2.AddItem (“女“) Combo3.AddItem (“统计男生成绩“) Combo3.AddItem (“统计女生成绩“) Combo3.AddItem (“统计数学不及格人数“) Combo3.AddItem (“统计英语不及格人数“) Combo3.AddItem (“统计计算机不及格人数“) Combo3.AddItem (“平均成绩由高到低排列“) Combo3.AddItem (“统计不及格人数“) Form2.Picture = LoadPicture() End Sub Private Sub Command2_Click() If Combo3.Text = “统计男生成绩“ Then Data3.RecordSource = “ select * from 成绩表 where sex=男“ Data3.Refresh ElseIf Combo3.Text = “统计女生成绩“ Then Data3.RecordSource = “ select * from 成绩表 where sex=女“ Data3.Refresh ElseIf Combo3.Text = “统计数学不及格人数“ Then Data3.RecordSource = “ select * from 成绩表 where maths60 ORDER BY maths DESC“ Data3.Refresh ElseIf Combo3.Text = “统计英语不及格人数“ Then Data3.RecordSource = “ select * from 成绩表 where english60 ORDER BY english DESC“ Data3.Refresh ElseIf Combo3.Text = “统计计算机不及格人数“ Then Data3.RecordSource = “ select * from 成绩表 where computer60 ORDER BY computer DESC“ Data3.Refresh ElseIf Combo3.Text = “统计不及格人数“ Then Data3.RecordSource = “ select * from 成绩表 where english60 or maths60 or computer60“ Data3.Refresh ElseIf Combo3.Text = “平均成绩由高到低排列“ Then Data3.RecordSource = “ select * from 成绩表 ORDER BY average DESC “ Data3.Refresh End If End Sub 运行程序，选择统计条件（ 统计男生成绩、统计女生成绩、统计数学不及 格人数、统计英语不及格人数、统计计算机不及格人数、平均成绩由高到低排 列） ，单击“统计”按钮，可以实现学生成绩信息的统计功能。运行结果如图 （1）男生成绩统计界面如下： （2）女生成绩统计界面如下： （3）英语不及格人数统计界面如下： （4）计算机不及格人数统计界面如下： （5）不及格人数统计界面如下： （6）平均分由高到低排列统计界面如下： 第五章 总结 5.1 总结 VB 课程设计的实习任务很快就结束了，回想这十天的实习过程，真是收获 很大。 开始选课题时，认为“小型学生管理系统”这个课题应该较容易完成。然 而当我们真正设计时发现数据库的知识一点都不懂，更不用说应用数据库进行 设计了。实习的第一天就只是选了课题，其他什么都没做，因为脑袋里一点头 绪都没有，不知道怎么下手做。通过对课本中数据库知识的学习，随着实习时 间的深入，渐渐的有了一个大概的思路，也知道该做些什么，设计哪些窗体与 建立哪些表，有了一些结构设计，也学到了许多 VB 知识与数据库的应用。 在本次 VB 课程设计中我学到了许多，对 VB 开发过程有了全面的认识，在对 所学知识的运用中，发现了自己许多的不足，对表单一些控件的属性不太了解， 进行代码设计时对一些控件的事件过程与方法运用不太熟悉，而这次实习正好 补充我在某些方面的欠缺，而且运用高级语言运行编程，更是锻炼思维能力的 一种有效方法。然而开发软件，主要是如何将这个程序联系起来，这个过程正 是对我自己思维的一种锻炼，此次学习对日后走向社会将会有很大的帮助，同 时增加了我的社会竞争能力，也激发了我对 VB 编程的兴趣。 在做本程序过程中，必须遵循一定的设计步骤，以免发生一些不必的麻烦， 如在建立成绩表时，一定要在项目中建立数据库表；在设计“学生成绩维护” 界面时，由于按钮太多在运行时会因为选择按钮顺序不同而导致程序报错，就 使代码设计程度变难，需要很强的逻辑和耐心；还有就是在写 Grid 控件 RecordSource 代码时，关于 SQL 语句一些问题，在 SQL 语句中空格是不能省略 的，省略后系统也不会提示错误，但会造成所要执行的命令不能实现，所出现 的结果不是自己想要得到的。 通过这次学生成绩管理系统的设计使我发现，做一个实现一定功能的系统 并不简单，而且需要在学好理论的基础上，结合实际经