HITSY 版 (精华区)

发信人: lyfe (修身养性), 信区: HITSY
标  题: PowerBuilder编程技巧十例(转载)
发信站: 哈工大紫丁香 (2002年04月06日13:20:52 星期六), 站内信件

【 以下文字转载自 Database 讨论区 】
【 原文由 lsnhit 所发表 】
PowerBuilder编程技巧十例
随着数据库技术在各行各业的广泛应用，作为企业级数据库前端开发工具的PowerBuild
er日益成为开发人员的得力助手。PowerBuilder以其开放的体系结构，友好的用户界面
和简洁高效的开发环境赢得了众多程序员的喜爱，连续多年被评为美国计算机界的年度
风云产品，在数据库开发工具领域占据了高达44％的市场份额。PowerBuilder进入我国
的时间不长，许多编程人员希望了解并掌握这一先进工具。在这里，笔者将自己平日用
PowerBuilder作开发的一些体会整理出来，奉献给大家。
PowerBuilder是由多个功能模块组成的可视化集成开发环境，是面向对象的开发工具，
用它可以方便地建立起基于Windows的分布式数据库应用。其功能模块分别完成应用管理
、窗口对象设计、菜单对象设计、数据窗对象设计和数据库查询等工作，这些功能模块
由于PowerBuilder提供的色彩丰富的工具条而被称作"Painter"（画板）。下文便依据各
模块作大的分类介绍相应的编程技巧。

一、有关应用的编程技巧

仅让应用程序运行一次的技巧:

有时需要限制一个PowerBuilder应用同时运行的实例（Instance）个数或仅让应用运行
一次，我们可以通过调用WindowsSDK函数或使用PowerBuilder的Handle()函数来实现。
先谈调用SDK函数的方法。为了调用SDK函数，需要在ApplicationPainter的菜单项Decl
are\GlobalExternalFunctions中定义：
FunctionuintGetModuleHandle(stringModuleName)Library"Kernel.exe"
FunctionuintGetModuleUsage(uintModuleHandle)Library"Kernel.exe"
下面这段程序写在Application的Open事件中。它先通过调用SDK函数GetModuleHandle(
)获得指定应用程序的句柄，然后调用GetModuleUsage()函数确定应用程序同时运行的实
例个数。
uint IApplHandle
int App_num
IApplHandle=GetModuleHandle("c:\rem\rem.exe")
if IApplHandle>0 then
App_num=GetModuleUsage(IApplHandle)
    if App_num>1 then
        Messagebox("注意","本程序已经运行!",Stopsign!)
        return
endif
endif
Open(w_main)
若需要限制应用同时运行的实例个数，比如仅允许同时运行N个实例，那么将上述程序中
的语句
“if App_num>1 then”改为“if App_num>N then”即可。
采用Handle()函数的方法更简洁一些，代码如下：
int hand
hand=Handle(this,TRUE)
If hand>0 then
Messagebox("注意","本程序已经运行!",Stopsign!)
Halt
else
Open(w_main)

endif
二、有关窗口的编程技巧

1、提供类似中文之星的实时帮助条

中文之星2.0版的链形菜单管理器提供了实时帮助条，增强了系统的易用性，在PowerBu
ilder中也可以实现类似的功能。当鼠标移动到窗口中的某些控制(Control)，如编辑器
、图片等时，会在鼠标附近自动产生帮助条，实时地提示操作要领。首先在窗口w_main
中任意位置定义一个黄底黑字的静态文本st_help，设定st_help.visible=false，st_h
elp.text=&Help；然后在该窗口模块的Declare\WindowFunctions...下定义函数show_h
elp()，其参数只有一个，参数名为text，类型为string，通过传值方式接收参数；无返
值。show_help()代码如下：
if st_help.visible then return
st_help.text=text
st_help.width=Len(st_help.text)*38
st_help.x=w_main.PointerX()
st_help.y=w_main.PointerY()+50
if st_help.x+st_help.width>w_main.Workspacewidth() then
st_help.x=w_main.Workspacewidth()-st_help.width
endif
if st_help.y+st_help.height>w_main.Workspaceheight() then
st_help.y=w_main.Workspaceheight()-st_help.height
endif
st_help.visible=true
接下来，我们就可以调用show_help()函数了。但PowerBuilder提供的所有控制均缺乏当
鼠标移至其上就触发的事件，显然，需要定义相应的用户事件。先选中准备定义用户事
件的控制，如某个单行编辑器，然后在窗口模块的菜单Declare\UserEvents...下，双击
PasteEventID:中的pbm_mousemove条目，将其拷贝至EventID下，取EventName为Mouseo
n，这样，我们就定义好了相应控制的用户事件Mouseon。我们可以在该控制的用户事件
Mouseon下，写下调用函数show_help()的语句：
if st_help.visiblethenHide(st_help) show_help("瞧!这便是实时帮助条!")

2、“跑马灯”的实现技巧

有时需要用一矩形条显示少量用户特别关心的信息，这条信息串首尾相连，向一个方向
循环滚动，我们通常将其称作“跑马灯”。证券业中常用“跑马灯”来显示不断变化的
股票行情；实际应用中也常通过“跑马灯”来监视是否死机。我们可以写一个简单的函
数running_horse()来实现“跑马灯”的显示。running_horse有两个参数，第一个参数
的参数名为textline，类型为string，传值；第二个参数的参数名为num，类型为int，
传值；函数返值类型为string。该函数的代码仅一句：
returnMid(textline,(num+1))+Left(textline,num)
下面就可以调用running_horse()函数了。先在一个窗口里定义好单行编辑器sle_runni
ng_horse，在该窗口的Open事件下写上：
sle_running_horse.text="Iamtestingrunning_horse!"
Timer(0.2)
然后在该窗口的Timer事件下调running_horse()，代码如下：
sle_running_horse.text=running_horse(sle_running_horse.text,1)
这样，当你打开这个窗口时，“跑马灯”便会运转起来。可以在程序中加些语句，适时
地增减sle_running_horse.text中的内容，你便会在“跑马灯”中看到相应变化的信息
。

三、有关菜单的编程技巧

右键菜单的实现技巧:

当你在相应的窗口或控制上按鼠标右键时，就会在鼠标所指位置弹出菜单，这就是右键
菜单。程序中支持右键菜单会为用户的操作带来许多方便，同时鼠标右键可以分担部分
左键的功能。右键菜单在证券期货业中的许多大型行情分析软件中得到了广泛的应用。
在PowerBuilder中实现右键菜单非常简单，仅两个步骤：1.设计相应菜单；2.在窗口或
控制的Rbuttondown事件下写上调用语句。先在MenuPainter中创建菜单rbuttonpop，rb
uttonpop有一个菜单条目(Menuitem)m_choice。然后在需要调用该菜单的窗口或控制的
Rbuttondown事件下写上：
m_rbutton popNewMenu
NewMenu=Createm_rbuttonpop
NewMenu.m_choice.PopMenu(PointerX(),PointerY())
至此，右键菜单制作完毕。上述语句中的NewMenu的数据类型为m_rbuttonpop，当你在相
应位置按鼠标右键时，弹出的菜单NewMenu是菜单m_rbuttonpop的一个实例（Instance）
。

四、有关数据窗的编程技巧

数据窗对象是PowerBuilder中最重要的概念之一，它是PowerBuilder应用区别于其它Wi
ndows应用的重要特征，同时也是PowerBuilder的价值所在。PowerBuilder应用通常通过
数据窗对象从数据库或其它数据源取得数据并加以显示，其数据的输入、添加、修改和
删除也大都通过数据窗对象来实现。故理解并掌握数据窗概念对于用好PowerBuilder具
有重要意义。下面给出了有关数据窗的几个编程技巧。

1、自动调整大小的数据窗

在PowerBuilder应用运行过程中，常常会用鼠标拖动窗口角以改变窗口大小，尤其是在
多文档窗口（MDI）中，通常有多个sheet存在的情况下，有时为了察看后面窗口中的数
据而将前面窗口缩小，但窗口缩小了，其中的数据窗并没有缩小，由此而不能方便地使
用数据窗的卷滚条，那么怎样使前面窗口中的数据窗大小随窗口的大小自动调整呢？很
简单，我们只需要在数据窗所在窗口的Resize事件下写上一句话：Resize(dw_datamon,
this.Workspacewidth()-50,this.Workspaceheight()-50)
其中dw_datamon是数据窗的名字，数字50可以调整。这样，你就拥有了一个会随窗口大
小变化而自动调整大小的数据窗了。卷滚条用起来很方便，不信试试。

2、Retrieve后不回卷的数据窗

我们经常面对一大堆数据，其具体体现就是数据窗很长，需要拉动垂直卷滚条才能看到
后面的数据，当你在包含长数据窗的窗口的Timer事件中写下Retrieve()语句后，令人气
恼的事情就会发生：Timer事件一执行，数据窗就翻回第一页；如果Timer事件执行的时
间间歇很短，那我们就永远没有足够的时间来察看后面的数据了。下面我们着手解决这
个问题。
可能你已经注意到了，每个数据窗都拥有两个与Retrieve有关的事件：Retrievestart和
Retrieveend，它们分别允许我们在Retrieve的前后干一些事，这正是我们所需要的。实
际上，就这两个事件，我们已经能够提出两个解决方案了。其一，在Retrievestart事件
中，保存当前数据窗中可见的
数据行；然后Retrieve;接着在Retrieveend事件中，恢复先前保存的数据行。其二，在
Retrievestart事件中，保存当前垂直卷滚块的位置；Retrieve后再恢复其位置。后者使
用了动态数据窗函数，实现起来更简洁一些，下面详细探讨。
假设你已设计好了一个在窗口w_datamon中的数据窗dw_datamon，现在可以先定义一个保
存垂直卷滚块位置的类型为string的Globle变量old_vspos，然后在该数据窗的Retriev
estart事件下输入以下语句以保存其位置：
old_vspos=this.dwDescribe("DataWindow.VerticalScrollPosition")
dw_datamon.SetRedraw(false)
在相应的Retrieveend事件下输入恢复垂直卷滚块位置的语句：
this.dwModify("DataWindow.VerticalScrollPosition="+old_vspos)
dw_datamon.SetRedraw(true)
这样，数据窗上的工作已做完。下面是相应窗口上的工作。该窗口的Open事件下：
dw_datamon.Settrans(sqlca)
dw_datamon.Retrieve()
timer(6)
该窗口的Timer事件下：
Setfocus(w_datamon)
Retrieve(dw_datamon)
至此，Retrieve后不会回卷的数据窗dw_datamon已经可以工作了。值得注意的是，数据
窗的排序分类等操作应在Retrieve前就在数据库表中完成，否则Retrievestart事件保存
的卷滚块位置很可能并不是你所期待的，换句话说，Retrievestart事件应发生在所有数
据窗操作之后；另外，在每次Retrieve后，应将处于该数据窗上的Focus移开，以免具有
焦点的数据窗的第一行第一列总要显示，故在窗口w_datamon的Timer事件中设置了Setf
ocus(w_datamon)这条语句。

3、依据条件改变数据颜色

    依据条件改变数据颜色是许多场合都要用到的重要功能，数据颜色的改变不仅引人
注目，而且能起到暗示作用，清楚地告诉用户价位的涨跌或状态的改变等。大多数证券
期货实时行情显示软件都提供了这种功能。在当前价位比其前一价位高时，当前价位数
据颜色变红，表示价位上涨；反之，颜色变绿，表示价位下跌；若当前价位与其前一价
位相等，则数据颜色不变。PowerBuilder没有提供解决这一问题的捷径，但我们仍可利
用动态数据窗来实现。先考虑一下实现的步骤，在Retrieve前需要把有关列的数据先保
存起来；Retrieve后我们获得了相应列的新数据；我们需要将上述二者作一比较，以确
定颜色的变化。值得指出的是，由于动态数据窗函数dwModify()只能用描述数据窗的模
式串作参数，不能接收变量作参数，故我们得想法把比较的结果传递给数据窗。为解决
这个问题，可以在定义数据窗时多定义几个空列，这几列不与数据库表中的列相对应，
它们作为存放比较结果的缓冲区。原则上若需要N列实时地变色，则需要N列缓冲区，就
应该多定义N个空列。下面给出了一个例子具体说明。
    这段程序写在某窗口的Timer事件中，该窗口内有数据窗dw_infor，其"buy"、"sel
l"列分别表示买价和卖价，需要实时地变颜色。为此，我们在数据窗dw_infor中多定义
了"buybuf"和"sellbuf"两列，分别存放"buy"列和"sell"列Retrieve前后数据比较的结
果。
//Red=255;Green=65280
int i,infor_rownum
decimalbuy_old[],sell_old[],buy_new[],sell_new[]
dw_infor.SetRedraw(false)
infor_rownum=dw_infor.RowCount()
FOR i=1 To infor_rownum
    buy_old[i]=dw_infor.GetitemNumber(i,"buy")
    sell_old[i]=dw_infor.GetitemNumber(i,"sell")
NEXT
dw_infor.retrieve()
FOR i=1 TO infor_rownum
    buy_new[i]=dw_infor.GetitemNumber(i,"buy")
    sell_new[i]=dw_infor.GetitemNumber(i,"sell")
NEXT
FOR i=1 TO infor_rownum
    dw_infor.Setitem(i,"buybuf",buy_new[i]-buy_old[i])
    dw_infor.Setitem(i,"sellbuf",sell_new[i]-sell_old[i])
NEXT
dw_infor.dwModify("buy.color='0~tif(buybuf>0,255,if(buybuf<0,65280,0))'")
dw_infor.dwmodify("sell.color="0~tif(sellbuf>0,255,if(sellbuf<0,65280,0))'")

dw_infor.setredraw(true)
我们看到，程序在Retrieve前后分别将"buy"和"sell";列的数据写进与其类型匹配的数
组中，然后将比较的结果分别写入"buybuf"和"sellbuf"列，最后用函数dwModify()改变
有关列的颜色。记住在该窗口的Open事件中设置事务对象并激活Timer事件。此外，还有
一些方法可以改变颜色，比如先在某些需要变颜色的行或列设置带颜色的长方形，同时
将其上面的数据窗中的数据设置成透明的，当条件改变时，可以通过改变数据窗后的长
方形的颜色来实现。

4、用Enter键替代Tab键切换栏目的数据窗

    许多情况下，PowerBuilder应用的数据是通过数据窗输入的，而且输入的数据是单
纯的数字数据，也就是说，输入内容完全可以通过敲击键盘右面的数字小键盘来完成。
但在实际使用中，数据窗栏目间的切换却要通过按键盘最左边的Tab键来实现，既不方便
又影响录入速度。如果能用Enter键替代Tab键切换栏目就好了。由于按Enter键是Windo
ws直接支持的消息，故我们可以使用用户事件来解决问题。在用户事件中，PowerBuild
er提供的一条pbm_事件对应Windows的一条或几条消息。我们在数据窗dw_datamon的用户
事件中选择pbm_dwnProcessEnter并命名为Enterkeydown。在该事件下写代码：
Send(Handle(this),256,9,Long(0,0))
This.SetActionCode(1)
这将把消息传递给Tab键，同时忽略Enter键的处理。
下面是一段用数据窗接收数据的完整的程序段，其中采用了用Enter键替代Tab键的代码
。当光标在每行最后一列时按Enter键，光标会移至下一行第一列；当光标在最后一行的
最后一列时按Enter键，会自动产生新行并将光标置于该行的第一列；在其它情况下按E
nter键，光标会移至当前行的下一列。这段程序仍然写在与pbm_dwnProcessEnter相对应
的用户事件Enterkeydown下：
IF This.AcceptText()<0 then
this.setactioncode(1)
return
endif
if this.getcolumn()=Long(This.DwDescribe("datawindow.column.count")) then
if this.getrow()=This.RowCount() then
this.insertrow(0)
this.scrolltorow(this.getrow()+1)
this.setcolumn(1)
this.setactioncode(1)
return
endif
endif
send(handle(this),256,9,long(0,0))
this.setactioncode(1)

5、数据从文本文件写入数据库表的捷径

许多情况下，文本文件中的数据排列顺序与数据库表中列的顺序一致，并且其数据类型
与数据库表中对应列的一致，要做的就是将该文件中的内容存入对应数据库表中。例如
在点对点通讯的情况下，一方把数据库表中的数据以文本文件格式存储并传送给另一方
，另一方要做的工作就是将收到的数据存入相同的数据库表中。PowerBuilder有多种方
式与文本文件打交道，比如使用ODBC的文本文件驱动器、采用DDE（动态数据交换）方式
、采用OLE方式或使用Cursor将文本文件逐行逐列读取并写入数据库表等。但在这种情况
下，还有一种更快捷的方法：使用ImportFile()函数将文本文件内容直接倒入数据库表
中。该函数用法为：
datawindowname.ImportFile(filename{,startrow{,endrow&
{,startcolumn{,endcolumn{,dwstartcolumn}}}}})
ImportFile()函数要求数据窗列的数据类型和列的排列顺序必须与文本文件中的数据相
匹配。在存储文本文件时要注意接收数据库对表的格式要求，比如在SYBASE中，表格的
列与列间是采用Tab键区分的，所以如果要用ImportFile()函数将文件内容写入SYBASE表
中，就要将相应文本文件的列与列间加入Tab键——这在文件形成时即可加入。下面的代
码将文件infor.txt写入数据窗dw_infor，并将与dw_infor对应的数据库表更新：
int impt
if (FileLength("c:\data\infor.txt")>0) then
    impt=dw_infor.ImportFile("c:\data\infor.txt")
if impt>0 then
dw_infor.settrans(sqlca);
update(dw_infor);
commit;
If sqlca.sqlcode=-1 then
messagebox("SQLERROR",sqlca.sqlerrtext)
endif
else
messagebox("注意","文件infor.txt写入失败!")
endif
endif
此外，ImportFile()函数还支持从文本文件的指定开始行列到结束行列读取并写入数据
；并且支持.dbf(dBase)文件的读写，这给原有台式数据库数据文件向新的分布式数据库
表中转换带来了极大的方便。

五、有关文件输出的编程技巧

1、打印前的模拟显示的编程技巧

在制作完一段文档或表格后，我们在正式打印输出前总希望看一下模拟显示的效果，看
看是否需要调整打印参数等。笔者在调试一个标签打印程序时就遇到了这个问题，标签
文档的输出格式正确与否、标签间的横竖间距恰当与否等均可通过模拟显示直观地看到
。总之，我们需要打印前的模拟显示。单纯写一段模拟显示程序并不难，但多思考一下
往往能找到好方法。在文件读写时需要有文件号、在用Socket编程时涉及到Socket号，
同样，多任务的操作系统管理进程时也采用了进程号——显然，整个软件系统都是采用
一些数据类型为整型的变量来管理它要处理的逻辑对象的。一台打印机有它的逻辑文件
名，在操作系统看来，它和磁盘上的一个文本文件没有两样。这样，向打印机输出与向
磁盘文件输出就统一起来了，我们就依据这个想法来写模拟显示程序。大家知道，打印
机的逻辑名是"PRN"，我们可以对此作与磁盘文件相同的处理。下面的程序可写于按钮c
b_print的Click事件下：
int retn,fileno
string filename,write_string
retn=Messagebox("提示","输出至打印机选,~r~n模拟显示(c:\simulate.txt)选,~r~n取
消选!",Information!,YesNoCancel!,1)
Choose Case retn
Case 1
sle_help.text="请准备好打印机!"
filename="PRN"
Case 2
filename="c:\simulate.txt"
Case else
Return
End Choose
fileno=FileOpen(filename,linemode!,write!,lockwrite!,replace!)
if fileno=-1 then
Messagebox("警告","设备文件<打印机>打开失败!",information!,ok!)
Return
endif
write_string="打印前的模拟显示!"
FileWrite(fileno,write_string)
FileClose(fileno)
if Upper(filename)="PRN" then
sle_help.text="文件打印完毕!"
else
Run("Notepad.exec:\simulate.txt",maximized!)
sle_help.text="模拟显示文件输出完毕!"
endif
这样，当需要模拟显示时，write_string被送往磁盘文件c:\simulate.txt，并调用Not
epad将其显示出来；当需要打印时，write_string被送往打印机。

六、结语
写作本文不仅想与读者交流编程技巧，还希望向读者提供一些有用的思路。PowerBuild
er不仅支持ODBC，而且支持MAPI，是企业级信息管理系统和Intranet应用开发的强大工
具。笔者深信，PowerBuilder的应用范围将更加广泛，随着应用的深化，必定会涌现出
更多优秀的PowerBuilder应用，并将在各行各业充分发挥作用。

--
欢迎访问偶的个人主页：
http://lsnhit.yeah.net
偶的Oicq:177869
    E-mail:lsnhit@sina.com

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.248.62]
※ 修改:·xhc 於 07月17日18:00:38 修改本文·[FROM: dip8.hit.edu.cn]
--
※ 转载:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: 202.118.226.245]