資源描述：
《VB6類模塊封裝的登錄及修改密碼模塊(源碼、注釋)》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、VB6類模塊封裝的登錄及修改密碼模塊(源碼、注釋)學(xué)會VB6.0以來，為公司編制了很多小型數(shù)據(jù)庫軟件。經(jīng)常地用到登錄以及密碼修改模塊的建立?；灸Ｊ蕉际且粯拥模皇菙?shù)據(jù)表名、用戶名字段、密碼字段稍有不同。因此將其做成類模塊。每次不用重復(fù)寫好些行代碼。對本段代碼有什么建議的話可百度私信我，或百度貼吧@wink5000，讓我們一起學(xué)習(xí)進(jìn)步。大家可以隨意傳播此文件進(jìn)行學(xué)習(xí)。本模塊代碼為兩部分，一部分為類模塊，第二部分為類模塊實(shí)例后應(yīng)用。一、PassChange類模塊模塊名稱：PassChange作者：wink5000模塊屬性：TableN
2、ame、UserName、PassWord方法函數(shù)：PassWordChange返回值類型：Boolean具體代碼如下：OptionExplicitPublicTableNameAsStringPublicUserNameAsStringPublicPassWordAsStringPublicFunctionPassWordChange(ByValtempUserNameAsString,ByValtempPassWordAsString,ByValnewPassWord1AsString,ByValnewPassWord2AsSt
3、ring)AsBoolean這段代碼驗證用戶名密碼不能為空IftempUserName=""OrtempPassWord=""ThenPassWordChange=FalseMsgBox"用戶名密碼不能為空"ExitFunctionEndIf這段代碼分驗證兩次填寫的新密碼不能為空IfnewPassWord1=""OrnewPassWord2=""ThenPassWordChange=FalseMsgBox"新密碼不能為空"ExitFunctionEndIf這段代碼驗證兩次輸入的新密碼是否相同。IfnewPassWord1<>newP
4、assWord2ThenPassWordChange=FalseMsgBox"請確認(rèn)兩次輸入的新密碼是否相同？"ExitFunctionEndIf這段代碼判斷原用戶名密碼是否正確，即對應(yīng)的記錄是否存在，存在則修改，并返回true；否則提示“原密碼錯誤”，并返回false。注意：筆者的Cnn連接字符串已經(jīng)在模塊中定義，用戶如果使用代碼請自定義Cnn。DimrsAsADODB.RecordsetSetrs=NewADODB.RecordsetDimsqlAsStringsql="select*from"+TableName+"where
5、"+UserName+"='"+tempUserName+"'and"+PassWord+"='"+tempPassWord+"'"rs.Opensql,Cnn,adOpenKeyset,adLockOptimistic判斷是否有記錄Ifrs.RecordCount>0ThenPassWordChange=True更新記錄并關(guān)閉數(shù)據(jù)庫連接rs.Fields(PassWord)=newPassWord2rs.Updaters.CloseElse無記錄也要關(guān)閉數(shù)據(jù)庫連接，請注意。PassWordChange=FalseMsgBox"原密
6、碼錯誤！"rs.CloseEndIfEndFunction二、修改密碼界面及代碼如下：具體代碼含義見注釋。PrivateSubCommand1_Click()聲明一個PassChange類的實(shí)例。DimmcAsNewPassChange為實(shí)例的屬性賦值。mc.TableName="ht_user"mc.UserName="uname"mc.PassWord="psword"將各個參數(shù)所對應(yīng)的值填寫到參數(shù)位置。并判斷PassChange類的PassWordChange方法的返回值。返回值為真，密碼修改成功。Ifmc.PassWordC
7、hange(Text1.Text,Text2.Text,Text3.Text,Text4.Text)=TrueThenMsgBox"密碼修改成功！"EndIfEndSub總結(jié)：上述代碼只需要修改少量代碼即可實(shí)現(xiàn)登錄驗證。如果將類模塊中關(guān)于新密碼驗證的代碼部分刪除，可直接作為登錄驗證使用。使用是將newPassWord1、newPassWord2兩個參數(shù)值設(shè)置為0即可。但驗證無錯誤密碼次數(shù)統(tǒng)計。適合內(nèi)部人員使用，否則被破解了就郁悶了。歡迎與筆者交流。信箱：wink5000@163.com
