利用PowerBuilder开发WEB应用

                 “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_inter

net，定义一个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”,

         

《利用PowerBuilder开发WEB应用(第2页)》