四川vfp二级上机考试33次答案省名师优质课赛课获奖课件市赛课百校联赛优质课一等奖课件.ppt

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,本资料仅供参考，不能作为科学依据。谢谢。本资料仅供参考，不能作为科学依据。本资料仅供参考，不能作为科学依据。谢谢。本资料仅供参考，不能作为科学依据。,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,本资料仅供参考，不能作为科学依据。谢谢。本资料仅供参考，不能作为科学依据。本资料仅供参考，不能作为科学依据。谢谢。本资料仅供参考，不能作为科学依据。,二级上机考试,1/43,打开表并索引（多工作区）,建立关联（,SET RELATION TO,INTO,）,数据处理,（,修改,、,查询,、,统计等,）,输出显示,（,?,?,LIST,DISPLAY,）,关闭表（,CLOSE DATABASES,CLOSE ALL,）,结构化程序设计步骤,2/43,创建数据库（视图）,创建表单,添加数据环境,添加控件,设置控件属性,编写事件处理代码,（,INIT,CLICK,等,）,表单程序设计步骤,3/43,第,33,次上机考试,4/43,子表：,2,号区,父表：,1,号区,33.1.2,编写程序（文件名：,abc1.PRG,）,5/43,select 2,use,学生,index on,学号,tag xh,select 1,use,成绩,set relation to,学号,into b,打开表，索引，关联,6/43,数据处理（,1,）,修改统计,replace all,成绩,with,成绩*,1.15 for,课程名,=Access,程序设计,将课程为,“,Access,程序设计,“,成绩提升,15%,。,7/43,数据处理（,2,）,查询，显示,经过输入,“,学号,”,查询学生信息，即：学号、姓名、课程名、成绩、学院等资料。若没找到，显示,“,数据表中没有查到此人信息！,”,。界面舅图所表示：,8/43,accept,请输入查询学号：,to xh,locate for,学号,=xh,if found(),?*,查询结果*,?,学号 姓名 课程名 成绩 学院,do while found(),?,学号,b.,姓名,课程名,成绩,b.,学院,continue,enddo,?*,else,?,数据表中没有查到此人信息！,endif,9/43,关闭表,close databases,10/43,clear,set talk off,set safety off,select 2,use,学生,Index on,学号,tag xh,select 1,use,成绩,set relation to,学号,into b,replace all,成绩,with,成绩*,1.15 for,课程名,=Access,程序设计,accept,请输入查询学号：,to xh,locate for,学号,=xh,if found(),?*,查询结果*,?,学号 姓名 课程名 成绩 学院,do while found(),?,学号,b.,姓名,课程名,成绩,b.,学院,continue,enddo,?*,else,?,数据表中没有查到此人信息！,endif,close databases,abc1.PRG,11/43,33.1.3,表单设计（文件名：表单,1.SCX,）,12/43,创建表单，添加控件、数据环境,13/43,Thisform.Optiongroup1,Value,0,ButtonCount,2,Thisform.Optiongroup1.Option1,Caption,男,Thisform.Optiongroup1.Option2,Caption,女,设置控件属性,Thisform.Command1,Caption,结束,Thisform.Grid1,Visible,.F.,14/43,编写事件处理代码,Thisform.Optiongroup1.Click,xb=,do case,case this.value=1,xb=,男,case this.value=2,xb=,女,endcase,SELECT,*,FROM,学生,;,WHERE,学生,.,性别,=xb;,INTO CURSOR,tmp,Thisform.Grid1.Recordsource=tmp,Thisform.Grid1.Visible=.T.,15/43,Thisform.Command1.Click,Thisform.Release,16/43,子表：,2,号区,父表：,1,号区,33.2.2,编写程序（文件名：,abc2.PRG,）,17/43,select 2,use ksh,index on,学号,tag xh,select 1,use yyu,set relation to,学号,into b,打开表，索引，关联,18/43,数据处理（,1,）,修改统计,replace all,平均分,with(,笔试,+,听力,)/2,计算并填写,“,yyu.dbf,”,平均；,19/43,数据处理（,2,）,修改，显示,填写,ksh.dbf,中,“,评语,”,字段值。其中：当平均分,=90,，评语为,“,优,”,；当平均分,=80,，评语为,“,良,”,；当平均分,=70,，评语为,“,中,”,。查询输入格式以下：,20/43,go top,do while!eof(),do case,case,平均分,=90,replace b.,评语,with,优,case,平均分,=80,replace b.,评语,with,良,case,平均分,=70,replace b.,评语,with,中,endcase,skip,enddo,browse fields,学号,b.,姓名,笔试,听力,平均分,b.,评语,21/43,关闭表,close databases,22/43,clear,set talk off,set safety off,select 2,use ksh,index on,学号,tag xh,select 1,use yyu,set relation to,学号,into b,replace all,平均分,with(,笔试,+,听力,)/2,go top,do while!eof(),do case,case,平均分,=90,replace b.,评语,with,优,case,平均分,=80,replace b.,评语,with,良,case,平均分,=70,replace b.,评语,with,中,endcase,skip,enddo,browse fields,学号,b.,姓名,笔试,听力,平均分,b.,评语,close databases,abc2.PRG,23/43,33.2.3,表单设计（文件名：表单,1.SCX,）,24/43,创建表单，添加控件、数据环境,25/43,Thisform.Pageframe1,PageCount,2,Thisform.Pageframe1.Page1,Caption,成绩,Thisform.Pageframe1.Page2,Caption,综合,设置控件属性,Thisform.Command1,Caption,退出,其它控件属性,Thisform.Pageframe1.Page2.Label1.Caption,学号,Thisform.Pageframe1.Page2.Label2.Caption,平均分,Thisform.Pageframe1.Page2.Label3.Caption,评语,Thisform.Pageframe1.Page2.Text1.ControlSource,yyu.,学号,Thisform.Pageframe1.Page2.Text2.ControlSource,yyu.,平均分,Thisform.Pageframe1.Page2.Text3.ControlSource,ksh.,评语,Thisform,Caption,英语成绩,26/43,其它控件属性,Thisform.Pageframe1.Page2.Commandgroup1.ButtonCount,3,Thisform.Pageframe1.Page2.Commandgroup1.Command1.Caption,上一条,Thisform.Pageframe1.Page2.Commandgroup1.Command2.Caption,下一条,Thisform.Pageframe1.Page2.Commandgroup1.Command3.Caption,结束,27/43,编写事件处理代码,Thisform.Init,SELECT,Yyu.,学号,Ksh.,姓名,Yyu.,笔试,Yyu.,听力,;,FROM,yyu,INNER JOIN,ksh;,ON,Yyu.,学号,=Ksh.,学号,;,INTO CURSOR,tmp,Thisform.Pageframe1.Page1.Grid1.Recordsource=tmp,select yyu,Thisform.Command1.Click,Thisform.Release,28/43,Thisform.Pageframe1.Page2.Commandgroup1.Click,do case,case this.value=1,if!bof(),skip-1,endif,case this.value=2,if!eof(),skip,endif,case this.value=3,Thisform.Release,endcase,Thisform.Refresh,29/43,子表：,2,号区,父表：,1,号区,33.3.2,编写程序（文件名：,abc3.PRG,）,30/43,select 2,use,商品,index on,商品号,tag sph,select 1,use,订单,set relation to,商品号,into b,打开表，索引，关联,31/43,数据处理（,1,）,修改统计,replace all,总金额,with b.,单价*数量,计算订单总金额（总金额,=,单价*数量），填入,“,订单,.dbf,”,“,总金额,”,字段中。,32/43,数据处理（,2,）,修改，显示,按订单号查询该商品名、单价、数量和总金额。要求能重复查询。直到用户不再查询为止。界面以下列图所表示：,请输入订单号：,0002,=,查询结果,=,商品名称 单价 数量 总金额,计算机操作系统,31.00 2 62.00,继续查询吗？（,y/n,）,n,33/43,do while.T.,accept,请输入订单号：,to ddh,locate for,订单号,=ddh,?=,查询结果,=,?,商品名称 单价 数量 总金额,do while found(),?b.,商品名,b.,单价,数量,总金额,continue,enddo,wait,继续查询吗（,Y/N,）？,to yn,if upper(yn)=N,exit,endif,enddo,34/43,关闭表,close databases,35/43,clear,set talk off,set safety off,select 2,use,商品,index on,商品号,tag sph,select 1,use,订单,set relation to,商品号,into b,replace all,总金额,with b.,单价*数量,do while.T.,accept,请输入订单号：,to ddh,locate for,订单号,=ddh,?=,查询结果,=,?,商品名称 单价 数量 总金额,do while found(),?b.,商品名,b.,单价,数量,总金额,continue,enddo,wait,继续查询吗（,Y/N,）？,to yn,if upper(yn)=N,exit,endif,enddo,close databases,abc3.PRG,36/43,33.4.2,编写程序（文件名：,abc4.PRG,）,37/43,SQL,查询,SELECT Xscjzk.,学号,Xjxx.,姓名,Dm_yx.,院系简称,;,Xscjzk.,课程代码,Xscjzk.,成绩,;,FROM xscjzk INNER JOIN xjxx;,INNER JOIN dm_yx;,ON Xjxx.,院系代码,=Dm_yx.,院系代码,;,ON Xscjzk.,学号,=Xjxx.,学号,;,WHERE Dm_yx.,院系简称,=,动科院,38/43,33.5.2,编写程序（文件名：,abc5.PRG,）,39/43,use cj5,打开表,40/43,数据处理,统计，显示,1.,从键盘上输入查询学号，能查询该同学学号、平均成绩,2.,程序要求能重复查询输出，其输出格式以下：,。,41/43,do while.T.,accept,请输入查询学号：,to xh,average,成绩,to pj for,学号,=xh,?,学号：,xh,平均成绩：,pj,wait,继续查询吗（,Y/N,）？,to yn,if upper(yn)=N,exit,endif,enddo,关闭表,close databases,42/43,clear,set talk off,set safety off,use cj5,do while.T.,accept,请输入查询学号：,to xh,average,成绩,to pj for,学号,=xh,?,学号：,xh,平均成绩：,pj,wait,继续查询吗（,Y/N,）？,to yn,if upper(yn)=N,exit,endif,enddo,close databases,abc5.PRG,43/43,