1、mis课程设计报告 营销071 顾文龙04号 作者: 日期:2 &n
2、bsp; 个人收集整理 勿做商业用途理工学院 MIS课程设计课程设计题目: 学籍信息管理系统 专 业 班 级: 市场营销071班 学 生 姓 名: 顾文龙 学 号: 071611104 &
3、nbsp; 指 导 教 师: 蒋玉国 杨明欣 2010年 3月12日 目 录 1 引言1 2 系统调查与可行性研究32.1 初步调查42.2 可行性研究43 系统分析8 3。1 业务流程分析8 3。2 数据流程分析83。3 数据字典8 4 系统设计84。1 功能结构设计94.2 数据库设计94。3 代码设计114.5 系统配置设计12
4、参考文献14 附录22 1.引言随着Internet/Intrane
5、t的快速发展,数据库技术的进一步成熟,建立能业务化工作的学生学籍管理系统是当前高校管理部门的迫切要求。学籍管理系统对于学校的决策者和管理者来说都至关重要,所以学籍管理系统应该能够为用户提供充足的信息和快捷的查询手段。每个学校都需要在学期末进行期末考试成绩的统计分析工作,而这些工作都必须在考试结束后近一个星期的时间内完成。大量的成绩数据的统计分析工作如果只靠人工来完成,费时费力,还容易出错。因此需开发出一个能满足学校进行成绩的录入,统计,查询,报表和打印等需求的、功能完善、安全可靠、迅速简便的成绩管理信息系统。本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划,自下而上地应
6、用开发”的策略开发一个管理信息系统的过程。通过分析访客管理的不足,创建了一套行之有效的计算机管理学生的方案.文章介绍了访客管理信息系统的系统分析部分,包括可行性分析、业务流程分析等;系统设计部分主要介绍了系统功能设计和数据库设计;系统实现部分说明了几个主要模块的算法, 本系统面友好,操作简单,比较实用。
7、 2。系统调查与可行性研究2。1初步调查 随着现代学校的规模不断扩大,近几年的高校招生人数的不断扩大,学生人数急剧增加,有关学生的各种信息也成倍增长。手工管理已不能满足当前的需要。面对庞大的信息量,学校有必要开发学生学籍信息管理系统来提高学生管理工作的效率.通过这样的系统,可以做到信息的规范管理、科学统计和快
8、速查询,从而减少学生管理方面的工作量。 本学生学籍信息管理系统包括学籍信息管理、课程信息管理、成绩信息管理三大模块.其中每个模块包括了查看、录入、修改。程序设计者可以录入,修改,而学生只能查看信息.2。2 系统可行性分析 进行系统可行性研究是为了用最小的代价在尽可能短的时间内确定该软件项目是否能够开发,是否值得开发。它的任务就是先进行概要的分析和研究,确定系统的规模和目标,限制条件等,进而抽象出该系统的逻辑模型。根据该模型来提出解决该问题的若干方法,并研究各个方法的可行性。2.1.1。技术可行性。分析当前的软,硬件技术能否满足对系统提出的要求并考虑开发人员的技术水平。本系统所用开发工具为Vis
9、ual Basic编程语言和Access数据库.由于本系统主要是进行数据库的查询、插入、删除、修改等操作,因此两者者的结合完成本系统的开发完全可行.所以本系统在技术上完全可行。2.1.2。经济可行性主要是预估费用支出和对项目的经济效益进行评价。本系统所要求的硬件配置非常低,可以在一台个人计算机上运行。只需要价格低廉的计算机本系统就能在其上面顺利地运行,并有有相关技术人员操作即可。相关软件网上有免费下载,可以进行免费下载.因为此系统的开发和操作十分简单,所以相关人员的培训花费也比较低。但带来的效益却是巨大的,可以大大降低学籍管理的成本并且使之更有效。所以本系统在经济上完全可行。2。1。3社会上的
10、可行性:原来的学籍管理多是以纸的形式记录,文件十分容易丢失,不易保存,更新十分不方便。本系统可以储存大量的信息,更新也十分方便。由于本系统操作极其简单,并且只需对相关人员进行简单培训系统的培训,他们即可顺利使用本系统.所以本系统在社会上完全可行.3 系统分析系统分析是指以系统的观点,对已选定的对象与开发范围进行有目的、有步骤的实际调查和科学分析,是用图表和文字从逻辑上定义目标系统。系统分析的任务:在现行系统的基础上建立一个满足用户需求的新系统的逻辑模型。步骤:初步调查与可行性分析,确认新系统开发为可行;进行详细调查与分析,提出新系统逻辑模型;最后写出系统分析报告. 3。1业务流程图:学籍管理员
11、把新生学籍信息表,教务处把课程安排表,任课教师把学生成绩表交给学籍管理部门,此部门整理出学生信息提供给学生。学籍管理员教务处任课教师师新生学籍信息表课程安排表学生成绩表学生学籍管理部门学籍信息3.2 数据流程分析 3.2.1。顶层数据流程图:学籍管理员,教研组,任课教师把信息经过系统处理供学生查看.学籍管理员教研组任课教师新生学籍信息单课程安排单学生成绩单学籍信息管理系统学籍信息学生3。2.2。,一层数据流程图学籍管理员经过学籍管理系统把信息存到新生学籍信息表,教研组经过课程管理系统把信息存到课程安排信息表,任课教师经过成绩管理系统把信息存到学生成绩信息表,最后学生可以查看信息。学籍管理员教研
12、组任课教师新生学籍信息单课程安排单学生成绩单P1学籍管理P2课程管理P3成绩管理新生学籍信息表课程安排信息表学生成绩信息表F1F2F3学生3。2.3,学籍管理的数据流程图学籍管理员把学籍信息录入系统,如果信息正确存到新生学籍表里,如果错误修改后存入此表,学生可以查看。学籍管理员新生学籍信息单P1,1录入学籍信息正确数据错误数据P1,2修改学籍信息F1新生学籍信息表正确数据学生课程信息管理和成绩信息管理的处理过程与学籍信息管理的相同。3。3数据字典数据流:教务部门、学生、教师、教师专业院系信息、分类信息、成绩单、学生情况等.4.系统设计此系统分为功能结构设计,数据库设计,代码设计,输入输出设计,
13、配置设计.4。1功能结构设计本学生信息管理系统包括学籍信息管理、班级信息管理、课程信息管理、成绩信息管理四大模块。其中每个模块包括了添加、修改、查询.程序设计者可以录入,修改,而学生只能查看信息。学生信息管理系统学籍管理功能班级管理功能课程管理功能成绩管理功能学籍添加学籍修改学籍查询班级添加课程添加课程修改课程查询成绩添加成绩修改成绩查询班级修改班级查询4.2数据库设计:数据库设计首先要进行数据分析和处理,如分析应用系统需要存储哪些数据,而且要从优化表结构和减少数据冗余和角度考虑,合理地建立一系列的表。用表设计器设计好表结构后,为了保持数据的完整性和一致性,这些表要添加到数据库中,并且要建立永
14、久关系和参照完整性。此系统的数据信息主要包括:新生学籍信息表,课程安排信息表,学生成绩信息表。以下是各表所包含的信息项:4.2。1新生学籍信息表:编号 字段名 数据类型 长度 说明01 姓名 Char 16 索引(升序) 02 &nb
15、sp; 性别 Char 2 索引(升序)
16、 03 出生日期 Data 8 索引(升序) 04 学院 Char 8 索引
17、(升序) 05 专业 Char 8 &nbs
18、p; 索引(升序) 06 入学时间 Data 8 索引(升序) &nb
19、sp; 4.2。2.课程安排信息表:编号 字段名 数据类型 长度 &nb
20、sp; 说明01 科目名称 Char 20 索引(升序) 02 课时 Char 2 索引(升序)
21、 03 学分 Char 3 索引
22、(升序) 04 上课时间 Char 8 索引(升序) &nbs
23、p; 05 学期 Char 1 索引(升序) &
24、nbsp; 4。2.3学生成绩信息表: 编号 字段名 数据类型 长度 说明01 姓名 Char 16 索引(升序) 02 学院  
25、; Char 8 索引(升序) 03 专业
26、 Char 8 索引(升序) 04 科目名称 Char 20 索引(升序)05 课时 Char  
27、;2 索引(升序) 06 学分 Char
28、 3 索引(升序) 07 学生成绩 Char
29、2 索引(升序) 本系统的实体有:学生实体、班级实体、年级实体、课程实体.各个实体具体的描述E-R图如图下所示。 学生基本信息班级成绩课程图42 学生实体ER图 班级所在年级班主任所在教室班号图4-3 班级实体ER图 &nb
30、sp; 课程名称编号描述类型 图44 课程实体ER图 年级包括班级设置课程课程图4-5 年级实体E-R图 &nbs
31、p; 学生班级年级课程1nnnnmmnn111 图46 实体之间关系E-R图4。3代码设计:4.4输入输出设计 输入输出设计是进行数据存储和满足用户需求的主要方式.在本系统中,输入输出都本着方便信息录入人员,满足管理者的需求来进行设计的。4。4。1输入设计 在输入设计上,主要是学生学籍信息,课程安排,学生成绩的录入与修改。在输入操作上均可使用界面输入,输入数据后单击位于屏幕下端
32、的“确定”按钮进行保存即可。4。4。2输出设计 用户查询相关信息主要是界面输出,主要是学生查看学籍,课表,成绩信息,可以在系统的网页上浏览 ,也可以打印出来。4。5系统配置本系统应用的是Visual Basic 6.0开发平台,配置能够满足其要求即可。主要为: Dell兼容机,具有80486 50MHz以上处理器 鼠标 内存为1G 硬盘的最小空间为45G;采用用户自定义安装需要128G硬盘空间;采用完全安装所有联机文档需要160G硬盘空间 VGA或更高分辨率的显示器 对于网络操作,需要有一个与Windows兼容的网络和一个网络服务器 中文Windows xp或Windows vista 总结
33、 通过本次课程设计,使我对管理信息系统的设计方法、步骤、思路,有一定的了解与认识,是一次管理信息系统设计的真实模拟。在课程设计过程中,我按照规定的程序进行,先收集、调查相关的各类资料,找出当前管理信息系统的几种必要急需的需求,经过思考后,我学生学籍管理信息系统这一课题。本次课程设计不仅是对我在大学所学知识的一个综合运用,也是一次增长知识和经验的好机会,同时也使我学会了许多处理、解决问题的方法,大大提高了自己的动手能力,为将来走上工作岗位打下了良好的基础。通过两周的数据库课程设计,我对管理信息系统这门课程有了更深的认识.在课程设计中,我们可以把这学期所学的理论知识和实践联系起来,在所
34、要开发的程序中相结合。虽然我们操作的还不是太熟练,但是相信在今后的学习和以后的工作中会得到更深刻的体会。 在本次课程设计中,我设计了的是学生学籍管理系统,其中包含了对学生基本信息的管理、学生选课管理、学校教师资源管理、学校专业以及院系等。基本上包含了学籍管理所要求的信息,能够完成一定的数据管理功能。 参考文献1 谭浩强,王晓敏,杨红兵Visual Basic 程序设计 中国铁道出版社2 软件管理信息系统 黄梯云 主编 高教出版社 3 张海藩,牟永敏。面向对象程序设计实用教程.清华大学出版社.2002。10114 Visual Basic
35、程序设计 杨秦建 王春红 主编 电子工业出版社5 邓良松,刘海岩,陆丽娜.软件工程.西安电子科技大学出版社。2004.71786 Visual+Basic+SQL SQrver数据库应用系统开发 李晓黎 主编 清华大学出版社 7 耿国华。数据结构-C语言描述.西安电子科技大学出版社。2002.183187附录 1 用户登陆模块代码: A:教务处管理人员登陆 Private Sub 教务处人员登录_Click()On Error GoTo Err_教务处人员登录_Click Dim stDocName As String &nbs
36、p; stDocName = ChrW(25945) ChrW(21153) & ChrW(22788) & ChrW(20154) ChrW(21592) ChrW(30331) & ChrW(24405) DoCmd.RunMacro stDocNameExit_教务处人员登录_Click: Exit SubErr_教务处人员登录_Click: MsgBox Err.Description Resume Exit_教务处人员登录_ClickEnd Su
37、bB: 教师登陆Private Sub 教师登录_Click()On Error GoTo Err_教师登录_Click Dim stDocName As String stDocName = ChrW(25945) & ChrW(24072) & ChrW(30331) ChrW(24405) DoCmd。RunMacro stDocNameExit_教师登录_Click: Exit SubErr_教师登录_Click: MsgBox Err。De
38、scription Resume Exit_教师登录_ClickEnd SubPrivate 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
39、 MsgBox ”用户名为空!请输入”, vbCritical, "error” Me!UserName.SetFocus ElseIf Len(Nz(Me!UserPassword)) = 0 Then MsgBox "密码为空!请输入", vbCritical, ”error" Me!UserName.SetFocus Else If Me!UserName = "刘力&qu
40、ot; Then If UCase(Me!UserPassword) = ”980102” Then MsgBox ”欢迎使用!", vbInformation, ”成功” DoCmd.OpenForm ”教师综合信息查询" Else &nbs
41、p; MsgBox ”密码有误,非正常退出。", vbCritical, ”error” DoCmd.Close End If Else MsgBox ”用户名有误,非正常退出.”, vbCritical, "error” DoCmd。Close End If End IfEnd Sub2
42、学生个人信息查询模块代码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.OpenQue
43、ry stDocName, acNormal, acEditExit_Command1_Click: Exit SubErr_Command1_Click: MsgBox Err。Description Resume Exit_Command1_ClickEnd Sub B:班级所有学生信息查询:Private Sub Command20_Click()On Error GoTo Err_Command20_Click Dim stDocName As String  
44、;stDocName = ChrW(29677) ChrW(32423) & ChrW(23398) ChrW(29983) & ChrW(20449) ChrW(24687) & ChrW(26597) ChrW(-29726) DoCmd.OpenQuery stDocName, acNormal, acEditExit_Command20_Click: Exit SubErr_Command20_Click: MsgBox Err.Description Res
45、ume Exit_Command20_ClickEnd Sub3教师信息查询及修改模块代码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)
46、 DoCmd.OpenQuery stDocName, acNormal, acEditExit_Command13_Click: Exit SubErr_Command13_Click: MsgBox Err。Description Resume Exit_Command13_ClickEnd SubB:全体教师信息查询:Private Sub Command14_Click()On Error GoTo Err_Command14_Click Dim stDoc
47、Name As String stDocName = ChrW(25945) & ChrW(24072) & ChrW(20449) & ChrW(24687) ChrW(26597) & ChrW(29726) DoCmd。OpenQuery stDocName, acNormal, acEditExit_Command14_Click: Exit SubErr_Command14_Click: MsgBox Err。Description &
48、nbsp;Resume Exit_Command14_ClickEnd Sub4 成绩查询及修改模块代码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) &
49、nbsp; DoCmd。OpenQuery stDocName, acNormal, acEditExit_Command23_Click: Exit SubErr_Command23_Click: MsgBox Err.Description Resume Exit_Command23_ClickEnd SubB: 指定班级综合成绩查询Private Sub Command24_Click()On Error GoTo Err_Command24_Click Dim stDoc
50、Name 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, acEditExit_Command24_Click: Exit SubErr_Command24_Click: &
51、nbsp;MsgBox Err.Description Resume Exit_Command24_ClickEnd Sub5 用户信息修改模块代码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
52、) ChrW(24687) & ChrW(26597) & ChrW(-29726) DoCmd.OpenQuery stDocName, acNormal, acEditExit_Command28_Click: Exit SubErr_Command28_Click: MsgBox Err。Description Resume Exit_Command28_ClickEnd Sub6 退出模块代码 Private Sub Command31_Click()On Error GoTo Err_Command31_Click DoCmd.QuitExit_Command31_Click: Exit SubErr_Command31_Click: MsgBox Err.Description Resume Exit_Command31_ClickEnd Sub 指导老师评语及成绩指导教师评语成绩签字:年 月 日