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

二级上机考试打开表并索引（多工作区）建立关联（SETRELATIONTO…INTO…）数据处理（修改、查询、统计等）输出显示（?,??,LIST,DISPLAY）关闭表（CLOSEDATABASES,CLOSEALL）结构化程序设计的步骤创建数据库（视图）创建表单添加数据环境添加控件设置控件属性编写事件处理代码（INIT,CLICK等）表单程序设计的步骤子表：2号区父表：1号区[33.1.2]编写程序（文件名：abc1.PRG）select2use学生indexon学号tagxhselect1use成绩setrelationto学号intob打开表，索引，关联数据处理（1）—修改记录replaceall成绩with成绩*1.15for课程名="Access程序设计"

将课程为“Access程序设计“的成绩提高15%。accept"请输入查询的学号："toxhlocatefor学号=xhiffound()

?"***********查询结果***************"?"学号姓名课程名成绩学院"dowhilefound()

?学号,b.姓名,课程名,成绩,b.学院

continueenddo

?"***********************************"else

?"数据表中没有查到此人信息！"endif关闭表closedatabasesclearsettalkoffsetsafetyoffselect2use学生Indexon学号tagxhselect1use成绩setrelationto学号intobreplaceall成绩with成绩*1.15for课程名="Access程序设计"accept"请输入查询的学号："toxhlocatefor学号=xhiffound()?"***********查询结果***************"?"学号姓名课程名成绩学院"dowhilefound()?学号,b.姓名,课程名,成绩,b.学院

continueenddo?"***********************************"else?"数据表中没有查到此人信息！"endifclosedatabasesabc1.PRG创建表单，添加控件、数据环境Thisform.Optiongroup1Value0ButtonCount2Thisform.Optiongroup1.Option1Caption"男"Thisform.Optiongroup1.Option2Caption"女"设置控件属性Thisform.Command1Caption"结束"Thisform.Grid1Visible.F.编写事件处理代码Thisform.Optiongroup1.Clickxb=""docasecasethis.value=1xb="男"casethis.value=2xb="女"endcaseSELECT*FROM

学生;

WHERE

学生.性别=xb;

INTOCURSORtmpThisform.Grid1.Recordsource="tmp"Thisform.Grid1.Visible=.T.子表：2号区父表：1号区[33.2.2]编写程序（文件名：abc2.PRG）select2usekshindexon学号tagxhselect1useyyusetrelationto学号intob打开表，索引，关联数据处理（1）—修改记录replaceall平均分with(笔试+听力)/2

计算并填写“yyu.dbf”的平均；gotopdowhile!eof()

docasecase平均分>=90replaceb.评语with"优"case平均分>=80replaceb.评语with"良"case平均分>=70replaceb.评语with"中"endcaseskipenddobrowsefields学号,b.姓名,笔试,听力,平均分,b.评语关闭表closedatabasesclearsettalkoffsetsafetyoffselect2usekshindexon学号tagxhselect1useyyusetrelationto学号intobreplaceall平均分with(笔试+听力)/2gotopdowhile!eof()docasecase平均分>=90replaceb.评语with"优"case平均分>=80replaceb.评语with"良"case平均分>=70replaceb.评语with"中"endcaseskipenddobrowsefields学号,b.姓名,笔试,听力,平均分,b.评语closedatabasesabc2.PRG创建表单，添加控件、数据环境Thisform.Pageframe1PageCount2Thisform.Pageframe1.Page1Caption"成绩"Thisform.Pageframe1.Page2Caption"综合"设置控件属性Thisform.Command1Caption"退出"其它控件属性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.评语"ThisformCaption"英语成绩"Thisform.Pageframe1.Page2.Commandgroup1.Clickdocasecasethis.value=1if!bof()skip-1endifcasethis.value=2if!eof()skipendifcasethis.value=3Thisform.ReleaseendcaseThisform.Refresh子表：2号区父表：1号区[33.3.2]编写程序（文件名：abc3.PRG）select2use商品indexon商品号tagsphselect1use订单setrelationto商品号intob打开表，索引，关联数据处理（1）—修改记录replaceall总金额withb.单价*数量

计算订单的总金额（总金额=单价*数量），填入“订单.dbf”的“总金额”字段中。数据处理（2）—修改，显示

按订单号查询该商品名、单价、数量和总金额。要求能反复查询。直到用户不再查询为止。界面如下图所示：请输入订单号：0002============查询结果============商品名称单价数量总金额计算机操作系统31.00262.00继续查询吗？（y/n）ndowhile.T.accept"请输入订单号："toddhlocatefor订单号=ddh?"==========查询结果=========="?"商品名称单价数量总金额"dowhilefound()

?b.商品名,b.单价,数量,总金额

continueenddowait"继续查询吗（Y/N）？"toynifupper(yn)="N"exitendifenddo关闭表closedatabasesclearsettalkoffsetsafetyoffselect2use商品indexon商品号tagsphselect1use订单setrelationto商品号intobreplaceall总金额withb.单价*数量dowhile.T.accept"请输入订单号："toddhlocatefor订单号=ddh?"==========查询结果=========="?"商品名称单价数量总金额"dowhilefound()?b.商品名,b.单价,数量,总金额

continueenddowait"继续查询吗（Y/N）？"toynifupper(yn)="N"exitendifenddoclosedatabasesabc3.PRG[33.4.2]编写程序（文件名：abc4.PRG）SQL查询SELECTXscjzk.学号,Xjxx.姓名,Dm_yx.院系简称,; Xscjzk.课程代码,Xscjzk.成绩;FROMxscjzkINNERJOINxjxx;INNERJOINdm_yx;ONXjxx.院系代码=Dm_yx.院系代码;ONXscjzk.学号=Xjxx.学号;WHEREDm_yx.院系简称="动科院"[33.5.2]编写程序（文件名：abc5.PRG）usecj5打开表数据处理—统计，显示1.从键盘上输入查询的学号，能查询该同学的学号、平均成绩2.程序要求能反复查询输出，其输出格式如下：。dowhile.T.accept"请输入查询的学号："toxhaverage成绩topjfor学号=xh?"学号：",xh,"平均成绩：",pjwait"继续查询吗（Y/N）？"toynifupper(yn)="N"exitendif