Question

用户名和密码验证的vB程序怎样编写啊？

我想用ACCESS做一个系统用户注册，在用到命令按钮验证用户名和密码的时候代码出现了问题（是用VB编写的）我想请高手帮我看看我的程序问题出在哪里？

Private Sub Command8_Click()
If Trim(Me![用户名称]) = "" Or Trim(Me![用户密码]) = "" Then
MsgBox "您输入的用户名和密码不能为空，请重新输入。", vbOKOnly, "警告信息"
Else
With CodeContextObject
rrr = "[医生列表]![用户名称]='" & Trim(Me![用户名称]) & "'And [医生列表]![用户密码]='" & Trim(Me![用户密码]) & "'"
DoCmd.ApplyFilter "uuu", rrr ：应该这里有问题：
If (.RecordsetClone.RecordCount > 0) Then
DoCmd.Close
DoCmd.OpenForm "选择系统", acNormal, "", "", acReadOnly, acWindowNormal
Else
MsgBox "您输入的用户名称和密码不能为空，请重新输入。", vbOKOnly, "警告信息"
End If
End With
End If

End Sub

以上就是那段程序代码，用户名和密码存放在叫 医生列表 的表里 如果通过验证 将进入 选择系统 的窗体！谢谢啦！

Answer 1

给你一个我做的其他系统的代码
我是用了MD5的算法把密码加密了
你可以修改下

'判断用户名与密码是否是空
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 = "用户名或密码错误，初始用户名：Admin，密码：123456"
Text(0).Text = ""
Text(1).Text = ""
Call Close用户管理
End If

Answer 2

Dim a As String
Dim b As String

Private Sub Form_Load()
Show
a = "admin"
b = "123456"
End Sub

Private Sub Command1_Click()
If Trim(Text1.Text) = a And Trim(Text2.Text) = b Then
Label3.Caption = "登陆成功"
Else
Label3.Caption = "登录失败"
End If

End Sub

Answer 3

能用中文变量？