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

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

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

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

專用子命令1_uu單擊（）

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

adodc1。刷新

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

msgbox（”用戶不存在！“”

Text1.Text=“”

Text2.Text=“”

Else

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

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

我。躲起來

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

else

msgbox（”密碼錯(cuò)誤！“”

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修改密碼的代碼，我的思路是先查詢到要修改的用戶名，再通過原密碼驗(yàn)證，輸入新密碼，再輸入一次新密碼？

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

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

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

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

4。以上三點(diǎn)通過后，將提示用戶修改密碼為新密碼。上面第三點(diǎn)很重要，不要明確提示用戶“用戶名錯(cuò)誤”或“密碼錯(cuò)誤”，因?yàn)檫@樣會(huì)大大降低破解密碼的難度！一般應(yīng)該說“用戶名或密碼有誤”，因?yàn)檎嬲挠脩麸@然知道自己是否輸入了錯(cuò)誤的用戶名或密碼。

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

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

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