我发现很多的同志不知道如何脱离自己的开发主机，在别人的计算机上独立运行。其实很简单，关键在于怎样在注册表中自动注册你的ASA数据源。
现在我把以前我发的帖子再发一次。希望对初学者有帮助！
大家用PB编好的程序，用安装软件（例如：InstallShile,InstallWais,Creatinstall等）安装打包后，在用户机上一使用就出现数据库没有连接等问题，原因就是我们没有在WINDOWS的注册表中注册我们的数据源。怎样注册呢？现在我来说一下：
首先我们用安装软件把我们的主运行文件要注册到注册表中的HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths里，在这里我的主应用程序是idmis.exe，数据库文件是wts.db。数据库是PB8自带的ASA 7数据库，原来的ASA 5数据库的文件和ASA 7不一样，要注意。
"注册表注册数据源"（w_regdatasorce）的OPEN事件：
string ls_keyname
string ls_valuename
string ls_value
int li_a,li_a1,li_a2,li_a3,li_a4,li_a5,li_a6,li_a7
string ls_DBdriver,ls_DBstart,ls_DBlocation,LS_wtslocation,ls_dbname,ls_db_dbeng7
//获取本软件的目录，并保存在ls_location里
registryGet("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\idmis.exe","Path",ls_wtslocation)
ls_DBdriver=LS_wtslocation+"\dbodbc7.dll"
ls_DB_dbeng7=LS_wtslocation+"\dbeng7.exe"
LS_DBNAME=LS_wtslocation+"\WTS.db"
ls_dbstart=LS_wtslocation+"\dbeng7.exe -d -c8m"
if not (fileexists(ls_DBdriver) and fileexists(ls_DB_dbeng7)) then
messagebox("错误!","没有安装Sybase ASA 7数据库，或者没有数据库主控文件！",StopSign!)
return
end if
//设置ODBC\ODBCINST.INI\ODBC DRIVERS
li_a=registrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\ODBC Drivers", &
+"Sybase ASA 7(函授学生信息查询数据库文件)", &
+RegString!,"Installed")
if li_a=-1 then
messagebox("错误！","应用程序无法在注册表中设置ODBC DRIVERS，请与作者联系！",StopSign!)
return
end if
//设置....ODBC\ODBCINST.INI
li_a1=registrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\Sybase ASA 7(函授学生信息查询数据库文件)", &
+"CPTimeout",RegString!,"not pooled")
li_a2=registrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\Sybase ASA 7(函授学生信息查询数据库文件)", &
+"Driver",RegString!,ls_DBdriver)
li_a3=registrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\Sybase ASA 7(函授学生信息查询数据库文件)", &
+"Setup",RegString!,ls_DBdriver)
if li_a1=-1 or li_a2=-1 or li_a3=-1 then
messagebox("错误！","应用程序无法设置注册表中ODBCINST.INI,请与作者联系！",StopSign!)
return
end if
//设置ODBC DATA SOURCE(ODBC数据源)，wts为数据源名称
li_a=registrySet("HKEY_LOCAL_MACHINE\Software\ODBC\ODBC.INI\ODBC Data Sources", &
+"wts",RegString!,"Sybase ASA 7(函授学生信息查询数据库文件)")
if li_a=-1 then
messagebox("错误！","应用程序无法设置注册表ODBC DATA SOURCE,请与作者联系！",StopSign!)
return
end if
li_a=RegistrySet('HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\wts','driver',RegString!,ls_DBdriver)
li_a1=RegistrySet('HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\wts','start',RegString!,ls_dbstart)
li_a2=RegistrySet('HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\wts','autostop',RegString!,'yes')
li_a3=RegistrySet('HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\wts','DataBaseFile',RegString!,LS_DBNAME)
li_a4=RegistrySet('HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\wts','DataBaseName',RegString!,'wts')
li_a5=RegistrySet('HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\wts','EngineName',RegString!,'函授学生信息查询系统')
li_a6=RegistrySet('HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\wts','PWD',RegString!,'sql')
li_a7=RegistrySet('HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\wts','UID',RegString!,'dba')
IF li_a=-1 OR li_a2=-1 OR li_a3=-1 OR li_a4=-1 OR li_a1=-1 or li_a5=-1 or li_a6=-1 or li_a7=-1 THEN
Messagebox('错误','应用程序无法设置ODBC.INI，系统将终止运行！',StopSign!)
RETURN
END IF
如果你要设置用户级的ODBC连接请对下面的键值进行设置：
置'HKEY_current_user\software\odbc\ODBC.INI'
内容都是一样的。看看自己WINDOWS中的ODBC设置，有没有变化？？
好人作到底！我在付上脱离环境后所需的.DLL文件：
pbvm8.dll //PB虚拟机
pbdwe8.dll //DW引擎
PBODB8.DLL //ODBC配置文件
PBODB8.INF //同上
DBODBC7.DLL //数据库连接文件
DBENG7.EXE //数据库启动文件。如果你是网络运行，那么就是DBSERV7.EXE
libjcc.dll //我不知道 :-P
如果你有RICH TEXT对象控件，则： pbrtc.dll
如果你有OLE对象，则：pbole7.dll
好了没有，你成功了吗？？ 
|
本类阅读TOP10