二、簡單應用題

　　(1)為職工表設計一個名為zgb的快速報表。

　　(2)修改考生文件夾中的“工資查詢.prg”文件，此文件的功能為：

　　通過結構復制數據表文件“工資表”生成一個含有職工號和基本工資的新數據表文件gz

　　B.dbf，將原數據庫中基本工資大于1 500的職工記錄添加到新表中并瀏覽結果。

　　修改程序中的錯誤行，不得刪除或添加程序行，使程序正確運行。

　　工資表的結構和內容如下：

　　職工號 部門號 基本工資 獎金

　　101001 101 1750 1200

　　101002 101 1000 400

　　102001 102 700 200

　　102002 102 900 350

　　103001 103 1500 600

　　103002 103 1200 400

　　【參考答案】

　　(1)具體步驟如下：

　　① 在“命令”窗口輸入命令：CREATE REPORT zgb。

　　② 彈出報表設計器，選擇菜單命令“報表”→“快速報表”。

　　③ 系統彈出“打開”對話框，選擇數據源表為“職工表”。

　　④ 在“快速報表”對話框中單擊“字段布局”左側的按鈕(此為系統默認)，選中“標題”復選框，為每一個字段添加一個字段名標題，再選中“將表添加到數據庫環境中”復選框，把“職工表”作為數據源表添加到數據庫環境中，單擊“確定”按鈕，便為職工表建立了一個快速報表。

　　⑤ 單擊工具欄中的“打印預覽”圖標按鈕，查看報表效果。

　　(2)具體步驟如下： 　www.Examda.CoM

　　① 根據題意，在“命令”窗口輸入命令：MODI COMM工資查詢.prg。

　　② 打開考生文件夾下的工資查詢.prg文件，查看程序中的錯誤行。

　　****工資查詢.prg的源程序內容：****

　　SET TALK OFF

　　SET SAFE OFF

　　SELECT 1

　　USE 工資表.dbf

　　COPY STRU TO gz

　　B.dbf 職工號，基本工資 ****Error****

　　SELECT 2

　　USE gz

　　B.dbf

　　SELECT 1

　　GO TOP

　　DO WHILE ! BOF() ****Error****

　　IF 基本工資>=1500

　　SELECT 2

　　APPEND BLANK

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

　　SELECT 1

　　ENDIF

　　CONT ****Error****

　　ENDDO

　　SELECT 2

　　DISPLAY ALL

　　DELETE TABLE gz

　　B.dbf ****Error****

　　CLOSE DATABASE

　　SET SAFE ON

　　SET TALK ON

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

　　③ 修改程序中的錯誤。

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

　　SET TALK OFF

　　SET SAFE OFF

　　SELECT 1

　　USE 工資表.dbf

　　COPY STRU TO gz

　　B.dbf FIELDS 職工號，基本工資

　　SELECT 2

　　USE gz

　　B.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 gz

　　B.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為文件名保存。