w_choosehouse.srw

pb所需编程技巧和事例

$PBExportHeader$w_choosehouse.srw
forward
global type w_choosehouse from window
end type
type cb_1 from commandbutton within w_choosehouse
end type
type st_1 from statictext within w_choosehouse
end type
type dw_1 from datawindow within w_choosehouse
end type
end forward

global type w_choosehouse from window
integer width = 4457
integer height = 1720
boolean titlebar = true
string title = "选定房源"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_1 cb_1
st_1 st_1
dw_1 dw_1
end type
global w_choosehouse w_choosehouse

on w_choosehouse.create
this.cb_1=create cb_1
this.st_1=create st_1
this.dw_1=create dw_1
this.Control[]={this.cb_1,&
this.st_1,&
this.dw_1}
end on

on w_choosehouse.destroy
destroy(this.cb_1)
destroy(this.st_1)
destroy(this.dw_1)
end on

event open;dw_1.settransobject(sqlca)
dw_1.retrieve()
end event

type cb_1 from commandbutton within w_choosehouse
integer x = 1559
integer y = 1424
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;int i
string selNum
for i=1 to dw_1.getrow()
	if dw_1.GetItemNumber(i,"flag")=1 then
		selNum=dw_1.GetitemString(i,"number")
		openwithparm(w_buyhouse,selNum)		
		return
	end if
next


end event

type st_1 from statictext within w_choosehouse
integer x = 78
integer y = 92
integer width = 672
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "选择你要购买的房屋"
boolean focusrectangle = false
end type

type dw_1 from datawindow within w_choosehouse
integer x = 50
integer y = 192
integer width = 4338
integer height = 1164
integer taborder = 10
boolean titlebar = true
string title = "待售房源信息一览表"
string dataobject = "d_choosehouse"
boolean hscrollbar = true
boolean vscrollbar = true
boolean border = false
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type