以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]数据源不能连通时关闭项目  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175720)
--  作者：2425004926
--  发布时间：2022/3/16 13:07:00
--  [求助]数据源不能连通时关闭项目
老师，帮忙看一下下面代码，我想让连不通云数据库时弹窗，并关闭项目

BeforeOpenProject事件或BeforeConnectOuterDataSource事件里都不行，只有弹窗，可是项目还在进展，没有关闭


If TryConnectHost("123.57.228.180") = False Then   \'网络不通时
    Dim Result As DialogResult
    Result = MessageBox.Show("网络不通,即将关闭项目,请联系管理员!", "提示")
    If Result = DialogResult.Yes Then
        Syscmd.Project.Exit()
        Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
    End If
End If
--  作者：有点蓝
--  发布时间：2022/3/16 13:41:00
--  
 If Result = DialogResult.OK Then
--  作者：2425004926
--  发布时间：2022/3/16 14:31:00
--  
用下面的代码，好了

BeforeOpenProject事件
If TryConnectHost("123.57.228.182") = False Then   \'服务器地址不能解析
    e.Cancel = True
    e.HideSplashForm = True
    MessageBox.show("网络不通,即将关闭项目")
End If