数据库学生信息系统管理课程实习报告.doc

学生信息管理系统

一、引言

1、项目背景

随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。目前，在学校里，随着高校规模的不断扩大和招生人数的不断增加，需要处理大量的学生数据信息。如何更好的组织学生信息，更加快捷的管理学生信息显得尤为的重要。

作为计算机应用的一部分,使用计算机对学生信息进行管理,有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生信息管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。

我们为此开发了一套学生信息管理系统，本系统面向学校的教务人员，目的是为学校办公管理提供一个快速、简单规范的管理平台，

使学院在学生信息管理方面更加规范化,快捷化。

2、项目目标

本章以学校的学生信息管理为依托，结合教务教学管理，设计并开发一个学生信息管理系统，提供一个信息更新快捷、管理方便、功能设置合理的学生信息管理解决方案。针对学校大量的学生信息，就学生管理的几个方面，提供一个互动式的学生管理平台。系统目标如下：

➢通过学生信息管理系统的实现，使学校的学生信息管理更加科学化。

➢提供灵活、方便的操作。

➢节约学生信息管理的成本，提高学校管理的效率。

➢对系统提供必要的权限管理。

➢为学校考核学生的综合素质提供必要的数据支持。

二、系统功能模块划分

1、主界面模块

本模块提供学生信息管理系统的主菜单界面，供用户选择和执行各项任务。本模块中还应对进入系统的操作人员进行用户和密码的验证。

2、查询模块

本模块提供数据表信息的查询检索功能，包括学生基本信息查询、学生成绩查询、课程信息查询等子模块，对于学生信息查询，可以在输入学号后快速显示。

3、数据维护模块

本模块提供数据表信息的修改、添加、删除功能。包括学生基本信息的维护、学生成绩表的维护及课程信息表的维护等子模块。

4、统计与报表模块

该模块提供各种统计信息与报表打印功能。

5、根据对以上功能模块的分析，再对上述功能进行模块化，从而得出系统功能模块图如下：

（流程图）

三、学生信息管理系统的具体操作显示图

1、数据表间索引及永久性关系设计如图：

2、做好实习后项目管理器显示如图：

3、系统登录界面

由Label、Command、Combo1 和Timer(计时器）控件组成。

其中，计时器主要用于控制实现封面表单在3s之后自动关闭，Time1 控件的Timer event 添加代码如下：

thisform.Release

DO FORM form_login.scx &&form_login,scx 是身份表单的文件名

为了使用户在封面表单上单击后能自动关闭，并进入身份验证表单，Form1 的 Click event 添加代码如下：

thisform.Release

DO FORM form_login.scx

系统登录界面对象的事件过程代码如下：

（1）Command1（确认）按钮的Click添加代码如下：Lname = ALLTRIM(thisform.text1.Value)

pwd = ALLTRIM(thisform.text2.value)

USE 管理员表&&打开管理员表

LOCATE FOR ALLTRIM(用户名)==Lname

IF FOUND().and.ALLTRIM(密码)==pwd

USE &&登陆成功，关闭数据表thisform.Release &&关闭当前表单

DO main.mpr &&执行主菜单程序

ELSE

MESSAGEBOX("用户名或密码错误，请重新输入！",0,"错误") thisform.text2.Value=""

USE

ENDIF

（2）Command2(退出)按钮的Click添加代码如下：answer=MESSAGEBOX("是否确定要退出系统",4+32,"确定")

IF answer=6 &&如果用户单击了“确定”按钮thisform.release

QUIT

ELSE

thisform.text1.SetFocus

ENDIF

4、进入后查询：

（1）按学号或姓名查询

Command1(开始查询）按钮的Click添加代码如下：sno=ALLTRIM(thisform.text1.value)

SCAN

IF 学生表.学号=sno.or.学生表.姓名=sno

thisform.text1.Value=""

thisform.Refresh

RETURN

ENDIF

ENDSCAN

MESSAGEBOX("该学生不存在！",0,"查找失败")

（2）按学号或课程id查询

Command1(开始查询）按钮的Click添加代码如下：sno=ALLTRIM(thisform.text1.value)

SCAN

IF 成绩表.学号=sno.or.成绩表.课程id=sno

thisform.text1.Value=""

thisform.Refresh

RETURN

ENDIF

ENDSCAN

MESSAGEBOX("该学生不存在！",0,"查找失败")