-
匿名使用者2024-01-29如何登入系統。
分別建立兩個 TextBox 和 CommandButton 控制項：txtuser、txtpwd、cmdlogin、cmdexit
其中 txtpwd 的 passwordchar 設定為 *instance** 可選 explicitdim lngcount as long
private sub form_load()lngcount=2
end sub
private sub cmdexit()end end sub
private sub cmdlogin()if "zh" and "12345"thenform2 是主介面視窗。
unload me
else lngcount=lngcount-1if lngcount<>0 then
msgbox "使用者名稱和密碼填寫不全或輸入錯誤，一共給2次機會，剩下" & lngcount & "次",16+vbokonly,"打字錯誤"
else msgbox "已超過最大錯誤數，程式即將退出。 ",16 + vbokonly,"打字錯誤"
end end if
end if
end sub
-
匿名使用者2024-01-28很高興做自己的研究。
-
匿名使用者2024-01-27以下是我大學畢業設計的部分程式源——圖書館綜合管理系統（基於開發）（使用者登入驗證部分）僅供參考，大家的想法都不一樣，希望能對大家有所幫助和啟發！
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
-
匿名使用者2024-01-26使用 ADODC 元件連線到資料庫。
使用使用者輸入的使用者名稱查詢資料庫，獲取資料集，然後將資料集中的密碼欄位與使用者輸入的密碼進行比對，如果正確，則登入，否則登入失敗。
-
匿名使用者2024-01-25企業人事管理制度。 rar
-
匿名使用者2024-01-24VB 登入源**。
您可以通過建立乙個模組並在其中輸入以下內容來執行此操作。
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
-
匿名使用者2024-01-23strdsn="driver=;server=計算機的名稱; database=studen;uid = 登入名; pwd=登入密碼"
set conn="")
strdsn
以上是建立與 SQL 資料庫的連線。 使用者表的內容僅與程式使用相關，與連線資料庫無關。
登入螢幕上的使用者名稱和密碼是通過查詢 SQL 資料庫表的內容來確定的。
-
匿名使用者2024-01-22public 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
-
匿名使用者2024-01-21保證給您滿意的答案！
-
匿名使用者2024-01-20給我乙個凌亂的盒子，我會把它寄給你。
public start as new
public action as new
private sub command1_click()set action = "從秘密好友搜尋程式碼中選擇 *，其中 username='"& 和 password='" &
if = true then
msgbox "使用者名稱或密碼錯誤！ ",vbinformation, "警告"==
elseunload me
msgbox "登入成功"
end if
end sub
private sub form_load()("provider=;data source=" & ")end sub
-
匿名使用者2024-01-19要構建資料庫，可以使用 ACESS
您可以使用 ADO 或 DAO，兩者都更方便。
你好 第一，你可以重啟幾次，我的堅定結果重啟，如果不行，第二天就不要急著玩，或者等幾個小時再開電腦，也許你可以上去，第二，和你沒關係，誰的身份也被用了，就是tx的原因， 有時候很多人都是這樣，tx**問題，經常是大小有問題，你也知道 三是你附近的網路有問題，導致它不流暢，所以一點點卡更新不能和你一起做 多開啟幾次，看看是不是不行， 就像上面第乙個一樣，關上電腦蓋上鄭山1,2小時再試一次 還有最後乙個，也可以試試，說不定能用哦 第四個巨集中間四來自官網的補丁（ver，21m），選擇另乙個安裝補丁的目錄，從中提取以上兩個檔案儲存 >>>More
說到改變Windows啟動畫面，很多朋友都會，不就是找乙個像Exescope這樣的工具來修改和替換可執行檔案的資源，或者使用bootskin這樣的特殊軟體來做嗎？ 建議想試試的朋友先設定乙個系統還原點，如果對改動不滿意，可以直接還原回來。 其實沒必要這麼麻煩，其實在Windows XP 2003中，只要用乙個引數，就能讓系統開機畫面在幾秒鐘內變臉，不需要修改系統檔案，不存在液體判斷的風險。 >>>More
Windows 作業系統使用虛擬記憶體來動態管理執行時交換檔案。 為了提供比實際物理記憶體更多的記憶體容量以供使用，Windows 作業系統占用硬碟上的一部分空間作為虛擬記憶體。 當 CPU 需要它時，它會首先讀取記憶體中的資料。 >>>More