第二小題：打開考生文件夾下的"form1.scx"，在表單設計器中雙擊"刷新標題"控件打開代碼編輯器，此處是對form對象的caption的屬性進行賦值，所以此處應改為：thisform.caption="簡單應用"; 在表單設計器中雙擊"訂單記錄"控件打開代碼編輯器，此處是要在表格控件中顯示表"ORDER_LIST.DBF"，所以要對grid1控件的RecordSource屬性進行賦值，此處應改為：

　　thisform.grid1.RecordSource="order_list.dbf";

　　在表單設計器中雙擊"關閉表單"控件打開代碼編輯器，此處的功能是關閉表單，關閉表單要用到表單的Release方法，所以此處應改為：thisform.release退出保存。

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

　　首先為order_detail表增加一個新字段：新單價(類型與原來的單價字段相同)，然后編寫滿足如下要求的程序：根據order_list 表中的"訂購日期"字段的值確定order_detail表的"新單價"字段的值，原則是：訂購日期為2001年的"新單價"字段的值為原單價的90%，訂購日期為2002年的"新單價"字段的值為原單價的110%(注意：在修改操作過程中不要改變order_detail表記錄的順序)，將order_detail表中的記錄存儲到od_new表中(表結構與order_detail表完全相同);最后將程序保存為prog1.prg，并執行該程序。

　　接著再利用 Visual Foxpro的"快速報表"功能建立一個的簡單報表，該報表內

　　容按順序含有order_detail表的訂單號、器件號、器件名、新單價和數量字段的值，將報表文件保存為report1.frx。

　　本題主要考核點：

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

　　本題解題思路：

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

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

　　SET TALK OFF &&在程序運行時關閉命令結果的顯示

　　SELECT 訂單號 FROM ORDER_LIST WHERE YEAR(訂購日期)=2001;

　　INTO CURSOR CurTable

　　&&從ORDER_LIST中得到訂購日期是2001年的所有訂單號，

　　&&并將結果集放入臨時表CurTable中

　　DO WHILE NOT EOF() &&遍歷臨時表CurTable中的每一個訂單號

　　UPDATE ORDER_DETAIL SET 新單價=單價*0.9;

　　WHERE 訂單號=CurTable.訂單號

　　&&如果ORDER_DETAIL中的訂單號與臨時表的記錄號相同時;

　　&&對新單價進行更新

　　SKIP

　　ENDDO

　　SELECT 訂單號 FROM ORDER_LIST WHERE YEAR(訂購日期)=2002;

　　INTO CURSOR CurTable

　　DO WHILE NOT EOF()

　　UPDATE ORDER_DETAIL SET 新單價=單價*0.9;

　　WHERE 訂單號=CurTable.訂單號

　　SKIP

　　ENDDO

　　CLOSE ALL

　　SET TALK ON

　　第三步：單擊"保存"工具欄按鈕，以文件名prog1.prg保存程序文件在考生文件夾下，并運行程序。

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

　　第五步：單擊主窗口"報表"菜單下的"快速報表(Q)"，系統彈出"打開"對話框，選擇考生文件夾下的order_detail.dbf表，單擊"確定"，系統彈出"快速報表"對話框，單擊"字段(F)"按鈕，系統彈出"字段選擇器"對話框，將訂單號、器件號、器件名、新單價、數量依次放入"選定字段"中，單擊"確定"，返回"快速報表"對話框，單擊"確定"按鈕后便生成了一個報表，將報表文件以文件名report1.frx保存在考生文件夾下。