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”>
以上程序可實現簡單的網上購書的功能,既用戶可瀏覽書庫,也可訂購所需的圖書。