在考生文件夹下,打开资源数据库FRDB,完成如下综合应用: 设计一个表单名为form、表单文件名为FR-SHOW、表单标题名为"农户资源数据浏览"的表单,其表单界面如图所示。其他要求如下: (1)为表单建立数据环境,向数据环境依次添加FR_T表(Curso

admin2013-10-25  30

问题 在考生文件夹下,打开资源数据库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数组诸元素的值赋值到各文本框。
     

选项

答案【操作步骤】 步骤1:单击常用工具栏中的"新建"按钮,文件类型选择"表单",打开表单设计器。单击工具栏上"保存"按钮,在弹出"保存"对话框中输入"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.Click"编辑窗口中输入"Thisform. Release",接着关闭编辑窗口。 步骤8:在"表单设计器"中,添加一个表格Grid1,在其"属性"的RecordSourceType处选择"4-SQL说明"。 步骤9:在"表单设计器"中,双击查询命令按钮,在"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"

解析 利用表单设计器创建表单,依据题意添加各控件,向表单中添加数据环境,并设置表单及控件的属性和方法,编写相关查询语句,以完成表单功能。
转载请注明原文地址:https://kaotiyun.com/show/iNop777K
0

最新回复(0)