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)行！