登录界面如下
组合框名称为:借书证号
文本密码框名称为:密码
表:借书证
进入VBA编程的方式
设计视图中右键登录按钮——属性——事件
在VBA编程器中写代码
Private Sub 登录_Click()If IsNull(Me![借书证号]) ThenMsgBox "请选择用登录用户!", 64, "系统提示"Me![借书证号].SetFocusElseIf IsNull(Me![密码]) ThenMsgBox "请输入密码,密码不能为空!", 64, "系统提示"Me![密码].SetFocusElseDim stemp As StringDim rs As ADODB.RecordsetSet rs = New ADODB.Recordsetstemp = "select * from 借书证 where 借书证号='" & Me![借书证号] & "'"rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimisticIf rs("密码") <> Me![密码] ThenMsgBox "密码错误,请重新输入!", vbOKOnly, "系统提示"Me![密码] = ""Me![密码].SetFocusElseDoCmd.CloseDoCmd.OpenForm "开始窗体"End IfEnd IfEnd IfEnd Sub
注意:在编写VBA密码验证时,发生编译错误:“用户自定义类型未定义”
发现是因为ADODB.Recordset引起的编译错误,应该是没有启用ADODB的引用,或者加载ADODC控件
在“工程|引用”中添加“Microsoft ActiveX Data Object 2.8 Library”就可以了