- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请问如何设置强制性软件升级? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59734)
-- 发布时间：2014/11/10 8:02:00
-- 请问如何设置强制性软件升级?
开发的软件已经设置好在线自动升级,只要有升级包,系统启动后就会弹出窗口询问是否升级,点击是就升级,点击否就进入系统,我想设置成点击否就推出,不允许进入系统,不知该如何设计代码?
If Syscmd.Project.Update(False,True) = False Then \'如果没有升级
Forms("导航").open()
If User.Type <> UserTypeEnum.Developer \'隐藏表标题(普通登录者不显示表标题,但开发者登录时显示)
TableCaptionVisible = False
End If
DataTables("监造基本信息表").DataCols("监造流水号").RaiseDataColChanged()
DataTables("监造物资明细表").DataCols("监造流水号").RaiseDataColChanged()
Tables("监造放行单表.监造物资明细表").Visible = False
Tables("监造日志.监造物资明细表.监造周报").Visible = False
Tables("监造日志.监造物资明细表.图纸工艺文件及进度状态表").Visible = False
Tables("监造日志.监造物资明细表.原材料及外购外协件检验表").Visible = False
Tables("监造物资明细表").Grid.AllowFiltering = True \'启动表的内置筛选功能
Tables("监造基本信息表").Grid.AllowFiltering = True \'启动表的内置筛选功能
Tables("监造周报").Grid.AllowFiltering = True \'启动表的内置筛选功能
Tables("监造日志").Grid.AllowFiltering = True \'启动表的内置筛选功能
Tables("监造放行单表").Grid.AllowFiltering = True \'启动表的内置筛选功能
Tables("人员信息表").Grid.AllowFiltering = True \'启动表的内置筛选功能
End If
-- 发布时间：2014/11/10 8:08:00
--
直接
-- 发布时间：2014/11/10 8:10:00
--
BIN版,这样是强制升级了,但是由于升级等待时间较长,使用者可能不知道到底是在升级呐还是软件死机了,会不好判断啊?
-- 发布时间：2014/11/10 8:18:00
--
那直接下载访问 UPdate.Txt 和本项目 PublishDate 进行对比 再写代码提示
-- 发布时间：2014/11/10 8:23:00
--
哪就比较复杂了,我的水平似乎还不行啊
-- 发布时间：2014/11/10 8:29:00
--
静默升级 进度条提示框上好像会显示 正在升级中 啊
-- 发布时间：2014/11/10 12:36:00
--
谢谢BIN版，我试试看看
-- 发布时间：2014/11/10 14:22:00
--
Tables("监造周报").Grid.AllowFiltering = True