第三十七套
一、基本操作题（共4小题，第1和2题是7分、第3和4题是8分）
在考生文件夹下完成如下操作:
1. 打开数据库customer，并将自由表customer和order添加到数据库中。
2. 为表order的"订单日期"字段定义默认值为系统的当前日期。
3. 为表customer建立主索引，索引名和索引表达式均为"客户编号"。
4. 为表order建立普通索引，索引名和索引表达式均为"客户编号"，然后通过
"客户编号"字段建立表customer和order之间的永久联系。
本题主要考核点：
将一个自由表添加到数据库中、表索引的建立、表之间的永久联系的建立等知识点
本题解题思路：
第1题：打开考生文件夹下的"customer"数据库；打开数据库菜单选择"添加表(A)"，在弹出的"打开 "对话框中，选定考生文件夹下的customer表，再点击"确定"即可,这样表customer就添加到了"customer"数据库中，用同样的方法，将order表也添加到"customer"数据库中。
第2题：在数据库设计器中选中表order，在主菜单中选择"修改(Y)"，弹出表设计器，选择表设计器"字段"标签，在字段名列单击"订单日期"字段，定义默认值DATE()。
第3题：在数据库设计器中选中表customer，在主菜单中选择"修改(Y)"，弹出表设计器，选择表设计器"索引"标签，在索引名列中填入"客户编号",在索引类型列中选择"主索引"，在索引表达式列中填入"客户编号"，点击"确定"按钮，保存表结构。
第4题：数据库设计器中选中表order，在主菜单中选择"修改(Y)"，弹出表设计器，选择表设计器"索引" 标签，在索引名列中填入"客户编号",在索引类型列中选择"普通索引"，在索引表达式列中填入"客户编号"，点击"确定"按钮，保存表结构，选中 customer表中的索引"客户编号"，将其拖动到表order的"客户编号"的索引上并松开，这样两个表之间就建立起了永久联系。
二、简单应用（2小题，每题20分，计40分）
在考生文件夹下完成如下简单应用:
1. 请按要求修改modi1.prg程序文件中的错误并使之能够正确运行（具体修
改要求在程序文件中）。注意：不可以增加或删除程序行。
2. 在考生目录下有表customer（客户）和order（订单），用SQL SELECT语
句查询所有客户的订单信息，要求在结果中包括公司名称、订单编号、金额和送
货方式四个字段的信息，并先按公司名称升序排序、再按订单编号升序排序，查
询结果存放在results.dbf文件中,并要求将完整的SQL SELECT语句保存在SQL.PRG
文件中。
本题主要考核点：
VFP命令，SQL查询语句，查询去向等
本题解题思路：
第1题，本题是一个程序修改题。空行处应填use customer。第二个错误为SCAN WHILE 所在地=’北京’，应改为SCAN FOR 所在地=’北京’。
第2题，本题的主要考核点是SQL查询，查询去向。
SELECT Customer.公司名称, Order.订单编号, Order.金额, Order.送货方式;
FROM customer INNER JOIN order;
ON Customer.客户编号 = Order.客户编号;
ORDER BY Customer.公司名称, Order.订单编号;
INTO TABLE results
三、综合应用（1小题，计30分）
建立满足如下要求的应用并运行，所有控件的属性必须在表单设计器的属性
窗口中设置：
1. 建立一个表单myform（文件名和表单名均为myform）,其中包含两个表格
控件，第一个表格控件名称是grd1，用于显示表customer中的记录，第二个表格
控件名称是grd2，用于显示与表customer中当前记录对应的order表中的记录。
要求两个表格尺寸相同、水平对齐。
2. 建立一个菜单mymenu，该菜单只有一个菜单项"退出"，该菜单项对应于
一个过程，并且含有两条语句，第一条语句是关闭表单myform，第二条语句是将
菜单恢复为默认的系统菜单。
3. 在myform的Load事件中执行生成的菜单程序mymenu.mpr。
本题主要考核点：
表单文件的创建、表格生成器的使用、菜单文件的建立、表单的退出等知识点
本题解题思路：
操作过程：
①在命令窗口输入命令：CREATE FORM myform，打开表单设计器窗口。
②从常用工具栏中单击表格控件，添加两个表格到新建得表单中，右击表单，选择"数据环境"快捷菜单命令，在数据环境中添加"customer"和"order"，建立好两表得关联。然后右键单击表格grd1，在弹出的快捷菜单中选择"生成器"，弹出表格生成器对话框，在"1.表格项"中选择"customer"，将表中所有字段添加到选定字段中。以同样的方法设置第二个表格的生成器，选择"4.关系"选项卡，把" 父表中的关键字段"设置为customer.客户编号，把"子表中的相关索引"设置为客户编号。
③在命令窗口输入命令：CREATE MENU mymenu，在弹出的"菜单设计器"中的"菜单名称"列处输入"退出"，结果为过程,相关代码如下所示：
myform.release
set sysmenu to defa
④点击主菜单栏中的菜单-生成。
⑤保存菜单，关闭菜单设计器。
⑥设置表单的Load事件代码：
do mymenu.mpr
⑦保存表单，关闭表单设计器窗口。
责任编辑：小草
