设计一个登录界面如图，现要实现登录按钮的单击事件，单击按钮时，读取用户输入的用户名，密码，并判断用户名密码是否为有效用户名“ szit”和密码“12345”。如果登录成功将用户名保存到 session 中，并跳转到主页 index.aspx 。请完成按钮单击事件。 注：用户名后的 textbox 控件ID 为txt_userName ，密码后的textbox 控件ID 为txt_pwd ， 写入session 对象中的变量名为 userName。

阅读以下应用说明以及用Visual Basic开发过程中所编写的程序代码，将应填入(n)处的字句写在对应栏内。

【应用说明】

某应用的登录界面如下：

登录界面中的文本框txtUserID和txtPassword分别用于接受用户输入的用户名和口令，命令按钮为“确定(cmdOk)”和“取消(cmdCancel)”。ADO数据控件Adodc1与数据库EmployeeData连接。在EmployeeData中，表“Users”的字段“UserID”和“Pswd”分别记录了所有的合法用户名和口令。

在登录界面中，输入正确的用户名和口令并单击“确定”按钮后，就会打开应用程序的主窗口fxmApp。用户名或密码输入错误时，给出提示信息并返回登录界面。

【Visual Basic程序代码】

Private Sub cmdOK Click()

Adodcl.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=D:\data\EmployeeData.mdb;Persist Security Info=False"

Adodcl.RecordSource = "select *(1)"

Adodcl.Refresh

Do

usrname =(2)

pwd = Adodc1.Recordset("Pswd")

Adodc1.Recordset.MoveNext

Loop Until (usrname =(3)) Or (Adodc1.Recordset.EOF)

If usrname ＜＞ txtUserID.Text Then

MsgBox "无效的用户ID, 请重新输入!", , "提示信息"

Else

If (4)Then

MsgBox "欢迎进入系统主界面!", , "提示信息"

Unload me

(5)

Else

MsgBox "无效的用户密码, 请重新输入!", , "提示信息"

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 Second>30 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,0

B.second-30,0

C.second+1，0

D.second+13，0

在相关系统登录界面，勾选“保持登录状态”后，下次登录的时候会是什么情况?( )

A.输入用户名和密码进行登录

B.输入用户名即可登录系统

C.下次登陆将直接进入系统

试题12

有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别是“用户名：”和“密码：”，用于输入用户名的文本框名为“UserName”，用于输入密码的文本框名为“UserPassword”，用于进行倒计时显示的文本框名为“Tnum”，窗体上有一个标题为“确认”的按钮名为“OK”，用于输入完用户名和密码后单击此按钮确认。

输入用户名和密码，如用户名或密码错误，则给出提示信息；如正确，则显示“欢迎使用！”信息，要求整个登录过程要在30秒中完成，如果超过30秒还没有完成正确的登录操作，则程序给出提示自动终止整个登录过程。

请在程序空白处填入适当的语句，使程序完成指定的功能。

Option ,Compare Database

Dim Second As Integer

Private Sub Form_open(Cancel As Integer)

Second=0

End Sub

Private Sub Form_Timer()

If Second > 30 Then

MsgBox “请在30秒中登录”， vbcritical, “警告”

Docmd.close

Else

Me!Tnum=30-Second

End If

Second =___【12】__

End Sub

Private Sub OK_Click()

If Me.UserName< > “123” Or Me.UserPassword < > “456” Then

MsgBox “错误！”+“您还有”& 30-Second & “秒”，vbcritical，“提示”

Else

Me.TimerInterval=___【13】____ ‘终止Timer事件继续发生

End If

End 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

一个系统的登录操作规格说明如下：

登录对话框有两个数据输入：用户名和密码，登录操作对两个输入数据进行检查，要求用户名中只能包含字母和数字(字母不区分大小写)，密码可以包含任何字符，用户名和密码都不能为空且长度不限。当用户名或密码为空时，则登录失败并提示对应的出错信息；当用户名不正确或用户名不存在的或密码错误时，则登录失败并提示以下三种相应的出错信息：用户名不合法(即包含有非字母、非数字字符)，或用户名不存在，或密码错误；当用户名和密码都正确时，则显示登录成功信息，完成登录。

假设正确的用户名是abcd123，密码是123456。

使用等价类方法为上述规格说明设计等价类表。

（ 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