学生学籍管理信息系统.doc

学生学籍管理信息系统一， 管理信息系统的概述1、 学生学籍管理信息系统的设计背景学生学籍管理信息系统是在总体规划的指导下，对系统进行详细深入的调查研究，将一个系统分解成各个组成部分，确定新系统的逻辑观念的过程。分析的目的是研究系统的各个部分如何工作、如何交互，以获得一个合理的新系统的逻辑模型来实现其系统目标。 随着学校规模的不断扩大，学生数量的急剧增加，有关学生的各种信息资料也成倍增长。办学者们所头疼的问题，就是如何面对这庞大的信息量。只有利用计算机，利用学生管理信息系统才能解决这一问题，才能提高学生管理的工作效率。通过这样的系统，可以做到信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作量。在这里首先我们先了解一下管理信息系统。2、 需求分析及其意义 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生学籍进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生学籍管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件需求分析应分析哪些需要求 设计分析包括：需求包括、功能要求 、性能要求 、可靠性要求 、安全保密性要求 、以及开发费用和开发周期 、可使用资源等方面的限制 。其中， 功能要求是最基本的，包括数据要求和加工要求。 二 、可行性分析 可行性分析的任务是明确应用项目的开发的必要性和可行性。这项工作需建立在初步调查的基础上。如果管理人员对信息系统的需求不很迫切，或者条件尚不具备，就是不可行。 可行性，一般说来，至少应该从下述三方面研究每种解法的可行性： （1）技术上的可行性 （2）经济上的可行性 （3）操作上的可行性 1、可行性分析报告的内容是：（1 ）系统简述；（2 ）项目的目标；（3 ）所需资源、预算和期效益；（4 ）对项目可行性的结论。 可行性分析结论应明确指出以下内容之一：（1 ）可以立即开发；（2 ）改进原系统；（3 ）目前不可行，或者需推迟到某些条件具备以后再进行。 2、某高校学籍管理系统实例说明 （1）技术上的可行 该系统所需硬件设备，如服务器、PC机、打印机及网络配件等，市场上有销售且价格较低，能满足系统功能要求。软件上，操作系统采用WindowsNT, 数据库管理系统采用SQL Server2000，这些软在 MIS开发中已被大量应用，技术上都比较成熟。因此技术上是可行的。 （2）经济上可行 由于学校急需采用计算机来进行学生的学籍管理，因此对开发学籍管理信息系统大力支持。 （3）操作上可行 由于该学校有很好的管理体制：每位学生均有学号及相关的成绩管理记录，且每次奖惩均会记录在相关档案中，以此来决定学生的升级、留级、退学情况。因此可以利用管理信息系统来进行管理校长兼党委书记副校长二校长助理副校长一党委副书记教务科宿 管学生科保卫科生产实习科总务科人事科团委办招生就业科鉴定科财务科党政办学藉管理系统/总体设计如下： （1）.利用Access建立数据库，并在该数据库下创建五张表格，分别是学生表、课程表、选课表、学生选课表以及口令表。 （2）利用VB来建立界面并对它进行设计和修改，大体框架如下： FORM1 用于首界面 FORM2 用于登陆此系统的登录界面 FORM3 是主窗体，在这上面建立相应的菜单 如：文件退出、添加用户（FORM4） 数据信息管理使用（FORM5） 基本操作学生操作、选课操作、课程操作 (FORM6、FORM7、FORM8) （3）对以上的界面进行设计以及对所要操作的部件进行编程。 如图： 三.常用控件的说明: 所有的Windows应用程序窗口或对话框，都是由诸如文本框、列表框、命令按扭、滚动条、命令菜单等组成的。VB通过控件工具箱提供了它们与用户进行交互的可视化部件，即控件。程序开发人员只需要通过简单的操作，在窗体上安排所需要的控件，完成应用程序的用户界面设计即可。 序号名称功能 1Label标签用于说明 2Textbox文本框用于文本输入或显示 3Frame框架用于组合控件 4Commandbutton命令按扭单击执行命令 5Timer计时期用于定时 6Data数据控件用于访问数据库系统结构设计： 数据库是有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结构的)是一串文字或数字流。数据库中的数据可以是文字、图象、声音等。 Access数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。 (1).表(Table) 表是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。 (2).查询(Query)查询可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。 (3).窗体(Form)窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。 (4).报表(Report)报表的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。 (5).宏(Macro)宏相当于DOS中的批处理，用来自动执行一系列操作。Access列出了一些常用的操作供用户选择，使用起来十分方便。 (6).模块(Module)模块的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。模块使用Visual Basic编程。 我们利用Access来建立数据库，我们的库中有五张表格，其分别是学生表、课程表、选课表、学生选课表以及口令表。 我们就以学生表为例做一个简单的说明： 我们使用设计器来创建表的，我的这张表有七个字段，每个字段的名称分别是：学号、班级、姓名、性别、出生年月、民族、地址、电话号码，每个字段有七个数据。我并对其字段的属性进行了重新的修改，以做到不浪费其空间。 我具体的实施步骤是：启动数据库管理器建立数据库建立数据表结构输入记录。功能模块简介：这是一张学生选课浏览表的界面，这也是对应我的主界面菜单中的数据信息下的管理使用子菜单的一张界面，在这张界面中包含了8个LABEL标签控件、7个 TEXTBOX文本框控件、6个COMMANDBUTTON命令按扭控件、1个FRAME框架控件和1个DATA部件。我利用DATA部件将界面与 ACCESS数据库相连接，具体的操作是利用DATABASENAME与数据库连接，在RECORDSOURCE中找到与之对应的表，再用 DATASOURCE、DATAFIELD与个文本框内容对应，从而实现界面与数据库的连接。 下面是程序的编写过程： 显示前一个数据： COMMAND1： Private Sub Command1_Click() If Data1.Recordset.RecordCount = 0 Then MsgBox 没有记录 Else If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst MsgBox 这是第一条记录！ Else Data1.Recordset.MovePrevious If Data1.Recordset.BOF = True Then Data1.Recordset.MoveFirst MsgBox 这是第一条记录！ End If End If End If End Sub 显示第一个数据： COMMAND2： Private Sub Command2_Click() If Data1.Recordset.RecordCount = 0 Then MsgBox 没有记录 Else Data1.Recordset.MoveFirst End If End Sub 显示最后一个数据： COMMAND4： Private Sub Command4_Click() If Data1.Recordset.RecordCount = 0 Then MsgBox 没有记录 Else Data1.Recordset.MoveLast End If End Sub 显示后一个数据： COMMAND3： Private Sub Command3_Click() If Data1.Recordset.RecordCount = 0 Then MsgBox 没有记录 Else If Data1.Recordset.EOF Then Data1.Recordset.MoveLast MsgBox 这是最后一条记录！ Else Data1.Recordset.MoveNext If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast MsgBox 这是最后一条记录！ End If End If End If End Sub 添加一个数据：COMMAND6 Private Sub command6_Click() If Command6.Caption = 添加 Then Command1.Enabled = 0 Command2.Enabled = 0 Command3.Enabled = 0 Command4.Enabled = 0 Command6.Caption = 确定 Command5.Caption = 放弃 If Data1.Recordset.RecordCount 0 Then Data1.Recordset.MoveLast End If Data1.Recordset.AddNew Text1.SetFocus Else Command1.Enabled = -1 Command2.Enabled = -1 Command3.Enabled = -1 Command4.Enabled = -1 Command6.Caption = 添加 Command5.Caption = 删除 Text2.Enabled = 0 Text5.Enabled = 0 Text3.Enabled = 0 Text4.Enabled = 0 Text6.Enabled = 0 Text7.Enabled = 0 Data1.Recordset.Update Command1.SetFocus End If End Sub 删除一个记录：COMMAND5 Private Sub Command5_Click() If Command5.Caption = 放弃 Then Command4.Enabled = -1 Command5.Enabled = -1 Command6.Enabled = -1 Command3.Enabled = -1 Command1.Caption = 添加 Command2.Caption = 删除 Text2.Enabled = 0 Text5.Enabled = 0 Text6.Enabled = 0 Text7.Enabled = 0 Text1.Enabled = 0 Else If Data1.Recordset.RecordC