输入正确的用户名和密码后，单击登录按钮后，页面停留在登录界面无法

现有用户登录界面如下：

窗体中名为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

使用计算机控制系统操作承船厢系统登录步骤是：点击图标登陆图标，出现登录页面，。从图标上可以看出，填写（），单击【登录】进入系统首页。 （

A.登录用户名和密码

B.登录用户名

C.操作人员名字

D.空白后回车

A.③①②④

B.②①③④

C.②③①④

D.③②①④

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

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

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

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

阅读以下应用说明以及用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

使用计算机控制系统操作承船厢系统登录步骤是：点击图标登陆图标，出现登录页面，填写（），单击【登录】进入系统首页。

A.登录用户名和密码

B.登录用户名

C.操作人员名字

D.空白后回车

阅读以下应用说明以及用Visual Basic开发过程中进行的属性设置和所编写的程序代码，将应填入(n)处。

[应用说明]

启动某应用程序运行的登录窗口如下：

其中的标签(Label1)“用户名(U)”对应文本框Username，标签(Label2)“密 码(P)”对应文本框Password。当用户在Username文本框中输入用户名“ali88”，在Password文本框中输入“zmkm”(显示的字符均为“*”)，并单击“确定”按钮时，就会弹出应用程序的主窗口frmAPP，而该登录窗口就会卸载。

如果用户名或密码输入错误，则会弹出报警信息框。当用户单击其中的“确定”按钮后，登录窗口中Password文本框的内容就会消失，光标停留在该框内，以便用户重新输入密码，必要时用户还可以再修改用户名，再次做登录尝试。本应用程序允许发生3次输入错误。在第3次输入错误后，就会立即退出该应用程序。

在弹出登录窗口后，当按组合键“Alt+U”时光标就会停留在Username文本框中：当按组合键“Alt+P”时光标就会停留在Password文本框中。当用户按Enter键时，就相当于单击“确定”按钮：当用户按Esc键时，就相当于单击“取消”按钮，立即退出该应用程序。

[属性设置]

在开发过程中，部分控件及属性设置如下：

[程序代码]

Private Sub cmdOK_Click()

(3) As Integer ' 静态变量times的说明

If (4) Then

Unload Me ' 卸载本登录窗口

(5) ' 弹出应用程序主窗口frmAPP

Else

MsgBox ("用户名或密码错! ")

times=times+1

Password.Text="" ' 清除密码框中的内容

Password.SetFocus ' 将光标定位于密码框

If times=3 Then End

End If

End Sub

Private Sub cmdCanee1_Click()

End

End Sub

试题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