VF程序设计《学生成绩管理》.doc

目录 一、实习目的02二、本组课题及本人任务02三、系统需求调查分析02四、系统总体设计1、 系统设计目标022、 主要软件需求023、 功能模块与系统结构03五、系统详细设计1、系统登录042、学生信息管理1）学生信息录入052）学生信息修改053、学生成绩管理 1）学生成绩录入07 2）学生成绩修改084、查询与统计 1）学生信息查询09 2）学生成绩查询09 3）报表打印105、系统管理 1）用户管理10 2）密码修改116、系统维护 1）关于12 2）退出13六、设计体会13七、参考书目13一、 实习目的两周的时间里，在任课老师毛政利老师和马千里老师的指导下，掌握学生成绩管理系统的分析及设计方法，学会综合运用VFP数据库知识，重点掌握数据的添加、修改、查询功能。二、 本组课题及本人任务本组设计课题为学生成绩管理系统，组员有王大海、张国岭、张卫华、冯伟霞实习分为四部分：王大海：系统主程序及查询与统计设计；张国岭：学生信息管理设计；张卫华：系统管理设计；冯伟霞：学生成绩管理设计三、 系统需求调查分析 学生成绩管理系统对学校加强学生成绩管理有着极其重要的作用。由于各个大学都在持续扩招，学生的数量日益庞大，传统的手工成绩管理不仅工作量大，而且容易出现问题。另外，学生的成绩要用到学校教务管理的各个方面，所以一旦学生成绩管理出现了错误，后果往往是非常严重的。传统手工的学生成绩管理，管理过程繁琐而复杂，执行效率低，并且易于出错。通过这样的系统，我们可以做到信息的规范管理和快速查询，实现了学生成绩管理的系统化、规范和自动化，这样不仅减少了管理工作量，还提高了管理效率，降低了管理成本。 需求分析简单的说就是分析用户的要求，通过调查、收集与分析，获得用户对数据库的如下要求：3.1信息要求：指用户需要从数据库中获得信息的内容与性质。本系统需要的输入数据：学生信息（学号，姓名，班级，性别，出生日期）、课程信息(课程名，满分)、考生成绩；输出数据：学生成绩报表、学生信息报表、课程报表、成绩报表。3.2处理要求：指用户要完成什么处理功能。本系统功能需求可归纳如下： 数据登记登记功能用于把各种手填的数据及时登记系统定义表中，还能修改这些数据（学生信息、课程信息、成绩）。 数据浏览能浏览学生信息、课程信息、成绩。 数据打印能打印学生信息表、课程信息表、成绩表（单课成绩和总分成绩）。 数据统计能统计各班学生总数和男女人数，统计各班学生的总分、排名，及各单课的排名。 3.3 性能要求:维护数据的安全性.设定密码,限制非法用户的使用；还能修改密码，维护系统的安全性。四、 系统总体设计1、系统设计目标 实现了学生成绩数据库的创建及学生成绩的输入、浏览、维护和统计。 2、主要软件需求 操作系统：windows xp sp2软 件：V FP 6.0 3、功能模块与系统构成系统运行主程序用户登陆界面学生信息管理学生成绩管理查询与统计系统管理学生信息录入学生信息修改学生成绩录入学生成绩修改学生信息查询学生成绩查询关于系统密码修改用户管理退出五、系统详细设计 系统登陆如图：事件响应代码如下：sele 用户信息表if allt(thisform.text1.value)=messagebox(left(allt(thisform.label1.caption),6)+为空,请输入!,64,提示)thisform.text1.setfocuselseif allt(thisform.text2.value)=messagebox(密码为空,请输入!,64,提示)thisform.text2.setfocuselsen=n+1locate for allt(姓名)=allt(thisform.text1.value).and.allt(密码)=allt(thisform.text2.value)if found()if thisform.check1.value=1.and.标识checked=1dqyh=allt(姓名)thisform.releasedo menu.mprelseif thisform.check1.value=1.and.!标识messagebox(对不起,你不是管理员!,48,警告)thisform.check1.value=0elsechecked=0dqyh=allt(姓名)thisform.releasedo menu.mprendifendifelseif n=3messagebox(你不是合法用户,请与管理员联系!,48,警告)thisform.releaseclear eventquitelsemessagebox(left(allt(thisform.label1.caption),6)+或密码错误,请重新输入!,64,提示)thisform.text1.value=thisform.text1.setfocusthisform.text2.value= endif endif endifendif2、学生信息管理 1）学生信息录入如图所示事件响应代码如下：go bottomappend blankthisform.refresh2）学生信息修改如图所示事件响应代码如下：with thisformcreat cursor 1sb(学号 c(6), 姓名 c(10), 性别 c(2), 出生日期 d(8), 政治面貌 c(4), 身份证号码 c(18), 入学时间 d(8), 联系电话 c(15), 家庭住址 c(30), 邮政编码 c(6), 照片 g(4), 备注 m(4) sele 学生基本信息表locate for allt(学号)=allt(.text1.value)if allt(学号)=allt(.text1.value)replace 学号 with allt(.text1.value),姓名 with allt(.text2.value),出生日期 with .text3.value,入学时间 with .text4.value;联系电话 with allt(.text5.value),邮政编码 with allt(.text6.value),身份证号码 with allt(.text7.value);家庭住址 with allt(.text8.value),班级 with allt(.combo1.value),性别 with allt(.combo2.value),政治面貌 with allt(.combo3.value),备注 with allt(.edit1.value)if !pictemp=wait windows 正在导入相片,请等待!.at 100,40timeout 2 nowait append general 照片 foem&pictempendif endifsele lsblocate for allt(学号)=allt(text1.value)if allt(学号)=allt(学生基本信息表.学号)replace 学号 with 学生基本信息表.学号,姓名 with 学生基本信息表.姓名,出生日期 with 学生基本信息表.出生日期,;入学时间 with 学生基本信息表.入学时间,联系电话 with 学生基本信息表.联系电话,邮政编码 with 学生基本信息表.邮政编码,;身份证号码 with 学生基本信息表.身份证号码,家庭住址 with 学生基本信息表.家庭住址,性别 with 学生基本信息表.性别,;政治面貌 with 学生基本信息表.政治面貌,备注 with 学生基本信息表.备注,照片 with 学生基本信息表.照片endif pictemp=this.enabled=.f.endwith3、学生成绩管理 1）学生成绩录入如图所示事件响应代码如下：banji=alltrim(bo1.value)xuehao=alltrim(bo2.value)xueqi=alltrim(bo3.value)kecheng=alltrim(bo4.value)chengji=alltrim(thisform.text1.value)chengji_num=val(alltrim(thisform.text1.value)if xuehao=.or.banji=.or.xueqi=.or.kecheng=.or.chengji= messagebox(您的信息填写不完整,请补充完整!,0+32,提示) else sele 学生基本信息表 locate for alltrim(学号)=xuehao if eof() messagebox(对不起,此人不存在!,0+32,提示) else temp=0 sele 学生成绩信息表 locate for alltrim(学号)=xuehao do while found() if alltrim(课程)=kecheng .and.alltrim(学期)=xueqi temp=1 tt=messagebox(该科的成绩已存在,是否覆盖?,4+32+256,提示) if tt=6 repl 成绩 with chengji_num endif exit else continue endif enddo if temp=0 append blank repl 班级 with banji repl 学号 with xuehao repl 课程 with kecheng repl 成绩 with chengji_num repl 学期 with xueqi messagebox(成绩录入成功,请继续!,0+32,提示) endif endif endif2）学生成绩修改如图所示事件响应代码如下：sele lsbjif allt(thisform.text1.value)=messagebox(请输入学号或姓名!,32,提示)thisform.text1.setfocuselselocate for 学号=allt(thisform.text1.value).or.姓名=allt(thisform.text1.value)if eof() messagebox(本班没有此人,请重新输入!,64,提示)thisform.text1.value=thisform.text1.setfocuselsexuehao=allt(学号)thisform.label5.caption=姓名thisform.label6.caption=学号bo2.clickendifendif4、查询与统计1）学生信息查询如图所示事件响应代码如下：sele stulscount all to allstudentcount all for 性别=男to boycount all for 性别=女to girlthisform.label3.caption=allt(str(allstudent)thisform.label4.caption=allt(str(boy)thisform.label5.caption=allt(str(girl)go top2）学生成绩查询事件响应代码如下：if allt(bo1.value)=messagebox(请选择班级!,64,提示)elsetjbj=bo1.valuetjxq=bo2.valuedo form cjtjendif3）报表打印如图所示5、系统管理1） 用户管理 事件响应代码如下：sele 用户信息表if alltrim(thisform.text1.value)= messagebox(用户名不能为空!,0+48,警告) thisform.text1.setfocuselse locate for 姓名=alltrim(thisform.text1.value) if(.not.eof() messagebox(此用户已存在，请重新输入!,64,警告) thisform.text1.value= thisform.text1.setfocus else if alltrim(thisform.text2.value)= messagebox(密码不能为空!,0+48,警告) thisform.text2.setfocus elseif(thisform.text2.value)=(thisform.text3.value) append blank repl 姓名 with alltrim(thisform.text1.value),; 密码 with alltrim(thisform.text2.value) if thisform.check1.value=1 repl 标识 with.T. else repl 标识 with.F. endif thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text1.setfocus thisform.text3.enabled=.f. thisform.label4.enabled=.f. thisform.list1.clear thisform.list1.init else tt=messagebox(确认密码错误，请重新输入!,0+48,警告) if tt=1 thisform.text3.enabled=.t. thisform.label4.enabled=.t. thisform.text3.value= thisform.text3.setfocus endif endif endif endifendif2）密码修改事件响应代码如下：sele yonghuif allt(thisform.text1.value)= thisform.text1setfocus else locate for allt(姓名)=allt(thisform.text1.value) if eof() messagebox(此用户不存在，请重新输入!,64,提示) thisform.text1.value= thisform.text1.setfocus() if !allt(密码)=allt(thisform.text2.value) messagebox(密码错误，请重新输入!,64,提示) thisform.text2.value= thisform.text2.setfocus() else if allt(thisform.text3.value)= messagebox(请输入新密码!,64,提示) thisform.text3.setfocus else if !allt(thisform.text3.value)=allt(thisform.text4.value) messagebox(确认密码错误,请重新输入!,64,提示) thisform.text4.value= thisform.text4.setfocus else repl 密码 with allt(thisform.text4.v