怎样用PowerBuilder开发WEB应用

高秀霞  

1　PowerBuilder中的WEB应用模块

PowerBuilder中含有开发WEB应用的模块，通过这些模块可以连接WEB服务器与PowerBuilder应用．该模块包括以下及部分,Web.PB:是几个可以在WEB服务器上执行的程序，被服务器激活后，调用PowerBuilder应用，完成客户端任务和对数据库的事务操作．Plug_ins（插入件）：包括Window plug_in和Datawindow Plug_in，此方式可将PowerBuilder对象嵌入到页面中，在浏览器端执行PowerBuilder应用．Window Activex:　此方式与Window plug_in类似, 所不同在于该方式可以和HTML中的JavaScripts,VBscripts交互．本文主要讨论利用Web.PB开发WEB应用．
2　用Web.PB开发WEB应用
Web.PB本身就是个CGI程序，它提供了从服务器到PowerBuilder应用的访问．所以在Web.PB之上，可以利用PowerBuilder的强大功能开发复杂的WEB应用，如采用PowerBuilder的PowerScripts语言环境，数据窗口技术等．PowerBuilder的WEB应用构建前提是分布式应用体系．PowerBuilder的客户端应用分布到WEB服务器上，可将Web.PB看作为客户端应用．当客户端应用Web.PB被WEB服务器激活后，调用PowerBuilder的服务器应用，执行在服务器应用中定义的方法，实现业务逻辑.

这种模式是真正的“廋”客户机模式，客户端不需要安装其它软件，只安装浏览器软件．所有的事务操作都在服务器端完成，下面将结合实例详细说明：
利用PowerBuilder开发一个网上购书应用．对于分布式PowerBuilder应用，首先应向客户Web.PB指明PowerBuilder服务器应用在网络上的位置（Location），其应用名，使用文件PBWEB.INI来记录服务器应用信息．在此例中，取服务器应用名为TUTORIAL, Driver=Winsock, Application=10099/tcp, Location=Localhost.
建一个数据库（book_dealing）其中有三个表，分别为：
“ book”： b_name， b_no， b_publisher， b_price，b_num
“customer”： c_name， c_tel，c_addr
“dealing”： b_name， c_name， d_num, d_time

建一个数据窗口dw_book，其SQL语法为：
SELECT “book”.”b_name”,
“book”.”b_no”,
“book”.”b_publisher”,
“book”.”b_price”,
“book”.”b_num”
FROM “book”

创建PB服务器应用的用户界面。在窗口w_server上有两个按钮cb_1,cb_2，再定义一个transport类型的实例变量mytransport，cb_1的clicked事件有关程序如下：
..........
mytransport = create transport
mytransport .driver = “winsock”
mytransport.location = “localhost”
mytransport.application = “10099”
.........

创建一个不可视的用户对象u_internet，定义一个transaction类型的全局变量mytransaction，在该用户对象的constructor事件中定义连接到数据库(book_dealing)的事务对象mytransaction和连接到数据库(webpb)的事务对象sqlca，在该对象的destructor事件中分别取消这两个事务对象。
在u_internet上定义两个函数分别为f_book, f_book_dealing，这两个函数的返回值都为字符类型。在f_book中，利用数据窗口dw_book作数据库查询，再利用数据窗口的属性将查询结果以HTML形式返回给web.pb，有关程序如下：
string return_html
datastore dd
dd = create datastore
dd.dataobject = ”dw_book”
dd.settransobject(mytransaction)
dd.retrieve()
.... .
return_html=return_html+dd.object.datawindow.data.htmltable
......
return return_html

在函数f_dealing中，定义参数分别为：book_name, deal_num, custom_name, deal_time, custom_tel, custom_addr，用来接受FORM元素传来的信息。再利用PowerScripts语言对数据库（book_dealing）进行修改。有关程序如下：
string return_html

…………
connection using mytransaction;
insert into “customer”
(“c_name”,
“c_tel”,
“c_addr”)
values( :custom_name, :custom_tel, :custom_addr);
insert into “dealing”
(“b_name”,
”d_num”,
”d_time”,
”c_name”)
value(:book_name, :deal_num, :deal_time, :custom_name);

if mytransaction.sqlcacode>0 then
return_html=”定货成功！”
else
return_html=”定货失败！”
endif
………..
return return_html
主页上的“浏览书库”的超连接为：
  〈A HERF=”/scripts/pbcgi60.exe/tutorial/u_internet/f_book”〉 浏览书库</A>  
定书信息页上应有几个单行编辑器,用来录入用户购书信息(例如:书名,用户名,购书数量.,等等)其FORM元素的ACTION为：
<form  action= “/scripts/pbcgi60.exe/tutorial/u_internet/f_book_dealing”method= “get”>

以上程序可实现简单的网上购书的功能，既用户可浏览书库，也可订购所需的图书。