终学生信息管理系统报告5.doc

本文档系作者精心整理编辑，实用价值高。管理信息系统课程设计指导书学生信息管理系统的分析与设计姓 名： 徐磊 学 号： 09080003 班 级： 09信管1班 专 业：信息管理与信息系统所在系： 经济与管理系 指导老师： 张媛媛 学生信息管理系统的分析与设计摘 要学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生学生成绩管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件学生成绩，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难1。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分,使用计算机对学生学生成绩信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生学生成绩管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情。结合上述要求，在基于SQL2000数据库技术以及面向对象的编程技术的基础上，研究了这套学生信息管理系统。该系统可以实现学生基本信息的管理和成绩管理，并可实现多用户登陆。关键词：学生信息管理 SQL vb 目录目录3第一章 综述1第二章 需求分析22.1提出问题22.2项目开发目标22.3系统的运行环境3第三章 系统总体设计33.1系统总体设计框图33.2系统功能模块设计4第四章 逻辑结构设计44.1 ER模型的设计44.2 数据库逻辑结构设计364.3 数据库物理设计6第六章 系统实施96.1 数据库及表创建96.2 创建工程项目106.3主窗体的建立106.3.1 用户登陆模块116.3.3 成绩修改窗体126.3.4 成绩管理窗体126.3.5 学生档案管理136.3.6 学生课程管理14第七章 系统评价157.1 测试实例研究与选择157.2性能分析15参考文献16附 录17本文档系作者精心整理编辑，如有需要，可查看作者文库其他文档。本文档系作者精心整理编辑，实用价值高。第一章 综述1.1问题研究背景产生背景学生信息档案的管理对于学校的管理者来说至关重要，学生信息是高等学校非常重要的一项数据资源，是一个教育单位不可缺少一部分。特别是近几年来，国家政策的调整，我国高等院校大规模的扩招，给高等院校的教学管理、学生管理、后勤管理等方面都带来不少的冲击。其包含的数据量大，涉及的人员面广，而且需要及时更新，故较为复杂，难以单纯地依人工管理，而且传统的人工管理方式既不易于规范化，管理效率也不高，目前我国各类高等院校中还有相当一部分学生档案管理还停留在纸介质的基础上，尤其是中、小学对学生档案的管理更是落后，这样的管理机制已经不能适应时代发展的要求，其管理方法将浪费许多人力和物力。随着科学技术的不断提高，计算机科学与技术日渐成熟，计算机应用的普及已进入人类社会生活的各个领域，并发挥着越来越重要的作用。这种传统的手工管理模式必然被以计算机为物质基础的信息管理方法所取代。 作为计算机应用的一部分，使用计算机对学生档案进行管理，有着手工管理所无法比拟的优点，如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率，也是学校向科学化、正规化管理发展的必要条件，更是各个高等院校与世界接轨的重要条件。系统针对学校学生信息的特点以及管理中实际需要而设计，能够有效地实现学生信息管理的信息化，减轻管理人员的工作负担，高效率、规范化地管理大量的学生信息，并避免人为操作的错误和不规范行为。 第二章 需求分析 2.1提出问题数据库是一门研究数据管理的技术，始于20世纪60年代，经过40多年的发展，现在已经形成了理论体系，成为计算机软件的一个重要分支。数据库技术体现了当代先进的数据管理方法，使计算机的应用真正渗透到国民经济各个部门，在数据处理领域发挥着越来越大的作用。 随着社会的发展和经济时代的到来，管理信息系统在各行各业都占据着越来越重要的地位，特别是教育事业。在经济发达的国家，许多教育机构（如公办、私立、培训机构等），都投入了大量的资金开发MIS系统，以求在将来激烈的竞争中立于不败之地。因此，开发一套能够为此提供规范化的事务管理、充足的信息和快捷的查询手段的学生信息管理系统是非常必要的。2.2项目开发目标学生信息管理系统是面向教育部门的学生管理事务，包括学生基本信息管理，学生成绩管理等工作，是利用计算机进行集中管理而开发的系统。该系统是以SQL 2000为后台数据库进行开发的毕业生就业管理系统，力求与实际相结合具有查询、管理等功能，使教育的管理趋于计算机化，使之更加方便、快捷以提高工作效率。根据学生信息管理的需求和特点，该系统实施后，应达到以下目标：(1)灵活地运用表格输入数据，使信息传递更快捷；(2)系统采用人机对话方式，界面美观友好、数据存储安全可靠；(3)键盘操作，快速响应；(4)实现各种信息的添加、删除、修改、查询等；(5)系统运行稳定、安全可靠。2.3系统的运行环境此系统，代码使用VB语言编写，数据库管理系统采用SQL2000数据库管理系统，运行在Windows98/ME/2000/XP系统下。第三章 系统总体设计3.1系统总体设计框图毕业生就业管理系统实现了对用户的管理、系别信息的管理、学生基本信息的管理、学生就业信息的管理、招聘单位信息的管理等功能。总体设计框图如图4.1所示。学生信息管理学生信息添加学生信息修改学生信息删除学生信息查询学生成绩管理学生成绩添加学生成绩修改学生成绩删除学生成绩查询课程信息管理课程信息添加课程信息修改课程信息删除课程信息查询用户信息管理用户信息添加用户密码修改学生信息管理系统图4.1 系统设计框图3.2系统功能模块设计系统功能包括可视化窗口，对各种信息的添加、修改、删除和查询等具体功能如图4.2所示。学生信息管理系统学生成绩管理学生信息管理课程信息管理用户信息管理图4.2 系统功能模块 第四章 逻辑结构设计4.1 ER模型的设计毕业生就业管理系统概念结构设计是在系统的需求分析、数据流程图和数据字典基础上的抽象，结合联系ER模型的设计方法，进行如下概要结构设计。为了使ER图表示得更加清晰，将E-R图分成实体属性ER图及实体联系ER图。(1) 用实体及其属性的部分ER图表示数据库系统的概念模型。学生信息实体ER图，如图5.1所示：学生信息实体学号姓名性别年龄系别图5.1 学生信息ER图班级信息实体ER图，如图5.2所示：学生成绩实体学号课程号成绩图5.2 学生成绩ER图班级信息实体ER图，如图5.3所示：课程信息实体课程号课程名先行课学分图5.3 课程信息ER图用户实体ER图，如图5.4所示：用户名图5.4 学生成绩ER图用户信息实体密码(2)用实体及其联系的部分ER图表示数据库系统的概念模型，实体之间ER图，如图5.5所示：1n所属11学生考试选修课程mn成绩图5.5 实体之间关系ER图4.2 数据库逻辑结构设计逻辑设计的目的是把概念数据模型转化为数据库管理系统可以处理的逻辑模型。也即将由ER图表示的概念模型转换为DBMS通用的逻辑模型，如关系模型，然后对其进行优化。以关系模型为目标的逻辑结构设计方法是将ER实体图中概念模型映射为关系模型，并且包括一组关系定义，映射的步骤如下：(1)把ER实体图中的每个实体变换为一个关系模型。(2)变换每个关系：多对多模型需要加一个单独的关系模型；而一对一的或者一对多的联系可用在实体中增加属性（此处为外键）来模型化。(3)ER图中的属性可转换为关系的属性。4.3 数据库物理设计系统中的数据表如下所示： (1)系统用户数据表（用户表）记录系统所有用户名和密码信息，表中的各个字段以及各个字段的说明如表5.1所示：表5.1 用户表结构字段名称数据类型字节数说明用户名文本6主键密 码文本6非空(2)学生信息表记录学生学号、姓名等基本信息，表中的各个字段以及各个字段的说明如表5.2所示：字段名称数据类型字节数说明学 号文本9主 键字段名称数据类型字节数说明学 号文本6主 键课程号文本4主 键成 绩数值4允许空姓 名文本10允许空性 别文本2允许空年 龄数值4允许空系 别文本20允许空表5.2 学生信息表结构(3)学生成绩表记录学生学号、课程号及相关的成绩，表中各个字段以及各个字段的说明如表5.3所示：表5.3 学生成绩表结构(4)课程信息表记录课程号、课程名等相关信息，表中各个字段以及各个字段的说明如表5.4所示：字段名称数据类型字节数说明课程号文本4主 键课程名文本20允许空先行课文本4允许空学 分数值2允许空表5.4 成绩信息表学生信息管理系统数据字典见表字段名称数据类型长度是否为主键可否为空描述pow_idvarchar20yesno权限编号pow_namevarchar20no权限描述pow_yunwenint1no语文成绩修改权pow_shuxueint1no数学成绩修改权pow_daishuint1no代数成绩修改权pow_jiheint1no几何成绩修改权pow_ huaxueint1no化学成绩修改权pow_ wuliint1no物理成绩修改权pow_yingyuint1no英语成绩修改权pow_lishiint1no历史成绩修改权pow_ zhengzhiint1no政治成绩修改权pow_sszhengzhiint1no时事政治修改权pow_sxzhengzhiint1no思想品德修改权pow_diliint1no地理成绩修改权pow_ shengwuint1no生物成绩修改权pow_examint1no考试类型修改权pow_stu_infoint1no学生信息修改权pow_teach_infoint1no教师信息修改权pow_historyint1no历史信息修改权pow_remark1varchar30yes备注pow_remark2varchar30yes第六章 系统实施6.1 数据库及表创建启动SQL2000 Server，右击“数据库”点击“新建数据库”，在弹出的“数据库属性”对话框中可键入数据库名及其它其它信息，如图6.1所示：图6.1 新建数据库数据库创建完毕后，点击可打开。右击“表”选择“新建表”，可以进行表的创建以及进行相关的表属性设置，如图6.2所示：图6.2 新建表创建完表后右击对应表名“打开表”“返回所有行”，可对表进行添加、修改、插入、删除等相应编辑操作，如图6.3所示：图6.3 设计表6.2 创建工程项目图6.4 VB6.0界面(1) 启动VB 6.0，出现VB6.0运行界面，如图6.4所示：(2) 点击“文件”“保存工程”保存当前工程文件。6.3主窗体的建立在VB程序设计中，主界面负责应用程序的主界面，由它调用其它模块。因此，主界面应该具有操作性好、界面清晰、使用户能够很方便地找到所需功能的特点。本系统的主界面部在相应的系统菜单组成，用户只需要点击相应的菜单使可调出对应的系统模块。6.3.1 用户登陆模块本模块共有三个部分组成：用户登陆窗体、密码修改窗体、新用户注册窗体。用户登陆窗体主要由文本框及命令按钮组成，利用Adodc控件及DataGrid控件实现程序代码与SQL数据的连接（如图6.6所示）。用户键入用户名及密码后点击“确定”按钮系统会通过上述两个控件与数据库进行连接并进行数据的比较，如果存在该用户及密码正确则会进行系统跳转进行主控制界面，否则会提示用户出错，重新输入用户名及密码，次数无限制。默认用户名为：admin，默认密码为：123456图6.1 工程主窗体密码修改窗体及新用户注册窗体及登陆窗体的控件组成大致相同，这里不再详述。6.3.2 新生注册窗体图6.2 新生注册窗口点击“新生注册”可打开本窗体，本窗体专门为新生注册使用。通过ADODC控件实现本窗体与数据库学生表的连接，文本框默认不可编辑，用户点击“添加记录”按系统提示可自动完成添加。6.3.3 成绩修改窗体图6.8 成绩修改窗体本窗体通过ADODC控件连接数据库的成绩表，默认条件下文本都不可编辑，用户可以点击上一条、下一条进行表的浏览操作。点击“确认修改记录”按钮，成绩文本框变为可编辑状态，用户根据系统提示可完成记录修改操作。如果键入的成绩小0，则系统提示出错，并自动将出错成绩重置为60分。6.3.4 成绩管理窗体图6.3 添加成绩窗体本窗体通过控件与文本框与数据库成绩表实现连接，文本框默认不可编辑，但可以实现成绩的浏览功能。用户点击“添加成绩”按钮，按照系统提示可完成成绩的添加操作。由于成绩表已经与学生表以及课程表建立了完整性约束，所以如果用户键入的学号或者课程号不存在则将会提示用户出错，并且重新输入。6.3.5 学生档案管理图6.4 学生档案管理本窗体通过ADODC控件连接数据库的学生表，可以实现对学生档案的添加、删除、修改、查询以及浏览操作。控件在程序运行时不可见，但却必不可少。用户点击上一条、下一条可以实现记录的浏览，且内容不可编辑。查询记录时，只有查询条件及查询内容都有修改的时候，查询按钮才可用，否则不可用。修改或者删除记录选项与确定按钮相连接，由于采用单选按钮，故某一时刻只能实现某一种操作。执行该操作时记录内容不可编辑。6.3.6 学生课程管理图6.11 学生成绩管理本窗体通过ADODC控件连接数据库的课程表，可以实现对课程系统的添加、删除、修改、查询以及浏览操作。控件在程序运行时不可见，但却必不可少。用户点击上一条、下一条可以实现记录的浏览，且内容不可编辑。查询记录时，只有查询条件及查询内容都有修改的时候，查询按钮才可用，否则不可用。修改或者删除记录选项与确定按钮相连接，由于采用单选按钮，故某一时刻只能实现某一种操作。执行该操作时记录内容不可编辑。第七章 系统评价软件测试是为了发现错误而执行程序的过程，其目的在于以最少的时间和人力系统地找出软件中潜在的各种错误和缺陷。测试主要是由人而不是由机器执行，因而存在心理学的问题。7.1 测试实例研究与选择由于软件错误的复杂性，软件测试需要综合应用测试技术，软件测试步骤为单元测试、集成测试、确认测试和系统测试。 单元测试是对源程序中每一个程序单元进行测试，检查各个模块是否正确实现了规定的功能，从而发现模块在编码中或算法中的错误。该阶段涉及编码和详细设计的文档。各模块经过单元测试后，将各模块组装起来进行集成测试，以检查与设计相关的软件体系结构的有关问题。确认测试主要检查已实现的软件是否满足需求规格说明书中确定的各种需求。系统测试将已确定的软件与其他系统元素（如硬件、其他支持软件、数据和人工等）结合在一起进行测试。本系统是管理系统，主要是从数据库中读取数据，因而测试的实例主要是实现与数据相关的各种操作。应用白盒测试法中的语句覆盖方法使得程序中的每条语句都执行一次。7.2性能分析测试过程中发现了不合适或不相容的类型说明；有的变量无初值；有的变量初始化或缺省值有错；有的变量名不正确的（拼错或不正确地截断）；出现上溢、下溢和地址异常等问题，并逐个予以解决，保证了临时存储在模块内的数据在程序执行过程中完整、正确。本系统长时间不间断连续运行不会出现错误，系统不会出现系统故障，不会出现严重的错误，并且由于有较高的容错技术，能较快的纠正意外错误，使系统稳定可靠。本系统能够准确，快速的处理学生信息管理的操作事务，能够满足管理者的需求，并大大减少了教务管理者的信息查询及维护的麻烦，实现日常处理计算机化，使系统简单实用。系统程序代码中设计了判断语句，用来判断操作错误时弹出报错对话框，在系统中设置了权限判断，使数据具有一定的保密性，增加了系统的安全性。本系统的功能还不是很完善，系统的界面设计的还有些简单，样式还不是特别美观，有待于进一步设计；系统设计中后台数据库应用SQL server，结合VB程序设计使操作更简单，理解更方便。经过系统的性能测试得出，本系统虽然有一定的缺陷和限制，但本系统的具体功能能够完整实现，所以本系统可以投入到现实应用中。参考文献1 萨师煊，王珊，数据库系统概论，高等教育出版社，2002，2：1-1502 张来寅，谭明勇，数据库系统原理与应用，冶金工业出版社，2003，7：27-503 梁灿，赵艳泽，SQL数据库应用基础教程，清华大学出版社，2005，11：10-304 柴欣，武优西，Visual Basic程序设计基础（第三版），北京：中国铁道出版社，2005附 录use 学籍管理数据库create table Student( sno char(5) Not null unique, sname char(20),ssex char(2), sage int, sdept char(15), fy bit )gocreate table Course(cno char(2) Not null unique, cname char(15), pno char(2),ccredit int )go create table SC(sno char(5) Not null ,cno char(2) Not null ,Grade int)Go3 在三个表中放入适当的记录，其SQL文件内容如下：-给ST表输入数据use 学籍管理数据库insert into student values(95001,李勇,男,20,CS,1);goinsert into studentvalues(95002,刘晨,女,19,IS,1);insert into studentvalues(95003,王敏,女,18,MA,1);goinsert into studentvalues(95004,张立,男,19,IS,1);goinsert into studentvalues(95006,刘仁,男,19,IS,1);goinsert into studentvalues(95007,欧阳兰,女,20,CS,1);goinsert into studentvalues(95008,欧阳明华,女,20,CS,1);goinsert into studentvalues(95009,许阳天,男,20,IS,0);goinsert into studentvalues(95010,李小梅,女,19,IS,1);goinsert into studentvalues(95011,兰华,女,23,IS,0);go-给Course表输入数据insert into course values(1,数据库,5,4);goinsert into course values(2,数学,2);goinsert into course values(3,信息系统,1,4);goinsert into course values(4,操作系统,6,3);goinsert into course values(5,数据结构,7,4);goinsert into course values(6,数据处理,2);goinsert into course values(7,PASCAL语言,6,4);go-给SC表输入数据insert into sc values(95001,1,92);goinsert into sc values(95001,2,85);goinsert into sc values(95001,3,88);goinsert into sc values(95002,2,90);goinsert into sc values(95002,3,80);go用户登陆窗口代码：Dim username As String, userpass As StringPrivate Sub Command1_Click()Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find (userID= & Text1 & )If Adodc1.Recordset.EOF ThenMsgBox 无此用户，请重新输入！Exit SubElseabc = Adodc1.Recordset.Fields(1)If Text2 = Trim(abc) ThenMsgBox 欢迎使用本系统，点击进入！, vbOKOnly, 登陆Me.HideForm2.ShowElseMsgBox 用户名或密码不正确，请重新输入！Text1 = Text2 = Exit SubEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub添加记录代码：Private Sub Command1_Click()Adodc1.Recordset.AddNewText1 = InputBox(请输入学生学号, 添加学号)Text2 = InputBox(请输入学生姓名, 添加姓名)Text3 = InputBox(请输入学生性别, 添加性别)Text4 = InputBox(请输入学生年龄, 添加年龄)If Not IsNumeric(Text4) ThenMsgBox 请输入数值Text4.SetFocusEnd IfText5 = InputBox(请输入学生系别, 添加系别)resu = MsgBox(确认添加到数据库, vbOKCancel, 确认添加)If resu = vbOK ThenAdodc1.Recordset.UpdateElseAdodc1.Recordset.DeleteEnd IfEnd SubPrivate Sub Command2_Click()Me.HideForm2.ShowEnd Sub学生查询代码：Private Sub Command1_Click()If Text1 = ThenMsgBox 请输入查询条件Text1.SetFocusEnd IfIf Option1.Value = True ThenAdodc1.Recordset.Find (sno= & Text1 & )If Adodc1.Recordset.EOF Then MsgBox 没有该学生ElseIf Option2.Value = True ThenAdodc1.Recordset.Find (sname= & Text1 & )If Adodc1.Recordset.EOF Then MsgBox 没有该学生End IfEnd SubPrivate Sub Option1_Click()Text2 = Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Option2_Click()Text1 = Adodc1.Recordset.MoveFirstEnd Sub成绩查询代码：Private Sub Command1_Click()If Text4 = ThenMsgBox 请输入查询的学号Text4.SetFocusEnd IfAdodc1.Recordset.MoveFirstabcd = Sno= & Text4 & Adodc1.Recordset.Find (abcd)If Adodc1.Recordset.EOF ThenMsgBox 没有该学生记录Text4.SetFocusEnd IfEnd SubPrivate Sub Text4_Change()If Len(Text4) 0 ThenCommand1.Enabled = TrueElseCommand1.Enabled = FalseEnd IfEnd Sub修改记录代码：Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)Adodc1.Caption = Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 Adodc1.Recordset.MoveFirst 第一条 Case 1 Adodc1.Recordset.MovePrevious 上一条 If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Case 2 Adodc1.Recordset.MoveNext 下一条 If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Case 3 Adodc1.Recordset.MoveLast 最后一条 Case 4 Dim mno As String mno = InputBox(请输入学号, 查找窗) 将输入值存到变量内 Adodc1.Recordset.MoveFirst 移动记录指针到第一条记录上 Adodc1.Recordset.Find (sno= & mno & ) 用.Find方法查找指定科目 If Adodc1.Recordset.EOF Then MsgBox 无此学号! & Adodc1.Recordset.AbsolutePosition, , 提示 End SelectEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.UpdateEnd Sub成绩添加代码：Private Sub Command1_Click()Dim adc As StringAdodc1.Recordset.AddNewa: Text1 = InputBox(输入学生学号, 添加成绩)mm = Len(Text1)For i = 1 To mmabc = Mid(Text1, i, 1)If abc 9 ThenMsgBox 输入格式不正确请重新输入GoTo aEnd IfNext ib: Text2 = InputBox(输入课程号, 添加成绩)mm = Len(Text2)For i = 1 To mmabc = Mid(Text2, i, 1)If abc 9 ThenMsgBox 输入格式不正确请重新输入GoTo bEnd IfNext ic: Text3 = InputBox(输入学生成绩, 添加成绩)mm = Len(Text3)For i = 1 To mmabc = Mid(Text3, i, 1)If abc 9 ThenMsgBox 输入格式不正确请重新输入GoTo aEnd IfNext iresu = MsgBox(确认添加数据库？, vbOKOnly, 确认添加)If resu = vbOK ThenAdodc1.Recordset.UpdateElseText1 = Text2 = Text3 = End IfEnd Sub学生档案管理代码：Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 Adodc1.Recordset.MoveFirst 第一条 Case 1 Adodc1.Recordset.MovePrevious 上一条 If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Case 2 Adodc1.Recordset.MoveNext 下一条 If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Case 3 Adodc1.Recordset.MoveLas