用NextInstaller制做安装盘及数据库Pack

最新推荐文章于 2023-06-11 21:30:22 发布

jonfei

最新推荐文章于 2023-06-11 21:30:22 发布

阅读量757

点赞数

文章标签：数据库 behavior string function xml list

本文链接：https://blog.csdn.net/jonfei/article/details/4038224

版权

本文介绍如何利用NextInstaller制作安装盘，并在安装过程中根据当前数据库版本判断是否需要升级。通过读取注册表获取数据库信息，比较版本号，设置更新条件，并生成XML数据。同时展示了设置升级数据库XML执行条件和更新注册表中数据库版本号的方法。

摘要由CSDN通过智能技术生成

功能说明：安装盘在安装过程中判断当前数据库的版本号，如果版本号少于当前安装盘的版本号，则升级数据库。

1. 判断当前数据库的版本号

function void OnProcess()

{

var int nNewDBVer;

var int nDBVer;

var int nDBType;

var int nDBLoginMode;

var string strDBFile;

var string strDBName;

var string strDBPassword;

var string strDBServer;

var string strDBUser;

var CRegKey MyKey;

nNewDBVer = 24602;

nDBVer = MyKey.GetRegDWordValue( "HKEY_LOCAL_MACHINE" , "SOFTWARE//MyApp" , "DBVer" , 0 );

nDBType = MyKey.GetRegDWordValue( "HKEY_LOCAL_MACHINE" , "SOFTWARE// MyApp " , "DBType" , 0 );

strDBFile = MyKey.GetRegStrValue( "HKEY_LOCAL_MACHINE" , "SOFTWARE// MyApp " , "DBFile" , "" );

nDBLoginMode = MyKey.GetRegDWordValue( "HKEY_LOCAL_MACHINE" , "SOFTWARE// MyApp " , "DBLoginMode" , "" );

strDBName = MyKey.GetRegStrValue( "HKEY_LOCAL_MACHINE" , "SOFTWARE// MyApp " , "DBName" , "" );

strDBPassword = MyKey.GetRegStrValue( "HKEY_LOCAL_MACHINE" , "SOFTWARE// MyApp " , "DBPassword" , "" );

strDBServer = MyKey.GetRegStrValue( "HKEY_LOCAL_MACHINE" , "SOFTWARE// MyApp " , "DBServer" , "" );

strDBUser = MyKey.GetRegStrValue( "HKEY_LOCAL_MACHINE" , "SOFTWARE// MyApp " , "DBUser" , "" );

// 如果老的版本事情少于当于安装盘的数据库版本号，则设置 UpdateDB 为 1

// 表示要升级数据库存

if( nDBVer < nNewDBVer )

{

if( ( nDBType == 0 && strDBFile != "" ) ||(nDBType == 1 && strDBName != "" ) )

{

Install.SetVarTabValue( "UpdateDB" ,"1" );

Install.SetVarTabValue( "VAR_S_DBTYPE" ,nDBType );

Install.SetVarTabValue( "VAR_S_DBFILE" ,strDBFile );

Install.SetVarTabValue( "VAR_S_DBNAME" ,strDBName );

Install.SetVarTabValue( "VAR_S_DBLOGINMODE" ,nDBLoginMode );

Install.SetVarTabValue( "VAR_S_DBSERVER" ,strDBServer );

Install.SetVarTabValue( "VAR_S_DBUSER" ,strDBUser );

}

Install.SetVarTabValue( "DBVer" ,nNewDBVer );

Install.DoDialog( "SdProcess" );

}

2. 设置升级数据XML 的执行条件,系统中有一个 UpdateTab 的 XML, 并设置这个 XML 的执行条件 Condition 与 UpdateDB 这个变量进行关系,如相这个变量值是 1 , 表示条件成立，则执行这个XML, 如果值为 0, 则条件不成立，XML 不执行。

４．创建升级数据库库的 XML 数据

选择 [工具]->[数据库信息倒入/到出] 生成更新数据库的 XML 信息。

5．把最新的数据库版本号写到注册表中

把 Software/Myapp 下的 DBVer 与变量表中的变量 DBVer 进行关联,则我们中只要在脚本中设置这个变量值，就可以把这个值写到注册表中。

Install.SetVarTabValue( "DBVer" ,nNewDBVer );

6． End

完整的例子:

ar string @sTargetPath;

var string @sDataPath;

var string @sFilePath;

var CValueSet DlgParam;

var int nOpType;

function void OnBegin()

{

if( Install.IsInstalled() == 0 )

FirstInstall();

else

UpdateInstall();

}

function void FirstInstall()

{

SdWelcome:

nOpType = Install.DoDialog( "SdWelcome" );

DataCmpGoto( nOpType , OT_CANCEL ,"Cancel" );

SdSetDestPath:

nOpType = Install.DoDialog( "SdSetDestPath" );

DataCmpGoto( nOpType , OT_CANCEL ,"Cancel" );

DataCmpGoto( nOpType , OT_BREAK ,"SdWelcome" );

Cancel:

}

function void UpdateInstall()

{

DlgParam.SetValue("SetupModes" , "SM_REPAIR|SM_REMOVE" );

nOpType = Install.DoDialog( "SdSetupMode" , DlgParam );