[求助]如何强制用户到了一定时间退出系统？以防止非正常关机导致的数据库破坏

secowu

[求助]如何强制用户到了一定时间退出系统？以防止非正常关机导致的数据库破坏

Dim a, bb As Integer



Private Sub Form_Load()

If Time() < #1:13:35 PM# Then

Me.TimerInterval = 0

Else

Me.TimerInterval = 1000

a = 0

bb = 0

End If

End Sub

Private Sub Form_Timer()



If Time() > #1:13:35 PM# Then

    bb = bb + 1

    a = a + 1

   

If a = 2 And bb < 3 Then

   

If MsgBox("现在是非工作时间，系统将会自动关闭" & vbCr & vbCr & "请输入延时密码", vbInformation + vbOKCancel, "防止未正常关闭的数据破坏") = vbCancel Then

MsgBox "未输入密码,操作被取消,现在将关闭系统", vbInformation, "警示"

DoCmd.Quit acPrompt

ElseIf InputBox("现在是非工作时间，系统将会自动关闭" & vbCr & vbCr & "请输入延时密码", "防止恶意的数据破坏") = "jessie" Then

Me.TimerInterval = 0

Exit Sub

ElseIf bb = 3 Then

'输入密码延时3秒后,将强制关闭系统，可是这代码没起作用啊

DoCmd.Quit acPrompt

Else

MsgBox "密码错误,现在将关闭系统", vbInformation, "警示"

DoCmd.Quit acPrompt

End If

End If

End If

End Sub

secowu

是啊。非常有必要。

因为，需要更新程序的时候，

还有人还开着程序，弄得到处找机子

看是谁还开着程序  

secowu

呵呵，一点通，有在么？

goto2008

帮你顶一下

poly

好象可以检测到哪些模块开着，但很遗憾我不会

andymark

远程关闭客户端，试试下面的方法
http://www.office-cn.net/vvb/thread-58218-1-1.html

baije

我的做法是:客户端一个的主界面加入检测代码,隔一段时间进行一次检测(我定的时间是30秒),,数据库中专用一表来保存是否需关闭,1为需关闭,其它为不需关闭.
当服务端需要进行处理时,用SQL更新表中数据,同时记录当前时间,提示等待两分钟并数秒
客户端检测到时,提示1分钟关闭并数秒,到时关闭库
同时客户端启动时检测服务端是否正在处理中.为1时提示并禁止打开客户端.
服务端处理完成,自动删除表中数据,并于使用记录中记录此次事件.

fswxs

原帖由 baije 于 2008-1-25 13:38 发表
我的做法是:客户端一个的主界面加入检测代码,隔一段时间进行一次检测(我定的时间是30秒),,数据库中专用一表来保存是否需关闭,1为需关闭,其它为不需关闭.
当服务端需要进行处理时,用SQL更新表中数据,同时记录当前时间 ...

计时的办法始终不爽，一点通曾说过对正常处理数据有什么影响的，但是也没别的办法

jsf2008

学习中！！！！！！！！