本文是一個關于表單集的小實例。本例運行時表單集中的表單form2的狀態(tài)是隱藏，表單form1上面的表格顯示的是“網站信息表”中的數據，如下圖:

單擊了“顯示附加信息”命令按鈕后，該按鈕上面的文字變?yōu)椤半[藏附加信息”，同時表單form2顯示出來，它上面的表格顯示的是“附加信息表”中的數據；并且form1和form2上面的兩個表格中的數據能實現數據聯(lián)動，即在form1的表格中單擊一個網站的記錄，在form2的表格中會顯示該網站的附加信息。當命令按鈕上的文字變?yōu)椤半[藏附加信息”時，單擊該命令按鈕可將form2再次隱藏。如下圖

本例用到了“數據1”數據庫中的“網站信息表”和“附加信息表”，關于該數據庫的情況已經在看實例學VFP：示例數據庫一文中給出。本例制作步驟如下：

一、新建表單，將其保存為“表單集的例子.scx”。在表單設計器打開的狀態(tài)下，單擊菜單欄中“表單”→“創(chuàng)建表單集”，這樣就創(chuàng)建了一個表單集FormSet1，其中包含了一個表單form1。我們接著向這個表單集中再添加一個表單，方法是在表單設計器打開的狀態(tài)下單擊菜單欄中“表單”→“添加新表單”，此時表單設計器中又會多了一個表單form2，剛添加上去時它是把原來的表單form1蓋住的，你可以拖動form2的標題欄向下來一點兒，就可以看到這兩個表單了。

二、設置兩個表單的屬性，將form1的Caption屬性設置為“網站信息表”,form2的Caption屬性設置為“附加信息表”，form1和form2的width屬性值均設為300，Height屬性值均設為168,設置完畢的表單設計器如下圖:

三、添加數據環(huán)境：右擊form1空白處，選“數據環(huán)境”命令，將“數據1”中的“網站信息表”及“附加信息表”這兩個表添加到表單的數據環(huán)境中。

四、在“數據環(huán)境設計器”中，拖動“網站信息表”的“編號”字段到“附加信息表”的“網站編號”索引標識上，這時在“數據環(huán)境設計器”中“網站信息表”及“附加信息表”之間會出現一條單線，表明這兩個表之間已經建立起了一對一的臨時關系（如下圖），該關系在表單啟動時被建立，表單關閉時釋放。

五、從“數據環(huán)境設計器”中拖動“網站信息表”的標題欄到form1上，自動生成一個表格，并按照表1設置該表格的屬性:

表1

然后在該表格的右下角添加一個命令按鈕command1，并將該命令按鈕的Caption屬性設置為“顯示附加信息”；類似的方法，從“數據環(huán)境設計器”中拖動“附加信息表”的標題欄到form2上，自動生成一個表格，并按照表1設置該表格的屬性。設置完畢的表單設計器如下圖:

六、添加事件代碼：

(1).表單form1的Unload事件代碼：close data

(2).表單form1的Init事件代碼：thisform.Parent.form2.Hide

(3).表單form1的QueryUnload事件代碼：thisform.Release

(4).命令按鈕command1的click事件代碼：

IF this.Caption='顯示附加信息'
   this.Caption='隱藏附加信息'
   thisform.Parent.form2.Show
ELSE
   this.Caption='顯示附加信息'
   thisform.Parent.form2.Hide
ENDIF

　　七、運行“表單集的例子.scx”。

本例代碼在Win2003+VFP6.0環(huán)境下調試通過。

查看全套“菜鳥也學VFP”教程