---- PFC是PowerBuilder高级开发工具集中
个基本类库
提供了进行般应用开发时会经常用到对象和
代码
PowerBuilder 5.0基本类库中内容十分丰富比以前版本中所提供功能要增加了许多而且对象的间继承和引用关系也比以前更为清晰合理因此编写个完全建构在PFC类库的上应用可大大提高软件Software质量而且利用基类已有代码也会使得许多复杂功能实现起来要轻松得多 ---- 本文将根据笔者使用PFC
经验介绍如何创建PFC应用 ---- 1、首先在C盘新建
个目录Test启动PowerBuilder5.0创建个新应用并将应用对象保存在Test.pbl中将应用取名为test保存时不使用PB提供快速模板 ---- 2、进入应用
“Properties”(属性)中选中“Libraries”标签单击“Browes…”按钮选中C:\Pwrs\Pb5i32\Adk\pfc目录下全部8个pbl文件:pfcapsrv.plb、pfcdwarv.pbl、pfc
.pbl、pfcwnsrv.pbl、pfeapsrv.pbl、pfedwarv.pbl、pfe.pbl、pfewnsrv.pbl单击“打开”按钮再单击“Apply”按钮然后选中“Variable Types”标签将“SQLCA:”中“transaction”改为“n_tr”单击“OK”按钮保存对属性修改 ---- 3、新建
个“User Object”(用户对象)单击“Inherit…”(继承)按钮在“Application Libraries”中选中“PFEAPSRV.PBL”在“User Objects”中选中“n_cst_appmanager”单击“OK”按钮在其“pfc_open”事件中写入以下登录数据库
(以SQL Server为例): //pfc_open for n_cst_test inherited
n_cst_appmananger
s (none) SQLCA.DBMS=ProfileString
("PB.INI","Database","DBMS", " ")
SQLCA.Database=ProfileString
("PB.INI","Database","DataBase"," ")
SQLCA.LogID=ProfileString
("PB.INI","Database","LogID", " ")
SQLCA.LogPass=ProfileString
("PB.INI","Database","LogPassword"," ")
SQLCA.ServerName=ProfileString
("PB.INI","Database","ServerName"," ")
SQLCA.UserID=ProfileString
("PB.INI","Database","UserID"," ")
SQLCA.DBPass=ProfileString
("PB.INI","Database","DatabasePassword", " ")
SQLCA.Lock=ProfileString
("PB.INI","Database","Lock"," ")
SQLCA.DbParm=ProfileString
("PB.INI","Database","DbParm"," ")
Connect Using SQLCA;
If SQLCA.sqlcode < > 0 Then
MessageBox("Cannot Connect to Database",
SQLCA.sqlerrtext,StopSign!)
Halt Close
Return
End If
Open(w_frame_test) //打开应用
主窗口(假设为w_frame_test) ---- 将该用户对象保存为n_cst_test
---- 4、进入应用
“Script”中选择“Declare/Global Variables…”菜单定义全局变量: n_cst_appmanager gnv_app //该全局变量
名称必须为gnv_app 并在该应用
open事件和close事件中分别写入以下: //open for test
s (none) gnv_app = Create n_cst_test
gnv_app.Event pfc_open(commandline)
//close for test
s (none) gnv_app.Event pfc_close
Destroy n_cst_appmanager
---- 经过上述步骤后
我们所要PFC应用总体械架就形成了剩下就是具体编程工作了本人在此不再赘述
最新评论