说明:本文中的 && 表示解释说明部分,在并非执行代码.
本文中的 ********* 与 ********* 之间的部分为程序代码.
11
一、基本操作题（共4小题，第1和2题是7分、第3和4题是8分）
（1）在考生文件夹下建立项目market。 （2）在项目market中建立数据库prod_m。
（3）把考生文件夹中自由表category和products加入到prod_m数据库中。
（4）为category表建立主索引，索引名为primarykey，索引表达式为\分类编码\；为products表建立普通索引，索引名为regularkey，索引表达式为\分类编码\。
【答案】
（1）在命令窗口直接输入命令：CREATE PROJECT market，建立一个新的项目管理器。
（2）在项目管理器中，单击\数据\选项卡，选中列表框中的\数据库\，单击选项卡右边的\新建\命令按钮，在系统弹出的对话框中单击\新建数据库\图标按钮，系统接着弹出\创建\对话框，在数据库名文本框内输入新的数据库名称prod_m，将数据库保存到考生文件夹下。
（3）右键单击数据库设计器，选择\添加表\快捷菜单命令，在弹出的\打开\对话框中，将考生文件夹下的category和products两个自由表分别添加到数据库prod_m中。
（4）在\数据\选项卡中，选中新加的数据表文件category，然后单击右边的\修改\命令按钮，系统弹出表设计器，在\字段\选项卡中为\分类编码\字段选择一个索引排序，然后单击\索引\选项卡，在此选项卡中，字段索引名默认的为\分类编码\，将索引名修改为primarykey，在\索引\下拉框中选择索引类型为\主索引\，如图11-1所示。以相同的方法为products表建立普通索引。
二、简单应用题（共2小题，每题20分，计40分）
（1）使用SQL命令查询2001年（不含）以前进货的商品，列出其\分类名称\、\商品名称\和\进货日期\，查询结果按\进货日期\升序排序并存入文本文件infor.txt中，所用命令存入文本文件sql.txt中。
（2）用SQL UPDATE命令为所有\商品编码\首字符是\的商品计算销售价格：销售价格为在进货价格基础上加22.68％，并把所用命令存入文本文件update.txt中。
【答案】
（1）在命令窗口中输入命令：MODIFY FILE sql，在文本编辑器窗口输入如下程序段： ******文件sql .txt中的程序段*****
SELECT 分类名称,商品名称,进货日期 FROM 商品,分类 WHERE 分类.分类编码=商品.分类编码;
AND YEAR(进货日期)<2001 TO FILE infor ORDER BY 进货日期 *******************************
在命令窗口输入命令：DO sql.txt，运行程序。程序运行结果如图11-2所示。
图11-2
（2）在命令窗口中输入命令：MODIFY FILE update，在文本编辑器窗口输入如下程序段。 ******文件update .txt中的程序段*****
UPDATE 商品 SET 销售价格=进货价格*1.2268 WHERE LEFT(商品编码,1)='3' *******************************
在命令窗口输入命令：DO Update.txt，运行程序。通过BROWSE命令可直接查看修改结果，结果如图11-3所示。
三、综合应用题（1小题，计30分）
对考生目录下的数据库rate建立文件名为myf的表单。表单含有一个表格控件，用于显示用户查询的信息；表单上有一个按钮选项组，含有\外币浏览\、\个人持有量\和\个人资产\三个选项按钮：表单上有一个命令按钮，标题为\浏览\。
当选择\外币浏览\选项按钮并单击\浏览\按钮时，在表格中显示\汇率\表的全部字段；选择\个人持有量\选项按钮并单击\浏览\按钮时，表格中显示\数量\表中的\姓名\，\汇率\表中的\外币名称\和\数量\表中的\持有数量\；选择\个人资产\选项按钮并单击\浏览\按钮时，表格中显示\数量\表中每个人的\总资产\（每个人拥有的所有外币中的每种基准价*持有数量的总和）。
单击\关闭\按钮退出表单。 【答案】
在命令窗口中输入命令：CREATE FORM myf，打开表单设计器，通过\表单控件\工具栏向表单添加1个表格、1个选项按钮组和2个命令按钮。
选中表单，在属性面板顶端的下拉框中选择Command1，修改该命令按钮控件的Caption属性值为\浏览\，以同样的方法将第二个命令按钮设置Caption属性值改为\关闭\，在属性面板顶端的下拉框中选择（Optiongroup1），将其ButtonCount属性值改为3，右击选项按钮组，选择\编辑\快捷菜单命令，在此状态下（编辑状态下，控件四周出现蓝色框线），分别修改三个单选项的Caption属性值为\外币浏览\、\个人持有量\和\个人资产\。
双击命令按钮\浏览\，编写该控件的Click事件，程序代码如下： ******命令按钮Command1（浏览）的Click事件代码***** DO CASE
CASE Thisform.Optiongroup1.Value=1 SELECT * FROM 汇率 INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource=\ CASE Thisform.Optiongroup1.Value=2
SELECT 数量.姓名,外币名称,持有数量 FROM 数量,汇率 WHERE 汇率.外币代码=数量.外币代码;
INTO CURSOR temp
Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource=\ CASE Thisform.Optiongroup1.Value=3
SELECT 姓名,SUM(持有数量*基准价) AS 总资产 FROM 汇率,数量;
WHERE 汇率.外币代码=数量.外币代码 GROUP BY 姓名 INTO CURSOR temp
Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource=\ENDCASE
*********************************************************
以同样的方法为\关闭\命令按钮编写Click事件代码：Thisform.Release。保存表单完成设计，运行结果如图11-4所示。
19
一、基本操作题（共4小题，第1和2题是7分、第3和4题是8分）
（1）将数据库stu添加到项目my中。
（2）修改表单for，将其中标签的字体大小修改为20。 （3）把表单for添加到项目my中。
（4）为数据库stu中的表\学生\建立惟一索引，索引名称为tel，索引表达式为\电话\。 【答案】
（1）从菜单栏里单击\文件\并选择\打开\，或直接单击工具栏上的\打开\图标，在弹出的对话框中选择要打开的项目文件my.pjx。在项目管理器my中，首先在\数据\选项卡中选择\数据库\，然后单击选项卡右边的\添加\命令按钮，在系统弹出的\打开\对话框中，将考生文件夹中的数据库stu添加到项目管理器中，单击\确定\按钮。
（2）从菜单栏里单击\文件\并选择\打开\，或直接单击工具栏上的\打开\图标，在弹出的对话框中选择要打开的表单文件for.scx。单击表单上的标签控件，在其属性窗口中，把FontSize的属性值改为\。单击工具栏上的\保存\图标，将更改保存。
（3）在项目管理器my中，首先在\文档\选项卡中选择\表单\，然后单击选项卡右边的\添加\命令按钮，在系统弹出的\打开\对话框中，将考生文件夹中的表单for.scx添加到项目管理器中，单击\确定\按钮。
（4）在命令窗口输入命令：MODIFY STRUCTURE，在弹出的对话框中选择\学生\表，进入\学生\的数据表设计器界面，然后单击\索引\选项卡，此选项卡中的\索引名\和\索引表达式\分别改为tel和\电话\，在\索引类型\的下拉框中，选择\惟一索引\。单击\确定\按钮，保存数据表修改。
二、简单应用题（共2小题，每题20分，计40分）
在考生文件夹下完成如下简单应用：
（1）将customer1表中的全部记录追加到customer表中，然后用SQL SELECT语句完成查询：列出目前有订购单的客户信息（即有对应的order_list记录的customer表中的记录），同时要求按客户号升序排序，并将结果存储到results表中（表结构与customer表结构相同）。
（2）打开并按如下要求修改form1表单文件（最后保存所做的修改）：
① 在\确定\命令按钮的Click事件（过程）下的程序有两处错误，请改正之； ② 设置Text2控件的有关属性，使用户在输入口令时显示\（星号）。 【答案】
（1）在命令窗口输入命令：MODIFY COMMAND query1，在程序文件编辑器窗口中输入如下程序段：
*******文件query1.prg的中程序段*******
USE customer
Append from customer1
SELECT DISTINCT customer.* FROM customer,order_list where customer.客户号=order_list.客户号;
ORDER BY customer.客户号 INTO TABLE results.dbf
*************************************
在命令窗口输入命令：DO query1，程序将查询结果自动保存到新表results中。 （2）在命令窗口输入命令：MODIFY FORM form1，打开表单form1.scx。
双击表单中的\确定\命令按钮，进入命令按钮的事件编辑窗口，在Click事件中的程序段如下： *******\确定\命令按钮Click事件的源程序*******
&&功能：如果用户输入的用户名和口令一致，则在提示信息后关闭该表单； &&否则重新输入用户名和口令。
If ThisForm.Text1 = ThisForm.Text2 &&**********Error********************** WAIT \欢迎使用……\
ThisForm.Close &&**********Error********************** Else
WAIT \用户名或口令不对，请重新输入……\Endif
********************************************* 修改程序中的错误，正确的程序如下：
****\确定\命令按钮Click事件修改后的程序****
If ThisForm.Text1.Text = ThisForm.Text2.Text && 缺少属性Text WAIT \欢迎使用……\
ThisForm.Release && 语法错误，关闭表单应该为Release Else
WAIT \用户名或口令不对，请重新输入……\Endif
********************************************* 选中表单中的第二个文本框控件（Text2），在属性面板中修改该控件的PasswordChar属性值为\，如图19-1所示，保存修改结果。
三、综合应用题（1小题，计30分）
使用报表设计器建立一个报表，具体要求如下：
① 报表的内容（细节带区）是order_list表的订单号、订购日期和总金额。
② 增加数据分组，分组表达式是 \客户号\，组标头带区的内容是\客户号\，组注脚带区的内容是该组订单的\总金额\合计。
③ 增加标题带区，标题是\订单分组汇总表（按客户）\，要求是3号字、黑体，括号是全角符号。
④ 增加总结带区，该带区的内容是所有订单的总金额合计。最后将建立的报表文件保存为report1.frx文件。 提示：在考试的过程中可以使用\显示→预览\菜单查看报表的效果。
【答案】
首先打开表设计器，为order_list表按\客户号\字段建立一个普通索引。
在命令窗口输入命令：CREATE REPORT report1，打开报表设计器。右击报表空白区，选择快捷菜单命令\数据环境\，在数据环境设计器中，将数据表order_list添加到数据环境中，如图19-2所示。然后将数据环境中order_list表中的订单号、订购日期和总金额3个字段依次拖放到报表的细节带区，如图19-3所示。
图19-2
图19-3
选择菜单命令\报表\数据分组\，系统弹出\数据分组\对话框，在对话框中输入分组表达式\客户号\，关闭对话框回到报表设计器，可以看到报表设计器中多了两个带区：组标头和组注脚带区，在数据环境中，将order_list表中的\客户号\字段拖放到组标头带区，并在报表控件栏中单击\标签\按钮，添加一个标签\客户号\，以同样的方法为组注脚带区增加一个\总金额\标签，并将\总金额\字段拖放到该带区，如图19-4所示。双击域控件\总金额\，系统弹出\报表表达式\对话框，在对话框中单击命令按钮\计算\，在弹出的对话框中选择\总和\单选项，关闭对话框，回到报表设计器。
图19-4
选择菜单命令\报表\标题/总结\，弹出\标题/总结\对话框，在对话框中勾选\标题带区\和\总结带区\复选框，为报表增加一个标题带区和一个总结带区；然后设置标签字体，选择菜单命令\报表\默认字体\，在弹出的\字体\对话框中，根据题意设置3号黑体字，接着通过\报表控件\工具栏，为总结带区添加一个标签\订单分组汇总表（按客户）\；最后在总结带区添加一个标签\总金额\，再添加一个域控件，在弹出的\报表表达式\中为域控件设置表达式为\总金额\，在\格式\对话框中选择\数值型\单选项，如图19-5所示。单击命令按钮\计算\，在弹出的对话框中选择\总和\单选项，关闭对话框，回到报表设计器。保存报表，利用常用工具栏中的\预览\图标按钮，可预览报表效果。