二、簡單應用題

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

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

　　通過結構復制數據表文件“工資表”生成一個含有職工號和基本工資的新數據表文件gzb.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)具體步驟如下：

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

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

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

　　SET TALK OFF

　　SET SAFE OFF

　　SELECT 1

　　USE 工資表.dbf

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

　　SELECT 2

　　USE gzb.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 gzb.dbf ****Error****

　　CLOSE DATABASE

　　SET SAFE ON

　　SET TALK ON

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