VB6类模块封装的登录及修改密码模块(源码、注释)

《VB6类模块封装的登录及修改密码模块(源码、注释)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB6类模块封装的登录及修改密码模块(源码、注释)学会VB6.0以来，为公司编制了很多小型数据库软件。经常地用到登录以及密码修改模块的建立。基本模式都是一样的，只是数据表名、用户名字段、密码字段稍有不同。因此将其做成类模块。每次不用重复写好些行代码。对本段代码有什么建议的话可百度私信我，或百度贴吧@wink5000，让我们一起学习进步。大家可以随意传播此文件进行学习。本模块代码为两部分，一部分为类模块，第二部分为类模块实例后应用。一、PassChange类模块模块名称：PassChange作者：wink5000模块属性：TableN

2、ame、UserName、PassWord方法函数：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"请确认两次输入的新密码是否相同？"ExitFunctionEndIf这段代码判断原用户名密码是否正确，即对应的记录是否存在，存在则修改，并返回true；否则提示“原密码错误”，并返回false。注意：笔者的Cnn连接字符串已经在模块中定义，用户如果使用代码请自定义Cnn。DimrsAsADODB.RecordsetSetrs=NewADODB.RecordsetDimsqlAsStringsql="select*from"+TableName+"where

5、"+UserName+"='"+tempUserName+"'and"+PassWord+"='"+tempPassWord+"'"rs.Opensql,Cnn,adOpenKeyset,adLockOptimistic判断是否有记录Ifrs.RecordCount>0ThenPassWordChange=True更新记录并关闭数据库连接rs.Fields(PassWord)=newPassWord2rs.Updaters.CloseElse无记录也要关闭数据库连接，请注意。PassWordChange=FalseMsgBox"原密

6、码错误！"rs.CloseEndIfEndFunction二、修改密码界面及代码如下：具体代码含义见注释。PrivateSubCommand1_Click()声明一个PassChange类的实例。DimmcAsNewPassChange为实例的属性赋值。mc.TableName="ht_user"mc.UserName="uname"mc.PassWord="psword"将各个参数所对应的值填写到参数位置。并判断PassChange类的PassWordChange方法的返回值。返回值为真，密码修改成功。Ifmc.PassWordC

7、hange(Text1.Text,Text2.Text,Text3.Text,Text4.Text)=TrueThenMsgBox"密码修改成功！"EndIfEndSub总结：上述代码只需要修改少量代码即可实现登录验证。如果将类模块中关于新密码验证的代码部分删除，可直接作为登录验证使用。使用是将newPassWord1、newPassWord2两个参数值设置为0即可。但验证无错误密码次数统计。适合内部人员使用，否则被破解了就郁闷了。欢迎与笔者交流。信箱：wink5000@163.com