VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

　一、出現“Cannot Quit Visual FoxPro”的原因

　　第一種原因是：在執行了read event後，read event事件處於活動狀態，此時，試圖使用系統視窗的關閉按鈕退出Visual FoxPro（或Visual FoxPro編寫的應用，以下同），則會出現“Cannot Quit Visual FoxPro”。

　　在Visual FoxPro3.0中，即使read event事件處於活動狀態時，也可以調用Quit直接退出。但是，在Visual FoxPro5.0中，當read event事件處於活動狀態時調用Quit則不行，就會出現“Cannot Quit Visual FoxPro”。應先執行clear event關閉read event事件，然後才能正常退出。

　　另一種原因是：在Visual FoxPro5.0中，如果在還有活動表單的情況下，無論使用系統視窗的關閉按鈕，還是調用Quit，都會出現“Cannot Quit Visual FoxPro”。這時，要正常退出，必須先關閉活動的表單。

　　二、避免出現“Cannot Quit Visual FoxPro”的方法

　　要避免出現“Cannot Quit Visual FoxPro”，在欲退出之前，要先執行clear event。在Visual FoxPro5.0中還要先關閉活動的表單。

　　在Visual FoxPro3.0中，在程式的開頭可以加上

　　ON SHUTDOWN QUIT

　　這樣，在欲退出Visual FoxPro時，程式自動直接調用Quit退出，避免出現“Cannot Quit Visual FoxPro”。

　　在Visual FoxPro5.0中，程式的開頭可以加上類似以下的程式

　　ON SHUTDOWN DO MyQuit

　　PROC MyQuit

　　CLEAR Event

　　IF—SCREEN.cFormCount>0

　　DIME TmpForm[—SCREEN.FormCount]

　　FOR i=1 TO —SCREEN.FormCount

　　TmpForm[i]=—SCREEN.Forms(i)

　　ENDFOR

　　FOR i=1 TO —SCREEN.FormCount

　　TmpForm[i].Release

　　ENDFOR

　　ENDIF

　　QUIT

　　這樣，在欲退出Visual FoxPro時，程式先自動清除read event事件，關閉所有的表單，然後調用Quit正常退出。

　　摘自《賽迪網》　賈書民/文

garfield · 發表於: 星期日四月 13, 2003 5:58 pm 文章主題:

另外也有用強迫關閉VFP的API可以用, 但要記得先CLOSE 所有的TABLE 及DATABASE ,否則有時會在再一次進入應用程式時發生問題. 請參考我寫的範例:

func QuitExe
local i
for i=1 to 255
sele (i)
if !empty(alias())
IF CURSORGETPROP("Buffering")>1
=TableRevert(.T.)
endif
use
endif
next
clear events
close table all
Close Data all
Clear DLLs
quit
Declare ExitThread in Win32API
ExitThread()
return

Ruey · 發表於: 星期五六月 06, 2003 11:51 pm 文章主題:

Declare ExitThread in Win32API
ExitThread()
使用這種方式真的有必要嗎?

剛剛我試了你的方式--ExitThread()
程式給他強迫退出,發覺電腦有幾十秒的當機樣
而且工作管理員處裡程序中竟可看到未退出的程式

你是否有相同的狀況在

garfield · 發表於: 星期六六月 07, 2003 8:48 am 文章主題:

最近也覺得使用 ExitThread() 後情況不是很好, 有時候程式開啟一些TABLE在尚未COLSE時就強迫離開會造成再次執行的困難, 還是不用的好.

Ruey · 發表於: 星期日六月 15, 2003 11:56 pm 文章主題:

如何避免"不能退出 Visual FoxPro"資訊 RMH
是否曾不斷的試著關閉你的應用程式, 而得到的回答是不能退出? 在這裏成為故事.
你開發了一個應用程式並將它交會給你的用戶. 一切正常. 但是突然你接到一個電話. 用戶試著關閉應用程式, 但所得到的資訊是: "不能退出Visual FoxPro" (參見圖 1). 為什麼? 因為應用程式仍然在事件迴圈中.

圖 1: 恐怖的不能退出資訊
在應用程式某一地方, 你可能有類似下面的代碼:
DO MainMenu.MPR
READ EVENTS
一但在程式中發佈了事件迴圈( READ EVENTS 命令), 在退出事件迴圈前,你就不能退出 VFP. 要清除事件迴圈,發佈一條 CLEAR EVENTS 命令. 只要用戶想關閉應用程式時(如,從系統功能表中選擇了"關閉"或"退出:),你可以正常的執行一條 CLEAR EVENTS.
但是如果用戶試著單擊視窗標題欄中的關閉按鈕時,會發生什麼情況呢? 或者用戶在應用程式仍然運行著的時候關閉 Windows 又會怎樣? 在這些情況下, 應用程式沒有機會執行 CLEAR EVENT. 事件迴圈仍然是活動的, 因此出現了不能退出 VFP 的資訊.
要避免這一點, 可使用 ON SHUTDOWN 命令. 該命令的運行方式與 VFP 的其他 "On" 命令(如 ON ERROR)一樣, 它指定一個當確定的事件發生時要執行的行動. 在這種情況下, 事件是以任何方式試圖關閉應用程式.
因此你所要做的只是執行 ON SHUTDOWN CLEAR EVENTS. 應該在應用程式開始時 - 發佈 READ EVENTS 之前. 一但你這樣做了, 用戶決不會再次見到不能退出資訊. 當用戶單擊視窗標題樣中的關閉按鈕時, 程式將執行 ON SHUTDOWN 代碼, 這將會退出事件迴圈並將控制返回 READ EVENTS 後面的代碼.
什麼也沒有發生
好了, 還不完全. 現在試著在 VFP 開發環境中運行一個 .APP. 關閉該 .APP. 然後試著退出 Visual FoxPro. 當你用檔功能表中的退出時,沒有什麼問題, 但在命令視窗打入 QUIT 或單擊視窗標題欄的關閉按鈕時. 結果是相同的: 什麼也沒有發生,沒有退出 VFP ,沒有錯誤提示.
為什麼? 因為 ON SHUTDOWN 命令任然在起作用,因此在關閉 VFP 時,VFP 只是簡單地執行一條 CLEAR EVENTS, 這對開發環境沒有作用並且也沒有程式在運行.
要避免這一點, 返回到應用程式中, 並添加另一個 ON SHUTDOWN 命令. 這一次, 僅僅是不帶任何子句的 ON SHUTDOWN. 將它放入清理代碼中, 就是說, 在 READ EVENTS 後面的某處. 它的作用是取消原來的 ON SHUTDOWN.
這一對命令 - ON SHUTDOWN CLEAR EVENTS 和 ON SHUTDOWN - 是想雅致地關閉應用程式的最小要求. 但是, 根據應用程式的結構,你可能需要做更多的事.
清理
在我們自己的應用程式中, 檔功能表中的退出功能表項,在發佈 CLEAR EVENTS命令前執行某些特定的清除代碼. 特別地, 遍曆所有已打開表單(通過 _SCREEN 的 Forms 集合), 關閉各個表單. 在這樣做的同時, 提示用戶處理未保存的修改. 在樣做可以讓用戶決定是否取消關閉應用程式, 以避免因清除事件迴圈而仍在螢幕上留下一些打開的表單.
無論用戶是採用何種方法關閉應用程式,程式需要經過相同的處理過程. 要達到這一點, 我們放入以上處理到一個我們叫做 FileExit 的過程中. 檔功能表的的退出功能表項簡單地用 DO FileExit 調用該過程. 在 ON SHUTDOWN 命令中也一樣. 換句話說,現在不是 ON SHUTDOWN CLEAR EVENTS, 而是 ON SHUTDOWN DO FileExit. 採用這種方法, 無論用戶採用什麼方法關閉程式,關閉處理總是相同的.

garfield · 發表於: 星期一六月 23, 2003 9:43 am 文章主題:

* 轉貼自"梅子"
關於‘不能退出VFP’的解決方法！的一些補充
on shutdown clear events
在一般情況下可以很好的解決退出程式時系統提示‘不能退出VFP’的問題
但是有些個別情況就不能很好的完成這一任務。
特別是加了ON ERROR .......quit語句來捕捉錯誤然後退出的時候，在這時事務處理中修改一個資料庫中的記錄時，網路上的其他用戶在結束事務前不能訪問(不論是讀還是寫)這些記錄。當網路上的其他用戶要訪問事務中修改過的記錄時，必須等到事務結束之後。這時候運行quit命令會出現‘不能退出VFP’提示。
我們可以使用 txnlevel( ) 函數可確定當前事務的層次。txnlevel( ) 函數返回 0 到 5 之間的一個值。如果進程中沒有事務，TXNLEVEL( ) 返回 0。然後用ROLLBACK 恢復當前事務期間所做的任何修改。如果事務是嵌套的，則只恢復自前一個 BEGIN TRANSACTION 命令起所做的修改，恢復後，程式繼續執行下面的語句。這樣我們在退出就可以了。
舉例如下：
DO WHILE TXNLEVEL()>0
ROLLBACK
ENDDO
clear events

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 7 樓

心得
強迫退出時.把所有表單關閉.剩下主表單
在主表單activate設定.判斷是否為強迫退出!!
然後下達quit

若有不同.請修正之~~~

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 8 樓

QuitExe
這個函數很好用.解決了

可以退出系統...

區榮熾 · 註冊時間: 2005-11-14 文章: 191 第 9 樓

foxy · 註冊時間: 2007-08-16 文章: 231 來自: 泰國 第 10 樓

您的方法很有效,我也一直使用 ON SHUTDOWN DO myQuit 的方法