2. 计算机
  3. 有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别为“用户名：”和“密码：”，用于输入用户名的文本框名为“UserName”，用于输入密码的文本框名为“UserPassword”，用于进行倒计时显示的文本框名为“Tnum”，窗体上有一个标题为“

有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别为“用户名：”和“密码：”，用于输入用户名的文本框名为“UserName”，用于输入密码的文本框名为“UserPassword”，用于进行倒计时显示的文本框名为“Tnum”，窗体上有一个标题为“

admin2011-10-24  92
问题 有一个标题为“登录”的用户登录窗体，窗体上有两个标签，标题分别为“用户名：”和“密码：”，用于输入用户名的文本框名为“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．Caption=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事件继续发生
             MsgBox"欢迎使用!"，vblnformation，"成功"
             DoCmd．Close
    End If
    End Sub
选项
答案Second+1； 0
解析 窗体加载后进行30秒倒计时，变量Second记录已经运行了的秒数，每秒钟Second+1。“计时器间隔”属性值可以安排在代码中进行动态设置，而且可以通过设置“计时器间隔”属性值为零(Me．TimerInterval=0)来终止Timer时间继续发生。
转载请注明原文地址:https://kaotiyun.com/show/cTup777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)