使用install shield 打包数据库应用程序完整过程版本1

制作数据库应用程序打包过程（SQL 2005 + EXE程序+若干配置文件）

1.判断系统的环境

  a.判断系统是否安装WINDOWS INSTALLER 可用高级版本，因为msi script项目必须要求此环境。

 prototype InstallWInstaller(); //function InstallWInstaller() STRING szWaitMsg;begin szWaitMsg = "Detecting your WINDOWS INSTALLER Edition£¬Please wait......"; SdShowMsg(szWaitMsg,TRUE); if (LaunchAppAndWait(WinInstaller,"",NOWAIT)<0)then MessageBox ("Unable to launch "+ WinInstaller +".",SEVERE); endif; //MessageBox ("The SQL Database Setup will now exit.", INFORMATION); end;

  b.判断系统是否安装了.NET Framework 2.0 ,比为必须项目
prototype CheckDotNet();function CheckDotNet() STRING subKey;begin RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE); subKey = "SYSTEM//CurrentControlSet//Services//.NETFramework"; if (RegDBKeyExist(subKey)<0) then MessageBox("It has been detectived that your computer has no DOTNET.Framework Environment,you are now installing automaticly!", INFORMATION); // install the dotnet framework environment(make sure that your 'dotnetfx.exe' is in your 'Support files') if (LaunchAppAndWait(SUPPORTDIR^"dotnetfx.exe","",WAIT)<0)then MessageBox ("Unable to install .NET FRAMWORL Environment into this system!",SEVERE); abort; endif; else MessageBox (" .NET FRAMWORL Environment Normal,Please wait for next step! ",SEVERE); endif;end;

c.检测是否安装了SQL数据库服务器，如果没有，则自动安装SQL SERVER EXPRESS EDITION 2005

//------------------check that whether your system has installed the sql server------------//version 1: prototype CheckSQL(); // check that whether your system has installed the sql server function CheckSQL() STRING subKey;begin RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE); subKey = "SOFTWARE//Microsoft//Microsoft SQL Server"; if (RegDBKeyExist(subKey)<0) then MessageBox("It has been detectived that your computer has no any SQL management software!you are now installing......", INFORMATION); else MessageBox("your computer has a SQL system,you are now installing the data what this software needed.......", SEVERE); return BACK; abort; endif;end;//version 2:prototype CheckSQL2();// check that whether your system has installed the sql server function CheckSQL2() STRING szKey, szName,svValue, szMsg; NUMBER nvSize,nvType;begin //SET THE KEY PATH szKey = "SOFTWARE//Microsoft//Microsoft SQL Server"; //SET THE PAHTNAME BELETH THE KEY szName = "InstalledInstances"; nvType = REGDB_STRING; RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE); if( RegDBGetKeyValueEx ( szKey, szName, nvType, svValue, nvSize ) < 0 ) then MessageBox("your computer has no any SQL management software!.", INFORMATION); else //Display the SQL info installed on the DESComputer szMsg = "%s/n%s/n %s"; SprintfBox (INFORMATION,"detecting your system status:",szMsg,"your computer has a SQL system ,","your own SQL system's default instance is¡êo",svValue); return BACK; abort; endif; end;//----------------------------------------------

//--------------------install the sqlserver ---------------------prototype InstallSQL(); //function InstallSQL() //declare InStallSQL function variables STRING szProgram,szCmdline,szMsg,path1,path2,szWaitMsg; STRING LAUNCH_WAIT_TEXT,LAUNCH_GO_TEXT,EXIT_TEXT; BOOL blaunchAndGo,blaunchAndWait,bExit; NUMBER nWait;begin //run the program in a normal window //Disable(BACKGROUND); //disable the back button Disable(BACKBUTTON); Enable(DEFWINDOWMODE); szWaitMsg = "We are now installing the SQL Server Express Edition...please wait......"; SdShowMsg(szWaitMsg,TRUE); Delay(3); Disable(BACKGROUND); //GET an option from the user szMsg = "SQL database setting:"; LAUNCH_WAIT_TEXT = "Server Edition "; LAUNCH_GO_TEXT = "Default Edition(AutoMatic)"; EXIT_TEXT = "Client Edition,(Personnal)"; AskOptions(EXCLUSIVE,szMsg, LAUNCH_WAIT_TEXT,blaunchAndWait, LAUNCH_GO_TEXT,blaunchAndGo, EXIT_TEXT,bExit); if !bExit then //set variables to pass to launchandwait //to indicate whether or not to wait if blaunchAndWait then nWait = WAIT; else nWait = NOWAIT; endif; //SQLPROGRAM = SUPPORTDIR^"NotePAD.EXE"; if (LaunchAppAndWait(SQLPROGRAM,"",nWait)<0)then MessageBox ("Unable to launch "+ SQLPROGRAM +".",SEVERE); endif; MessageBox ("The SQL Database Setup will now exit.", INFORMATION); endif;end;//--------------------------------------------------------------------

2.自定义窗口和脚本来获得安装好的数据库
  #define RES_DIALOG_ID 13001//13001//the dialog ID#define RES_DATANAME 1302 // the text ID //#define RES_DBNAME 15//#define RES_DBLogin 16//#define RES_DBPassword 17//#define RES_DBIPAddr 18 // above are self_defined controls #define RES_PBUT_NEXT 1304 // NEXT ID#define RES_PBUT_QUIT 1305 // QUIT ID#include "Ifx.h"export prototype IsExistDB(STRING); //check if exist the databasefunction IsExistDB(szDBName)BOOL bExist; NUMBER i; number nSize; STRING szTemp,sServer,sUser,sPassword;VARIANT objSQL;begin //Get Default Properties nSize = MAX_PATH; MsiGetProperty( ISMSI_HANDLE, "IS_SQLSERVER_SERVER", sServer, nSize); nSize = MAX_PATH; MsiGetProperty( ISMSI_HANDLE, "IS_SQLSERVER_USERNAME", sUser, nSize); nSize = MAX_PATH; MsiGetProperty( ISMSI_HANDLE, "IS_SQLSERVER_PASSWORD", sPassword, nSize); objSQL = CreateObject("SQLDMO.SQLServer"); bExist = FALSE; if IsObject(objSQL) then MessageBox("succeed in create the sql object!",INFORMATION); MessageBox(sServer+ " "+sUser+" " + sPassword,INFORMATION); objSQL.Connect(sServer, sUser, sPassword); for i = 1 to objSQL.Databases.Count StrToUpper(szTemp, objSQL.Databases.Item(i).Name); if (szTemp == szDBName) then bExist = TRUE; MessageBox("the database name has been exist! please change!",INFORMATION); return bExist; endif; endfor; return bExist; else MessageBox("failed in create the sql object!",INFORMATION); abort; Do(EXIT); endif;end;//--------------------------------------------------- export prototype ExFn_DefineDialog(HWND); //self_defined dialogfunction ExFn_DefineDialog(hMSI) STRING szDialogName, szDLLName, szDialog; STRING DBName,DBLogin,DBPassword,IPAddr; NUMBER nDialog, nResult, nCmdValue; BOOL bDone; HWND hInstance, hwndParent; STRING sValue;begin szDialogName = "SET The SQL DBName"; hInstance = 0;//default value szDLLName = ""; //default value szDialog = "";//if define the edit IDset null hwndParent = 0;//must be the default value '0' nResult = DefineDialog (szDialogName, hInstance, szDLLName, RES_DIALOG_ID, szDialog, hwndParent, HWND_INSTALL, DLG_MSG_STANDARD|DLG_CENTERED); //check the error if (nResult < 0) then MessageBox ("Error.", SEVERE); bDone = TRUE; abort; endif; bDone = FALSE; //loop repeat //show the dialog ComValue return the event in the dialog if normal return the Control ID nCmdValue = WaitOnDialog(szDialogName); //NumToStr(sValue,nCmdValue); //MessageBox(sValue,INFORMATION); switch (nCmdValue) case DLG_CLOSE: // close the dialog MessageBox ("you choose to close the window ?the install will now exit !", SEVERE); Do (EXIT); case DLG_ERR: MessageBox ("can not display the need information.", SEVERE); abort; case DLG_INIT: ; //initialnied case RES_PBUT_NEXT: MessageBox("Next button has been impressed...",INFORMATION); bDone = TRUE; CtrlGetText (szDialogName, RES_DATANAME, DBName);//GOT THE INPUT VALUE 'DANAME' MessageBox(DBName,INFORMATION); if (IsExistDB(DBName)) then MessageBox("The database name has already been in the system,please change your input......",INFORMATION); bDone = TRUE; ExFn_DefineDialog(0); else MessageBox("now create the database......",INFORMATION); MsiSetProperty(ISMSI_HANDLE,"MYDATABASE", DBName); MsiSetProperty(ISMSI_HANDLE,"MYDATADIR", TARGETDIR); //create the database //................................. endif; case RES_PBUT_QUIT: MessageBox("QUIT button has been impressed......",INFORMATION); bDone = TRUE; Do (EXIT);//cancel the install abort; endswitch; until bDone; //close the dialog EndDialog (szDialogName); //free the memory ReleaseDialog (szDialogName);end;//---------------------------------------------------

3.后续......在想要的窗口调用函数和自定义窗口即可。