w_zonghe.srw

某 房 产 公 司 售 楼 管 理 系 统

$PBExportHeader$w_zonghe.srw
$PBExportComments$综合查询
forward
global type w_zonghe from window
end type
type sle_1 from singlelineedit within w_zonghe
end type
type dw_1 from datawindow within w_zonghe
end type
type p_1 from picture within w_zonghe
end type
type cb_1 from commandbutton within w_zonghe
end type
type st_1 from statictext within w_zonghe
end type
end forward

global type w_zonghe from window
string tag = "综合查询"
integer x = 50
integer y = 300
integer width = 3547
integer height = 1804
boolean titlebar = true
string title = "综合查询"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 79741120
sle_1 sle_1
dw_1 dw_1
p_1 p_1
cb_1 cb_1
st_1 st_1
end type
global w_zonghe w_zonghe

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

on w_zonghe.destroy
destroy(this.sle_1)
destroy(this.dw_1)
destroy(this.p_1)
destroy(this.cb_1)
destroy(this.st_1)
end on

event open;//w_zonghe.dw_1.settransobject(sqlca)
string statement
long l_rownum
stru_jccxgy jccxgy[]

statement=message.stringparm
 gconn_xt.CreateInstance(luo_jcremote)
 if isvalid(luo_jcremote) then
	l_rownum=luo_jcremote.uf_jccxgy(statement,jccxgy)
	if l_rownum>0 then
		dw_1.object.data=jccxgy
	else 
		messagebox("提示","此条件查询结果为空")
	end if 
end if 
	sle_1.text="查询结果共" +  string(l_rownum)  + "条记录"
end event
type sle_1 from singlelineedit within w_zonghe
integer x = 763
integer y = 52
integer width = 1230
integer height = 108
integer taborder = 20
integer textsize = -14
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "隶书"
long textcolor = 16711680
long backcolor = 12632256
boolean border = false
boolean autohscroll = false
end type

type dw_1 from datawindow within w_zonghe
integer x = 347
integer y = 244
integer width = 3063
integer height = 1404
integer taborder = 30
string dataobject = "dw_cxgy1"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean livescroll = true
end type

type p_1 from picture within w_zonghe
integer y = 168
integer width = 3534
integer height = 1548
string picturename = "c:\zak\notbook.bmp"
boolean focusrectangle = false
end type

type cb_1 from commandbutton within w_zonghe
integer x = 2610
integer y = 48
integer width = 411
integer height = 108
integer taborder = 10
integer textsize = -14
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "隶书"
string text = "返回"
end type

event clicked;close(w_zonghe)
end event

type st_1 from statictext within w_zonghe
integer x = 73
integer y = 56
integer width = 718
integer height = 80
integer textsize = -16
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "隶书"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "综合查询情况:"
boolean focusrectangle = false
end type