PowerBuilder中生成应用程序（精选）.doc

文档介绍：//使用代码配置ODBC数据源(以Adaptive Server Anywhere )
/*
了解注册表相关信息
HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\\ODBC DRIVERS存放已经注册的ODBC数据源驱动程序
HKEY_LOCAL_MACHINE\Software\ODBC\
HKEY_LOCAL_MACHINE\Software\ODBC\\ODBC Data Sources下存放数据源名称及其驱动程序类型
HKEY_LOCAL_MACHINE\Software\odbc\
KYEY_LOCAL_MACHINE\Software\Microsoft\windows\CurrentVersion\App Paths下存放应用程序安装到用户计算机上后在注册表中注册的应用程序名
HKEY_LOCAL_MACHINE\Software\Microsoft\windows NT\CurrentVersion下存放当前计算机中windows安装的相应信息(包括安装路径等)
*/
问题:如何找到相应的数据库驱动程序
这些文件可以在注册表的HKEY_LOCAL_MACHINE\Software\ODBC\。、。
必备函数:
RegistryGet( Key,Valuename,Valuetype,Value)
功能:在PowerBuilder程序中读取注册表中的信息。
RegistrySet( Key,Valuename,Valuetype,Value)
功能:在PowerBuilder程序中设置注册表中的信息。
Key表示主键; Valuename表示键值名; Valuetype表示键值类型;Value表示键值。
//一、设置程序所需要的变量
Ulong ul_num
Int answer,answer1,answer2,answer3,answer4,answer5,ansapp
String ls_driver,ls_start,ls_location,app_path,db_path,odbcstr
//二、判断windows安装路径下是否有Adaptive Server Anywhere
//步骤1:
//取windows xp或windows 2000安装目录,并保存到ls_location变量
answer=ReGIStryGet("HKEY_LOCAL_MACHINE\Software\Microsoft\windows NT\CurrentVersion","SystemRoot",RegString!,ls_location)
IF answer = -1 THEN
Messagebox('错误','应用程序无法获取windows的安装目录,系统将终止运行!',Stopsign!)
RETURN
END IF
//步骤2:
//判断Adaptive Server