学生成绩管理信息系统课程设计.doc

学生成绩管理信息系统分析与设计报告工程管理101第一小组组长：田永涛组员：冯梦婷 徐士超 张功磊2012-12-5学生成绩管理信息系统分析与设计报告目录一、设计报告要求3二、系统设计背景简介3三、系统技术及运行环境3（一）Visual Basic 6.0（VB）简介3（二）系统开发及运行环境41.运行环境WindowsXp或更高版本的操作系统42.开发环境：4四、系统分析4（一）需求分析41.系统功能需求42.数据需求43.性能需求44.用户选择需求4（二）可行性分析4五、模块划分以及有关模块图5（一）登入模块5（二）学生信息管理5（三）课程管理5（四）成绩管理5（五）管理员管理6六、业务流程图及数据流程图6七、总体设计7（一）设计目标7（二）项目规划7八、详细设计7（一）数据库设计7（二）代码设计81.登陆界面82.学生基本情况93.成绩查询10一、 设计报告要求 按照课程内容中的信息系统开发过程和方法，选择适当的学生成绩系统开发，运用结构化开发方法完成整个系统的分析与设计过程及其相应报告。包括系统规划、系统分析、系统设计过程，写出设计报告。二、 系统设计背景简介学生信息管理系统（Student Information Management System）,以下简称SIMS，是针对学校人事处的大量业务处理工作而开发的管理软件，是典型的管理信息系统。它是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,它能够为用户提供充足的信息和快捷的查询手段。能有效的帮助学校和老师掌握学生的情况，为学生提供成绩跟课程方面的查询。在传统模式下利用人工进行学生信息管理，存在着较多的缺点，如：效率底，保密性差，时间一长将产生大量的文件和数据，更不便于查找，更新，维护等。诸如这些情况，令学校管理者对学生的信息管理带来了很大困难，严重影响了教育工作者的工作效率。随着科学技术的不断提高,计算机科学日渐成熟, 使用日趋成熟的计算机技术来代替传统的人工模式，来实现学生信息的现代化管理，其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。因此，开发这样一套管理软件成为很有必要的事情。三、 系统技术及运行环境（一）Visual Basic 6.0（VB）简介Visual Basic 6.0（VB）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。（二）系统开发及运行环境该运行环境的规定是保证本需求说明的功能得到实际真正体现的基础。1.运行环境WindowsXp或更高版本的操作系统数据库系统：Microsoft Visual Basic 6.02.开发环境：开发工具：Microsoft Visual Basic 6.0数据库系统：Microsoft Visual Basic 6.0四、 系统分析（一）需求分析1.系统功能需求（1）有关学籍信息的输入，包括输入学生基本信息、所在院系、所学专业、所在班级、所学课程和成绩等。（2）学生信息的查询，包括查询学生基本信息、所在班级、已学课程和学生成绩等。（3）学生信息的修改，包括增加、删除等。（4）班级管理信息的输入，包括输入班级设置，年级信息等。（5）课程信息的设置和查询等。（6）课程信息的修改，包括增加，删除等。（7）学生成绩信息的管理和查询等。2.数据需求通过调查,总结出用户对数据的需求如下:（1）学生信息 包括:学号,学生姓名,性别,出生日期,专业,班级等（2）课程信息 包括:课程编号,课程名称,所属专业等.（3）选课信息 包括:学生姓名,课程名称,开课时间,成绩等. 3.性能需求（1） 系统的高速性,稳定性,安全性. （2） 系统的体系结构能够方便添加功能模块,适应业务,办公的发展. （3） 系统人机界面友好,易学易用. （4） 系统维护成本较低.4.用户选择需求本系统面向的用户有：学校的系统人员、管理人员、教师、学生。所以对计算机的人性化和易用性比较高，应用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是计算学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到了学生选课，做到看界面简单易懂，容易操作，提高了学校管理效率以及提升了学生信息的安全性和完整性。（二）可行性分析目的：可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能解决。经济性：由于学校等中小型管理系统并不复杂，且Visual Basic 6.0本身要求的运行环境不高，所以一般Windows XP以上的系统环境都可以使用。实用性：本学生信息管理系统管理系统无太多复杂的操作要求，也没有过分花哨的装饰品，人性化的设计界面可以使操用户登入学生登入管理员登入作者轻易运用自如。五、 模块划分以及有关模块图（一）登入模块用户登陆（教师登陆，管理员登陆）（二）学生信息管理此模块由学生基本信息、系别信息、班级信息、成绩信息等组成。学生信息学籍信息班级信息课程信息成绩信息插入查找删除修改查找修改查找修改查找修改插入（三）课程管理此模块由课程信息、选课信息组成课程管理课程信息选课信息插入修改查找查找修改插入（四）成绩管理此模块由成绩信息组成。成绩管理成绩信息插入查找修改（五）管理员管理此模块由管理员信息组成管理员管理管理员设置添加修改删除查找六、 业务流程图及数据流程图管理业务：接收成绩表；录入成绩单生成学生成绩外部实体：学生成绩系统教师教务处学生教师；教务处；学生；信息实体(存储)：成绩表；账号表信息表 图：顶层DFD处理：(区分信息处理行为和物流行为、系统内的和系统外的)接收成绩单、教师、学生个人信息数据；生成成绩表；成绩综合分析录入成绩单教务处教师成绩综合分析接收成绩生成学生成绩登陆进入系统学生学生基本信息查询七、 总体设计（一）设计目标本系统可以能减少很多不必要的资源，不用象以前那样用冗余的纸张式的管理。大节省了学校能源。并且计算机的存储与快速查询功能大大提高了学籍管理的效率，并且还提高了学籍信息管理的精确度。方便快速的操作，可减少学籍信息管理的漏洞，又减少因工作的冗余出现的错误，并且操作非常简单，可减少许多不很必要的人员，这无论从物质上还是工作人员的工资上都为学校节约了开支。为学校增加了财富。数据库分析用户需求具体有学籍管理系统提供保存、更新、查询、维护，这就需求数据库结构能充分满足各种信息的输入与输出，实现有组织地、动态地存储大量关联数据，方便用户访问系统中的数据，它与文件系统的重要区别是数据的充分共享，交叉访问，与应用程序的高度独立性。（二）项目规划学生管理系统是各大中专院校不可缺少的一部分，是一个VB数据库开发应用程序，它主要包括用户登录、学生信息输入修改、学生信息查询以及学生成绩输入、学生成绩查询、系统用户管理等几个页面，因而该系统具有较强的实用性。八、 详细设计（一）数据库设计字段名数据类型备注学号Char（8）主键Not null姓名Char（10）Not null性别出生日期Char（14）Not null字段名数据类型备注学号Char（8）主键Not null姓名Char（10）Not null课程Char（18）Not null总成绩Int (5)Not null排名Char（2）Not null字段名数据类型备注账号Char（8）主键 Not null密码Char（6）Not null（二）代码设计1.登陆界面Private Sub Command1_Click()Dim str As StringIf Trim(Text1.Text) = Or Trim(Text2.Text) = Then MsgBox 输入不能为空, 0 + 48, 警告 判断是否为空，是则弹出窗体警告 Text1.SetFocus Text1.Text = Text2.Text = Else Adodc1.RecordSource = select * from 账号表 where 用户名= & Text1.Text & Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox 账户错误, 0 + 48, 提示信息 Text1.SetFocus Text1.Text = Text2.Text = Else str = Adodc1.Recordset.Fields(密码).Value If Trim(Text2.Text) str Then MsgBox 密码错误, 0 + 48, warning Text2.SetFocus Text2.Text = Else Me.Hide formmain.Show End If End IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command3_Click()Me.Hideformapply.ShowEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Call Command1_Click End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End IfEnd Sub2.学生基本情况代码Private Sub Command4_Click()Me.Hideformmain.ShowEnd SubPrivate Sub Combo1_Click()Adodc1.CommandType = adCmdUnknownAdodc1.RecordSource = select * from 基本情况表 where 性别 = & Combo1.Text & Adodc1.RefreshEnd SubPrivate Sub Combo2_Click()Adodc1.CommandType = adCmdUnknownAdodc1.RecordSource = select * from 基本情况表 where 专业 = & Combo2.Text & Adodc1.RefreshEnd SubPrivate Sub Command1_Click()If Text1 ThenAdodc1.CommandType = adCmdUnknownAdodc1.RecordSource = select * from 基本情况表 where 学号 = & Text1 & ElseAdodc1.RecordSource = select * from 基本情况表End IfAdodc1.RefreshEnd SubPrivate Sub Command2_Click()If Text2 ThenAdodc1.CommandType = adCmdUnknownAdodc1.RecordSource = select * from 基本情况表 where 姓名 = & Text2 & ElseAdodc1.RecordSource = select * from 基本情况表End IfAdodc1.RefreshEnd SubPrivate Sub Command3_Click()Adodc1.CommandType = adCmdTableAdodc1.RecordSource = 基本情况表Adodc1.RefreshEnd Sub3.成绩查询代码Private Sub Command1_Click()If Text1.Text Then Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = select * from 成绩表 where 姓名 = & Text1.Text & Else Adodc1.RecordSource = select * from 成绩表End IfAdodc1.RefreshEnd SubPrivate Sub Command10_Click() Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = select 平均成绩,学号,姓名 from 成绩表 Adodc1.RefreshEnd SubPrivate Sub Command2_Click()If Text2.Text Then Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = select * from 成绩表 where 学号 = & Text2.Text & Else Adodc1.RecordSource = select * from 成绩表End IfAdodc1.RefreshEnd SubPrivate Sub Command3_Click() If Adodc1.RecordSource = select 高数成绩,学号,姓名 from 成绩表 Then Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = select 高数成绩,学号,姓名 from 成绩表 order by 高数成绩 DESC Adodc1.Refresh Else If Adodc1.RecordSource = select 英语成绩,学号,姓名 from 成绩表 Then Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = select 英语成绩,学号,姓名 from 成绩表 order by 英语成绩 DESC Adodc1.Refresh Else If Adodc1.RecordSource = select 计算机成绩,学号,姓名 from 成绩表 Then Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = select 计算机成绩,学号,姓名 from 成绩表 order by 计算机成绩 DESC Adodc1.Refresh Else Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = select 平均成绩,学号,姓名 from 成绩表 order by 平均成绩 DESC Adodc1.Refresh End If End If End IfEnd SubPrivate Sub Command4_Click() If Adodc1.RecordSource = select 高数成绩,学号,姓名 from 成绩表 Then Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = select 高数成绩,学号,姓名 from 成绩表 where 高数成绩 between 60 and 100 Adodc1.Refresh Else If Adodc1.RecordSource = select 英语成绩,学号,姓名 from 成绩表 Then Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = select 英语成绩,学号,姓名 from 成绩表 where 英语成绩 between 60 and 100 Adodc1.Refresh Else If Adodc1.RecordSource = select 计算机成绩,学号,姓名 from 成绩表 Then Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = select 计算机成绩,学号,姓名 from 成绩表 where 计算机成绩 between 60 and 100 Ad