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

最新推荐文章于 2020-04-09 16:05:25 发布

mfclp

最新推荐文章于 2020-04-09 16:05:25 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

文章标签：数据库 string function xml 脚本 path

本文链接：https://blog.youkuaiyun.com/mfclp/article/details/1614153

本文介绍了一种通过安装盘自动判断并升级数据库版本的方法。该方法首先读取注册表中的数据库版本信息，若发现旧版数据库版本低于安装盘版本，则触发升级过程，并通过XML文件完成数据库更新。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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 不执行。

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

4．把最新的数据库版本号写到注册表中
把 Software/Myapp 下的 DBVer 与变量表中的变量 DBVer 进行关联,则我们中只要在脚本中设置这个变量值，就可以把这个值写到注册表中。
Install.SetVarTabValue( "DBVer" ,nNewDBVer );

5．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 );
}
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" , "" );
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_DBPASSWORD" ,strDBPassword );
Install.SetVarTabValue( "VAR_S_DBSERVER" ,strDBServer );
Install.SetVarTabValue( "VAR_S_DBUSER" ,strDBUser );
}
}
Install.SetVarTabValue( "DBVer" ,nNewDBVer );
Install.DoDialog( "SdProcess" );
}
function void OnEnd()
{
var string strPath;
if( Install.GetSetupState() == SS_INSTALL )
{
if( Install.GetSetupMode() == SM_REPAIR )
{
Install.StartService( "MyServer" );
}
Install.DoDialog( "SdFinish" );

if( Install.UpdateModeStr != "SM_REPAIR" )
{
strPath = Install.GetPath("PATH_S_TARGETDIR");
strPath = strPath + "[url=file:////help//MyAppHelp.chm]//help//MyAppHelp.chm[/url]";
Install.ShellExec( strPath );
}
}
else if( Install.GetSetupState() == SS_INSTALL_REBOOTDO )
Install.DoDialog( "SdRebootDo" );
}