摘要：本文敘述了在vfp編程過程中遇到的問題：即vfp中頂層表單中如何調(diào)用其他表單及退出時確認信息的實現(xiàn)的探索過程及解決問題的方法，以及留給我們的啟示。

關(guān)鍵詞：VFP；頂層表單；確認信息

中圖分類號：TP317文獻標識碼：B文章編號：1009-3044(2008)08-10ppp-0c

筆者教授vfp已有八九年了，但從筆者學(xué)習(xí)及教授vfp這些年中體會vfp教授中遇到的許多問題及其解決的方法，下面是筆者在教學(xué)中遇到的比較典型的案例，下面寫出來與大家分享。

1 問題提出

筆者在指導(dǎo)學(xué)生用vfp編寫程序時，用的是頂層表單作為主程序界面，為了便于敘述姑且命名為：“表單1”，為了屏蔽系統(tǒng)窗口，不影響系統(tǒng)的總體界面，采取在config.fpw中加入一句：screen=off這樣才能屏蔽掉系統(tǒng)窗口，不致影響軟件的效果。結(jié)果是系統(tǒng)菜單不出現(xiàn)了，但在菜單中調(diào)用其他表單時卻無法顯示新調(diào)用的表單（為便于敘述命名為“表單2”），任務(wù)管理器中明明顯示已經(jīng)在運行可是就是屏幕無法顯示，筆者試了多種方法比如：在菜單中用命令： “表單2.show”，故障依舊，檢查其他屬性也正常，筆者很是郁悶，可又是沒有辦法。因為手頭沒有資料，上網(wǎng)查吧，網(wǎng)上關(guān)于vfp編程的資料少的可憐，都是2002年的占多數(shù)，據(jù)行內(nèi)人士說：誰還用vfp編程早就淘汰了，言下之意：你啊太老土啦。這些說法更加打消了筆者的自信心，可是筆者很是不服氣，既然淘汰了，為什么國家二級還在考呢，難道筆者多少年教授vfp積累下來的經(jīng)驗就白費了么，我很是不死心。筆者就天生就有股不服輸?shù)男?，我就不信一門語言，它本身應(yīng)當具備完備性，這樣的問題肯定能解決。

2 探索

于是筆者，一個接一個的查表單的屬性，挨個實驗，功夫不愧有心人，終于讓筆者找到了，當筆者找到屬性showwindow其下面有三個選項：“0—在屏幕中（默認） ，1—在頂層表單中，2—作為頂層表單”。找到這里我恍然大悟，原來這一屬性“默認值”為：“0—在屏幕中（默認）”，而我在config.fpw文件中恰恰關(guān)閉了屏幕，自然無法顯示了。找到了癥結(jié)我欣喜若狂，可是冷靜下來之后又遇到了問題：如果將config.fpw文件中screen=off重新變?yōu)椋簊creen=on吧，在頂層表單“表單1”中調(diào)用“表單2”時倒是可以顯示了，可是影響軟件整體效果的系統(tǒng)屏幕顯示出來了，不可取，我有重新將screen=on改為screen=off，試一試第二選項吧我將，showwindow屬性設(shè)為：1—在頂層表單中，接下來運行頂層表單“表單1”中菜單調(diào)用“表單2”，顯示倒是能顯示，可是結(jié)果讓人大跌眼鏡，原來這一表單顯示在頂層表單中，把原來的表單的布局，控件覆蓋的面目全非，看來似乎也是不行。于是我再考慮第三個選項：2—作為頂層表單，這倒是能分別顯示，可是一個軟件中只能由一個頂層表單，正所謂：“家有千口主事一人”。否則在頂層表單中設(shè)置的全局變量統(tǒng)統(tǒng)都要作廢了，況且在頂層表單中使用菜單或程序中調(diào)用表單：

do form表單1.scx

接下來一句是：

readevents

以便激活表單處于顯示等待狀態(tài)，可是在關(guān)閉表單時一般要加上一句：

clear events

以便釋放內(nèi)存徹底關(guān)閉vfp。基于這樣的觀念我在每一個表單的

destory事件

中都加上一句：clear events

這樣我在關(guān)閉“表單2”時結(jié)果把頂層表單“表單1”也關(guān)閉了。

這是在后來的調(diào)試中才發(fā)現(xiàn)的，現(xiàn)在我主要考慮第二個選項：“1—在頂層表單中”，這樣考慮是正確的因為 “表單1”是頂層表單做為主程序，“表單2”只是它的子表單，而且要求在關(guān)閉“表單2”時“表單1”不能關(guān)閉，基于這樣的考慮我又查找“表單2”的屬性，最終讓我找到了解決的辦法。

3 問題解決

問題最終解決辦法如下

表單2屬性：

showwindow設(shè)為1—在頂層表單中

desktop 設(shè)為 .T.*其默認值為 .F.，該屬性設(shè)置表單是否在vfp主窗口中（這一屬性很關(guān)鍵費了我好幾天的時間才發(fā)現(xiàn)）

關(guān)鍵的一條是在“表單2”的“destroy”事件中去掉： clear enents

而只保留“表單1” 的“destroy”事件： clear enents。

這樣萬事大吉問題全部解決。

有以上的編程調(diào)試程序經(jīng)驗，我還解決了在“退出”表單前，如何加上確認信息的問題：

就是在“關(guān)閉”按鈕里輸入的不是：

thisform.release

而是：

ThisForm.QueryUnload

因為表單在卸載前，首先要詢問表單的QueryUnload事件，然后再卸載表單。也就是說，QueryUnload事件是表單卸載時第一個被觸發(fā)的事件。在 QueryUnload 事件過程中執(zhí)行 NODEFAULT命令可以阻止表單卸載。這樣我們通過在QueryUnload 事件中巧妙包含NODEFAULT，就能避免直接卸載表單。

而在表單的QueryUnload事件中輸入以下命令

nYesNo = MessageBox(\"確定要退出嗎？\"，4+48+256，\"提示\")

*--上面顯示包含“是”、“否”兩個按鈕的對話框

If nYesNo = 6 如果選取了“是”，則退出

*-- 退出前要執(zhí)行的代碼寫在這里

*-- 然后執(zhí)行類似下面的退出代碼

ThisForm.Release

*--頂層表單中還可以加上：clear events

Else 選取了“否”，不退出

NODEFAULT若選擇“否”用此命令不退出

EndIf

4 結(jié)束語

通過以上的敘述可以看出最終的解決方案很是簡單，但是在沒有外援的情況下，可以體會探索問題，解決問題艱辛與快樂。從而給我們一個啟示：做任何事情都不要輕易放棄，執(zhí)著追求才能達到理想的彼岸。

參考文獻：

[1]王利，崔巍，婁不夜，等.全國計算機等級考試二級教程---- Visual FoxPro程序設(shè)計/教育部考試中心[M].北京:高等教育出版社，2001，(2005重印).

[2]孟昭光，吳興興，等.中文版Visual FoxPro 6.0 使用與實例揭秘 [M].北京：人民教育出版社，1999.8（計算機實用軟件叢書）.

[3]鄭硯，周青，等.Visual FoxPro 8.0 實用編程100例[M].北京:中國鐵道出版社，2004.3（實用編程百例叢書）.