以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  项目启动时,IP地址不接通时的代码提示,并退出项目。(已解决)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69988)

--  作者:jiterp
--  发布时间:2015/6/14 10:52:00
--  项目启动时,IP地址不接通时的代码提示,并退出项目。(已解决)

我在BeforeConnectOuterDataSource事件中设置如下代码,想实现当检测IP地址不通时,提示,并退出项目,可结果并没有按这个操作,还是继续往下打开窗口。请问代码要怎么修改?


\'定义IP地址变量
Dim ip As String =  FileSys.ReadAllText("C:\\inetpub\\wwwroot\\ip.txt")

\'检测IP连通
If Network.Ping(ip,1000) = False  Then \'如果无法接通
    e.HideSplashForm = True  \'关闭启动封面
    Messagebox.Show("您的计算机与网络失联了,请检查后重新再试!","温馨提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Syscmd.Project.Exit(False)  ’退出项目
Else
    \'连接数据源
    Dim sjy As String = FileSys.ReadAllText("C:\\inetpub\\wwwroot\\mdb.txt")
    If e.name = "mdb" Then
       e.ConnectionString = sjy
    End If
End If
 
   

[此贴子已经被作者于2015/9/6 16:46:44编辑过]

--  作者:大红袍
--  发布时间:2015/6/14 11:04:00
--  

 呃,你觉得是不是应该写到 BeforeOpenProject 事件,加上 e.Cance = True ?

 

 或者,你可以直接用代码 system.diagnostics.process.GetProcessesByName("foxtable")(0).kill


--  作者:jiterp
--  发布时间:2015/6/14 11:16:00
--  
以下是引用大红袍在2015/6/14 11:04:00的发言:

 呃,你觉得是不是应该写到 BeforeOpenProject 事件,加上 e.Cance = True ?

 

 或者,你可以直接用代码 system.diagnostics.process.GetProcessesByName("foxtable")(0).kill

 

我把 system.diagnostics.process.GetProcessesByName("foxtable")(0).kill 代码替代了上段代码中的红字部分,但当IP地址是错的时候,会提示以下窗口:

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20150614111130.png
图片点击可在新窗口打开查看

 

把此窗口关闭后,又跳到了登录窗口。

 

还有,不写到BeforeOpenProject事件中,是因为要在项目启动时,而是通过文本内容动态改变连接数据源。


--  作者:大红袍
--  发布时间:2015/6/14 13:00:00
--  

加入try catch

 

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