Powerbuilder精彩问答1

Powerbuilder精彩问答

1.如何改变groph中图像的颜色

graph中图像的颜色只能在对象创建时修改,但窗口的open事件发生在对象创建之后,因此,只能该对象定义一个"create"用户事件,在这个事件的代码中修改graph中series

的颜色

dw_1.SetSeriesStyle("gr_1", dw_1.seriesname('gr_1',1),Foreground!, 65535)

用户事件的id是pbm_dwngraphcreate

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

2.求救！如何在PB中实现一行一打

1。生成一个打印作业

long printJob

string printString

printJob = PrintOpen()

2。调用各种打印函数来打印数据，

如printText()等

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

3.请教如何在程序中启动控制面板中的'密码'修改程序?

Function Long ShellExecute(Long hwindow, String lpOperation, String lpFile,

String lpParameters, String lpDirectory, Long nShowCmd) Library

'shell32.dll'

Alias for ShellExecuteA

Function Long GetDesktopWindow() Library 'user32.dll'

脚本如下：

String ls_cpl_name

String ls_null

SetNull(ls_null)

ls_cpl_name = "Password.cpl"

ShellExecute(GetDesktopWindow(), ls_null, 'rundll32.exe',

"shell32.dll,Control_RunDLL

" + ls_cpl_name + ",", ls_null, 0)

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

4.再问一个问题，如何获取NT的用户名？

FUNCTION ulong WNetGetUser(ref string lpName,ref string lpUserName,ref ulong

lpnLength) LIBRARY "mpr.dll" ALIAS FOR "WNetGetUserA"

string ls_name, ls_username

ulong ll_len

ll_len = 256

ls_username = space(ll_len)

setnull(ls_name)

WNetGetUser(ls_Name,ls_UserName,ll_Len) messagebox("用户名

",ls_username)

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

5.如何让header的内容只打印一次

1。制作两个数据窗口，第一个有表头，第二个没有。

2。用第一个有表头的数据读取数据库中的数据

3。打印有表头的数据窗口中的第一页，记住结束行号

4。将从结束行号开始的所有数据复制到第二个数据窗口中

5。打印第二个数据窗口

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

6.如何把本地库拷到另一台单机上

首先在另一台机上安装好SQL anywhere，建一个与原来的数据库一样的数据库，然后用原数据库文件覆盖刚生成的数据库文件即可。一般只有两个文件：*.db 及*.log。

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

7.请教，如何使用ENTER键实现窗口控件焦点转换?

1.声明 Subroutine keybd_event(int bVk,int bScan,ulong dwFlags,ulong dwExtraInfo)

LIBRARY "user32.dll""

2.在窗口的key事件中加入

if key = keyenter! then

keybd_event(9,0,0,0)

keybd_event(9,0,2,0)

end if

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

8.如何将公共变量传递给被嵌套的数据报表(datawindow)

方法一。

设计时设定整个composite datawindow的参数，然后设定每一个datawindow 的参数

方法二。

可用GetChild函数取得要retrive的datawindow的指针，然后调用其retrieve函数

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

9.在PB的数据窗口中,如何捕捉dropdowndw列的上下键事件

DDDW 事件概述

⒈所有对DDDW的操作都通过触发pbm_command事件完成

① 在PB的用户事件中，大多数事件对应的Windows 事件都有两个参数：lparam 和 wparam，而在PB5.0中,pbm_command没有参数，但可以通过message 对象的两个属性取得Windows事件对应的Event

ID，这两个属性就是: LongParm 和 WordParm。 LongParm 包含DDDW的Handle，用intLow()可取得其Handle

WordParm 包含对DDDW的操作，用intHigh()可取得其Event ID

② 在PB6.0(^)中，pbm_command带3个参数，其中hwndchild(long)与notificationcode(unsignedinteger)即DDDW的Handle和Event

ID。

⒉DDDW 的Event ID 列表：

Event Event ID

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

Clicked 1281

RowFocusChanged 2048

RightMouseButtonDown 2314

Left Button Up 2313

Retreive End 769

MouseMove 2311 ... 至于问题中的上下滚动，倘为键盘，将导致行焦点改变(此外，还导致一个ID = 2049的事件)：

RowFocusChanged 2048 倘为鼠标点击滚动条上下按钮：

PageUp/PageDown 2339

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

10.PB65下从串口通信获取程控交换机计费数据的API调用

我是通过调用API实现的：如你用的是二进制的，请把缓冲区改成BLOB型的。

首先定义外部函数：

Function Boolean CloseHandle(ulong hObject ) Library "kernel32.dll" FUNCTION boolean ReadFile(ulong fhand,

& ref string lpbuffer,

& ulong numbyte,

& ref ulong bytesread,

& ulong lpover) LIBRARY "kernel32.dll"

FUNCTION ulong CreateFileA(ref string fname,

& ulong f_access,

& ulong f_share,

& ulong f_sec,

& ulong f_create,

& ulong f_flag,

& ulong f_attrib) LIBRARY "kernel32.dll"

Function Boolean WriteFile(uLong handle,

& ref string lpbuffer,

& ulong numbytes,

& ref ulong bytesread,

& ulong lpOverLaped) Library "Kernel32.dll"

Function Boolean GetCommProperties(ulong hFile,

& ref COMMPROP lpCommProp ) Library "Kernel32.dll"

Function Boolean BuildCommDCBA(ref string lpDef,

& ref DCB lpDCB ) Library "Kernel32.dll"

Function Boolean SetCommState(ulong hCommDev,

& ref DCB lpdcb ) Library "Kernel32.dll"

Function Boolean GetCommState(ulong hCommDev,

& ref DCB lpdcb ) Library "Kernel32.dll"

Function ulong GetLastError() Library "Kernel32.dll" Function Boolean SetCommTimeouts(ulong hCommDev,

& ref COMMTIMEOUTS lpctmo ) Library "Kernel32.dll"

Function Boolean PurgeComm(ulong hCommDev,

& ulong fdwAction ) Library "Kernel32.dll"

实例变量定义：

ulong iu_file

string is_buffer//数据缓冲

string is_valid_num = "123" //有效数据

第二是初始设置

string ls_com,ls_commset

dcb lst_dcb

ls_com = "COM1" //

ib_reading = true //打开串口

iu_file = CreateFileA(ls_com,3221225472,0,0,3,128,0) if (iu_file < 0) then

messagebox("错误","无法打开" + ls_com + " #" + string(getlasterror ( )),StopSign!)

end if //初始化DCB

ls_commset = "4800,N,8,1"

if (Not BuildCommDcbA ( ls_commset, lst_dcb )) then

messagebox("错误","无法创建DCB" + " #" + string(getlasterror ( )),StopSign!)

end if

//设置串口

if (Not setcommstate ( iu_file, lst_dcb )) then

messagebox("错误","无法设置串口"+ ls_com + " #" + string(getlasterror ( )),StopSign!)

end if

//设置超时

commtimeouts lst_to lst_to.readintervaltimeout = 4294967295

//MAXDWORD //

lst_to.readtotaltimeoutconstant = 60000 //

lst_to.readtotaltimeoutmultiplier = 10

SetCommTimeouts(iu_file, lst_to)

第三步：读或写（例子中的是读，写可用writefile）

ulong lu_bytesread, lu_numbytes

string ls_buff

ulong lstr_locstruct //注意！这是ULONG 而不是STRUCT

ls_buff = space(100)

setnull(lstr_locstruct)

lu_numbytes = 100

if (not readfile ( iu_file, ls_buff, lu_numbytes, & lu_bytesread,

lstr_locstruct))

then

messagebox("错误","无法读取 #" + string(getlasterror ( )),StopSign!) timer(0)

else

if( lu_bytesread > 0) then

is_buffer += trim(ls_buff) mle_1.text += trim(ls_buff) //处理数据

this.wf_is_valid_receieve ( ) //检验函数

end if

end if

第四步：完成后释放端口

closehandle ( iu_file )

具体函数使用方法可参见MSDN中的TAPI。有时可能用控件做起来更简单一

些（如SCOMM、SAX COMM等）。

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

11.拨号网络窗口的调用

如果只是简单的调用windows的拨号网络窗口，程序如下：

Run("C:\WINDOWS\EXPLORER.EXE ::{20D04FE0-3AEA-1069-A2D8-08002B30309D} \::{992CFFA0-F557-101A-88EC-00DD010CCC48}")

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

12.条形码如何编码？条形码可由自己设定，但一定要设计得有意义，能通过条码知道是某类商品，可将条码定为某大类（3位）小类（3位）小类（3位）这样通过条形码可大概明白这是某类商品，这统计汇总时也好归类，条码可自己做个打印程序将其打印出来，有个CODE

39的条码字库，可将商品的条码代号设定为CODE 39字体即可转为条码打印出来。国际上通用的条形码编码方法有十几种，大陆地区大概用的是其中的第八种方案，以13位条码为准。如果是你自己公司内部用，则号码可随便编写，但如果是帖在商品上出售的话，就得到有关单位去申请批准了。

关于条码机，我只对一种牌子熟悉，zebra,斑马牌，它自带一套windows下的条码打印程序，可以很方便地打印出条码，并且可以和各种数据库通过odbc相连，连续打印数据库中的条码。

也可以通过编程对条码机控制，我用pb5.0对zebra实现过打印输出。我知道的就到这里,有问题请和我联系： e_mail: orffly@https://www.360docs.net/doc/546759543.html,

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

13.我在PB5中(后台是ORACLE7.3)想将表锁定,但使用ORACLE的LOCK TABLE 命令后,PB编译无法通过,请教,如何在PB中实现对ORACLE的表的锁定!

1、pb在做完update,delete操作后，未commit前oracle会自动锁定记录的，不需前台控制。

2、如果select后想锁定查询结果中的记录，使用 select ... from ... for update语句。

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

14.datawindow 在querymode 状态下不支持中文，如何解决?

在 DW 控件的 EditChanged 事件中，将 CHAR 型字段在查询模式时所输入的字符串自动加上引号。但使用查询模式引发的问题太多，利用弹出查询

窗口的办法更稳定，但无法写中文提示（字段名不支持中文）。是否有其他更好的查询办法，也请各位多多赐教！

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

15.SQL Anywhere 数据库的LOG文件丢失，无法连接数据库，该怎么办?

用 ISQL 连接一次

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

16.如何将主窗口永远在最上层? 如何使应用程序窗口位于其他窗口上

Windows 3.1介绍一个最顶窗口的概念。最顶窗口即使不是活动的窗口也在其他非最顶窗口之上。如果要创建一个最顶窗口，要指定WS_EX_TOPMOST扩展窗口风格，

运行时可以调用CWnd : : SetWindowPos增加和删除最顶风格，调用 CWnd : : GetExStyle 可以确定是否设置了最顶风格。下面的例子函数双向设置一个指定窗口的最顶风格。

void ToggleTopMost (CWnd* pWnd ){ ASSERT _VALID (pWnd);

pWnd->SetWindowPos (pWnd—>

GetExStyle ( ) & WS_EX_TOPMOST) ?&wndNoTopMost : &wndTopMost , 0 , 0 , 0 , 0

, SSP_NOSIZE ｜WSP_NOMOVE) ;}

////////////////////////////////////////////////////

当然，可以调用API函数，有很多方法获得主窗口的句柄可以直接传，也可以用findwindow() API

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

17.PB中是否有获得光盘盘符的函数？谢谢各位！

pb 的例程中有关于使用windows API 函数。其中使用Function uint GetDriveTypeA (String Drive) library

"KERNEL32.DLL"函数根据返回值可确定光驱盘符。

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

18.如何播放音乐？

利用"winmm.dll"(在windows\system"下,). 声明:

function boolean sndplaysounda(string fname,uint flag) library "winmm.dll"

语句执行sndplausounda("wavfilename",1)

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

19.pb6.0所需运行库文件

经过编译生成的PowerBuilder应用程序需要如下运行环境:

PowerBuilder 运行时动态连接库( Runtime Library ) 在PowerBuilder 6.0中需要如下DLL库:

PBVM60.DLL (PowerBuilder 虚拟机)(必需)

PBDWE60.DLL (DataWindow 引擎)(可选)

PBRTC60.DLL (Rich Text Control)(可选)

PBTRA60.DLL (DLL used for tracing db calls)(可选)

与所需连接的数据库的直连接口(Native Driver) 或 ODBC接口(ODBC Driver)

PBSYC60.DLL (连接Sybase 的直连接口)

PBO7360.DLL (连接Oracle7.3的直连接口)

所需连接的数据库的Client端(如Sybase的Open Client, Oracle 的SQL Net) ---------------------------------------------------

20.怎样使动态建立的数据窗口可修改？

dw_1.Object.DataWindow.Table.UpdateWhere = 0

dw_1.object.dept_name.update = "yes"

dw_1.Object.dept_id.key = "yes"

dw_1.update()

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

21.动态设置Win95和NT的缺省打印机

//STEP 1: Get the current default printer name. string ls_default RegistryGet("HKEY_CURRENT_USER\Software\Microsoft\Windows

NT\CurrentVersion\Windows", "Device", ls_default)

sle_def.text = ls_default

//Step 2: Set a new default printer name.

int li_rtn li_rtn =

RegistrySet("HKEY_CURRENT_USER\Software\Microsoft\Windows

NT\CurrentVersion\Windows", & "Device", sle_new.text)

if li_rtn = 1 then

Messagebox("Setting new printer name", "Successful")

else

Messagebox("Setting new printer name", "Failed")

end if

另外还可以参见编程技巧的文章。

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

22.Powerbuilder 与UNIX版本的SYBASE相连接的问题客户机：

PWIN98 SYBASE OPEN CLIENT ， POWERBUILDER6.5服务器 SCO UNIX OPENSERVER 5.0.5 SYBASE

SYSTEM 11.0.3两机使用D-LINK 220P网卡相连，可互相PING通，客户机也可TELNET到服务器在客户机上用DSEDIT设置连接信息，选用NLWNSCK协议，

SERVER名，IP地址及断口号均正确，可PING SERVER 不能成功，其他协议没有相应的DLL文件，在PB 中直接用PROFILE文件连接提示错误如下：

CT_CONNECT() NETWORK PACKET LAYER: INTERNL NET LIBRARY ERROR: NET_LIB PROTOCOL

DRIVER CALL TO CONNECT TWO ENDPOINTS FAILED。

请各位高手指教，如何用PB连通sybase 11 ，谢谢！

即然能ping通，那么说明网络是通的，ping server不通，证明sybase客户端未配置好，pb中当然不通。

sybase客户端软件的版本可能选择了16位，bin/winsql运行不了！建议重新安装syabse客户端，选择32位。

只有bin/winsql能连接上数据库时，才证明能连上数据库。

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

23.在大作《PB中的问题》中提到：在打开一PBL中的窗口文件时，显示‘IT HAS BEEN MIGRATED TO CURRENT VERSION

FORMAT，BUT MUST ALSO>BE SUCCESSFULLY REGENERATED’ 请问此时该如何处理

版本不同,你的pbl是pb低版本写的,应先升级.!

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

24.DW中某一列为DATETIME，MASK为'yyyy-mm-dd',根据该列所输入日期将该列的日期该为所输入日期的月份的最后一天，如：输入'1999-01-01'，回车后将日期改为'1999-01-31'.

在dw的itemchanged中实现如下：

this.accepttext()

datetime ldt_date,ldt_lastday

ldt_date=this.getitemdatetime(this.getrow(),columnname)

select trunc(last_day(to_date(date(:ldt_date))),'ddd')

into :ldt_lastday from

dual;

messagebox('',string(ldt_lastday))

this.setitem(this.getrow(),columnname,ldt_lastday)

输入日期后回车，跟踪messagebox发现ldt_lastday的确是最后一天，但该列的值并没有改变，但用鼠标再次点中该列，值变了，但焦点一离开该列它又恢复成所输入的值，真见鬼！！！

该怎么办呢？？？？？

问题出在accepttext(),Calling AcceptText in the ItemChanged event has no effect.

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

25.《急!急!! pb5.0 连sqlserver 7.0????》编译后运行程序也不好使. 初步推断:可能是连接数据库的参数有问题??? 请各位高手赐教,盼盼盼

盼,thanks!!!!!

ms sql server 配置文件设置: dbms="mss"//只须在*.ini文件中用这个代码便告诉pb使用的ms sql server Database:所用数据库

LogId:sql server的登陆账号 LogPass=口令 servername:允许数据库服务器连接的计算机名 autocommit:控制pb

是工作在事务处理范围内还是工作在事务处理范围外 dbparm:dbms的专用连接参数以下参数: language:在显示错误消息和日期格式时指定要使用的语言,在服务器上必须设置该直.

lock:事务处理隔离层 log:文本和图像数据的更新是否应该纪录到事务日志中. systemprocs:系统存储过程和用户定义的存储过程是否显示在各种各样的pb画板中.

pbcatalogowner:pb存储中表的缺省者. async:允许在服务器上进行同步操作.0:同步,1:异步 dbgettime:当async=1时,使用该参数设置用户在检索行时pb等待来自pb的响应的秒数.

cursorlock:release和cursorscroll参数一起使用可设置光标的锁定选项.lock,opt,optval,readonly cursorscroll:设置光标的滚动选项.

staticbind:控制pb是否在检索数据前获取dbms中的结果集描述. dbtextlimit:控制返回的文本字段的最大长度而不用将文本作为二进制大型数据对象来处理.

appname:设置连接时所使用的应用程序名. host:设置连接似的工作站名. packetsize:设置使服务器向pb传送数据时所设置的包大小. secure:设置是否想使用winnt集成逻辑安全性和安全sql

server连接缺省0使用标准安全性,1集成安全性.

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

26.请问如何编写“进度”指示条？举个例子来说明：

1。创建一个应用程序（working_out）

2。创建一个窗口（w_01）

3. 在应用程序的open事件中最末尾open()函数改为open(w_o1)

4。编辑窗口。

添加三个控件在窗口上，即两个rectangle:r_1,r_2和一个commandbutton :cb_1

将r_1的fill color:设为 white，将line color:设为black,将X设243 Y 设为645，width为1541,height设为113。

按确定健即可。

将r_2的fill color:设为blue，将line color:设为white,将X设261 Y设为661，width为5,height设为85。按确定健即可。

在cb_1的clicked事件中填写:

r_1.visible=true

r_2.visible=true

int lock

lock=0

do while lock

lock=lock_1

r_2.width=lock*15

loop 5.

按“run"健运行此程序，就看到一条从头走到尾的向安装win98一样的指示

灯出现在你的程序窗口上。

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

------

27.我使用的是pb651，后台为sql65。我在程序中用了一个treeview控件，

编译前没有任何问题，但是编译后此控件里无内容，很奇怪！不知你有何良方？万分感谢！！！

在开发环境中运行无问题,那么就应该是编译的问题因为treeview用到datastore,所以编译时的datawindow应编译为动态库(dll) 重新编译一下.

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

----------

28.我在DW_1中加了一个按钮cb_Update，请问我如何在窗口中调用这个按钮的Clicked事件?

我试过dw_1.cb_update.PostEvent(clicked!)却报错.谢谢.

如果只有一个按钮，可以这样写： d

w_1.Postevent("buttonclicked") 注意一定要是引号，而不是buttonclicked! 但如果是多个按钮，似乎只能在buttonclicked事件中利用https://www.360docs.net/doc/546759543.html,

来判断用户点击的是哪个按钮，恐怕无法在窗口中激活此事件。