2010年计算机等考二级VF上机冲刺模拟试题(33)

　　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

　　附：本题相关表：