VB 登入介面問題 為什麼輸入使用者 1 的使用者名稱和使用者 2 的密碼可以登入？

"從使用者名稱中選擇 * ，其中 username='" & "' ", conn

if = 0 then

msgbox "使用者名稱錯誤！ ", vbokonly + vbinformation, "注意"

將本段修改如下：

從使用者名稱中選擇 * ，其中 username='" & "'和 password='" & "' ", conn

if = 0 then

msgbox "使用者名稱或密碼錯誤！ ", vbokonly + vbinformation, "注意"

然後以其他方式處理正確的。

dim conn as new

dim rs as new

dim rs1 as new

private sub command1_click()= adlockoptimistic

adopenkeyset

adlockoptimistic

adopenkeyset

provider=;data source=" & "使用者名稱。 mdb;"

if = "" then

msgbox "請輸入您的使用者名稱！ ", vbokonly, "技巧"

elseif = "" then

msgbox "請輸入您的密碼！ ", vbokonly, "技巧"

同時判斷使用者和密碼。

從使用者名稱中選擇 * ，其中 username='" & "'和 password='" & "' ", conn

if = 0 then

msgbox "使用者名稱和密碼錯誤！ ", vbokonly + vbinformation, "注意"

end if

end if

end if

end sub

以下是我大學畢業設計的部分程式源——圖書館綜合管理系統（基於開發）（使用者登入驗證部分）僅供參考，大家的想法都不一樣，希望能對大家有所幫助和啟發！

option explicit

public conn as new '標記連線物件。

private sub cmdlogin_click()

dim sql as string

dim rs_login as new

if trim( = "" then '檢查輸入的使用者名稱是否為空。

msgbox "請輸入您的使用者名稱！ ", vbokonly + vbexclamation

elseif = "" then

msgbox "請輸入您的密碼！ ", vbokonly + vbexclamation

elsesql = "從 sysadmin 中選擇 *，其中 username='" & "'"

rs_ sql, conn, adopenkeyset, adlockpessimistic

if rs_ = true then

msgbox "對不起，沒有這樣的使用者", vbokonly + vbexclamation

rs_else '驗證密碼是否正確。

if rs_ = then

userid =

userpow = rs_

rs_unload me

exit sub

elsemsgbox "密碼不正確，請重新輸入", vbokonly + vbexclamation

rs_end if

end if

end if

end sub

private sub form_load() '系統已初始化，資料庫已載入。

dim connectionstring as string

connectionstring = "provider=;" &

data source=" & "\"

connectionstring

end sub

private sub txtpwd_keypress(keyascii as integer) '按回車鍵直接著陸。

if keyascii = 13 then cmdlogin_click

end sub

VB 登入源**。

您可以通過建立乙個模組並在其中輸入以下內容來執行此操作。

public conn as

sub main()

set conn = new

provider=;persist security info=false;" _

user id=sa;password=sa;initial catalog=資料庫的名稱; data source="

登入螢幕。 end sub

然後在登入介面的“確定”下寫下以下**

private sub command1_click()

if = "" then

msgbox "使用者名稱不能為空！ ", vbokonly + vbinformation, "友情提醒"

exit sub

end if

if = "" then

msgbox "密碼不能為空！ ", vbokonly + vbinformation, "友情提醒"

exit sub

end if

dim strsql as string

strsql = "select * from users where users_name='" & trim$( "' and password='" & trim$( "' "

dim str as new

set str = new

aduseclient

strsql, conn, adopenstatic, adlockreadonly

with str

if .state = adstateopen then .close

open strsql

if .eof then

try_times = try_times + 1

if try_times >= 3 then

msgbox "您嘗試進入系統三次，但均未成功，系統將自動關機", vbokonly + vbcritical, "警告"

unload me

elsemsgbox "對不起，使用者名稱不存在或密碼錯誤！ ", vbokonly + vbquestion, "警告"

end if

elseunload me

登入到另乙個介面。

end if

end with

end sub

不，來自您給出的程式。

userid 應該是使用者名稱。

userpow 應該是密碼。

單從這個程式來看，是可以刪除的，但如果是整個系統工程，最好不要刪除。 因為以後可能會用它來判斷使用者的許可權和功能。

userid 是當前使用者 ID。

userpow 應該是使用者許可權。

當然，如果你不需要它，你可以刪除它。

private sub command1_click()if text1 = "abcd" and text2="1234" then

msgbox "著陸成功", vbokonly, "登入資訊"

elsemsgbox "登入失敗", vbokonly, "登入資訊"

end if

end sub

我還想將登入名與資料庫資料進行比較** 如果你明白了，請給我乙份副本。

label4 = round(1000+10000)if = abc and = aaa and = thenmsgbox "成功著陸！ "

elsomsgbox "落地失敗！ "

使用者名稱 密碼 驗證碼 **是的？ 資料庫？

具有乙個密碼Bi Pure表，三個有惠胡欄位，使用者名稱，密碼，許可權。

權利只有兩個價值觀，學生，老師。

OptionButton 不見了。

輸入使用者名稱和密碼，判斷許可權，開啟相應的介面。

只需留下乙個電子郵件位址，我有乙個現成的位址可以傳送給您。

在資料庫中查詢與喚起的使用者名稱和密碼匹配的使用者名稱和密碼。

結果，四肢和破壞的數量為 1

該錶指示登入成功。

否則，登入將失敗。