用PowerBuilder建立browser-server结构应用程序

用PowerBuilder建立browser-server结构应用程序(3) mytransaction=create transaction

mytransaction.dbms='ODBC"

mytransaction.dbparm="Connectstring='DSN=WebPb'"

Connect using mytransaction;

if mytransaction.sqlcode<>0 then

messagebox("mytransaction.error="+string(mytransaction. &

sql_dbcode)，mytransaction.sqlerrtext)

end if

sqlca.dbms="MSS (Msoft) SQL Server 6.5"

sqlca.DataBase="xyw"

sqlca.Userid="sa"

sqlca.ServerName="Server"

sqlca.logid="sa"

Connect using sqlca;

if sqlca.sqlcode<>0 then

messagebox("sqlca.error="+string(sqlca.sql_dbcode)，sqlca.sqlerrtext)

end if

给destructor事件编写如下脚本：

disconnect using mytransaction

disconnect using sqlca

目的是：当Web.pb调用Powerbuilder6.0服务器时，用户对象自动先建立与数据库的连接，调用结束后断开连接。

５、编写用户自定义函数，各种业务工作的数据处理都由该类函数来完成。例如,在用户对象UR上,创建一查询功能的函数fp()，其内容是：

string return_html

long ii

datastore data_fp

data_fp=create datastore

data_fp.dataobject="dw_fp"

//dw_fp为已经做好的查询数据窗口

data_fp.settransobject(mytransaction)

ii=date_fp.retrieve()

//检索到的记录数存入变量ii

if ii>=1 then

return_html+=data_fp.object.datawindow.data.htmltable

else

return_html="没有检索到满足条件的数据"

end if

return return_html

６、启动服务器，再启动Powerbuilder6.0应用服务器； 在客户浏览器端浏览含有如下HTML语法的页面：

<h2>查询页面实例</h2>

<A href="/scripts/pbcgi60.exe/pb60/ur/fp?"> 查询开始</A>

这样Powerbuilder6.0数据窗口dw_fp的内容就可以通过点击超文本链接“查询开始”而显示在客户浏览器界面上，完成一个简单的“瘦”的browser/server应用。