【PB】如何创建一个动态的数据窗口对象?

向右看齐 2022-06-15 11:14 968阅读 0赞

问：我想在程序运行中根据需要动态地建立一个数据窗口对象，该怎么做呢？

答：方法有四：

**第一种方法：**

在程序中用Describe()函数得到某个已经存在的数据窗口对象的源代码。如：

> string str\_dwsyntax,str\_lag  
> //获得数据窗口1的语法  
> str\_dwsyntax=dw\_1.object.datawindow.syntax  
> //根据数据窗口1的语法动态生成数据窗口2的语法  
> dw\_2.create(str\_dwsyntax)  
> //对数据窗口2的内容作局部修改  
> str\_lag="stu\_id\_t.font.height='-12' stu\_id\_t.font.face='楷体\_GB2312'"  
> //字体变12号字体，由宋体改为楷体  
> dw\_2.modify(str\_lag)  
> dw\_2.settransobject(sqlca)  
> dw\_2.retrieve()

**第二种方法：**

在程序中使用系统函数LibraryExport()得到某个已经存在的数据窗口对象的源代码。

**第三种方法：**

在PowerBuilder开发环境的库管理画笔(Library Painter)中使用移出功能(右键→Export)将某个数据窗口对象的语法保存到文本文件中。

**第四种方法：**

1、设计窗口时在窗口上设置一个数据窗口控件，该控件用于展示动态创建的数据窗口。

2、构造一条SELECT语句。

3、利用事务对象的对象函数SyntaxFromSQL()生成符合数据窗口对象语法的字符串。

4、使用数据窗口控件的对象函数Create()创建数据窗口。

例子：string str\_err\_sql,str\_err\_create,str\_sql,str\_syntax

str\_sql="select emp\_id,emp\_data,emp\_name from employee where emp\_salary>750"  
     //生成SELECT语句对应的自由风格的数据窗口语法  
     str\_syntax=SQLCA.SyntaxFromSQL(str\_sql,'style(type=Form)',str\_err\_sql)  
     if len(str\_err\_sql)>0 then  
        messagebox("错误","取得SQL语法时出错")  
        return  
     else  
        dw\_1.create(str\_syntax,str\_err\_create)  
        if len(str\_err\_create)>0 then  
           messagebox("错误","创建数据窗口时出错！")   
           return  
        end if  
     end if  
     dw\_1.settransobject(sqlca)  
     dw\_1.retrieve()

**\[注\]SyntaxFromSQL()函数**

<table> 
 <tbody> 
 <tr> 
 <td>说明：</td> 
 <td colspan="4">根据SQL SELECT语句生成数据窗口对象的源代码，通常用于创建动态数据窗口对象。</td> 
 </tr> 
 <tr> 
 <td>语法：</td> 
 <td colspan="4">transaction.SyntaxFromSQL(sqlselect,presentation,err )。</td> 
 </tr> 
 <tr> 
 <td>返回值：</td> 
 <td colspan="4">string，成功时返回生成的指定风格数据窗口对象的源代码，错误时返回空字符串，err参数可说明原因。</td> 
 </tr> 
 <tr> 
 <td>参数</td> 
 <td colspan="4">类型及说明</td> 
 </tr> 
 <tr> 
 <td>transaction</td> 
 <td colspan="4">事务对象名。</td> 
 </tr> 
 <tr> 
 <td>sqlselect</td> 
 <td colspan="4">string，其值为一条有效的SQL SELECT语句。</td> 
 </tr> 
 <tr> 
 <td align="center">presentation</td> 
 <td colspan="4">string，指定数据窗口缺省的表现风格。</td> 
 </tr> 
 <tr> 
 <td align="center">完整语法</td> 
 <td colspan="3">Style(Type=value property=value ……) //数据窗口风格</td> 
 </tr> 
 <tr> 
 <td> Type </td> 
 <td>Tabular</td> 
 <td>缺省值，列表风格</td> 
 </tr> 
 <tr> 
 <td>Grid</td> 
 <td>列表风格</td> 
 </tr> 
 <tr> 
 <td>Form</td> 
 <td>自由格式</td> 
 </tr> 
 <tr> 
 <td>Crosstab</td> 
 <td>交叉列表</td> 
 </tr> 
 <tr> 
 <td>Graph</td> 
 <td>统计图风格</td> 
 </tr> 
 <tr> 
 <td>Group</td> 
 <td>分组风格</td> 
 </tr> 
 <tr> 
 <td>Label</td> 
 <td>标签风格</td> 
 </tr> 
 <tr> 
 <td>Nested</td> 
 <td>复合风格</td> 
 </tr> 
 <tr> 
 <td>Ole 2.0</td> 
 <td>Ole风格</td> 
 </tr> 
 <tr> 
 <td>RichText</td> 
 <td>超文本风格</td> 
 </tr> 
 <tr> 
 <td colspan="3">DataWindow(Property=value ……) //数据窗口本身的属性</td> 
 </tr> 
 <tr> 
 <td colspan="3">Column(Property=value ……) //列对象属性</td> 
 </tr> 
 <tr> 
 <td colspan="3">Group(groupby_colnum1 by_colnum2 …… property ……) //分组特性</td> 
 </tr> 
 <tr> 
 <td colspan="3">Text(property=value ……) //文本对象属性</td> 
 </tr> 
 <tr> 
 <td colspan="3">Title('titlestring') //数据窗口的标题</td> 
 </tr> 
 <tr> 
 <td>err</td> 
 <td colspan="4">string，当生成数据窗口源代码发生错误时，该参数用于保存出错信息。</td> 
 </tr> 
 </tbody> 
</table>

**\[注\]Create()函数**

<table> 
 <tbody> 
 <tr> 
 <td>说明：</td> 
 <td colspan="2">使用指定的源代码创建数据窗口对象，并用新的数据窗口对象来取代旧的，但新的不会自动成为应用库的一部份。</td> 
 </tr> 
 <tr> 
 <td>语法：</td> 
 <td colspan="2">dwcontrol.Create( syntax {,errorbuffer})</td> 
 </tr> 
 <tr> 
 <td>返回值：</td> 
 <td colspan="2">integer，成功为1，错误为-1。</td> 
 </tr> 
 <tr> 
 <td>参数</td> 
 <td colspan="2">类型及说明</td> 
 </tr> 
 <tr> 
 <td>dwcontrol</td> 
 <td colspan="2">数据窗口控件名。</td> 
 </tr> 
 <tr> 
 <td>syntax</td> 
 <td colspan="2">数据窗口源代码，Create()函数将使用该代码来创建数据窗口对象。</td> 
 </tr> 
 <tr> 
 <td>errorbuffer</td> 
 <td colspan="2">可选，保存创建时的出错信息，若省略则系统将使用消息对话框显示出错信息。</td> 
 </tr> 
 <tr> 
 <td align="center">用法</td> 
 <td colspan="2">数据窗口对象源代码语法相当复杂，因此手工从头构造该语法几乎是不可能的，但也不用泄气，Powersoft提供了几个办法构造数据窗口对象的源代码。</td> 
 </tr> 
 <tr> 
 <td align="center">1</td> 
 <td>程序中使用数据窗口控件的Describe()函数得到某个已经存在的数据窗口对象的源代码，再据此修改。</td> 
 </tr> 
 <tr> 
 <td align="center">2</td> 
 <td>程序中使用系统函数LibraryExport()得到某个已经存在的数据窗口对象的源代码，再据此修改。</td> 
 </tr> 
 <tr> 
 <td align="center">3</td> 
 <td>在PowerBuilder开发环境的库管理画笔(Library Painter)中使用移出功能(Export)将某个数据窗口对象的语法保存到文本文件中，再据此修改。</td> 
 </tr> 
 <tr> 
 <td align="center">4</td> 
 <td>程序中使用事务对象函数SyntaxFromSQL()，该函数根据SQL语句创建数据窗口对象的源代码，再据此修改。</td> 
 </tr> 
 </tbody> 
</table>