3.executesql函式 和 call 呼叫
executesql他是一種自定義函式，是odbc中的乙個api函式，用來執行由sqlprepare建立的sql語句。一般只要是查詢資料表就會用到這個函式，他後面一般還加兩個引數txtsql和msgtext。今天我們就來看看這三個單詞在資料庫語言中的作用。
executesql出現的時候一定是先查詢資料表了，然後set mrc,所以executesql一定是執行sql語句。
txtsql引數是用來執行sql語句，比如 select * from 表
msgtext引數指的是實行sql語句後的彈出框，是成功了還是失敗了。
call語句用於呼叫函式或子過程。
viewdata是函式名或子過程名來的。
4.使用者名稱和密碼限制條件：
private
sub txtpassword_change()
'限制密碼只能由數字和字母組成
if txtpassword.text
<> ""
then
if ((asc(mid(txtpassword.text, i, 1)) < 48) or ((asc(mid(txtpassword.text, i, 1)) > 57) and (asc(mid(txtpassword.text, i, 1)) < 65)) or ((asc(mid(txtpassword1.text, i, 1)) > 90) and (asc(mid(txtpassword.text, i, 1)) < 97)) or (asc(mid(txtpassword.text, i, 1)) > 122)) then
msgbox "密碼只能由數字和字母組成，請重輸", vbokonly + vbexclamation, "警告"
txtpassword.text = ""
endif
endif
endsub
private
sub txtusername_change()
'限制只能輸入漢字
if keyascii >= -20319
and keyascii <= -3652
or keyascii = 8
then
else
keyascii = 0
endif
'輸入框只能輸入字母
if (keyascii >= asc("a") and keyascii <= asc("z")) or (keyascii >= asc("a") and keyascii <= asc("z")) then
keyascii = keyascii
else
keyascii = 0
endif
endsub
第一次機房收費系統 登陸窗體
前言 不管是學生還是機房，敲的第乙個窗體都是登入，這兩個學習專案有很大的相同點，學生有原始碼，機房卻沒有，需要搞清楚裡邊的邏輯，問題也就迎刃而解了。下面是我畫的機房的流程圖 如下 option explicit private declare function getusername lib adv...
第一次 機房收費系統 登入窗體
邏輯很重要，慢慢縷。流程圖與 如下 private sub cmdok click 用來存放sql語句 連線user表 dim txtsql as string 用來存放記錄集物件 dim mrc as adodb.recordset 用來存放返回資訊 dim msgtext as string 連...
機房收費之登陸窗體
總結是在機房結束以後寫的，總結的不及時之前的進度慢了，中間趕了一段時間沒有去及時總結部落格，隨時總結確實有很大的作用，不過只要寫了就不晚，結束之後讓我有了更深刻的了解，乙個簡單的登陸窗體其實也不能想的太過片面，我剛開始做的很多不完善的地方，在做的過程中也回頭不斷地完善。首先我沒做乙個窗體應該先去思考...