现有用户登录界面如下： 窗体中名为usemame的文本框用于输入用户名：名为pass的文本框用于输入用户的密码。用户输入用户名和密码后，单击“登录”名为login的按，系统查找名为“密码表”的数据表，如果密码表中有指定的用户名且密码正确，则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”；如果用户名或密码输入错误，则给出相应的提示信息。 密码表中的字段均为文本类型，数据如下图。 单击“登录”按后相关的事件代码如下，请补充完整。 Private Sub login_Click() Dim str As String Dim rs As New ADODB.Recordset Dim fd As ADODB．Field Set cn=CurrentProject.Connection logname=Trim(Me!username) pass=Trim(Me!pass) If Len(Nz(logname)＝0 Then MsgBox'请输入用户名' ElseIf Len(Nz(pass))＝0 Then MsgBox'请输入密码' Else str='select*from 密码表 where 用户名＝'& logname &”，and 密码＝''& pass &''， rs.Open str,cn，adOpenDynamic，adLockOptimistic，adCmdText If【 】Then MsgBox'没有这个用户名或密码输入错误，请重新输入' Me．usemame＝' ' Me．pass＝' ' Else Set【 】＝rs.Fields('权限') If fd='管理员'Then DoCmd．Close DoCmd．OpenForm'管理员窗体' MsgBox '欢迎您，管理员' Else DoCmd．Close DoCmd．OpenForm. '用户窗体' MsSBox '欢迎使用会员管理系统' End If End If End If End Sub