三、
1. 建立表單
CREATE FORM fr_show
2. 在“表單設(shè)計(jì)器”中,在“屬性”的Caption處輸入“農(nóng)戶資源數(shù)據(jù)瀏覽”,在Name處
輸入“form”。
3.在“表單設(shè)計(jì)器”中,單擊鼠標(biāo)右鍵,在彈出菜單中選擇“數(shù)據(jù)環(huán)境”,在“數(shù)據(jù)環(huán)境
設(shè)計(jì)器-fr_show.scx”中,在“打開”對(duì)話框中,選擇“fr_t.dbf”表,接著在“添加表或視
圖”的對(duì)話框中,雙擊表“p_t”,再在“添加表或視圖”的對(duì)話框中,雙擊表“tree_t”,再
按“關(guān)閉”按鈕,關(guān)閉“添加表或視圖”對(duì)話框。
4. 在“表單設(shè)計(jì)器”中,添加五個(gè)標(biāo)簽,在第1個(gè)標(biāo)簽Label1“屬性”的Caption處輸入“
戶主編號(hào)”,在第2個(gè)標(biāo)簽Label2“屬性”的Caption處輸入“姓名”,在第3個(gè)標(biāo)簽Label3“屬
性”的Caption處輸入“年齡”,在第4個(gè)標(biāo)簽Label4“屬性”的Caption處輸入“性別”,在第
5個(gè)標(biāo)簽Label5“屬性”的Caption處輸入“家庭地址”。
5. 在“表單設(shè)計(jì)器”中,添加五個(gè)文本框,名稱依次為Text1、Text2、Text3、Text4和
Text5。
6. 在“表單設(shè)計(jì)器”中,添加兩個(gè)命令按鈕,在第1個(gè)命令按鈕“屬性”的Caption處輸入
“查詢”,在第2個(gè)命令按鈕“屬性”的Caption處輸入“退出”。
7. 在“表單設(shè)計(jì)器”中,雙擊“Command2”命令按鈕,在“Command2.Click”編輯窗口中
輸入“Release Thisform”,接著關(guān)閉編輯窗口。
8. 在“表單設(shè)計(jì)器”中,添加一個(gè)表格Grid1,在其“屬性”的RecordSourceType處選擇
“4-SQL說明”。
9. 在“表單設(shè)計(jì)器”中,雙擊“Command1”命令按鈕,在“Command1.Click”編輯窗口中
輸入下列語句,接著關(guān)閉編輯窗口。
select 姓名,年齡,性別,家庭地址 from p_t where 戶主編號(hào)=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 土地編號(hào),小地名,面積,樹種編號(hào),蓄積,承包
年度 FROM fr_t WHERE 戶主編號(hào)='"+alltrim(ThisForm.Text1.Value)+"' INTO CURSOR LSB"
相關(guān)推薦:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |