我最近公司叫我研究PowerBuilder,时间上比较紧,
我把应用程序建立起来了,怯发现应用程序没打包.
望帮帮...
------解决方案--------------------
------解决方案--------------------
用Setup Factory打包不错，数据库ＯＤＢＣ数据源别忘了注册，如下是我找的转帖，希望对你有帮助：
[转帖]用SETUP FACTORY打包PB程序
这是我第一次在自己的BLOG上发文，经过多次试验，终于用SETUP FACTORY成功的为PB程序打包。
SETUP FACTORY是一个非常简单的打包工具，本次打包的难点在于注册数据源（对于我来说！）
1、在脱离PB的环境下所需要的支持文件：
PB8的供参考：
序 文件名 日期 大小(KB) 作用
1 PBVM80.dll 01-05-25 4,405 PowerBuilder虚拟机，必须的
2 LIBJCC.dll 01-05-25 230 必须的???
3 PBDWE80.dll 01-05-29 2,092 数据窗口和报表
4 PBRTC80.DLL 01-05-25 873 丰富文本
5 PBAEN70.tlb 01-05-25 4 OLE自动服务器
6 PBODB80.dll 01-05-25 476 Powersoft ODBC接口
7 PBODB80.ini 01-05-25 67 Powersoft ODBC接口
8 DBENG7.exe 00-06-24 41 Adaptive Server Anywhere DataBase访问
9 DBODBC7.dll 00-06-24 500
10 PBMSS80.dll 01-05-25 258 MS SQL Server 6.5 后台数据库访问
11 NTWDBLIB.dll 96-12-17 270
12 NTWDBLIB.dll 00-08-17 272 MS Server 2k（打sp3后一定要用新版003-04-07）
13 DBNETLIB.dll 00-08-06 84 MS Server 2k 打sp3后用到）
14 DBBACKUP.exe 00-06-24 91 Adaptive Server Anywhere DataBase备份
15 DBLIB7.DLL 00-06-24 375
其中可能有多余的。这些文件在PB的安装目录下的Shared\PowerBuilder文件夹和SQL Anywhere 9\win32文件夹下均可找到。
2、在安装目录下建立文件config.ini，文件内容为：
[database]
dsn=test //根据具体的数据改变数值
uid=dba
pwd=sql
在APPLICATION中输入：
//从Config.ini文件中读取ODBC数据源信息
string lsDSN,lsUID,lsPWD
lsDSN = ProfileString("Config.ini","database","dsn","none")
lsUID = ProfileString("Config.ini","database","uid","none")
lsPWD = ProfileString("Config.ini","database","pwd","none")
// SQLCA配置
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Connectstring='DSN="+lsDSN+";UID="+lsUID+"WD="+lsPWD+"'"
3、在SF的“操作”－“关机时”代码栏中输入：（要读懂这些代码的大致意思，以便根据具体情况修改）
-- 从注册表中导入的值:
local AppDir = SessionVar.Get("%AppFolder%");
if (not Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "SOFTWARE\\ODBC\\ODBCINST.INI\\Adaptive Server Anywhere 9.0")) then
Registry.CreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\\ODBC\\ODBCINST.INI\\Adaptive Server Anywhere 9.0")
Registry.SetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\ODBC\\ODBCINST.INI\\Adaptive Server Anywhere 9.0", "Driver", AppDir.."\\dbodbc8.dll", REG_SZ)
Registry.SetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\ODBC\\ODBCINST.INI\\Adaptive Server Anywhere 9.0", "Setup", AppDir.."\\dbodbc8.dll", REG_SZ);
Registry.CreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\\ODBC\\ODBCINST.INI\\ODBC Drivers")
Registry.SetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\\ODBC\\ODBCINST.INI\\ODBC Drivers", "Adaptive Server Anywhere 9.0", "Installed", REG_SZ);
end
local dsnName = "test";
--判段ODBC数据源是否存在，如果存在则改名，自动在原名字上加"1"
while Registry.DoesKeyExist(HKEY_LOCAL_MACHINE, "Software\\ODBC\\ODBC.INI\\"..dsnName) do
dsnName = dsnName.."1"
end
--修改注册表，注册ODBC数据源
Registry.CreateKey(HKEY_LOCAL_MACHINE, "Software\\ODBC\\ODBC.INI\\"..dsnName)
Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\ODBC\\ODBC.INI\\"..dsnName, "Driver", AppDir.."\\dbodbc9.dll", REG_SZ);
Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\ODBC\\ODBC.INI\\"..dsnName, "UID", "dba", REG_SZ);
Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\\ODBC\\ODBC.INI\\"..dsnName, "PWD", "sql", REG_SZ);