四川vfp二级上机考试33次de答案ppt课件

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

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

3、人信息！endifp关闭表关闭表close databasesclearset 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() ? *查询结果查询结果* ? 学号学号 姓名姓名 课程名课程名 成果成果 学院学院

4、do while found() ? 学号学号, b.姓名姓名, 课程名课程名, 成果成果, b.学院学院 continue enddo ? *else ? 数据表中没有查到此人信息！数据表中没有查到此人信息！endifclose databases*abc1.PRG33.1.3表单设计文件名：表单表单设计文件名：表单1.SCX）p创建表单，添加控件、数据环境创建表单，添加控件、数据环境Thisform.Optiongroup1Value0ButtonCount2Thisform.Optiongroup1.Option1Caption男男Thisform.Optiongroup1.Option

5、2Caption女女p设置控件属性设置控件属性Thisform.Command1Caption结束结束Thisform.Grid1Visible.F.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.Th

6、isform.Command1.ClickThisform.Release子表：子表：2 2号区号区父表：父表：1 1号区号区33.2.2编写程序文件名：编写程序文件名：abc2.PRG）select 2use kshindex on 学号学号 tag xhselect 1use yyuset relation to 学号学号 into bp打开表，索引，关联打开表，索引，关联p数据处理数据处理1）修改记录修改记录replace all 平均分平均分 with (笔试笔试+听力听力)/2计算并填写“yyu.dbf的平均；p数据处理数据处理2）修正，显示修正，显示填写ksh.dbf中的“评语字段

7、值。其中：当平均分=90，评语为“优”； 当平均分=80，评语为“良”； 当平均分=70，评语为“中”。查询输入格式如下：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.评语评语p关闭表关闭表close databasescl

8、earset talk offset 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 skipe

9、nddobrowse fields 学号学号, b.姓名姓名, 笔试笔试, 听力听力, 平均分平均分, b.评语评语close databases*abc2.PRG33.2.3表单设计文件名：表单表单设计文件名：表单1.SCX）p创建表单，添加控件、数据环境创建表单，添加控件、数据环境Thisform.Pageframe1PageCount2Thisform.Pageframe1.Page1Caption成绩成绩Thisform.Pageframe1.Page2Caption综合综合p设置控件属性设置控件属性Thisform.Command1Caption退出退出其它控件属性其它控件属性Thi

10、sform.Pageframe1.Page2.Label1.Caption学号学号Thisform.Pageframe1.Page2.Label2.Caption平均分平均分Thisform.Pageframe1.Page2.Label3.Caption评语评语Thisform.Pageframe1.Page2.Text1.ControlSourceyyu.学号学号Thisform.Pageframe1.Page2.Text2.ControlSourceyyu.平均分平均分Thisform.Pageframe1.Page2.Text3.ControlSourceksh.评语评语Thisform

11、Caption英语成绩英语成绩其它控件属性其它控件属性Thisform.Pageframe1.Page2.Commandgroup1.ButtonCount3Thisform.Pageframe1.Page2.Commandgroup1.Command1.Caption上一条上一条Thisform.Pageframe1.Page2.Commandgroup1.Command2.Caption下一条下一条Thisform.Pageframe1.Page2.Commandgroup1.Command3.Caption结束结束p编写事件处理代码编写事件处理代码Thisform.InitSELECT

12、Yyu.学号学号, Ksh.姓名姓名, Yyu.笔试笔试, Yyu.听力听力; FROM yyu INNER JOIN ksh ; ON Yyu.学号学号 = Ksh.学号学号; INTO CURSOR tmpThisform.Pageframe1.Page1.Grid1.Recordsource=tmpselect yyuThisform.Command1.ClickThisform.ReleaseThisform.Pageframe1.Page2.Commandgroup1.Clickdo case case this.value=1 if !bof() skip -1 endif cas

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

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

15、b.商品名商品名, b.单价单价, 数量数量, 总金额总金额 continue enddo wait 继续查询吗继续查询吗Y/N）？）？ to yn if upper(yn)=N exit endifenddop关闭表关闭表close databasesclearset talk offset safety offselect 2use 商品商品index on 商品号商品号 tag sphselect 1use 订单订单set relation to 商品号商品号 into breplace all 总金额总金额 with b.单价单价*数量数量do while .T. accept 请输入

16、订单号：请输入订单号： to ddh locate for 订单号订单号=ddh ? =查询结果查询结果= ? 商品名称商品名称 单价单价 数量数量 总金额总金额 do while found() ? b.商品名商品名, b.单价单价, 数量数量, 总金额总金额 continue enddo wait 继续查询吗继续查询吗Y/N）？）？ to yn if upper(yn)=N exit endifenddoclose databases*abc3.PRG33.4.2编写程序文件名：编写程序文件名：abc4.PRG）pSQL查询查询SELECT Xscjzk.学号学号, Xjxx.姓名姓名,

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