PowerBuilder中生成应用程序

1、/使用代码配置ODBC数据源（以Adaptive Server Anywhere 9.0为例）/*了解注册表相关信息HKEY_LOCAL_MACHINESOFTWAREODBCODBCINST.INIODBC DRIVERS存放已经注册的ODBC数据源驱动程序HKEY_LOCAL_MACHINESoftwareODBCODBCINST.INI下可对已经注册的ODBC数据源驱动程序进行设置HKEY_LOCAL_MACHINESoftwareODBCODBC.INIODBC Data Sources下存放数据源名称及其驱动程序类型HKEY_LOCAL_MACHINESoftwareodbcodbc

2、.ini下存放已经注册的ODBC数据源的具体细节KYEY_LOCAL_MACHINESoftwareMicrosoftwindowsCurrentVersionApp Paths下存放应用程序安装到用户计算机上后在注册表中注册的应用程序名HKEY_LOCAL_MACHINESoftwareMicrosoftwindows NTCurrentVersion下存放当前计算机中windows安装的相应信息（包括安装路径等）*/问题：如何找到相应的数据库驱动程序这些文件可以在注册表的HKEY_LOCAL_MACHINESoftwareODBCODBCINST.INI下相应键中找到。如asa9.0为db

3、eng9.EXE、dbodbc9.dll。必备函数：RegistryGet（ Key，Valuename，Valuetype，Value）功能：在PowerBuilder程序中读取注册表中的信息。RegistrySet（ Key，Valuename，Valuetype，Value）功能：在PowerBuilder程序中设置注册表中的信息。Key表示主键； Valuename表示键值名； Valuetype表示键值类型；Value表示键值。/一、设置程序所需要的变量Ulong ul_numInt answer,answer1,answer2,answer3,answer4,answer5,ans

4、appString ls_driver,ls_start,ls_location,app_path,db_path,odbcstr/二、判断windows安装路径下是否有Adaptive Server Anywhere 9.0的驱动程序/步骤1：/取windows xp或windows 2000安装目录,并保存到ls_location变量answer=ReGIStryGet("HKEY_LOCAL_MACHINESoftwareMicrosoftwindows NTCurrentVersion","SystemRoot",RegString!,ls_lo

5、cation)IF answer = -1 THENMessagebox('错误','应用程序无法获取windows的安装目录，系统将终止运行！',Stopsign!)RETURNEND IF/步骤2：/判断Adaptive Server Anywhere 9.0的驱动程序是否正确安装ls_driver=ls_location+'dbodbc9.dll'ls_start=ls_location+'dbeng9.EXE'IF NOT (ls_driver) AND (ls_start) THENMessagebox('错误&

6、#39;,'系统中没有安装Adaptive Server Anywhere 9.0的驱动程序，系统将终止运行！',StopSign!)RETURNelsemessagebox("信息"," Adaptive Server Anywhere 9.0驱动程序已经安装!")END IF/三、在ODBC中注册Adaptive Server Anywhere 9.0驱动程序/步骤1：/设置ODBCODBCINST.INIODBC DRIVERSanswer=ReGIStrySet('HKEY_LOCAL_MACHINESOFTWAREODB

7、CODBCINST.INIODBC DRIVERS','Adaptive Server Anywhere 9.0',RegString!,'Installed')IF answer = -1 THENMessagebox('错误','应用程序无法设置ODBC DRIVERS，系统将终止运行！',StopSign!)RETURNEND IF/步骤2：/设置ODBCODBCINST.INIanswer1=ReGIStrySet('HKEY_LOCAL_MACHINESoftwareODBCODBCINST.INIAda

8、ptive Server Anywhere 9.0','Driver',RegString!,ls_driver)answer2=ReGIStrySet('HKEY_LOCAL_MACHINESoftwareODBCODBCINST.INIAdaptive Server Anywhere 9.0','Setup',RegString!,ls_driver)IF answer1 = -1 OR answer2 = -1 THENMessagebox('错误','应用程序无法设置ODBCINST.INI，系统将终止运行

9、！',StopSign!)RETURNEND IF/四、在注册表中设置ODBC数据源/步骤1：/设置ODBC DATA SOURCE名称（anysql为数据源名）answer=ReGIStrySet('HKEY_LOCAL_MACHINESoftwareODBCODBC.INIODBC Data Sources','anysql',RegString!,'Adaptive Server Anywhere 9.0')IF answer = -1 THENMessagebox('错误','应用程序无法设置ODBC DA

10、TA SOURCE名称，系统将终止运行！',StopSign!)RETURNEND IF/步骤2：/获取应用程序的安装路径（ybinput为应用程序安装到用户计算机上后在注册表中注册的应用程序名，yibiao.db为应用程序的数据库名，与应用程序在同一目录下，anysql为数据源名）ansapp = ReGIStryGet("KYEY_LOCAL_MACHINESoftwareMicrosoftwindowsCurrentVersionApp Pathsybinput","Path",RegString!,app_path)IF ansapp =

11、 -1 THENMessagebox('错误','应用程序无法获取安装路径名，系统将终止运行！',StopSign!)RETURNELSEdb_path=app_path+'yibiao.db'END IF/*备注如果当前计算机已经安装了Adaptive Server Anywhere 9.0驱动程序可以跳过步骤1和步骤2，直接使用以下三条语句db_path='c:pbtest1database.db'ls_driver='c:pbtet1'+'dbodbc9.dll'ls_start='c

12、:pbtest1'+'dbeng9.EXE'*/步骤3：/设置ODBC.INI的细节answer1 = ReGIStrySet('HKEY_LOCAL_MACHINESoftwareodbcodbc.inianysql','driver',RegString!,ls_driver)answer2 = ReGIStrySet('HKEY_LOCAL_MACHINESoftwareodbcodbc.inianysql','start',RegString!,ls_start)answer3 = ReGIStry

13、Set('HKEY_LOCAL_MACHINESoftwareodbcodbc.inianysql','autostop',RegString!,'yes')answer4 = ReGIStrySet('HKEY_LOCAL_MACHINESoftwareodbcodbc.inianysql','Database)answer5 = ReGIStrySet('HKEY_LOCAL_MACHINESoftwareodbcodbc.inianysql','DatabaseName',RegStr

14、ing!,'yibiao')IF answer1 = -1 OR answer2 = -1 OR answer3 = -1 OR answer4 = -1 OR answer5 = -1 THENMessagebox('错误','应用程序无法设置ODBC.INI细节，系统将终止运行！',StopSign!)RETURNEND IF备注：在这个步骤3中也可以在HKEY_CURRENT_USERSoftwareodbcodbc.inianysql下设置START项有许多参数，“-C 8M”设置初始高速缓存大小8M，一般建议64M。“-Q”安静模式 。

15、-D禁用异步 I/O Windows NT 、NetWare。-M对于所有数据库，在每个检查点之后截断事务日志。/五、使用前面在注册表中注册的ODBC数据源连接数据库odbcstr = 'dsn=anysql'sqlca.dbms = 'odbc'SQLCA.AutoCommit = Falsesqlca.dbparm = "connectstring='"+odbcstr+"uid=dba;pwd=sql'"connect using sqlca;open(w_main)6 / 6文档可自由编辑打印/编译执行文件图一 新建应用程序工程图二 填写执行文件所需的信息l 图二中信息的填写在图二中最顶端的两行分别填写执行文件名，执行文件所需的资源列表文件名。Project build options栏中注意要选择full build表示全部编译Code generation option栏中选择生成机器代码Version栏中填写版权信息Library栏中选中所有pbl库文件的dll复选框，如果需要的话可在其后填入相应得资源列表文件名l 编译执行文件所需的resource 解