学生信息管理系统设计

《学生信息管理系统设计》由会员分享，可在线阅读，更多相关《学生信息管理系统设计（27页珍藏版）》请在装配图网上搜索。

1、word数 据 库课 程 设 计 报 告论文设计题目： 数据库课程设计 学 院、 系： 信息工程学院 专 业 (方 向)： 电子商务 年 级、 班： 2014级电子商务二班 学 生 姓 名： 娟 学 号： 9 指 导 教 师： 旭东 目 录1 引言12 简介2SQL语言介绍63 需求分析8项目开发目标8系统的运行环境84 系统总体设计9系统总体设计框图9系统功能模块设计95 数据库设计11 ER模型的设计115.2 数据库逻辑结构设计125.3 数据库物理设计126 系统详细设计146.1 数据库与表创建146.2 创建工程项目15主窗体的建立15用户登陆模块176.3.2 新生注册窗体186

2、.3.3 成绩修改窗体196.3.4 成绩输入窗体216.3.5 学生档案管理216.3.6 学生课程管理227 系统测试与分析237.1 测试实例研究与选择23性能分析23完毕语24参考文献26附录2725 / 271 . 引 言学生信息管理系统是一个教育单位不可缺少的局部,它的容对于学校的决策者和管理者来说都至关重要,所以学生学生成绩管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件学生成绩，这种管理方式存在着许多缺点,如:效率低、性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难1。随着科学技术的不断提高,计算

3、机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一局部,使用计算机对学生学生成绩信息进展管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、性好、寿命长、本钱低等。这些优点能够极提高学生学生成绩管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情。结合上述要求，在基于SQL2000数据库技术以与面向对象的编程技术的根底上，研究了这套学生信息管理系统。该系统可以实现学生根本信息的管理和成绩管理，并可实现多用户登陆。由于时间紧迫、掌握技术有限

4、等条件限制，本系统可能还存在着一些不足之外，敬请教师同学批评指导。2 .SQL语言介绍SQL是英文Structured Query Language的缩写，意思为结构化查询语言,是访问数据库的标准语言。SQL语言的主要功能就是同各种数据库建立联系，进展沟通。按照ANSI美国国家标准协会的规定，SQL被作为关系型数据库管理系统的标准语言。SQL语句可以用来执行各种各样的操作，例如更新数据库中的数据，从数据库中提取数据等。 目前，绝大多数流行的关系型数据库管理系统，如Oracle, Sybase, Microsoft SQL Server, Access等都采用了SQL语言标准。虽然很多数据库都对

5、SQL语句进展了再开发和扩展，但是包括Select, Insert, Update, Delete, Create, 以与Drop在的标准的SQL命令仍然可以被用来完成几乎所有的数据库操作1。SQL语言是一种非过程化语言，它一次处理一个记录集合，对数据提供自动导航。SQL语言允许用户在高层的数据结构上工作，而不对单个记录进展操作。SQL语言不要求用户指定数据的存取方法，而是使用查询优化器，由系统决定对指定数据存取的最快速手段。当设计者在关系表上定义了索引时，系统会自动利用索引进展快速检索，用户不需知道表上是否有索引或者有什么类型的索引等细节。SQL语言可以完成许多功能，例如：(1)查询数据；(

6、2)在数据库表格中插入、修改和删除记录；(3)建立、修改和删除数据对象；(4)控制对数据和数据对象的存取；(5)确保数据库的一致性和完整性等。值表达式WHERE条件表达式3 . 需求分析学生信息管理系统是面向教育部门的学生管理事务，包括学生根本信息管理，学生成绩管理等工作，是利用计算机进展集中管理而开发的系统。根据学生信息管理的需求和特点，该系统实施后，应达到以下目标：(1)灵活地运用表格输入数据，使信息传递更快捷；(2)系统采用人机对话方式，界面美观友好、数据存储安全可靠；(3)键盘操作，快速响应；(4)实现各种信息的添加、删除、修改、查询等；(5)系统运行稳定、安全可靠。此系统，代码使用V

7、B语言编写，数据库管理系统采用SQL2012数据库管理系统，运行在Windows2010系统下。系统总体设计1.系统总体设计框图学生信息管理学生信息添加学生信息修改学生信息删除学生信息查询学生成绩管理学生成绩添加学生成绩修改学生成绩删除学生成绩查询课程信息管理课程信息添加课程信息修改课程信息删除课程信息查询用户信息管理用户信息添加用户密码修改学生信息管理系统2.系统功能模块设计系统功能包括可视化窗口，对各种信息的添加、修改、删除和查询等具体功能如图4.2所示。学生信息管理系统学生成绩管理学生信息管理课程信息管理用户信息管理数据库设计1. ER模型的设计毕业生就业管理系统概念结构设计是在系统的需

8、求分析、数据流程图和数据字典根底上的抽象，结合联系ER模型的设计方法，进展如下概要结构设计。为了使ER图表示得更加清晰，将E-R图分成实体属性ER图与实体联系ER图。(1) 用实体与其属性的局部ER图表示数据库系统的概念模型。学生信息实体ER图，如图5.1所示：学生信息实体学号某某性别年龄系别班级信息实体ER图，如图5.2所示：学生成绩实体学号课程号成绩班级信息实体ER图，如图5.3所示：课程信息实体课程号课程名先行课学分用户实体ER图，如图5.4所示：用户名用户信息实体密码学生考试选修课程mn成绩(2) 用实体与其联系的局部ER图表示数据库系统的概念模型，实体之间ER图，如图5.5所示：1n

9、所属112 .数据库逻辑结构设计3逻辑设计的目的是把概念数据模型转化为数据库管理系统可以处理的逻辑模型。也即将由ER图表示的概念模型转换为DBMS通用的逻辑模型，如关系模型，然后对其进展优化。以关系模型为目标的逻辑结构设计方法是将ER实体图中概念模型映射为关系模型，并且包括一组关系定义，映射的步骤如下：(1)把ER实体图中的每个实体变换为一个关系模型。(2)变换每个关系：多对多模型需要加一个单独的关系模型；而一对一的或者一对多的联系可用在实体中增加属性此处为外键来模型化。(3)ER图中的属性可转换为关系的属性。3 .数据库物理设计系统中的数据表如下所示：(1)系统用户数据表用户表记录系统所有用

10、户名和密码信息，表中的各个字段以与各个字段的说明如表5.1所示：字段名称数据类型字节数说明用户名文本6主键密 码文本6非空2学生信息表记录学生学号、等根本信息，表中的各个字段以与各个字段的说明如表5.2所示：字段名称数据类型字节数说明学 号文本9主 键姓 名文本10允许空性 别文本2允许空年 龄数值4允许空系 别文本20允许空(3) 学生成绩表记录学生学号、课程号与相关的成绩，表中各个字段以与各个字字段名称数据类型字节数说明学 号文本6主 键课程号文本4主 键成 绩数值4允许空(4) 课程信息表记录课程号、课程名等相关信息，表中各个字段以与各个字段的说明如表5.4所示：字段名称数据类型字节数说

11、明课程号文本4主 键课程名文本20允许空先行课文本4允许空学 分数值2允许空5学生专业表记录学号、专业等相关信息，表中各个字段以与各个字段的说明如表5.5所示：字段名称数据类型字节数说明学 号文本6主 键姓 名文本4主 键专 业文本255允许空 系统详细设计1. 数据库与表创建启动SQL2000 Server，右击“数据库点击“新建数据库，在弹出的“数据库属性对话框中可键入数据库名与其它其它信息，如图6.1所示：数据库创建完毕后，点击可打开。右击“表选择“新建表，可以进展表的创建以与进展相关的表属性设置，如图6.2所示：创建完表后右击对应表名“打开表“返回所有行，可对表进展添加、修改、插入、删

12、除等相应编辑操作，如图6.3所示：2. 创建工程项目(1) 启动，出现VB6.0运行界面，如图6.4所示：(2) 点击“文件“保存工程保存当前工程文件。3.主窗体的建立 工程主窗体在VB程序设计中，主界面负责应用程序的主界面，由它调用其它模块。因此，主界面应该具有操作性好、界面清晰、使用户能够很方便地找到所需功能的特点。系统的主界面部在相应的系统菜单组成，用户只需点击相应的菜单使可调出对应的系统模块。相应代码：Private Sub changecj_Click()End SubPrivate Sub cjshuru_Click()End SubPrivate Sub dispcj_Click

13、()End SubPrivate Sub exit_Click()EndEnd SubPrivate Sub newuser_Click()End SubPrivate Sub newusr_Click()End SubPrivate Sub stucase_Click()End SubPrivate Sub xskcgl_Click()End SubPrivate Sub xueshendagl_Click()End SubPrivate Sub xueshengcx_Click()End Sub3.1 用户登陆模块本模块共有三个局部组成：用户登陆窗体、密码修改窗体、新用户注册窗体。用户登陆

14、窗体主要由文本框与命令按钮组成，利用Adodc控件与DataGrid控件实现程序代码与SQL数据的连接如图6.6所示。用户键入用户名与密码后点击“确定按钮系统会通过上述两个控件与数据库进展连接并进展数据的比拟，如果存在该用户与密码正确如此会进展系统跳转进展主控制界面，否如此会提示用户出错，重新输入用户名与密码，次数无限制。默认用户名为：admin，默认密码为：123456 用户登陆窗口密码修改窗体与新用户注册窗体与登陆窗体的控件组成大致一样，这里不再详述。用户登陆代码：Dim username As String, userpass As StringPrivate Sub mand1_Cli

15、ck()Adodc1.Recordset.Find (userID= & Text1 & )If Adodc1.Recordset.EOF ThenMsgBox 无此用户，请重新输入！Exit SubElseabc = Adodc1.Recordset.Fields(1)If Text2 = Trim(abc) ThenMsgBox 欢迎使用本系统，点击进入！, vbOKOnly, 登陆ElseMsgBox 用户名或密码不正确，请重新输入！Text1 = Text2 = Exit SubEnd IfEnd IfEnd SubPrivate Sub mand2_Click()EndEnd Sub

16、3.2 新生注册窗体新生注册窗口点击“新生注册“学生档案可打开本窗体，本窗体专门为新生注册使用。通过ADODC控件实现本窗体与数据库学生表的连接，文本框默认不可编辑，用户点击“添加记录对应代码：Private Sub mand1_Click()Text1 = InputBox(请输入学生学号, 添加学号)Text2 = InputBox(请输入学生, 添加)Text3 = InputBox(请输入学生性别, 添加性别)Text4 = InputBox(请输入学生年龄, 添加年龄)If Not IsNumeric(Text4) ThenMsgBox 请输入数值End IfText5 = Inpu

17、tBox(请输入学生系别, 添加系别)resu = MsgBox(确认添加到数据库, vbOKCancel, 确认添加)If resu = vbOK ThenElseEnd IfEnd SubPrivate Sub mand2_Click()End Sub3.3 成绩修改窗体成绩修改窗体本窗体通过ADODC控件连接数据库的成绩表，默认条件下文本都不可编辑，用户可以点击上一条、下一条进展表的浏览操作。点击“确认修改记录按钮，成绩文本框变为可编辑状态，用户根据系统提示可完成记录修改操作。如果键入的成绩小0，如此系统提示出错，并自动将出错成绩重置为60分。相应代码：Private Sub Adodc

18、1_Moveplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)End SubPrivate Sub mand1_Click(Index As Integer) Select Case Index Case 0 Adodc1.Recordset.MoveFirst 第一条 Case 1 Adodc1.Recordset.MovePrevious 上一条 C

19、ase 2 Adodc1.Recordset.MoveNext 下一条 Case 3 Adodc1.Recordset.MoveLast 最后一条 Case 4 Dim mno As String mno = InputBox(请输入学号, 查找窗) 将输入值存到变量 Adodc1.Recordset.MoveFirst 移动记录指针到第一条记录上 If Adodc1.Recordset.EOF Then MsgBox 无此学号! & Adodc1.Recordset.AbsolutePosition, , 提示 End SelectEnd SubPrivate Sub mand2_Click

20、()End Sub3.4 成绩输入窗体 添加成绩窗体本窗体通过控件与文本框与数据库成绩表实现连接，文本框默认不可编辑，但可以实现成绩的浏览功能。用户点击“添加成绩按钮，按照系统提示可完成成绩的添加操作。由于成绩表已经与学生表以与课程表建立了完整性约束，所以如果用户键入的学号或者课程号不存在如此将会提示用户出错，并且重新输入。3.5 学生档案管理 学生档案管理本窗体通过ADODC控件连接数据库的学生表，可以实现对学生档案的添加、删除、修改、查询以与浏览操作。控件在程序运行时不可见，但却必不可少。用户点击上一条、下一条可以实现记录的浏览，且容不可编辑。查询记录时，只有查询条件与查询容都有修改的时候

21、，查询按钮才可用，否如此不可用。修改或者删除记录选项与确定按钮相连接，由于采用单项选择按钮，故某一时刻只能实现某一种操作。执行该操作时记录容不可编辑。3.6 学生课程管理 学生成绩管理本窗体通过ADODC控件连接数据库的课程表，可以实现对课程系统的添加、删除、修改、查询以与浏览操作。控件在程序运行时不可见，但却必不可少。用户点击上一条、下一条可以实现记录的浏览，且容不可编辑。查询记录时，只有查询条件与查询容都有修改的时候，查询按钮才可用，否如此不可用。修改或者删除记录选项与确定按钮相连接，由于采用单项选择按钮，故某一时刻只能实现某一种操作。执行该操作时记录容不可编辑。系统测试与分析软件测试是为

22、了发现错误而执行程序的过程，其目的在于以最少的时间和人力系统地找出软件中潜在的各种错误和缺陷。测试主要是由人而不是由机器执行，因而存在心理学的问题。1 .测试实例研究与选择由于软件错误的复杂性，软件测试需要综合应用测试技术，软件测试步骤为单元测试、集成测试、确认测试和系统测试。 单元测试是对源程序中每一个程序单元进展测试，检查各个模块是否正确实现了规定的功能，从而发现模块在编码中或算法中的错误。该阶段涉与编码和详细设计的文档。各模块经过单元测试后，将各模块组装起来进展集成测试，以检查与设计相关的软件体系结构的有关问题。确认测试主要检查已实现的软件是否满足需求规格说明书中确定的各种需求。系统测试

23、将已确定的软件与其他系统元素如硬件、其他支持软件、数据和人工等结合在一起进展测试。本系统是管理系统，主要是从数据库中读取数据，因而测试的实例主要是实现与数据相关的各种操作。应用白盒测试法中的语句覆盖方法使得程序中的每条语句都执行一次。2 .性能分析测试过程中发现了不适宜或不相容的类型说明；有的变量无初值；有的变量初始化或缺省值有错；有的变量名不正确的拼错或不正确地截断；出现上溢、下溢和地址异常等问题，并逐个予以解决，保证了临时存储在模块的数据在程序执行过程中完整、正确。本系统长时间不连续连续运行不会出现错误，系统不会出现系统故障，不会出现严重的错误，并且由于有较高的容错技术，能较快的纠正意外错

24、误，使系统稳定可靠。本系统能够准确，快速的处理学生信息管理的操作事务，能够满足管理者的需求，并大大减少了教务管理者的信息查询与维护的麻烦，实现日常处理计算机化，使系统简单实用。系统程序代码中设计了判断语句，用来判断操作错误时弹出报错对话框，在系统中设置了权限判断，使数据具有一定的性，增加了系统的安全性。本系统的功能还不是很完善，系统的界面设计的还有些简单，样式还不是特别美观，有待于进一步设计；系统设计中后台数据库应用SQLserver，结合VB程序设计使操作更简单，理解更方便。经过系统的性能测试得出，本系统虽然有一定的缺陷和限制，但本系统的具体功能能够完整实现，所以本系统可以投入到现实应用中。

25、完毕语本次课程设计是我第一次系统的、完整的接触软件设计的过程。我做的是学生信息管理系统。在这次课程设计中，我体会很深，也学会了很多东西，懂得很多以前不懂的东西，也明白了一些事情。通过此次数据库的课程设计，真正达到了学与用的结合，增强了对数据库方面应用的理解，对自己今后参与开发数据库系统积累了不少经验，在实验过程中，从建立数据开始，对数据库设计理念与思想上有更高的认识，从需求分析，到概念设计和逻辑设计，E-R图的表示，数据字典的创建，懂得了不少有关数据库开发过程中的知识，在实验中建表，与其关系模式，关系代数的建立与理解，将SQL语言的查询语句用得淋漓尽致，增强了自己在数据库中应用SQL语言的灵活

26、性，其中包括插入、删除、修改、查询,牵涉表和表之间的联系，主建与外键的定义，约束项的设置，使逻辑更严密，在学习过程中，我也上网查了不少资料，也看了一些别人设计的图书馆管理信息系统的设计报告，学以致用，自我创新，独立完成了这份自己的报告，从学到用，从用又到学，不断修改，系统更新。课程设计完毕了，但我不会忘记在这次课程设计中我所得到的。我深深的体会到了这几句话：认真做事只是把事情做对，用心做事才能把事情做好。把每一件简单的事情做好就是不简单，把第一件平凡的事情做好就是不平凡。在以后的学习中我会不断的在实际中应用这几句话，我要不断的总结，不断的改良，不断的努力，使自己的成绩提高。参考文献1 萨师煊，

27、王珊，数据库系统概论，高等教育，2002，2：1-1502 来寅，谭明勇，数据库系统原理与应用，冶金工业，2003，7：27-503 梁灿，艳泽，SQL数据库应用根底教程，清华大学，2005，11：10-304 柴欣，武优西，Visual Basic程序设计根底第三版，：中国铁道，2005附 录用户登陆窗口代码：Dim username As String, userpass As StringPrivate Sub mand1_Click()Adodc1.Recordset.Find (userID= & Text1 & )If Adodc1.Recordset.EOF ThenMsgBox

28、 无此用户，请重新输入！Exit SubElseabc = Adodc1.Recordset.Fields(1)If Text2 = Trim(abc) ThenMsgBox 欢迎使用本系统，点击进入！, vbOKOnly, 登陆ElseMsgBox 用户名或密码不正确，请重新输入！Text1 = Text2 = Exit SubEnd IfEnd IfEnd SubPrivate Sub mand2_Click()EndEnd Sub添加记录代码：Private Sub mand1_Click()Text1 = InputBox(请输入学生学号, 添加学号)Text2 = InputBox(

29、请输入学生, 添加)Text3 = InputBox(请输入学生性别, 添加性别)Text4 = InputBox(请输入学生年龄, 添加年龄)If Not IsNumeric(Text4) ThenMsgBox 请输入数值End IfText5 = InputBox(请输入学生系别, 添加系别)resu = MsgBox(确认添加到数据库, vbOKCancel, 确认添加)If resu = vbOK ThenElseEnd IfEnd SubPrivate Sub mand2_Click()End Sub学生查询代码：Private Sub mand1_Click()If Text1 =

30、 ThenMsgBox 请输入查询条件End 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 = End S

31、ubPrivate Sub Option2_Click()Text1 = End Sub成绩查询代码：Private Sub mand1_Click()If Text4 = ThenMsgBox 请输入查询的学号End Ifabcd = Sno= & Text4 & Adodc1.Recordset.Find (abcd)If Adodc1.Recordset.EOF ThenMsgBox 没有该学生记录End IfEnd SubPrivate Sub Text4_Change()If Len(Text4) 0 Thenmand1.Enabled = TrueElsemand1.Enabled

32、 = FalseEnd IfEnd Sub修改记录代码：Private Sub Adodc1_Moveplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)End SubPrivate Sub mand1_Click(Index As Integer) Select Case Index Case 0 Adodc1.Recordset.MoveFirst 第

33、一条 Case 1 Adodc1.Recordset.MovePrevious 上一条 Case 2 Adodc1.Recordset.MoveNext 下一条 Case 3 Adodc1.Recordset.MoveLast 最后一条 Case 4 Dim mno As String mno = InputBox(请输入学号, 查找窗) 将输入值存到变量 Adodc1.Recordset.MoveFirst 移动记录指针到第一条记录上 If Adodc1.Recordset.EOF Then MsgBox 无此学号! & Adodc1.Recordset.AbsolutePosition,

34、, 提示 End SelectEnd SubPrivate Sub mand2_Click()End Sub成绩添加代码：Private Sub mand1_Click()Dim adc As Stringa: 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 mm

35、abc = 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 ThenElseText1 = Text2 = Text3 = End IfE

36、nd Sub学生档案管理代码：Private Sub mand1_Click(Index As Integer) Select Case Index Case 0 Adodc1.Recordset.MoveFirst 第一条 Case 1 Adodc1.Recordset.MovePrevious 上一条 Case 2 Adodc1.Recordset.MoveNext 下一条 Case 3 Adodc1.Recordset.MoveLast 最后一条 Case 4 Dim mno As String mno = InputBox(请输入学号, 查找窗) 将输入值存到变量 Adodc1.Rec

37、ordset.MoveFirst 移动记录指针到第一条记录上 If Adodc1.Recordset.EOF Then MsgBox 无此学号! & Adodc1.Recordset.AbsolutePosition, , 提示 End SelectEnd SubPrivate Sub mand2_Click()Dim abcd As StringDim find1a: If Option1.Value = Option2.Value ThenMsgBox 请选择查询条件！Exit SubEnd IfIf Text6.Text = ThenMsgBox 请输入查询条件Exit SubEnd I

38、fIf Option1.Value = True ThenAdodc1.Recordset.Find (sno= & Text6 & )If Adodc1.Recordset.EOF Then MsgBox 没有该学生ElseIf Option2.Value = True ThenAdodc1.Recordset.Find (sname= & Text6 & )If Adodc1.Recordset.EOF Then MsgBox 没有该学生End IfEnd SubPrivate Sub mand3_Click()If Option3.Value = True ThenText1.Locke

39、d = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = TrueElseEnd IfEnd SubPrivate Sub Option1_Click()Text6 = End SubPrivate Sub Option2_Click()Text6 = End SubPrivate Sub Option3_Click()mand3.Enabled = TrueText1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseText5.Locked = FalseEnd SubPrivate Sub Option4_Click()mand3.Enabled = TrueEnd Sub