工程101第一小组学生成就案例系统课程设计

学生成绩管理信息系统分析与设计报告工程管理101第一小组组长：田永涛组员：冯梦婷徐士超张功磊2012-12-5学生成绩管理信息系统分析与设计报告目录一、设计报告要求 (3)二、系统设计背景简介 (3)三、系统技术及运行环境 (3)（一）Visual Basic 6.0（VB）简介 (3)（二）系统开发及运行环境 (3)1.运行环境WindowsXp或更高版本的操作系统 (3)2.开发环境： (3)四、系统分析 (3)（一）需求分析 (3)1.系统功能需求 (3)2.数据需求 (4)3.性能需求 (4)4.用户选择需求 (4)（二）可行性分析 (4)五、模块划分以及有关模块图 (4)（一）登入模块 (4)（二）学生信息管理 (5)（三）课程管理 (5)（四）成绩管理 (5)（五）管理员管理 (5)六、业务流程图及数据流程图 (6)七、总体设计 (6)（一）设计目标 (7)（二）项目规划 (7)八、详细设计 (7)（一）数据库设计 (7)（二）代码设计 (7)1.登陆界面 (7)2.学生基本情况 (9)3.成绩查询 (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数据库开发应用程序，它主要包括用户登录、学生信息输入修改、学生信息查询以及学生成绩输入、学生成绩查询、系统用户管理等几个页面，因而该系统具有较强的实用性。

八、详细设计（二）代码设计1.登陆界面Private Sub Command1_Click()Dim str As StringIf Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" ThenMsgBox "输入不能为空", 0 + 48, "警告" '判断是否为空，是则弹出窗体警告Text1.SetFocusText1.Text = ""Text2.Text = ""ElseAdodc1.RecordSource = "select * from 账号表where 用户名='" & Text1.Text & "'"Adodc1.RefreshIf Adodc1.Recordset.EOF ThenMsgBox "账户错误", 0 + 48, "提示信息"Text1.SetFocusText1.Text = ""Text2.Text = ""Elsestr = Adodc1.Recordset.Fields("密码").ValueIf Trim(Text2.Text) <> str ThenMsgBox "密码错误", 0 + 48, "warning"Text2.SetFocusText2.Text = ""ElseMe.Hideformmain.ShowEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command3_Click()Me.Hideformapply.ShowEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall Command1_ClickEnd IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenText2.SetFocusEnd IfEnd Sub2.学生基本情况代码Private Sub Command4_Click()Me.Hideformmain.ShowEnd SubPrivate Sub Combo1_Click()mandType = adCmdUnknownAdodc1.RecordSource = "select * from 基本情况表where 性别='" & Combo1.Text & "'"Adodc1.RefreshEnd SubPrivate Sub Combo2_Click()mandType = adCmdUnknownAdodc1.RecordSource = "select * from 基本情况表where 专业='" & Combo2.Text & "'"Adodc1.RefreshEnd SubPrivate Sub Command1_Click()If Text1 > "" ThenmandType = adCmdUnknownAdodc1.RecordSource = "select * from 基本情况表 where 学号 ='" & Text1 & "'"ElseAdodc1.RecordSource = "select * from 基本情况表"End IfAdodc1.RefreshEnd SubPrivate Sub Command2_Click()If Text2 > "" ThenmandType = adCmdUnknownAdodc1.RecordSource = "select * from 基本情况表 where 姓名 ='" & Text2 & "'"ElseAdodc1.RecordSource = "select * from 基本情况表"End IfAdodc1.RefreshEnd SubPrivate Sub Command3_Click()mandType = adCmdTableAdodc1.RecordSource = "基本情况表"Adodc1.RefreshEnd Sub3.成绩查询代码Private Sub Command1_Click()If Text1.Text > "" ThenmandType = adCmdUnknownAdodc1.RecordSource = "select * from 成绩表where 姓名='" & Text1.Text & "'"ElseAdodc1.RecordSource = "select * from 成绩表"End IfAdodc1.RefreshEnd SubPrivate Sub Command10_Click()mandType = adCmdUnknownAdodc1.RecordSource = "select 平均成绩,学号,姓名 from 成绩表 "Adodc1.RefreshEnd SubPrivate Sub Command2_Click()If Text2.Text > "" ThenmandType = adCmdUnknownAdodc1.RecordSource = "select * from 成绩表where 学号='" & Text2.Text & "'"ElseAdodc1.RecordSource = "select * from 成绩表"End IfAdodc1.RefreshEnd SubPrivate Sub Command3_Click()If Adodc1.RecordSource = "select 高数成绩,学号,姓名 from 成绩表 " ThenmandType = adCmdUnknownAdodc1.RecordSource = "select 高数成绩,学号,姓名from 成绩表order by 高数成绩 DESC"Adodc1.RefreshElseIf Adodc1.RecordSource = "select 英语成绩,学号,姓名 from 成绩表" ThenmandType = adCmdUnknownAdodc1.RecordSource = "select 英语成绩,学号,姓名 from 成绩表order by 英语成绩 DESC"Adodc1.RefreshElseIf Adodc1.RecordSource = "select 计算机成绩,学号,姓名from 成绩表 " ThenmandType = adCmdUnknownAdodc1.RecordSource = "select 计算机成绩,学号,姓名from 成绩表 order by 计算机成绩 DESC"Adodc1.RefreshElsemandType = adCmdUnknownAdodc1.RecordSource = "select 平均成绩,学号,姓名 from 成绩表 order by 平均成绩 DESC"Adodc1.RefreshEnd IfEnd IfEnd IfEnd SubPrivate Sub Command4_Click()If Adodc1.RecordSource = "select 高数成绩,学号,姓名 from 成绩表 " Then mandType = adCmdUnknownAdodc1.RecordSource = "select 高数成绩,学号,姓名from 成绩表where 高数成绩 between 60 and 100"Adodc1.RefreshElseIf Adodc1.RecordSource = "select 英语成绩,学号,姓名 from 成绩表 " ThenmandType = adCmdUnknownAdodc1.RecordSource = "select 英语成绩,学号,姓名 from 成绩表where 英语成绩 between 60 and 100"Adodc1.RefreshElseIf Adodc1.RecordSource = "select 计算机成绩,学号,姓名from 成绩表 " ThenmandType = adCmdUnknownAdodc1.RecordSource = "select 计算机成绩,学号,姓名from 成绩表 where 计算机成绩 between 60 and 100"Adodc1.RefreshElsemandType = adCmdUnknownAdodc1.RecordSource = "select 平均成绩,学号,姓名 from 成绩表 where 平均成绩 between 60 and 100"Adodc1.RefreshEnd IfEnd IfEnd IfEnd SubPrivate Sub Command5_Click()mandType = adCmdUnknownAdodc1.RecordSource = "select *from 成绩表 "Adodc1.RefreshEnd SubPrivate Sub Command6_Click()Me.Hideformmain.ShowEnd SubPrivate Sub Command7_Click()mandType = adCmdUnknownAdodc1.RecordSource = "select 高数成绩,学号,姓名 from 成绩表 " Adodc1.RefreshEnd SubPrivate Sub Command8_Click()mandType = adCmdUnknownAdodc1.RecordSource = "select 英语成绩,学号,姓名 from 成绩表 " Adodc1.RefreshEnd SubPrivate Sub Command9_Click()mandType = adCmdUnknownAdodc1.RecordSource = "select 计算机成绩,学号,姓名 from 成绩表 " Adodc1.RefreshEnd Sub。