主题：FTP在线升级

AfterOpenProject事件：

If syscmd.project.update(False,False)=False Then  

Forms("登录").Open()

MainTable = Tables("Staff")

End If

BeforeOpenProject事件：

Dim str As String = FileSys.ReadAllText(ProjectPath & "config")

If str = "" Then

    FileSys.WriteAllText(ProjectPath & "config", "正常", False)

    Dim t1 As New System.Threading.Thread(AddressOf beforeOpenProject)

    t1.Start()

    e.cancel = True

    Application.restart

End If

在线升级路径配置：（路径在浏览器中试了，可以打开没有问题）

此主题相关图片如下：在线升级路径.png