$PBExportHeader$w_rs_rp_empinfo_tx.srw forward global type w_rs_rp_empinfo_tx from w_publ_easyq end type type ddlb_1 from dropdownlistbox within w_rs_rp_empinfo_tx end type type ddlb_scid from uo_ddlb_scid within w_rs_rp_empinfo_tx end type type st_1 from statictext within w_rs_rp_empinfo_tx end type type st_2 from statictext within w_rs_rp_empinfo_tx end type type st_5 from statictext within w_rs_rp_empinfo_tx end type type st_6 from statictext within w_rs_rp_empinfo_tx end type type em_3 from editmask within w_rs_rp_empinfo_tx end type type em_4 from editmask within w_rs_rp_empinfo_tx end type end forward global type w_rs_rp_empinfo_tx from w_publ_easyq string title = "退休提醒表" ddlb_1 ddlb_1 ddlb_scid ddlb_scid st_1 st_1 st_2 st_2 st_5 st_5 st_6 st_6 em_3 em_3 em_4 em_4 end type global w_rs_rp_empinfo_tx w_rs_rp_empinfo_tx type variables long cur_scid_arr[] end variables on w_rs_rp_empinfo_tx.create int iCurrent call super::create this.ddlb_1=create ddlb_1 this.ddlb_scid=create ddlb_scid this.st_1=create st_1 this.st_2=create st_2 this.st_5=create st_5 this.st_6=create st_6 this.em_3=create em_3 this.em_4=create em_4 iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.ddlb_1 this.Control[iCurrent+2]=this.ddlb_scid this.Control[iCurrent+3]=this.st_1 this.Control[iCurrent+4]=this.st_2 this.Control[iCurrent+5]=this.st_5 this.Control[iCurrent+6]=this.st_6 this.Control[iCurrent+7]=this.em_3 this.Control[iCurrent+8]=this.em_4 end on on w_rs_rp_empinfo_tx.destroy call super::destroy destroy(this.ddlb_1) destroy(this.ddlb_scid) destroy(this.st_1) destroy(this.st_2) destroy(this.st_5) destroy(this.st_6) destroy(this.em_3) destroy(this.em_4) end on event open;call super::open;em_3.text = '55' em_4.text = '50' cb_1.triggerevent(clicked!) end event event ue_before_open;call super::ue_before_open;if_ue_filter=true if_ue_sort=true if_ue_sentdataout=true end event type cb_func from w_publ_easyq`cb_func within w_rs_rp_empinfo_tx end type type cb_exit from w_publ_easyq`cb_exit within w_rs_rp_empinfo_tx end type type cb_2 from w_publ_easyq`cb_2 within w_rs_rp_empinfo_tx integer taborder = 100 boolean bringtotop = true end type type cb_psetup from w_publ_easyq`cb_psetup within w_rs_rp_empinfo_tx boolean bringtotop = true end type type cb_1 from w_publ_easyq`cb_1 within w_rs_rp_empinfo_tx boolean bringtotop = true end type event cb_1::clicked;call super::clicked;long m_old long w_old m_old = long(em_3.text) w_old = long(em_4.text) if ddlb_1.text='在职'then dw_1.retrieve(1,cur_scid_arr,w_old,m_old) //else // dw_1.retrieve(0,cur_scid_arr,w_old,m_old) end if end event type st_3 from w_publ_easyq`st_3 within w_rs_rp_empinfo_tx boolean visible = false integer x = 1353 integer y = 204 integer height = 68 end type type st_4 from w_publ_easyq`st_4 within w_rs_rp_empinfo_tx boolean visible = false integer x = 1961 integer y = 216 end type type em_1 from w_publ_easyq`em_1 within w_rs_rp_empinfo_tx boolean visible = false integer x = 1573 integer taborder = 110 end type type em_2 from w_publ_easyq`em_2 within w_rs_rp_empinfo_tx boolean visible = false integer x = 2062 integer taborder = 120 end type type ddlb_yl from w_publ_easyq`ddlb_yl within w_rs_rp_empinfo_tx integer x = 1582 integer y = 40 end type type cbx_yl from w_publ_easyq`cbx_yl within w_rs_rp_empinfo_tx integer x = 1371 integer y = 40 end type type dw_1 from w_publ_easyq`dw_1 within w_rs_rp_empinfo_tx integer y = 304 integer width = 2693 integer height = 936 string dataobject = "dw_rs_rp_empinfo_tx" end type type sle_mtrl from w_publ_easyq`sle_mtrl within w_rs_rp_empinfo_tx end type type sle_cust from w_publ_easyq`sle_cust within w_rs_rp_empinfo_tx end type type st_mtrl from w_publ_easyq`st_mtrl within w_rs_rp_empinfo_tx end type type st_cust from w_publ_easyq`st_cust within w_rs_rp_empinfo_tx end type type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_rs_rp_empinfo_tx end type type pb_em1 from w_publ_easyq`pb_em1 within w_rs_rp_empinfo_tx boolean visible = false integer x = 2464 integer y = 184 end type type pb_em2 from w_publ_easyq`pb_em2 within w_rs_rp_empinfo_tx boolean visible = false integer x = 2565 integer y = 184 end type type pb_2 from w_publ_easyq`pb_2 within w_rs_rp_empinfo_tx boolean visible = false integer x = 2665 integer y = 184 end type type cb_help from w_publ_easyq`cb_help within w_rs_rp_empinfo_tx end type type cb_copyself from w_publ_easyq`cb_copyself within w_rs_rp_empinfo_tx end type type gb_1 from w_publ_easyq`gb_1 within w_rs_rp_empinfo_tx end type type ln_bar from w_publ_easyq`ln_bar within w_rs_rp_empinfo_tx end type type ln_bar2 from w_publ_easyq`ln_bar2 within w_rs_rp_empinfo_tx end type type r_bar from w_publ_easyq`r_bar within w_rs_rp_empinfo_tx end type type ln_1 from w_publ_easyq`ln_1 within w_rs_rp_empinfo_tx end type type ln_2 from w_publ_easyq`ln_2 within w_rs_rp_empinfo_tx end type type ln_3 from w_publ_easyq`ln_3 within w_rs_rp_empinfo_tx boolean visible = false end type type ln_4 from w_publ_easyq`ln_4 within w_rs_rp_empinfo_tx boolean visible = false end type type ddlb_1 from dropdownlistbox within w_rs_rp_empinfo_tx boolean visible = false integer x = 896 integer y = 200 integer width = 370 integer height = 300 integer taborder = 40 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 string text = "在职" boolean vscrollbar = true string item[] = {"在职","离职"} borderstyle borderstyle = stylelowered! end type type ddlb_scid from uo_ddlb_scid within w_rs_rp_empinfo_tx integer x = 165 integer y = 200 integer width = 576 integer height = 620 integer taborder = 90 boolean bringtotop = true end type event constructor;call super::constructor;cur_scid_arr = THIS.uo_scid_arr end event event selectionchanged;call super::selectionchanged; cur_scid_arr = THIS.uo_scid_arr cb_1.triggerevent(clicked!) end event type st_1 from statictext within w_rs_rp_empinfo_tx integer x = 27 integer y = 220 integer width = 128 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 134217739 string text = "分部" alignment alignment = right! boolean focusrectangle = false end type type st_2 from statictext within w_rs_rp_empinfo_tx boolean visible = false integer x = 750 integer y = 220 integer width = 128 integer height = 48 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 long backcolor = 134217739 string text = "状态" alignment alignment = right! boolean focusrectangle = false end type type st_5 from statictext within w_rs_rp_empinfo_tx integer x = 773 integer y = 212 integer width = 352 integer height = 72 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 = "退休年龄:男" boolean focusrectangle = false end type type st_6 from statictext within w_rs_rp_empinfo_tx integer x = 1335 integer y = 212 integer width = 91 integer height = 52 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 = "女" boolean focusrectangle = false end type type em_3 from editmask within w_rs_rp_empinfo_tx integer x = 1115 integer y = 196 integer width = 183 integer height = 84 integer taborder = 70 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 borderstyle borderstyle = stylelowered! string mask = "###" end type type em_4 from editmask within w_rs_rp_empinfo_tx integer x = 1403 integer y = 196 integer width = 183 integer height = 84 integer taborder = 20 boolean bringtotop = true integer textsize = -9 integer weight = 400 fontcharset fontcharset = gb2312charset! fontpitch fontpitch = variable! string facename = "宋体" long textcolor = 33554432 borderstyle borderstyle = stylelowered! string mask = "###" end type