|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?站点注册
×
网上的太过复杂,不适用!
其实很简单。
自动升级源码:可保存历史版本信息
在主程序 open 事件中 加入以下代码
string lsNewVer, lsSysName, lsOldVer
lsSysName = upper(ProfileString(is_updateini, 'Config', 'sysName', 'xsbd'))
select isnull(max(version),'') into :lsNewVer from sys_verfile where upper(systemname) = :lsSysName;
lsOldVer = ProfileString(is_updateini, 'Config', 'version', '1.0')
if lsOldVer < lsNewVer then
if MessageBox('系统升级','当前程序已有新版本,~r~r是否马上升级?', Question!, YesNo!, 1) = 1 then
run('update.exe')
halt
end if
end if
升级需要用到的数据表:
CREATE TABLE sys_verfile
(
systemname varchar(20) not NULL,
version varchar(20) NOT NULL,
filename varchar(40) NOT NULL,
filesize int NULL,
filebody image NULL,
fileupdate datetime null,
CONSTRAINT pk_fn PRIMARY KEY (systemname, filename,filebodyid )
); |
-
-
自动升级.rar
73.51 KB, 下载次数: 282, 下载积分: 金钱 -1
|