powerbuilder数据窗口中按钮封装

1、（深圳：独孤求败 2003-05-在新推出的PowerBuilder 6.0 中，可以直接在数据窗口对象中放置按钮对象，而且开发人员（深圳：独孤求败 2003-05-在新推出的PowerBuilder 6.0 中，可以直接在数据窗口对象中放置按钮对象，而且开发人员添加按钮，我们用一个专用的函数来实现这一功能。首先，建立一个新的全局函数，取名为fAddDWButt on，它带有一个字符串参数asoldsyntax，其返回值为一字符串，下面是其实现代码：/入口参数：asoldsyntax 原有数据窗口语法/返回值： lsNewSyntax 修改后的语法/应用条件:数据窗口中有Footer, 高度为

2、88区域String lsAddString, lsNewSyntax lsNewSyntax = asoldsyntaxlsAddString =button(name=cbretrieve band=footer font.charset=0 font.face=Arial font.family=2 font.height=9 font.pitch=2 background.mode=2 background.color=12639424 filename= action=2 vtextalign=0 htextalign=0 x=14 y=4 height=80 width=292 c

3、olor=8388608 text=检索 defaultpicture=no suppresseventprocessing=no )rn lsAddString = button(name=cbtop band=footer font.charset=0 font.face=Arial font.height=9 font.pitch=2 background.mode=2 background.color=12639424 filename= action=6 vtextalign=0 x=333 y=4 height=80 width=146 color=8388608 text=首页

4、defaultpicture=no suppresseventprocessing=no )rn lsNewSyntax = lsNewSyntax lsAddStringlsAddString = button(name=cbprior band=footer font.charset=0 font.face=Arial font.height=9 font.pitch=2 background.mode=2 background.color=12639424 filename= action=5 vtextalign=0 x=484 y=4 height=80 width=146 colo

5、r=8388608 text=上页x=484 y=4 height=80 width=146 color=8388608 text=上页 defaultpicture=no suppresseventprocessing=no )rn lsNewSyntax = lsNewSyntax lsAddStringlsAddString = button(name=cbappend band=footer font.charset=0 font.face=Arial font.height=9 font.pitch=2 background.mode=2 background.color=12639

6、424 filename= action=11 vtextalign=0 x=964 y=4 height=80 width=146 color=8388608 text=添加 defaultpicture=no suppresseventprocessing=no )rn lsNewSyntax = lsNewSyntax lsAddStringlsAddString = button(name=cbupdate band=footer font.charset=0 font.face=Arial font.height=9 font.pitch=2 background.mode=2 ba

7、ckground.color=12639424 filename= action=13 vtextalign=0 x=1266 y=4 height=80 width=146 color=8388608 text=保存 defaultpicture=no suppresseventprocessing=no )rn lsNewSyntax = lsNewSyntax lsAddStringlsNewSyntax = lsNewSyntax lsAddString return lsnewsyntaxwindow，取名为：udwtoolbutton，然后在该用户对象的constructor码：String lslsSyntax =String( this.object.DataWindow.Syntax lsSyntax = fAddDWButton( lsSyntax ) if this.Create( lsSyntax ) 1 thenError.object = Error.ObjectEvent = Create DataWindow from Syntax Error.Line = 6Error.Number = SQLCA.SQLDBCode Er