Foxtable(狐表)用户栏目专家坐堂 → 如何写升级后提示代码


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

主题:如何写升级后提示代码

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


加好友 发短信
等级:小狐 帖子:388 积分:3212 威望:0 精华:0 注册:2017/4/2 19:33:00
如何写升级后提示代码  发帖心情 Post By:2018/5/24 16:16:00 [显示全部帖子]

按照帮助文件添加了在线升级功能代码为:Syscmd.Project.Update()
利用此代码可以完成升级,但是升级完成后系统自动退出了。
请问能不能实现升级后给予升级完成提示,或者自动打开系统登录窗口。
请问代码如何设计?谢谢!

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


加好友 发短信
等级:小狐 帖子:388 积分:3212 威望:0 精华:0 注册:2017/4/2 19:33:00
  发帖心情 Post By:2018/5/24 17:48:00 [显示全部帖子]

谢谢老师,我先试试

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


加好友 发短信
等级:小狐 帖子:388 积分:3212 威望:0 精华:0 注册:2017/4/2 19:33:00
  发帖心情 Post By:2018/5/25 9:54:00 [显示全部帖子]

出现错误提示,请问老师如何修改?

根据老师昨天提示:复制代码到项目事件
AfterOpenProject:

try
    
    Dim str As String = FileSys.ReadAllText(UpdatePath & "/update.txt")
    Dim ud() As String = str.Split("|") '获取文件内容
    
    Dim Sdate1 As Date = Cdate(ud(0)) '服务器update.txt发布日期
    Dim Sdate2 As Date = Cdate(ud(1)) '服务器Version.txt发布日期
    Dim Cdate1 As Date = PublishDate '客户端发布日期
    Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\Bin\Version.txt") '客户端Version.txt发布日期
    
    If Sdate2 > Cdate2 OrElse Sdate1 > Cdate1 Then
        msgbox("有新版本")
        '静默升级代码 Syscmd.Project.Update(False,False)
    End If
catch ex As exception
    msgbox(ex.message)
    msgbox("下载失败")
End try



 点击确定时 出现错误提示:编译错误:变量“str”在封闭模块中隐藏变量。错误代码: Dim str As String = FileSys.ReadAllText(UpdatePath & "/update.txt")


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


加好友 发短信
等级:小狐 帖子:388 积分:3212 威望:0 精华:0 注册:2017/4/2 19:33:00
  发帖心情 Post By:2018/5/25 10:35:00 [显示全部帖子]

谢谢,成功了!我知道的东西太少了,很多东西还需要继续学习,谢谢老师指点。

 回到顶部