高校学生信息管理系统毕业论文

高校学生信息管理系统毕业论文 江 西X X X X X 学 院 高校学生信息管理系统 毕业论文毕业论文 系别 信息工程系 专业班级 学生姓名 指导教师 指导教师职称 2014 年 4 月 日 高校学生信息管理系统设计说明 摘要摘要 学生信息管理系统是从学生的学生信息管理 学生学籍管理 院系信 息管理 学生奖惩管理 成绩管理及系统用户管理的全部业务功能进行管 理的系统 该系统能够自动地收集 存储 加工处理 查询检索和统计制 表 方便有效地提高学生工作办公自动化管理的水平 解决了日常繁杂的 数据 文件及历史资料的统计处理的重复性劳动 使过去许多只能定性管 理的项目变为定量管理 从而提高学生工作管理的水平和质量 关键字 关键字 学生 信息 管理 系统 开发 引言 引言 为加强学生的管理工作 我们为某校开发了 学生管理信息系统 解决了该校学生管理工作程序复杂 不规范等问题 优化了管理流程 实 现了该校学生管理工作的无纸化办公 目录目录 1 前 言 5 2 系统技术及运行环境 5 2 1 Visual Basic 6 0 简介 5 2 2 系统开发及运行环境 5 3 系统分析 5 3 1 需求分析 5 3 2 可行性分析 5 4 系统设计 5 4 1 设计目标 5 4 2 项目规划 5 4 3 系统流程图 5 5 系统详细设计 5 5 1 数据库需求分析 5 5 2 数据库逻辑结构设计 5 6 系统实现 5 6 1 系统初始界面 5 6 2 附加数据库 5 6 3 登陆界面设计 5 6 4 学生信息录入 5 6 5 学生信息修改 5 6 7 学生成绩录入 5 6 8 修改学生成绩 5 6 10 用户管理 5 6 11 修改用户密码 5 6 12 关于系统 5 结论 5 致 谢 5 参考文献 5 1 1 1 前前 言言 高校学生信息管理 University students information management 是高校教 学管理的一项重要工作 现代化的高校学生信息管理需要现代化的信息管理系统支持 是典型的管理信息系统 Management Information System 从 20 世纪九十年代开始 为适应新世纪人才培养的目标 国内高校教育体制进行了大规模的改革 我国的教育 事业蓬勃发展 升学率普遍提高 各类大专院校规模不断扩大 对于学生管理工作的 高效性和规范化提出了更高的要求 作为学校管理工作的一个重要组成部分 学生 信息管理 所涉及到的信息量之大 数据之繁琐 可以想像用手工对这些数据进行操 作有多么的复杂与繁琐 因此自动化的学生信息管理系统应运而生 而学生信息管理 的工作量非常大 为保证学生管理工作的顺利进行 改善管理手段 有必要开发一套 适合高等院校实际情况 能解决实际问题的学生管理信息系统 及时 准确的为管理 人员提供学生 班级等各类信息 并提供标准化 查询 修改等管理功能 学生信息管理系统是在大 中学校中很通用的信息管理系统 本项目用于实现学 生信息管理的电子化 减轻管理人员的工作负担 规范 高效地管理大量的学生信息 它具备高校学生工作部门的学生管理的日常事务性工作及各类数据的自动化处理功能 从学生的学生信息管理 学生学籍管理 院系信息管理 学生奖惩管理 成绩管理及 系统用户管理的全部业务功能 该系统能够自动地收集 存储 加工处理 查询检索 和统计制表 方便有效地提高学生工作办公自动化管理的水平 解决了日常繁杂的数据 文件及历史资料的统计处理的重复性劳动 使过去许多只能定性管理的项目变为定量 管理 使传统的由人工事务性管理模式转化为借助现代化技术和手段实现的科学化管 理模式 不仅节省人力和物力 提高办公效率 而且使管理的方式从过程管理转变为 目标管理 从数量管理转变为质量管理 有助于提高学生工作管理的水平和质量 本系统将采用 java jsp javaee 技术 MVC 模式进行开发 采用 SQL Server 作为学生信息管理系统的后台数据管理工具 课题以学生信息管理为背景 通过研究 当前学生成绩信息管理系统的管理现状 存在问题以及现实需求 设计一个针对学生 成绩信息管理系统工作的管理信息系统 2 2 2 系统技术及运行环境系统技术及运行环境 2 12 1 VisualVisual BasicBasic 6 06 0 简介简介 Visual Basic 6 0 是 Microsoft 公司成功的变成语言产品之一 在全世界有数以 百万计的用户 它之所以受到人们的青睐 原因是多方面的 但主要的有两点 一是 功能强大 二是容易掌握 随着版本的更新 Visual Basic 已成为真正专业化的大型开发语言和环境 不公 功能越来越强 而且更容易使用 Visual Basic6 0 所提供的开发环境与 Windows 具有 完全一致的界面 使用更方便 其代码效率已达到 VisualC 的水平 2 2 2 2 系统开发及运行环境系统开发及运行环境 该运行环境的规定是保证本需求说明的功能得到实际真正体现的基础 1 运行环境 WindowsXP 或更高版本的操作系统 数据库系统 Microsoft SQL Server 2000 2 开发环境 开发工具 Microsoft Visual Basic 6 0 数据库系统 Microsoft SQL Server 2000 3 3 3 系统分析系统分析 3 13 1 需求分析需求分析 21 世纪以来 人类经济高速发展 人们发生了日新月异的变化 特别是计算机的 应用及普及到经济和社会生活的各个领域 使原本的旧的管理方法越来越不适应现在 社会的发展 许多人还停留在以前的手工操作 这大大地阻碍了人类经济的发展 为 了适应现代社会人们高度强烈的时间观念 学校信息管理系统软件为学校办公室带来 了极大的方便 一 教育系统学生管理现状分析 学校工作流程分析 学校工作总体规划由教务人员在学生信息管理系统中完成对运行教务处所需的基 本数据的维护 包括这些信息的增加 修改及对各项信息的变动都将在这进行操作 新的学年 教务人员首先加入年级信息 然后编排班级 再对来校学生进行基本 的信息录入 新生入学后由教务人员在学籍系统中完成新学生信息的维护 二 学校具体需求分析 学生 对各科成绩的查询 任课老师 输入并维护所教科目的学生成绩 教务处 学校全体成员的信息管理 并对任课老师 班主任等输入的信息进行存 库 对学生的信息进行必要的维护 通过研究调查 本系统需以下功能 综合学生信息 学生成绩以及信息查询等信息 方便用户了解和管理学生的全面动态信息 良好的界面设计 更人性化的设计理念 使用户拥有更轻松的使用心情 3 23 2 可行性分析可行性分析 目的 可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能解决 经济性 由于学校等中小型管理系统并不复杂 且 Visual Basic 6 0 本身要求的运行环境 不高 所以一般 Windows 2000 以上的系统环境都可以使用 实用性 本学生信息管理系统管理系统无太多复杂的操作要求 也没有过分花哨的装饰品 人性化的设计界面可以使操作者轻易运用自如 4 4 4 系统设计系统设计 4 14 1 设计目标设计目标 本系统可以能减少很多不必要的资源 不用象以前那样用冗余的纸张式的管理 大节省了学校能源 并且计算机的存储与快速查询功能大大提高了学籍管理的效率 并且还提高了学籍信息管理的精确度 方便快速的操作 可减少学籍信息管理的漏洞 又减少因工作的冗余出现的错误 并且操作非常简单 可减少许多不很必要的人员 这无论从物质上还是工作人员的工 资上都为学校节约了开支 为学校增加了财富 数据库分析 用户需求具体有学籍管理系统提供保存 更新 查询 维护 这就需求数据库结 构能充分满足各种信息的输入与输出 实现有组织地 动态地存储大量关联数据 方 便用户访问系统中的数据 它与文件系统的重要区别是数据的充分共享 交叉访问 与应用程序的高度独立性 4 24 2 项目规划项目规划 学生管理系统是各大中专院校不可缺少的一部分 是一个 VB SQL 数据库开发应 用程序 它主要包括用户登录 学生信息输入修改 学生信息查询以及学生成绩输入 学生成绩查询 系统用户管理等几个页面 因而该系统具有较强的实用性 5 4 34 3 系统流程图系统流程图 院系信息管理 学生信息管理 系统用户管理 学生奖惩管理 学生学籍管理 成绩管理 学生基本信息 管理 学生教育经理 管理 退学 修学管 理 转学 调班管 理 针对各个模块不同的表实现添加记录 修改记录 删除记录 以及查询显示记录 等功能 课程设置 学生成绩管理 系统初始化 附加数据库 系统登录 系统主界面 学生信息管理系统 6 5 5 系统详细设计系统详细设计 5 15 1 数据库需求分析数据库需求分析 学生注册 个人信息输 入 学生信息管理考核输 入 课程选 择 考核信息管 理 课程信息管 理 其它系统数据接 口 考核信息 课程设置 7 5 25 2 数据库逻辑结构设计数据库逻辑结构设计 1 kc 课程 见表 1 表 5 1 字段名数据类型是否允许为空说明 课程号Char 3 Not null 主键 课程名Char 16 Not null 开课学期 tinyintNot null 只能为 1 8 学时 tinyintNot null 学分 tinyintnull 2 xs kc 学生选课 见表 2 表 5 2 字段名数据类型是否允许为空说明 学号Char 6 Not null 主键 课程号Char 3 Not null 主键 成绩 tinyintnull 学分 tinyintnull 8 3 xs 学生 见表 3 表 5 3 字段名数据类型是否允许为空说明 学号Char 6 Not null 主键 姓名Char 8 Not null 专业名 Char 10 null 性别 Bit Null 男 1 女 0 出生日期 SmallDatetimeNull 总学分 tinyintnull 照片 imageNull 备注 textNull 4 user1 管理员登录 见表 4 表 5 4 字段名数据类型说明 角色 Char 3 用户名Char 6 主键 密码Char 6 Not null 5 user2 学生登录 见表 5 表 5 5 字段名数据类型说明 角色 Char 3 用户名Char 6 主键 密码Char 6 9 6 6 系统实现系统实现 6 16 1 系统初始界面系统初始界面 图 6 1 系统初始界面代码 Dim starttime As String Dim endtime As String Dim i As Integer Private Sub Form Load starttime Format Now hh mm ss End Sub Private Sub Timer1 Timer Dim ret As Integer endtime Format Now hh mm ss If DateDiff s starttime endtime 10 Then Dim cn As ADODB Connection Set cn New ADODB Connection Dim sqlres As ADODB Recordset cn Open Provider SQLOLEDB 1 Integrated 10 Security SSPI Persist Security Info False userid sa Initial Catalog master Set sqlres New ADODB Recordset sqlres Open SELECT FROM master sysdatabases WHERE name xscj cn adOpenDynamic adLockPessimistic If sqlres EOF False Then Label1 Caption 登陆成功 cn Close Unload Me Form1 Show Else ret MsgBox 是否加载数据库 vbYesNo XSCJ If ret vbYes Then cn Close Unload Me Form12 Show Else cn Close End End If End If End If End Sub Private Sub Timer2 Timer Dim str As String str 系统加载中 请等待 i i 1 If i 20 Then i 0 Label1 Caption Else Label1 Caption Label1 Caption Integrated Security SSPI Persist Security Info False userid sa Initial Catalog master cn Execute sp attach db dbname strdata filename1 m MsgBox 附加成功 XSCJ cn Close Unload Me Form1 Show Exit Sub dataerr MsgBox Err Description XSCJ cn Close End Sub 13 6 6 3 3 登陆界面设计登陆界面设计 图 6 3 登录 按钮的click事件添加如下的代码 Private Sub Command1 Click If Text1 Text Or Text2 Text Then MsgBox 请输入完整的登录信息 Text1 SetFocus Exit Sub End If If Text3 Text Then MsgBox 请输入验证码 Text3 SetFocus Exit Sub End If Dim i As Integer i Len Text1 Text If i 6 Then MsgBox 用户名应为六位数字 提示 14 Text1 SetFocus Text1 Text Exit Sub End If i Len Text2 Text If i 6 Then MsgBox 密码应为六位 提示 Text2 SetFocus Text2 Text Exit Sub End If If UCase Trim Text3 Text Trim Label4 Caption Then MsgBox 验证码输入错误 Text3 SetFocus Text3 Text Exit Sub End If Dim sqlcon As New ADODB Connection Dim sqlres As New ADODB Recordset Set sqlcon New ADODB Connection sqlcon Open connectstring If option1 Value Then Set sqlres New ADODB Recordset sqlres Open select from dlgl where 用户名 Trim Text1 Text and 密码 Trim Text2 Text connectstring adOpenDynamic adLockPessimistic If Not sqlres EOF Then juese option1 Caption yonghuming Trim Text1 Text mima Trim Text2 Text MsgBox 登录成功 sqlres Close Unload Me MDIForm1 Show Exit Sub Else sqlres Close 15 MsgBox 用户名或密码错误 Text1 Text Text2 Text Text3 Text Text1 SetFocus Randomize i Int Rnd 25 65 j Int Rnd 25 65 k Int Rnd 25 65 l Int Rnd 25 65 Label4 Caption Chr i Chr j Chr k Chr l Exit Sub End If End If If Option2 Value Then Set sqlres New ADODB Recordset sqlres Open select from dl where 用户名 Trim Text1 Text and 密码 Trim Text2 Text connectstring adOpenDynamic adLockPessimistic If Not sqlres EOF Then juese Option2 Caption yonghuming Trim Text1 Text mima Trim Text2 Text MsgBox 登录成功 sqlres Close Unload Me MDIForm1 Show Exit Sub Else sqlres Close MsgBox 用户名或密码错误 Text1 Text Text2 Text Text3 Text Text1 SetFocus Randomize i Int Rnd 25 65 16 j Int Rnd 25 65 k Int Rnd 25 65 l Int Rnd 25 65 Label4 Caption Chr i Chr j Chr k Chr l End If End If End Sub 6 46 4 学生信息录入学生信息录入 图 6 4 更新 按钮的click事件添加如下的代码 Private Sub Command1 Click Set sqlres New ADODB Recordset Adodc2 RecordSource select from xs where 学号 Trim Text1 Text 17 Adodc2 CommandType adCmdText Adodc2 Refresh Dim s As String Dim bytedata As Byte Dim adofld As ADODB Field s select from xs where 学号 Trim Text1 Text sqlres Open s connectstring adOpenDynamic adLockPessimistic If Not sqlres EOF Then sqlres Fields 1 Trim Text2 Text sqlres Fields 2 Combo1 Text If Option1 Value True Then sqlres Fields 3 1 Else sqlres Fields 3 0 End If If Trim Text5 Text Then sqlres Fields 5 CInt Text5 Text End If sqlres Fields 7 Trim Text4 Text sqlres Fields 4 DTPicker1 Value Set adofld sqlres Fields 照片 If CommonDialog1 filename Then Call picsavetodb adofld filename End If sqlres Update Adodc1 Refresh MsgBox 修改学生信息成功 vbOKOnly vbExclamation 修 改学生信息 Else sqlres AddNew sqlres Fields 0 Trim Text1 Text sqlres Fields 1 Trim Text2 Text sqlres Fields 2 Combo1 Text If Option1 Value True Then sqlres Fields 3 1 Else sqlres Fields 3 0 18 End If If Trim Text5 Text Then sqlres Fields 5 CInt Text5 Text End If sqlres Fields 7 Trim Text4 Text sqlres Fields 4 DTPicker1 Value Set adofld sqlres Fields 照片 If CommonDialog1 filename Then Call picsavetodb adofld filename End If sqlres Update Adodc1 Refresh Adodc1 Recordset MoveLast MsgBox 添加学生信息成功 vbOKOnly vbExclamation 添 加学生信息 End If CommonDialog1 filename sqlres Close Adodc1 RecordSource select from xs cxb where xs 性别 cxb 性别0 End Sub 19 6 56 5 学生信息修改学生信息修改 图 6 5 6 66 6 学生信息查询学生信息查询 图 6 6 查询 按钮的click事件添加如下的代码 20 Private Sub Command1 Click Dim str As String str select from xs cxb where xs 性别 cxb 性别 0 If Text1 Text And Text2 Text And Combo1 Text 所有专业 Then str select from xs cxb where 专业名 Trim Combo1 Text and xs 性别 cxb 性别 0 End If If Text1 Text And Text2 Text And Combo1 Text 所有专业 Then str select from xs cxb where xs 性别 cxb 性别 0 End If If Text1 Text And Text2 Text Then str select from xs cxb where 学号 Trim Text1 Text and xs 性 别 cxb 性别 0 End If If Text1 Text And Text2 Text Then str select from xs where 学号 Trim Text1 Text and 姓名 Trim Text2 Text End If If Text1 Text And Text2 Text Then str select from xs where 姓名 Trim Text2 Text End If str select from xs where 学号 Trim Text1 Text or 姓名 Trim Text2 Text or 专业名 Trim Combo1 Text Adodc1 RecordSource str Adodc1 CommandType adCmdText Adodc1 Refresh If Adodc1 Recordset EOF Then Text2 Text Combo1 Text 所有专业 21 Adodc1 RecordSource select from xs cxb where xs 性别 cxb 性别 0 Adodc1 Refresh Adodc1 Recordset MoveFirst End If If Text1 Text Or Text2 Text Then Combo1 Text Adodc1 Recordset 专业名 End If End Sub 6 76 7 学生成绩录入学生成绩录入 图 6 7 更新 按钮的click事件添加如下的代码 Private Sub Command1 Click Dim 学号 课程名 成绩 学分 If Trim Text2 Text Then MsgBox 成绩不能为空 请输入完整的信息 提示 Text2 SetFocus 22 Exit Sub End If sqlcmd CommandText addscore sqlcmd CommandType adCmdStoredProc Set 学号 sqlcmd CreateParameter 学号 adVarChar adParamInput 6 sqlcmd Parameters Append 学号 Set 课程名 sqlcmd CreateParameter 课程名 adVarChar adParamInput 16 sqlcmd Parameters Append 课程名 Set 成绩 sqlcmd CreateParameter 成绩 adInteger adParamInput sqlcmd Parameters Append 成绩 Set 学分 sqlcmd CreateParameter 学分 adInteger adParamInput sqlcmd Parameters Append 学分 sqlcmd 学号 Combo3 Text sqlcmd 课程名 Combo2 Text sqlcmd 成绩 CInt Text2 Text sqlcmd 学分 0 Set sqlres sqlcmd Execute MsgBox 更新选课成绩成功 提示 sqlcmd Parameters Delete 学号 sqlcmd Parameters Delete 课程名 sqlcmd Parameters Delete 成绩 sqlcmd Parameters Delete 学分 Adodc1 RecordSource select xs kc 学号 姓名 专业名 课程名 成绩 xs kc 学分 from xs kc xs kc where 课程名 Trim Combo2 Text and 专业名 Trim Combo1 Text and xs 学号 xs kc 学号 and kc 课程号 xs kc 课程号 Adodc1 Refresh Adodc1 Recordset MoveLast End Sub 23 6 86 8 修改学生成绩修改学生成绩 图 6 8 6 96 9 学生成绩查询学生成绩查询 图 6 9 24 6 106 10 用户管理用户管理 图 6 10 窗体的代码如下 Private sqlcon As New ADODB Connection Private sqlres As New ADODB Recordset Private Sub Command1 Click sqlres MoveFirst Text1 Text sqlres Fields 0 Text2 Text sqlres Fields 1 Text3 Text sqlres Fields 2 End Sub Private Sub Command2 Click sqlres MovePrevious If sqlres BOF Then sqlres MoveFirst End If Text1 Text sqlres Fields 0 Text2 Text sqlres Fields 1 Text3 Text sqlres Fields 2 25 End Sub Private Sub Command3 Click sqlres MoveNext If sqlres EOF Then sqlres MoveLast End If Text1 Text sqlres Fields 0 Text2 Text sqlres Fields 1 Text3 Text sqlres Fields 2 End Sub Private Sub Command4 Click sqlres MoveLast Text1 Text sqlres Fields 0 Text2 Text sqlres Fields 1 Text3 Text sqlres Fields 2 End Sub Private Sub Command5 Click Dim a As Integer a MsgBox 是否删除角色为 Trim Text1 Text 用户名为 Trim Text2 Text 记录 vbYesNo 提示 If a 6 Then sqlres Delete sqlres Update End If End Sub Private Sub Command6 Click Unload Me FrmMain Show End Sub Private Sub Form Load Me Height 5355 Me Left 5000 Me Top 2000 26 Me Width 7515 Set sqlcon New ADODB Connection sqlcon Open connectstring Set sqlres New ADODB Recordset sqlres Open select from dlgl connectstring adOpenDynamic adLockPessimistic If Not sqlres EOF Then Text1 Text sqlres Fields 0 Text2 Text sqlres Fields 1 Text3 Text sqlres Fields 2 Else MsgBox 无记录 Command1 Enabled False Command2 Enabled False Command3 Enabled False Command4 Enabled False Command5 Enabled False Exit Sub End If End Sub Private Sub Form Unload Cancel As Integer sqlcon Close End Sub 27 6 116 11 修改用户密码修改用户密码 图 6 11 确定 按钮的click事件添加如下的代码 Private Sub Command1 Click If Text1 Text Or Text2 Text Or Text3 Text Then MsgBox 请输入完整信息 Text1 SetFocus Exit Sub End If i Len Text1 Text If i 6 Then MsgBox 密码应为六位 提示 Text1 SetFocus Text1 Text Exit Sub End If i Len Text2 Text If i 6 Then MsgBox 密码应为六位 提示 Text2 SetFocus 28 Text2 Text Exit Sub End If If Trim Text3 Text Trim Text2 Text Then MsgBox 前后输入的密码不一致 Text3 SetFocus Text3 Text Exit Sub End If If juese 管理员 Then Set sqlres New ADODB Recordset sqlres Open select from dlgl where 用户名 yonghuming and 密码 Trim Text1 Text connectstring adOpenDynamic adLockPessimistic If Not sqlres EOF Then sqlres Fields 2 Trim Text2 Text sqlres Update Else MsgBox 原密码输入有误 Text1 SetFocus Text1 Text Text2 Text Text3 Text Exit Sub End If End If If juese 学生 Then Set sqlres New ADODB Recordset sqlres Open select from dl where 用户名 yonghum