东流西上
故在柳溪,水东有柳

ACCESS登录窗体实现用户名和密码登录的VBA代码

阿里云主机

用户登录的具体VBA代码如下:

Private Sub 确定_Click()
On Error GoTo Err_确定_Click
Dim i As Integer
Dim StrTemp As String
Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
‘判断“用户名”文本框是否为空
If Nz(Me.密码) = “” Then
MsgBox “请输入“密码”!”, vbExclamation, “输入密码”
Me![密码].SetFocus
ElseIf Nz(Me.确认密码) = “” Then
MsgBox “请输入“确认密码”!”, vbExclamation, “输入确认密码”
Me![确认密码].SetFocus
ElseIf Len(Me![密码]) > 20 Or Len(Me![确认密码]) > 20 Then
MsgBox “您输入的“密码”或“确认密码”字数太多,最多只可以输入20个字符!”, Me![密码] = “”
Me![确认密码] = “”
Me![密码].SetFocus
ElseIf Trim(Me![密码]) <> Trim(Me![确认密码]) Then
MsgBox “您输入的“密码”和“确认密码”不相同, 请重新输入!”, vbExclamation, “重输密码”
Me![密码] = “”
Me![确认密码] = “”
Me![密码].SetFocus
Else
StrTemp = “Select * From 系统用户表”
‘打开“系统用户表”数据表
rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst
For i = 1 To rs.RecordCount
‘判断用户输入的“密码提示”和“密码答案”是否与用户注册时设置的时候相同
If rs(“用户名”) = Me![用户名] Then

rs(“密码”) = Me![密码]
rs.Update
MsgBox “密码修改成功,你的密码是:” & rs(“密码”) & “,请您牢记密码!”, vbInformation, “修改成功”
DoCmd.Close
Exit Sub
Else
rs.MoveNext
End If
Next i
End If
Set rs = Nothing

Exit_确定_Click:
Exit Sub
Err_确定_Click:
MsgBox Err.Description
Resume Exit_确定_Click
End Sub

赞(0) 打赏
转载请注明出处:水东柳博客 » ACCESS登录窗体实现用户名和密码登录的VBA代码
分享到: 更多 (0)

评论 抢沙发

5 + 5 =
  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏