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

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

　　③ 修改程序中的错误。

　　****下面是修改后的工资查询.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。

　　③ 在“控件”工具栏中单击“表格”按钮，单击表单工作区域即可添加一个表格。