42

　　(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)小題中可以通過菜單命令建立一個快速報表文件。

　　相關推薦：

　　2014計算機等級《二級VB》上機預測題及答案匯總

　　考試吧考后首發2014年3月計算機等考真題及答案通知

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題