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

二级上机考试;打开表并索引（多工作区）

建立关联（SETRELATIONTO…INTO…）

数据处理（修改、查询、统计等）

输出显示（?,??,LIST,DISPLAY）

关闭表（CLOSEDATABASES,CLOSEALL）;创建数据库（视图）

创建表单

添加数据环境

添加控件

设置控件属性

编写事件处理代码（INIT,CLICK等）;第33次上机考试;;select2

use学生

indexon学号tagxh

select1

use成绩

setrelationto学号intob;数据处理（1）—修改统计;数据处理（2）—查询，显示;accept请输入查询学号：toxh

locatefor学号=xh

iffound()

?***********查询结果***************

?学号姓名课程名成绩学院

dowhilefound()

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

continue

enddo

?***********************************

else

?数据表中没有查到此人信息！

endif;关闭表;clear

settalkoff

setsafetyoff

select2

use学生

Indexon学号tagxh

select1

use成绩

setrelationto学号intob

replaceall成绩with成绩*1.15for课程名=Access程序设计

accept请输入查询学号：toxh

locatefor学号=xh

iffound()

?***********查询结果***************

?学号姓名课程名成绩学院

dowhilefound()

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

continue

enddo

?***********************************

else

?数据表中没有查到此人信息！

endif

closedatabases;[33.1.3]表单设计（文件名：表单1.SCX）;创建表单，添加控件、数据环境;Thisform.Optiongroup1;编写事件处理代码;Thisform.Command1.Click;;select2

useksh

indexon学号tagxh

select1

useyyu

setrelationto学号intob;数据处理（1）—修改统计;数据处理（2）—修改，显示;gotop

dowhile!eof()

docase

case平均分=90

replaceb.评语with优

case平均分=80

replaceb.评语with良

case平均分=70

replaceb.评语with中

endcase

skip

enddo

browsefields学号,b.姓名,笔试,听力,平均分,b.评语;关闭表;clear

settalkoff

setsafetyoff

select2

useksh

indexon学号tagxh

select1

useyyu

setrelationto学号intob

replaceall平均分with(笔试+听力)/2

gotop

dowhile!eof()

docase

case平均分=90

replaceb.评语with优

case平均分=80

replaceb.评语with良

case平均分=70

replaceb.评语with中

endcase

skip

enddo

browsefields学号,b.姓名,笔试,听力,平均分,b.评语

closedatabases;[33.2.3]表单设计（文件名：表单1.SCX）;创建表单，添加控件、数据环境;Thisform.Pageframe1;其它控件属性;编写事件处理代码;Thisform.Pageframe1.Page2.Commandgroup1.Click;;select2

use商品

indexon商品号tagsph

select1

use订单

setrelationto商品号into