Foxtable(狐表) → 用户栏目 → 专家坐堂 → 启动时如何直接退出项目？（开发版）


  共有3655人关注过本帖树形打印复制链接

主题：启动时如何直接退出项目？（开发版）
帅哥哟，离线，有人找我吗？
瞩望星空
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：4727 威望：0 精华：0 注册：2013/4/20 20:08:00 		启动时如何直接退出项目？（开发版）  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/23 11:43:00 [只看该作者]

If Network.Ping("10.01.01.01") Then

    Messagebox.Show("该服务器可用")

Else

    Messagebox.Show("网络不通,不能进入系统")

    e.cancel=true

End If
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251397 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2015/4/23 11:44:00 [只看该作者]

2楼的代码写在BeforeOpenproject事件

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/4/23 11:46:00 [只看该作者]

楼主的代码本来就在BeforeOpenproject   并且也在1楼说明了.不用担心

 回到顶部
帅哥哟，离线，有人找我吗？
瞩望星空
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：4727 威望：0 精华：0 注册：2013/4/20 20:08:00 		  发帖心情 Post By：2015/4/23 11:47:00 [只看该作者]

谢谢！解决了问题。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询