PowerBuilder问与答

柯建勋 
2001年 18期

　　大家好！SYBASE已推出PB8BetaIV版，相对于前几个版本有不少改进。感兴趣的读者可以到http://www.sybase.com/powerbuilder_drp或ftp://reserver3.sybase.com/pub/PB8Beta/public下载或了解相关信息。另外，大家还可到http://pbclub.ok100.net 去提交或解答问题。下面，我们对这段时间，PowerBuilder编程爱好者提出的一些典型问题作出答复。
　　　　问题一、如何在PB中实现精确的时间控制（如使用延时控制）？timer函数只能使用一次，idle函数只能是在没有任何键盘和鼠标动作的时候才生效，还有其他函数可以用吗？
　　　　答：用API函数Sleep（）可以解决，此函数用于通知操作系统忽略当前进程指定时间数，参数为时间（千分之一秒）。
　　　　声明函数：
　　　　SUBROUTINE Sleep（uint cMilliSeconds） LIBRARY “KERNEL32.dll”
　　　　调用：
　　　　Sleep（2000）//延时2秒
　　　　PB8中新增了对应的函数：Sleep （seconds）。
　　　　问题二、PB中怎样实现在循环时通过点击按钮终止循环？ 就像在VB的循环中用DoEvent实现的一样。
　　　　答：这当然要用Yield（）函数了。如：
　　　　integer n
　　　　//sb_interrupt 是共享变量
　　　　sb_interrupt=false
　　　　for n=1 to 3000
　　　　yield（）　
　　　　if sb_interrupt then
　　　　//sb_interrupt的值在“取消”按钮的Clicked事件中修改为true
　　　　MessageBox（“我不干了”，“你真坏！”）　
　　　　sb_interrupt=false
　　　　exit
　　　　else
　　　　//其它处理，在单行编辑器中显示当前n值
　　　　sle_1.text = string（n）　
　　　　//....
　　　　end if
　　　　next
　　　　问题三、如何关闭打开的DOS窗口？ 如在PB中调用run（*.bat）函数，该函数运行完毕后有一个打开的DOS窗口，怎样在程序中关闭？
　　　　答：定义API：
　　　　Function ulong FindWindowA（String lpClassName， String lpWindowName） Library “user32.dll”
　　　　Function ulong CloseWindow（ulong hwnd ） Library “user32.dll”
　　　　脚本：
　　　　long ll_Handler
　　　　string ls_Class
　　　　string ls_title
　　　　SetNull（ls_Class）　
　　　　ls_title = “ms-dos 方式” //DOS窗口标题，根据具体情况改
　　　　ll_Handler = FindWindowA（ls_Class， ls_title） 　
　　　　If ll_Handler <> 0 Then
　　　　Send（ll_Handler， 16，0，0）　
　　　　End If
　　　　如用CloseWindow（ll_Handler） 替换Send（ll_Handler，16，0，0） 一句则是将指定标题窗口最小化。
　　　　以上方法同样适用于其它类型窗口。以前有网友问过用API函数DestroyWindow，DestroyWindow只适用于关闭PB本身的窗口（对象），不适用于外部窗口，如在一个button的clicked事件中加上：DestroyWindow（handle（parent））则关闭button所在窗口。DestroyWindow的声明格式是：
　　　　FUNCTION ulong DestroyWindow（ulong hwnd） LIBRARY “user32.dll”
　　　　问题四、数据窗口的多表更新问题：我的数据窗口数据源来自两个表，当修改该数据窗口数据项时，怎样做到两个table都能更新？
　　　　答：数据窗口数据源来自两个或两个以上的表，相当于多个表连接建立的一个视图，对于这种数据窗口，PB默认是不能修改的。当然我们可以通过设置它的Update 属性，数据窗口的Update Properties用来设置数据窗口是否可Update、可Update的表、可Update列等，但不能同时设置两个表可更新；所以当修改它的数据项时，不能简单地用dw_1.update（）来更新table，我们可以在程序中设置数据窗口可更新的一个表A（及其可更新列），其他表为不可更新，更新完表A后，再设置另一表B为可更新，表A设置为不可更新，依次类推。
　　　　以PowerBuilder7自带的EAS Demo DB V3数据库为例：
　　　　1、新建一个数据窗口d_grid_dep_emp，它的Select语句为
　　　　SELECT department.dept_id，
　　　　department.dept_name，
　　　　employee.emp_id，
　　　　employee.emp_fname，
　　　　employee.emp_lname，
　　　　FROM department，employee
　　　　WHERE employee.dept_id = department.dept_id
　　　　2、设置数据窗口d_grid_dep_emp的属性，将列的taborder改为非0值；并点击菜单Rows→Update Properties，设置此数据窗口Allow Updates，Table to Update设为department，Updateable Columns设为department.dept_id，department.dept_name。
　　　　3、在窗口中更新数据窗口按钮的clicked事件编写脚本：
　　　　long ll_rtn
　　　　// 修改Department表（Department表在第2步已设置为可更新）　
　　　　ll_rtn = dw_1.update（true， false）　
　　　　If ll_rtn = 1 then
　　　　//关闭对Department表的修改
　　　　dw_1.Modify（“department_dept_name.Update = ＇No＇”）　
　　　　dw_1.Modify（“department_dept_id.Update = ＇No＇”）　
　　　　dw_1.Modify（“department_dept_id.Key = ＇No＇”）　
　　　　//设置Employee表成为新的可修改表
　　　　dw_1.Modify（“DataWindow.Table.UpdateTable = ＇employee＇”）　
　　　　dw_1.Modify（“employee_emp_id.Update = ＇Yes＇”）　
　　　　dw_1.Modify（“employee_emp_fname.Update = ＇Yes＇”）　
　　　　dw_1.Modify（“employee_emp_lname.Update = ＇Yes＇”）　
　　　　dw_1.Modify（“employee_emp_id.Key = ＇Yes＇”）　
　　　　//修改Employee表
　　　　ll_rtn = dw_1.Update（）　
　　　　IF ll_rtn = 1 THEN
　　　　COMMIT USING SQLCA;
　　　　dw_1.retrieve（）　
　　　　messagebox（＇提示信息＇，＇更新成功！＇）　
　　　　ELSE
　　　　ROLLBACK USING SQLCA;
　　　　MessageBox（＇提示信息＇，＇更新成功！＇）　
　　　　END IF
　　　　//重置修改标志
　　　　dw_1.Modify（“department_dept_name.Update = ＇Yes＇”）　
　　　　dw_1.Modify（“department_dept_id.Update = ＇Yes＇”）　
　　　　dw_1.Modify（“department_dept_id.Key = ＇Yes＇”）　
　　　　dw_1.Modify（“DataWindow.Table.UpdateTable = ＇department＇”）
　　　　dw_1.Modify（“employee_emp_id.Update = ＇No＇”）　
　　　　dw_1.Modify（“employee_emp_fname.Update = ＇No＇”）　
　　　　dw_1.Modify（“employee_emp_lname.Update = ＇No＇”）　
　　　　dw_1.Modify（“employee_emp_id.Key = ＇No＇”）　
　　　　ELSE
　　　　ROLLBACK USING SQLCA;
　　　　MessageBox（＇提示信息＇，＇更新成功！＇）　
　　　　END IF
　　　　我们还可以将以上功能作成一个函数，在必要的时候调用即可。
　　　　问题五、如何在非PB窗口中实现键盘按键和鼠标点击动作的检测？有很多屏幕捕捉软件都可以在非本软件窗口中实现热键响应事件。
　　　　答：首先调用API函数RegisterHotKey为窗口注册热键。当热键按下后，Windows发送wm_hotkey消息给窗口，这时我们可以在PB窗口的other事件中处理。
　　　　定义窗口实例变量：
　　　　long atomid
　　　　constant integer MOD_ALT= 1//ALT键
　　　　constant integer MOD_CONTROL= 2//CTRL键
　　　　constant integer MOD_SHIFT= 4//SHIFT键
　　　　定义API函数：
　　　　FUNCTION Integer GlobalAddAtom（ref string lpString） LIBRARY “kernel32.dll” ALIAS FOR “GlobalAddAtomA”
　　　　FUNCTION ulong RegisterHotKey（ulong hwnd，ulong id，ulong fsModifiers，ulong vk） LIBRARY “user32.dll”
　　　　在窗口的open事件编写脚本：
　　　　//注册热键
　　　　long ll_RC
　　　　string ls_atomid
　　　　ls_atomid = ＇myatomid＇
　　　　atomid = GlobalAddAtom（ls_atomid）　
　　　　//得到惟一的ID，保证不和其他应用程序发生冲突
　　　　ll_RC = RegisterHotKey（Handle（this），atomid，MOD_CONTROL， 70）　
　　　　//注册的热键为Ctrl+F ，70为＇F＇
　　　　//如果组合键，可用MOD_CONTROL + MOD_ALT等
　　　　if ll_RC = 0 then messagebox（“Error!”，“热键注册错误”）　
　　　　//热键注册冲突
　　　　在窗口的other事件编写脚本：
　　　　//处理系统热键
　　　　IF wparam = atomid THEN
　　　　//处理
　　　　messagebox（＇hello＇，＇你好！＇）　
　　　　END IF
　　
　　 
 