一、
ALTER TABLE p_t ADD COLUMN 继承人 C(8)
ALTER TABLE fr_t ALTER 面积 SET CHECK 面积>=1 .AND. 面积<=100
ALTER TABLE fr_t ALTER COLUMN 面积 SET DEFAULT 10
ALTER TABLE fr_t ALTER 蓄积 SET CHECK 蓄积>=0 .AND. 蓄积<=200
ALTER TABLE fr_t ALTER COLUMN 蓄积 SET DEFAULT 100
1. 打开并修改数据库
MODIFY DATABASE frdb
2. 在“数据库设计器-Frdb”中，选择表“fr_t”并单击鼠标右键，选择“修改”命令，
在“表设计器-fr_t.dbf”中，单击“索引”选项卡，然后输入索引名“户主编号”，选择类型
为“普通索引”，表达式为“户主编号”，再移到下一个索引项，输入索引名“树种编号”，
选择类型为“普通索引”，表达式为“树种编号”，最后单击“确定”按钮，再单击“是(Y)”
这样索引就建立了。
1. 在“数据库设计器-Frdb”中，然后选择“p_t”表中主索引键“户主编号”并按住不放
，然后移动鼠标拖到“fr_t”表中的索引键为“户主编号”处，松开鼠标即可。
2. 在“数据库设计器-Frdb”中，然后选择“tree_t”表中主索引键“树种编号”并按住
不放，然后移动鼠标拖到“fr_t”表中的索引键为“树种编号”处，松开鼠标即可。
二、
1. 单击“工具\向导\表单”菜单项，并显示“向导选取”对话框。
2. 在“向导选取”对话框中，选择“表单向导”并单击“确定”按钮，并显示“表单向导
”对话框。
3. 在“表单向导”对话框的“步骤1-字段选取”中，首先要选取表“fr_t”，在“数据库
和表”列表框中，选择表“fr_t”，接着在“可用字段”列表框中显示表fr_t的所有字段名，
并选定所有字段名，再单击“下一步”按钮。
4. 在“表单向导”对话框的“步骤2-选择表单样式”中，在“样式”中选择“阴影式”，
在“按钮类型”中选择“图片按钮”，再单击“下一步”按钮。
5. 在“表单向导”对话框的“步骤3-排序次序”中，选定“户主编号”字段并选择“升序
”，再单击“添加”按钮，再单击“下一步”按钮。
6. 在“表单向导”对话框的“步骤4-完成”中，在“请输入表单标题”文本框中输入“资
源数据输入维护”，再单击“完成”。
7. 在“另存为”对话框中，输入保存表单名“fr_edit”，再单击“保存”按钮，最后表
单就生成了。
1. 建立查询文件
CREATE QUERY one
2. 在“打开”对话框中，选择表“fr_t.dbf”，再按“确定”按钮。
3. 在“添加表或视图”对话框中，选择表“tree_t”，再按“添加”按钮，接着按“关闭
”按钮，关闭“添加表或视图”对话框。
4. 在“查询设计器-one”窗口中，单击“字段”选项卡，选择“Fr_t.户主编号”、
“Tree_t.树种名称”，在“函数和表达式”输入“SUM(Fr_t.面积) AS 面积合计”，再单击“
添加”按钮，在“函数和表达式”输入“SUM(Fr_t.蓄积) AS 蓄积合计”，再单击“添加”按
钮。
5. 在“查询设计器-one”窗口中，单击“排序依据”选项卡，选择字段“Fr_t.户主编号
”并在“排序选项”中选中“升序”，再单击“添加”按钮。
6. 在“查询设计器-one”窗口中，单击“分组依据”选项卡，选择字段“Fr_t.户主编号
”，再单击“添加”按钮，再选择字段“Tree_t.树种名称”，再单击“添加”按钮。
7. 在“查询设计器”中，单击“查询\查询去向”菜单项，并显示“查询去向”对话框，
在此对话框中，单击“表”按钮，接着在“表名”处输入表名“one”，单击“确定”按钮。
8. 最后保存并运行此查询。
三、
1. 建立表单
CREATE FORM fr_show
2. 在“表单设计器”中，在“属性”的Caption处输入“农户资源数据浏览”，在Name处
输入“form”。
3.在“表单设计器”中，单击鼠标右键，在弹出菜单中选择“数据环境”，在“数据环境
设计器-fr_show.scx”中，在“打开”对话框中，选择“fr_t.dbf”表，接着在“添加表或视
图”的对话框中，双击表“p_t”，再在“添加表或视图”的对话框中，双击表“tree_t”，再
按“关闭”按钮，关闭“添加表或视图”对话框。
4. 在“表单设计器”中，添加五个标签，在第1个标签Label1“属性”的Caption处输入“
户主编号”，在第2个标签Label2“属性”的Caption处输入“姓名”，在第3个标签Label3“属
性”的Caption处输入“年龄”，在第4个标签Label4“属性”的Caption处输入“性别”，在第
5个标签Label5“属性”的Caption处输入“家庭地址”。
5. 在“表单设计器”中，添加五个文本框，名称依次为Text1、Text2、Text3、Text4和
Text5。
6. 在“表单设计器”中，添加两个命令按钮，在第1个命令按钮“属性”的Caption处输入
“查询”，在第2个命令按钮“属性”的Caption处输入“退出”。
7. 在“表单设计器”中，双击“Command2”命令按钮，在“Command2.Click”编辑窗口中
输入“Release Thisform”，接着关闭编辑窗口。
8. 在“表单设计器”中，添加一个表格Grid1，在其“属性”的RecordSourceType处选择
“4-SQL说明”。
9. 在“表单设计器”中，双击“Command1”命令按钮，在“Command1.Click”编辑窗口中
输入下列语句，接着关闭编辑窗口。
select 姓名,年龄,性别,家庭地址 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)
ThisForm.Grid1.RecordSource="SELECT 土地编号,小地名,面积,树种编号,蓄积,承包
年度 FROM fr_t WHERE 户主编号='"+alltrim(ThisForm.Text1.Value)+"' INTO CURSOR LSB"