1樓：001神奇工廠
僅供參考～private sub command1_click()
dim warning as string
dim sql as string
warning =
'輸入有效性判斷。
if textuser = then warning = warning & 使用者名稱 "
if textpassword = then warning = warning & 密碼 "
if warning <>then
msgbox warning & 不能為空值！",0 + 48 + 0, "警告"
textuser =
textpassword =
elsesql = select * from 使用者管理 where 使用者名稱 ='textuser & and 使用者密碼 ='textpassword &
'sql = select * from 使用者管理 where 使用者名稱 ="textuser & and 使用者密碼 = textpassword &
openrs (sql)
if not ( and then
grade = rst("使用者等級") 記錄使用者等級。
userid = rst("使用者名稱") 記錄使用者名稱。
call userlogin '填寫登陸記錄。
= true
unload me
elsemsgbox "該使用者不存在！",0 + 32 + 0, "登陸失敗"
textuser =
textpassword =
grade = 0
end if
closers
end if
end sub
2樓：匿名使用者
這個很麻煩的，你這只是簡單的驗證。
稍微給你做一下手腳，你的驗證就失敗了。
關於vb的問題！！！急求！！！vb的運算問題！！
if a i max and i 20 thenmax a i i i 1 end if 錯誤 了 應該增加乙個迴圈語句。vb選擇題，高手來！等，求指導，求解答。1 b 還可以以編譯程式的方式執行 2 a word excel access都可用vba 3 b exp 指數函式，返回值是小數 lef...
關於VB問題
text1.text 你好 程式執行時候先執行這個，這個時候text1.text被賦值為你好這個片語，因為程式沒結束，所以接下來根據 text1.text 謝謝 text又被賦值為 謝謝 然後是 end sub 也就是結束程式嘛，所以了 只能顯示謝謝這兩個字，也就是說你把text1.text 先賦值...
關於VB的小問題，乙個關於VB的小問題
有這樣幾個地方 1.combo1的具體作用我沒看出來，我去掉了。2.dim as integer這一句明顯錯了，去掉 3.cmbrnd我感覺拼錯了，我改成了cmdrnd 4.新增了全域性變數i。修改完畢的完整 如下。option explicit dim i as integer private s...