资源描述
<p>mis课程设计报告 营销071 顾文龙04号
———————————————————————————————— 作者：
———————————————————————————————— 日期：
2
个人收集整理 勿做商业用途
理工学院
MIS课程设计
课程设计题目: 学籍信息管理系统
专 业 班 级： 市场营销071班
学 生 姓 名: 顾文龙
学 号： 071611104
指 导 教 师： 蒋玉国 杨明欣
2010年 3月12日
目 录
1 引言 1
2 系统调查与可行性研究 3
2.1 初步调查 4
2.2 可行性研究 4
3 系统分析 8
3。1 业务流程分析 8
3。2 数据流程分析 8
3。3 数据字典 8
4 系统设计 8
4。1 功能结构设计 9
4.2 数据库设计 9
4。3 代码设计 11
4.5 系统配置设计 12
参考文献 14
附录 22
1.引言
随着Internet/Intranet的快速发展，数据库技术的进一步成熟，建立能
业务化工作的学生学籍管理系统是当前高校管理部门的迫切要求。学籍管理系统对于学校的决策者和管理者来说都至关重要,所以学籍管理系统应该能够为用户提供充足的信息和快捷的查询手段。
每个学校都需要在学期末进行期末考试成绩的统计分析工作，而这些工作都必须在考试结束后近一个星期的时间内完成。大量的成绩数据的统计分析工作如果只靠人工来完成，费时费力，还容易出错。因此需开发出一个能满足学校进行成绩的录入,统计，查询，报表和打印等需求的、功能完善、安全可靠、迅速简便的成绩管理信息系统。
本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析访客管理的不足，创建了一套行之有效的计算机管理学生的方案.文章介绍了访客管理信息系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计;系统实现部分说明了几个主要模块的算法， 本系统面友好，操作简单,比较实用。
2。系统调查与可行性研究
2。1初步调查
随着现代学校的规模不断扩大，近几年的高校招生人数的不断扩大，学生人数急剧增加，有关学生的各种信息也成倍增长。手工管理已不能满足当前的需要。面对庞大的信息量,学校有必要开发学生学籍信息管理系统来提高学生管理工作的效率.通过这样的系统，可以做到信息的规范管理、科学统计和快速查询，从而减少学生管理方面的工作量。
本学生学籍信息管理系统包括学籍信息管理、课程信息管理、成绩信息管理三大模块.其中每个模块包括了查看、录入、修改。程序设计者可以录入,修改,而学生只能查看信息.
2。2 系统可行性分析
进行系统可行性研究是为了用最小的代价在尽可能短的时间内确定该软件项目是否能够开发，是否值得开发。它的任务就是先进行概要的分析和研究，确定系统的规模和目标,限制条件等，进而抽象出该系统的逻辑模型。根据该模型来提出解决该问题的若干方法，并研究各个方法的可行性。
2.1.1。技术可行性。
分析当前的软，硬件技术能否满足对系统提出的要求并考虑开发人员的技术水平。本系统所用开发工具为Visual Basic编程语言和Access数据库.由于本系统主要是进行数据库的查询、插入、删除、修改等操作，因此两者者的结合完成本系统的开发完全可行.所以本系统在技术上完全可行。
2.1.2。经济可行性
主要是预估费用支出和对项目的经济效益进行评价。本系统所要求的硬件配置非常低，可以在一台个人计算机上运行。只需要价格低廉的计算机本系统就能在其上面顺利地运行，并有有相关技术人员操作即可。相关软件网上有免费下载，可以进行免费下载.因为此系统的开发和操作十分简单，所以相关人员的培训花费也比较低。但带来的效益却是巨大的，可以大大降低学籍管理的成本并且使之更有效。所以本系统在经济上完全可行。
2。1。3社会上的可行性：
原来的学籍管理多是以纸的形式记录，文件十分容易丢失，不易保存，更新十分不方便。本系统可以储存大量的信息，更新也十分方便。由于本系统操作极其简单，并且只需对相关人员进行简单培训系统的培训,他们即可顺利使用本系统.所以本系统在社会上完全可行.
3 系统分析
系统分析是指以系统的观点,对已选定的对象与开发范围进行有目的、有步骤的实际调查和科学分析,是用图表和文字从逻辑上定义目标系统。系统分析的任务：在现行系统的基础上建立一个满足用户需求的新系统的逻辑模型。
步骤:
初步调查与可行性分析,确认新系统开发为可行；进行详细调查与分析，提出新系统逻辑模型；最后写出系统分析报告.
3。1业务流程图：
学籍管理员把新生学籍信息表，教务处把课程安排表,任课教师把学生成绩表交给学籍管理部门，此部门整理出学生信息提供给学生。
学籍管理员
教务处
任课教师师
新生学籍信息表
课程安排表
学生成绩表
学生
学籍管理部门
学籍信息
3.2 数据流程分析
3.2.1。顶层数据流程图：
学籍管理员，教研组,任课教师把信息经过系统处理供学生查看.
学籍管理员
教研组
任课教师
新生学籍信息单
课程安排单
学生成绩单
学籍信息管理系统
学籍信息
学生
3。2.2。，一层数据流程图
学籍管理员经过学籍管理系统把信息存到新生学籍信息表，教研组经过课程管理系统把信息存到课程安排信息表,任课教师经过成绩管理系统把信息存到学生成绩信息表，最后学生可以查看信息。
学籍管理员
教研组
任课教师
新生学籍信息单
课程安排单
学生成绩单
P1
学籍管理
P2
课程管理
P3
成绩管理
新生学籍信息表
课程安排信息表
学生成绩信息表
F1
F2
F3
学生
3。2.3，学籍管理的数据流程图
学籍管理员把学籍信息录入系统,如果信息正确存到新生学籍表里,如果错误修改后存入此表，学生可以查看。
学籍管理员
新生学籍信息单
P1，1
录入学籍信息
正确数据
错误数据
P1，2
修改学籍信息
F1
新生学籍信息表
正确数据
学生
课程信息管理和成绩信息管理的处理过程与学籍信息管理的相同。
3。3数据字典
数据流：
教务部门、学生、教师、教师专业院系信息、分类信息、成绩单、学生情况等.
4.系统设计
此系统分为功能结构设计，数据库设计，代码设计，输入输出设计,配置设计.
4。1功能结构设计
本学生信息管理系统包括学籍信息管理、班级信息管理、课程信息管理、成绩信息管理四大模块。其中每个模块包括了添加、修改、查询.程序设计者可以录入，修改，而学生只能查看信息。
学生信息管理系统
学籍管理功能
班级管理功能
课程管理功能
成绩管理功能
学籍添加
学籍修改
学籍查询
班级添加
课程添加
课程修改
课程查询
成绩添加
成绩修改
成绩查询
班级修改
班级查询
4.2数据库设计：
数据库设计首先要进行数据分析和处理,如分析应用系统需要存储哪些数据,而且要从优化表结构和减少数据冗余和角度考虑,合理地建立一系列的表。用表设计器设计好表结构后，为了保持数据的完整性和一致性，这些表要添加到数据库中,并且要建立永久关系和参照完整性。
此系统的数据信息主要包括：新生学籍信息表，课程安排信息表，学生成绩信息表。以下是各表所包含的信息项：
4.2。1新生学籍信息表：
编号 字段名 数据类型 长度 说明
01 姓名 Char 16 索引（升序)
02 性别 Char 2 索引（升序)
03 出生日期 Data 8 索引（升序)
04 学院 Char 8 索引（升序）
05 专业 Char 8 索引(升序）
06 入学时间 Data 8 索引(升序）
4.2。2.课程安排信息表：
编号 字段名 数据类型 长度 说明
01 科目名称 Char 20 索引（升序)
02 课时 Char 2 索引（升序)
03 学分 Char 3 索引(升序）
04 上课时间 Char 8 索引（升序)
05 学期 Char 1 索引（升序）
4。2.3学生成绩信息表：
编号 字段名 数据类型 长度 说明
01 姓名 Char 16 索引（升序）
02 学院 Char 8 索引（升序）
03 专业 Char 8 索引（升序)
04 科目名称 Char 20 索引（升序)
05 课时 Char 2 索引（升序）
06 学分 Char 3 索引(升序）
07 学生成绩 Char 2 索引（升序)
本系统的实体有：学生实体、班级实体、年级实体、课程实体.各个实体具体的描述E-R图如图下所示。
学生
基本信息
班级
成绩
课程
图4—2 学生实体E—R图
班级
所在年级
班主任
所在教室
班号
图4-3 班级实体E—R图
课程
名称
编号
描述
类型
图4—4 课程实体E—R图
年级
包括班级
设置课程
课程
图4-5 年级实体E-R图
学生
班级
年级
课程
1
n
n
n
n
m
m
n
n
1
1
1
图4—6 实体之间关系E-R图
4。3代码设计:
4.4输入输出设计
输入输出设计是进行数据存储和满足用户需求的主要方式.在本系统中,输入输出都本着方便信息录入人员，满足管理者的需求来进行设计的。
4。4。1输入设计
在输入设计上，主要是学生学籍信息,课程安排，学生成绩的录入与修改。在输入操作上均可使用界面输入，输入数据后单击位于屏幕下端的“确定”按钮进行保存即可。
4。4。2输出设计
用户查询相关信息主要是界面输出，主要是学生查看学籍，课表，成绩信息,可以在系统的网页上浏览 ,也可以打印出来。
4。5系统配置
本系统应用的是Visual Basic 6.0开发平台，配置能够满足其要求即可。主要为：
① Dell兼容机，具有80486 50MHz以上处理器
② 鼠标
③ 内存为1G
④ 硬盘的最小空间为45G;采用用户自定义安装需要128G硬盘空间;采用完全安装所有联机文档需要160G硬盘空间
⑤ VGA或更高分辨率的显示器
⑥ 对于网络操作，需要有一个与Windows兼容的网络和一个网络服务器
⑦ 中文Windows xp或Windows vista
总结
通过本次课程设计,使我对管理信息系统的设计方法、步骤、思路，有一定的了解与认识，是一次管理信息系统设计的真实模拟。在课程设计过程中，我按照规定的程序进行，先收集、调查相关的各类资料，找出当前管理信息系统的几种必要急需的需求，经过思考后，我学生学籍管理信息系统这一课题。
本次课程设计不仅是对我在大学所学知识的一个综合运用，也是一次增长知识和经验的好机会，同时也使我学会了许多处理、解决问题的方法,大大提高了自己的动手能力，为将来走上工作岗位打下了良好的基础。
通过两周的数据库课程设计，我对管理信息系统这门课程有了更深的认识.在课程设计中，我们可以把这学期所学的理论知识和实践联系起来，在所要开发的程序中相结合。虽然我们操作的还不是太熟练，但是相信在今后的学习和以后的工作中会得到更深刻的体会。
在本次课程设计中，我设计了的是学生学籍管理系统,其中包含了对学生基本信息的管理、学生选课管理、学校教师资源管理、学校专业以及院系等。基本上包含了学籍管理所要求的信息,能够完成一定的数据管理功能。
参考文献
［1] 谭浩强，王晓敏,杨红兵Visual Basic 程序设计 中国铁道出版社
［2］ 《软件管理信息系统》 黄梯云 主编 高教出版社
[3] 张海藩，牟永敏。面向对象程序设计实用教程.清华大学出版社.2002。10~11
[4］ 《Visual Basic 程序设计》 杨秦建 王春红 主编 电子工业出版社
［5］ 邓良松，刘海岩,陆丽娜.软件工程.西安电子科技大学出版社。2004.71~78
[6］ 《Visual+Basic+SQL SQrver数据库应用系统开发》 李晓黎 主编 清华大学出版社
[7］ 耿国华。数据结构-—C语言描述.西安电子科技大学出版社。2002.183～187
附录
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
指导老师评语及成绩
指
导
教
师
评
语
成
绩
签字：
年 月 日</p>
展开阅读全文
浙ICP备2021020529号-1 | 浙B2-20240490 
