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

1、XIAN TECHNOLOGICAL UNIVERSITY课程设计报告课程名称 可视化程序设计 专 业： 信息管理与信息系统 成 绩： 2016年 6 月 30 日目录（一）系统开发计划11 引言11.1编写目的 11.2项目背景 11.3系统开发的背景12 项目概述12.1目标 22.2系统简介22.3产品 33 实施计划33.1人员配置 33.2项目进度计划   34 完成项目应具备的条件和约束44.1计算机系统支持  44.2开发人员应具备相应的开发能力44.3资费4（二）系统开发可行性报

2、告41 经济上的可行性42 技术上的可行性43 管理上的可行性54 开发环境的可行性5（三）信息系统需求说明书51 需求规定51.1对功能的规定（说明角色和功能）51.2功能分析61.3功能结构图71.4对性能的规定（时间响应、稳定性等）71.5输人输出要求81.6故障处理要求8（四） 信息系统设计报告81 系统总体设计81.1本系统的体系结构81.2系统总体结构91.2.1前台业务模块91.2.2 后台管理模块102 系统详细设计102.1基础代码方案102.2数据库设计152.2.1 系统E-R图152.2.2数据库表的设计16（五）系统测试报告171 系统运行172 学生登录173 教师

3、登录194 教务登陆205 系统调试22（六）系统使用说明书23（一）系统开发计划1 引言1.1编写目的 为了保证项目团队按时保质地完成项目目标，便于项目团队成员更好地了解项目情况，使项目工作开展的各个过程合理有序，因此以文件化的形式，把开发过程中各项工作的人员、分工、经费、系统资源条件等问题的安排记录下来，作为项目团队成员以及项目干系人之间的共识与约定，项目团队开展和检查项目工作的依据，以便计划开展和确保项目开发成功。 1.2项目背景 随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能以为人们深刻认识，信息技术不断发展的当今各行各业的发展完善中都离不开信息

4、处理，计算机被广泛应用于信息管理系统的环境，它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对学生成绩管理信息进行管理，具有手工管理所无法比拟的有点。利用它能够进行大规模的信息数据处理分析，使工作效率和安全性大大提高，所以对于高校学生成绩的管理拥有一款好的学习成绩管理系统软件是必须的。学生成绩管理系统是一个学校不可缺少的重要部分，它的内容对于学校的决策者和管理者来说都至关重要，所以学生成绩管理系统应该为用户提供充足的信息和快捷的查询手段。同时，学生成绩管理是各大学的主要日常管理工作之一，涉及到校、系、师、生的诸多方面，随着教学体制的不断改革，尤其是学分制、

5、选课制的展开和深入，学生成绩日常管理工作及保存管理日趋繁重、复杂。高校都迫切需要研制开发一款属于自己的功能强大，操作简单，具有人性化的学生成绩管理系统。1.3系统开发的背景 由本小组成员自己确定题目，老师给予指导，由本组成员联合完成报告。以实现学生成绩管理系统子功能。2 项目概述2.1目标 在我国，各大中小学校的各类信息管理系统并非一个新的课题，但也有的学校根本就没有信息任何管理系统，所有的工作几乎还是手工操作来完成。计算机技术在日新月异的发展，信息化是社会进程的必然趋势，学校管理只有只有快，准，精才能发挥其价值。本系统是将现代化的计算机技术和传统的教学、教务工作相结合，按照学院的工

6、作流程设计完成的。为了使系统在学院的管理中发挥更大的作用，实现工作过程的计算机化，提高工作效率和工作质量，现提出如下的系统开发目标： （1）系统应具有实用性、可靠性和适用性，同时注意到先进性。 （2）对各个数据库进行动态管理，防止混乱。 （3）能够按照用户选择的不同的条件进行简单查询和复合查询。 （4）能够对查询结果进行分类汇总。 （5）注意数据的安全性，具有数据备份和恢复的功能。 （6）方便用户的操作，尽量减少用户的操作。 2.2系统简介本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其

7、主要任务是用计算机对学生信息进行日常管理，如查询、修改 、增加、删除。本系统主要包括用户登录、信息查询、修改和增加、课程查询和增加、成绩查询和录入、成绩的统计等模块。其功能主要有：（1） 教务处能够实现对整个专业信息、课程信息、学生信息的添加、修改、删除、查询等操作； （2） 可以将学生成绩的数据发布到网上，方便学生教师进行查询，达到资源共享的目的。 （3）教师能够在一定的权限内对所有学生成绩的查询，教师可以给学生所选课程打分。 （4）学生可以在自己的权限内对自己的成绩查询，以及个人信息的查询，登录密码的修改。（5）密码：进入系统所需要的凭证。（6）权限：教师、学

8、生、教务权利的限制。2.3产品 程序：学生成绩管理系统(VB程序)和数据库。文件：系统开发计划、系统开发可行性报告、系统需求说明书、系统设计说明书、测试报告、系统使用说明书、汇总文档。3 实施计划3.1人员配置  组长：张帆  成员：侯萌、贾丹丹、李海燕、李玉玲、李玥 需交成果任务分配参与者程序项目开发的整个过程小组所有成员文档系统开发计划李玥系统开发可行性报告李海燕系统需求说明书李玉玲系统设计说明书张帆测试报告侯萌系统使用说明书贾丹丹3.2项目进度计划    开始时间：2016年6月21日 结束时间：2016年6月30日具

9、体进度选题准备，明确成员各自任务2016年6月20日系统计划、可行性研究2016年6月2122日系统设计2016年6月2325日系统编码2016年6月2628日系统测试调试2016年6月2829日PPT汇报答辩，提交系统及各种文档2016年6月30日4 完成项目应具备的条件和约束4.1计算机系统支持   本管理系统的开发需要工作平台：PC主机。  开发环境：Windows7及以上操作系统、已安装VB及Access 软件。 运行环境：Windows7及以上操作系统。4.2开发人员应具备相应的开发能力 Visual Basic 6.0的编程和Acc

10、ess数据库的设计能力。4.3资费 开发时间为两周，无资费。（二）系统开发可行性报告由于本系统管理的对象为教师和学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合采用数据库管理。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其他程序的功能，因此完全可以实现。1 经济上的可行性现在，计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发，也在一定程度上为学校的工作效率带来了一个质的飞跃，为此主要表现有以下几个方面：一方面是支出的费用，包括设备购置费、管理和维护费用、人员工资和培训费等，另一个是取得的收益。这是个超小的管理系统，从

11、投入的人力，财力与物力来讲是非常之小的，只要一台电脑，一台打印机，这个系统就可以搞起来，考虑到学校里有电脑，现只要购置一台打印机就可以了。从节省人力方面，可以让管理人员从繁冗复杂的工作中解脱出来，做更多的工作，可以给教学管理提高一个层次。具体有以下几个方面： （1）本系统只需要一台计算机； （2）本系统的运行可以节省许多资源； （3）本系统的运行可以大大的提高学校的工作效率； （4）本系统可以敏感文档更加安全，等等。2 技术上的可行性 从技术方面来说，Visual Basic6.06.0是启动画面编程工具MSDN之一，是目前世界上使用最广泛的程序开发工具之一。结构简单，编写程序对系统的资源占有

12、极低，是程序编写者编写小型程序的第一选择。它的快捷开发速度，简单易学的语法，体贴便利的开发环境，可以方便操作，它拥有多种数据库接口，可以非常方便的连接各种数据源。 技术的可行性分析要考虑将来要采用的硬件和软件技术能否满足用户提出的要求。此外还要考虑开发人员的水平，在数据库方面要对管理模式比较熟悉。我们学习过数据库和管理信息系统课程设计的相关课程，有能力编写学生成绩管理系统这种不算太难的程序。 使用VB作为系统开发环境，它提供完善的指令控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障为开发满足客户要求的系统，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的

13、扩展与修改。 而且由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此可以实现。 综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。3 管理上的可行性主要是教务处管理人员的大力支持，系领导认同，现有的管理制度和方法科学，规章制度齐全，原始数据正确等。规章制度和管理方法系统的建设提供了制度保障。4 开发环境的可行性企业领导意见一致，并且有足够的资金，可以抽出骨干力量参加新系统开发，简单地说，就是企业能够为新系统的开发建设提供一个长期良好的环境，因此，它的开发环境也是可行的。（三）信息系统需求说明书1 需求规定 1.1对功能的

14、规定（说明角色和功能） 本系统主要针对3类不同的用户。 (1) 系统管理员。这种类型的客户端服务于管理层，建立在已有的结构化和非结构化数据基础之上，通过对数据的统计和分析，就能快速获得管理层所需的各种信息， 如所有学生信息、 所有课程信息、所有成绩的统计等等一些情况。 (2) 学生。这种类型的客户端服务于学生直接操作来获得自己所需要的服务，如基本信息查询、所学课程查询、成绩查询等等。每一个功能，用户都可以根据系统的提示一步一步往下进行，不存在学生不会查询的问题，极大节约了学生和学校工作人员的的时间，也提高了效率。 (3)教师。这种类型的客户端服务于教师直接操作来获得及所需要的服务，如学生成绩的

15、录入、查询和统计，课程信息的查询等等，每一个功能 ，教师都可在进入系统后查询到，大大方便了教师的工作，提高了工作效率。功能简介说明登陆用户输入账号和密码，如果账号和密码不相符 ，系统则显示“用户名密码验证有误，请重新输入。”增加用户在输入学生信息、课程信息、成绩时，点击增加，会提示“增加成功”。修改用户输入在进行学生信息、课程修改时，确认后，系统会提示“修改成功”查询该功能可以实现查询学生信息、课程、成绩等信息。删除管理员可对学生信息、课程进行删除操作，确认后，系统会提示“删除成功”统计教师可对自己所教授课程进行统计，而管理员可以对所有的课程进行统计，了解学生的整体学习情况。1.2功能分析 本

16、系统主要由以下功能需求： (1)前台用户登录模块 (2)前台用户增加模块 (3)前台用户修改模块 (4)前台用户删除模块 (5)前台用户查询模块 (6)后台管理员赋予学生教师权限模块 (7)后台管理员成绩管理模块 (8)后台管理员学生信息管理模块 (9)后台管理员课程信息管理模块1.3功能结构图1.4对性能的规定（时间响应、稳定性等） 1、精度 输入数据精度： 用户密码：六位整数; 成绩：最大为100分；账号：三位整数 2、稳定性 系统要比较健壮，只要是用户的合理操作，系统都能够给出合理正确的回应，不出现令用户感到意外的系统错误或系统崩溃。1.5输人输出要求 (1)输入： 输入内容：用户名 ，

17、密码 ，成绩 ，学生信息，课程信息 。 数据精度 密码：六位整数 成绩：最大为100 具体要求 成绩最大为100分并且不能不写成绩 (2)输出： 输出内容：输入帐号和密码提示，添加、修改、删除成功都有提示，成 绩显示。 具体要求 显示所有科目成绩。1.6故障处理要求 (1)能够对用户录入的各种数据进行校验。 (2)能够及时捕捉系统在运行时的错误信息，并给出相应的提示，系统应有一定的容错能力。 (3)用磁盘方式对系统数据进行完整备份。由应用系统自动调用数据后备的实用程序进行磁盘备份。 （四） 信息系统设计报告1 系统总体设计1.1本系统的体系结构 C/S体系系统: (1)C/S体系说明C/S体系

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

19、块 2 系统详细设计2.1基础代码方案 教师登录界面Private Sub Command3_Click()Dim Conn As New adodb.ConnectionConn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb;Persist Security Info=False") '建立连接If Text1.Text = "" ThenMsgBox "请输入职工号！", vbCritical, "提示"Text1.Set

20、FocusExit SubEnd IfIf Text2.Text = "" ThenMsgBox "请输入密码！", vbCritical, "提示"Text2.SetFocusExit SubEnd IfDim rs As New adodb.RecordsetWith rsSQL = "select * from zhigong where 职工号='" & Text1.Text & " ' and 密码='" & Text2.Text &am

21、p; "'"Set rs = Conn.Execute(SQL)If Not rs.EOF Then '是否查找'登录成功MsgBox "登录成功", vbOKOnly, "提示"Unload MeForm4.ShowText2.Text = ""ElseMsgBox "职工号密码验证有误，请重新输入", vbCritical, "提示"Text2.Text = ""Text2.SetFocusEnd IfConn.CloseEnd

22、 WithEnd Sub 查询学生信息界面Private Sub Command1_Click()Set db = New adodb.Connectiondb.CursorLocation = adUseClientSet rs = New adodb.RecordsetCall db.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb;") '连接数据库rs.Open "select *from xueshengxx where 学号 ='" & Tex

23、t1.Text & "'", db, adOpenStatic, adLockOptimisticSet DataGrid1.DataSource = rsEnd SubPrivate Sub Command2_Click()Set db = New adodb.Connectiondb.CursorLocation = adUseClientSet rs = New adodb.RecordsetCall db.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb;"

24、;) '连接数据库rs.Open "select *from xueshengxx where 姓名 ='" & Text2.Text & "'", db, adOpenStatic, adLockOptimisticSet DataGrid1.DataSource = rsEnd Sub 增加界面Private Sub Command1_Click()Dim ADOrs As New Recordset '声明一个记录集对象Dim ADOrs1 As New Recordset '声明一个记录集对

25、象Dim strSQL As StringADOrs.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.mdb; Persist Security Info=False" '与ADOcn连接对象

26、关联 If Text1.Text = "" Then MsgBox "未输入班级，请重新输入数据！", vbCritical + vbOKOnly Text1.SetFocus '定位光标 Exit Sub End IfIf Text2.Text = "" Then MsgBox "未输入专业，请重新输入数据！", vbCritical + vbOKOnly Text2.SetFocus '定位光标 Exit SubEnd If'首先查询表中是否存在关键字相同的记录strSQL = &quo

27、t;select * from zhuanye"strSQL = strSQL & " Where 班级='" + Text1.Text + " '"strSQL = strSQL & " and 专业='" + Text2.Text + "'"ADOrs.Open strSQL'如果关键字重复,则退出If Not ADOrs.EOF Then MsgBox "该记录已经存在,不能继续增加", vbCritical + vbOKO

28、nly Exit SubEnd IfADOrs1.Open "select * from zhuanye", , , adLockOptimisticADOrs1.AddNewADOrs1("班级") = Text1.TextADOrs1("专业") = Text2.TextADOrs1.UpdateText1.Text = "" '初始化文本框控件Text2.Text = ""Text1.SetFocus '定位光标MsgBox "已成功添加新记录", vb

29、Question + vbOKOnlyADOrs.Close '关闭记录集ADOrs1.Close '关闭记录集Set ADOrs = NothingSet ADOrs1 = NothingEnd Sub 删除界面Private Sub Command2_Click()Dim 学号 As StringDim 姓名 As StringDim 课程号 As StringDim 课程名 As StringDim strSQL As StringDim ADOrs As New Recordset '声明记录集对象ADOrs.ActiveConnection = "P

30、rovider=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb; Persist Security Info=False" '与ADOcn连接对象关联 '与ADOcn连接对象关联'如果学号与姓名同时为空则提示重新输入/选择 If MsgBox("删除学号为" + Combo1.Text + "姓名为" + Combo2.Text + "和课程号为" + Combo3.Text + "课程为" + Combo4.Text + "

31、;的成绩记录，该学生在学生成绩表中的全部记录也将一起删除，是否继续？", vbQuestion + vbYesNo) = vbYes Then'拼写Delete学生成绩表指定记录语句 strSQL = "Delete From chengji" strSQL = strSQL + " Where 学号 = Adodc1.RecordSource" Adodc1.Recordset.Delete strSQL = "Delete From kecheng" strSQL = strSQL + " Where

32、课程号 = Adodc2.RecordSource" Adodc2.Recordset.Delete Adodc1.Recordset.MoveNext Adodc2.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast '拼写Delete学生情况表指定记录语句 MsgBox "删除成功!", vbQuestion + vbOKOnly Combo1.Text = "" Combo2.Text = "" End IfIf ADOrs.State = adStateOpen Then ADOrs.Clos