Dim s1 As String = e.ProjectPath & "\bin\connection.ini" Dim s2 As String = "erp" If FileSys.FileExists(s1) = False Then e.HideSplashForm = True 'MessageBox.show("数据库连接文件丢失,无法打开此项目!" & vbcrlf & "请联系软件提供商解决!") Else If e.name = s2 Then e.ConnectionString = FileSys.ReadAllText(s1) End If End If