計算機等級考試二級VFP上機試題及解題思路(21)

　　二、簡單應用(2小題，每題20分，計40分)

　　在考生文件夾下完成如下簡單應用:

　　1. 列出總金額大于所有訂購單總金額平均值的訂購單(order_list)清單(按客戶號升序排列)，并將結果存儲到results表中(表結構與order_list表結構相同)。

　　2. 利用Visual Foxpro的"快速報表"功能建立一個滿足如下要求的簡單報表:

　　(1) 報表的內容是order_detail表的記錄(全部記錄，橫向);

　　(2) 增加"標題帶區(qū)"，然后在該帶區(qū)中放置一個標簽控件，該標簽控件顯示報表的標題"器件清單";

　　(3) 將頁注腳區(qū)默認顯示的當前日期改為顯示當前的時間;

　　(4) 最后將建立的報表保存為report1.frx。

　　本題主要考核點：

　　SQL中的查詢SELECT查詢、聯接查詢、查詢的排序、查詢的結果的去向等;報表的建立方法等知識點.

　　解題思路：

　　第一小題：為了能得到所有總金額大于平均總金額的訂購單信息，應該首先得到總金額的平均值，利用：SELECT AVG(總金額) FROM ORDER_LIST INTO ARRAY AFieldsValue，并將總金額的平均值放到一個數組變量之中AFieldsValue;下一步就可以以總金額>AFieldsValue為條件得到總金額大于平均總金額的訂購單信息，將這一條件放在WHERE子句的后面，查詢結果的排序要用到ORDER BY子句，ORDER BY 客戶號;查詢結果要放入一個永久表中要用到INTO TABLE子句，結果保存到RESULTS表中所以要用INTO TABLE RESULTS.本題由兩條SQL語句組成：

　　SELECT AVG(總金額) FROM ORDER_LIST INTO ARRAY AFieldsValue

　　SELECT * FROM ORDER_LIST WHERE 總金額>AFieldsValue;

　　ORDER BY 客戶號;

　　INTO TABLE RESULTS

　　第二小題：

　　第一步：在Visual FoxPro主窗口按下組合鍵Ctrl+N，系統(tǒng)彈出"新建"對話框，在"文件類型"中選擇"報表"，再點擊新建文件按鈕，系統(tǒng)彈出報表設計器

　　第二步：單擊主窗口"報表"菜單下的"快速報表(O)"，系統(tǒng)彈出"打開"對話框，選擇考生文件夾下的order_detail.dbf表，單擊"確定"，系統(tǒng)彈出"快速報表"對話框，單擊"確定"按鈕后便生成了一個報表，將報表文件以文件名report1.frx保存在考生文件夾下。

　　第三步：選擇主菜單"報表"下的"標題/總結(T)"，彈出"標題/總結"對話框，在"報表標題"類型中選擇"標題帶區(qū)"，單擊"確定"按鈕，這樣就在報表中加入了一個"標題帶區(qū)"，打開"報表控件工具欄"，在打開的"報表控件"中選擇"標簽"控件，在標題帶區(qū)點擊鼠標，輸入"器件清單"

　　第四步：雙擊"頁注腳"中的顯示當前日期的域控件，打開"報表表達式"，在"表達式"文本框中將原來的DATE()用TIME()來代替。點擊"確定"

　　第五步：以文件名report1.frx將報表文件保存在考生文件夾下。

　　三、綜合應用(1小題，計30分)

　　首先將order_detail表全部內容復制到od_bak表，然后對od_bak表編寫完成如下

　　功能的程序：

　　1. 把"訂單號"尾部字母相同并且訂貨相同 ("器件號"相同)的訂單合并為一張訂單，新的"訂單號"就取原來的尾部字母，"單價"取最低價，"數量" 取合計;

　　2. 結果先按新的"訂單號"升序排序，再按"器件號"升序排序;

　　3. 最終記錄的處理結果保存在od_new表中;

　　4. 最后將程序保存為prog1.prg，并執(zhí)行該程序。

　　本題主要考核點：

　　程序的建立方法、程序中循環(huán)結構的使用、SQL查詢語句的使用、記錄的修改方法;報表的建立方法等知識點

　　本題解題思路：

　　第一步：在VisualFoxPro主窗口下按組合鍵Ctrl+N，系統(tǒng)彈出"新建"對話框，在"文件類型"中選擇"程序"，再點擊"新建文件"按鈕，則系統(tǒng)彈出程序編輯窗口;

　　第二步：在彈出的窗中中輸入以下代碼：

　　SET TALK OFF

　　SET SAFETY OFF

　　sele * from order_detail into table od_bak

　　&&復制一個表用來存放結果

　　USE OD_BAK

　　COPY STRUCTURE TO OD_NEW

　　&&首先得到所有的新定單號和器件號：

　　SELECT RIGHT(訂單號,1) AS 新訂單號,器件名,器件號,;

　　RIGHT(訂單號,1)+器件號 AS NEWNUM;