主题：启动时如何直接退出项目？（开发版）

项目事件

BeforeConnectOuterDataSource

If e.name = "test" Then

    e.C & e.ProjectPath & "订单.mdb;Persist Security Info=False"

End If

BeforeOpenProject

If Network.Ping("10.01.01.01") Then

    Messagebox.Show("该服务器可用")

Else

    Messagebox.Show("网络不通,不能进入系统")

    Syscmd.Project.Exit()  '网络不通,则退出

    Return

End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:退出项目.zip