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

登录界面如下

组合框名称为：借书证号
文本密码框名称为：密码
表：借书证
进入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