现有一个登录窗体如下图所示。打开窗体后输入用户名和密码,登录操作要求在20秒内完成,如果在 20秒内没有完成登录操作,则倒计时到达。秒时自动关闭登录窗体,窗体的右上角是显示倒计时的文本框Itime。事件代码如下,要求填空完成事件过程。 Option C

admin2009-06-20  27

问题 现有一个登录窗体如下图所示。打开窗体后输入用户名和密码,登录操作要求在20秒内完成,如果在 20秒内没有完成登录操作,则倒计时到达。秒时自动关闭登录窗体,窗体的右上角是显示倒计时的文本框Itime。事件代码如下,要求填空完成事件过程。

Option Compare Database
Dim flag  As Boolean
Dim i As Integer
Private Sub Form_Load(  )
    flag=【  】
    Me.TimerInteJwal=1000
    i=0
End Sub
Pfivate Sub Form_Timer()
   If flag=Tme  And  i<20  Then
       Me!ITime.Caption=20-i
       i=【  】
   Else
       DoCmd.Close
   End If
End Sub
PrivateSubOK_Click()
   ’登录程序略
   ’如果用户名和密码输入正确,则:flag=False
End Sub

选项

答案True i+l

解析
转载请注明原文地址:https://kaotiyun.com/show/na5p777K
0

最新回复(0)