Option Compare Database Dim flag As Boolean Dim i As Integer Private Sub Form_Load() flag= (14) MP TimerTnfPrvH]=1000 i=0 End Sub Private Sub Form_Timer() If flag=True And i<20 Then Me!ITime.Caption=20-i i= (15) Else DoCmd.Close End If End Sub Private Sub OK_Click() ’登录程序略 ’如果用户名和密码输入正确,则falg=False