IF 基本工資>=1500

　　SELECT 2

　　APPEND BLANK

　　REPLACE A->職工號WITH 職工號，A->基本工資 WITH 基本工資 &&*error*

　　SELECT 1

　　ENDIF

　　CONT ****Error****

　　ENDDO

　　SELECT 2

　　DISPLAY ALL

　　DELETE TABLE gzb.dbf ****Error****

　　CLOSE DATABASE

　　SET SAFE ON

　　SET TALK ON

　　*************************************

　　③ 修改程序中的錯誤。

　　****下面是修改后的工資查詢.prg的程序內容：****

　　SET TALK OFF

　　SET SAFE OFF

　　SELECT 1

　　USE 工資表.dbf

　　COPY STRU TO gzb.dbf FIELDS 職工號，基本工資

　　SELECT 2

　　USE gzb.dbf

　　SELECT 1

　　GO TOP

　　DO WHILE ! EOF()

　　IF 基本工資>=1500

　　SELECT 2

　　APPEND BLANK

　　REPLACE 職工號WITH A-> 職工號， 基本工資 WITH A-> 基本工資

　　SELECT 1

　　ENDIF

　　SKIP

　　ENDDO

　　SELECT2

　　DISPLAY ALL

　　DROP TABLE gzb.dbf

　　CLOSE DATABASE

　　SET SAFE ON

　　SET TALK ON

　　***********************************

　�、� 在“命令”窗口輸入：DO 工資查詢.prg，運行程序。

　　【試題解析】

　　本試題主要考查了快速報表的建立和SQL語句的簡單應用。在(1)小題中可以通過菜單命令建立一個快速報表文件。

　　三、綜合應用題

　　按如下要求完成綜合應用(所有控件的屬性必須在表單設計器的屬性窗口中設置)：

　　(1)根據“項目信息”、“零件信息”和“使用零件”三個表建立一個查詢(注意表之間的連接字段)，該查詢包含項目號、項目名、零件名稱和(使用)數量四個字段，并要求先按項目號升序排序、再按零件名稱降序排序，保存的查詢文件名為chaxun;

　　(2)建立一個表單，表單名和文件名均為myform，表單中含有一個表格控件Grid1，該表格控件的數據源是前面建立的查詢chaxun;然后在表格控件下面添加一個“退出”命令按鈕Command1，要求命令按鈕與表格控件左對齊、并且寬度相同，單擊該按鈕時關閉表單。

　　【參考答案】

　　(1)具體步驟如下：

　�、� 從“文件”菜單中選擇“新建”命令，在彈出的“新建”對話框中選中“查詢”單選按鈕，單擊“新建文件”按鈕。

　�、� 在彈出的“打開”對話框中選擇打開“零件信息”表。

　�、� 系統打開“查詢設計器”窗口，同時打開“添加表或視圖”對話框，單擊“其他”按鈕添加“使用零件”、“項目信息”兩個表，單擊“關閉”按鈕關閉對話框。

　　④ 在“字段”選項卡中的“可用字段”列表框中選擇“項目信息.項目號”字段，單擊“添加”按鈕將其添加到“選定字段”列表框中，以同樣的方法添加“項目信息.項目名”、“零件信息.零件名稱”、“使用零件.數量”三個字段。

　�、� 在“排序依據”選項卡中的“選定字段”列表框中選擇“項目信息.項目號”字段，單擊“添加”按鈕將其添加到“排序條件”列表框中，并選中“升序”單選按鈕。

　　⑥ 在“選定字段”列表框中選擇“零件信息.零件名稱”字段，單擊“添加”按鈕將其添加到“排序條件”列表框中，并選中“降序”單選按鈕，

　　⑦ 單擊工具欄中的“保存”按鈕，在彈出的“另存為”對話框中以chaxun為文件名保存。

　　(2)具體步驟如下：

　　① 從文件”菜單中選擇“新建”命令，在彈出的“新建”對話框中選中“表單”單選按鈕，單擊“新建文件”按鈕，系統打開“表單設計器”窗口。

　�、� 在“屬性”窗口中設置表單的Name屬性為myform。

　�、� 在“控件”工具欄中單擊“表格”按鈕，單擊表單工作區域即可添加一個表格。

　　④ 在“屬性”窗口中為表格設置如下屬性：

　　RecordSourceType=“3-查詢(.QPR)”

　　RecordSource=“chaxun”

　�、� 在表格的下方添加一個命令按鈕，在“屬性”窗口中修改按鈕的Caption屬性值為“退出”。

　　⑥ 在表單中選中表格，在“屬性”窗口中查看表格的寬度并記下。

　�、� 在表單中選中命令按鈕，然后在“屬性”窗口中將其寬度改為和表格一樣的寬度。

　　⑧ 在表單中選中命令按鈕，在“屬性”窗口中雙擊Click事件，在彈出的窗口中添加如下代碼：

　　THISFORM.RELEASE

　　⑨ 單擊工具欄中的“保存”按鈕，在彈出的對話框中以myform為文件名保存。

　　相關推薦：

　　2012年計算機三級考試PC技術模擬試題考答案匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總