现有用户登录界面如下：窗体中名为usemame的文本框用于输入用户名：名为pass的文本框用于输入用户的密码。用户输入用户名和密码后，单击“登录”名为login的按钮，系统查找名为“密码表”的数据表，如果密码表中有指定的用户名且密码正确，则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”；如果用户名或密码输入错误，则给出相应的提示信息。密码表中的字段均为文本类型，数据如下图。单击“登录”按钮后相关的事件代码如下，请补充完整。Private Sub login_Click()Dim str As StringDim rs As New ADODB.RecordsetDim fd As ADODB．FieldSet cn=CurrentProject.Connectionlogname=Trim(Me!username)pass=Trim(Me!pass)If Len(Nz(logname)＝0 ThenMsgBox"请输入用户名"ElseIf Len(Nz(pass))＝0 ThenMsgBox"请输入密码"Elsestr="select*from 密码表 where 用户名＝" logname ”，and 密码＝"' pass ""，rs.Open str,cn，adOpenDynamic，adLockOptimistic，adCmdTextIf【 】ThenMsgBox"没有这个用户名或密码输入错误，请重新输入"Me．usemame＝" "Me．pass＝" "ElseSet【 】＝rs.Fields("权限")If fd="管理员"ThenDoCmd．CloseDoCmd．OpenForm"管理员窗体"MsgBox "欢迎您，管理员"ElseDoCmd．CloseDoCmd．OpenForm. "用户窗体"MsSBox "欢迎使用会员管理系统"End IfEnd IfEnd IfEnd Sub
现有用户登录界面如下：
窗体中名为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
相关考题：
有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别为“用户名：”和“密码：”，用于输入用户名的文本框名为“UserName”，用于输入密码的文本框名为“User-PassWOrd”，用于进行倒计时显示文本框名为“Tnum”窗体上有一个标题为“确认”的按钮名为“OK”，用于输入完用户名和密码后单击按钮确认。输入用户名和密码，如用户名或密码错误，则给出提示信息；如正确，则显示“欢迎使用!”信息。要求整个登录过程在30秒中完成，如果超过30秒还没有完成正确的登录操作，则程序给出提示自动终止整个登录过程。 OptionCompare SatabaseDim Second As Integer PrivateSub Form_Open(Cancel As Integer) Second=0 End Sub PrivateSub Form. Timer（ ） If Second30 Then MsgBox”请在30秒中登录”，vbCrcal，”警告” Doemd．Close Else Me!Tnum=30-Second倒计时 End If Second=__________ End Sub PrivateSub OK Click（ ） If Me．UsetName”123”or Me．UserPassword”456”Then MsgBox”错误!¨+”您还有”30-Second”秒”，vbCritical，”提示” Else Me．TimerInterval=__________ 终止Timer事件继续发生MsgBox” 欢迎使用!”vbInformation，”成功” DoCmd．Close End If End Sub 横线处应填写的内容是（ ）。A.second-1,0B.second-30,0C.second+1，0D.second+13，0
用户登录界面通常需要用户输入用户名和密码，以下是系统反馈信息的几条规则，请按照要求回答问题如果用户名和密码正确无误，则显示登录成功只要用户名为空，就提示用户名不能为空，清空密码框;用户名不为空，而密码为空，则提示密码不能为空;若用户名不正确，则提示用户名错误，清空用户名框和密码框;若用户名正确，密码不正确，则提示密码错误，清空密码框;(1)根据上述规则，设计判定表(2)根据判定表设计测试用例(假设有一用户名/密码：abc/123456，不存在名为xyz的用户)
（ 13 ）现有用户登录界面如下：窗体中名为 username 的文本框用于输入用户名 ， 名为 pass 的文本框用于输入用户的密码 。 用户输入用户名和密码后 ， 单击 “ 登录 ” 名为 login 的按钮 ， 系统查找名为 “ 密码表 ” 的数据表 ， 如果密码表中有指定的用户名且密码正确，则系统根据用户的 “ 权限 ” 分别进入 “ 管理员窗体 ” 和 “ 用户窗体 ” ：如果用户名或密码输入错误，则给出相应的提示信息。密码表中的字段均为文本类型，数据如下图。单击 “ 登录 ” 按钮后相关的事件代码如下，请补充完整。Private Sub login_Click( )Dim str As StringDim rs As New ADODB.RecordsetDim fd As ADODB.FieldSet cn=CurrentProject.Connectionlogname=Trim(Me!uscrname)pass=Trim(Mc!pass)If Len(Nz(logname))=0 ThenMsgBox " 请输入用户名 "ElseIf Len(Nz(pass))=0 ThenMsgBox " 请输入密码 "Elsestr="select*from 密码表 where 用户名 =' " logname " ' and 密码 =' " pass " ' "rs.Open str, cn, adOpenDynamic, adLockOptimistic, adCmdTextIf ___ 【 14 】 ________ ThenMsgBox " 没有这个用户名或密码输入错误，请重新输入 "Me.username=""Mc.pass=""ElseSet _____ 【 15 】 ______ =rs.Fields(" 权限 ")If fd=" 管理员 " ThenDoCmd.CloseDoCmd.OpenForm. " 管理员窗体 "MsgBox " 欢迎您，管理员 "ElseDoCmd.CloseDoCmd.OpenForm. " 用户窗体 "MsgBox " 欢迎使用会员管理系统 "End IfEnd IfEnd IfEnd Sub
试题12有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别是“用户名：”和“密码：”，用于输入用户名的文本框名为“UserName”，用于输入密码的文本框名为“UserPassword”，用于进行倒计时显示的文本框名为“Tnum”，窗体上有一个标题为“确认”的按钮名为“OK”，用于输入完用户名和密码后单击此按钮确认。输入用户名和密码，如用户名或密码错误，则给出提示信息；如正确，则显示“欢迎使用！”信息，要求整个登录过程要在30秒中完成，如果超过30秒还没有完成正确的登录操作，则程序给出提示自动终止整个登录过程。请在程序空白处填入适当的语句，使程序完成指定的功能。Option ,Compare DatabaseDim Second As IntegerPrivate Sub Form_open(Cancel As Integer)Second=0End SubPrivate Sub Form_Timer()If Second 30 ThenMsgBox “请在30秒中登录”， vbcritical, “警告”Docmd.closeElseMe!Tnum=30-SecondEnd IfSecond =___【12】__End SubPrivate Sub OK_Click()If Me.UserName “123” Or Me.UserPassword “456” ThenMsgBox “错误！”+“您还有” 30-Second “秒”，vbcritical，“提示”ElseMe.TimerInterval=___【13】____ ‘终止Timer事件继续发生End IfEnd Sub
设计一个登录界面如图，现要实现登录按钮的单击事件，单击按钮时，读取用户输入的用户名，密码，并判断用户名密码是否为有效用户名“ szit”和密码“12345”。如果登录成功将用户名保存到 session 中，并跳转到主页 index.aspx 。请完成按钮单击事件。 注：用户名后的 textbox 控件ID 为txt_userName ，密码后的textbox 控件ID 为txt_pwd ， 写入session 对象中的变量名为 userName。
1、实现用户登录时的信息验证，文件名命名为Login.java ①登录时提示用户输入用户名和密码 ②验证用户名和密码的正确性（假定用户名和密码分别为manager和123456） ③系统提供3次机会输入，如果超过3次仍然不能匹配，程序结束 结果 相应操作 信息完全匹配 输出“欢迎XXX用户” 信息不匹配 计算剩余次数 输出“用户名和密码不匹配”，告知还有几次机会 3次不匹配 输出“您没有权限进入系统！”
1. 用户登录的三次机会 描述 给用户三次输入用户名和密码的机会，要求如下： 1）如输入第一行输入用户名为‘Kate’,第二行输入密码为‘666666’，输出‘登录成功！’，退出程序； 2）当一共有3次输入用户名或密码不正确输出“3次用户名或者密码均有误！退出程序。”。 输入输出示例 输入 输出 示例 1 Kate 666666 登录成功！ kate 123 alice 456 john 111111 3次用户名或者密码均有误！退出程序。 提示： 使用for ... else结构
15、设计一个登录界面如图，现要实现登录按钮的单击事件，单击按钮时，读取用户输入的用户名，密码，并判断用户名密码是否为有效用户名“ szit”和密码“12345”。如果登录成功将用户名保存到 session 中，并跳转到主页 index.aspx 。请完成按钮单击事件。 注：用户名后的 textbox 控件ID 为txt_userName ，密码后的textbox 控件ID 为txt_pwd ， 写入session 对象中的变量名为 userName。
2、用户注册界面。要求：在用户登录网页中，有“注册”链接。在注册界面中，要求输入用户名（文本框）、密码（密码框）、性别（单选按钮）、籍贯（下拉列表：江苏、山东、上海、安徽），点击“注册”按钮，跳转到注册成功界面。如果注册成功，则以新用户进行登录；如果注册失败，请重新注册。