题目内容
（请给出正确答案）
如搜索结果不匹配，请 联系老师 获取答案
更多“制作一个window界面的登录窗体，要求登录时需要在窗体上填…”相关的问题
第1题
输入用户名和密码，如用户名或密码错误，则给出提示信息；如正确，则显示“欢迎使用!”信息。要求整个登录过程在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
第2题
输入用户名和密码，如用户名或密码错误，则给出提示信息；如正确，则显示“欢迎使用!”信息。要求整个登录过程在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
第3题
A．双击数据库窗口中的宏Macro1
B．单击登录窗体中的验证按钮Command1
C．在文本框Text1中输入密码后按<Enter>键
D．在VBA程序Module1中运行宏Macro1
第4题
窗体中名为 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
第5题
1.jpg){kind=spacer}
窗体中名为usemame的文本框用于输入用户名：名为pass的文本框用于输入用户的密码。用户输入用户名和密码后，单击“登录”名为login的按钮，系统查找名为“密码表”的数据表，如果密码表中有指定的用户名且密码正确，则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”；如果用户名或密码输入错误，则给出相应的提示信息。
密码表中的字段均为文本类型，数据如下图。
2.jpg){kind=spacer}
单击“登录”按钮后相关的事件代码如下，请补充完整。
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
第7题
第8题
A. 使用Aspnet_regsql.exe去创建Microsoft SQL Server 数据库
B. 设置Login1‘控件的MembershipProvider属性值为MySqlProviderConnection。
C. 增加下面的代码段到Web.config文件：
D. 增加下面的代码段到Web.config文件.：
E. 在IIS中的ASP.NET配置里启用角色管理。
F. 在ASP.NET 站点配置工具中，选择AspNetSqlMembershipProvider 作为你站点的成员数据 提供程序（membership provider）
第9题
为了保护您的账号安全，请在“上学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
上学吧
微信搜一搜
上学吧
