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

　　3.综合应用题

　　首先将order_detail表全部内容复制到od_bak表，然后对od_bak表编写完成如下功能的程序：

　　(1)把“订单号”尾部字母相同并且订货相同(“器件号”相同)的订单合并为一张订单，新的“订单号”就取原来的尾部字母，“单价”取最低价，“数量”取合计。

　　(2)结果先按新的“订单号”升序排序，再按“器件号”升序排序。

　　(3)最终记录的处理结果保存在od_new表中。

　　(4)最后将程序保存为prog1.prg，并执行该程序。

　　【参考答案】

　　具体步骤如下：

　　① 根据题意，在“命令”窗口输入命令：

　　USE order_detail &&打开表order_detail

　　COPY TO od_bak &&复制order_detail表全部内容到od_bak表中

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

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

　　SET TALK OFF

　　SET SAFETY OFF

　　&&复制一个表用来存放结果

　　USE od_bak

　　COPY STRUCTURE TO od_new

　　&&首先得到所有的新订单号和器件号;

　　SELECT RIGHT(订单号,1)AS新订单号,器件名,器件号,;

　　RIGHT(订单号,1)+器件号AS newnum;

　　FROM od_bak;

　　GROUP BY newnum;

　　ORDER BY新订单号,器件号;

　　INTO CURSOR curtable

　　DO WHILE NOT EOF()

　　&&得到单价和数量

　　SELECT MIN(单价)AS最低价,SUM(数量)AS数量合计;

　　FROM od_bak;

　　WHERE RIGHT(订单号,1)=curtable.新订单号AND器件号=curtable.器件号;

　　INTO ARRAY AFieldsValue

　　INSERT INTO od_new VALUES;

　　(curtable.新订单号,curtable.器件号,;

　　curtable.器件名,AFieldsValue(1,1),AFieldsValue(1,2))

　　SKIP

　　ENDDO

　　CLOSE ALL

　　SET SAFETY ON

　　SET TALK ON

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

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

　　【试题解析】

　　本试题考查的主要是SQL语句的应用，包括数据查询、数据修改(插入语句INSERT)等，程序设计过程要注意函数的使用，注意部分复制表和复制结果的命令语句，复制表使用COPY TO命令，复制表结构使用COPY STRUCTURE命令。