信阳信息网
健康
当前位置:首页 > 健康

InstallShield制作带ODBC的安装软件

发布时间:2019-09-13 19:58:59 编辑:笔名

接着在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知识库,他给了我很大的帮助,里面有很多同道中朋友的精诚奉献。查看本文来源

什么药能治小儿积食发热
宝宝脸色发黄什么原因
十个月宝宝便秘怎么办
孩子过敏性咳嗽怎么办