powerbuilder11的webform发布和webservices调用实践

powerbuilder11的webform发布和webservices调用简介

QQ群请加: 6539042(powerbuilder11&SQL)  

A. webform花两个小时写了个例子。感觉除了刷得比较厉害以外，折衷的认为，如果作为一般的查询来讲，是没有任何问题的。现在很多框架又在搞C/S界面的摹仿。这倒好，直接用PB11实现就OK了。但是交互作用不是很方便。本来想上传一个包。但是我居然无法上传东西。所以直接给出源代码吧。感兴趣的，或者不能成功的可按我的代码先Run.

注意: IIS要没问题。.NET要没问题。另外我是用msi的安装包安装的，发现再次更新后，aspx出来的结果还是旧页面，估计是编译的东西没更新到。你可以运行msi包一次(安装)然后在运行一次(卸载),然后再安装就可以了(笨办法但是奏效).

另外:powerbuilder11的体验[转载] 里提到的 PBWebWindowStyle问题确实存在。要添加一下。

//application
forward
global type chengg0769 from application
end type
global transaction sqlca
global dynamicdescriptionarea sqlda
global dynamicstagingarea sqlsa
global error error
global message message
end forward

global type chengg0769 from application
string appname = "chengg0769"
end type
global chengg0769 chengg0769

on chengg0769.create
appname="chengg0769"
message=create message
sqlca=create transaction
sqlda=create dynamicdescriptionarea
sqlsa=create dynamicstagingarea
error=create error
end on

on chengg0769.destroy
destroy(sqlca)
destroy(sqlda)
destroy(sqlsa)
destroy(error)
destroy(message)
end on

event open;open(w_main)
end event

//一个数据框d_emp(来自pubs数据库的职员表)

release 11;
datawindow(units=0 timer_interval=0 color=67108864 processing=1 HTMLDW=no print.printername="" print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 96 print.margin.bottom = 96 print.paper.source = 0 print.paper.size = 0 print.canusedefaultprinter=yes print.prompt=no print.buttons=no print.preview.buttons=no print.cliptext=no print.overrideprintjob=no print.collate=yes print.preview.outline=yes hidegrayline=no showbackcoloronxp=no grid.lines=0 )
header(height=80 color="536870912" )
summary(height=0 color="536870912" )
footer(height=0 color="536870912" )
detail(height=88 color="536870912" )
table(column=(type=char(9) update=yes updatewhereclause=yes key=yes name=emp_id dbname="employee.emp_id" )
 column=(type=char(20) update=yes updatewhereclause=yes name=fname dbname="employee.fname" )
 column=(type=char(30) update=yes updatewhereclause=yes name=lname dbname="employee.lname" )
 column=(type=long update=yes updatewhereclause=yes name=job_id dbname="employee.job_id" )
 column=(type=datetime update=yes updatewhereclause=yes name=hire_date dbname="employee.hire_date" )
 retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"employee~" ) COLUMN(NAME=~"employee.emp_id~") COLUMN(NAME=~"employee.fname~") COLUMN(NAME=~"employee.lname~") COLUMN(NAME=~"employee.job_id~") COLUMN(NAME=~"employee.hire_date~")) " update="employee" updatewhere=1 updatekeyinplace=no )
text(band=header alignment="2" text="Emp Id" border="6" color="33554432" x="155" y="8" height="64" width="407" html.valueishtml="0"  name=emp_id_t visible="1"  font.face="Tahoma" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="Fname" border="6" color="33554432" x="571" y="8" height="64" width="453" html.valueishtml="0"  name=fname_t visible="1"  font.face="Tahoma" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="Lname" border="6" color="33554432" x="1033" y="8" height="64" width="448" html.valueishtml="0"  name=lname_t visible="1"  font.face="Tahoma" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="Job Id" border="6" color="33554432" x="1490" y="8" height="64" width="251" html.valueishtml="0"  name=job_id_t visible="1"  font.face="Tahoma" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="Hire Date" border="6" color="33554432" x="1751" y="8" height="64" width="530" html.valueishtml="0"  name=hire_date_t visible="1"  font.face="Tahoma" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="chen" border="0" color="33554432" x="5" y="16" height="56" width="137" html.valueishtml="0"  name=t_1 visible="1"  font.face="Tahoma" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="134217744" )
compute(band=detail alignment="2" expression="getrow()"border="6" color="33554432" x="9" y="12" height="68" width="137" format="[GENERAL]" html.valueishtml="0"  name=compute_1 visible="1"  font.face="Tahoma" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="67108864" )
column(band=detail id=1 alignment="2" tabsequence=10 border="0" color="33554432" x="155" y="8" height="68" width="407" format="[general]" html.valueishtml="0" protect="0~t1"  name=emp_id visible="1" edit.limit=9 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes  font.face="Tahoma" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="0" background.mode="0" background.color="536870912~tif (mod(getrow(),2)=0,RGB(128,128,0),RGB(0,128,128))" )
column(band=detail id=2 alignment="0" tabsequence=20 border="0" color="33554432" x="571" y="8" height="68" width="453" format="[general]" html.valueishtml="0" protect="0~t1"  name=fname visible="1" edit.limit=20 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes  font.face="Tahoma" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="0" background.mode="0" background.color="536870912~tif (mod(getrow(),2)=0,RGB(128,128,0),RGB(0,128,128))" )
column(band=detail id=3 alignment="0" tabsequence=30 border="0" color="33554432" x="1033" y="8" height="68" width="448" format="[general]" html.valueishtml="0" protect="0~t1"  name=lname visible="1" edit.limit=30 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes  font.face="Tahoma" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="0" background.mode="0" background.color="536870912~tif (mod(getrow(),2)=0,RGB(128,128,0),RGB(0,128,128))" )
column(band=detail id=4 alignment="2" tabsequence=40 border="0" color="33554432" x="1490" y="8" height="68" width="251" format="0" html.valueishtml="0" protect="0~t1"  name=job_id visible="1" edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes  font.face="Tahoma" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="0" background.mode="0" background.color="536870912~tif (mod(getrow(),2)=0,RGB(128,128,0),RGB(0,128,128))" )
column(band=detail id=5 alignment="2" tabsequence=50 border="0" color="33554432" x="1751" y="8" height="68" width="530" format="yyyy-mm-dd" html.valueishtml="0" protect="0~t1"  name=hire_date visible="1" edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes  font.face="Tahoma" font.height="-9" font.weight="400"  font.family="2" font.pitch="2" font.charset="0" background.mode="0" background.color="536870912~tif (mod(getrow(),2)=0,RGB(128,128,0),RGB(0,128,128))" )
htmltable(border="1" )
htmlgen(clientevents="1" clientvalidation="1" clientcomputedfields="1" clientformatting="0" clientscriptable="0" generatejavascript="1" encodeselflinkargs="1" netscapelayers="0" pagingmethod=0 generatedddwframes="1" )
xhtmlgen() cssgen(sessionspecific="0" )
xmlgen(inline="0" )
xsltgen()
jsgen()
export.xml(headgroups="1" includewhitespace="0" metadatatype=0 savemetadata=0 )
import.xml()
export.pdf(method=0 distill.custompostscript="0" xslfop.print="0" )
export.xhtml()

//菜单m_main

forward
global type m_main from menu
end type
type m_file from menu within m_main
end type
type m_edit from menu within m_main
end type
type m_sayhello from menu within m_edit
end type
type m_retrievepubs from menu within m_edit
end type
type m_edit from menu within m_main
m_sayhello m_sayhello
m_retrievepubs m_retrievepubs
end type
type m_win from menu within m_main
end type
type m_help from menu within m_main
end type
global type m_main from menu
m_file m_file
m_edit m_edit
m_win m_win
m_help m_help
end type
end forward

global type m_main from menu
m_file m_file
m_edit m_edit
m_win m_win
m_help m_help
end type
global m_main m_main

on m_main.create
m_main=this
call super::create
this.text = "m_main"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217731
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbarstyle = contemporarytoolbar!
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 12632256
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
this.m_file=create m_file
this.m_edit=create m_edit
this.m_win=create m_win
this.m_help=create m_help
this.Item[UpperBound(this.Item)+1]=this.m_file
this.Item[UpperBound(this.Item)+1]=this.m_edit
this.Item[UpperBound(this.Item)+1]=this.m_win
this.Item[UpperBound(this.Item)+1]=this.m_help
end on

on m_main.destroy
call super::destroy
destroy(this.m_file)
destroy(this.m_edit)
destroy(this.m_win)
destroy(this.m_help)
end on

type m_file from menu within m_main
end type

on m_file.create
call super::create
this.text = "file"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217731
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbarstyle = contemporarytoolbar!
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 12632256
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_file.destroy
call super::destroy
end on

type m_edit from menu within m_main
m_sayhello m_sayhello
m_retrievepubs m_retrievepubs
end type

on m_edit.create
call super::create
this.text = "edit"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217731
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbarstyle = contemporarytoolbar!
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 12632256
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
this.m_sayhello=create m_sayhello
this.m_retrievepubs=create m_retrievepubs
this.Item[UpperBound(this.Item)+1]=this.m_sayhello
this.Item[UpperBound(this.Item)+1]=this.m_retrievepubs
end on

on m_edit.destroy
call super::destroy
destroy(this.m_sayhello)
destroy(this.m_retrievepubs)
end on

type m_sayhello from menu within m_edit
end type

on m_sayhello.create
call super::create
this.text = "say hello"
this.toolbaritemname = "userobject1!"
this.toolbaritemtext = "say hello"
this.menuimage = "InsertReturn!"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217731
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbarstyle = contemporarytoolbar!
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 12632256
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_sayhello.destroy
call super::destroy
end on

event clicked;parentwindow.postevent("query1")
end event

type m_retrievepubs from menu within m_edit
end type

on m_retrievepubs.create
call super::create
this.text = "retrieve pubs"
this.toolbaritemname = "prior!"
this.toolbaritemtext = "retrieve pubs"
this.toolbaritemspace = 2
this.menuimage = "Redo!"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217731
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbarstyle = contemporarytoolbar!
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 12632256
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_retrievepubs.destroy
call super::destroy
end on

event clicked;parentwindow.postevent("query2")
end event

type m_win from menu within m_main
end type

on m_win.create
call super::create
this.text = "win"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217731
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbarstyle = contemporarytoolbar!
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 12632256
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_win.destroy
call super::destroy
end on

type m_help from menu within m_main
end type

on m_help.create
call super::create
this.text = "help"
this.menustyle = contemporarymenu!
this.menutextcolor = 134217735
this.menubackcolor = 134217731
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbarstyle = contemporarytoolbar!
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 12632256
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_help.destroy
call super::destroy
end on

//自定义对象:uo_sayhello

forward
global type uo_sayhello from nonvisualobject
end type
end forward

global type uo_sayhello from nonvisualobject
end type
global uo_sayhello uo_sayhello

type variables
string is_myname
string is_sayhello = "你好,这里是pb11 webform测试程序!"
end variables
forward prototypes
public function string of_say_hello (readonly string ls_name)
end prototypes

public function string of_say_hello (readonly string ls_name);//
if ls_name = "" then
 return is_sayhello
else
 return ls_name + is_sayhello
end if
end function

on uo_sayhello.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_sayhello.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

//主程序:w_main

forward
global type w_main from window
end type
type cb_3 from commandbutton within w_main
end type
type cb_2 from commandbutton within w_main
end type
type cb_1 from commandbutton within w_main
end type
type cb_ok2 from commandbutton within w_main
end type
type st_2 from statictext within w_main
end type
type dw_1 from datawindow within w_main
end type
type st_1 from statictext within w_main
end type
type sle_1 from singlelineedit within w_main
end type
type cb_ok1 from commandbutton within w_main
end type
end forward

global type w_main from window
integer width = 2889
integer height = 1752
boolean titlebar = true
string title = "PB11-TEST     http://blog.csdn.net/chengg0769"
string menuname = "m_main"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "Report5!"
boolean center = true
event query1 ( )
event query2 ( )
cb_3 cb_3
cb_2 cb_2
cb_1 cb_1
cb_ok2 cb_ok2
st_2 st_2
dw_1 dw_1
st_1 st_1
sle_1 sle_1
cb_ok1 cb_ok1
end type
global w_main w_main

event query1();string name

name = sle_1.text

uo_sayhello uo_myuo

uo_myuo = create uo_sayhello

sle_1.text = uo_myuo.of_say_hello(name)

destroy uo_myuo
end event

event query2();dw_1.retrieve()
end event

on w_main.create
if this.MenuName = "m_main" then this.MenuID = create m_main
this.cb_3=create cb_3
this.cb_2=create cb_2
this.cb_1=create cb_1
this.cb_ok2=create cb_ok2
this.st_2=create st_2
this.dw_1=create dw_1
this.st_1=create st_1
this.sle_1=create sle_1
this.cb_ok1=create cb_ok1
this.Control[]={this.cb_3,&
this.cb_2,&
this.cb_1,&
this.cb_ok2,&
this.st_2,&
this.dw_1,&
this.st_1,&
this.sle_1,&
this.cb_ok1}
end on

on w_main.destroy
if IsValid(MenuID) then destroy(MenuID)
destroy(this.cb_3)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.cb_ok2)
destroy(this.st_2)
destroy(this.dw_1)
destroy(this.st_1)
destroy(this.sle_1)
destroy(this.cb_ok1)
end on

event open;// Profile SNCconn
SQLCA.DBMS = "SNC SQL Native Client(OLE DB)"
SQLCA.LogPass = "123"
SQLCA.ServerName = "."
SQLCA.LogId = "sa"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Database='pubs',StaticBind=0,BindSPInput=1"

connect;

if sqlca.sqlcode <>0 then
 this.title = "数据库链接错误: " + string(sqlca.sqlcode) + sqlca.sqlerrtext
 sleep(10)
 halt
end if

dw_1.settransobject(sqlca)

 

end event

event close;disconnect;
end event

type cb_3 from commandbutton within w_main
integer x = 1765
integer y = 140
integer width = 434
integer height = 108
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "new win"
end type

event clicked;open(w_child)
end event

type cb_2 from commandbutton within w_main
integer x = 2267
integer y = 132
integer width = 448
integer height = 108
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "messagebox"
end type

event clicked;messagebox("PB11-WebForm","祝各位朋友圣诞节快乐!")
end event

type cb_1 from commandbutton within w_main
integer x = 2277
integer y = 356
integer width = 443
integer height = 108
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "clear"
end type

event clicked;dw_1.reset()
end event

type cb_ok2 from commandbutton within w_main
integer x = 1765
integer y = 356
integer width = 439
integer height = 108
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "retrieve"
end type

event clicked;parent.postevent("query2")
end event

type st_2 from statictext within w_main
integer x = 32
integer y = 408
integer width = 562
integer height = 84
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "retrieve from pubs"
boolean focusrectangle = false
end type

type dw_1 from datawindow within w_main
integer x = 46
integer y = 528
integer width = 2734
integer height = 984
integer taborder = 20
string title = "none"
string dataobject = "d_emp"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within w_main
integer x = 32
integer y = 28
integer width = 1861
integer height = 80
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "input your name,echo ~"YOUR NAME~" and tell you  pb11 test!"
boolean focusrectangle = false
end type

type sle_1 from singlelineedit within w_main
integer x = 27
integer y = 148
integer width = 1582
integer height = 100
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type cb_ok1 from commandbutton within w_main
integer x = 32
integer y = 280
integer width = 320
integer height = 108
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "say"
end type

event clicked;parent.postevent("query1")
end event

//另外一个窗口w_child

forward
global type w_child from window
end type
type tab_1 from tab within w_child
end type
type tabpage_1 from userobject within tab_1
end type
type st_1 from statictext within tabpage_1
end type
type tabpage_1 from userobject within tab_1
st_1 st_1
end type
type tabpage_2 from userobject within tab_1
end type
type st_2 from statictext within tabpage_2
end type
type tabpage_2 from userobject within tab_1
st_2 st_2
end type
type tabpage_3 from userobject within tab_1
end type
type tabpage_3 from userobject within tab_1
end type
type tabpage_4 from userobject within tab_1
end type
type tabpage_4 from userobject within tab_1
end type
type tabpage_5 from userobject within tab_1
end type
type tabpage_5 from userobject within tab_1
end type
type tab_1 from tab within w_child
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
tabpage_4 tabpage_4
tabpage_5 tabpage_5
end type
type dp_1 from datepicker within w_child
end type
end forward

global type w_child from window
integer width = 2327
integer height = 1444
boolean titlebar = true
string title = "PB11-test chengg0769"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
tab_1 tab_1
dp_1 dp_1
end type
global w_child w_child

on w_child.create
this.tab_1=create tab_1
this.dp_1=create dp_1
this.Control[]={this.tab_1,&
this.dp_1}
end on

on w_child.destroy
destroy(this.tab_1)
destroy(this.dp_1)
end on

type tab_1 from tab within w_child
integer x = 59
integer y = 204
integer width = 2153
integer height = 1056
integer taborder = 20
integer textsize = -22
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long backcolor = 67108864
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
tabpage_4 tabpage_4
tabpage_5 tabpage_5
end type

on tab_1.create
this.tabpage_1=create tabpage_1
this.tabpage_2=create tabpage_2
this.tabpage_3=create tabpage_3
this.tabpage_4=create tabpage_4
this.tabpage_5=create tabpage_5
this.Control[]={this.tabpage_1,&
this.tabpage_2,&
this.tabpage_3,&
this.tabpage_4,&
this.tabpage_5}
end on

on tab_1.destroy
destroy(this.tabpage_1)
destroy(this.tabpage_2)
destroy(this.tabpage_3)
destroy(this.tabpage_4)
destroy(this.tabpage_5)
end on

type tabpage_1 from userobject within tab_1
integer x = 18
integer y = 188
integer width = 2117
integer height = 852
long backcolor = 67108864
string text = "圣"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_1 st_1
end type

on tabpage_1.create
this.st_1=create st_1
this.Control[]={this.st_1}
end on

on tabpage_1.destroy
destroy(this.st_1)
end on

type st_1 from statictext within tabpage_1
integer x = 41
integer y = 176
integer width = 955
integer height = 572
integer textsize = -72
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "中国"
boolean focusrectangle = false
end type

type tabpage_2 from userobject within tab_1
integer x = 18
integer y = 188
integer width = 2117
integer height = 852
long backcolor = 67108864
string text = "诞"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_2 st_2
end type

on tabpage_2.create
this.st_2=create st_2
this.Control[]={this.st_2}
end on

on tabpage_2.destroy
destroy(this.st_2)
end on

type st_2 from statictext within tabpage_2
integer x = 87
integer y = 144
integer width = 1262
integer height = 564
integer textsize = -72
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "北京"
boolean focusrectangle = false
end type

type tabpage_3 from userobject within tab_1
integer x = 18
integer y = 188
integer width = 2117
integer height = 852
long backcolor = 67108864
string text = "节"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
end type

type tabpage_4 from userobject within tab_1
integer x = 18
integer y = 188
integer width = 2117
integer height = 852
long backcolor = 67108864
string text = "快"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
end type

type tabpage_5 from userobject within tab_1
integer x = 18
integer y = 188
integer width = 2117
integer height = 852
long backcolor = 67108864
string text = "乐"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
end type

type dp_1 from datepicker within w_child
integer x = 73
integer y = 56
integer width = 686
integer height = 100
integer taborder = 10
boolean border = true
borderstyle borderstyle = stylelowered!
date maxdate = Date("2999-12-31")
date mindate = Date("1800-01-01")
datetime value = DateTime(Date("2007-12-21"), Time("21:31:49.000000"))
integer textsize = -12
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
integer calendarfontweight = 400
boolean todaysection = true
boolean todaycircle = true
end type

你可以建立一个相应对象然后粘贴代码进去。运行后图片如下。但是菜单还有问题。toolbar位置不对。也不能执行点击命令，而菜单可以执行命令，但不显示图标。

=======================================//=============================================

B. 至于web services调用等。有链接: http://www.mpinfo.com.tw/pdffile/9611PB_Tips.pdf 讲得很明白。我照着他的例子，作出了结果。是我见过的少有的教材。大家可以看看。这个网站还有其他pb的例程。
我给出具体的链接:  http://www.mpinfo.com.tw/Marketing/Article_List.asp?Article_Class=2

作为一个低人工成本，高开发效率的工具，国内的相关介绍却非常少，少得连问题都找不到答案。

 

所以对于复杂的交互运用。还是觉得webservices方式合适。

w_main2代码如下：

//w_main2

//button clicked

soapconnection s_conn
uo_sayhellosoap mysoap

s_conn = create soapconnection

long ll_result

ll_result = s_conn.setsoaplogfile("./sayhellosoap.log")
ll_result = s_conn.createinstance(mysoap, "uo_sayhellosoap")

string ls_syntax,ls_data,ls_errcode
string ls_sayhello
boolean lb_retrieve_ok

ls_data =mysoap.of_get_ds_data(ls_syntax)
ls_sayhello = mysoap.of_say_hello("")

sle_1.text = ls_sayhello
dw_1.create(ls_syntax,ls_errcode)

if len(ls_errcode)>0 then
 messagebox("错误","创建数据框语法错误" +ls_errcode)
end if

dw_1.importstring(ls_data)

destroy mysoap
destroy s_conn