InstallShield制作带ODBC的安装软件

接着在compenents中添加ODBC3.51对象运行文件，配置数据库，对目标机器进行ODBC组建安装，如图六

图六 数据组建添加

　　总算罗嗦完了图形设置，接下去选择script看一看程序，installshield主程序结构通常是以program开始，endprogram结尾的，他相当于c语言中的main主入口函数，但是在installshield6.22中我们看到的只有两个功能函数：Onfirstuibefore,onmoving来处理安装过程，其实他的主函数已经被installsheild给打包了，所以我们要添加我们需要的效果是只要在这两个函数修改即可。其中Onfirstuibefore主要用来控制安装过程，onmoving主要用来控制显示效果。首先我们来设置安装时候的背景颜色，Onfirstuibefore函数的begin 后面添加源代码，在程序如下：

SetTitle( @TITLE_MAIN, 24, WHITE );//设置背景显示文字 SetTitle( @TITLE_CAPTIONBAR, 0, BACKGROUNDCAPTION );//安装开始提示软件名 Enable( FULLWINDOWMODE );?//背景全屏 Enable( BACKGROUND );//显示背景 SetColor(BACKGROUND,BK_BLUE|BK_SMOOTH);//背景色为蓝色渐变

　　有了背景，还得要给自己的程序加把锁——添加序列号，首先我们在Onfirstuibefore函数的变量声明中添加一个整型number nCount;用来纪录输入序列号的次数，然后在Onfirstuibefore函数中Dlg_SdRegisterUserEx后面添加代码：

....... Dlg_SdRegisterUserEx: szMsg = ""; szTitle = "";? nResult = SdRegisterUserEx( szTitle, szMsg, szName, szCompany, szSerial ); if (nResult = BACK) goto Dlg_SdShowInfoList; //输入序列号！ if (szSerial!="123123")&&(nCount<3) then 　nCount=nCount+1; 　MessageBox("输入序列号不正确，请重新输入！",INFORMATION); 　goto Dlg_SdRegisterUserEx; endif; if nCount=3 then 　MessageBox("输入已超过三次，请申请序列号后再安装！",INFORMATION); 　abort; endif; //序列号验证 ......

　　最后我们要进行数据库注册，为了弄清楚建立数据库后注册表的变化，先在控制面板的管理工具得数据源中建立一个以Drive do Microsoft Access(*.mdb)为驱动的Access数据源，然后我们看一下注册表中的变化，在开始的运行中输入regedit进入注册表，在HKEY_USERS中的S-1-5-21-796845957-606747145-839522115-500的子键SOFTWARE目录下的ODBC目录下ODBC.ini发现我们了我们刚才建立的数据源，选择该项，在注册表的右边出现如图七所示几项键值：

图七 注册表项

　　其中第一项无需设置，我们从第二项开始DBQ，他是数据库（*.mdb）的位置；第三个键值是Access的组建驱动，一般系统都包含这个动态连接库；第四个是驱动标志为十六进制的19；第五个说明了ODBC数据源的类型为微软的Access；第六个是安全标志一般都为0；第七个是用户ID莫认为空。好了，我们现在清除了注册表机制，那么我们就可以删掉我们手工建的数据源，因为我们的将要用程序来实现数据库的注册，在Onfirstuibefore函数的return 0前面加入代码如下：

......//注册表注册 RegDBSetDefaultRoot ( HKEY_CURRENT_USER ); if(RegDBKeyExist("Software\\ODBC\\ODBC.INI\\oil")<0) then 　if(RegDBKeyExist("Software\\ODBC\\ODBC.INI")<0) then 　　if(RegDBKeyExist("Software\\ODBC")<0) then 　　　RegDBCreateKeyEx ("Software\\ODBC",""); 　　endif; 　　RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI",""); 　endif; 　RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI\\oil",""); else 　RegDBDeleteKey ("Software\\ODBC\\ODBC.INI\\oil"); 　RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI\\oil",""); endif; if(RegDBKeyExist("Software\\ODBC\\ODBC.INI\\ODBC Data Sources")<0) then 　RegDBCreateKeyEx ("Software\\ODBC\\ODBC.INI\\ODBC Data Sources",""); endif; RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\oil", "DBQ" , REGDB_STRING , TARGETDIR+"\\data\\se.mdb" , -1); RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\oil", "Driver" , REGDB_STRING , WINSYSDIR+"\\odbcjt32.DLL" , -1); RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\oil", "FIL" , REGDB_STRING , "MS Access;" , -1); RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\oil", "UID" , REGDB_STRING ,"" , -1); RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\oil", "DriverID" , REGDB_NUMBER ,"25" , -1); RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\oil", "SafeTransactions" , REGDB_NUMBER ,"0" , -1); RegDBSetKeyValueEx ( "Software\\ODBC\\ODBC.INI\\ODBC Data Sources", "oil" , REGDB_STRING ,"Driver do Microsoft Access (*.mdb) " , -1); ...... 呵呵，剩下的就是在桌面上创建一个快捷方式了我们在Onfirstuibefore函数里面加入： //创建快捷方式 if(SprintfBox(OK|CANCEL,"请选择","%S","您想在桌面上创建快捷方式？")) then 　　AddFolderIcon(FOLDER_DESKTOP,"**软件",TARGETDIR+"OIL.exe",TARGETDIR,TARGETDIR+"\\media\\GREEN.ICO",0,"",REPLACE); endif; AddFolderIcon(FOLDER_PROGRAMS,"**软件",TARGETDIR+"oil.exe", 　　　　　　　　　TARGETDIR,TARGETDIR+"\\media\\Applications HotSync.ico",0,"",REPLACE); return 0;

　　结束语：

　　其实不一定是ODBC数据库，其他的如sql、oracle等等数据库都可以先手动创建一个数据源然后看一下注册表的变化，我们就知道怎样用程序来添加数据源了，大家可以举一反三。最后感谢vc知识库，他给了我很大的帮助，里面有很多同道中朋友的精诚奉献。

查看本文来源