- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 外部数据源不存在时，如何强制退出？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52636)
-- 发布时间：2014/6/19 16:24:00
-- 外部数据源不存在时，如何强制退出？
软件启动后，判断相关文件是否存在，如果不存在，就强制退出。
比如，用的是外部数据源
在项目事件 BeforeConnectOuterDataSource 中以下代码出错。
If FileSys.FileExists("sj.mdb") Then
Messagebox.Show("文件已经存在!","提示")
Else
Messagebox.Show("文件不存在或已经被删除!","提示")
basemainform.close()
End If
此主题相关图片如下：2014-6-19 16-23-27.png
-- 发布时间：2014/6/19 16:27:00
--
| Syscmd.Project.Exit() | 正常退出Foxtable |
| Syscmd.Project.Exit(True) | 先保存数据，然后退出Foxtable |
| Syscmd.Project.Exit(False) | 不保存数据，强行退出Foxtable |
-- 发布时间：2014/6/19 16:31:00
--
如果换成 Syscmd.Project.Exit(False) 出错如下
此主题相关图片如下：2014-6-19 16-29-44.png
此主题相关图片如下：2014-6-19 16-29-53.png
.....
-- 发布时间：2014/6/19 16:36:00
--
下面的代码写在beforeopenproject事件
If FileSys.FileExists("sj.mdb") Then
Messagebox.Show("文件已经存在!","提示")
Else
Messagebox.Show("文件不存在或已经被删除!","提示")
basemainform.close()
End If
-- 发布时间：2014/6/19 16:52:00
--
下面的代码写在beforeopenproject事件
If FileSys.FileExists("sj.mdb") Then
Messagebox.Show("文件已经存在!","提示")
Else
Messagebox.Show("文件不存在或已经被删除!","提示")
basemainform.close()
End If
老师，这样还是有问题。
1.启动封面会档住提示对话框，要再点一下任图栏上的图标才会出现对话框。
2.点击“确定”以后
弹出“用户登录”对话框，这个时候，点“取消”没问题。
如果输入密码，登录以后，就会提示出错。
-- 发布时间：2014/6/19 16:54:00
--
其实就是想在项目启动之前，验证一些相关的文件是否存在（比如外部数据源），如果不存在，就强制退出软件。
-- 发布时间：2014/6/19 16:54:00
--
弹出对话框，这样写
登陆以后，出错，是登陆以后代码的问题。
-- 发布时间：2014/6/19 16:58:00
--
文件判断是否存在以后，强制退出。这时就不应该出现登录对话框才对啊。
-- 发布时间：2014/6/19 17:01:00
--
文件判断是否存在以后，强制退出。这时就不应该出现登录对话框才对啊。
代码有写在 BeforeOpenProject 事件么？
-- 发布时间：2014/6/19 17:03:00
--
是的。
此主题相关图片如下：2014-6-19 17-03-01.png