外部数据源不存在时，如何强制退出？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 外部数据源不存在时，如何强制退出？

共有3880人关注过本帖树形打印复制链接主题：外部数据源不存在时，如何强制退出？

flashv

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00

外部数据源不存在时，如何强制退出？ 发帖心情

Post By：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:25:44编辑过]

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/6/19 16:27:00 [只看该作者]

Syscmd.Project.Exit()	正常退出Foxtable
Syscmd.Project.Exit(True)	先保存数据，然后退出Foxtable
Syscmd.Project.Exit(False)	不保存数据，强行退出Foxtable

用这些事实看,不要用basemainform

flashv

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00

Post By：2014/6/19 16:31:00 [只看该作者]

如果换成 Syscmd.Project.Exit(False) 出错如下

图片点击可在新窗口打开查看此主题相关图片如下：2014-6-19 16-29-44.png

图片点击可在新窗口打开查看此主题相关图片如下：2014-6-19 16-29-53.png

.....

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/19 16:36:00 [只看该作者]

下面的代码写在beforeopenproject事件

If FileSys.FileExists("sj.mdb") Then
    Messagebox.Show("文件已经存在!","提示")
Else
    Messagebox.Show("文件不存在或已经被删除!","提示")
    basemainform.close()
End If

flashv

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00

Post By：2014/6/19 16:52:00 [只看该作者]

以下是引用有点甜在2014-6-19 16:36:00的发言：

下面的代码写在beforeopenproject事件

If FileSys.FileExists("sj.mdb") Then
    Messagebox.Show("文件已经存在!","提示")
Else
    Messagebox.Show("文件不存在或已经被删除!","提示")
    basemainform.close()
End If

老师，这样还是有问题。

1.启动封面会档住提示对话框，要再点一下任图栏上的图标才会出现对话框。

2.点击“确定”以后

弹出“用户登录”对话框，这个时候，点“取消”没问题。

如果输入密码，登录以后，就会提示出错。