3 如何加入READ EVENTS

2021-08-24 17:17:34 字數 2361 閱讀 6838

3

如何加入read events

難度係數êê

人氣指數

90%

我的程式為什麼在編譯後會一閃而過,關閉程式時,為什麼提示「不能退出foxpro」?

請注意在問題2介紹的主程式中,加入了3個read events,read events的作用就是占用程式的程序,然後開始事務處理。許多的初學者問:為什麼我的程式編譯成exe檔案後一閃而過?其原因就是沒有開始事務處理,所以程式就會一直向下執行。本節將逐一分析上面這個程式段的3個read events。

在第乙個read events前,開啟的是begin表單,顯示版權畫面,表單的設計如圖1-3所示,請注意表單的unload方法設計。

圖1-3

製作版權畫面

在表單中使用了乙個timer控制項,是為了進行畫面顯示的自動延遲時間。下面這段**是進行表單的屬性設定:

然後編寫表單的init事件過程,定義全域性變數ncounttime來計算時間延遲。

public ncounttime

ncounttime=0

編寫表單的click方法,如果捕獲到表單的滑鼠單擊事件,直接關閉表單,不再延遲。

release thisform

編寫表單的unload方法,表單解除安裝時,執行clear events命令,結束事務處理。

release ncounttime &&

清除計時變數

clear events

下面是timer控制項的時間延遲操作方法,設定timer的interval屬性。

interval=50

編寫timer事件計算延遲,可以根據自己的實際情況,通過更改interval的值或ncounttime的迴圈次數來設定自己的延遲時間。

ncounttime=ncounttime+1

if ncounttime=45

release thisform

endif

編寫產品使用權的label2(使用者名稱)的init方法:

this.caption="alltrim(substr(sys(0),at([#],sys(0))+1,15))"

編寫產品使用權的label3(機器名)的init方法:

this.caption="alltrim(left(sys(0),at([#],sys(0))-1))"

通過上面的分析看出,在關閉表單的時候,在unload方法中執行了一條clear events命令,來停止事務處理。這樣,按照程式中的語句順序,visual foxpro會自動尋找下乙個read events來進行事務處理,自然就執行到了do form login這裡,從而顯示了登入畫面。同樣的道理,在關閉login表單的時候也同樣執行了一條clear events命令,然後程式按照語句順序繼續向下執行。由以上的介紹可得出結論:想在**開始事務處理,就在**加入read events!

還剩最後乙個read events,這乙個需要在結束應用程式退出visual foxpro時使用clear events來清除,結束事務處理。否則,visual foxpro會提示「不能退出foxpro」。

在visual foxpro中使用read events代替了read命令,實際上二者的作用是十分相近的,read命令用於啟用控制,read events用於開始事務處理,下列**演示了read命令的作用,對於理解read evrnts會有所幫助。

cname=space(20)

nprice=0.00

nnumber=0.00

@1,1 say "

貨物名稱" get cname

@3,1 say "

**" get nprice

@5,1 say "

數量" get nnumber

read &&

啟用控制,可以輸入貨物名稱、**和數量

上面的**是在foxpro 2.6中編寫資料錄入的**,read命令可以啟用get控制來允許使用者錄入資料,如果遮蔽掉read命令,程式會自動向下繼續執行,這與在visual foxpro中沒有read events程式會一閃而過是同樣的道理。

3月29日 如何在winform中加入動態系統時間

第一步 拖乙個lable和乙個 timer控制項 第二步 在 timer控制項的tick方法中 private void timer1 tick object sender,eventargs e 第三步 在 form1 load 事件中鍵入如下 private void form1 load ob...

Matlab中如何加入函式

如何將libsvm加入到matlab函式庫中 1 在matlab中命令視窗中pathtool,出現以下視窗 2 選擇你所加入的是資料夾還是子資料夾,加入後儲存即可。在matlab中加入斷點的方法 在matlab中按f12加入斷點 按f5可以執行到斷點出 按f10n單步執行 按f11進入函式內部執行 ...

如何加入同學錄 Google group

新使用者請按下面步驟註冊 1.大家可以從我的 部落格 右邊的 訂閱 永中校友錄 來進行訂閱論壇討論的內容,而不用進入論壇來進行討論,這樣會節省您好多時間。或通過 訪問此論壇 來訪問論壇。注意 需填寫真實的email位址,因為您的賬號和密碼將會自動按此位址發信通知您。ps 我的部落格是 www.bor...