- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 启动时如何直接退出项目？（开发版） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67384)
-- 发布时间：2015/4/23 11:41:00
-- 启动时如何直接退出项目？（开发版）
想做这样功能：
启动项目时，测试某个地址是否能PING通，如不通则直接退出项目。
现在发布后的程序在提示网络不通后，还会出现用户登录窗，并出错。
代码如下:
项目事件
BeforeConnectOuterDataSource
If e.name = "test" Then
e.C & e.ProjectPath
& "订单.mdb;Persist Security Info=False"
End If
BeforeOpenProject
If
Network.Ping("10.01.01.01") Then
Messagebox.Show("该服务器可用")
Else
Messagebox.Show("网络不通,不能进入系统")
Syscmd.Project.Exit() \'网络不通,则退出
Return
End If
下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:退出项目.zip
[此贴子已经被作者于2015/4/23 11:42:29编辑过]
-- 发布时间：2015/4/23 11:43:00
--
If Network.Ping("10.01.01.01") Then
Messagebox.Show("该服务器可用")
Else
Messagebox.Show("网络不通,不能进入系统")
e.cancel=true
End If
-- 发布时间：2015/4/23 11:44:00
--
2楼的代码写在BeforeOpenproject事件
-- 发布时间：2015/4/23 11:46:00
--
楼主的代码本来就在BeforeOpenproject 并且也在1楼说明了.不用担心
-- 发布时间：2015/4/23 11:47:00
--
谢谢！解决了问题。