2013年计算机等级考试二级VB考试笔试题6

简单应用题
　　在考生文件夹下完成如下简单应用：
　　(1)将order_list1表中的全部记录追加到order_list表中，然后用SQL SELECT语句完成查询：按总金额降序列出所有客户的客户号、客户名及其订单号和总金额，并将结果存储到results表中(其中客户号、客户名取自customer表，订单号、总金额取自order_list表)。
　　(2)打开FORM1表单，并按如下要求进行修改(注意：最后保存所做的修改)：
　　① 表单中有5个随机排列的命令按钮，不要移动或改变“基准按钮”的位置(否则影响成绩)，使其他命令按钮与“基准按钮”左部对齐;
　　② 在这组命令按钮的右边添加一个表格控件，并将它的RecordSourceType属性设置为“表”，然后设置另一个相关属性，使在表格控件中显示customer表的记录。
　　【参考答案】
　　(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。
　　④ 保存表单即可。
综合应用题
　　当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