三、 1. 建立表单
$ m! ?4 j" p0 \/ E CREATE FORM fr_show7 X3 f* H9 }3 k/ @
2. 在“表单设计器”中,在“属性”的Caption处输入“农户资源数据浏览”,在Name处" T) \& \5 {- K, r: c
输入“form”。
7 v9 [& }. Q# F 3.在“表单设计器”中,单击鼠标右键,在弹出菜单中选择“数据环境”,在“数据环境
- e1 d6 |9 O( H7 `5 D3 Y; z3 W# _ 设计器-fr_show.scx”中,在“打开”对话框中,选择“fr_t.dbf”表,接着在“添加表或视
5 w5 {0 ~( ]0 V 图”的对话框中,双击表“p_t”,再在“添加表或视图”的对话框中,双击表“tree_t”,再9 T/ O/ X& P- X2 [$ L9 a" c' S
按“关闭”按钮,关闭“添加表或视图”对话框。
4 v: n: b) S5 j7 r; v 4. 在“表单设计器”中,添加五个标签,在第1个标签Label1“属性”的Caption处输入“/ Y* | h) h- a, B! {
户主编号”,在第2个标签Label2“属性”的Caption处输入“姓名”,在第3个标签Label3“属
% a% d$ L `0 L# K4 t" _/ \ 性”的Caption处输入“年龄”,在第4个标签Label4“属性”的Caption处输入“性别”,在第
8 t7 E6 H4 j; J$ }5 C0 V 5个标签Label5“属性”的Caption处输入“家庭地址”。
$ [2 |( \" ?% {( S6 |3 V7 F$ f 5. 在“表单设计器”中,添加五个文本框,名称依次为Text1、Text2、Text3、Text4和9 |$ ]& o' |, Q4 a
Text5。
% b" f1 W6 r; e- ^% v) N. l5 l 6. 在“表单设计器”中,添加两个命令按钮,在第1个命令按钮“属性”的Caption处输入
# f' ?7 L5 F* n: W7 k “查询”,在第2个命令按钮“属性”的Caption处输入“退出”。3 ]: H$ w: p" ~# d
7. 在“表单设计器”中,双击“Command2”命令按钮,在“Command2.Click”编辑窗口中6 C- u: s1 g! }& |. O6 D [
输入“Release Thisform”,接着关闭编辑窗口。& J" S, A# j s( z; @9 v3 r+ _
8. 在“表单设计器”中,添加一个表格Grid1,在其“属性”的RecordSourceType处选择: `0 c. S% m. i7 A* Q1 g
“4-SQL说明”。% a( \ A6 p& ~( N; p2 o
9. 在“表单设计器”中,双击“Command1”命令按钮,在“Command1.Click”编辑窗口中
0 A* |! e, @, b* B0 ^& ` O 输入下列语句,接着关闭编辑窗口。
A% g% I7 ]( |! y select 姓名,年龄,性别,家庭地址 from p_t where 户主编号=alltrim
1 K0 s' L, z" k- r0 a (ThisForm.Text1.Value) into array tmp: ? e7 w7 V F P! b/ t) f
ThisForm.Text2.Value=tmp(1)
( h- c/ ?$ M o9 ~. m8 F ThisForm.Text3.Value=tmp(2)7 I1 y* d1 m9 \! L; @9 H+ D) h
ThisForm.Text4.Value=tmp(3)6 w, c) a* S# V- f9 @% y* i* g
ThisForm.Text5.Value=tmp(4)
' d$ K' A& f8 V) K. U# P ThisForm.Grid1.RecordSource="SELECT 土地编号,小地名,面积,树种编号,蓄积,承包
1 B ?! |* v6 h1 b9 D" L 年度 FROM fr_t WHERE 户主编号='"+alltrim(ThisForm.Text1.Value)+"' INTO CURSOR LSB" |