VFP课程设计学生信息管理系统.doc

《VFP课程设计学生信息管理系统.doc》由会员分享，可在线阅读，更多相关《VFP课程设计学生信息管理系统.doc（19页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、优质文本广西大学数学与信息科学学院?数据库开发与应用?课程设计报告题目 ： 学生信息管理系统 班 级： 信息与计算科学121 学 号： 1211100238 姓 名： 李 华 日 期： 二一四年六月 18 / 19优质文本前言随着(su zhe)学校的规模不断扩大，学生数量急剧增加，有关学生信息量也成倍增长。面对庞大的信息量需要有学生成绩管理系统来提高学生管理工作的效率。通过这样的系统可以做到信息的标准管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。目前社会上信息管理系统开展飞快,各个企业事业单位都引入了信息管理软件来管理自己日益增长的各种信息,学生信息管理系统也是有了

2、很大的开展,商业化的学生信息管理软件也不少。但本系统完全独立开发,力求使系统功能简洁明了,但功能齐全且易于操作，其主要实现了对高校从学生学籍信息录入、学生选课、学生信息管理、课程信息、任课教师查询、到学生成绩管理。整个系统分为学生信息管理、课程信息查询、任课教师查询、成绩管理、系统管理四大模块。其中，学生信息管理模块包括学生信息录入、学生信息修改。学生课程信息管理模块包括学生选课、学生课程查询。学生成绩管理模块包括学生成绩录入、学生成绩查询。系统管理模块包括用户权限、密码修改、退出系统。整个系统从操作简便、灵活、实用的目的要求出发完成学生信息管理系统全过程。用户需求具体有学籍管理系统提供保存、

3、更新、查询、维护，这就需求数据库结构能充分满足各种信息的输入与输出，实现有组织地、动态地存储大量关联数据，方便用户访问系统中的数据，它与文件系统的重要区别是数据的充分共享，交叉访问，与应用程序的高度独立性。1、系统分析1.1系统介绍本系统是将现代化的计算机技术和传统的教学、教务工作相结合，按照学院的工作流程设计完成的。为了使系统在学院的管理中发挥更大的作用，实现工作过程的计算机化，提高工作效率和工作质量，减少很多不必要的资源，不用像以前那样用冗余的纸张式的管理。大节省了学校能源。并且计算机的存储与快速查询功能大大提高了学籍管理的效率，并且还提高了学籍信息管理的精确度。现提出如下的系统开发目标：

4、 1.系统应具有实用性、可靠性和适用性，同时注意到先进性。 2.对各个数据库进行动态管理，防止混乱。 3.能够按照用户选择的不同的条件进行简单查询和复合查询。 4.能够对查询结果进行分类汇总，实现报表打印。 5.注意数据的平安性，具有数据备份和恢复的功能。 6.方便用户的操作，尽量减少用户的操作。本课程设计主要(zhyo)解决与学生成绩信息管理相关的问题，设计一个功能齐全的学生管理信息系统。同时实现学生相关信息的添加、删除、修改和查询；学生选课的管理，添加、修改、删除；学生成绩的录入和对学生成绩的分析等主要功能。1.2需求分析21世纪以来，人类经济高速开展，人们发生了日新月异的变化，特别是计算

5、机的应用及普及到经济和社会生活的各个领域。使原本的旧的管理方法越来越不适应现在社会的开展。许多人还停留在以前的手工操作。这大大地阻碍了人类经济的开展。为了适应现代社会人们高度强烈的时间观念，学校信息管理系统软件为学校办公室带来了极大的方便。一教育系统学生管理现状分析学校工作总体规划由教务人员在学生信息管理系统中完成对运行教务处所需的根本数据的维护，包括这些信息的增加、修改及对各项信息的变动都将在这进行操作。新的学年，教务人员首先参加年级信息，然后编排班级，再对来校学生进行根本的信息录入，新生入学后由教务人员在学籍系统中完成新学生信息的维护。这就需要一个功能强大的学生管理系统来做学院工作者的左右

6、手。二学校具体需求分析学生：对各科成绩的查询任课老师：输入并维护所教科目的学生成绩教务处： 学校全体成员的信息管理，并对任课老师，班主任等输入的信息进行存库，对学生的信息进行必要的维护。通过研究调查，本系统需以下功能：综合学生信息、学生成绩以及信息查询等信息；方便用户了解和管理学生的全面动态信息；良好的界面设计，更人性化的设计理念，使用户拥有更轻松的使用心情。1.2可行性分析可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能解决。首先，从经济上来看，用VFP开发(kif)的学生信息管理系统经济本钱低，功能足够满足日常需要。由于学校等中小型管理系统并不复杂，且Visual FoxPro

7、本身要求的运行环境不高，所以一般Windows 2000以上的系统环境都可以使用。其次，从实用性来看，本学生信息管理系统管理系统无太多复杂的操作要求，也没有过分花哨的装饰品，人性化的设计界面可以使操作者轻易运用自如，足够满足学生相关信息的添加、删除、修改和查询、学生选课的管理、添加、修改、删除、学生成绩的录入、课程信息的查询和对学生成绩的分析等主要功能。2、系统设计学生信息管理系统对于学生信息管理有非常大的作用，这些管理包括增、删、改，以及查询等功能，同时还应实现对数据信息访问权限控制。下面从软件的整体结构设计角度来进行设计。2.1系统流程图系统登录管理员普通用户任课教师查询学生信息管理课程信

8、息查询理成绩查询密码修改成绩管理密码重置按课程号查询按课程名查询学生信息修改密码修改学生信息查询学生成绩查询学生成绩录入2.2数据库需求(xqi)分析课程设置其它系统数据接口成绩管理课程选择成绩输入学生信息管理个人信息输入 学生注册考试信息课程信息管理2.3 数据库逻辑结构设计2.3.1用户密码表：字段名数据类型可否为空说明账户Char(5)NOT NULL主索引密码Char(6)NOT NULLQx(权限)Num(1)2.3.2学生信息表：字段名数据类型可否为空说明学号Char(5)NOT NULL主索引姓名Char(8)NOT NULL性别Char(2)NOT NULL学院Char(8)N

9、OT NULL出生日期Char(8)NOT NULL2.3.3课程(kchng)信息表：字段名数据类型可否为空说明课程代码Char(2)NOT NULL主索引课程名Char(10)NOT NULL课时数Char(2)NOT NULL学分Char(1)NOT NULL课程类别Char(4)NOT NULL课程教师Char(6)NOT NULL教师工号Char(5)NOT NULL2.3.4 学生成绩表：字段名数据类型可否为空说明学号Char(5)NOT NULL主索引姓名Char(6)NOT NULL课程名Char(10)NOT NULL课程类别Char(4)NOT NULL成绩Char(2)N

10、OT NULL学分Char(1)NOT NULL课程代码Char(2)NOT NULL2.4界面设计界面设计设计应遵循简洁美观、方便实用的根本原那么。具体设计如下：2.4.1主窗体设计主窗体包括登陆界面和主界面:2.4.2学生(xu sheng)信息管理界面设计2.4.3课程信息查询界面设计2.4.4任课教师查询(chxn)界面设计2.4.5成绩查询与成绩管理界面设计2.4.6密码(m m)修改与退出界面设计 2.5代码编写2.5.1登录表单程序： “登录click事件：if (N2) =messagebox(登录信息三次输入错误，不能使用本系统,16,信息提示) thisform.relea

11、se return &退出 ,不执行下面语句endifset order to tag 账户seek thisform.text1.value &定位数据表中的用户名if (thisform.text2.value=账户密码.密码); and (ThisForm.Optiongroup1.value=账户密码.qx) &检查密码和权限是否正确 thisform.release do form 主界面 with 账户密码.qx&翻开主界面，并传达权限值 else =messagebox(输入错误，请重新输入！,48,信息提示) thisform.text1.setfocus &将光标移到用户名框

12、 N=N+1 &错误次数N+1endif “取消click事件： quit表单init事件：public NN=12.5.2 学生(xu sheng)信息管理表单程序：(Click事件) “查询：(alltrim(thisform bo2.value)select 学生信息 locate for 姓名=alltrim(thisform bo2.value)()messagebox(学生不存在,48,提示) thisform bo2.value=else thisform bo2.value=姓名 thisform.text2.value=学号 thisform.text3.value=姓名 t

13、hisform.text4.value=性别 thisform.text5.value=学院 thisform.text6.value=出生日期endifendifselect 学生信息 locate for alltr(姓名)=alltr(thisform bo2.value) sele all 姓名,学号,性别,学院,出生日期 from 学生信息; where alltr(姓名)=alltr(thisform bo2.value) into cursor temp with thisform.grd学生信息 .recordsourcetype=1 .recordsource=temp .c

14、olumncount=6 .column1.header1.caption=姓名 .column2.header1.caption=学号 .column3.header1.caption=性别 .column4.header1.caption=学院 .column5.header1.caption=出生日期 endwith thisform.refresh thisform.grd学生信息.setfocus“清空：thisform bo2.setfocusthisform bo2.value=thisform bo2.value=thisform.text2.value=thisform.te

15、xt3.value=thisform.text4.value=thisform.text5.value=thisform.text6.value= “修改：update 学生信息 set 姓名=a where 学号=zupdate 学生信息 set 性别=b where 学号=zupdate 学生信息 set 学院=c where 学号=zupdate 学生信息 set 出生日期=d where 学号=zmessagebox(信息更新成功,48,提示)“注销：select 学生信息locate for 学号=alltrim(thisform.text2.value)()messagebox(学

16、生不存在,48,提示) elsedelete from 学生信息 where 学号=amessagebox(该生已成功注销,48,提示)endif“添加：if len(thisform.text2.value)=0 or len(thisform.text3.value)=0 or len(thisform.text4.value)=0 or len(thisform.text5.value)=0 or len(thisform.text6.value)=0 messagebox(输入信息不完整，请重新输入,48,提示)elseselect 学生信息 locate for 学号=alltrim

17、(thisform.text2.value)if found()messagebox(学号已存在,48,提示) thisform.text2.value=elseinsert into 学生信息(姓名,学号,性别,学院,出生日期) values(thisform.text2.value,thisform.text3.value,thisform.text4.value,thisform.text5.value,thisform.text6.value)messagebox(添加成功！,48,提示)endifendif2.5.3 课程(kchng)信息查询表单程序：(Click事件)课程查询 “

18、确定1：(alltrim(thisform bo1.value)select 课程信息locate for 课程代码=val(alltrim(thisform bo1.value)()messagebox(课程不存在,48,提示) thisform bo1.value=else thisform bo2.value=课程名 thisform.text2.value=课程代码 thisform.text3.value=课程名 thisform.text4.value=课时数 thisform.text5.value=学分 thisform.text6.value=课程类别 thisform.te

19、xt7.value=课程教师 thisform.text8.value=教师工号endifendif“确定2：(alltrim(thisform bo2.value)select 课程信息locate for 课程名=alltrim(thisform bo2.value)()messagebox(课程不存在,48,提示) thisform.text1.value=else thisform bo1.value=课程代码 thisform.text2.value=课程代码 thisform.text3.value=课程名 thisform.text4.value=课时数 thisform.tex

20、t5.value=学分 thisform.text6.value=课程类别 thisform.text7.value=课程教师 thisform.text8.value=教师工号endifendif2.5.4 教师(jiosh)任课查询表单程序：(Click事件) “查询：select 课程信息 locate for alltr(课程教师)=alltr(thisform bo1.value) if found() sele all 课程代码,课程名,课时数,学分,课程类别,课程教师,教师工号 from 课程信息 ; where alltr(课程教师)=alltr(thisform bo1.va

21、lue) into cursor temp with thisform.grid1 .recordsourcetype=1 .recordsource=temp .columncount=10 .column1.header1.caption=课程代码 .column2.header1.caption=课程名 .column3.header1.caption=课时数 .column4.header1.caption=学分 .column5.header1.caption=课程类别 .column6.header1.caption=任课教师 .column7.header1.caption=教师

22、工号 endwith thisform.refresh endif“清空：thisform bo1.value= 成绩(chngj)查询表单程序：(Click事件) “查询：(alltrim(thisform bo1.value)select 学生信息 locate for 姓名=(alltrim(thisform bo1.value)()messagebox(学生姓名不能为空,48,提示) thisform bo1.value=else thisform bo1.value=姓名 thisform.text1.value=学号 thisform.text2.value=性别 thisform

23、.text3.value=学院 select 学生成绩 locate for 姓名=(alltrim(thisform bo1.value) thisform.text4.value=高等数学 thisform.text5.value=大学英语 thisform.text6.value=大学物理 thisform.text7.value=大学写作 thisform.text8.value=计算机技术endifendifselect 学生成绩 locate for alltr(姓名)=alltr(thisform bo1.value) sele all 姓名,高等数学,大学英语,大学物理,大学写

24、作,计算机技术 from 学生成绩; where alltr(姓名)=alltr(thisform bo1.value) into cursor temp with thisform.grid2 .recordsourcetype=1 .recordsource=temp .columncount=6 .column1.header1.caption=姓名 .column2.header1.caption=高等数学 .column3.header1.caption=大学英语 .column4.header1.caption=大学物理 .column5.header1.caption=大学写作

25、.column6.header1.caption=计算机技术 endwith thisform.refresh “清空：thisform bo1.value=2.5.7学生(xu sheng)成绩管理表单程序：(Click事件)“查询：(alltrim(thisform bo1.value)select 学生成绩 locate for 姓名=(alltrim(thisform bo1.value)()messagebox(学生姓名不能为空,48,提示) thisform bo1.value=else thisform bo1.value=姓名 thisform.text3.value=姓名 t

26、hisform.text4.value=高等数学 thisform.text5.value=大学英语 thisform.text6.value=大学物理 thisform.text7.value=大学写作 thisform.text8.value=计算机技术endifendifselect 学生成绩 locate for alltr(姓名)=alltr(thisform bo1.value) sele all 姓名,高等数学,大学英语,大学物理,大学写作,计算机技术 from 学生成绩; where alltr(姓名)=alltr(thisform bo1.value) into cursor

27、 temp with thisform.grid2 .recordsourcetype=1 .recordsource=temp .columncount=6 .column1.header1.caption=姓名 .column2.header1.caption=高等数学 .column3.header1.caption=大学英语 .column4.header1.caption=大学物理 .column5.header1.caption=大学写作 .column6.header1.caption=计算机技术 endwith thisform.refresh“添加：if len(thisfo

28、rm.text3.value)=0 or len(thisform.text4.value)=0 or len(thisform.text5.value)=0 or len(thisform.text6.value)=0 or len(thisform.text7.value)=0 or len(thisform.text8.value)=0 messagebox(输入信息不完整，请重新输入,48,提示)elseselect 学生成绩 locate for 姓名=alltrim(thisform.text3.value)if found()messagebox(成绩已存在,48,提示) els

29、einsert into 学生成绩(姓名,高等数学,大学英语,大学物理,大学写作,计算机技术) values(thisform.text3.value,thisform.text4.value,thisform.text5.value,thisform.text6.value,thisform.text7.value,thisform.text8.value)messagebox(录入成功！,48,提示)endifendif“修改：update 学生成绩 set 高等数学=a where 姓名=zupdate 学生成绩 set 大学英语=b where 姓名=zupdate 学生成绩 set

30、大学物理=c where 姓名=zupdate 学生成绩 set 大学写作=d where 姓名=zupdate 学生成绩 set 计算机技术=e where 姓名=zmessagebox(信息更新成功,48,提示)“注销：select 学生成绩locate for 姓名=alltrim(thisform.text3.value)()messagebox(学生不存在,48,提示) elsedelete from 学生成绩 where 姓名=apackmessagebox(该生已成功注销,48,提示)endif“清空：thisform bo1.value=thisform.text3.value

31、=thisform.text4.value= thisform.text5.value= thisform.text6.value= thisform.text7.value= thisform.text8.value=2.5.8 学生信息表单程序(chngx)：(Click事件)2.5.9 密码修改表单程序：(Click事件) “确认修改：set exact onif empty(alltrim(thisform.text3.value).and.empty(alltrim(thisform.text4.value)messagebox(新密码不能为空,48,提示) returnendifi

32、f alltrim(thisform.text3.value)alltrim(thisform.text4.value)messagebox(新密码与确认密码不一致,48,提示) returnendifselect 账户密码locate for alltrim(账户)=alltrim(thisform.text1.value).and.alltrim(密码)= alltrim(thisform.text2.value)()messagebox(原密码错误,请重新输入,48,提示) returnendifupdate 账户密码 set 密码=b where 账户=amessagebox(密码修改

33、成功,64,密码修改系统) set exact offendifupdate 账户密码 set 密码=b where 账户=amessagebox(密码修改成功,64,密码修改系统) set exact off“重新输入：thisform.text1.value=thisform.text2.value=thisform.text3.value=thisform.text4.value=3、系统(xtng)评价3.1程序调试情况(1).在表结构创立的过程中有个注意点NULL值，NULL无明确的值，它不等于零或空格，一个NULL值不能认为比某个值包括另一个NULL值大或小，相等或不同。 (2).

34、常量和内存变量能够使用的数据类型只有6种，分别是:字符型、数值(shz)型、货币型、日期型、日期时间型以及逻辑型。 (3).在用双引号或单引号等定界符标识字符串时，不能使用汉字全角状态下的引号，因为VFP命令不能识别全角汉字下的符号。 (4).函数是用来实现某指定运算或操作的一种特殊程序，应熟练掌握几种常用的系统函数。例如：数值型函数、字符处理函数、日期和时间函数、表与记录函数、类型转换函数、系统测试函数。要注意的是字符型与日期型相互转换函数是CTOD与DTOC，字符型与日期时间型转换函数为CTOT与TTOC。(5).菜单中的命令执行某表单是，要注意表单名称要完整，不能出现错别字，否那么会出现

35、“无法定义*表单的情况。 (6).数据库的表设计器是创立新表、修改表和定义索引的重要工具，应学会熟练的使用数据库设计器，对字段选项卡、表选项卡和索引选项卡进行管理操作。 (7). 掌握VFP多种运算符，明确各种运算符的运算优先级：数值运算符高于关系运算符，关系运算符高于逻辑运算符。同一等级命令从左到右进行，括号内的运算优先执行，嵌在最内层括号的运算首先进行，然后依次由内向外执行。3.2总结通过这次实验，我觉得收获很多。不仅加深了我对教学系统的了解与深化以及数据库原理的了解，熟悉了数据库设计的流程，还对软件工程有了初步认识，根本掌握了需求分析的方法。同时为我以后进入社会打下了根底。通过本次设计与

36、制作，我的实际动手能力和处理问题的能力有了明显提高。这次设计是我深刻了解到表是数据库中最根本的文件，数据库系统的大局部操作与命令都离不开对表中数据的处理，我们应该熟练掌握表的创立与表中数据处理。还要熟练掌握表记录的输入和定位、表结构的修改和表数据的追加与删除。这次设计锻炼了我编写数据程序的能力，能熟练掌握不同功能程序的编写，以到达所设计程序的功能要求。熟练运用了select、deleted、update 以及 locate定位语句。3.3心得体会踉踉跄跄(lin lin qin qin)地忙碌了这些天，我的课程设计课题也终将告一段落。点击运行，也根本到达预期的效果，虚荣的成就感在没人的时候也总

37、会冒上心头。但由于能力和时间的关系，总是觉得有很多不尽人意的地方，譬如功能不全、外观粗糙、底层代码的不合理数不胜数。可是，我又会有点自恋式地抚慰自己：做一件事情，不必过于在乎最终的结果，可贵的是过程中的收获。以此语言来安抚我尚没平复的心。这次课程的设计总体到功能完善用了近两周天时间，由于之前对这门课不是很懂，所以课程设计遇到了不少的麻烦，还好同学和老师给我讲了。前期主要是建立数据库，并输入数据。然后做了类，这里主要是写代码，很多功能实现的代码在课堂上没有遇到过，于是只能通过查询相关书籍来作参考。课程设计的时间比拟充足，在根本要求之上做了很多创新，所以自己还算满意。不过，经过这一个多星期的课程设

38、计，真的学到了很多。在课程设计过程中，我做了一次又一次，改了一次又一次，可是，还是有很多不懂的地方。我问了同学，也上网查了，根本上弄懂了，做完之后，一种满足感油然而生。这次的课程设计做的还不错，所以，总结就更应该写好一点，以便让老师更加了解我所设计的系统。经过近两个星期的学习，我进一步掌握有关表、数据库、工程、类的根本概念及根本操作，并在此根底上进行查询设计、菜单设计、表单设计，并掌握常用的属性、事件及方法的使用。也许，有很多地方我做的不够好，但我已经尽了我最大的努力，同时也学会了很多以前不懂的知识。参考文献1刘瑞新 汪远征 曹欢欢 等主编，?Visual FoxPro程序设计教程?第2版，机械工业出版社 2 李雁翎 编，?数据库原理与技术Visual FoxPro?，高等教育出版 3 求是科技 编，?Visual FoxPro系统开发?，人民邮电出版社4 黄明梁 编，?Visual Foxpro课程设计?，电子工业出版社5 白永军，?Visual Foxpro程序开发工程案例?，清华大学出版社