2010年计算机等考二级VF上机冲刺模拟试题(37)

　　二、简单应用(2小题，每题20分，计40分)

　　在考生文件夹下完成如下简单应用:

　　1.使用SQL命令查询2001年(不含)以前进货的商品，列出其分类名称、商品名称、进货日期，查询结果按进货日期升序排序并存入文本文件infor_a.txt中;所用命令存入文本文件cmd_aa.txt中;

　　2.用SQLUPDATE命令为所有商品编码首字符是"3"的商品计算销售价格：销售价格为在进货价格基础上加22.68%，并把所用命令存入文本文件cmd_ab.txt中。

　　解答：

　　1.使用命令：MODI COMM cmd_aa.txt(扩展名不能省)，在编辑窗口中输入代码：

　　SELECT 分类.分类名称, 商品.商品名称, 商品.进货日期;

　　FROM 商品管理!分类 INNER JOIN 商品管理!商品 ;

　　ON 分类.分类编码 = 商品.分类编码;

　　WHERE 商品.进货日期 < {^2001-1-1};

　　ORDER BY 进货日期TO FILE infor_a.txt

　　也可以先用查询设置器做，再复制SQL代码。

　　2. 使用命令：MODI COMM cmd_ab.txt(扩展名不能省)，在编辑窗口中输入代码：

　　upda 商品 set 销售价格=进货价格*1.2268 where left(商品编码,1)="3"

　　三、综合应用(1小题，计30分)

　　建立表单，表单文件名和表单名均为myform_a，表单标题为"商品浏览"，表单样例如图所示(左图)。其它功能要求如下:

　　1.用选项按钮组(OptionGroup1)控件选择商品分类(饮料(Option1)、调味品(Option2)、酒类(Option3)、小家电(Option4));

　　2.单击"确定"(Command2)命令按钮，显示选中分类的商品，要求使用DOCASE语句判断选择的商品分类(如右图所示);

　　3.在右图所示界面中按Esc键返回左图所示界面;

　　4.单击"退出"(Command1)命令按钮，关闭并释放表单。

　　注：选项按钮组控件的Value属性必须为数值型。

 

　　解答：建立表单，用指定文件名保存，更改表单的Name和Caption属性，添加选项按钮组，用生成器设置其各选项的标题，将其Value属性值设为0(保证选项按钮组控件的Value属性必须为数值型)。添加两个命令按钮，设置其标题。

　　设置“确定”按钮的Click事件代码为：

　　do case

　　case thisform.optiongroup1.value=1

　　sele * from 商品 where 分类编码="1001"

　　case thisform.optiongroup1.value=2

　　sele * from 商品 where 分类编码="2001"

　　case thisform.optiongroup1.value=3

　　sele * from 商品 where 分类编码="3001"

　　case thisform.optiongroup1.value=4

　　sele * from 商品 where 分类编码="4001"

　　endcase

　　设置“退出”按钮的Click事件代码为：

　　thisform.release

　　附：本题相关表