四川vfp二级上机考试次答案PPT课件

1、结构化程序设计的步骤结构化程序设计的步骤第1页/共43页表单程序设计的步骤表单程序设计的步骤第2页/共43页第第3333次上机考试次上机考试第3页/共43页子表：子表：2 2号区号区父表：父表：1 1号区号区33.1.2编写程序（文件名：abc1.PRG）第4页/共43页select 2use 学生index on 学号 tag xhselect 1use 成绩set relation to 学号 into bp打开表，索引，关联打开表，索引，关联第5页/共43页p数据处理（数据处理（1）修改记录修改记录replace all 成绩 with 成绩*1.15 for 课程名=Access程序设

2、计将课程为“Access程序设计“的成绩提高15%。第6页/共43页p数据处理（数据处理（2）查询，显示查询，显示通过输入“学号”查询学生的信息，即：学号、姓名、课程名、成绩、学院等资料。若没找到，显示“数据表中没有查到此人信息！”。界面舅图所示：第7页/共43页accept 请输入查询的学号： to xhlocate for 学号=xhif found() ? *查询结果* ? 学号 姓名 课程名 成绩 学院 do while found() ? 学号, b.姓名, 课程名, 成绩, b.学院 continue enddo ? *else ? 数据表中没有查到此人信息！endif第8页/共4

3、3页p关闭表close databases第9页/共43页clearset talk offset safety offselect 2use 学生Index on 学号 tag xhselect 1use 成绩set relation to 学号 into breplace all 成绩 with 成绩*1.15 for 课程名=Access程序设计accept 请输入查询的学号： to xhlocate for 学号=xhif found() ? *查询结果* ? 学号 姓名 课程名 成绩 学院 do while found() ? 学号, b.姓名, 课程名, 成绩, b.学院 cont

4、inue enddo ? *else ? 数据表中没有查到此人信息！endifclose databases*abc1.PRG第10页/共43页33.1.3表单设计（文件名：表单1.SCX）第11页/共43页p创建表单，添加控件、数据环境创建表单，添加控件、数据环境第12页/共43页Thisform.Optiongroup1Value0ButtonCount2Thisform.Optiongroup1.Option1Caption男男Thisform.Optiongroup1.Option2Caption女女p设置控件属性设置控件属性Thisform.Command1Caption结束结束Th

5、isform.Grid1Visible.F.第13页/共43页p编写事件处理代码编写事件处理代码Thisform.Optiongroup1.Clickxb=do case case this.value=1 xb=男男 case this.value=2 xb=女女endcaseSELECT * FROM 学生学生; WHERE 学生学生.性别性别 = xb; INTO CURSOR tmpThisform.Grid1.Recordsource=tmpThisform.Grid1.Visible=.T.第14页/共43页Thisform.Command1.ClickThisform.Relea

6、se第15页/共43页子表：子表：2 2号区号区父表：父表：1 1号区号区33.2.2编写程序（文件名：abc2.PRG）第16页/共43页select 2use kshindex on 学号 tag xhselect 1use yyuset relation to 学号 into bp打开表，索引，关联打开表，索引，关联第17页/共43页p数据处理（数据处理（1）修改记录修改记录replace all 平均分 with (笔试+听力)/2计算并填写“yyu.dbf”的平均；第18页/共43页p数据处理（数据处理（2）修改，显示修改，显示填写ksh.dbf中的“评语”字段值。其中：当平均分=9

7、0，评语为“优”； 当平均分=80，评语为“良”； 当平均分=70，评语为“中”。查询输入格式如下：第19页/共43页go topdo while !eof() do case case 平均分=90 replace b.评语 with 优 case 平均分=80 replace b.评语 with 良 case 平均分=70 replace b.评语 with 中 endcase skipenddobrowse fields 学号, b.姓名, 笔试, 听力, 平均分, b.评语第20页/共43页p关闭表close databases第21页/共43页clearset talk offset

8、 safety offselect 2use kshindex on 学号 tag xhselect 1use yyuset relation to 学号 into breplace all 平均分 with (笔试+听力)/2go topdo while !eof() do case case 平均分=90 replace b.评语 with 优 case 平均分=80 replace b.评语 with 良 case 平均分=70 replace b.评语 with 中 endcase skipenddobrowse fields 学号, b.姓名, 笔试, 听力, 平均分, b.评语cl

9、ose databases*abc2.PRG第22页/共43页33.2.3表单设计（文件名：表单1.SCX）第23页/共43页p创建表单，添加控件、数据环境创建表单，添加控件、数据环境第24页/共43页Thisform.Pageframe1PageCount2Thisform.Pageframe1.Page1Caption成绩成绩Thisform.Pageframe1.Page2Caption综合综合p设置控件属性设置控件属性Thisform.Command1Caption退出退出其它控件属性其它控件属性Thisform.Pageframe1.Page2.Label1.Caption学号学号T

10、hisform.Pageframe1.Page2.Label2.Caption平均分平均分Thisform.Pageframe1.Page2.Label3.Caption评语评语Thisform.Pageframe1.Page2.Text1.ControlSourceyyu.学号学号Thisform.Pageframe1.Page2.Text2.ControlSourceyyu.平均分平均分Thisform.Pageframe1.Page2.Text3.ControlSourceksh.评语评语ThisformCaption英语成绩英语成绩第25页/共43页其它控件属性其它控件属性Thisfo

11、rm.Pageframe1.Page2.Commandgroup1.ButtonCount3Thisform.Pageframe1.Page2.Commandgroup1.Command1.Caption上一条上一条Thisform.Pageframe1.Page2.Commandgroup1.Command2.Caption下一条下一条Thisform.Pageframe1.Page2.Commandgroup1.Command3.Caption结束结束第26页/共43页p编写事件处理代码编写事件处理代码Thisform.InitSELECT Yyu.学号学号, Ksh.姓名姓名, Yyu.

12、笔试笔试, Yyu.听力听力; FROM yyu INNER JOIN ksh ; ON Yyu.学号学号 = Ksh.学号学号; INTO CURSOR tmpThisform.Pageframe1.Page1.Grid1.Recordsource=tmpselect yyuThisform.Command1.ClickThisform.Release第27页/共43页Thisform.Pageframe1.Page2.Commandgroup1.Clickdo case case this.value=1 if !bof() skip -1 endif case this.value=2

13、if !eof() skip endif case this.value=3 Thisform.ReleaseendcaseThisform.Refresh第28页/共43页子表：子表：2 2号区号区父表：父表：1 1号区号区33.3.2编写程序（文件名：abc3.PRG）第29页/共43页select 2use 商品index on 商品号 tag sphselect 1use 订单set relation to 商品号 into bp打开表，索引，关联打开表，索引，关联第30页/共43页p数据处理（数据处理（1）修改记录修改记录replace all 总金额 with b.单价*数量计算订

14、单的总金额（总金额=单价*数量），填入“订单.dbf”的“总金额”字段中。第31页/共43页p数据处理（数据处理（2）修改，显示修改，显示按订单号查询该商品名、单价、数量和总金额。要求能反复查询。直到用户不再查询为止。界面如下图所示：请输入订单号：0002=查询结果=商品名称 单价 数量 总金额计算机操作系统 31.00 2 62.00继续查询吗？（y/n）n第32页/共43页do while .T. accept 请输入订单号： to ddh locate for 订单号=ddh ? =查询结果= ? 商品名称 单价 数量 总金额 do while found() ? b.商品名, b.单价

15、, 数量, 总金额 continue enddo wait 继续查询吗（Y/N）？ to yn if upper(yn)=N exit endifenddo第33页/共43页p关闭表close databases第34页/共43页clearset talk offset safety offselect 2use 商品index on 商品号 tag sphselect 1use 订单set relation to 商品号 into breplace all 总金额 with b.单价*数量do while .T. accept 请输入订单号： to ddh locate for 订单号=dd

16、h ? =查询结果= ? 商品名称 单价 数量 总金额 do while found() ? b.商品名, b.单价, 数量, 总金额 continue enddo wait 继续查询吗（Y/N）？ to yn if upper(yn)=N exit endifenddoclose databases*abc3.PRG第35页/共43页33.4.2编写程序（文件名：abc4.PRG）第36页/共43页pSQL查询SELECT Xscjzk.学号, Xjxx.姓名, Dm_yx.院系简称,;Xscjzk.课程代码, Xscjzk.成绩; FROM xscjzk INNER JOIN xjxx;

17、INNER JOIN dm_yx ; ON Xjxx.院系代码 = Dm_yx.院系代码 ; ON Xscjzk.学号 = Xjxx.学号; WHERE Dm_yx.院系简称 = 动科院第37页/共43页33.5.2编写程序（文件名：abc5.PRG）第38页/共43页use cj5p打开表打开表第39页/共43页p数据处理数据处理 统计，显示统计，显示1. 从键盘上输入查询的学号，能查询该同学的学号、平均成绩2. 程序要求能反复查询输出，其输出格式如下：。第40页/共43页do while .T. accept 请输入查询的学号： to xh average 成绩 to pj for 学号=xh ? 学号：, xh, 平均成绩：, pj wait 继续查询吗（Y/N）？ to yn if upper(yn