1樓：匿名使用者
on error resume next
if me.combo1.text = "" then
msgbox "請選擇登陸使用者！", 48, "錯誤提示"
exit sub
end if
adodc1.recordsource = "select * from myuser where 名稱 ='" & combo1.text & "'"
adodc1.refresh
if adodc1.recordset.recordcount > 0 then
mpassword = adodc1.recordset.fields("密碼")
if txtpwd.text = mpassword then '判斷資料的密碼是否正確
' frmuser.show
username = combo1.text '使用者名稱
userpas = txtpwd.text '密碼
else
if pnum < 2 then 'pnum就是密碼驗證次數，當次數超過3次，系統會自動保護退出
pnum = pnum + 1
msgbox "使用者名稱或密碼錯誤!", vbinformation, "錯誤次數：" & pnum
' msgbox "密碼錯誤,請重新輸入", , "登陸介面管理"
txtpwd.text = ""
txtpwd.setfocus
else
msgbox "密碼錯誤次數超過上限,系統自動退出", , "登陸介面管理"
end'combo1.text = "" '使用者名稱
' txtpwd.text = "" '密碼
end if
end if
end if
exit sub
end sub
2樓：匿名使用者
應該這樣寫
if user="aaa" and pass="bbb" then
form1.show
else
form.show
end if
VB6 0，怎麼畫出通用對話方塊
1 開啟易語言，選擇 新建windows視窗程式 2 在基本元件欄裡拖拽編輯框 按鈕和通用對話方塊到程式中。3 單擊選中通用對話方塊，在左邊的屬性欄中看到 過濾器 一欄，我們按 上的要求輸入文字。5 就可以猛戳工具欄中的 執行 按鈕。 vb6.0使用通用對話方塊需要在工具欄新增部件，如下所示 新增m...
vb6 0請幫忙做題目，謝謝，vb6 0請幫忙做第一個題目，謝謝
這個是我的做的，請檢視一下行不行。有不懂的地方再問我。一 function cala x as integer,byval y as integer x是按址傳遞，y是按值傳遞 x x y if x 0 then cala x else cala y end if end function priv...
vb6 0怎麼實現以下功能
資料庫你應該會連線了。dim l as integer do until rs.eof if len rs.fields 專有名詞 l then l rs.fields 專有名詞 假設你的欄位是專有名詞 rs.movenext loop 這段用來獲取專有名詞的最大長度dim i j k dim st...