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