学籍管理系统文档

学籍管理信息系统摘要：学校教务具有信息繁杂而且信息量大，相关制约因素很多的特点，因此实现起来比较困难。本系统设计了学籍管理系统中的五个模块，这五个模块是教师管理模块，学生管理模块，成绩管理模块，机构管理模块，教务管理模块。总之，该系统具有高效、易操作、易维护等特点，而且系统结构清晰、界面友好，功能较齐全，能有效的协助学校学籍管理工作。关键字：学籍管理 设计 目录：一、选题背景 2 1、课题来源 2、课题目的与意义 3、需要解决的问题及技术要求 4、设计指导思想 二、可行性分析 31、技术可行性 2、经济可行性 3、环境可行性 4、进度可行性 三、系统需求分析 31、组织结构分析 2、管理功能分析 3、业务流程分析4、数据流程分析四、系统设计 4 1、总体结构设计 2、输入与输出设计3、人机对话4、处理流程设计5、数据库设计 五、系统实现 81、登陆界面 2、查询界面 3、还书界面 4、新书入库界面 5 图书资料查询界面 6 图书详细信息查看界面 7学生管理界面六、系统测试 17七、系统评价 18八、参考文献一、 选题背景现今高校的教务管理中，由于教师及学生人数众多，有很多不便。为了降低教务管理人员的工作强度，提高工作效率，有效管理教师和学生的信息以及院系和班级设置情况的信息。需要开发一套信息管理系统以协助教务管理人员掌握学校老师、学生及学院的基本情况。系统的使用对象是教务处工作人员。二、 可行性分析（一） 技术可行性分析本系统是以VB6.0为应用开发工具，Microsoft access为数据库管理系统的信息管理系统。Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。Microsoft Access 是微软公司推出的给予Windows的桌面关系数据库管理系统（RDBMS），是Office系列应用软件之一。它是一个功能强大而且使用方便的数据库管理系统，为中小型数据库提供了良好的创建环境。另外，图书管理系统越来越多地被应用，便于开发时的借鉴。因此，本系统具有技术上的可行性。（二） 经济可行性分析从成本的角度考虑，包括系统的初始成本（各种软、硬件级辅助设备的购置和机房及附属设施费用），日常维护费用（系统维护，人员费用，运行费用等），但由于系统较简单，面向对象单一，只有管理员和学生，较好管理，中间费用消耗少；从收益角度考虑，主要考虑无形效益，通过系统的运行，使学生更好更多地学到知识，使管理员的工作更加高效轻松，提高了整个图书馆的使用价值。因此，本系统具有经济上的可行性。（三） 环境可行性分析现在社会是信息的时代，而信息的各种特点决定了需要有专门的信息系统对它加以管理才能更好地发挥作用，各种技术水平也发展到相应程度，作为高等学府的西安财经学院更是有必要和实力建立一个完善高效的图书管理信息系统。因此，本系统具有环境可信性。（四） 进度可行性由于系统较简单且主要针对在校学生，相关信息的获取渠道比较方便，所以系统能在合理期限内完成，即具有进度可行性。三、 系统需求分析（一） 组织结构分析根据收集到的各种系统学生成绩表、学生和教师基本信息资料表，通过向有关业务管理部门的访问调查，系统分析结果如下： 教务处教务科学籍管理科网络与信息管理科（二） 管理功能分析教务科：学生、教师基本信息资料管理；课程编排；学生考试成绩登录、统计；学生奖惩情况管理；安排教师教师教学任务及教学工作量。学籍管理科：组织在校学生转专业，负责学生休、复、留等学籍异动管理；学校综合系统管理中学生学籍库的维护。此外，还负责办理建立新生学籍档案；编制本、专科学生名册；负责毕业生成绩及有关材料归档；办理出国人员学习成绩等证明材料。学籍管理教师、学生信息管理学籍变动管理学生信息管理教师个人信息管理学籍变动查询学籍变动管理学生个人信息管理学生奖惩情况管理学生成绩管理机构设置学院管理班级管理（三） 业务流程分析业务流程图如图所示：学籍管理信息系统分析表1管理员/学生登陆业务流程业务流程 第 1 张/共8张用户输入用户名和密码用户信息数据库身份验证进入教师、学生界面进入学籍管理人员界面图例说明业务处理单位 业务处理描述表格制作传递储存搜集资料业务名称：用户/管理员登陆制图： 审核：单位名称： 核对： 学籍管理信息系统分析表2成绩登陆业务流程业务流程 第2 张/共8张学籍管理人员录入各类成绩计算总成绩录入数据库选择成绩类别成绩表图例说明业务处理单位 业务处理描述表格制作传递储存搜集资料业务名称：学生成绩登录制图： 审核： 单位名称： 核对： 学籍管理信息系统分析表3教师基本信息输入业务流程业务流程 第 3 张/共8 张教务科教师信息基本资料归类教师基本信息表录入数据库录入教师信息图例说明业务处理单位 业务处理描述表格制作传递储存搜集资料业务名称：教师基本信息输入制图： 审核： 单位名称：核对：日学籍管理信息系统分析表4学生基本信息输入业务流程业务流程 第4 张/共8 张教务科学生信息基本资料归类学生基本信息表录入数据库录入学生信息图例说明业务处理单位 业务处理描述表格制作传递储存搜集资料业务名称：学生基本信息输入业务制图： 审核： 单位名称： 核对： 学籍管理信息系统分析表5学生学籍信息变动管理业务流程业务流程 第 5 张/共8 张学籍科学生学籍变动信息处理学籍变动信息表录入数据库学生学籍变动信息输入图例说明业务处理单位 业务处理描述表格制作传递储存搜集资料业务名称：学生学籍变动信息管理制图： 审核： 单位名称： 核对： 学籍管理信息系统分析表6学生奖惩信息输入业务流程 第6 张/共8张教务科奖惩信息资料处理学生奖惩信息表录入数据库输入学生奖惩信息资料图例说明业务处理单位 业务处理描述表格制作传递储存搜集资料业务名称：学生奖惩信息输入制图：审核： 单位名称： 核对： 学籍管理信息系统分析表7学生奖惩信息管理业务流程 第 7张/共8张学籍科选择界面奖惩信息表录入数据库学生奖惩信息删除、修改图例说明业务处理单位 业务处理描述表格制作传递储存搜集资料业务名称：奖惩信息管理业务流程制图： 审核： 单位名称： 核对： 学籍管理信息系统分析表8学籍变动信息管理业务流程业务流程 第 8张/共8 张学籍科选择界面学籍变动信息表录入数据库学生学籍变动信息删除、修改图例说明业务处理单位 业务处理描述表格制作传递储存搜集资料业务名称：学籍变动信息管理制图审核： 单位名称： 核对： （四） 数据流程分析1 数据流程基本符号 学生 实体 处理过程数据存储 数据流2 顶层数据流程学籍管理人员学籍管理系统教师或学生 3 学籍管理人员数据流程P1 学生信息管理学籍管理人员p2教师信息管理P3机构管理学生信息表教师信息表学院、班级信息表4 教师、学生数据流程 学生或教师P1学生基本信息查询学生基本信息表P2学生奖惩信息查询P3学生学籍变动信息查询学生奖惩信息表学籍变动信息表四、 系统设计（一） 总体结构设计1. 系统目标设计1） 方便的数据输入功能，良好的人机对面，尽量避免汉字和长字符串的人工重复输入（采用代码词组）。2） 灵活的查询功能，能快速实现学生信息和教师信息以及学院班级信息的查询。3） 考虑到学校的发展，对新数据也能给予处理。4） 把“静态”的学籍管理变为“动态”管理，能随时提供学校学生、教师、学院及班级的现状信息。2. 系统功能设计身份登录：学籍管理人员及教师、学生都有自己的密码，可以防止非系统人员进入本系统；可以对图书管理人员和教师、学生两种不同的用户类型，分别给予不同的操作权限。资料维护：本系统将对每一位教师、学生以及各个学院的基本信息进行维护管理。系统维护管理包括对各种表记录的添加、删除、修改等操作。系统查询：可以按照学号、教师号、学院编码、班级编码以及学生名、教师名等进行相关信息的查询系统维护：实现对操作员的管理和维护，包括操作员登录密码和用户名的修改等。3. 系统的功能模块学籍管理系统需要实现的功能主要有四大块：“日常工作管理”、“基本资料维护”、“查询”和“系统管理”模块1）“信息查询”模块：学生信息查询：主要功能是用户通过输入需要查询的学号或学生姓名，实现对学生基本信息资料的查询、成绩查询、奖惩情况查询、学籍变动查询等。教师信息查询：主要功能是用户通过输入要查查询的教师号或教师姓名，实现对教师基本信息的查询。学院信息查询：主要功能是用户通过移动记录指针，实现对各学院名称、负责人、历史等信息的查询。班级信息查询：主要功能是用户通过移动记录指针，实现对各班级班级负责人、入学时间、班主任电话等信息的查询。2）“信息管理”模块学生基本资料管理：包括学生基本信息的添加、删除、修改教师基本资料管理：包括教师基本信息的添加、删除、修改学院信息管理：包括对各学院设置信息的添加、删除、修改班级信息管理：包括对各班级设置信息的添加、删除、修改3）“用户维护”模块用户管理模块：包括对系统用户的添加管理4. 功能模块图 学籍管理系 统信息查询信息管理用户管理学生信息查询教师信息查询班级信息查询学员信息查询学生信息管理教师信息管理班级信息管理学员信息管理用户注册（二） 输入输出设计1. 输入设计简列式，登陆界面即采用该形式，简单又直观表格式，对于基本信息资料以及成绩、奖惩情况的记录，采用的是该形式，输入教师、学生、学院、班级的相关信息2. 输出设计简单组列式，用户对于学生信息、教师信息、学院信息以及班级信息的查看界面就是这种形式，以Data Grid表格的形式给出（三） 人机对话设计本系统中人机对话主要形式包括：菜单式，应答式，填表式。（四） 处理流程设计1. 登录流程开始显示系统模块模块选择退出学籍管理人员，模块学生、教师模块学籍管理人员流程 开始循环功能选择退出学生管理教师管理机构设置用户管理2. 教师、学生流程开始循环模块选择退出学生信息查询教师信息查询学院信息查询班级信息查询（五） 数据库设计1. 概念结构设计ER模型设计学号学生姓名出生日期籍贯性别教师教师号姓名性别年龄所属学院研究方向办公电话学院学院编号院系名称说明负责人电话负责人姓名班级班级编号班级名称入学时间所属学院辅导员姓名辅导员电话说明学院管理专业管理学生教授教师成绩登录2. 逻辑结构设计逻辑结构设计的主要任务是把概念结构设计阶段建立的E-R图，按选定的数据库管理软件所支持的数据模型（层次型、网状型、关系型），转化成相应的逻辑模型。由于Microsoft Access支持的是关系数据模型，所以逻辑设计的首要工作就是把建立的E-R图转化成为关系模型，再做进一步的数据模型的优化。E-R图关系模式：教师（教师号，索引号，教师名称，性别，年龄，所属学院，研究方向，办公电话）学生（学号，学生姓名，所属学院，所属年级，班主任）学院（学院编号，学院名称，负责人姓名，办公电话，说明）班级（班级编号，班级名称，入学时间，班主任姓名，班主任电话，说明）3. 物理结构设计物理结构设计的主要任务是确定数据库在物理设备上的存储结构和存取方法，在本系统中就是利用Microsoft Access提供的命令，语句等将逻辑模型在计算所上实现的过程，包括建立了6张表，确定各表的索引关键字以及各表之间的关系等。以学生信息表为例简单说明设计过程：字段名数据类型是否必填字段说明snum文本是学号Sname文本是学生姓名Ssex文本是性别born文本是出生日期home文本是籍贯 字段是表中的列，每一列用什么来命名，即为字段名称，字段的数据类型是对某字段要输入的值的约束或定义，在该表中均为文本型，说明则是为了设计者和其他人方便知道字段的含义。”snum”是主键，不允许NULL值的存在且字段值必须唯一。给予不同的学生不同的索引号，用于唯一标识表中的每条记录。4. 数据库的规范化过程关系规范化处理主要是对初步设计出来的关系进行分析，并进行分解或合并，消除其中的插入异常，删除异常，数据冗余，数据不一致等，从而获得更好的关系模式。在本系统中通过规范化处理，关系中的各字段不可再分，无重复属性，满足第一范式1NF，且数据间不存在部分依赖，满足第二范式2NF的要求。但由于在某些查询中经常涉及多个关系间的联接运算，这种联接运算的代价是相当高的，所以从实际考虑有些关系并不能满足3NF。五、 系统实现（一） 登陆界面1. 登录该界面是同时面向图书管理员和学生的，根据输入的用户名和密码，系统判断用户类型进入不同页面，使用不同功能。主要代码如下：2. 注册该界面用于新用户的注册，添加。代码为：Dim conn As New ADODB.ConnectionDim ad As New ADODB.RecordsetPrivate Sub Command1_Click()Dim sql As New ADODB.Recordsetsql.CursorLocation = adUseClientsql.Open select * from users where id= & text1.Text & , conn, adOpenDynamic, adLockOptimisticIf text1.Text = Then MsgBox 用户名不能为空,请重新输入! Exit Sub Form4.ShowEnd IfIf text2.Text = Then MsgBox 密码不能为空,请重新输入! Exit Sub Form4.ShowEnd IfIf Text3.Text = Then MsgBox 确认密码不能为空,请重新输入! Exit Sub Form4.ShowEnd IfIf sql.RecordCount 0 ThenMsgBox 这个用户名已经被占用，请您选用其它的用户名！text1.Text = text1.SetFocussql.CloseEnd IfIf Trim(text2.Text) Trim(Text3.Text) ThenMsgBox 您两次输入的密码不同，请重新输入text2.Text = Text3.Text = text2.SetFocusExit SubEnd Ifad.AddNewad.Fields(id) = Trim(text1.Text)ad.Fields(password) = Trim(text2.Text)ad.Updatead.CloseMsgBox 注册成功！请登录！Form4.HideEnd SubPrivate Sub Command2_Click() text1.Text = text2.Text = Text3.Text = End SubPrivate Sub Command3_Click()Form4.HideEnd SubPrivate Sub Form_Load()conn.Open driver=microsoft access driver (*.mdb);dbq= & App.Path & admin.mdb;ad.CursorLocation = adUseClientad.Open select * from users, conn, adOpenDynamic, adLockOptimisticEnd Sub（二） 学籍管理人员管理界面1 教师信息查询本界面用于教师基本信息的查询，可以按教师号进行查询，也可以按教师姓名进行。代码如下：Dim conn As New ADODB.ConnectionDim sql As StringDim student1 As New ADODB.RecordsetPrivate Sub Command1_Click()Command2.Enabled = False c2 = InputBox(请输入需查询的教师号：, 查询条件) If c2 Then tsql = select * from tinfor where tnum= & c2 & student1.CursorLocation = adUseClient student1.CursorType = adOpenDynamic student1.Open tsql, conn, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = student1 If student1.RecordCount = 0 Then MsgBox 没有该教师的信息 Else MsgBox 你没有输入需查询的教师号！ End IfEnd SubPrivate Sub Command2_Click()Command1.Enabled = False c2 = InputBox(请输入需查询的教师姓名：, 查询条件) If c2 Then tsql = select * from tinfor where tname= & c2 & student1.CursorLocation = adUseClient student1.CursorType = adOpenDynamic student1.Open tsql, conn, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = student1 If student1.RecordCount = 0 Then MsgBox 没有该教师的信息 Else MsgBox 你没有输入需查询的教师姓名！ End IfEnd SubPrivate Sub Command3_Click()Form10.HideForm2.ShowEnd SubPrivate Sub Form_Load()With conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:courseware课件管理信息系统大作业admin.mdb.ConnectionTimeout = 30.OpenEnd With tsql = select * from tinfor student1.CursorLocation = adUseClient student1.CursorType = adOpenDynamic student1.Open tsql, conn, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = student1End Sub2学生信息查询本界面用于对学生信息的查询，输入学生学号，即可显示所查询学生的相关信息。窗体下半部分用sstab设置的分组格式可以同时显示学生的学籍变更信息和奖惩管理信息。设置代码如下：Dim conn As New ADODB.ConnectionDim sql As StringDim student1 As New ADODB.RecordsetDim sql2 As StringDim student2 As New ADODB.RecordsetPrivate Sub Command1_Click()Form5.Hidestudent1.Closestudent2.CloseForm2.ShowEnd SubPrivate Sub Command2_Click()With Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:courseware课件管理信息系统大作业admin.mdb.CommandType = adCmdText.ConnectionTimeout = 30End WithIf Text1.Text Then sql = select * from pp where snum= & Text1.Text & student1.CursorLocation = adUseClient student1.CursorType = adOpenDynamic student1.Open sql, conn, adOpenDynamic, adLockBatchOptimistic Set DataGrid2.DataSource = student1 sql2 = select * from xueji where snum= & Text1.Text & student2.CursorLocation = adUseClient student2.CursorType = adOpenDynamic student2.Open sql2, conn, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = student2 sql1 = select sinfor.*,class,head,scollege From sinfor, sclass, scollege Where sinfor.snum = sclass.snum and sclass.snum=scollege.snum and sinfor.snum = & Text1.Text & Adodc1.CursorLocation = adUseClient Adodc1.CursorType = adOpenDynamic Adodc1.RecordSource = sql1 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Text1.Text = Text1.SetFocus Else: MsgBox 没有该学生的信息 End If Else MsgBox 你没有输入需查询的学号！ Text1.SetFocusEnd IfEnd SubPrivate Sub Form_Load()With conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:courseware课件管理信息系统大作业admin.mdb.ConnectionTimeout = 30.OpenEnd WithEnd Sub3.（三） 学生信息管理界面Dim cnn As ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub cmdadd_Click()For i = 0 To 5Text1(i).Enabled = TrueText1(i).Text = Next irs.AddNewText1(0).SetFocuscmdadd.Enabled = Falsecmddelete.Enabled = Falsecmdedit.Enabled = Falsecmdsave.Enabled = Truecmdcancel.Enabled = Truecmdmove(0).Enabled = Falsecmdmove(1).Enabled = Falsecmdmove(2).Enabled = Falsecmdmove(3).Enabled = FalseEnd SubPrivate Sub Cmdcancel_Click()rs.CancelUpdateIf rs.BOF And rs.EOF ThenMsgBox 数据表中无记录，请添加记录或退出cmdadd.Enabled = Truecmdsave.Enabled = Falsecmdcancel.Enabled = FalseElseCall viewdataFor i = 0 To 5Text1(i).Enabled = FalseNext icmdadd.Enabled = Truecmddelete.Enabled = Truecmdedit.Enabled = Truecmdsave.Enabled = Falsecmdcancel.Enabled = FalseEnd IfEnd SubPrivate Sub cmddelete_Click()Dim myval As Stringmyval = MsgBox(是否要删除这个纪录？, vbYesNo)If myval = vbYes Thenrs.Deleters.MoveNextIf rs.RecordCount = 0 ThenMsgBox 数据表中无记录，请添加记录或退出For i = 0 To 5Text1(i) = Next icmdadd.Enabled = Falsecmddelete.Enabled = Falsecmdedit.Enabled = Falsecmdsave.Enabled = Falsecmdcancel.Enabled = FalseElsers.MoveNextIf rs.EOF Thenrs.MoveLastCall viewdataFor i = 0 To 5Text1(i).Enabled = FalseNext iEnd IfCall viewdataEnd IfEnd IfEnd SubPrivate Sub cmdedit_Click()If rs.RecordCount 0 ThenFor i = 1 To 5Text1(i).Enabled = TrueNext icmdadd.Enabled = Falsecmddelete.Enabled = Falsecmdedit.Enabled = Falsecmdsave.Enabled = Truecmdcancel.Enabled = Truecmdmove(0).Enabled = Falsecmdmove(1).Enabled = Falsecmdmove(2).Enabled = Falsecmdmove(3).Enabled = FalseElseMsgBox (没有要修改的记录)End IfEnd SubPrivate Sub cmdexit_Click()EndEnd SubPrivate Sub cmdmove_Click(Index As Integer)Select Case IndexCase 0rs.MoveFirstcmdmove(0).Enabled = Falsecmdmove(1).Enabled = Falsecmdmove(2).Enabled = Truecmdmove(3).Enabled = TrueCase 1rs.MovePreviousIf rs.BOF Then rs.MoveFirstcmdmove(2).Enabled = Truecmdmove(3).Enabled = TrueCase 2rs.MoveFirstIf rs.EOF Then rs.MoveLastcmdmove(0).Enabled = Truecmdmove(1).Enabled = TrueCase 3rs.MoveLastcmdmove(0).Enabled = Truecmdmove(1).Enabled = Truecmdmove(2).Enabled = Truecmdmove(3).Enabled = TrueEnd SelectCall viewdataEnd SubPrivate Sub cmdsave_Click()If Text1(1) = ThenMsgBox 该学生号不能为空Text1(1).SetFocusExit SubEnd If rs.Fields(class) = Text1(0).Textrs.Fields(snum) = Text1(1).Textrs.Fields(sname) = Text1(2).Textrs.Fields(ssex) = Text1(3).Textrs.Fields(born) = Text1(4).Textrs.Fields(home) = Text1(5).Textrs.UpdateFor i = 0 To 5Text1(i).Enabled = FalseNext icmdadd.Enabled = Truecmddelete.Enabled = Truecmdedit.Enabled = Truecmdsave.Enabled = Falsecmdcancel.Enabled = Falsecmdmove(0).Enabled = Truecmdmove(1).Enabled = Truecmdmove(2).Enabled = Truecmdmove(3).Enabled = True