首先回答你的問題:do form 主介面下面一行寫上:Thisform.Release 另外,你這個程式有錯誤,即當你輸入密碼錯誤的時候哪怕是第一次,程式就會報錯“找不到變數n”。你這段程式應這麼寫:假設你這個是登陸介面表單,那麼在你的主程式中先定義個公共變數n,並設定初始值n=0:public nn=0然後,以上的程式碼修正為:yhxm=alltrim(thisform.text1.value)yhmm=alltrim(thisform.text2.value) sele 預設使用者名稱密碼 go top locate for 使用者姓名=yhxm .and. 使用者密碼=yhmm if found()=.f. n =n+1 if n<3 messagebox("使用者名稱或密碼不對,請重新登入!",16,"系統提示") thisform.text1.setfocus thisform.text1.value="" thisform.text2.value="" thisform.refresh else =messagebox("登入失敗,3秒後自動結束程式!",16,"系統提示") wait timeout 3 thisform.release release n close tables all clear clear events quit endif else do form 主介面 thisform.release release n endif
首先回答你的問題:do form 主介面下面一行寫上:Thisform.Release 另外,你這個程式有錯誤,即當你輸入密碼錯誤的時候哪怕是第一次,程式就會報錯“找不到變數n”。你這段程式應這麼寫:假設你這個是登陸介面表單,那麼在你的主程式中先定義個公共變數n,並設定初始值n=0:public nn=0然後,以上的程式碼修正為:yhxm=alltrim(thisform.text1.value)yhmm=alltrim(thisform.text2.value) sele 預設使用者名稱密碼 go top locate for 使用者姓名=yhxm .and. 使用者密碼=yhmm if found()=.f. n =n+1 if n<3 messagebox("使用者名稱或密碼不對,請重新登入!",16,"系統提示") thisform.text1.setfocus thisform.text1.value="" thisform.text2.value="" thisform.refresh else =messagebox("登入失敗,3秒後自動結束程式!",16,"系統提示") wait timeout 3 thisform.release release n close tables all clear clear events quit endif else do form 主介面 thisform.release release n endif