前往Shuct.Net首页

Shudepb PB反编译专家长时间以来,为业内同类软件事实上的唯一选择.细节,彰显专业.态度,决定品质.

关于PB反编译的搜索

powerbuilder11的webform发布和webservices调用实践 - chengg0769 来自四川,在东莞虚度十载 - 博客频道 - CSDN.NET chengg0769 来自四川,在东莞虚度十载 PB反编译_Powerbuilder DeCompiler_PB反编译器_PB混淆器_PB加密 目录视图 摘要视图 订阅 新年新气象------CSDN2014新版导航就要跟大家见面了 2014年1月微软MVP当选名单揭晓! “我的2013”年度征文获奖名单已公布 专访宋海涛:我们在做一款比Google Glass更酷的设备 powerbuilder11的webform发布和webservices调用实践 2007-12-21 13:57 2509人阅读 评论(0) 收藏 举报 powerbuilderwebformintegeralignmentstringborder powerbuilder11的webform发布和webservices调用简介 QQ群请加: 6539042(powerbuilder11&SQL) A. webform花两个小时写了个例子。感觉除了刷得比较厉害以外,折衷的认为,如果作为一般的查询来讲,是没有任何问题的。现在很多框架又在搞C/S界面的摹仿。这倒好,直接用PB11实现就OK了。但是交互作用不是很方便。本来想上传一个包。但是我居然无法上传东西。所以直接给出源代码吧。感兴趣的,或者不能成功的可按我的代码先Run. 注意: IIS要没问题。.NET要没问题。另外我是用msi的安装包安装的,发现再次更新后,aspx出来的结果还是旧页面,估计是编译的东西没更新到。你可以运行msi包一次(安装)然后在运行一次(卸载),然后再安装就可以了(笨办法但是奏效). 另外:powerbuilder11的体验[转载] 里提到的 PBWebWindowStyle问题确实存在。要添加一下。 //applicationforwardglobal type chengg0769 from applicationend typeglobal transaction sqlcaglobal dynamicdescriptionarea sqldaglobal dynamicstagingarea sqlsaglobal error errorglobal message messageend forward global type chengg0769 from applicationstring appname = "chengg0769"end typeglobal chengg0769 chengg0769 on chengg0769.createappname="chengg0769"message=create messagesqlca=create transactionsqlda=create dynamicdescriptionareasqlsa=create dynamicstagingareaerror=create errorend on on chengg0769.destroydestroy(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 forwardglobal type m_main from menuend typetype m_file from menu within m_mainend typetype m_edit from menu within m_mainend typetype m_sayhello from menu within m_editend typetype m_retrievepubs from menu within m_editend typetype m_edit from menu within m_mainm_sayhello m_sayhellom_retrievepubs m_retrievepubsend typetype m_win from menu within m_mainend typetype m_help from menu within m_mainend typeglobal type m_main from menum_file m_filem_edit m_editm_win m_winm_help m_helpend typeend forward global type m_main from menum_file m_filem_edit m_editm_win m_winm_help m_helpend typeglobal m_main m_main on m_main.createm_main=thiscall super::createthis.text = "m_main"this.menustyle = contemporarymenu!this.menutextcolor = 134217735this.menubackcolor = 134217731this.menuhighlightcolor = 134217741this.textsize = 8this.weight = 400this.facename = "Tahoma"this.titlebackcolor = 134217730this.bitmapbackcolor = 12632256this.menubitmaps = truethis.titlegradient = truethis.toolbarstyle = contemporarytoolbar!this.toolbartextcolor = 134217746this.toolbarbackcolor = 12632256this.toolbarhighlightcolor = 134217741this.toolbargradient = truethis.bitmapgradient = truethis.m_file=create m_filethis.m_edit=create m_editthis.m_win=create m_winthis.m_help=create m_helpthis.Item[UpperBound(this.Item)+1]=this.m_filethis.Item[UpperBound(this.Item)+1]=this.m_editthis.Item[UpperBound(this.Item)+1]=this.m_winthis.Item[UpperBound(this.Item)+1]=this.m_helpend on on m_main.destroycall super::destroydestroy(this.m_file)destroy(this.m_edit)destroy(this.m_win)destroy(this.m_help)end on type m_file from menu within m_mainend type on m_file.createcall super::createthis.text = "file"this.menustyle = contemporarymenu!this.menutextcolor = 134217735this.menubackcolor = 134217731this.menuhighlightcolor = 134217741this.textsize = 8this.weight = 400this.facename = "Tahoma"this.titlebackcolor = 134217730this.bitmapbackcolor = 12632256this.menubitmaps = truethis.titlegradient = truethis.toolbarstyle = contemporarytoolbar!this.toolbartextcolor = 134217746this.toolbarbackcolor = 12632256this.toolbarhighlightcolor = 134217741this.toolbargradient = truethis.bitmapgradient = trueend on on m_file.destroycall super::destroyend on type m_edit from menu within m_mainm_sayhello m_sayhellom_retrievepubs m_retrievepubsend type on m_edit.createcall super::createthis.text = "edit"this.menustyle = contemporarymenu!this.menutextcolor = 134217735this.menubackcolor = 134217731this.menuhighlightcolor = 134217741this.textsize = 8this.weight = 400this.facename = "Tahoma"this.titlebackcolor = 134217730this.bitmapbackcolor = 12632256this.menubitmaps = truethis.titlegradient = truethis.toolbarstyle = contemporarytoolbar!this.toolbartextcolor = 134217746this.toolbarbackcolor = 12632256this.toolbarhighlightcolor = 134217741this.toolbargradient = truethis.bitmapgradient = truethis.m_sayhello=create m_sayhellothis.m_retrievepubs=create m_retrievepubsthis.Item[UpperBound(this.Item)+1]=this.m_sayhellothis.Item[UpperBound(this.Item)+1]=this.m_retrievepubsend on on m_edit.destroycall super::destroydestroy(this.m_sayhello)destroy(this.m_retrievepubs)end on type m_sayhello from menu within m_editend type on m_sayhello.createcall super::createthis.text = "say hello"this.toolbaritemname = "userobject1!"this.toolbaritemtext = "say hello"this.menuimage = "InsertReturn!"this.menustyle = contemporarymenu!this.menutextcolor = 134217735this.menubackcolor = 134217731this.menuhighlightcolor = 134217741this.textsize = 8this.weight = 400this.facename = "Tahoma"this.titlebackcolor = 134217730this.bitmapbackcolor = 12632256this.menubitmaps = truethis.titlegradient = truethis.toolbarstyle = contemporarytoolbar!this.toolbartextcolor = 134217746this.toolbarbackcolor = 12632256this.toolbarhighlightcolor = 134217741this.toolbargradient = truethis.bitmapgradient = trueend on on m_sayhello.destroycall super::destroyend on event clicked;parentwindow.postevent("query1")end event type m_retrievepubs from menu within m_editend type on m_retrievepubs.createcall super::createthis.text = "retrieve pubs"this.toolbaritemname = "prior!"this.toolbaritemtext = "retrieve pubs"this.toolbaritemspace = 2this.menuimage = "Redo!"this.menustyle = contemporarymenu!this.menutextcolor = 134217735this.menubackcolor = 134217731this.menuhighlightcolor = 134217741this.textsize = 8this.weight = 400this.facename = "Tahoma"this.titlebackcolor = 134217730this.bitmapbackcolor = 12632256this.menubitmaps = truethis.titlegradient = truethis.toolbarstyle = contemporarytoolbar!this.toolbartextcolor = 134217746this.toolbarbackcolor = 12632256this.toolbarhighlightcolor = 134217741this.toolbargradient = truethis.bitmapgradient = trueend on on m_retrievepubs.destroycall super::destroyend on event clicked;parentwindow.postevent("query2")end event type m_win from menu within m_mainend type on m_win.createcall super::createthis.text = "win"this.menustyle = contemporarymenu!this.menutextcolor = 134217735this.menubackcolor = 134217731this.menuhighlightcolor = 134217741this.textsize = 8this.weight = 400this.facename = "Tahoma"this.titlebackcolor = 134217730this.bitmapbackcolor = 12632256this.menubitmaps = truethis.titlegradient = truethis.toolbarstyle = contemporarytoolbar!this.toolbartextcolor = 134217746this.toolbarbackcolor = 12632256this.toolbarhighlightcolor = 134217741this.toolbargradient = truethis.bitmapgradient = trueend on on m_win.destroycall super::destroyend on type m_help from menu within m_mainend type on m_help.createcall super::createthis.text = "help"this.menustyle = contemporarymenu!this.menutextcolor = 134217735this.menubackcolor = 134217731this.menuhighlightcolor = 134217741this.textsize = 8this.weight = 400this.facename = "Tahoma"this.titlebackcolor = 134217730this.bitmapbackcolor = 12632256this.menubitmaps = truethis.titlegradient = truethis.toolbarstyle = contemporarytoolbar!this.toolbartextcolor = 134217746this.toolbarbackcolor = 12632256this.toolbarhighlightcolor = 134217741this.toolbargradient = truethis.bitmapgradient = trueend on on m_help.destroycall super::destroyend on //自定义对象:uo_sayhello forwardglobal type uo_sayhello from nonvisualobjectend typeend forward global type uo_sayhello from nonvisualobjectend typeglobal uo_sayhello uo_sayhello type variablesstring is_mynamestring is_sayhello = "你好,这里是pb11 webform测试程序!"end variablesforward prototypespublic 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_sayhelloelse return ls_name + is_sayhello end ifend function on uo_sayhello.createcall super::createTriggerEvent( this, "constructor" )end on on uo_sayhello.destroyTriggerEvent( this, "destructor" )call super::destroyend on //主程序:w_main forwardglobal type w_main from windowend typetype cb_3 from commandbutton within w_mainend typetype cb_2 from commandbutton within w_mainend typetype cb_1 from commandbutton within w_mainend typetype cb_ok2 from commandbutton within w_mainend typetype st_2 from statictext within w_mainend typetype dw_1 from datawindow within w_mainend typetype st_1 from statictext within w_mainend typetype sle_1 from singlelineedit within w_mainend typetype cb_ok1 from commandbutton within w_mainend typeend forward global type w_main from windowinteger width = 2889integer height = 1752boolean titlebar = truestring title = "PB11-TEST http://blog.csdn.net/chengg0769"string menuname = "m_main"boolean controlmenu = trueboolean minbox = trueboolean maxbox = trueboolean resizable = truelong backcolor = 67108864string icon = "Report5!"boolean center = trueevent query1 ( )event query2 ( )cb_3 cb_3cb_2 cb_2cb_1 cb_1cb_ok2 cb_ok2st_2 st_2dw_1 dw_1st_1 st_1sle_1 sle_1cb_ok1 cb_ok1end typeglobal 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_myuoend event event query2();dw_1.retrieve()end event on w_main.createif this.MenuName = "m_main" then this.MenuID = create m_mainthis.cb_3=create cb_3this.cb_2=create cb_2this.cb_1=create cb_1this.cb_ok2=create cb_ok2this.st_2=create st_2this.dw_1=create dw_1this.st_1=create st_1this.sle_1=create sle_1this.cb_ok1=create cb_ok1this.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.destroyif 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 SNCconnSQLCA.DBMS = "SNC SQL Native Client(OLE DB)"SQLCA.LogPass = "123"SQLCA.ServerName = "."SQLCA.LogId = "sa"SQLCA.AutoCommit = FalseSQLCA.DBParm = "Database='pubs',StaticBind=0,BindSPInput=1" connect; if sqlca.sqlcode <>0 then this.title = "数据库链接错误: " + string(sqlca.sqlcode) + sqlca.sqlerrtext sleep(10) haltend if dw_1.settransobject(sqlca) end event event close;disconnect;end event type cb_3 from commandbutton within w_maininteger x = 1765integer y = 140integer width = 434integer height = 108integer taborder = 30integer textsize = -9integer weight = 400fontcharset 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_maininteger x = 2267integer y = 132integer width = 448integer height = 108integer taborder = 10integer textsize = -9integer weight = 400fontcharset 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_maininteger x = 2277integer y = 356integer width = 443integer height = 108integer taborder = 20integer textsize = -9integer weight = 400fontcharset 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_maininteger x = 1765integer y = 356integer width = 439integer height = 108integer taborder = 10integer textsize = -9integer weight = 400fontcharset 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_maininteger x = 32integer y = 408integer width = 562integer height = 84integer textsize = -10integer weight = 400fontcharset fontcharset = ansi!fontpitch fontpitch = variable!fontfamily fontfamily = swiss!string facename = "Tahoma"long textcolor = 33554432long backcolor = 67108864string text = "retrieve from pubs"boolean focusrectangle = falseend type type dw_1 from datawindow within w_maininteger x = 46integer y = 528integer width = 2734integer height = 984integer taborder = 20string title = "none"string dataobject = "d_emp"boolean livescroll = trueborderstyle borderstyle = stylelowered!end type type st_1 from statictext within w_maininteger x = 32integer y = 28integer width = 1861integer height = 80integer textsize = -10integer weight = 400fontcharset fontcharset = ansi!fontpitch fontpitch = variable!fontfamily fontfamily = swiss!string facename = "Tahoma"long textcolor = 33554432long backcolor = 67108864string text = "input your name,echo ~"YOUR NAME~" and tell you pb11 test!"boolean focusrectangle = falseend type type sle_1 from singlelineedit within w_maininteger x = 27integer y = 148integer width = 1582integer height = 100integer taborder = 10integer textsize = -9integer weight = 400fontcharset fontcharset = ansi!fontpitch fontpitch = variable!fontfamily fontfamily = swiss!string facename = "Tahoma"long textcolor = 33554432borderstyle borderstyle = stylelowered!end type type cb_ok1 from commandbutton within w_maininteger x = 32integer y = 280integer width = 320integer height = 108integer taborder = 10integer textsize = -9integer weight = 400fontcharset 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 forwardglobal type w_child from windowend typetype tab_1 from tab within w_childend typetype tabpage_1 from userobject within tab_1end typetype st_1 from statictext within tabpage_1end typetype tabpage_1 from userobject within tab_1st_1 st_1end typetype tabpage_2 from userobject within tab_1end typetype st_2 from statictext within tabpage_2end typetype tabpage_2 from userobject within tab_1st_2 st_2end typetype tabpage_3 from userobject within tab_1end typetype tabpage_3 from userobject within tab_1end typetype tabpage_4 from userobject within tab_1end typetype tabpage_4 from userobject within tab_1end typetype tabpage_5 from userobject within tab_1end typetype tabpage_5 from userobject within tab_1end typetype tab_1 from tab within w_childtabpage_1 tabpage_1tabpage_2 tabpage_2tabpage_3 tabpage_3tabpage_4 tabpage_4tabpage_5 tabpage_5end typetype dp_1 from datepicker within w_childend typeend forward global type w_child from windowinteger width = 2327integer height = 1444boolean titlebar = truestring title = "PB11-test chengg0769"boolean controlmenu = trueboolean minbox = trueboolean maxbox = trueboolean resizable = truelong backcolor = 67108864string icon = "AppIcon!"boolean center = truetab_1 tab_1dp_1 dp_1end typeglobal w_child w_child on w_child.createthis.tab_1=create tab_1this.dp_1=create dp_1this.Control[]={this.tab_1,&this.dp_1}end on on w_child.destroydestroy(this.tab_1)destroy(this.dp_1)end on type tab_1 from tab within w_childinteger x = 59integer y = 204integer width = 2153integer height = 1056integer taborder = 20integer textsize = -22integer weight = 400fontcharset fontcharset = ansi!fontpitch fontpitch = variable!fontfamily fontfamily = swiss!string facename = "Tahoma"long backcolor = 67108864boolean raggedright = trueboolean focusonbuttondown = trueinteger selectedtab = 1tabpage_1 tabpage_1tabpage_2 tabpage_2tabpage_3 tabpage_3tabpage_4 tabpage_4tabpage_5 tabpage_5end type on tab_1.createthis.tabpage_1=create tabpage_1this.tabpage_2=create tabpage_2this.tabpage_3=create tabpage_3this.tabpage_4=create tabpage_4this.tabpage_5=create tabpage_5this.Control[]={this.tabpage_1,&this.tabpage_2,&this.tabpage_3,&this.tabpage_4,&this.tabpage_5}end on on tab_1.destroydestroy(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_1integer x = 18integer y = 188integer width = 2117integer height = 852long backcolor = 67108864string text = "圣"long tabtextcolor = 33554432long picturemaskcolor = 536870912st_1 st_1end type on tabpage_1.createthis.st_1=create st_1this.Control[]={this.st_1}end on on tabpage_1.destroydestroy(this.st_1)end on type st_1 from statictext within tabpage_1integer x = 41integer y = 176integer width = 955integer height = 572integer textsize = -72integer weight = 400fontcharset fontcharset = ansi!fontpitch fontpitch = variable!fontfamily fontfamily = swiss!string facename = "Tahoma"long textcolor = 33554432long backcolor = 67108864string text = "中国"boolean focusrectangle = falseend type type tabpage_2 from userobject within tab_1integer x = 18integer y = 188integer width = 2117integer height = 852long backcolor = 67108864string text = "诞"long tabtextcolor = 33554432long picturemaskcolor = 536870912st_2 st_2end type on tabpage_2.createthis.st_2=create st_2this.Control[]={this.st_2}end on on tabpage_2.destroydestroy(this.st_2)end on type st_2 from statictext within tabpage_2integer x = 87integer y = 144integer width = 1262integer height = 564integer textsize = -72integer weight = 400fontcharset fontcharset = ansi!fontpitch fontpitch = variable!fontfamily fontfamily = swiss!string facename = "Tahoma"long textcolor = 33554432long backcolor = 67108864string text = "北京"boolean focusrectangle = falseend type type tabpage_3 from userobject within tab_1integer x = 18integer y = 188integer width = 2117integer height = 852long backcolor = 67108864string text = "节"long tabtextcolor = 33554432long picturemaskcolor = 536870912end type type tabpage_4 from userobject within tab_1integer x = 18integer y = 188integer width = 2117integer height = 852long backcolor = 67108864string text = "快"long tabtextcolor = 33554432long picturemaskcolor = 536870912end type type tabpage_5 from userobject within tab_1integer x = 18integer y = 188integer width = 2117integer height = 852long backcolor = 67108864string text = "乐"long tabtextcolor = 33554432long picturemaskcolor = 536870912end type type dp_1 from datepicker within w_childinteger x = 73integer y = 56integer width = 686integer height = 100integer taborder = 10boolean border = trueborderstyle 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 = -12fontcharset fontcharset = ansi!fontpitch fontpitch = variable!fontfamily fontfamily = swiss!string facename = "Tahoma"integer calendarfontweight = 400boolean todaysection = trueboolean todaycircle = trueend 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_connuo_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_errcodestring ls_sayhelloboolean lb_retrieve_ok ls_data =mysoap.of_get_ds_data(ls_syntax)ls_sayhello = mysoap.of_say_hello("") sle_1.text = ls_sayhellodw_1.create(ls_syntax,ls_errcode) if len(ls_errcode)>0 then messagebox("错误","创建数据框语法错误" +ls_errcode)end if dw_1.importstring(ls_data) destroy mysoapdestroy s_conn 更多 上一篇:电讯行业业务发展人员及营业收款人员的工资绩效考核最新思路(暂缺) 下一篇:信产部解冻固定电话资费 难抵移动业务分流影响(fm:中国经营报) 查看评论 * 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场 核心技术类目 全部主题 Java VPN Android iOS ERP IE10 Eclipse CRM JavaScript Ubuntu NFC WAP jQuery 数据库 BI HTML5 Spring Apache Hadoop .NET API HTML SDK IIS Fedora XML LBS Unity Splashtop UML components Windows Mobile Rails QEMU KDE Cassandra CloudStack FTC coremail OPhone CouchBase 云计算 iOS6 Rackspace Web App SpringSide Maemo Compuware 大数据 aptech Perl Tornado Ruby Hibernate ThinkPHP Spark HBase Pure Solr Angular Cloud Foundry Redis Scala Django Bootstrap 个人资料 chengg0769 访问:523102次 积分:8639分 排名:第424名 原创:268篇 转载:211篇 译文:0篇 评论:348条 文章搜索 文章分类 PB反编译与加密(12) IOS和安卓(9) PB与数据库(10) 网络相关(1) 搜索相关(0) 闲话扯起耍(1) 其他语言(4) 文章存档 2014年01月(1)2013年12月(2)2013年11月(2)2013年09月(1)2013年02月(1)2012年11月(1)2012年09月(1)2012年08月(6)2012年07月(1)2012年05月(3)2012年03月(4)2011年12月(2)2011年11月(2)2011年10月(9)2011年09月(6)2011年08月(11)2011年07月(2)2011年06月(4)2011年04月(3)2010年12月(1)2010年10月(2)2010年09月(8)2010年08月(1)2010年07月(8)2010年06月(17)2010年05月(2)2010年04月(2)2010年03月(4)2010年01月(1)2009年09月(8)2009年08月(5)2009年07月(8)2009年06月(8)2009年05月(16)2009年03月(2)2009年02月(7)2008年12月(2)2008年11月(4)2008年10月(5)2008年08月(1)2008年07月(2)2008年01月(12)2007年12月(29)2007年11月(7)2007年10月(4)2007年09月(20)2007年08月(55)2007年07月(176) 阅读排行 搜索引擎学习资源(作者:dongdonglang)(14659) 做代理网站最有效的4种宣传方法(admin9.com)(12125) 再谈powerbuilder程序防止破解的办法(终结篇,以后不再写这个问题)(8183) 程序员的SEO总结(7472) 浅谈Powerbuilder的未来和Powerbuilder使用者的未来(6083) PowerBuilder DeCompiler(PB DeCompiler) Demo download(PB反编译,支持5-12)(6030) 在一台联想3000G430 T1600笔记本上安装黑苹果(东皇v10.6.3)成功(6003) PB11.5,PB12 web项目初探(5695) 文件夹加密原理 [转](5682) powerbuilder反编译器开发-第一步:pbd结构分析和pbkiller分析(5566) 评论排行 浅谈Powerbuilder的未来和Powerbuilder使用者的未来(49) 程序员的SEO总结(32) 有关Powerbuilder的悲观论和乐观论(由郭贴引发的300多贴争辩想到的,也是很久就想秉明的一个观点)(22) Powerbuilder混淆,加密(powerbuilder防止反编译,pb混淆器,PB加壳,支持5-12) obfuscator for PowerBuilder(20) 戏说DataWindow的“移植”和“临摹”(19) 因为垄断形成,数据库市场将出现更多开源数据库(19) 免费软件模式之随想(18) PB11.5,PB12 web项目初探(15) 软件提交到国外的下载站的几点操作和想法(15) 关于对pbd反编译器的期待(11) 推荐文章 最新评论 安装两个BCB6控件SynEdit、mwEdit 0.92a的过程总结 jiduxiaozhang12345: 请问BCB6的第三方控件在哪下载啊?急求 Powershield一个疑似的BUG zhj149: 高手啊,看你的文章,感觉你玩pb已经到了极致的境界了,我自认为pb还不错,和你比起来,还是差了太多了 软件提交到国外的下载站的几点操作和想法 u012353953: 楼主在吗?有个问题请教,看到请加我QQ,谢谢。17493589 Lucene(Nutch)距离商业文本搜索引擎还有多远?(转载) koubi1986: 你好!请教一些问题:请问一下1。你是如何把nutch抓取到的二进制内容,在项目中读取的。2。nutc... 看一个商业共享软件是如何在下载站刷下载量来作弊的! u011506701: 您的判断是有误的,像我研究的刷量算法你就根本看不出来,出现的曲线图跟正常的一模一样的,附:刷量是最好... 垂直搜索引擎蜘蛛的基本解决方案(编程实例:所以推荐) gis101989: 你好,我正在写面向主题搜索引擎结合地理信息的论文,很多地方不懂,能加个扣扣吗?非常感谢你的帮助,我的... 浅谈Powerbuilder的未来和Powerbuilder使用者的未来 hosthelp: PB的最大缺点就是:(其实很简单)过时了。 服装过时就没人穿了, 电器过时就没人买了, 明星过时(过... 三岁小孩开发搜索引擎,搜索引擎白热化[原创] rongzi1987: 顶一个。先顶再看 再谈powerbuilder程序防止破解的办法(终结篇,以后不再写这个问题) hua2000: 顶顶更健康正在研究反向工程 有个傻B说破解了我的软件—哈哈!黄金屋手机MP3.MP4.3GP.电影.下载系统 ljx811216: 真有这事,看看 我的未来方向 pconline/asp.net周金桥老师的aspnet 友人Blog 旧博客在sina Bluesen的语音卡开发平台 JackXu的开源语音卡框架 经验丰富的好友:杨光的专栏 蓝星际语音平台,Koodoo语言 Lucene改造者-yuetiantian 西部.阿呆's blog manesking:全文检索c/c fullfocus研究lucene,nutch 黄国酬的博客 把“天轰穿”的asp.net 雨松.安卓