急求一份信息管理系统课程设计,哪位能否帮助一下?
发布网友
发布时间：2022-09-06 19:45
共1个回答
热心网友
时间：2024-10-28 16:38
一 . 引言
1.系统名称：学生成绩管理信息系统
2.开发目标：开发出一个操作简便，界面友好，灵活实用，安全可靠的学生成绩管理信息系统。
该系统的开发以教务管理人员和任课教师服务为对象，能够提高学校对学生成绩的统计分析效率，减轻教务管理人员对学生成绩管理和统计的负担，提高学校对学生成绩的规范化管理。
该成绩管理系统能够及时对学生成绩进行收集整理，使学校相关部门及时获取可靠的学生成绩信息，便于管理。
3.主要功能：
本系统的使用者根据其使用者------教务处管理人员和任课教师-----可分为以下几方面：
（1）教务处管理人员登陆后，进入教务人员管理模块，可以进行个人信息查询，教师住处职称工资情况的查询，学生信息查询，成绩查询以及退出系统等操作。
（2）教师登陆教师管理子系统，要能够对学生成绩进行权限范围内的录入、添加、修改、删除、查询；查询教师信息、更改个人登陆密码、修改个人信息等；
（3）学生单科成绩、全科成绩的总分、平均分，最高分、最低分，排序等计算和统计实现自动化；可以按班级、按个人进行信息查询；信息可以发布到网络，以实现数据共享；
（4）能够自动进行录入错误检查
4.开发背景
每个学校都需要在学期末进行期末考试成绩的统计分析工作，而这些工作都必须在考试结束后近一个星期的时间内完成。大量的成绩数据的统计分析工作如果只靠人工来完成，费时费力，还容易出错。随着计算机技术的飞速发展，计算机在日常管理应用中迅速普及，利用计算机进行学生成绩管理势在必行。因此需开发出一个能满足学校进行成绩的录入，统计，查询，报表和打印等需求的、功能完善、安全可靠、迅速简便的成绩管理信息系统。
二. 系统目标和开发的可行性
1.系统目标：
(1)为教务处管理人员提供各学期、各年级、各班级学生的基本成绩信息，以作为其进行成绩汇总，分析和考绩和总结评比的依据。
(2)方便各任课教师记录，统计所带班学生成绩，提高工作效率，减轻负担；总结经验，提高教学质量。
(3)实现快速方便地处理大量成绩数据信息，完成成绩的录入、添加、修改、删除、统计、查询、排序等处理要求。
(4)输出和打印成绩单和各种成绩报表。
2.开发的可行性
(1)系统的名称、功能、目标等已如前所述，此地不再重复。
(2)系统环境以及工具：
A. 软件环境：
用户端：Windows2000，Windows2003，Windows XP
服务器端：WindowsNT/Windows2000及以上操作系统
编程语言：SOL
数据库：Access2003
B 硬件环境：
有高性能的电子计算机、大容量的存贮装置，个人电脑（终端）以及联结起来的网线等，组成信息资源共享的计算机网络，有共享的打印机，扫描仪等等
（3）系统设计原则：
1) 系统运行安全可靠，稳定性好；
2) 系统的可管理性和可维护性好；
3) 系统输入界面友好，操作简便易行，尽量减少用户的输入工作量；
4）允许多种数据输入方式，能实现多种查询，允许进行模糊查询；
5）数据具有规范性，整体性，方便数据之间的比较分析。
（4）系统可行性分析：
A． 技术可行性：系统要求在windows2000以上环境运行，后台数据库采用access2003，使用SOL编程，采用ADO方式连接数据库，这些在目前都是容易实现的。程序将部分需要经常调用的数据存入内存，可提高程序运行速度．
B．经济可行性：在经济上，用此系统加强了成绩信息管理效率，为教务人员提供了较高的效率，可节省人力资源的开支。
C．管理的可行性：在工作上，教务人员管理学生信息量非常大，开发了此系统，可极大提高教务人员的工作的效率。方便成绩的储存和修改，及以后随时查询成绩信息，是一个比较人性化的管理系统。
（5）．系统分析结论：
由以上分析得出，本系统可进行开发。
三. 现行系统概况
1.现行系统现状调查
现有的学生成绩管理系统主要是以成绩数据信息的存储和统计为目标，而且系统的设计繁琐，管理不够专人化，需要的人员过多，因此系统的安全性保密性不好；查询功能简单，数据共享性不高。
2.系统需求说明
（1）系统需要在实现数据录入，存储，统计自动化的基础上增强查询功能；
（2）要能够充分利用网络扩大信息共享程度；
（3）设专人管理员，明确划分管理权限，规范管理，以提高系统的安全性保密性。
四. 新系统的逻辑方案
1.业务流程图
2．数据流程图
（1）顶层图：
（2）第一层：
（3）第二层：
A:身份验证图：
B:成绩变动处理科：
C:教务人员身份验证：
3.数据字典
A:数据存储条目：
编号 名称 组成
D1.1
教师信息表 教师编号,教师姓名,教师职称,所教班级,所在学院
D1.2
学生成绩记录单 学生学号，姓名，课程名称，课程编号，课程成绩，教师编号
D1.3
教务人员信息表 教务人员姓名，编号，职称
D1.4
反馈信息表 教务处人员信息后对教师的评价，学生成绩的分析
B:数据加工条目：
编号 名称 输入 处理逻辑 输出
P1.1 身份验证处理 教师登陆信息 检验教师教工号与密码是否一致 ———
P1.2 成绩变动处理 学生学科成绩 录入、修改、删除成绩并检验是否输入错误 学生成绩记录单
P1.3 成绩查询处理 学生班别、学号、姓名 查询学生成绩，排序等 学生成绩记录单
P1.4
身份验证处理 教务人员登陆信息量 检验教务人员编号与密码 ———
P1.5 成绩查询处理 学院编号、年级、学号 查询班级成绩、排序及学期平均分等 学生成绩记录单及对教师的反馈信息
C:数据元素项目：
编号 名称 数据类型 长度 小数位 取值范围 说明
01 教师编号 N 8 0
02 教师名字 C 8
03 教师职称 C 6
04 所教班级 N 8 0
05 学生学号 N 8 0
06 学生姓名 C 8
07 课程名称 C 16
08 课程编号 N 10
09 成绩 N 3 1 0~~100
10 教务人员编号 N 8 0
11 教务人员姓名 C 8
12 教务人员职称 C 6
五．系统实施计划：
1．工作任务分工：
系统初步规划：
实验报告填写及图表绘制：
系统编程：，
后期系统检测完善：
2．进度安排：
系统分析阶段：2006.6.11—2..6.6.13
系统设计阶段：20066.20—2006.6.24
系统实施阶段：2006.25—2006.6.29
__________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
2系统设计报告：
系统设计报告
一、概述
以需求分析说明书为依据，针对教务管理人员及教师对学生成绩的管理需求，参照现有的开发环境，利用可用资源和使用环境，设计出能满足相应功能的特点,构造并确定出类和类成员函数。
二、环境说明
1．硬件环境：CPU型号为Pentium Ⅲ以上，内存128M以上。
系统环境：Windows98 及WindowsXP等系统均可。
2．开发环境：Access软件下开发，此软件是面向对象的开发工具，易于上手，而且界面比较友好
三、模块图
四、功能模块
本系统大致分为如下四大功能模块。
1．用户登陆模块
用户登陆模块：（教务处管理人员---叶飞—密码：950281）
（教师---刘力—密码：980102）
A:教务处管理人员登陆后，进入教务人员管理模块，可以进行个人信息查询，教师住处查询，学生信息查询，成绩查询以及退出系统等操作。
B:教师登陆后，进入教员管理模块，可以进行个人资料修改，学生信息查询，本班成绩查询，其它班成绩查询，退出登陆等操作。
2．查询及修改模块
包括以下四个模块：
A:学生个人信息查询模块：此模块又分为学生个体模块和班级模块。学生个体模块包含了学生的基本信息以及成绩，可进行如学生所在班组，学院，专业，英语成绩等相关查询操作；
在班级模块则可按班级查询学生的信息。
B:教师信息查询及修改模块：此模块主要服务于教务管理人员，可以通过打开“教师表”或“单个教师信息”进行总体或指定个体查询，如对教师工龄、工资额的设定，对各个工龄段及相应的工龄工资额进行修改、添加、删除等操作。
C:成绩查询及修改模块：该模块又分为三部分：按指定学号进行学生个体成绩查询及修改； 按指定教工号进行教师所教班级成绩查询； 按指定班级号或专业号进行综合成绩查询其中还包括教师对其它班成绩的查询（但不无修改权）。
成绩查询具体内容包括指定科目成绩查询，成绩排序，排名，平均分和不及格科目查询等
D:用户信息修改模块：此模块用于教务管理人员及教师修改密码或用户名，教师教课班级及工资职称等信息的修改。
3．退出模块
查询修改完毕，通过退出模块退出成绩管理系统，以确保系统及个人信息的安全。
五、代码设计：
1 用户登陆模块代码：
A：教务处管理人员登陆
◆Private Sub 教务处人员登录_Click()
On Error GoTo Err_教务处人员登录_Click
Dim stDocName As String
stDocName = ChrW(25945) & ChrW(21153) & ChrW(22788) & ChrW(20154) & ChrW(21592) & ChrW(30331) & ChrW(24405)
DoCmd.RunMacro stDocName
Exit_教务处人员登录_Click:
Exit Sub
Err_教务处人员登录_Click:
MsgBox Err.Description
Resume Exit_教务处人员登录_Click
End Sub
B: 教师登陆
◆Private Sub 教师登录_Click()
On Error GoTo Err_教师登录_Click
Dim stDocName As String
stDocName = ChrW(25945) & ChrW(24072) & ChrW(30331) & ChrW(24405)
DoCmd.RunMacro stDocName
Exit_教师登录_Click:
Exit Sub
Err_教师登录_Click:
MsgBox Err.Description
Resume Exit_教师登录_Click
End Sub
◆Private Sub ok_Click()
If Len(Nz(Me!UserName)) = 0 And Len(Nz(Me!UserPassword)) = 0 Then
MsgBox "用户名、密码为空！请输入", vbCritical, "error"
Me!UserName.SetFocus
ElseIf Len(Nz(Me!UserName)) = 0 Then
MsgBox "用户名为空！请输入", vbCritical, "error"
Me!UserName.SetFocus
ElseIf Len(Nz(Me!UserPassword)) = 0 Then
MsgBox "密码为空！请输入", vbCritical, "error"
Me!UserName.SetFocus
Else
If Me!UserName = "刘力" Then
If UCase(Me!UserPassword) = "980102" Then
MsgBox "欢迎使用！", vbInformation, "成功"
DoCmd.OpenForm "教师-综合信息查询"
Else
MsgBox "密码有误，非正常退出。", vbCritical, "error"
DoCmd.Close
End If
Else
MsgBox "用户名有误，非正常退出。", vbCritical, "error"
DoCmd.Close
End If
End If
End Sub
2 学生个人信息查询模块代码
A:指定学生信息查询：
◆ Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
Dim stDocName As String
stDocName = ChrW(23398) & ChrW(29983) & ChrW(20010) & ChrW(20154) & ChrW(20449) & ChrW(24687) & ChrW(26597) & ChrW(-29726)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Sub
B:班级所有学生信息查询：
◆Private Sub Command20_Click()
On Error GoTo Err_Command20_Click
Dim stDocName As String
stDocName = ChrW(29677) & ChrW(32423) & ChrW(23398) & ChrW(29983) & ChrW(20449) & ChrW(24687) & ChrW(26597) & ChrW(-29726)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command20_Click:
Exit Sub
Err_Command20_Click:
MsgBox Err.Description
Resume Exit_Command20_Click
End Sub
3 教师信息查询及修改模块代码
A:指定教师信息查询
◆Private Sub Command13_Click()
On Error GoTo Err_Command13_Click
Dim stDocName As String
stDocName = ChrW(25945) & ChrW(24072) & ChrW(20449) & ChrW(24687) & ChrW(21333) & ChrW(20010) & ChrW(26597) & ChrW(-29726)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command13_Click:
Exit Sub
Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click
End Sub
B:全体教师信息查询：
◆Private Sub Command14_Click()
On Error GoTo Err_Command14_Click
Dim stDocName As String
stDocName = ChrW(25945) & ChrW(24072) & ChrW(20449) & ChrW(24687) & ChrW(26597) & ChrW(-29726)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command14_Click:
Exit Sub
Err_Command14_Click:
MsgBox Err.Description
Resume Exit_Command14_Click
End Sub
4 成绩查询及修改模块代码
A:指定学生个体成绩查询：
◆Private Sub Command23_Click()
On Error GoTo Err_Command23_Click
Dim stDocName As String
stDocName = ChrW(23398) & ChrW(29983) & ChrW(20010) & ChrW(20154) & ChrW(25104) & ChrW(32489) & ChrW(26597) & ChrW(-29726)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command23_Click:
Exit Sub
Err_Command23_Click:
MsgBox Err.Description
Resume Exit_Command23_Click
End Sub
B: 指定班级综合成绩查询
◆Private Sub Command24_Click()
On Error GoTo Err_Command24_Click
Dim stDocName As String
stDocName = ChrW(25353) & ChrW(29677) & ChrW(32423) & ChrW(26597) & ChrW(-29726) & ChrW(23398) & ChrW(29983) & ChrW(25104) & ChrW(32489)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command24_Click:
Exit Sub
Err_Command24_Click:
MsgBox Err.Description
Resume Exit_Command24_Click
End Sub
5 用户信息修改模块代码
◆Private Sub Command28_Click()
On Error GoTo Err_Command28_Click
Dim stDocName As String
stDocName = ChrW(25945) & ChrW(21153) & ChrW(22788) & ChrW(20154) & ChrW(21592) & ChrW(20449) & ChrW(24687) & ChrW(26597) & ChrW(-29726)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command28_Click:
Exit Sub
Err_Command28_Click:
MsgBox Err.Description
Resume Exit_Command28_Click
End Sub
6 退出模块代码
◆Private Sub Command31_Click()
On Error GoTo Err_Command31_Click
DoCmd.Quit
Exit_Command31_Click:
Exit Sub
Err_Command31_Click:
MsgBox Err.Description
Resume Exit_Command31_Click
End Sub
__________________________________________________________________________________________________________
3系统实施报告
