2010年全國計(jì)算機(jī)等級考試二級VB模擬試題(7)

　　【參考答案】

　　(1)在“命令”窗口中執(zhí)行以下命令：

　　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。

　�、� 選擇“基準(zhǔn)按鈕”，再分別選擇其他4個(gè)按鈕，單擊“布局”工具欄中的“左對齊”圖標(biāo)按鈕。

　�、� 單擊控件工具欄中的“表格”按鈕，在表單的右邊位置單擊，添加一個(gè)表格，在“屬性”窗口中更改RecordSourceType屬性為“表”，更改RecordSource屬性為customer。

　�、� 保存表單即可。

　　3.綜合應(yīng)用題

　　當(dāng)order_detail表中的單價(jià)修改后，應(yīng)該根據(jù)該表的“單價(jià)”和“數(shù)量”字段修改order_list表的總金額字段，現(xiàn)在編寫程序?qū)崿F(xiàn)此功能，具體要求和注意事項(xiàng)如下：

　　(1)根據(jù)order_detail表中的記錄重新計(jì)算order_list表的總金額字段的值。

　　(2)一條order_list記錄可以對應(yīng)幾條order_detail記錄。

　　(3)在編程前應(yīng)保證在基礎(chǔ)操作中正確地建立了order_list表，在簡單應(yīng)用中為該表追加了記錄(注意，只能追加一次)。

　　(4)最后將order_list表中的記錄按總金額降序排序存儲(chǔ)到od_new表中(表結(jié)構(gòu)與order_list表完全相同)。

　　(5)將程序保存為prog1.prg文件。

　　【參考答案】

　　實(shí)現(xiàn)此功能的程序如下：

　　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+單價(jià)*數(shù)量

　　cont

　　endd

　　sele 1

　　repl 總金額 with je

　　skip

　　endd