Visual FoxPro 课程设计文档格式.docx

1、5.4.1 控件属性设置- 115.4.2 代码设计- 11 5.5 学生成绩查询- 135.5.1 按学号查询表单控件属性设置- 135.5.2 按学号查询表单代码设计- 135.5.3 按课程查询表单控件属性设置- 145.5.4 按课程查询表单代码设计- 145.5.5 按班级号查询表单控件属性设置- 155.5.6 按班级号查询表单代码设计- 155.5.7 按总分查询表单控件属性设置- 165.5.8 按总分查询表单代码设计- 16 5.6 学生成绩浏览- 175.6.1 学生成绩概况表单控件属性设置- 175.6.2 学生成绩概况表单代码设计- 175.6.3 080901_成绩浏

2、览表单控件属性设置- 185.6.4 080901_成绩浏览表单代码设计- 185.6.5 080902_成绩浏览表单控件属性设置- 195.6.6 080902_成绩浏览表单代码设计- 19 5.7 打印报表- 215.7.1 打印报表表单设计- 215.7.2 打印报表文件设计- 21 5.8退出系统 5.8.1退出系统表单控件属性设置- 22 5.8.2 退出系统表单代码设计- 22第六章 课程设计总结- 23第七章 参考文献- 231.1 系统功能简介录入：录入学号，学生姓名，课程号，课程名，成绩修改：按课程号修改成绩查询：按学号查询该同学的各科成绩；按课程号查询每名同学的成绩，并排序

3、查询结果；按班级号查询每名同学的各科成绩；按总分查询每名同学的总成绩，并排序查询结果打印:打印成绩1.2 系统功能结构图学习成绩管理系统第二章 需求分析业务流程：运行主程序 登录主界面（输入密码） 登录主菜单 成绩录入 成绩修改成绩查询（按学号，课程号，班级号，总分） 成绩浏览（概况，080901班，080902班） 打印报表 退出系统3.1 学生表表结构：学生表（学号 C 8，姓名 C 8，性别 C 2,出生日期D，班级号 C 8）主索引：学号 ；候选索引：姓名3.2 课程表课程表（课程号 C 4，课程名 C 14，学分 数值型 N 3,0，任课教师 C 8） 课程号；课程名3.3 成绩表成

4、绩表（学号 C 8，课程号 C 4，成绩 N 5,0，性别 C 2，班级号 C 8）普通索引：成绩4.1 学生表数据4.2 课程表数据43 成绩表数据5.1 系统主界面设置5.1.1 控件属性设置（1）主表单属性：Name:”form1”Caption:主界面Height=454Width=633MaxButton=.F.MinButton=.F.WindowType=0WindowState=0AutoCenter=.T.Closeable=.F.（2）命令按钮属性：Name=”Command1”Name=”Command2“Name=“Command3“Caption=“开始“Captio

5、n=”确定“Caption=“退出”Visible=.F.（3） 文本框：1个，用来接收口令，其主要属性为：Name=“Text1” PasswordChar=“*”（4）标签：共三个，主要属性：Name=“Lable1” Caption=”学生成绩管理系统”Name=“Lable2”Name=“Lable3“Caption=”Designed by Yang Shu Hua“Caption=“请输入口令：”（5） 时钟控件：共两个，用来控制Lable2的颜色变化Name=“Timer1”Name=”Timer2”Interval=1230Interval=8435.1.2 代码设计Comma

6、nd1的Click事件thisform.label3.visible=.T.thisform.text1.visible=.T.mand1.visible=.F.mand2.visible=.T.Command2的Click事件passw=YANGSHUHUAIF UPPER（thisform.text1.value）=passw DO form 主菜单 thisform.release ELSE MessageBox（口令不对，您无权使用本系统!,0+16+0,设置口令） thisform.refreshENDIFCommand3的Click事件clear eventsset sysmenu

7、 to defathisform.releaseTimer1的Timer事件thisform.label2.forecolor=rgb（255,0,0）Timer2的Timer事件thisform.label2.forecolor=rgb（0,0,255）5.2 主菜单设计5.2.1 控件属性设置标签Lable1的Caption属性：经济管理学院学生成绩管理系统5.2.2 代码设计 表单的Init事件：do 学生成绩管理.mpr WITH THis,.T.5.2.3 菜单设计按照系统功能结构图设计菜单在系统主菜单的“显示”菜单下，选择“常规选项”命令，在弹出的对话框中，勾选顶层表单选项，将该表

8、单设置为顶层表单。.学生成绩录入.3.1 控件属性设置标签：Label1 Caption：学号；Label2 Caption： Label3 Caption：成绩：Label4 Caption: 性别； Label5 Caption: 班级号；Command1 Caption：添加； Command2 Caption：删除：Command3 Caption：退出5.3.2 代码设计select 成绩表go bottomappend blankreplace 成绩表.学号 with thisform.text1.valuereplace 成绩表.性别 with thisform.text4.va

9、luereplace 成绩表.课程号 with thisform.text2.valuereplace 成绩表.班级号 with thisform.text5.valuereplace 成绩表.成绩 with thisform.text3.valuethisform.refreshnA=MESSAGEBOX（你确定删除该记录吗?,4+64+256,提示IF nA=6DELETE PACK5.4 学生成绩修改5.4.1 控件属性设置课程号;成绩;Label3 Caption：Label4 Caption：成绩修改;修改;Command2 Caption：5.4.2 代码设计 locate for

10、 学号=thisform.text2.value and 课程号=thisform.text1.valuedo while found（） replace 成绩 with thisform.text3.value continueenddo5.5 学生成绩查询5.5.1按学号查询表单控件属性设置学号;查询;表格：显示查询结果5.5.2 按学号查询表单代码设计set safety offselect 学生表.学号,学生表.姓名,课程表.课程号,课程表.课程名,成绩表.成绩 from 学生表,课程表,成绩表;where 成绩表.学号=学生表.学号 AND 成绩表.课程号=课程表.课程号 and 成

11、绩表.学号=thisform.text1.value;into table cxbthisform.grid1.recordsource=cxbset safety on5.5.3 按课程查询表单控件属性设置OptionGroup1.option1 Caption: 升序;OptionGroup.option2 Caption：降序;Command1 Caption:表格控件：5.5.4 按课程号查询表单代码设计if thisform.optiongroup1.option1.value=1where 成绩表.学号=学生表.学号 AND 成绩表.课程号=课程表.课程号 and 成绩表.课程号=

12、thisform.text1.value;order by 成绩表.成绩 asc into table cxb1elseorder by 成绩表.成绩 desc into table cxb1endifcxb15.5.5按班级查询表单控件属性设置班级号；查询；5.5.6按班级查询表单代码设计where 成绩表.学号=学生表.学号 AND 成绩表.课程号=课程表.课程号 and 学生表.班级号=thisform.text1.value;into table cxb2cxb25.5.7 按总分查询表单控件属性设置降序Command1 Caption:退出；5.5.8 按总分查询表单代码设计sele

13、ct 成绩表.学号,学生表.姓名,学生表.班级号,SUM（成绩表.成绩） as 总分 from 成绩表,学生表;where 成绩表.学号=学生表.学号 group by 成绩表.学号 order by 总分 asc;into table cbx4where 成绩表.学号=学生表.学号 group by 成绩表.学号 order by 总分 desc;cbx4Thisform.release5.6 学生成绩浏览5.6.1 学生成绩概况表单控件属性设置Label Caption：全体学生成绩概况，fontunderline=.T.5.6.2 学生成绩概况代码设计Form1的Init事件do sum

14、cj.prgthisform.text1.value=c1thisform.text2.value=c2thisform.text3.value=c3thisform.text4.value=c4thisform.text5.value=c5thisform.text6.value=c6thisform.text7.value=c7Sumcj.prgclose datapublic c1,c2,c3,c4,c5,c6,c7open data 学生成绩管理系统use 成绩表 againcalculate AVG（成绩表.成绩） to c1calculate avg（成绩表.成绩） for 性别=

15、男 to c2女 to c3calculate avg（成绩表.成绩） for 课程号=001 to c4002 to c5003 to c6004 to c7use5.6.3 080901_成绩浏览表单控件属性设置Label caption:080901 成绩浏览 fontunderline=.T.5.6.4 080901_成绩浏览表单代码设计do subcj.prgSubcj.prgcalculate AVG（成绩表.成绩） for 班级号=080901 to c1 and 班级号=0908015.6.5 080902_成绩浏览表单控件属性设置080902_成绩浏览；fontunderline=.T.5.6.6 080902_成绩浏览表单代码设计Form1的Click事件do clacj.prgClacj.prg080902calculate avg（成绩表.成绩） for 性别=