大家平時都會經常用到的兩個**，但是他們的區別大多數人都不太清楚。
me.hide：只是讓視窗隱藏起來，但是還存在於記憶體當中。不能直接退出程式。
end：直接解除安裝視窗，如果是主視窗，將直接退出程式。
if (msgbox("確定要退出系統嗎？", vbokcancel, "退出系統")) = vbok then
endend if
if trim(txtresult.text) > 150 or trim(txtresult.text) < 0 then
msgbox "數值不在範圍內，請重新輸入！", vbokonly + vbexclamation, "提示"
txtresult.text = ""
txtresult.setfocus
exit sub
end if
on error goto err 'goto語句防止出現3021
dim str2$
'記下當前記錄位置
mybookmark = mrc.bookmark
'提示是否刪除
str2$ = msgbox("是否刪除當前記錄？", vbokcancel, "刪除當前記錄")
'判斷按鈕型別
if str2$ = vbok then
'移動到資料集下一條記錄
mrc.movenext
'判斷資料集物件是否為空
if mrc.eof then
'移動到資料集的第一條記錄
mrc.movefirst
'記載當前記錄的位置
mybookmark = mrc.bookmark
'移動到最後一條記錄
mrc.movelast
'刪除記錄
mrc.delete
mrc.bookmark = mybookmark
'呼叫函式顯示資料
call viewdata
else
'記載當前位置
mybookmark = mrc.bookmark
'移動到前一條記錄
mrc.moveprevious
'刪除記錄
mrc.delete
'回到原來位置
mrc.bookmark = mybookmark
'呼叫函式顯示資料
call viewdata
end if
else
mrc.bookmark = mybookmark
call viewdata
end if
'錯誤處理
err:
if err = 3021 then
if mrc.eof and mrc.bof then
msgbox "當前沒有記錄！", vbokonly + vbexclamation, "警告"
else
a = msgbox("這是最後一條記錄，是否刪除！？", vbokonly + vbexclamation, "警告")
if a = vbok then
txtsid.text = ""
txtname.text = ""
combo***.text = ""
txttel.text = ""
txtaddress.text = ""
txtcomment.text = ""
comboclassno.text = ""
msgbox "當前無記錄，系統將退出！", vbokonly + vbexcalamation, "警告"
unload me
else
exit sub
end if
end if
end if
end sub
× txtsql = 「select * form course_info」
√ txtsql = 「select * from course_info 」
②檢視是否配置好了odbc資料來源
private sub cmdnext_click()
'資料集向後移動
mrc.movenext
'判斷是否到末位置
if mrc.eof then
msgbox "這已經是最後一條記錄了！"
mrc.movelast
end if
call viewdata
end sub
private sub cmdprevious_click()
'資料集向前移動
mrc.moveprevious
'判斷是否到起始位置
if mrc.bof then
msgbox "這已經是第一條記錄了！"
mrc.movefirst
end if
call viewdata
end sub
學生資訊管理系統之優化二
查詢窗體核取方塊優化 核取方塊取消勾選之後文字框中的內容和查詢的內容也被清空 check 取消後面的內容隨之取消 private sub check1 click if not check1.value then txtsid.text with myflexgrid rows 2 cellalig...
學生資訊管理系統優化（一）
任何的系統在完成之前必須得優化，首先你的保證你做出來的軟體得沒有正常的邏輯問題，還得提高使用者體驗，讓別人用著比較舒服對吧！所以優化就是乙個不斷完善的過程！下邊我為大家分享一下我的優化心得！1.登入介面 首先你的保證你的登入介面不能隨意亂輸入，控制字元長度，而且要注意特殊字元的問題，防止別人輸入特殊...
學生資訊管理系統優化限制
if keyascii 8 then exit sub if keyascii 48 or keyascii 57 then keyascii 02，限制貼上 if keycode vbkeyv and shift vbctrlmask then txtpassword.enabled false ...