Installshield安装MSDE数据库脚本

我们的软件中经常会用到MSDE数据库，软件开发完成后通常要把MSDE与我们的软件打包到一起进行分发，并能实现数据库的自动安装配置，这些功能通常在 安装程序中实现，下面的脚本实现了用安装程序Installshield自动安装MSDE数据库，自动配置ODBC。



//                                                                            
//   File Name:   Setup.rul                                                   
//                                                                            
//   Description: InstallShield script                                        
//                                                                            
//   Comments:    This script was generated based on the selections you made in
//                the Project Wizard.  Refer to the help topic entitled "Modify      
//                the script that the Project Wizard generates" for information
//                on possible next steps.
//



// Include header files
    
#include "ifx.h"
    
// string defines

installation declarations ///

// ----- DLL function prototypes -----


    // your DLL function prototypes
prototype ODBCCP32.SQLConfigDataSource ( HWND, SHORT, STRING, STRING );
prototype ODBCCP32.SQLInstallerError ( SHORT, BYREF LONG, BYREF STRING, SHORT, BYREF SHORT);
prototype ISODBCDisplaySQLInstallerErrorMsg ( STRING );
prototype AddODBC(NUMBER);
#define SQL_MAX_MESSAGE_LENGTH      512
#define SQL_SUCCESS_WITH_INFO         1
#define SQL_NO_DATA                 100
#define SQL_ERROR                    -1
#define ODBC_ADD_SYS_DSN               4    // add a system DSN
#define ODBC_REMOVE_SYS_DSN              6    // remove a system DSN

// ---- script function prototypes -----
prototype  CreateDataBase(string,string,string);

    // your script function prototypes

    // your global variables



//
//                                                                           
//  FUNCTION:   OnFirstUIBefore                                            
//                                                                           
//  EVENT:      The OnFirstUIBefore event is called by OnShowUI when the setup is
//              running in first install mode. By default this event displays UI allowing
//              the end user to specify installation parameters.
//              
//              Note: This event will not be called automatically in a
//              program...endprogram style setup.                                                             
//
//
function OnFirstUIBefore()
    number  nResult;
    number  nLevel;
    number  nvSize, nSetupType;
    number  nLoop;
    string  szTitle, szMsg;
    string  szOpt1, szOpt2, szLicenseFile;
    string  szName, szCompany;
    string  szTargetPath;
    string  svDir;
    string  szComponents, szTargetdir;
    string  szTargetDirAppendix;
    BOOL    bLicenseAccepted;
begin
    SetTitle( @TITLE_MAIN,24,WHITE);
    SetTitle( @TITLE_CAPTIONBAR,0,BACKGROUNDCAPTION);
    Enable(FULLWINDOWMODE);
    SetColor(BACKGROUND,RGB(58,110,165));

    nSetupType = COMPLETE;

    if ( ALLUSERS ) then   
        TARGETDIR = PROGRAMFILES ^ IFX_COMPANY_NAME ^ IFX_PRODUCT_NAME;
    else
        TARGETDIR = FOLDER_APPDATA ^ IFX_COMPANY_NAME ^ IFX_PRODUCT_NAME;
    endif;

    // Customize the default TARGETDIR for multi-instance application.
    // TODO: If you want something different customize the code below.    
    if( MAINT_OPTION = MAINT_OPTION_MULTI_INSTANCE  && MULTI_INSTANCE_COUNT > 0) then
        nLoop = 1;
        svDir = TARGETDIR;
        while(ExistsDir(TARGETDIR) = EXISTS)            
            NumToStr(szTargetDirAppendix,nLoop);
            TARGETDIR = svDir + szTargetDirAppendix;
            nLoop = nLoop + 1;
        endwhile;                        
    endif;

    svDir = TARGETDIR;
    szName = "";
    szCompany = "";
    bLicenseAccepted = FALSE;

// Beginning of UI Sequence
Dlg_Start:

Dlg_SdWelcome:
    szTitle = "";
    szMsg = "";
    nResult = SdWelcome( szTitle, szMsg );
    if (nResult = BACK) goto Dlg_Start;

Dlg_SdLicense2:
    szTitle = "";
    szOpt1 = "";
    szOpt2 = "";
    szLicenseFile = SUPPORTDIR ^ "license.txt";
    nResult = SdLicense2( szTitle, szOpt1, szOpt2, szLicenseFile, bLicenseAccepted );
    if (nResult = BACK) then
        goto Dlg_SdWelcome;
    else
        bLicenseAccepted = TRUE;
    endif;

Dlg_SdRegisterUser:
    szMsg = "";
    szTitle = "";    
    nResult = SdRegisterUser( szTitle, szMsg, szName, szCompany );
    if (nResult = BACK) goto Dlg_SdLicense2;

Dlg_SetupType2:   
    szTitle = "";
    szMsg = "";
    nResult = SetupType2( szTitle, szMsg, "", nSetupType, 0 );
    if (nResult = BACK) then
        goto Dlg_SdRegisterUser;
    else
        nSetupType = nResult;
        if (nSetupType != CUSTOM) then
            szTargetPath = TARGETDIR;
            nvSize = 0;
            FeatureCompareSizeRequired( MEDIA, szTargetPath, nvSize );
            if (nvSize != 0) then      
                MessageBox( szSdStr_NotEnoughSpace, WARNING );
                goto Dlg_SetupType2;
            endif;
        endif;   
    endif;

Dlg_SdAskDestPath2:
    if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SetupType2;
    szTitle = "";
    szMsg = "";
    if (nSetupType = CUSTOM) then
        nResult = SdAskDestPath2( szTitle, szMsg, svDir );
        TARGETDIR = svDir;
    endif;
    if (nResult = BACK) goto Dlg_SetupType2;

Dlg_SdComponentTree:
    if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SdAskDestPath2;
    szTitle = "";
    szMsg = "";
    szTargetdir = TARGETDIR;
    szComponents = "";
    nLevel = 2;
    if (nSetupType = CUSTOM) then
        nResult = SdFeatureTree( szTitle, szMsg, szTargetdir, szComponents, nLevel );
        if (nResult = BACK) goto Dlg_SdAskDestPath2;  
    endif;

Dlg_ObjDialogs:
    nResult = ShowObjWizardPages( nResult );
    if (nResult = BACK) goto Dlg_SdComponentTree;
    
Dlg_SdStartCopy2:
    szTitle = "";
    szMsg = "";
    nResult = SdStartCopy2( szTitle, szMsg );    
    if (nResult = BACK) goto Dlg_ObjDialogs;

    return 0;
end;
 
//---------------------------------------------------------------------------
// OnFirstUIAfter
//
// First Install UI Sequence - After Move Data
//
// The OnFirstUIAfter event called by OnShowUI after the file transfer
// of the setup when the setup is running in first install mode. By default
// this event displays UI that informs the end user that the setup has been
// completed successfully.
//
// Note: This event will not be called automatically in a
// program...endprogram style setup.
//---------------------------------------------------------------------------
function OnFirstUIAfter()
    STRING szTitle, szMsg1, szMsg2, szOpt1, szOpt2;
    string    szSQLsvr, szSQLusr, szSQLpwd;        //added
    string szServiceName, szServiceDisplayName, szServiceDescription, szServicePathFile, szStartServiceArgs;
    string szTemp;
    string szMsde2000, szCmdLine;
    string szWaitTxt;
    BOOL bStartService;
    NUMBER bvOpt1, bvOpt2;
    number svServiceState;
     /******************************/
    string szName, szValue;
    number nType;
    /**************************/
begin
    //安装MSDE2000  
    szWaitTxt = "正在安装MSDE2000，请稍等...";
    SdShowMsg(szWaitTxt,TRUE);
    szMsde2000 = SRCDIR ^ "MSDE" ^ "setup.exe";
    szCmdLine = "/q /wait  SECURITYMODE=SQL";
    if (LaunchAppAndWait(szMsde2000, szCmdLine,LAAW_OPTION_WAIT|LAAW_OPTION_MAXIMIZED) < 0) then
        MessageBox ("安装MSDE2000失败./n如仍无法解决，请联系系统供应商！",SEVERE);
        abort;
    endif;
    SdShowMsg(szWaitTxt,FALSE);  
    //启动服务
    szServiceName = "MSSQL$TEST";
    /*szServiceDisplayName = "MSSQL$TEST";
    szServiceDescription = "MSSQLServer";
    szServicePathFile = PROGRAMFILES ^ "Microsoft SQL Server" ^ "MSSQL$TEST"^ "Binn" ^ "sqlservr.exe -sTEST";
    bStartService = TRUE;
    szTemp = PROGRAMFILES ^ "Microsoft SQL Server" ^ "MSSQL$TEST";
    szStartServiceArgs = "-c " + "-d" + szTemp ^ "Data" ^ "master.mdf " +
                        "-e" + szTemp ^ "LOG" ^ "errorlog " +
                        "-l" + szTemp ^ "Data" ^ "mastlog.ldf";
    ServiceAddService (szServiceName, szServiceDisplayName, szServiceDescription, szServicePathFile, bStartService,
szStartServiceArgs);*/
    szStartServiceArgs = "";  
    if (ServiceGetServiceState(szServiceName, svServiceState) < ISERR_SUCCESS ) then
        MessageBox ("获取服务" + szServiceName + "出错,程序将试着启动该服务。", SEVERE);
        if (ServiceStartService (szServiceName, szStartServiceArgs) < ISERR_SUCCESS ) then
             MessageBox ("启动服务" + szServiceName + "出错。", SEVERE);
        endif;
    else
        if (svServiceState != SERVICE_RUNNING) then    
            if (ServiceStartService (szServiceName, szStartServiceArgs) < ISERR_SUCCESS ) then
             MessageBox ("启动服务" + szServiceName + "出错。", SEVERE);
            endif;
        endif;
    endif;

    //加载自己的数据库
    szSQLsvr = "(local)" ^ "TEST";
    szSQLusr = "sa";
    szSQLpwd = "sa";
    CreateDataBase(szSQLsvr,szSQLusr,szSQLpwd);     
    //创建系统DSN
    AddODBC(ODBC_ADD_SYS_DSN);
   
   //在注册表中设置应用程序信息
    szName = "CurrentVersion";
    szValue = IFX_PRODUCT_VERSION;
    nType = REGDB_STRING;
    if (RegDBSetAppInfo(szName,nType,szValue,-1) <0) then
        MessageBox ( "在注册表中设置应用程序版本信息出错", WARNING );
    endif;
    
    szName = "ProductKey";
    szValue = IFX_PRODUCT_KEY;
    nType = REGDB_STRING;
    if (RegDBSetAppInfo(szName,nType,szValue,-1) <0) then
        MessageBox ( "在注册表中设置应用程序名称信息出错", WARNING );
    endif;
    

    ShowObjWizardPages(NEXT);
    
    szTitle = "";
    szMsg1 = "";
    szMsg2 = "";
    szOpt1 = "";
    szOpt2 = "";
    bvOpt1   = FALSE;
    bvOpt2   = FALSE;    
    
    if ( BATCH_INSTALL ) then
        SdFinishReboot ( szTitle , szMsg1 , SYS_BOOTMACHINE , szMsg2 , 0 );
    else
        
        // If the update service is enabled, show finish dialog that includes
        // update check option.
        if( ENABLED_ISERVICES & SERVICE_ISUPDATE ) then

            if( SdFinishUpdateEx( szTitle, szMsg1, szMsg2, szOpt1, szOpt2, TRUE ) ) then

                // Don't check for updates in silent mode.
                if( MODE != SILENTMODE ) then
                    UpdateServiceCheckForUpdates( "", FALSE );
                endif;

            endif;

        else
            SdFinish ( szTitle , szMsg1 , szMsg2 , szOpt1 , szOpt2 , bvOpt1 , bvOpt2 );
        endif;

    endif;
end;

//
// 创建数据库        added at 2003/07/23
//
function CreateDataBase(szSQLsvr,szSQLusr,szSQLpwd)
string szCmd,szCmdLine,szWaitTxt;
begin
szWaitTxt=" 正在创建所需数据库....";
SdShowMsg (szWaitTxt, TRUE);
Delay(2);
szCmdLine = "-U "+szSQLusr+" -P "+szSQLpwd+" -S "+szSQLsvr+" -Q /"exec sp_detach_db 'TEST' /"";
if (LaunchAppAndWait("osql.exe ", szCmdLine,LAAW_OPTION_WAIT|LAAW_OPTION_HIDDEN) < 0) then
MessageBox ("分离原来的数据库失败！请确您的系统中已安装 Microsoft SQL Server 2000或服务已启动./n如仍无法解决，请联系系统供应商！",SEVERE);
endif;
 
szCmdLine = "-U "+szSQLusr+" -P "+szSQLpwd+" -S "+szSQLsvr+" -Q /"exec sp_attach_db 'TEST','"+TARGETDIR ^ "data"
^ "TEST_data.mdf', '" +
                                TARGETDIR ^ "data" ^ "TEST_log.ldf' /0";
if (LaunchAppAndWait("osql.exe ", szCmdLine,LAAW_OPTION_WAIT|LAAW_OPTION_HIDDEN) < 0) then
MessageBox ("数据库创建失败！请确您的系统中已安装 Microsoft SQL Server 2000./n如仍无法解决，请联系系统供应商！",SEVERE);
endif;  

SdShowMsg (szWaitTxt, FALSE);
return 0;
end;      

/
function AddODBC(nvType)   
    HWND hwnd;
    NUMBER nRes,nError,nvLen,nCount;
    STRING szArgs,szDBQ,szDriver;
begin
    UseDLL(WINSYSDIR ^ "odbccp32.dll");
    szDriver = "SQL Server";
    //参数Network=dbnmpntw   ???     dbmssocn
    /*szArgs  = "DSN=test|"+
            "Description=SQLConfigDSN Sample|"+
            "SERVER=(local)|" +
            "ADDRESS=192.168.7.199|" +
            "NETWORK=dbmssocn|" +
            "DATABASE=pubs|";*/
    szArgs  = "DSN=TEST|"+   
            "Description=SQLConfigDSN Sample|"+
            "SERVER=(local)" ^ "TEST|" +
            "DATABASE=TEST|" ;
    // Replace all semicolons with NULL characters to create null-delimited,
    // double-NULL terminated string, which is the format needed to pass to SQL functions.
    szArgs = szArgs + '|;';
    nvLen = StrLength ( szArgs );
    nvLen = nvLen - 1;
    nCount = 0;
    for nCount = 0 to nvLen
        if ( szArgs[nCount] = '|' ) then
            szArgs[nCount] = '/0';
        endif;
    endfor;

    //hwnd = GetWindowHandle ( HWND_INSTALL );
    nRes = SQLConfigDataSource(hwnd ,nvType,szDriver,szArgs);
    
    if (nRes = FALSE) then
        nError = ISODBCDisplaySQLInstallerErrorMsg ( "whocares" );
    endif;
    
    UnUseDLL(WINSYSDIR ^ "odbccp32.dll");
end;
/
function ISODBCDisplaySQLInstallerErrorMsg ( szODBCComponent )
    LONG    fErrorCode;
    NUMBER  nvResult;
    STRING szErrorMsg[SQL_MAX_MESSAGE_LENGTH];
    SHORT cbErrorMsg, cbErrorMsgMax, iError;
    POINTER pfErrorCode, pcbErrorMsg;
 begin

    pfErrorCode = &fErrorCode;
    pcbErrorMsg = &cbErrorMsg;
    iError = 1;
    cbErrorMsgMax = SQL_MAX_MESSAGE_LENGTH;
    nvResult = SQLInstallerError ( iError, fErrorCode, szErrorMsg,
                                  cbErrorMsgMax, pcbErrorMsg );
    if ( TRUE ) then
        if ( nvResult = SQL_NO_DATA || nvResult = SQL_ERROR ) then
            MessageBox ( @ISODBC_ERR_NOERRDATA + "/n" + szODBCComponent, SEVERE );
        elseif ( nvResult = SQL_SUCCESS_WITH_INFO ) then
            SprintfBox ( SEVERE, "", @ISODBC_ERR_ERRBUFFSHORT + "/n" +
                        @ISODBC_ERR_NUMBER + "/n" + szODBCComponent, fErrorCode );
        else
            MessageBox ( szErrorMsg + "/n" + szODBCComponent, SEVERE );
        endif;
    endif;

    return ( fErrorCode );

 end;     
 
//---------------------------------------------------------------------------
// OnBegin
//
// The OnBegin event is called directly by the framework after the setup
// initializes.
//
// Note: This event will not be called automatically in a
// program...endprogram style setup.
//---------------------------------------------------------------------------
function OnBegin()
    /******************************/
    number nRootKey;
    string szKeySQLServer;
    string szKey,szRegName,svValue;
    number nvType,nvRegSize;   
    /******************************/  
begin
    if (!MAINTENANCE) then
     /************************************************/
     //检测是否安装过本程序的以前版本
     
         nRootKey = HKEY_LOCAL_MACHINE;
         szKey = "SOFTWARE//TEST" ^ IFX_PRODUCT_NAME;
         if (RegDBSetDefaultRoot(nRootKey) < 0) then
              MessageBox ("调用RegDBSetDefaultRoot函数失败。", SEVERE);
           endif;
        if (RegDBKeyExist(szKey) == 1) then
              MessageBox ("安装程序检测到系统安装过本程序的以前版本,/n请先卸载以前版本再继续此次安装。", WARNING);
              abort;
           endif;
       
     /************************************************/
   endif;
end;


// --- include script file section ---