主题：[讨论]用OpenQQ实现独占式编辑中的漏洞

用OpenQQ实现独占式编辑

在窗口编辑情况下，当张三已经打开了编辑窗口后，因为某种原因退出了QQClient，但编辑窗口并未关闭，此时李四对该记录进行同样编辑，因张三不在线李四也可以打开该编辑窗口，这样就出现了两人同时编辑的情况，是否可以通过代码当张三无论什么原因退出QQClient都会自动关闭编辑窗口，这样才能保证独占编辑。

窗口做个计时器，定时检测

 

If QQClient.Ready = False Then '如果QQClient没有启动,则禁止编辑
    PopMessage("必须启动QQClient,才能编辑此表数据!","提示",PopIconEnum.Infomation,5)
    e.Form.Close
End If

在这个事件关闭窗口：

http://www.foxtable.com/help/topics/2996.htm

 

Disconnected事件的e参数为中断原因，如何指定当前打开的编辑窗口？请指导！

窗口做个计时器，定时检测

If QQClient.Ready = False Then '如果QQClient没有启动,则禁止编辑
PopMessage("必须启动QQClient,才能编辑此表数据!","提示",PopIconEnum.Infomation,5)
e.Form.Close
End If

这种方法是否会影响系统的运行效率？

 

你把所有的窗口都关闭不就行了

 

Forms("窗口1").Close

Forms("窗口2").Close

Forms("窗口3").Close

 

 

 

你自己设计的窗口，就应该会知道那些窗口在Openqq离线后关闭。

Dicconnected事件代码：

 

if  forms("xxx").Opened Then

    forms("xxx").Close()

End if

因为系统不同流程打开不同的编辑窗口，如果直接指定窗口名代码太复杂，是否有什么方法判断当前打开的编辑窗口？另外在系统中还有一个导航窗口为共有窗口此窗口不能关闭。

把所有需要关闭的窗口写在里面就行啊。

看来只有此办法了