第1题:
( 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
第2题:
实现登录功能。输入用户名和密码,如果用户名和密码都是“admin”,给出提示“登录成功!”,否则提示“用户不存在”或者“密码错误。”登录有三次机会。
第3题:
使用mysql数据库,假设用户名为root,密码是root。
第4题:
设计一个登录界面如图,现要实现登录按钮的单击事件,单击按钮时,读取用户输入的用户名,密码,并判断用户名密码是否为有效用户名“ szit”和密码“12345”。如果登录成功将用户名保存到 session 中,并跳转到主页 index.aspx 。请完成按钮单击事件。 注:用户名后的 textbox 控件ID 为txt_userName ,密码后的textbox 控件ID 为txt_pwd , 写入session 对象中的变量名为 userName。
第5题:
15、设计一个登录界面如图,现要实现登录按钮的单击事件,单击按钮时,读取用户输入的用户名,密码,并判断用户名密码是否为有效用户名“ szit”和密码“12345”。如果登录成功将用户名保存到 session 中,并跳转到主页 index.aspx 。请完成按钮单击事件。 注:用户名后的 textbox 控件ID 为txt_userName ,密码后的textbox 控件ID 为txt_pwd , 写入session 对象中的变量名为 userName。