一、基本操作题（共4小题，第1和2题是7分、第3和4题是8分）

在考生文件夹下，有一个资源数据库FRDB，该数据库有资源表FR_T、农户表P_T和树种表TREE_T三个表。其中，资源表FR_T存储了全乡农民承包的土地编号、户主编号、小地名、面积、树种编号、蓄积（生长在山上的树的木材体积）和承包年度。打开资源数据库FRDB，完成如下操作：
1.在农户表P_T中增加一个字段名"继承人"、数据类型为"字符"、宽度为8的字段；
2.设置资源表FR_T中"面积"字段的有效性规则:面积大于等于1,小于等于100,默认值为10；"蓄积"字段的有效性规则:蓄积大于等于0，小于等于200，默认值为100；（注意：表达式应写成面积>=1.AND.面积<=100,蓄积>=0.AND.蓄积<=200）
3.为资源表FR_T创建两个普通索引（升序），索引名分别为"户主编号"和"树种编号"，对应的索引表达式分别为"户主编号"和"树种编号"；
4.通过"户主编号"字段建立资源表FR_T和农户表P_T间的永久联系；通过"树种编号"字段建立资源表FR_T和树种表TREE_T间的永久联系。
解答：
1.打开数据库“FRDB.DBC”，进入数据库设计器，用鼠标右键单击农户表“P_T”，选择“修改”，进入表设计器，在表设计器中增加一个字段。
也可以使用命令：ALTER TABLE P_T  ADD 继承人 C(8)
2. 用鼠标右键单击农户表“FR_T”，选择“修改”，进入表设计器，分别设置“面积”和“蓄积”的字段有效性规则和默认值，如下图。
 
3.在“表设计器”中按要求建立索引，如下图：

4.打开数据库，进入数据库设计器，通过拖放索引建立表单永久关系。如下图：

二、简单应用（2小题，每题20分，计40分）

在考生文件夹下，打开资源数据库FRDB，完成如下简单应用：
1.使用表单向导选择资源表FR_T生成一个名为FR_EDIT的表单。要求选择FR_T表中所有字段，样式为阴影式；按钮类型为图片按钮；排序字段选择户主编号（升序）；表单标题为"资源数据输入维护"。
2.使用查询设计器设计一个查询one，按户主编号(取自fr_t表)，树种名称(取自Tree_t表)分组汇总每个农户的面积(取自fr_t表)和蓄积(取自fr_t表)，查询结果按户主编号升序排序，并输出到ONE表中。ONE表中的字段为户主编号、树种名称、面积合计、蓄积合计。注意：查询设计完成后必须运行。
解答：
1.单击“新建”菜单或“新建”工具，在“新建”对话框中选择“表单”，单击“向导”，按题目的要求设置向导的每一步即可。
2. 单击“新建”菜单或“新建”工具，在“新建”对话框中选择“查询”，单击“新建文件”，按要求添加表，分别设置各选项卡和输出设置，最后运行该查询。其中“字段”的“分组”的结果如下图：
 
运行有结果如下图所示：

在考生文件夹下，打开资源数据库FRDB，完成如下综合应用：
设计一个表单名为form、表单文件名为FR_SHOW、表单标题名为"农户资源数据浏览"的表单，其表单界面如图所示。

其他要求如下：
1.为表单建立数据环境，向数据环境依次添加FR_T表(Cursor1)、P_T表(Cursor2)和TREE_T表(Cursor3)。
2.当在"户主编号"(Label1)标签右边的文本框(Text1)中输入户主编号并单击"查询"(Command1)按钮时，将在右边的表格控件(Grid1)内显示该农户承包的土地编号、小地名、面积、树种编号、蓄积和承包年度信息(均取自FR_T表)，并在左边相应的文本框中显示该农户的姓名(Text2)、年龄(Text3)、性别(Text4)和家庭地址(Text5)(均取自P_T表)。
3.单击"退出"(Command2)按钮时，关闭表单。
要求：①表格(Grid1)控件的RecordSourceType属性设置为"4－SQL说明"；
②使用SQL的SELECT语句将根据输入的户主编号查询到的姓名、年龄、性别和家庭地址数据存放到一维数组tmp中，并将tmp数组诸元素的值赋值到各文本框。
解答：
新建表单，用指定的文件名存盘，添加控件，添加数据环境，将表格的RecordSourceType属性设置为"4－SQL说明",设置“查询”按钮的Click事件代码为：
thisform.grid1.recordsource="sele 土地编号,小地名,面积,树种编号,蓄积,承包年度 from fr_t where 户主编号=alltrim(thisform.text1.value) into curs ttt"
sele 姓名,年龄,性别,家庭地址  from p_t where 户主编号=alltrim(thisform.text1.value) into array tmp
thisform.text2.value=tmp(1)
thisform.text3.value=tmp(2)
thisform.text4.value=tmp(3)
thisform.text5.value=tmp(4)
设置“退出”按钮的Click事件代码为：
thisform.release
附：本题相关表：