$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