（13 ）现有用户登录界面如下：窗体中名为 username 的文本框用于输入用户名 ， 名为 pass 的文本框

（13 ）现有用户登录界面如下：

窗体中名为 username 的文本框用于输入用户名 ， 名为 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!uscrname)

pass=Trim(Mc!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 ___ 【 14 】 ________ Then

MsgBox " 没有这个用户名或密码输入错误，请重新输入 "

Me.username=""

Mc.pass=""

Else

Set _____ 【 15 】 ______ =rs.Fields(" 权限 ")

If fd=" 管理员 " Then

DoCmd.Close

DoCmd.OpenForm. " 管理员窗体 "

MsgBox " 欢迎您，管理员 "

Else

DoCmd.Close

DoCmd.OpenForm. " 用户窗体 "

MsgBox " 欢迎使用会员管理系统 "

End If

End If

End If

End Sub