Access 窗体实现用户名及密码验证登录

2024-07-16 20:42| 来源: 网络整理| 查看: 265

登录界面如下在这里插入图片描述组合框名称为：借书证号文本密码框名称为：密码表：借书证进入VBA编程的方式设计视图中右键登录按钮——属性——事件在VBA编程器中写代码

Private Sub 登录_Click() If IsNull(Me![借书证号]) Then MsgBox "请选择用登录用户!", 64, "系统提示" Me![借书证号].SetFocus Else If IsNull(Me![密码]) Then MsgBox "请输入密码,密码不能为空!", 64, "系统提示" Me![密码].SetFocus Else Dim stemp As String Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset stemp = "select * from 借书证 where 借书证号='" & Me![借书证号] & "'" rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic If rs("密码") Me![密码] Then MsgBox "密码错误,请重新输入!", vbOKOnly, "系统提示" Me![密码] = "" Me![密码].SetFocus Else DoCmd.Close DoCmd.OpenForm "开始窗体" End If End If End If End Sub

注意：在编写VBA密码验证时，发生编译错误：“用户自定义类型未定义” 在这里插入图片描述发现是因为ADODB.Recordset引起的编译错误，应该是没有启用ADODB的引用，或者加载ADODC控件在“工程|引用”中添加“Microsoft ActiveX Data Object 2.8 Library”就可以了

【本文地址】

公司简介

联系我们