w_luru.srw

某 房 产 公 司 售 楼 管 理 系 统

$PBExportHeader$w_luru.srw
$PBExportComments$录入选择
forward
global type w_luru from window
end type
type cbx_1 from checkbox within w_luru
end type
type cbx_3 from checkbox within w_luru
end type
type p_1 from picture within w_luru
end type
end forward

global type w_luru from window
integer x = 1330
integer y = 652
integer width = 1019
integer height = 340
boolean titlebar = true
string title = "窗口选择"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 79741120
string icon = "Information!"
cbx_1 cbx_1
cbx_3 cbx_3
p_1 p_1
end type
global w_luru w_luru

on w_luru.create
this.cbx_1=create cbx_1
this.cbx_3=create cbx_3
this.p_1=create p_1
this.Control[]={this.cbx_1,&
this.cbx_3,&
this.p_1}
end on

on w_luru.destroy
destroy(this.cbx_1)
destroy(this.cbx_3)
destroy(this.p_1)
end on

type cbx_1 from checkbox within w_luru
integer x = 87
integer y = 124
integer width = 809
integer height = 76
integer textsize = -14
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "隶书"
long textcolor = 16711680
long backcolor = 32896
string text = "暂扣车辆通知书"
borderstyle borderstyle = stylelowered!
end type

event clicked;//insert_zkcl=true
////w_zkcllu.dw_1.setitem(1,'page',"")
////w_zkcllu.dw_1.setcolumn('page')
//////getcolumn(w_zkcllu.dw_1)
////w_zkcllu.dw_1.setfocus()
////cbx_2.enabled=false
////timer (3)
close(w_luru)
open(w_zkcllu)
end event

type cbx_3 from checkbox within w_luru
integer x = 87
integer y = 36
integer width = 594
integer height = 76
integer textsize = -14
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "隶书"
long textcolor = 16711680
long backcolor = 32896
string text = "违章通知单"
borderstyle borderstyle = stylelowered!
end type

event clicked;//insert_wztzd=true
close(w_luru)
open(w_wztzd)
end event

type p_1 from picture within w_luru
integer x = 1200
integer y = 600
integer width = 1198
integer height = 588
string picturename = "c:\zak\cover.bmp"
boolean border = true
boolean focusrectangle = false
end type