以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  同名用户两处登录要如何改进？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42687)
--  作者：zpx_2012
--  发布时间：2013/11/19 14:20:00
--  同名用户两处登录要如何改进？
用下面的代码可以实现同名用户第二处登陆时自动弹出提示框，但必须是用户响应对话框后才会退出，如果用户暂时离开电脑了，那就会停在那里。
Dim cmd As New SQLCommand
cmd.ConnectionName = Mydata
cmd.CommandText = "Select sys_ComputerId from {用户} Where LoginName = \'" & MyLname & "\'"
If cmd.ExecuteScalar > "" AndAlso cmd.ExecuteScalar <> ComputerID Then
    MyTimers("Exit").Enabled = False  \'中止计划
    MessageBox.Show("同名用户已在其他电脑登录,本机用户将自动退出系统!")
    Syscmd.Project.Exit(False)
End If

有没有办法实现系统自动退出，只是让那个提醒框留在电脑桌面上显示着。用户回来时可以看见？
谢谢！
--  作者：Bin
--  发布时间：2013/11/19 14:24:00
--  
最多只能做到, 在这里为一个全局变量赋值 然后执行   Syscmd.Project.Exit(False) 退出项目

然后再BEforcloseProJect 项目关闭事件中最后一刻判断这个全局变量然后弹出
MessageBox.Show("同名用户已在其他电脑登录,本机用户将自动退出系统!")
--  作者：程兴刚
--  发布时间：2013/11/19 14:26:00
--  
首先要解决到底是第一个用户非法还是第二个用户非法的问题！
--  作者：zpx_2012
--  发布时间：2013/11/19 14:33:00
--  
谢谢，倒是不用考虑谁非法的问题，如果二楼的方式能实现关闭系统后还剩下对话框就行。