Power Builder编程技巧十例

广告招租收藏本页

联系我们

论坛帮助

xxlcbz 重登隐身信息搜索风格状态设施服务退出

>> 探讨PB高级应用技巧，本板块内容为PowerBuilder开发综合版块。我的收件箱 (0) https://www.360docs.net/doc/ad2228260.html, → PB软件开发→高级开发技巧→ Power Builder编程技巧十例

您是本帖的第 935 个阅读者

* 贴子主题：Power Builder编程技巧十例

琳子

头衔：昕晨空间

等级：管理员

威望：2

门派：灵漪涧

文章：1131

精华：57

积分：2615

魅力：2063

股票：0.53

现金：12397

存款：257094

财产：269,491.53

注册：2003-8-24

个人文集个人精华

鲜花(0) 鸡蛋(0) 楼主

Power Builder编程技巧十例

一、有关应用的编程技巧仅让应用程序运行一次的技巧:

有时需要限制一个PowerBuilder应用同时运行的实例（Instance）个数或仅让应用运行一

次，我们可以通过调用WindowsSDK函数或使用PowerBuilder的Handle()函数来实现。

先谈调用SDK函数的方法。为了调用SDK函数，需要在ApplicationPainter的菜单项Declare\GlobalExternalFunctions中定义：

FunctionuintGetModuleHandle(stringModuleName)Library"Kernel.exe" FunctionuintGetModuleUsage(uintModuleHandle)Library"Kernel.exe"

下面这段程序写在Application的Open事件中。它先通过调用SDK函数GetModuleHandle()

获得指定应用程序的句柄，然后调用GetModuleUsage()函数确定应用程序同时运行的实例

个数。

uint IApplHandle

int App_num

IApplHandle=GetModuleHandle("ocmis.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

郑重声明：请尊重作者劳动成果，如需转载，转载请注明原创和本贴来自昕晨论坛。

----------------------------------------------

昕晨空间欢迎你：https://www.360docs.net/doc/ad2228260.html,

----------------------------------------------

2004-1-1 1:10:00 论坛新手登陆后，5分钟才能发贴，请先仔细浏览一下论坛琳子

头衔：昕晨空间

等级：管理员

威望：2

门派：灵漪涧

文章：1131

精华：57

积分：2615

魅力：2063

股票：0.53

现金：12397

存款：257094

财产：269,491.53

注册：2003-8-24

个人文集个人精华

第 2 楼

提供实时帮助条

1、提供实时帮助条

中文之星2.0版的链形菜单管理器提供了实时帮助条，增强了系统的易用性，在PowerBuilder中也可以实现类似的功能。当鼠标移动到窗口中的某些控制(Control)，如编辑器、图片等时，会在鼠标附近自动产生帮助条，实时地提示操作要领。

首先在窗口w_main中任意位置定义一个黄底黑字的静态文本st_help，设定

st_help.visible=false，st_help.text=&Help；然后在该窗口模块的

Declare\WindowFunctions...下定义函数show_help()，其参数只有一个，参数名为text，类型为string，通过传值方式接收参数；无返值。show_help()代码如下：

if st_help.visible then

return

endif

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为Mouseon，这样，我们就定义好了相应控制的用户事件Mouseon。我们可以在该控制的用户事件Mouseon下，写下调用函数show_help()的语句：

if st_help.visible then

Hide(st_help)

show_help("瞧!这便是实时帮助条!")

endif

郑重声明：请尊重作者劳动成果，如需转载，转载请注明原创和本贴来自昕晨论坛。

----------------------------------------------

昕晨空间欢迎你：https://www.360docs.net/doc/ad2228260.html,

----------------------------------------------

2004-1-1 1:10:00 论坛新手登陆后，5分钟才能发贴，请先仔细浏览一下论坛

琳子

头衔：昕晨空间

等级：管理员

威望：2

门派：灵漪涧

文章：1131

精华：57

积分：2615

魅力：2063

股票：0.53

现金：12397

存款：257094

财产：269,491.53

注册：2003-8-24

个人文集个人精华

第 3 楼

“跑马灯”的实现技巧

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

有时需要用一矩形条显示少量用户特别关心的信息，这条信息串首尾相连，向一个方向循环滚动，我们通常将其称作“跑马灯”。证券业中常用“跑马灯”来显示不断变化的股票行情；实际应用中也常通过“跑马灯”来监视是否死机。我们可以写一个简单的函数

running_horse()来实现“跑马灯”的显示。

running_horse有两个参数，

第一个参数的参数名为textline，类型为string，传值；

第二个参数的参数名为num，类型为int，传值；函数返值类型为string。

该函数的代码仅一句：

returnMid(textline,(num+1))+Left(textline,num)

下面就可以调用running_horse()函数了。先在一个窗口里定义好单行编辑器

sle_running_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中的内容，你便会在“跑马灯”中看到相应变化的信息。

郑重声明：请尊重作者劳动成果，如需转载，转载请注明原创和本贴来自昕晨论坛。

----------------------------------------------

昕晨空间欢迎你：https://www.360docs.net/doc/ad2228260.html,

----------------------------------------------

2004-1-1 1:11:00 网友可以每隔10分钟去社区财务领取一次工资

琳子

头衔：昕晨空间

等级：管理员

威望：2

门派：灵漪涧

文章：1131

精华：57

积分：2615

魅力：2063

股票：0.53

现金：12397

存款：257094

财产：269,491.53

注册：2003-8-24

个人文集个人精华

第 4 楼

通用右键菜单技术

对象被右键单击就弹出一个功能菜单是Windows应用程序一项不可缺少的功能

。在PowerBuilder应用开发中，可在需弹出右键菜单对象的rbuttondown事件中调

用该菜单的Popmenu( )方法实现这一功能。但多数情况下，应用中有多处要用到

不同的弹出式菜单，如一一用这种方法就需要做大量的工作。能不能做一个通用

的菜单，可以用任何对象的rbuttondown事件激发弹出，并在弹出前动态改变弹出

菜单项的内容，当点击菜单项时又可执行被右击对象的相应用户事件？由于这一

技术最大的特点是当函数创建成功后，可在任何应用的任何对象中随心所欲的使

用，随时随地弹出自己想要显示的菜单项，并执行相应的自己需要的功能脚本，

但目前各种资料上鲜有系统、成型的介绍。笔者抱着一种探索的态度，作了一番

仔细深入的研究，并小有收获，愿和大家共同探讨。

一、创建弹出菜单m_popup

创建一个菜单m_popup,定义菜单条m_main，其下有十五个菜单项，分别命名为m_ item1,m_item2,……m_item15,各项的显示文本(text)分别为item1,item2,……

item15；

为m_popup菜单定义一个Powero b j e c t类型的Instance变量：Anyo b j e c t 脚本为：

Powero b j e c t Anyo b j e c t

给m_item1,m_item2,……m_item15各菜单项的Clicked事件下分别输入脚本：

Anyo b j e c t.triggerevent("ue_item1")

//m_item1的clicked事件

Anyo b j e c t.triggerevent("ue_item2")

……

Anyo b j e c t.triggerevent("ue_item15")

---- 4、定义几个菜单函数：

---- 1) setmenuitem(string itemstring),返回值为Null。

---- 参数Itemstring是由多个子串组成的。各个子串间用“|”间隔，每个子串

为一个菜单项的显示文本(text)。

---- 该函数功能是把itemstring分解为多个子串，并把子串赋给相应菜单项的t ext。脚本如下：

int itempos,itemorder=1,i

string currentitem

if len(itemstring)=0 then return

itempos=pos(itemstring,"|")

DO WHILE itempos<>0

// itempos为间隔符"|"的位置

currentitem=left(itemstring,itempos -1)

//取出子串

itemstring=mid(itemstring, itempos+1)

this.m_main.item[itemorder].text=currentitem

itempos=pos(itemstring,"|")

itemorder++

LOOP

this.m_main.item[itemorder].text=itemstring

for i=1 to itemorder

this.m_main.item[i].visible=true

this.m_main.item[i].enabled=true

end if

for i=itemorder+1 to 15

this.m_main.item[i].visible=false

next

2）setitemdisable(integer itemorder) 返回值Null。

该函数把第itemorder菜单项置灰(disable)。

脚本如下：

if itemorder<1 or itemorder>15 then return

this.m_main.item[itemorder].enabled=false

3)popupmenu(integer x, integer y) 返回值Null。

该函数弹出菜单条m_main。

脚本如下：

this.m_main.popmenu(x,y)

二、 rbuttondown事件激发弹出菜单m_popup

---- 至此，我们就可以在窗口中任意对象如DataWindow、 Picture、 SingleLi neEdit、 ListBox、 PictureListBox、 DropDownPictureListBox、 MultiLine Edit、 ListView、 TreeView等的rbuttondown事件中写脚本调用m_popup的函数来实现右键单击弹出一个菜单。下面以数据窗口dw_1为例，在其rbuttondown事件下写入脚本，使得右击dw_1 可弹出菜单：刷新/插入/删除/修改。步骤如下：

1、事先给窗口定义一个m_popup 型instance变量om_1:

m_popup om_1

2、dw_1的rbuttondown事件脚本：

if not isvalid(om_1) then

om_1= CREATE m_popup

end if

//把菜单的anyo b j e c t指向被右击的对象(dw_1)

om_1.anyo b j e c t=this

om_1.setmenuitem("刷新|插入|删除|修改")

//可在此调用om_1.setitemdisable(itemorder)函数disable某

菜单项。

om_1.popupmenu(this.x+this.pointerx(),

this.y+this.pointery())

3、给dw_1定义用户事件ue_item1、ue_item2、ue_item3

及 ue_item4。

事件ue_item1脚本：

dw_1.retrieve()

事件ue_item2脚本：

long newrow

newrow=dw_1.insertrow(0)

dw_1.scrolltorow(newrow)

事件ue_item3脚本：

dw_1.deleterow(0)

事件ue_item4脚本：

dw_1.update()

---- 这样，只要用户单击dw_1弹出的右键菜单，就可完成对dw_1的插入、删除、

修改等功能。

三、推广为全程函数

---- 如果应用中有许多地方要用此功能，我们可以把dw_1的rbuttondown事件脚

本改造成一个全程函数。

---- 1、将变量om_1定义为global变量:

---- m_popup om_1

---- 2、定义一个全程函数

---- pupmenu(powero b j e c t sender,string itemstring,integer x,integer y) 返回值Null。其中参数sender为被右击的对象，itemstring为弹出菜单的菜单项

字符串，x、y为菜单弹出的坐标位置。

脚本如下：

if not isvalid(om_1) then

om_1= CREATE m_popup

end if

om_1.anyo b j e c t=sender

om_1.setmenuitem(itemstring)

sender.triggerevent("ue_beforepop")

//激活sender用户事件。

om_1.popupmenu(x,y)

这样，上述dw_1的rbuttondown事件脚本就可改写为：

string items="刷新|插入|删除|修改"

popmenu(this, items ,this.x+this.pointerx(),

this.y+this.pointery())

注意：在MDI 应用中，popmenu()函数需要改为：

popmenu(this, items ,w_frame.pointerx(),w_frame.pointery())

其中w_frame为MDI主窗口名。

---- 在函数popmenu中,又激活了被右击对象的ue_beforepop用户事件。如有必要

，你可以给被右击对象定义一个ue_beforepop事件，在该事件中可调用om_1.set itemdisable()函数来屏蔽某个菜单项。

---- 最后，别忘了在应用的close事件里加上下列语句，及时释放系统内存。

---- if isvalid(om_1) then destroy om_1

---- 以上代码在Windows98 和Powerbuilder6.5平台上开发，并在多个大型系统

中应用，效果很好。

郑重声明：请尊重作者劳动成果，如需转载，转载请注明原创和本贴来自昕晨论坛。

----------------------------------------------

昕晨空间欢迎你：https://www.360docs.net/doc/ad2228260.html,

----------------------------------------------

2004-1-1 1:12:00 论坛新手登陆后，5分钟才能发贴，请先仔细浏览一下论坛

琳子

头衔：昕晨空间

等级：管理员

威望：2

门派：灵漪涧

文章：1131

精华：57

积分：2615

魅力：2063

股票：0.53

现金：12397

存款：257094

财产：269,491.53

注册：2003-8-24

个人文集个人精华

第 5 楼

自动调整大小的数据窗

在PowerBuilder应用运行过程中，常常会用鼠标拖动窗口角以改变窗口大小，尤其是在多文档窗口（MDI）中，通常有多个sheet存在的情况下，有时为了察看后面窗口中的数据而将前面窗口缩小，但窗口缩小了，其中的数据窗并没有缩小，由此而不能方便地使用数据窗的卷滚条，那么怎样使前面窗口中的数据窗大小随窗口的大小自动调整呢？

很简单，我们只需要在数据窗所在窗口的Resize事件下写上一句话：

Resize(dw_datamon,this.Workspacewidth()-50,this.Workspaceheight()-50) 其中dw_datamon是数据窗的名字，数字50可以调整。这样，你就拥有了一个会随窗口大小变化而自动调整大小的数据窗了。卷滚条用起来很方便，不信试试。

郑重声明：请尊重作者劳动成果，如需转载，转载请注明原创和本贴来自昕晨论坛。

----------------------------------------------

昕晨空间欢迎你：https://www.360docs.net/doc/ad2228260.html,

----------------------------------------------

2004-1-1 1:13:00 网友可以每隔10分钟去社区财务领取一次工资

琳子

头衔：昕晨空间

等级：管理员

威望：2

门派：灵漪涧

文章：1131

精华：57

积分：2615

魅力：2063

股票：0.53

现金：12397

存款：257094

财产：269,491.53

注册：2003-8-24

个人文集个人精华

第 6 楼

Retrieve后不回卷的数据窗

我们经常面对一大堆数据，其具体体现就是数据窗很长，需要拉动垂直卷滚条才能看到后面的数据，当你在包含长数据窗的窗口的Timer事件中写下Retrieve()语句后，令人气恼的事情就会发生：Timer事件一执行，数据窗就翻回第一页；如果Timer事件执行的时间间歇很短，那我们就永远没有足够的时间来察看后面的数据了。下面我们着手解决这个问题。可能你已经注意到了，每个数据窗都拥有两个与Retrieve有关的事件：

Retrievestart和Retrieveend，它们分别允许我们在Retrieve的前后干一些事，这正是我们所需要的。实际上，就这两个事件，我们已经能够提出两个解决方案了。

其一，在Retrievestart事件中，保存当前数据窗中可见的数据行；然后Retrieve;接着在Retrieveend事件中，恢复先前保存的数据行。

其二，在Retrievestart事件中，保存当前垂直卷滚块的位置；Retrieve后再恢复其位置。后者使用了动态数据窗函数，实现起来更简洁一些，下面详细探讨。假设你已设计好了一个在窗口w_datamon中的数据窗dw_datamon，现在可以先定义一个保存垂直卷滚块位置的类型为string的Globle变量old_vspos，然后在该数据窗的Retrievestart事件下输入以下语句以保存其位置：

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事件中设置了Setfocus(w_datamon)这条语句。

郑重声明：请尊重作者劳动成果，如需转载，转载请注明原创和本贴来自昕晨论坛。

----------------------------------------------

昕晨空间欢迎你：https://www.360docs.net/doc/ad2228260.html,

----------------------------------------------

2004-1-1 1:13:00 论坛顶部菜单有强大的功能，请访问顶部菜单“社区设施”和“社区服务”，论坛使用1024*768

琳子

头衔：昕晨空间

等级：管理员

威望：2

门派：灵漪涧

文章：1131

精华：57

积分：2615

魅力：2063

股票：0.53

现金：12397

存款：257094

财产：269,491.53

注册：2003-8-24

个人文集个人精华

第 7 楼

依据条件改变数据颜色

依据条件改变数据颜色是许多场合都要用到的重要功能，数据颜色的改变不仅引人注目，而且能起到暗示作用，清楚地告诉用户价位的涨跌或状态的改变等。大多数证券期货实时行情显示软件都提供了这种功能。在当前价位比其前一价位高时，当前价位数据颜色变红，表示价位上涨；反之，颜色变绿，表示价位下跌；若当前价位与其前一价位相等，则数据颜色不变。PowerBuilder没有提供解决这一问题的捷径，但我们仍可利用动态数据窗来实现。先考虑一下实现的步骤，在Retrieve前需要把有关列的数据先保存起来；Retrieve后我们获得了相应列的新数据；我们需要将上述二者作一比较，以确定颜色的变化。值得指出的是，由于动态数据窗函数dwModify()只能用描述数据窗的模式串作参数，不能接收变量作参数，故我们得想法把比较的结果传递给数据窗。为解决这个问题，可以在定义数据窗时多定义几个空列，这几列不与数据库表中的列相对应，它们作为存放比较结果的缓冲区。原则上若需要N列实时地变色，则需要N列缓冲区，就应该多定义N个空

列。下面给出了一个例子具体说明。这段程序写在某窗口的Timer事件中，该窗口内有数据窗dw_infor，其"buy"、"sell"列分别表示买价和卖价，需要实时地变颜色。为此，我们在数据窗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事件。此外，还有一些方法可以改变颜色，比如先在某些需要变颜色的行或列设置带颜色的长方形，同时将其上面的数据窗中的数据设置成透明的，当条件改变时，可以通过改变数据窗后的长方形的颜色来实现。

郑重声明：请尊重作者劳动成果，如需转载，转载请注明原创和本贴来自昕晨论坛。

----------------------------------------------

昕晨空间欢迎你：https://www.360docs.net/doc/ad2228260.html,

----------------------------------------------

2004-1-1 1:13:00 网友可以每隔10分钟去社区财务领取一次工资

琳子

头衔：昕晨空间

等级：管理员

威望：2

门派：灵漪涧

文章：1131

精华：57

积分：2615

魅力：2063

股票：0.53

现金：12397

存款：257094

财产：269,491.53

注册：2003-8-24

个人文集个人精华

第 8 楼

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

许多情况下，PowerBuilder应用的数据是通过数据窗输入的，而且输入的数据是单纯的数字数据，也就是说，输入内容完全可以通过敲击键盘右面的数字小键盘来完成。但在实际使用中，数据窗栏目间的切换却要通过按键盘最左边的Tab键来实现，既不方便又影响录入速度。如果能用Enter键替代Tab键切换栏目就好了。由于按Enter键是Windows直接支持的消息，故我们可以使用用户事件来解决问题。在用户事件中，PowerBuilder提供的一条pbm_事件对应Windows的一条或几条消息。我们在数据窗dw_datamon的用户事件中选择pbm_dwnProcessEnter并命名为Enterkeydown。在该事件下写代码：

Send(Handle(this),256,9,Long(0,0))

This.SetActionCode(1)

这将把消息传递给Tab键，同时忽略Enter键的处理。下面是一段用数据窗接收数据的完整的程序段，其中采用了用Enter键替代Tab键的代码。当光标在每行最后一列时按Enter 键，光标会移至下一行第一列；当光标在最后一行的最后一列时按Enter键，会自动产生新行并将光标置于该行的第一列；在其它情况下按Enter键，光标会移至当前行的下一列。这段程序仍然写在与pbm_dwn ProcessEnter相对应的用户事件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)

郑重声明：请尊重作者劳动成果，如需转载，转载请注明原创和本贴来自昕晨论坛。

----------------------------------------------

昕晨空间欢迎你：https://www.360docs.net/doc/ad2228260.html,

----------------------------------------------

2004-1-1 1:14:00 网友可以每隔10分钟去社区财务领取一次工资

琳子

头衔：昕晨空间

等级：管理员

威望：2

门派：灵漪涧

文章：1131

精华：57

积分：2615

魅力：2063

股票：0.53

现金：12397

存款：257094

财产：269,491.53

注册：2003-8-24

个人文集个人精华

第 9 楼

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

许多情况下，文本文件中的数据排列顺序与数据库表中列的顺序一致，并且其数据类型与数据库表中对应列的一致，要做的就是将该文件中的内容存入对应数据库表中。例如在点对点通讯的情况下，一方把数据库表中的数据以文本文件格式存储并传送给另一方，另一方要做的工作就是将收到的数据存入相同的数据库表中。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)文件的读写，这给原有台式数据库数据文件向新的分布式数据库表中转换带来了极大的方便。

郑重声明：请尊重作者劳动成果，如需转载，转载请注明原创和本贴来自昕晨论坛。

----------------------------------------------

昕晨空间欢迎你：https://www.360docs.net/doc/ad2228260.html,

----------------------------------------------

2004-1-1 1:14:00 请仔细阅读论坛发言规范，新手问题在论坛大部分都可以搜索到答案琳子

头衔：昕晨空间

等级：管理员

威望：2

门派：灵漪涧

文章：1131

精华：57

积分：2615

魅力：2063

股票：0.53

现金：12397

存款：257094

财产：269,491.53

注册：2003-8-24

个人文集个人精华

第 10 楼

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

在制作完一段文档或表格后，我们在正式打印输出前总希望看一下模拟显示的效果，看看是否需要调整打印参数等。笔者在调试一个标签打印程序时就遇到了这个问题，标签文档的输出格式正确与否、标签间的横竖间距恰当与否等均可通过模拟显示直观地看到。总之，我们需要打印前的模拟显示。单纯写一段模拟显示程序并不难，但多思考一下往往能找到好方法。在文件读写时需要有文件号、在用Socket编程时涉及到Socket号，同样，多任务的操作系统管理进程时也采用了进程号——显然，整个软件系统都是采用一些数据类型为整型的变量来管理它要处理的逻辑对象的。一台打印机有它的逻辑文件名，在操作系统看来，它和磁盘上的一个文本文件没有两样。这样，向打印机输出与向磁盘文件输出就统一起来了，我们就依据这个想法来写模拟显示程序。大家知道，打印机的逻辑名是"PRN"，我们可以对此作与磁盘文件相同的处理。下面的程序可写于按钮cb_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，并调用Notepad将其显示出来；当需要打印时，write_string被送往打印机。六、结语写作本文不仅想与读者交流编程技巧，还希望向读者提供一些有用的思路。PowerBuilder不仅支持ODBC，而且支持MAPI，是企业级信息管理系统和Intranet应用开发的强大工具。笔者深信，PowerBuilder的应用范围将更加广泛，随着应用的深化，必定会涌现出更多优秀的PowerBuilder应用，并将在各行各业充分发挥作用。

郑重声明：请尊重作者劳动成果，如需转载，转载请注明原创和本贴来自昕晨论坛。

----------------------------------------------

昕晨空间欢迎你：https://www.360docs.net/doc/ad2228260.html,

----------------------------------------------

2004-1-1 1:14:00 新手经常问到的问题，在问题版块 [精华] 和专题[常见问题]里有

本主题贴数 30 分页：9 1 2 3 : 跳转论坛至...╋PB软件开发├问题专版├高级开发技巧├控件与界面├数据窗口应用├源码共享├PB资料专区├Pocket PB开发├网友原创╋专题讨论├数据库开发├MRPII/ERP/CRM╋休闲园地├社区娱乐├心灵驿站╋站务管理├软件基地├站务公告

*快速回复：Power Builder编程技巧十例

发贴表情

段落格式普通格式标题 1标题 2标题 3标题 4标题 5标题 6标题 7已编排格式地址字体宋体黑体楷体仿宋隶书幼圆新宋体细明体ArialArial BlackCourierVerdanaWide LatinWingdings 字号1234567

第 1 页,共 7 页， 49 个

显示签名验证码：内容限制：字节.

管理选项：专题管理 | 修复 | 锁定 | 解锁 | 提升 | 跟贴管理 | 删除 | 移动 | 设置固顶 | 奖励 | 惩罚 | 发布公告

Powered By ：Dvbbs Version 7.0.0 Sp2 SQL版 Copyright ◎2002 - 2005 昕晨空间在本论坛发表言论，请相互尊重，并遵守相关法律。本论坛所有观点均代表网友个人立场，与论坛无关。

执行时间：343.75000毫秒。查询数据库8次。

当前模板样式：[默认模板]