主题：外部数据源不存在时，如何强制退出？

软件启动后，判断相关文件是否存在，如果不存在，就强制退出。

 

比如，用的是外部数据源

 

在项目事件 BeforeConnectOuterDataSource 中以下代码出错。

 

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

 

 

此主题相关图片如下：2014-6-19 16-23-27.png

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

 

 

此主题相关图片如下：2014-6-19 16-29-44.png

 

 

此主题相关图片如下：2014-6-19 16-29-53.png

 

.....

 

老师，这样还是有问题。

 

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

2.点击“确定”以后

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

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

其实就是想在项目启动之前，验证一些相关的文件是否存在（比如外部数据源），如果不存在，就强制退出软件。

文件判断是否存在以后，强制退出。这时就不应该出现登录对话框才对啊。

是的。

 

 

此主题相关图片如下：2014-6-19 17-03-01.png

是不是暂时无法解决这个问题啊？

执行以上代码以后，项目并没有退出，继续出现“登录对话框”，这时必须要点“取消”才行，如果输入密码登录，就出提示出错。

 

正确的过程应该是

1.运行软件

2.判断文件是否存在

3.如果不存在，软件强制退出（这时不应该出现“登录对话框”才对）

如果继续出现登录对话框，然后用户点“取消”退出软件，那么，前面的判断，以及退出软件项目的代码就没有意义了。

 

没有真正实现强制退出。

呵呵，你要不要试一下？

 

 

此主题相关图片如下：2014-6-19 17-30-13.png

  上图，启动软件时。出现提示

 

此主题相关图片如下：2014-6-19 17-30-26.png

 

上图，点击对话框上的确定以后

此主题相关图片如下：2014-6-19 17-30-44.png

 

上图，出错信息开始。

 

没有实现真正的退出项目软件。

谢谢老题，问题解决了。辛苦了，呵呵。