VB怎么验证用户名和密码?代码

来源：百度知道 编辑：UC知道 时间：2024/05/18 02:40:19
Public con As New ADODB.Connection '连接数据库
Public rs As New ADODB.Recordset '记录集

比如我在文本框text1里输入用户名,text2输入密码.正确则可以登陆,否则不能。

数据库denglus如下:
字段: users password ......
liu **** ......
jiky **** ......
zhaoye **** ......
.... .... .....

参考代码如下：
'判断用户名与密码是否是空
If Trim(Text(0).Text) = "" Then Message.Caption = "请输入用户名，初始用户名：Admin，密码：123456": Text(0).Text = "": Exit Sub
If Trim(Text(1).Text) = "" Then Message.Caption = "请输入密码，初始用户名：Admin，密码：123456": Text(1).Text = "": Exit Sub

'判断用户名是否存在
管理用户.Open "Select * FROM 用户管理 where 用户名='" & Trim(Text(0).Text) & "'", SysDatabase, adOpenKeyset, adLockBatchOptimistic
If 管理用户.RecordCount < 1 Then Message.Caption = "用户名或密码错误，初始用户名：Admin，密码：123456": Text(0).Text = "": Text(1).Text = "": Call Close用户管理: Exit Sub

If StrComp(MD5("Password" & Text(1).Text), 管理用户("密码")) = 0 Then
当前用户 = 管理用户("用户名")
Call Close用户管理
Message.Caption = "正在加载程序，请稍等..."
LoginTimer.Enabled = True
Else
Message.Caption = "用户名或