w_houseinfo.srw

pb所需编程技巧和事例

$PBExportHeader$w_houseinfo.srw
forward
global type w_houseinfo from window
end type
type cb_2 from commandbutton within w_houseinfo
end type
type dw_1 from datawindow within w_houseinfo
end type
type cb_1 from commandbutton within w_houseinfo
end type
end forward

global type w_houseinfo from window
integer width = 3639
integer height = 1808
boolean titlebar = true
string title = "房屋资源查询维护界面"
boolean minbox = true
boolean maxbox = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_2 cb_2
dw_1 dw_1
cb_1 cb_1
end type
global w_houseinfo w_houseinfo

on w_houseinfo.create
this.cb_2=create cb_2
this.dw_1=create dw_1
this.cb_1=create cb_1
this.Control[]={this.cb_2,&
this.dw_1,&
this.cb_1}
end on

on w_houseinfo.destroy
destroy(this.cb_2)
destroy(this.dw_1)
destroy(this.cb_1)
end on

event open;if message.stringparm="inquiry" then
	cb_1.visible=false	
end if

dw_1.setTransObject(sqlca)
dw_1.retrieve()
end event

type cb_2 from commandbutton within w_houseinfo
integer x = 1765
integer y = 1520
integer width = 457
integer height = 128
integer taborder = 20
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "退出"
end type

event clicked;close(parent)
end event

type dw_1 from datawindow within w_houseinfo
integer x = 64
integer y = 52
integer width = 3483
integer height = 1376
integer taborder = 10
boolean titlebar = true
string title = "房源信息"
string dataobject = "d_house"
boolean controlmenu = true
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type cb_1 from commandbutton within w_houseinfo
integer x = 1189
integer y = 1520
integer width = 457
integer height = 128
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "保存更改"
end type

event clicked;dw_1.update()
end event