《数据库课程设计-学生成绩管理系统.doc》由会员分享，可在线阅读，更多相关《数据库课程设计-学生成绩管理系统.doc（22页珍藏版）》请在三一文库上搜索。
1、1 计算机科学与技术学院 课程设计报告 2010 2011 学年 第 一 学期 课程名称 数据库课程设计 设计题目 学生成绩管理系统 学生姓名 学 号 专业班级 指导教师 2011 年 1 月 7 日 2 目录目录 摘要摘要3 一、课题组成员及本人任务一、课题组成员及本人任务4 1. 系统组成.4 2. 系统功能.4 二、需求分析二、需求分析.4 三、概念结构设计三、概念结构设计.5 四、逻辑结构设计四、逻辑结构设计.5 五、系统功能实现五、系统功能实现.7 1、登陆界面.7 2、菜单项.8 3、设置专业.8 4、设置班级.9 5、设置课程.11 6、录入学生记录.12 7 、添加学生记录12
2、 8、 录入学生成绩13 9、 用户管理15 10、 数据备份16 六、设计总结六、设计总结.18 七、参考文献七、参考文献.18 八、附录：主要源代码八、附录：主要源代码19 3 摘要摘要 在现在信息化高速发展的时代，信息只有快，准，精才能发挥其价值。所 以机器代替人力是必然的历史发展趋势，人工操作必将被计算机代替。计算机 在我们的日常生活中的使用越来越不可或缺，计算机进行信息管理,不仅提高了 工作效率,而且大大的提高了其安全性.尤其对于复杂的信息管理,计算机能够充 分发挥它的优越性. 数据库技术，已经成为先进信息技术的重要组成部分，是现代计算机信息 系统和计算机应用系统的基础和核心。数据库
3、技术从诞生到现在，在不到半个 世纪的时间里，形成了坚实的理论基础、成熟的商业产品和广泛的应用领域， 吸引越来越多的研究者加入。数据库的诞生和发展给计算机信息管理带来了一 场巨大的革命。三十多年来，国内外已经开发建设了成千上万个数据库，它已 成为企业、部门乃至个人日常工作、生产和生活的基础设施。同时，随着应用 的扩展与深入，数据库的数量和规模越来越大，数据库的研究领域也已经大大 地拓广和深化了。计算机技术不断应用到各行各业，大量的企业数据存放于数 据库中，并通过数据库进行快速查询，获取比传统方式更高的效率。而学生成 绩交由数据库进行保存、管理，则是一个教育单位不可缺少的部分,它的内容对 于学校的
4、决策者和管理者来说都至关重要。 4 一、课题组成员及本人任务一、课题组成员及本人任务 课题由本人单独完成，系统的组成和功能组要包括包括： 1. 系统组成 数据表组成：数据表 3 个：学生表、课程表、成绩表 查询组成：查询学生、按班级查询成绩、按课程查询成绩 菜单组成：主菜单由基本数据管理、学生成绩管理、系统维护组成。 报表组成：学生一览表、课程一览表、成绩一览表（可按课程分类和按学号分 类）。 自由表组成：密码表、系统信息表。 2. 系统功能 本系统的主要功能分别通过主菜单中的以下各项来实现： 通过系统维护菜单实现用户管理、数据备份、系统初始化； 通过学生成绩管理菜单实现对学生成绩的录入、查询
5、学生成绩和统计学生总 成绩； 通过基本数据管理菜单实现对专业、班号、课程的设置，录入学生记录，查 询学生记录和退出系统； 二、需求分析二、需求分析 1、所使用的工具：microsoft visual foxpro 6.0 2、需要存储的数据和在该模块实现的功能： 专业信息：对专业的添加、修改及退出该表单； 班级信息：根据专业设计班级班号和入学年份，可以对班号进行添加、修 改、删除，及退出该表单； 课程信息：针对不同的专业，设置课程号、课程名、课程性质、开课学期、 课程学分等，以及实现对课程的添加、插入、修改、删除的功能，及退出该表 单； 学生信息：对不同专业不同班级学生信息的录入，基本的学生信
6、息包括学号、 姓名、性别、出生日期、民族、备注、照片等，可进行添加、修改，及退出该 5 表单； 学生成绩：选定专业、班级和该课程所在的学期， “确定”后，对所选该课 程的学生登记分数，录入完成后， “返回” ； 设置用户：对用户的添加、修改和设置权限，添加的内容包括用户名、密 码、级别（管理员和一般用户） ， “修改”有密码、权限等操作； 三、概念结构设计三、概念结构设计 E-R 图： 选定 学生表 用户 课程表 出生日期 姓名 专业班 级 性别 备注 照片 学号 民族 课程号 课程名 开课 学期课程性质 学分 用户名 密码 成绩 权限 四、逻辑结构设计四、逻辑结构设计 6 7 8 五、系统功
7、能实现五、系统功能实现 1、登陆界面 确定： rq=thisform.text2.value IF (n2) =MESSAGEBOX(“口令三次输入错误,不能使用本系统“,48,“信息提示“) flag=.F. THISFORM.RELEASE ELSE SELECT user LOCATE FOR usename=ALLTRIM(bo1.Value) AND usepass=ALLTRIM(thisform.text1.Value) IF FOUND() flag=.T. ulevel=uselevel THISFORM.RELEASE ELSE =MESSAGEBOX(“口 令 不 正 确
8、, 重 新 输 入“,48,“信息提示“) THISFORM.combo1.VALUE=“ 9 n=n+1 THISFORM.combo1.SETFOCUS ENDIF ENDIF 取消： thisform.Release 2、菜单项 3、设置专业 添加： f=“ flag=1 性质 WITH bo1.Value,开课学期 WITH bo2.value,学分 WITH thisform.text4.value ELSE IF flag=2 性质 WITH bo1.Value,开课学期 WITH bo2.value,学分 WITH thisform.text4.value ELSE IF fla
9、g=3 性质 WITH bo1.Value,开课学期 WITH bo2.value,学分 WITH thisform.text4.value ENDIF ENDIF ENDIF thisform.Release 取消： thisform.Release 6、录入学生记录 确定： PUBLIC f1,f2 term=thisform.text1.value f1=ALLTRIM(thisform.list1.Value) f2=ALLTRIM(thisform.list2.Value) 13 DO FORM setscore1 thisform.Release 取消： thisform.Rele
10、ase RELEASE term 添加： flag=1 DO FORM setstudent2 修改： flag=2 DO FORM setstudent2 7 、添加学生记录： 路径。 。 。 img=GETFILE(“bmp|Gif“) IF FILE(img) APPEND GENERAL 照片 FROM (img) ENDIF thisform.Refresh 确定： SELECT student IF flag=1 APPEND FROM student1 ELSE REPLACE 学号 WITH student1.学号,姓名 WITH student1.姓名 REPLACE 性别
11、WITH student1.性别,出生日期 WITH student1.出生日期 REPLACE 民族 WITH student1.民族,专业 WITH student1.专业 REPLACE 班号 WITH student1.班号,备注 WITH student1.备注,照片 WITH student1.照片 ENDIF thisform.Release 取消： 14 thisform.Release 8、 录入学生成绩 确定： thisform.label2.Caption=alltrim(thisform.list1.value) SELECT score SET FILTER TO 班
12、号=f2 AND 专业=f1 AND 课程=thisform.list1.value COUNT TO rs IF rs=0 &score 表中不存在该班号该课程的成绩 USE student IN 0 SELECT student SET FILTER TO 专业=TRIM(f1) AND 班号=TRIM(f2) GO TOP DO WHILE !EOF() SELECT score APPEND BLANK REPLACE 学号 WITH student.学号,姓名 WITH student.姓名,专业 WITH f1,班号 WITH f2,课程 WITH thisform.list1.v
13、alue SELECT student SKIP ENDDO USE IN student ENDIF SELECT score GO top 15 thisform.Refresh 返回： thisform.Release 排序确定： SELECT score sel=thisform.opg1.VALUE DO CASE CASE sel=1 INDEX ON 学号 TO tempxh CASE sel=2 INDEX ON 课程 TO tempkc CASE sel=3 INDEX ON 班号 TO tempbh CASE sel=4 INDEX ON -分数 TO tempfs END
14、CASE GO TOP thisform.Refresh 16 9、 用户管理 添加：f1=“ f2=“ f3=“ flag=1 &添加操作 DO FORM usermain1 修改： f1=usename f2=usepass f3=uselevel flag=2 &修改操作 DO FORM usermain1 退出： thisform.Release RELEASE f1,f2,f3,flag 确定： SELECT user IF flag=1 &添加操作 APPEND BLANK ENDIF REPLACE usename WITH thisform.text1.Value REPLAC
15、E usepass WITH thisform.text2.Value REPLACE uselevel WITH bo1.value thisform.Release 取消： 17 thisform.Release 10、 数据备份 确定： filen=ALLTRIM(thisform.text1.value) olfpath=“ thisform.Release IF !DIRECTORY(filen) IF MESSAGEBOX(“不存在该目录,需要建立吗?“,4+32,“信息提示“)=6 MD (filen) ELSE RETURN ENDIF ENDIF IF RIGHT(filen
16、,1)“ filen=filen+“ ENDIF USE user IN 0 fn=filen+“user“ COPY TO (fn) USE IN user USE student IN 0 fn=filen+“student“ COPY TO (fn) USE IN student USE score IN 0 fn=filen+“score“ 18 COPY TO (fn) USE IN score USE prof IN 0 fn=filen+“prof“ COPY TO (fn) USE IN prof USE classn IN 0 fn=filen+“classn“ COPY T
17、O (fn) USE IN classn USE course IN 0 fn=filen+“course“ COPY TO (fn) USE IN course 取消： thisform.release 19 六、设计总结六、设计总结 一周多的课程设计，终于成功的验收了，虽然有些疲惫，但还是有很多的 收获的，我又一次巩固了所学到的知识，之前的学习只是停留在理论基础上， 现在自己动手操作试验后，才是真正的理解及体会。数据库也学了近四个月， 有很多知识都是似懂非懂，通过平时上机操作，自己也了解了一些，但让我有 了更深的理解和更好的认识，则是在这次的课设上，之前的困惑也通过这次的 课设解决了一些，
18、虽然还是不能够全面的理解，但是有进步就很高兴。 在课程设计之前，因为有了综合实验的经验与教训，明白了写代码这一步 是非常重要的，因为当你把代码输进去之后，并编译让其运行，发现通过不了， 再来检查出问题，是很费费力的事情，因此分析和规划代码是很重要的，最重 要的是要把逻辑结构写好，这样就不会出现大问题，写代码就要先找出核心的 内容，用多种方法来实现核心部分，这样可以尽可能的避免发现逻辑或编译不 支持的错误。 通过本次论文设计，我初步学会了论文设计的基本方法，学会了怎样去借 鉴别人的方法和经验，知道了如何整合资料和处理这些资料的能力，这位以后 做毕设的论文打下了基础，使我感觉比较好的是有一种成功的
19、喜悦，虽然在编 译的时候会经常因为一些小的错误而心烦意乱，但是也不失为一件好事，失败 的越多积累的经验越丰富，对人的考验也比较多，那么在最后编译成功时的喜 悦就越浓烈，也是自己的能力有了进一步的提高。由于知识和经验的不足，这 个程序编写的不是很尽如人意，但是融合了自己的心血，就觉得是最好的，所 以在以后还是需要较多的努力的，还是会在以后的学习过程中不断地提高和改 进的。 七、参考文献七、参考文献 【1】 数据库系统原理 中国矿业大学出版社 主编：赵文涛 【2】 vfp 实例教程 清华大学出版社 主编：王松 刘强 汪晟 【3】Csdn 资源 http:/ 发布人likaixingzoujiang
20、hu 【4】百度文库 “学生成绩管理系统”开发实例 20 http:/ 【5】百度文库 学生成绩管理系统 http:/ 八、附录：主要源代码八、附录：主要源代码 主程序 CLEAR SET TALK OFF SET SYSMENU off SET SYSMENU to SET DELETED OFF SET STATUS BAR OFF SET DATE ANSI SET SAFETY OFF CLEAR ALL CLOSE ALL _Screen.WindowState=2 _Screen.Caption=“学生成绩管理系统“ PUBLIC ulevel,rq &ulevel 存放用户级别,
21、rq 存放当前使用日期 DO FORM pass to ret IF ret=.T. DO menu.mpr READ event ENDIF &以下代码在退出时做清理工作 SET SYSMENU TO default SET SYSMENU on CLOSE ALL 21 CLEAR ALL SET EXCLUSIVE ON &以独占的方式打开表 use user in 0 select user pack use in user use prof in 0 select prof pack use in prof use classn in 0 select classn pack use in classn use course in 0 select course pack use in course use student in 0 select student pack use in student use score in 0 select score pack use in score RETURN 22