用Web.PB開發(fā)瘦客戶機(jī)Web應(yīng)用

1、用Web.PB開發(fā)瘦客戶機(jī)Web應(yīng)用（深圳：獨(dú)孤求敗2003-05-20）Powersoft的Web.PB技術(shù)可以將分布式PowerBuilder的客戶端應(yīng)用分布到Web服務(wù)器上，由Web服務(wù)器調(diào)用PowerBuilder應(yīng)用。用戶可以用WebPB技術(shù)實(shí)現(xiàn)完全瘦客戶機(jī)的PBWeb應(yīng)用。1.Web應(yīng)用的執(zhí)行過程瀏覽器訪問Web服務(wù)器，向Web服務(wù)器提出請(qǐng)求，服務(wù)器給瀏覽器返回HTML文檔。如果HTML頁面中嵌入了通過A元素鏈接到WebPB的超級(jí)鏈接，或HTML頁面中嵌入了通過FORM元素對(duì)WebPB的調(diào)用，則Web服務(wù)器調(diào)用WebPB建立與PowerBuilder服務(wù)器應(yīng)用的連接，向PowerB

2、uilder服務(wù)器應(yīng)用提出請(qǐng)求，PowerBuilder服務(wù)器應(yīng)用處理請(qǐng)求。如有數(shù)據(jù)庫訪問的請(qǐng)求，則PowerBuilder服務(wù)器應(yīng)用訪問數(shù)據(jù)庫服務(wù)器。PowerBuilder服務(wù)器應(yīng)用將處理結(jié)果以HTML文檔格式返回到Web服務(wù)器。Web服務(wù)器將PowerBuilder服務(wù)器應(yīng)用的處理結(jié)果以HTML文檔格式發(fā)布給瀏覽器。2.應(yīng)用實(shí)例本人已將利用Web.PB技術(shù)開發(fā)的學(xué)校管理查詢系統(tǒng)應(yīng)用于實(shí)際應(yīng)用中。下面通過簡(jiǎn)單的例子說明如何利用Web.PB技術(shù)實(shí)現(xiàn)瘦客戶機(jī)的Web應(yīng)用。2.1.運(yùn)行環(huán)境服務(wù)器為HPNetServer5/133LC，內(nèi)裝WindowsNT4.0、SQLServer6.5、IIS

3、40和PowerBuilder6.0。2.2.配置拷貝WebPB文件，將PBISA60DLL拷入scripts虛擬目錄下，拷貝PBWEBINI文件到WINNT目錄下。用記事本編輯WinntSystem32DriversEtc目錄下的Hosts和Services文件，在Hosts文件中填加一行：8serversls，在Services文件中填加一行：pbslsserver10099/tcp。2.3.創(chuàng)建PowerBuilder服務(wù)器應(yīng)用2.3.1.創(chuàng)建服務(wù)器應(yīng)用及應(yīng)用對(duì)象啟動(dòng)PowerBuilder，點(diǎn)取PowerBar上Application畫筆，進(jìn)入Applicat

4、ion工作區(qū)。從Application工作區(qū)上的PainterBar點(diǎn)取New，創(chuàng)建一個(gè)新的PowerBuilder應(yīng)用sls.pbl。按下“保存”按鈕，彈出“SaveApplication”對(duì)話框，定義Application對(duì)象“sls”，按下“OK”按鈕。彈出“Application”對(duì)話框，選擇對(duì)話框中“NO”按鈕，應(yīng)用sls.pbl創(chuàng)建完成。修改該應(yīng)用對(duì)象的Library屬性，在Application工作區(qū)中點(diǎn)擊PainterBar上的Property工具，彈出“Application”對(duì)話框，選擇“Libraries”。定義應(yīng)用的可搜索路徑，填加“c:programFilesPowe

5、rsoftPB6ITwebpb.pbl”，按下“OK”按鈕，服務(wù)器應(yīng)用及應(yīng)用對(duì)象創(chuàng)建完畢。2.3.2.創(chuàng)建PowerBuilder服務(wù)器應(yīng)用的用戶界面點(diǎn)取PowerBar上Windows畫筆，彈出“SelectWindow”窗口，點(diǎn)取“New”按鈕，進(jìn)入新創(chuàng)建的窗口的工作區(qū)。在該窗口上放置兩個(gè)命令按鈕cb1、cb2和一個(gè)靜態(tài)文本st1，在兩個(gè)命令按鈕cb1、cb2上的文本分別改為“啟動(dòng)服務(wù)器應(yīng)用”、“關(guān)閉服務(wù)器應(yīng)用”。定義窗口上transport類型實(shí)例變量mytransport，用于監(jiān)聽Web.PB的調(diào)用請(qǐng)求：transportmytransport為cb1的Clicked事件編程如下：tr

6、ansportmytransportmytransport=CREATEtransportmytransport.driver=winsockmytransport.location=8mytransport.application=10099mytransport.Listen()IF(mytransport.ErrCode0)THENMessageBox(錯(cuò)誤信息，服務(wù)器應(yīng)用不能啟動(dòng)監(jiān)聽rn錯(cuò)誤號(hào)為：string(mytransport.ErrCode)rn錯(cuò)誤信息為：mytransport.ErrText)Close(this.getparent()return

7、ELSESt1.text=服務(wù)器正在運(yùn)行ENDIF為cb2的Clicked事件編程如下：Close(Parent)上述工作完成后，選取選單項(xiàng)File下的Save選單項(xiàng)，彈出“SaveWindow”對(duì)話框，定義窗口名為wslsserver，然后點(diǎn)擊“OK”按鈕，保存窗口。這個(gè)窗口對(duì)象將是應(yīng)用服務(wù)器中第一個(gè)打開的窗口。為應(yīng)用對(duì)象sls的open事件編寫如下程序：open(wslsserver)2.3.3.創(chuàng)建PowerBuilder服務(wù)器應(yīng)用中的用戶對(duì)象進(jìn)入PowerBuilder工作區(qū)，點(diǎn)取PowerBar上UserObject畫筆，彈出“SelectUserObject”對(duì)話框。選擇“New”

8、按鈕，彈出“NewUserObject”對(duì)話框。選擇Class類Custom用戶對(duì)象，單擊“OK”按鈕，進(jìn)入到用戶對(duì)象工作區(qū)。選取選單項(xiàng)File下的Save選單項(xiàng)，彈出“SaveUserObject”對(duì)話框，輸入“usls”，然后點(diǎn)擊“OK”按鈕，保存該用戶對(duì)象。為用戶對(duì)象usls的constructor事件編寫處理程序：transactionmytransactionmytransaction=CREATEtransactionmytransaction.dbms=odbcmytransaction.dbparm=ConnectString=DSN=PowersoftDemoDBV6;UID

9、=dba;PWD=sqlCONNECTUSINGmytransaction;Sqlca.dbms=odbcSqlca.dbparm=ConnectString=DSN=PowersoftWebpb;UID=dba;PWD=sqlCONNECTUSINGsqlca;IFsqlca.sqlcode0THENMessageBox(SqlcaError:String(sqlca.sqldbcode),sqlca.SqlErrText)ENDIF為該用戶對(duì)象的destructor事件編寫處理程序：transactionmytransactionDISCONNECTUSINGmytransaction;D

10、ISCONNECTUSINGSQLCA;DESTROYmytransaction這樣，當(dāng)Web.PB調(diào)用PowerBuilder服務(wù)器應(yīng)用中用戶對(duì)象時(shí)先建立了和數(shù)據(jù)庫的連接。當(dāng)調(diào)用完成時(shí)關(guān)閉連接。在用戶對(duì)象usls的工作區(qū)中，選取選單項(xiàng)Declare下的InstanceVariables選單項(xiàng)，定義用戶對(duì)象上的實(shí)例變量，輸入：uhtmlformmyhtmlformusessionmysessionutransactionmytransactionintegeriicountdatastoremydatastore按下“OK”按鈕，返回用戶對(duì)象工作區(qū)。創(chuàng)建用戶對(duì)象函數(shù)在查詢時(shí)所需的數(shù)據(jù)窗口對(duì)象d

11、wrsda(假定已創(chuàng)建了PowersoftDemoDBV6庫rsda(bh,xm,xb,bm,)表)，進(jìn)入PowerBuilder工作區(qū)。點(diǎn)取PowerBar上DataWindow畫筆，彈出“SelectDataWindow”對(duì)話框。點(diǎn)擊“New”按鈕，彈出“NewDataWindow”對(duì)話框，在“DataSource”選擇框中選擇QuickSelect，“PresentationStyle”選擇框中選擇Grid。點(diǎn)擊“OK”按鈕，彈出“QuickSelect”對(duì)話框，選取表rsda和表中相應(yīng)的列(bh,xm,xb,bm)。按下“OK”按鈕，進(jìn)入數(shù)據(jù)窗口工作區(qū)，存此數(shù)據(jù)窗口為“dwrsda”。

12、打開已創(chuàng)建好的用戶對(duì)象usls。在用戶對(duì)象工作區(qū)點(diǎn)取選單項(xiàng)Declare下的“UserObjectFunctions”選單項(xiàng)，彈出“SelectFunctioninUserObject”對(duì)話框。單擊“New”按鈕，彈出“NewFunction”對(duì)話框。在此對(duì)話框中定義函數(shù)的參數(shù)及返回值。定義函數(shù)名為：frsda，函數(shù)返回值為：string。點(diǎn)擊“OK”按鈕，進(jìn)入函數(shù)編程工作區(qū)，編寫程序如下：stringreturnhtmllonglldwrowtransactionmytransactiondatastoredatastorersdadatastorersda=CREATEdatastored

13、atastorersda.dataobject=dwrsdadatastorersda.settransobject(mytransaction)lldwrow=datastorersda.retrieve()IFLLdwrow=1THENReturnhtml=returnhtmldatastorersda.object.datawindow.data.htmltableELSEReturnhtml=沒有檢索到數(shù)據(jù)ENDIFRETURNreturnhtml這個(gè)函數(shù)的主要作用是調(diào)用數(shù)據(jù)窗口dwrsda進(jìn)行數(shù)據(jù)查詢，將查詢結(jié)果以HTML的語法格式返回。Web服務(wù)器將得到這個(gè)返回參數(shù)，并發(fā)布給調(diào)用函

14、數(shù)的瀏覽器客戶。2.4.用Web.PBWizard創(chuàng)建訪問Web.PB的HTML文件在PowerBuilder環(huán)境下，點(diǎn)取PowerBar上的Web.PBWizard畫筆。輸入或?yàn)g覽選擇Web.PB要訪問的PowerBuilder服務(wù)器應(yīng)用名后，點(diǎn)擊“Next”按鈕。在彈出的窗口中選擇所需的用戶對(duì)象usls，然后點(diǎn)擊“Next”，在彈出的窗口中選擇所需的用戶對(duì)象函數(shù)frsda。然后點(diǎn)擊“Next”，在彈出的窗口中分別作如下的選擇：在Selecttheprograminterface框中選擇“InternetServerAPI(ISAPI)”，在EntertheURLpathforCGIprog

15、ram框中輸入“/scripts”，在SelecttheHTMLstyle框中選擇“Anchor”。然后點(diǎn)擊“Next”按鈕，在彈出的窗口中分別作如下的選擇：在位置框中輸入“C:winntpbweb.ini”，在EnterServerAliasSection框中輸入“Internet”，在Driver框中選擇“Winsock”，在Application框中輸入“10099”，在Location框中輸入“20219416888”。然后點(diǎn)擊“Next”按鈕，在彈出的窗口中，在HERFtext框中輸入“人事檔案查詢”，在SpecitylocationandnameofHTMLfile框中輸入“c:intepubwwwrootrsdaweb.htm”。然后點(diǎn)擊“Next”按鈕，在彈出的窗口中點(diǎn)擊“Finish”。到此為止，能夠訪問PowerBuilder服務(wù)器應(yīng)用中用戶對(duì)象usls上函數(shù)frsda的HTML頁面已經(jīng)完成。2