科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道应用软件PB中动态DataWindow的技术应用

PB中动态DataWindow的技术应用

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

在PowerBuilder的应用程序开发过程中,对数据库中数据进行操作的对象是数据窗口对象(DataWindow),利用数据窗口对象,我们可以十分方便地完成对数据库中已经存在的表中数据进行检索、查询、插入、删除和更新。

作者:51cto.com整理 来源:51cto.com 2007年9月15日

关键字: PB DataWindow 应用 软件

  • 评论
  • 分享微博
  • 分享邮件

在PowerBuilder的应用程序开发过程中,对数据库中数据进行操作的对象是数据窗口对象(DataWindow),利用数据窗口对象,我们可以十分方便地完成对数据库中已经存在的表中数据进行检索、查询、插入、删除和更新。但是,在实际问题中,我们常常遇到数据库中的一些表是用户在程序运行期间动态生成的,若要对这样表中的数据进行操作,就要运用动态数据窗口对象,值得提到的一点是,在动态数据窗口对象生成时,其标题区(Header Band)中的文本不能直接显示成汉字,这的确是一点遗憾,不过这个问题可以通过映射的方法得到解决。

一、 问题的提出



设有如下两张表:

A表中的记录是用户可以在程序运行期间进行自由增加、修改、删除和更新的,B表中的属性(即:字段)由A表中的记录决定并动态创建,而且,能够方便地对B表中的数据提供汉化的操作界面。当然,将B表创建为下表

也是可以的,但是,在动态生成数据窗口对象时,其标题区(Header Band)中的文本不会显示成汉字,而是一些乱码,反而不利于问题的解决。

二、 问题的解决

1、 动态创建B表的解决



我们要动态创建B表,就要构建动态SQL语句。何谓动态SQL语句?数据库应用程序通常进行确定的工作,因此在编写和编译时,就可以确定完整的SQL语句,但当需要使用PowerBuilder不支持的嵌入SQL语句(如DDL语句),或者在编译时不知道语句的具体格式或参数,则在运行时构成SQL语句,这类语句被称为动态SQL语句。

动态SQL语句的格式:

EXECUTE IMMEDIATE SQL statement [Using Transation Object];

参数说明:

SQL statement 包含一条有SQL语句的字符串

Transation Object 事务对象

2、 动态数据窗口对象创建及标题区(Header Band)中文本汉化的解决



(1) 在程序运行时,我们可以调用Create函数动态生成数据窗口对象。格式如下:

DataWindowControl.Create(Syntax{,Errorbuffer})

参数说明:

DataWindowControl 将在其中创建数据窗口对象的数据窗口控件名

Syntax 数据窗口对象源代码

Errorbuffer 用于保存错误信息的字符串

(2) 由于标题区(Header Band)中文本框的名称是对应细目区(Detail Band)中相应列的名称加上"_t"构成的,而细目区(Detail Band)中列的名称又是相应表的属性的名称。因此,我们能够使用游标(Cursor)取出A表中的ywm和zwm的值,然后使用映射的方式替换标题区(Header Band)中文本框的文本(Text)属性,从而使标题区(Header Band)中文本框的文本显示为相应的汉字。

三、 一个简单的例子

在PowerBuilder 6.5和MS SQL Server 6.5的环境下,使用一个简单的例子实现上述的观点,限于篇幅,只列出主要界面及关键程序。

1、"动态创建B表"按钮对应的代码是:

int li_i=1,li_count

string ywm[],zdlx[],ls_temp,ls_sql

//使用游标(Cursor)从数据库的表中获取ywm和zdlx的值并存储于数组ywm[]和zdlx[]中

select count(*) into :li_count from a;

DECLARE a_cur CURSOR FOR SELECT ywm,zdlx FROM a order by ywm;

OPEN a_cur ;

FETCH a_cur INTO :ywm[li_i], :zdlx[li_i] ;

do while sqlca.sqlcode=0

ls_temp=trim(zdlx[li_i])

choose case ls_temp

case "1"

ls_temp="char(10)"

case "2"

ls_temp="numeric(7,2)"

end choose

zdlx[li_i]=ls_temp

ywm[li_i]=trim(ywm[li_i])

li_i++

FETCH a_cur INTO :ywm[li_i], :zdlx[li_i] ;

loop

close a_cur;

//创建B表和主键(Primary Key)

ls_sql="create table b"+"("+ywm[1]+" "+zdlx[1]+" not null,"&

+"constraint pk_b primary key ("+ywm[1]+"))"

execute immediate:ls_sql;

//增加B表的列

for li_i=2 to li_count

ls_sql="alter table b add "+ywm[li_i]+" "+zdlx[li_i]

execute immediate:ls_sql;

end for

2、"动态创建数据窗口对象"按钮对应的代码是:

string syntax,sqlselect,errmsg,ls_col1,ls_col2,ls_name,ls_b;

//动态创建数据窗口对象DataWindow

ls_b="b"

sqlselect="select * from "+ls_b;

syntax=sqlca.syntaxfromsql(sqlselect,"style(type=grid)",errmsg);

dw_1.create(syntax)

//汉化标题区(Header Band)文本

DECLARE v_cur CURSOR FOR SELECT ywm,zwm FROM a order by ywm;

OPEN v_cur ;

FETCH v_cur INTO :ls_col1, :ls_col2 ;

do while sqlca.sqlcode=0

ls_name=ls_col1+'_'+'t'+'.'+'text'+'='+'"'+ls_col2+'"'

dw_1.modify(ls_name)

FETCH v_cur INTO :ls_col1, :ls_col2 ;

loop

close v_cur;

dw_1.settransobject(sqlca);

dw_1.retrieve()

四、 结束语

利用PowerBuilder的动态数据窗口对象的技术应用,可以解决实际中数据库的动态数据处理问题,从而使应用程序具有更好的交互性和适应性,若稍加变动,用途是十分广泛的。

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章