学生成绩管理系统实验报告

1、学生成绩管理系统设计实验报告-数据库应用与开发组长：杨明涛同组人：方肖明、李少杰、刘俊涛、罗小刚、杨明涛、杨正刚（按学号排列）2011/6/11系统开发过程：数据库原理理论，Visual FOXPRO 开发工具，小组人员参与；学生成绩管理系统设计实验报告需求分析学习任务与目的学生成绩是各个学校考核学生的一个重要指标。因此有个完善的学生成绩管理系统也非常重要。因此这次实训主要对学生成绩管理系统进行分析，分析实际的学生管理有哪些需求，需要完成哪些功能。学会软件开发的一般流程和要进行准备。系统功能需求学生成绩管理系统包括对学生基本信息的管理、课程基本信息的管理、这些数据的添加，删除、修改和基本数据的

2、查询。学生基本信息显示，包括学生信息、课程信息；基本功能包括：系统登录；为保证学生成绩管理系统的数据安全，要求登录系统时有密码管理功能。数据管理；对学生基本信息进行管理，包括学生所在院系、班级及所学专业、课程等内容；信息管理；对学生基本信息进行录入和管理；成绩管理；对学生在校期间的学习成绩进行录入和管理查询与统计；对学生基本信息、成绩信息进行查询和统计；系统管理；包括用户管理、系统使用帮助以及数据备份和数据恢复等；任务实施学生成绩管理数据库设计课程表课程信息表学生信息表用户表物理设计与逻辑设计1、ER图成绩分数课程号课程名姓名学号考核教师姓名编号担任专业专业号专业名班级班级号专业号组成具有课程

3、学生学号姓名院系课程名课程号选修课程学生学号姓名院系课程名课程号选修班级班级号专业号组成具有专业专业号专业名班级教师姓名编号担任考核 课程号专业号逻辑设计根据系统需要，全局ER图要向关系模型转换，遵循以下规则：（1）、一个实体转化为一个关系模式，实体的属性就是关系的属性，实体的键就是关系的键学生（学号，姓名，院系，班级）专业（专业号，专业名）班级（班级号，专业号）课程（课程号，课程）教师（教师编号，教师姓名，专业号，课程号， ）（2）、一个M:N关系转化为一个关系模型，与该联系想连的各实体的键以及联系本身的属性转化为关系的属性，而关系的键位各实体键的组合。成绩（学号，姓名，分数，课程号，课程名

4、）学生登录界面设计主界面设计各个模块的设计：学生信息模块设计成绩查询模块设计信息修改模块设计系统实现相应代码主程序main的代码*-系统环境设置CLEARCLEAR ALLSET ESCAPE OFF & 禁止运行的程序在按ESC键被中断SET TALK OFF & 关闭命令显示SET SAFETY OFF& 覆盖时不要确认SET STAT BAR OFF& 将状态栏关闭SET SYSMENU OFF& 可关掉VFP系统菜单区域SET SYSMENU TO& 关闭系统菜单SET CENTURY ON& 显示四位年代SET DATE ANSI & 指定日期表达式的显示格式为public curu

5、serDO FORM logoin& 显示登录表单READ EVENTS& 进入事务处理 2、登陆模块代码command1的click事件代码SET EXACT ONselect userlocate for 用户名=allt(thisform.Text1.value)if found() locate for 密码=allt(thisform.Text2.value) endif if found() curuser=allt(thisform.Text1.value) do form main else yes= messagebox(该用户名不存在或密码错误！) thisform.tex

6、t2.value= endifSET EXACT OFFcommand2的click事件代码YN=MESSAGEBOX(确定删除,4+32,学生成绩管理系统)IF YN=6THISFORM.grdGradedata.RecordSource=NULLSELECT gradedataDELETEPACKTHISFORM.grdGradedata.RecordSource=gradedataIF EOF() .AND. BOF() .OR. RECCOUNT()=0ELSEIF EOF()SKIP-1ELSESKIPENDIFENDIFENDIFcommand3的click事件代码CLEAR EV

7、ENTS CLOSE ALL3、系统主界面实现代码command1的click事件代码do form cjlrcommand1的click事件代码do form addstcommand1的click事件代码do form cjcxcommand1的click事件代码do form xtwhcommand1的click事件代码quit4、成绩录入模块代码实现（1）combo1的Interactivechange事件代码set exact onselect studatalocate for 学号=allt(thisform.Combo1.value)if found()thisform.Tex

8、t1.value=姓名set exact offendif（2）combo2的Interactivechange事件代码set exact onselect coursedatalocate for 课程号=allt(thisform.Combo2.value)if found()thisform.Text2.value=课程set exact offendif（3）command1的click事件代码xh=allt(thisform.Combo1.value)kch=allt(thisform.Combo2.value)kc=allt(thisform.Text2.value)cj=allt

9、(thisform.Text3.value)insert into gradedata(学号,姓名,课程号,课程,成绩) values(xh,xm,kch,kc,cj)messagebox(录入成绩成功！)command2的click事件代码YN=MESSAGEBOX(确定删除,4+32,学生成绩管理系统)IF YN=6THISFORM.grdGradedata.RecordSource=NULLSELECT gradedataDELETEPACKTHISFORM.grdGradedata.RecordSource=gradedataIF EOF() .AND. BOF() .OR. RECC

10、OUNT()=0ELSEIF EOF()SKIP-1ELSESKIPENDIFENDIFENDIFcommand3的click时间代码5、添加学生信息模块的实现代码（1）command1的click事件代码select studataGO BOTTOMAPPEND BLANK（2）command2的click事件代码（3）command3的click事件代码YN=MESSAGEBOX(确定删除,4+32,学生成绩管理系统)IF YN=6THISFORM.grdStudata.RecordSource=NULLSELECT studataDELETEPACKTHISFORM.grdStudata

11、.RecordSource=studataIF EOF() .AND. BOF() .OR. RECCOUNT()=0ELSEIF EOF()SKIP-1ELSESKIPENDIFENDIFENDIF（4）command4的click事件代码T6、成绩查询模块的实现代码（1）form1的Init事件代码thisform.grdGradedata.RecordSource=Null（2）combo1的AddTtem事件代码LPARAMETERS CItem（3）command2的click事件代码thisform.grdGradedata.RecordSource=gradedatasearch

12、Filter=.T.IF NOT EMpTY(ALLTRIM(THIsFORM.Text1.Value) searchFilter=searchFilter + AND + ALLTRIm(THIsFORm.Text1.Value)+ $ 学号ENDIFIF NOT EmpTY(THIsFORm.Combo1.Value) searchFilter=searchFilter + AND + ALLTRIm(THIsFORm.Combo1.Value) + $ 课程ENDIFsELECT gradedatasET FILTER TOsET FILTER TO &searchFilter（4）co

13、mmand2的click事件代码 T7、系统维护模块的实现代码 （1）form1的Init事件代码 用户名.Value=curuser （2）command1的click事件代码 SET EXACT ON用户名.value) to name新密码.value) to passselect user新密码确认密码.value update user set 用户名=pass where 密码用户名.value) messagebox(密码修改成功！,0+64+0,信息)else messagebox(ID或密码验证不统一，请重输入！,0+64+0,错误) endif SET EXACT OFF（3）command2的click事件代码YN=MESSAGEBOX(确定退出,4+32,学生成绩管理系统)IF YN=6ENDIF8、设置文件的默认目