2010年全国计算机等级考试二级VB模拟试题(16)

　　【试题解析】

　　本试题(1)小题考查的是多表查询文件的建立以及查询去向，在设置查询去向的时候，应该注意表的选择;(2)小题主要考查的是利用表单向导建立一个表单，注意每个向导界面，完成相应的设置即可。

　　3.综合应用题

　　首先为order_detail表增加一个新字段：新单价(类型与原来的单价字段相同)，然后编写满足如下要求的程序：根据order_list表中“订购日期”字段的值确定order_detail表“新单价”字段的值，原则是：订购日期为2001年的，“新单价”字段的值为原单价的90%，订购日期为2002年的，“新单价”字段的值为原单价的110%(注意：在修改操作过程中不要改变order_detail表记录的顺序)，将order_detail表中的记录存储到od_new表中(表结构与order_detail表完全相同)。最后将程序保存为progl.prg，并执行该程序。

　　接着再利用Visual FoxPro的“快速报表”功能建立一个简单报表，该报表内容按顺序含有order_detail表的订单号、器件号、器件名、新单价和数量字段的值，将报表文件保存为reportl。

　　【参考答案】

　　(1)具体步骤如下：

　　① 在“命令”窗口输入命令：

　　USE order_detail &&打开数据表

　　MODIFY STRUCTURE &&打开表设计器

　　② 打开表设计器后，在“字段”选项卡的“数量”字段后增加一个新的字段，根据题意输入字段名：新单价，字段宽度和类型与“单价”字段一样。

　　③ 在“命令”窗口输入命令：MODIFY COMMAND prog1，在程序编辑窗口中输入如下程序段：

　　*********prog1.prg文件中程序段*********

　　SET TALK OFF

　　&&将订购日期是2001年的所有订单号放入临时表curtable中

　　SELECT订单号FROM order_list WHERE YEAR(订购日期)=2001;

　　INTO CURSOR curtable

　　&&对所有订购日期是2001年的计算新单价

　　DO WHILE NOT EOF()

　　UPDATE order_detail SET新单价=单价*0.9;

　　WHERE订单号=curtable.订单号

　　SKIP

　　ENDDO

　　&&将订购日期是2002年的所有订单号放入临时表CurTable中

　　SELECT订单号FROM order_list WHERE YEAR(订购日期)=2002;

　　INTO CURSOR curtable

　　&&对所有订购日期是2002年的计算新单价

　　DO WHILE NOT EOF()

　　UPDATE order_detail SET新单价=单价*1.1;

　　WHERE订单号=CurTable.订单号

　　SKIP

　　ENDDO

　　CLOSE ALL

　　USE order_detail

　　COPY TO od_new

　　SET TALK ON

　　******************************************

　　④ 保存设计结果，在“命令”窗口输入命令：DO prog1，执行程序文件。

　　(2)具体步骤如下：

　　① 在“命令”窗口输入命令：CREATE REPORT report1，打开报表设计器。

　　② 选择菜单命令“报表”→“快速报表”，系统首先要求选择报表数据源。根据题意，选择考生文件夹下的order_detail表作为报表数据源。

　　③ 系统弹出“快速报表”对话框，单击对话框中的“字段”命令按钮，在弹出的“字段选择器”对话框中，依次将订单号、器件号、器件名、新单价和数量5个字段添加到“选定字段”列表框中，单击“确定”按钮，返回报表设计器。

　　④ 保存报表设计。

　　⑤ 单击工具栏中的预览图标按钮，可查看设计效果。

　　【试题解析】

　　本试题考查的主要是SQL语句的应用，包括数据定义、数据修改和数据查询功能，设计过程中可利用临时表来存放查询结果，再利用DO循环语句对表中的记录逐条更新。