2022年VB课设报告学生成绩管理系统

1、XIAN TECHNOLOGICAL UNIVERSITY 课程设计报告课程名称可视化程序设计专业：信息治理与信息系统成绩：2022 年 6 月 30 日1 / 27 目录（一）系统开发方案 . 1 引言 . 11 11 11 11 11 11 22 22 33 33 33 33 44 44 44 44 44 44 44 55 55 55 55 55 66 77 77 88 88 88 88 88 99 99 1010 1010 1010 1515 1515 1616 1717 1.1 编写目的. 1.2 项目背景. 1.3 系统开发的背景 . 2 项目概述 . 2.1 目标. 2.2 系统简

2、介 . 2.3 产品. 3 实施方案 . 3.1 人员配置. 3.2 项目进度方案. 4 完成项目应具备的条件和约束. 4.1 运算机系统支持. 4.2 开发人员应具备相应的开发才能. 4.3 资费 . （二）系统开发可行性报告. 1 经济上的可行性 . 2 技术上的可行性 . 3 治理上的可行性 . 4 开发环境的可行性 . （三）信息系统需求说明书. 1 需求规定 . 1.1 对功能的规定（说明角色和功能）. 1.2 功能分析. 1.3 功能结构图. 1.4 对性能的规定（时间响应、稳固性等）. 1.5 输人输出要求 . 1.6 故障处理要求 . （四） 信息系统设计报告 . 1 系统总体

3、设计 . 1.1 本系统的体系结构. 1.2 系统总体结构 . 1.2.1 前台业务模块 . 1.2.2 后台治理模块 . 2 系统具体设计 . 2.1 基础代码方案 . 2.2 数据库设计 . 2.2.1 系统 E-R 图. 2.2.2 数据库表的设计 . （五）系统测试报告 . 2 / 27 1 系统运行 . 1717 2 同学登录 . 1717 3 老师登录 . 1919 4 教务登陆 . 2022 5 系统调试 . 2222 （六）系统使用说明书 . 2323 3 / 27 （一）系统开发方案 1 引言 1.1 编写目的为了保证项目团队按时保质地完成项目目标,项目情形, 使项目工作开展

4、的各个过程合理有序,便于项目团队成员更好地明白 因此以文件化的形式, 把开发过程中各项工作的人员、分工、经费、系统资源条件等问题的支配记录下来,作为项目团队成员以及项目干系人之间的共识与商定,作的依据,以便方案开展和确保项目开发胜利；1.2 项目背景项目团队开展和检查项目工随着科学技术的不断提高, 运算机科学日渐成熟, 其强大的功能以为人们深 刻熟识,信息技术不断进展的当今各行各业的进展完善中都离不开信息处理,计算机被广泛应用于信息治理系统的环境,它已进入人类社会的各个领域并发挥着越来越重要的作用； 作为运算机应用的一部分, 使用运算机对同学成果治理信息进行治理, 具有手工治理所无法比拟的有点

5、；利用它能够进行大规模的信息数据处理分析, 使工作效率和安全性大大提高, 所以对于高校同学成果的治理拥有一 款好的学习成果治理系统软件是必需的；同学成果治理系统是一个学校不行缺少的重要部分,它的内容对于学校的决策者和治理者来说都至关重要, 所以同学成果治理系统应当为用户供应充分的信 息和快捷的查询手段；同时,同学成果治理是各高校的主要日常治理工作之一,涉及到校、系、师、生的诸多方面,随着教学体制的不断改革,特殊是学分制、选课制的绽开和深化, 同学成果日常治理工作及储存治理日趋繁重、复杂；高校都迫切需要研制开发一款属于自己的功能强大,绩治理系统；1.3 系统开发的背景操作简洁,具有人性化的同学成

6、由本小组成员自己确定题目, 老师赐予指导, 由本组成员联合完成报告； 以 实现同学成果治理系统子功能；2 项目概述1 / 27 2.1 目标在我国,各大中学校校的各类信息治理系统并非一个新的课题,但也有的学校根本就没有信息任何治理系统,全部的工作几乎仍是手工操作来完成；运算机技术在日新月异的进展,信息化是社会进程的必定趋势,学校治理只有只有快,准,精才能发挥其价值； 本系统是将现代化的运算机技术和传统的教学、教务工作相结合, 依据学院的工作流程设计完成的；为了使系统在学院的治理中发挥更大的作用, 实现工作过程的运算机化, 提高工作效率和工作质量, 现提出如下的系统开发目标：（1）系统应具有有用

7、性、牢靠性和适用性,同时留意到先进性；（2）对各个数据库进行动态治理,防止纷乱；（3）能够依据用户挑选的不同的条件进行简洁查询和复合查询；（4）能够对查询结果进行分类汇总；（5）留意数据的安全性,具有数据备份和复原的功能；（6）便利用户的操作,尽量削减用户的操作；2.2 系统简介本系统主要用于学校同学信息治理, 总体任务是实现同学信息关系的系统化、规范化和自动化, 其主要任务是用运算机对同学信息进行日常治理,如查询、 修 改 、增加、删除；本系统主要包括用户登录、信息查询、修改和增加、课程查询和增加、成果 查询和录入、成果的统计等模块；其功能主要有：（1）教务处能够实现对整个专业信息、 课程信

8、息、同学信息的添加、 修改、删除、查询等操作；（2）可以将同学成果的数据发布到网上,便利同学老师进行查询,达到资 源共享的目的；（3）老师能够在肯定的权限内对全部同学成果的查询,老师可以给同学所 选课程打分；（4）同学可以在自己的权限内对自己的成果查询,以及个人信息的查询,登录密码的修改；（5）密码：进入系统所需要的凭证；2 / 27 （6）权限：老师、同学、教务权益的限制；2.3 产品 程序：同学成果治理系统 VB 程序 和数据库；文件：系统开发方案、系统开发可行性报告、系统需求说明书、系统设计说 明书、测试报告、系统使用说明书、汇总文档；3 实施方案3.1 人员配置 组长：张帆 成员：侯萌

9、、贾丹丹、李海燕、李玉玲、李玥需交成果任务安排参与者程序项目开发的整个过程小组全部成员文档系统开发方案李玥系统开发可行性报告李海燕系统需求说明书李玉玲系统设计说明书张帆测试报告侯萌系统使用说明书贾丹丹3.2 项目进度方案 开头时间： 2022 年 6 月 21 日 终止时间： 2022 年 6 月 30 日选题预备,明确成员各自任务 系统方案、可行性讨论2022 年 6 月 20 日 2022 年 6 月 2122 日具体进度系统设计2022 年 6 月 2325 日系统编码2022 年 6 月 2628 日系统测试调试2022 年 6 月 2829 日PPT汇报答辩,提交系统及各种文档3 /

10、 27 2022 年 6 月 30 日4 完成项目应具备的条件和约束 4.1 运算机系统支持 本治理系统的开发需要工作平台：PC主机；开发环境： Windows7及以上操作系统、已安装 运行环境： Windows7及以上操作系统；4.2 开发人员应具备相应的开发才能VB及 Access 软件； Visual Basic 6.0 的编程和 Access 数据库的设计才能；4.3 资费开发时间为两周,无资费；（二）系统开发可行性报告由于本系统治理的对象为老师和同学, 且每个数据内容具有较强的关联性,涉及的运算过程不是很复杂； 因此,比较适合采纳数据库治理； 在技术难度方面,由于有指导老师的指导和相

11、关参考文献,的功能,因此完全可以实现；1 经济上的可行性现在,运算机的价格已经特别低廉,特殊是网上资料, 特殊是参考其他程序性能却有了长足的进步； 而本系统的开发,也在肯定程度上为学校的工作效率带来了一个质的飞跃,为此主要表现有以下几个方面：一方面是支出的费用,包括设备购置费、治理和保护费用、人员工资和培训费等,另一个是取得的收益；这是个超小的治理系统,从投入的人力,财力与物力来讲是特别之小的,只要一台电脑, 一台打印机, 这个系统就可以搞起来,考虑到学校里有电脑, 现只要购置一台打印机就可以了； 从节约人力方面,可以让治理人员从繁冗复杂的工作中解脱出来,做更多的工作, 可以给教学治理提高一个

12、层次；具体有以下几个方面：（1）本系统只需要一台运算机；（2）本系统的运行可以节约很多资源；（3）本系统的运行可以大大的提高学校的工作效率；（4）本系统可以敏锐文档更加安全,等等；2 技术上的可行性4 / 27 从技术方面来说, Visual Basic6.06.0是启动画面编程工具MSDN之一,是目前世界上使用最广泛的程序开发工具之一；结构简洁,编写程序对系统的资源占有极低, 是程序编写者编写小型程序的第一挑选；它的快捷开发速度, 简洁 易学的语法,爱护便利的开发环境,可以便利操作,它拥有多种数据库接口,可 以特别便利的连接各种数据源；技术的可行性分析要考虑将来要采纳的硬件和软件技术能否满意

13、用户提出 的要求；此外仍要考虑开发人员的水平,在数据库方面要对治理模式比较熟识；我们学习过数据库和治理信息系统课程设计的相关课程,理系统这种不算太难的程序；有才能编写同学成果管使用 VB作为系统开发环境,它供应完善的指令掌握语句、类与对象的支持 及丰富的数据类型,给开发高性能系统供应的保证为开发满意客户要求的系统,保证了代码的模块化要求, 而代码模块化的提高, 特别有利于以后对新系统的扩 展与修改；而且由于有指导老师的指导和相关参考文献,特殊是网上资料,特 别是参考其它程序的功能,因此可以实现；综上所述,本系统的设计与开发在技术上和硬件设备上的条件都是满意的,因此,它在技术上是可行的；3 治理

14、上的可行性主要是教务处治理人员的大力支持,系领导认同, 现有的治理制度和方法科学,规章制度齐全, 原始数据正确等； 规章制度和治理方法系统的建设供应了制 度保证；4 开发环境的可行性企业领导看法一样, 并且有足够的资金, 可以抽出骨干力气参与新系统开发,简 单地说,就是企业能够为新系统的开发建设供应一个长期良好的环境,因此,它 的开发环境也是可行的；（三）信息系统需求说明书1 需求规定1.1 对功能的规定（说明角色和功能）5 / 27 本系统主要针对 3 类不同的用户； 1 系统治理员； 这种类型的客户端服务于治理层,建立在已有的结构化和非结构化数据基础之上, 通过对数据的统计和分析, 就能快

15、速获得治理层所需的 各种信息,如全部同学信息、全部课程信息、全部成果的统计等等一些情形； 2 同学；这种类型的客户端服务于同学直接操作来获得自己所需要的服务,如基本信息查询、所学课程查询、成果查询等等；每一个功能,用户都可以依据 系统的提示一步一步往下进行, 不存在同学不会查询的问题, 极大节约了同学和 学校工作人员的的时间,也提高了效率； 3 老师；这种类型的客户端服务于老师直接操作来获得及所需要的服务,如同学成果的录入、查询和统计,课程信息的查询等等,每一个功能,老师都 可在进入系统后查询到,大大便利了老师的工作,提高了工作效率；功能 简介说明 登陆 用户输入账号和密码, 假如账号和密码

16、不相符 ,系统就显示“ 用户名密码验 证有误,请重新输入；”增加 用户在输入同学信息、 课程信息、成果 时,点击增加,会提示“ 增加胜利” ；修改 用户输入在进行同学信息、课程修改 时,确认后,系统会提示“ 修改胜利”查询 该功能可以实现查询同学信息、课程、成果等信息；删除 治理员可对同学信息、 课程进行删除操 作,确认后,系统会提示“ 删除胜利”统计 老师可对自己所教授课程进行统计, 而 治理员可以对全部的课程进行统计, 了 解同学的整体学习情形；1.2 功能分析本系统主要由以下功能需求： 1 前台用户登录模块6 / 27 2 前台用户增加模块 3 前台用户修改模块 4 前台用户删除模块 5

17、 前台用户查询模块 6 后台治理员赐予同学老师权限模块 7 后台治理员成果治理模块 8 后台治理员同学信息治理模块 9 后台治理员课程信息治理模块1.3 功能结构图同学成果治理信息系统同学老师治理员成课学学学课成权绩程生生生程绩限查信成成信管管管询息绩绩息理理理查录查管询入询理1.4 对性能的规定（时间响应、稳固性等） 1、精度输入数据精度：用户密码：六位整数 ; 成果：最大为 100 分；账号：三位整数 2、稳固性7 / 27 系统要比较健壮,只要是用户的合理操作, 系统都能够给出合理正确的回应,不显现令用户感到意外的系统错误或系统崩溃；1.5 输人输出要求 1输入：,密码 ,成果 ,同学信

18、息,课程信息；输入内容：用户名数据精度 密码：六位整数 成果：最大为 100 具体要求 成果最大为 100 分并且不能不写成果 2输出：绩输出内容：输入帐号和密码提示,添加、修改、删除胜利都有提示,成显示；具体要求 显示全部科目成果；1.6 故障处理要求 1 能够对用户录入的各种数据进行校验； 2 能够准时捕获系统在运行时的错误信息,并给出相应的提示,系统应有 肯定的容错才能； 3 用磁盘方式对系统数据进行完整备份；由应用系统自动调用数据后备的 有用程序进行磁盘备份；（四）信息系统设计报告1 系统总体设计1.1 本系统的体系结构 C/S 体系系统 : 1C/S 体系说明8 / 27 C/S 体

19、系即客户端 / 服务器模式,客户端采纳VB开发,运行于 WindowsXP的操作系统上；服务器端软件运行于 Windows XP Server 上；数据库采纳 Access； 2C/S 模式的设计银行 ATM机存取款系统采纳C/S 模式,在服务器端储备客户资源各种信息,操作员在客户端可以进行操作, 查看操作数据库；每个客户端都与服务器相连接； 3 开发运行环境运行环境： CPU: 1.5 GHz RAM：512M以上 硬盘： 512M及以上 操作系统： Microsoft Windows XP 开发工具： VB 6.0 开发语言： VB+Access 1.2 系统总体结构 1.2.1 前台业务

20、模块用户模块用 户 登 录成 绩 查 询信 息 修 改成 绩 录 入信 息 查 询成 绩 统 计课 程 查 询9 / 27 1.2.2 后台治理模块治理模块权限设置学 教 生 师 权 权 限 限 设 设 置 置2 系统具体设计2.1 基础代码方案老师登录界面 Private Sub Command3_Click Dim Conn As New adodb.Connection Conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb;Persist Security Info=False 建立连接 If Text1.T

21、ext = Then MsgBox 请输入职工号！ , vbCritical, 提示 Text1.SetFocus Exit Sub End If If Text2.Text = Then MsgBox 请输入密码！ , vbCritical, 提示 Text2.SetFocus Exit Sub End If Dim rs As New adodb.Recordset With rs 10 / 27 SQL = select * from zhigong where 职工号 = & Text1.Text & and 密码= & Text2.Text & Set rs = Conn.Execu

22、teSQL If Not rs.EOF Then 是否查找 登录胜利 MsgBox 登录胜利 , vbOKOnly, 提示 Unload Me Form4.Show Text2.Text = Else MsgBox 职工号密码验证有误,请重新输入, vbCritical, 提示 Text2.Text = Text2.SetFocus End If Conn.Close End With End Sub 查询同学信息界面 Private Sub Command1_Click Set db = New adodb.Connection db.CursorLocation = adUseClient

23、 Set rs = New adodb.Recordset Call db.OpenPROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb; 连接数据库rs.Open select *from xueshengxx where adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = rs End Sub 学号 = & Text1.Text & , db, 11 / 27 Private Sub Command2_Click Set db = New adodb.Connecti

24、on db.CursorLocation = adUseClient Set rs = New adodb.Recordset Call db.OpenPROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb; 连接数据库rs.Open select *from xueshengxx where adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = rs End Sub 增加界面 Private Sub Command1_Click 姓名 = & Text2.Text & ,

25、db, Dim ADOrs As New Recordset 声明一个记录集对象Dim ADOrs1 As New Recordset Dim strSQL As String 声明一个记录集对象ADOrs.ActiveConnection = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb; Persist Security Info=False 关联与 ADOcn连接对象ADOrs1.ActiveConnection = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Student

26、.mdb; Persist Security Info=False 关联 If Text1.Text = Then 与 ADOcn连接对象 MsgBox 未输入班级,请重新输入数据！, vbCritical + vbOKOnly Text1.SetFocus 定位光标 Exit Sub End If If Text2.Text = Then MsgBox 未输入专业,请重新输入数据！, vbCritical + vbOKOnly 12 / 27 Text2.SetFocus 定位光标 Exit Sub End If 第一查询表中是否存在关键字相同的记录 strSQL = select * fr

27、om zhuanye strSQL = strSQL & Where strSQL = strSQL & and ADOrs.Open strSQL 假如关键字重复 , 就退出 If Not ADOrs.EOF Then 班级 = + Text1.Text + 专业 = + Text2.Text + MsgBox 该记录已经存在 , 不能连续增加 , vbCritical + vbOKOnly Exit Sub End If ADOrs1.Open select * from zhuanye, , , adLockOptimistic ADOrs1.AddNew ADOrs1班级 = Text

28、1.Text ADOrs1专业 = Text2.Text ADOrs1.Update Text1.Text = 初始化文本框控件 Text2.Text = Text1.SetFocus 定位光标 MsgBox 已胜利添加新记录 , vbQuestion + vbOKOnly ADOrs.Close 关闭记录集 ADOrs1.Close 关闭记录集 Set ADOrs = Nothing Set ADOrs1 = Nothing End Sub 13 / 27 删除界面 Private Sub Command2_Click Dim 学号 As String Dim 姓名 As String Di

29、m 课程号 As String Dim 课程名 As String Dim strSQL As String Dim ADOrs As New Recordset 声明记录集对象 ADOrs.ActiveConnection = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb; Persist Security Info=False 关联 与 ADOcn连接对象关联 假如学号与姓名同时为空就提示重新输入 / 挑选与 ADOcn连接对象 If MsgBox 删除学号为 + Combo1.Text + 姓名为 + Combo2.Te

30、xt + 和课程号为 + Combo3.Text + 课程为 + Combo4.Text + 的成果记录,该学生在同学成果表中的全部记录也将一起删除,是否连续？vbYesNo = vbYes Then 拼写 Delete 同学成果表指定记录语句 strSQL = Delete From chengji , vbQuestion + strSQL = strSQL + Where 学号 = Adodc1.RecordSource Adodc1.Recordset.Delete strSQL = Delete From kecheng strSQL = strSQL + Where Adodc2.

31、Recordset.Delete 课程号 = Adodc2.RecordSource Adodc1.Recordset.MoveNext Adodc2.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast 拼写 Delete 同学情形表指定记录语句 MsgBox 删除胜利 ., vbQuestion + vbOKOnly Combo1.Text = 14 / 27 Combo2.Text = End If If ADOrs.State = adStateOpen Then ADOrs.Close 关闭记录集End Sub 2.2 数据库设计2.2.1 系统 E-R 图姓名性学号姓名性别别专业同学N 老师职工号M 查询N 课M 录入授课老师学分课程程L 课程名号治理治理 性别姓名15 / 27 职工号2.2.2 数据库表的设计同学登陆表同学信息表老师表治理员表成果表课程表16 / 27 专业表（五）系统测试报告1