Foxtable(狐表)用户栏目专家坐堂 → 手动升级与自动升级


  共有2663人关注过本帖树形打印复制链接

主题:手动升级与自动升级

帅哥哟,离线,有人找我吗?
douglas738888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
手动升级与自动升级  发帖心情 Post By:2019/2/12 17:51:00 [只看该作者]

请教老师,

1. 按钮点击升级,'Syscmd.Project.Update(),怎样写代码,检测到新版本升级完成后,能自动重启项目,不用手动再次打开项目

 

2. 自动升级,下面代码怎样调整,启动项目后就提示升级,而不是等到输入登录名和登录密码后才提示升级(自定义的登录窗口)

    If Syscmd.Project.Update(False,False) = True Then '如果已升级
    Application.ReStart '重新启动项目
Else
    If Syscmd.Project.Update(False,True) = False Then '如果没有升级
        Forms("主窗口").Open()
        If User.Type <> UserTypeEnum.Developer
            TableCaptionVisible = False
        End If
    End If
End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/12 17:57:00 [只看该作者]

1、

 

Syscmd.Project.Update()
application.restart

 

2、自带的升级,必须打开项目后才能升级的,没办法。

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
douglas738888
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2019/2/12 18:44:00 [只看该作者]

老师,第一个问题,我已经这样写代码了,如果检测后是最新版本,也自动关闭项目又重启了,

 

应该实现的是检测到,已经是最新版本就不关闭项目,如果检测到最新版本就升级,升级完成后重启。


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105959 积分:538870 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/12 19:56:00 [只看该作者]

if Syscmd.Project.Update() then
    application.restart
end if

 回到顶部
帅哥哟,离线,有人找我吗?
douglas738888
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2019/2/12 21:59:00 [只看该作者]

老师,您指导的代码依然未解决原来的问题,点击按钮,提示窗显示已经是最新版本,点击确定后,依然自动关闭系统又重新启动了,

 

这时点击确认,应该不关闭系统再重新启动,自然关闭提示就行了,因为此时并无执行任何升级动作。


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105959 积分:538870 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/12 22:17:00 [只看该作者]

贴出您完整代码

If Syscmd.Project.Update(True,True) Then
    application.restart
End If

 回到顶部