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

　　【参考答案】

　　(1)在“命令”窗口中执行以下命令：

　　USE order_list1

　　COPY TO order_list

　　SELECT customer.客户号,客户名,订单号,总金额 FROM customer;

　　INNER JOIN order_list ON customer.客户号=order_list.客户号;

　　ORDER BY 总金额 DESC INTO TABLE results

　　(2)具体步骤如下：

　　① 打开表单文件FORM1。

　　② 选择“基准按钮”，再分别选择其他4个按钮，单击“布局”工具栏中的“左对齐”图标按钮。

　　③ 单击控件工具栏中的“表格”按钮，在表单的右边位置单击，添加一个表格，在“属性”窗口中更改RecordSourceType属性为“表”，更改RecordSource属性为customer。

　　④ 保存表单即可。

　　3.综合应用题

　　当order_detail表中的单价修改后，应该根据该表的“单价”和“数量”字段修改order_list表的总金额字段，现在编写程序实现此功能，具体要求和注意事项如下：

　　(1)根据order_detail表中的记录重新计算order_list表的总金额字段的值。

　　(2)一条order_list记录可以对应几条order_detail记录。

　　(3)在编程前应保证在基础操作中正确地建立了order_list表，在简单应用中为该表追加了记录(注意，只能追加一次)。

　　(4)最后将order_list表中的记录按总金额降序排序存储到od_new表中(表结构与order_list表完全相同)。

　　(5)将程序保存为prog1.prg文件。

　　【参考答案】

　　实现此功能的程序如下：

　　set talk off

　　open database 订货管理

　　sele 1

　　use order_list

　　do while not eof()

　　ddh=订单号

　　sele 2

　　use order_detail

　　locate for 订单号=ddh

　　je=0

　　do while not eof()

　　je=je+单价*数量

　　cont

　　endd

　　sele 1

　　repl 总金额 with je

　　skip

　　endd