BeforeOpenProject中 代码如下 Post By:2014/10/13 23:12:00 [只看该作者]
在
BeforeOpenProject中 代码如下
Dim s As String = FileSys.GetParentPath(e.File) & "\config.txt" If FileSys.FileExists(s) = False Then e.Cancel = True e.HideSplashForm = True MessageBox.Show("数据库配置文件没有找到!请与开发商联系","重要提示",MessageBoxButtons.ok,MessageBoxIcon.error) End If