题目内容:
现有一个登录窗体如下图所示。打开窗体后输入用户名和密码,登录操作要求在20秒内完成,如果在20秒内没有完成登录操作,则倒计时达到0秒时自动关闭登录窗体,窗体的右上角是显示倒计时的标签Itime。事件代码如下,要求填空完成事件过程。Option Compare Database
Dim flag As Boolean
Dim i As Integer
Private Sub Form_Load( .
flag = 【11】
Me.TimerInterval = 1000
i = 0
End Sub
Private Sub Form_Timer( .
If flag = True And i< 20 Then
Me!ITime.Caption = 20 - i
i = 【12】
Else
DoCmd.Close
End If
End Sub
Private Sub OK_Click( .
' 登录程序略
' 如果用户名和密码输入正确,则:falg=False
End Sub
参考答案:【答案仅供学习,请勿对照自行用药等】
答案解析: