Q5/ws_objects/Ew_publ903.pbl.src/w_sys_msx.srw

$PBExportHeader$w_sys_msx.srw
$PBExportComments$Generated MDI frame window
forward
global type w_sys_msx from w_publ_base
end type
type cb_1 from commandbutton within w_sys_msx
end type
type em_1 from editmask within w_sys_msx
end type
type em_2 from editmask within w_sys_msx
end type
type st_3 from statictext within w_sys_msx
end type
type st_4 from statictext within w_sys_msx
end type
type cbx_1 from checkbox within w_sys_msx
end type
end forward

global type w_sys_msx from w_publ_base
integer width = 1326
integer height = 688
string title = "选择筛选时间条件(默认刷新范围)"
boolean minbox = false
windowtype windowtype = response!
cb_1 cb_1
em_1 em_1
em_2 em_2
st_3 st_3
st_4 st_4
cbx_1 cbx_1
end type
global w_sys_msx w_sys_msx

type variables
s_edit_tran lss_rtv
end variables

on w_sys_msx.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.em_1=create em_1
this.em_2=create em_2
this.st_3=create st_3
this.st_4=create st_4
this.cbx_1=create cbx_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.em_1
this.Control[iCurrent+3]=this.em_2
this.Control[iCurrent+4]=this.st_3
this.Control[iCurrent+5]=this.st_4
this.Control[iCurrent+6]=this.cbx_1
end on

on w_sys_msx.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.em_1)
destroy(this.em_2)
destroy(this.st_3)
destroy(this.st_4)
destroy(this.cbx_1)
end on

event open;call super::open;lss_rtv=Message.PowerObjectParm

em_1.text=string(lss_rtv.first_date,'yyyy-mm-dd')
em_2.text=string(lss_rtv.end_date,'yyyy-mm-dd')


IF lss_rtv.USE<>0 THEN 
	cbx_1.CHECKED=TRUE
ELSE
	cbx_1.CHECKED=FALSE
END IF

IF lss_rtv.YN=1 THEN 
	cbx_1.VISIBLE=TRUE
ELSE
	cbx_1.VISIBLE=FALSE
	cbx_1.CHECKED=TRUE
END IF	

//RelativeDate(
end event

type cb_func from w_publ_base`cb_func within w_sys_msx
boolean visible = false
integer x = 965
integer y = 220
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_sys_msx
integer x = 741
integer y = 440
string text = "取消"
end type

type cb_1 from commandbutton within w_sys_msx
integer x = 242
integer y = 440
integer width = 311
integer height = 96
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
boolean default = true
end type

event clicked;lss_rtv.first_date=date(em_1.text)
lss_rtv.end_date	=date(em_2.text)
lss_rtv.yn=1

IF cbx_1.CHECKED THEN 
	lss_rtv.USE=1
ELSE
	lss_rtv.USE=0
END IF

CloseWithReturn(w_sys_msx,lss_rtv)
//RelativeDate (,-1)
end event

type em_1 from editmask within w_sys_msx
integer x = 462
integer y = 160
integer width = 453
integer height = 88
integer taborder = 10
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

type em_2 from editmask within w_sys_msx
integer x = 462
integer y = 272
integer width = 453
integer height = 88
integer taborder = 20
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

type st_3 from statictext within w_sys_msx
integer x = 311
integer y = 180
integer width = 87
integer height = 76
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "从:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_4 from statictext within w_sys_msx
integer x = 50
integer y = 32
integer width = 768
integer height = 76
integer textsize = -10
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "幼圆"
long backcolor = 134217739
boolean enabled = false
string text = "确定查询结果集时间范围"
boolean focusrectangle = false
end type

type cbx_1 from checkbox within w_sys_msx
boolean visible = false
integer x = 896
integer y = 28
integer width = 338
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "有效记录"
end type