学生信息管理系统需求及功能分析.docx

1 系统需求及功能分析本学生信息管理系统可以说是一综合性的学生管理系统，它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统、学生缴费管理系统等多种功能，因而具有较强的实用性和先进性。11 系统需求分析通过调查，要求系统需要具备以下功能：要求有良好的人机界面，满足不同用户的操作需求；具备良好的权限管理，实现系统基本功能；能实现多条件修改原始数据；支持多条件查询数据的功能；在相应的权限下，删除数据方便简单，数据稳定性好；数据计算自动完成，尽量减少人工干预。12 可行性分析由于本系统管理的对象单一，都是在校学生且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。本系统选用的数据库是Microsoft推出Access数据库，这种数据库能够快速方便的和Ofice的其他套件综合使用。另外，本系统采用的开发语言是一种基于Windows应用程序开发工具Visual Basic。简称VB，是当今世界上使用最广泛的编程语言之一，也被公认为是编程效率最高的一种编程方法。13 功能分析学生信息管理系统是一个典型的数据库应用程序，由班级管理、学生档案管理、学生交费管理、课程管理、成绩管理等模块组成特规划如下：(1)系统管理模块。该模块的主要任务是维护系统的正常运行和安全性设置，包括添加用户、修改密码、重新登录等。(2)班级管理模块：该模块的功能是实现对全校班级的管理工作，包括：班级浏览、班级添加、班级查询等，这三个功能模块各自独立，完成学校的全部班级的管理。(3)学生档案管理模块：该模块的主要功能是实现对学生的个人信息的管理工作，包括档案添加、档案浏览、档案查询等功能，从而方便学校管理部门对学校的基本情况的快速查询和了解。(4)课程管理模块：该模块对各个班级的课程进行设置，并可在其中设置各门课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括基本课程设计和班级课程设置两个模块。(5)成绩管理模块：学校的成绩管理工作是检验学生学习情况的一个主要手段本模块包括考试类型设置，有期中考试和期未考试两种类型，还设置了成绩添加、成绩浏览、成绩查询等功能模块。2 系统的设计21 模块结构设计(1)系统方案确定。通过对系统的调研与分析。系统主要应完成的功能有：班级管理、成绩管理、交费管理、课程管理、选课管理、成绩管理等功能。(2)软件结构设计。本系统在执行时先根据不同的操作人员的需要来进行相应的模块选择。然后可以输入数据或者进行其它的查询或浏览等操作。如图1所示(其中模块功能描述略)。22 数据库设计数据库设计实体关系如图2所示。本系统中所涉及到的主要实体共有七个数据表，具体见表1。3应用系统设计3.1 主窗体如图3 所示， 在主窗体中， 用菜单实现查询、添加、删除、修改功能， 窗体上添加一个刷新数据的按钮、一个Datagrid控件， 该控件需要通过“工程” 菜单“部件” 子菜单进行添加， 用来显示数据库中的所有信息。该功能的实现有两处，一是在窗体加载事件中， 另一处是在单击刷新按钮之后。关键代码如下：Dim rs As ADODB.Recordset 定义rs 记录集Dim sqls As String 定义sqls 字符串变量，用于存放SQL 语句sqls = select * from student 给sqls 变量赋值，即想要执行的SQL 语句Set rs = connsub(sqls) 调用连接函数Set DataGrid1.DataSource = rs 给DataGrid1 控件赋值3.2 查询窗体查询窗体设计时， 要考虑根据什么查询， 根据学号查询，必须先知道用户想查询几号学生， 因此查询分成两步： 第一步， 先询问用户想查询谁； 第二步， 显示查询结果。3.2.1 查询询问窗体如图4 所示， 查询询问窗体要注意对用户输入的学号进行判断， 如果该学生存在， 就显示查询结果； 如果不存在，则进行友好提示， 请用户重新输入。查询按钮的单击事件代码如下：Private Sub Command1_Click()Dim sqls As StringIf Text1.Text Thensqls = select * from student where 学号= & Text1.Text& 要注意从窗体中接收的信息怎么书写在sqls 语句当中，不 能写成学号= Text1.Text，而 是需要加一对单引号，一对双引 号，一对& 符号，否则执行会出错End IfSet rs = connsub(sqls)If Not rs.EOF Then 判断记录集没有到末尾，是否找到了指定学号的记录rs.eof 用来判断rs 记录集是否到末尾了，rs.eof=TRUE，表示到 末尾了，没有找到匹配 的记录，rs.eof=FALSE，表示没有到末尾，找到了匹配的记录frm_select_result.Show 显示查询结果窗体ElseMsgBox 您查找的学生不存在，请重新输入！ , vbOKOnly 消息框提示找不到该学生Text1.Text = End IfEnd Sub 退出按钮的单击事件代码如下，后续相同功能按钮均可使用改 代码：Private Sub Command2_Click()Unload MeEnd Sub删除学生信息也需要考虑根据什么进行删除， 根据学号删除， 删除时要注意， 一定要在程序中给用户是否要删除的提示， 否则可能误删除， 造成数据丢失。另外， 对于有参照关系的数据库， 要考虑删除一张表的信息时， 是否同时要删除所参照的另一表中的信息， 这一点即可在SQL Server 2000 中设计表的时候选择级联删除选项， 也可以在应用系统中编写代码实现， 否则会造成数据不一致， 例如， 张三学生已经从学生表中被删除了， 那么他在选课表中的选课记录也应该被删除。删除窗体（frm_delete_who.frm） 的代码如下：Private Sub Command1_Click()Dim rs As ADODB.RecordsetDim sqls As Stringsqls = select * from student where 学号= & Text1.Text &Set rs = connsub(sqls)If Not rs.EOF Then 判断指定删除学生是否存在sqls = delete from student where 学号= & Text1.Text & 该学生存在，询问用户确定要删除该学生吗If MsgBox(您确定要删除该学生吗？ , vbYesNo) = vbYesThenSet rs = connsub(sqls)MsgBox 您已经成功删除了学号为 & Text1.Text & 学生！ , vbOKOnlyElseMsgBox 您已经取消了本次删除！ , vbOKOnlyEnd IfElseMsgBox 数据库中不存在学号为 & Text1.Text & 学生！ 请重新选择！ , vbOKOnlyText