没有动作就自动关闭数据库

时　间:2003-12-24 00:00:00
作　者:王志坚   ID：89  城市：海口
摘　要:当操作员一段时间离开电脑或忘记关闭Access软件时,为防止他人使用软件,可设定自动关闭数据功能
正　文:

Option Explicit
Const sj = 1000           '确定多久未操作就提示退出
Private Sub Form_KeyPress(KeyAscii As Integer)
Form_Load
End Sub
Private Sub Form_Load()
DoCmd.Maximize
Me.提示.Caption = "" & Format(sj / 6000, "0.0") & "分钟无操作则退出的程序。"
Me.提示.ForeColor = 0
Me.TimerInterval = 0
Me.TimerInterval = sj
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form_Load
End Sub
Private Sub Form_Timer()
If Me.TimerInterval = 5000 Then Quit  '提示后仍无操作，退出。
Me.提示.Caption = "您已有" & Format(sj / 6000, "0.0") & "分钟的时间没操作了！请点击鼠标！否则系统将在5秒钟内退出! "
Me.提示.ForeColor = 255
Me.TimerInterval = 5000
End Sub
Private Sub 提示_Click()
Form_Load
End Sub
Private Sub 主体_Click()
Form_Load
End Sub

示例文件:
 点击浏览该文件