VB如何實現(xiàn)修改密碼的功能？求代碼和方法？這有點糾結(jié)?，F(xiàn)在我將向你解釋一個我用來修改密碼的程序。首先，設(shè)置兩個Text1 Text2 Text1、一個按鈕command1、一個ADO控件并連接到數(shù)據(jù)庫

VB如何實現(xiàn)修改密碼的功能？求代碼和方法？

這有點糾結(jié)?，F(xiàn)在我將向你解釋一個我用來修改密碼的程序。

首先，設(shè)置兩個Text1 Text2 Text1、一個按鈕command1、一個ADO控件并連接到數(shù)據(jù)庫，然后雙擊command1并輸入以下代碼。

專用子命令1_uu單擊（）

adodc1。RecordSource=“從用戶名=”“文本1的登錄名中選擇*?！?。文本“”

adodc1。刷新

如果adodc1記錄集.記錄計數(shù)=0則

msgbox（”用戶不存在！“”

Text1.Text=“”

Text2.Text=“”

Else

如果Trim（Text2.Text）=Trim（Adodc1）。記錄集字段（“password”）然后

msgbox（“l(fā)ogin successful”！")

我。躲起來

物料管理信息系統(tǒng)。Show

else

msgbox（”密碼錯誤！“”

Text2.Text=“”

End If

End If

End Sub

Private Sub Command2uuclick（）

卸載我

End Sub

Private Sub Text2ukeydown（keycode為整數(shù)，shift為整數(shù)）

如果keycode=13，則

調(diào)用Command1uclick

否則

End If

End Sub上述命令可以運(yùn)行

vb修改密碼的代碼，我的思路是先查詢到要修改的用戶名，再通過原密碼驗證，輸入新密碼，再輸入一次新密碼？

您需要將這兩個項目組合起來，一次查詢和修改它們，這是標(biāo)準(zhǔn)用法。編程時，可以執(zhí)行以下操作：

1。首先判斷四個文本框中的任何一個是否為空，如果是，提示用戶，并將焦點放在空白文本框中

2！以上第一點通過后，判斷兩次輸入的新密碼是否相等，如果不相等，則提示用戶，并將焦點放在新密碼文本框中；

3。以上兩點通過后，在數(shù)據(jù)庫中查詢用戶名與原密碼是否匹配，會提示用戶“用戶名或原密碼錯誤！”如果找不到；

4。以上三點通過后，將提示用戶修改密碼為新密碼。上面第三點很重要，不要明確提示用戶“用戶名錯誤”或“密碼錯誤”，因為這樣會大大降低破解密碼的難度！一般應(yīng)該說“用戶名或密碼有誤”，因為真正的用戶顯然知道自己是否輸入了錯誤的用戶名或密碼。

vba中設(shè)置工作薄保護(hù)密碼的代碼是什么？

如果所有者希望保護(hù)工作簿中的工作表，使其不能隨意編輯，則可以使用以下代碼。

Sub protectallworksheets（）“運(yùn)行代碼后，將不允許編輯當(dāng)前工作簿中的所有工作表，除非您取消對它們的保護(hù)。在錯誤恢復(fù)下一個dim WS as工作表時，mypassword as string mypassword=InputBox（“please enter your password”&vbcrlf& “（no input indicates no password）”&vbcrlf&vbcrlf& “請確保您沒有忘記密碼！”！對于中的每個WS此工作簿。工作表ws.保護(hù)（mypassword）next wsend subsub unprotectallworksheets（）“運(yùn)行代碼后，取消工作簿中所有工作表的保護(hù)。出現(xiàn)錯誤時，恢復(fù)下一個dim WS as worksheet dim mypassword as string mypassword=InputBox（“please enter your password”&vbcrlf&（no input means no password）“，“input password”）此工作簿。工作表ws.取消保護(hù)（myPassword）下一個wsEnd Sub