Visual FoxPro 课程设计.docx

1、Visual FoxPro 课程设计Visual FoxPro 数据库程序设计课程设计报告 时间：2012年4月6日 目 录第一章 系统总体设计1.1 系统功能简介- 4 1.2 系统功能结构图- 4第二章 需求分析- 5第三章 数据库设计 3.1 学生表- 5 3.2 课程表- 5 3.3 成绩表- 5第四章 实验数据 4.1 学生表数据- 6 4.2 课程表数据- 6 4.3 成绩表数据- 7第五章 程序设计界面 5.1 系统主界面设计- 85.1.1 控件属性设置- 85.1.2 代码设计- 9 5.2 主菜单设计- 95.2.1 控件属性设置- 9 5.2.2 代码设计- 95.2.3

2、 菜单设计- 9 5.3 学生成绩录入- 105.3.1 控件属性设置- 105.3.2 代码设计- 10 5.4 学生成绩修改- 115.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 学生成绩

3、浏览- 175.6.1 学生成绩概况表单控件属性设置- 175.6.2 学生成绩概况表单代码设计- 175.6.3 080901_成绩浏览表单控件属性设置- 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第七章 参考文献- 23第一章 系统总体设计

4、1.1 系统功能简介录入：录入学号，学生姓名，课程号，课程名，成绩修改：按课程号修改成绩查询：按学号查询该同学的各科成绩；按课程号查询每名同学的成绩，并排序查询结果；按班级号查询每名同学的各科成绩；按总分查询每名同学的总成绩，并排序查询结果打印:打印成绩1.2 系统功能结构图学习成绩管理系统第二章 需求分析业务流程：运行主程序 登录主界面（输入密码） 登录主菜单 成绩录入 成绩修改成绩查询（按学号，课程号，班级号，总分） 成绩浏览（概况，080901班，080902班） 打印报表 退出系统第三章 数据库设计3.1 学生表表结构：学生表（学号 C 8，姓名 C 8，性别 C 2,出生日期D，班级

5、号 C 8）主索引：学号 ；候选索引：姓名3.2 课程表表结构：课程表（课程号 C 4，课程名 C 14，学分 数值型 N 3,0，任课教师 C 8） 主索引：课程号；候选索引：课程名3.3 成绩表表结构：成绩表（学号 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.Win

6、dowType=0WindowState=0AutoCenter=.T.Closeable=.F.(2)命令按钮属性：Name=”Command1”Name=”Command2“Name=“Command3“Caption=“开始“Caption=”确定“Caption=“退出”Visible=.F.(3) 文本框：1个，用来接收口令，其主要属性为：Name=“Text1” PasswordChar=“*”(4)标签：共三个，主要属性：Name=“Lable1” Caption=”学生成绩管理系统”Name=“Lable2”Name=“Lable3“Caption=”Designed by Y

7、ang Shu Hua“Caption=“请输入口令：”Visible=.F.(5) 时钟控件：共两个，用来控制Lable2的颜色变化Name=“Timer1”Name=”Timer2”Interval=1230Interval=8435.1.2 代码设计Command1的Click事件thisform.label3.visible=.T.thisform.text1.visible=.T.mand1.visible=.F.mand2.visible=.T.Command2的Click事件passw=YANGSHUHUAIF UPPER(thisform.text1.value)=passw

8、DO form 主菜单 thisform.release ELSE MessageBox(口令不对，您无权使用本系统!,0+16+0,设置口令) thisform.refreshENDIFCommand3的Click事件clear eventsset sysmenu 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属性

9、：经济管理学院学生成绩管理系统5.2.2 代码设计 表单的Init事件：do 学生成绩管理.mpr WITH THis,.T.5.2.3 菜单设计按照系统功能结构图设计菜单在系统主菜单的“显示”菜单下，选择“常规选项”命令，在弹出的对话框中，勾选顶层表单选项，将该表单设置为顶层表单。.学生成绩录入.3.1 控件属性设置标签：Label1 Caption：学号；Label2 Caption：课程号； Label3 Caption：成绩：Label4 Caption: 性别； Label5 Caption: 班级号；Command1 Caption：添加； Command2 Caption：删除：

10、Command3 Caption：退出5.3.2 代码设计Command1的Click事件select 成绩表go bottomappend blankreplace 成绩表.学号 with thisform.text1.valuereplace 成绩表.性别 with thisform.text4.valuereplace 成绩表.课程号 with thisform.text2.valuereplace 成绩表.班级号 with thisform.text5.valuereplace 成绩表.成绩 with thisform.text3.valuethisform.refreshComman

11、d2的Click事件nA=MESSAGEBOX(你确定删除该记录吗?,4+64+256,提示)IF nA=6DELETE PACKENDIFCommand3的Click事件thisform.release5.4 学生成绩修改5.4.1 控件属性设置Label1 Caption：课程号;Label2 Caption：成绩;Label3 Caption：学号；Label4 Caption：成绩修改;Command1 Caption：修改;Command2 Caption：退出5.4.2 代码设计Command1的Click事件select 成绩表 locate for 学号=thisform.te

12、xt2.value and 课程号=thisform.text1.valuedo while found() replace 成绩 with thisform.text3.value continueenddoCommand2的Click事件thisform.release5.5 学生成绩查询5.5.1按学号查询表单控件属性设置Label1 Caption：学号;Command1 Caption：查询;Command2 Caption：退出表格：显示查询结果5.5.2 按学号查询表单代码设计Command1的Click事件set safety offselect 学生表.学号,学生表.姓名,课

13、程表.课程号,课程表.课程名,成绩表.成绩 from 学生表,课程表,成绩表;where 成绩表.学号=学生表.学号 AND 成绩表.课程号=课程表.课程号 and 成绩表.学号=thisform.text1.value;into table cxbthisform.grid1.recordsource=cxbthisform.refreshset safety onCommand2的Click事件thisform.release5.5.3 按课程查询表单控件属性设置Label1 Caption：课程号;OptionGroup1.option1 Caption: 升序;OptionGroup.

14、option2 Caption：降序;Command1 Caption:查询;Command2 Caption：退出表格控件：显示查询结果5.5.4 按课程号查询表单代码设计Command1的Click事件set safety offif thisform.optiongroup1.option1.value=1select 学生表.学号,学生表.姓名,课程表.课程号,课程表.课程名,成绩表.成绩 from 学生表,课程表,成绩表;where 成绩表.学号=学生表.学号 AND 成绩表.课程号=课程表.课程号 and 成绩表.课程号=thisform.text1.value;order by

15、成绩表.成绩 asc into table cxb1elseselect 学生表.学号,学生表.姓名,课程表.课程号,课程表.课程名,成绩表.成绩 from 学生表,课程表,成绩表;where 成绩表.学号=学生表.学号 AND 成绩表.课程号=课程表.课程号 and 成绩表.课程号=thisform.text1.value;order by 成绩表.成绩 desc into table cxb1endifthisform.grid1.recordsource=cxb1thisform.refreshset safety onCommand2的Click事件thisform.release5.

16、5.5按班级查询表单控件属性设置Label1 Caption：班级号；Command1 Caption：查询；Command2 Caption：退出5.5.6按班级查询表单代码设计Command1的Click事件set safety offselect 学生表.学号,学生表.姓名,课程表.课程号,课程表.课程名,成绩表.成绩 from 学生表,课程表,成绩表;where 成绩表.学号=学生表.学号 AND 成绩表.课程号=课程表.课程号 and 学生表.班级号=thisform.text1.value;into table cxb2thisform.grid1.recordsource=cxb

17、2thisform.refreshset safety onCommand2的Click事件thisform.release5.5.7 按总分查询表单控件属性设置OptionGroup1.option1 Caption: 升序;OptionGroup.option2 Caption：降序Command1 Caption:查询;Command2 Caption：退出；表格控件：显示查询结果5.5.8 按总分查询表单代码设计Command1的Click事件set safety offif thisform.optiongroup1.option1.value=1select 成绩表.学号,学生表.

18、姓名,学生表.班级号,SUM(成绩表.成绩) as 总分 from 成绩表,学生表;where 成绩表.学号=学生表.学号 group by 成绩表.学号 order by 总分 asc;into table cbx4elseselect 成绩表.学号,学生表.姓名,学生表.班级号,SUM(成绩表.成绩) as 总分 from 成绩表,学生表;where 成绩表.学号=学生表.学号 group by 成绩表.学号 order by 总分 desc;into table cbx4endifthisform.grid1.recordsource=cbx4thisform.refreshset sa

19、fety onCommand2的Click事件Thisform.release5.6 学生成绩浏览5.6.1 学生成绩概况表单控件属性设置Label Caption：全体学生成绩概况，fontunderline=.T.5.6.2 学生成绩概况代码设计Form1的Init事件do sumcj.prgthisform.text1.value=c1thisform.text2.value=c2thisform.text3.value=c3thisform.text4.value=c4thisform.text5.value=c5thisform.text6.value=c6thisform.text

20、7.value=c7Sumcj.prgclose datapublic c1,c2,c3,c4,c5,c6,c7open data 学生成绩管理系统use 成绩表 againcalculate AVG(成绩表.成绩) to c1calculate avg(成绩表.成绩) for 性别=男 to c2calculate avg(成绩表.成绩) for 性别=女 to c3calculate avg(成绩表.成绩) for 课程号=001 to c4calculate avg(成绩表.成绩) for 课程号=002 to c5calculate avg(成绩表.成绩) for 课程号=003 to

21、 c6calculate avg(成绩表.成绩) for 课程号=004 to c7use5.6.3 080901_成绩浏览表单控件属性设置Label caption:080901 成绩浏览 fontunderline=.T.5.6.4 080901_成绩浏览表单代码设计Form1的Init事件do subcj.prgthisform.text1.value=c1thisform.text2.value=c2thisform.text3.value=c3thisform.text4.value=c4thisform.text5.value=c5thisform.text6.value=c6th

22、isform.text7.value=c7Subcj.prgclose datapublic c1,c2,c3,c4,c5,c6,c7open data 学生成绩管理系统use 成绩表 againcalculate AVG(成绩表.成绩) for 班级号=080901 to c1calculate avg(成绩表.成绩) for 性别=男 and 班级号=080901 to c2calculate avg(成绩表.成绩) for 性别=女 and 班级号=080901 to c3calculate avg(成绩表.成绩) for 课程号=001 and 班级号=080901 to c4calc

23、ulate avg(成绩表.成绩) for 课程号=002 and 班级号=080901 to c5calculate avg(成绩表.成绩) for 课程号=003 and 班级号=080901 to c6calculate avg(成绩表.成绩) for 课程号=004 and 班级号=090801 to c7use5.6.5 080902_成绩浏览表单控件属性设置Label Caption：080902_成绩浏览；fontunderline=.T.5.6.6 080902_成绩浏览表单代码设计Form1的Click事件do clacj.prgthisform.text1.value=c1

24、thisform.text2.value=c2thisform.text3.value=c3thisform.text4.value=c4thisform.text5.value=c5thisform.text6.value=c6thisform.text7.value=c7Clacj.prgclose datapublic c1,c2,c3,c4,c5,c6,c7open data 学生成绩管理系统use 成绩表 againcalculate AVG(成绩表.成绩) for 班级号=080902 to c1calculate avg(成绩表.成绩) for 性别=男 and 班级号=080902 to c2calculate avg(成绩表.成绩) for 性别=