Q5/ws_objects/Ew_email.pbl.src/w_email_set.srw

$PBExportHeader$w_email_set.srw
forward
global type w_email_set from w_publ_choice
end type
end forward

global type w_email_set from w_publ_choice
integer height = 1796
end type
global w_email_set w_email_set

type variables
s_email_set s_set
end variables

event open;call super::open;long arg_pkid
arg_pkid = message.longparm
long ll_row = 0
ll_row = dw_ch.find('mailid = ' + string(arg_pkid), 1, dw_ch.rowcount())
if ll_row > 0 then
	dw_ch.scrolltorow(ll_row)
end if
end event

on w_email_set.create
call super::create
end on

on w_email_set.destroy
call super::destroy
end on

event close;call super::close;CloseWithReturn(THIS,s_set)

end event

event dw_filter;call super::dw_filter;string obj_expr=''  
if trim(sle_ch.text)<>'' then 
	IF POS(trim(sle_ch.text),'%',1)=0 THEN
		obj_expr=obj_expr+'#3 like ~'%'+trim(sle_ch.text)+'%~''
	ELSE
		obj_expr=obj_expr+'#3 like ~''+trim(sle_ch.text)+'~''
	END IF 
end if

dw_ch.setfilter(obj_expr)
dw_ch.SetRedraw(False)
dw_ch.filter()
if dw_ch.rowcount()>=1 then
	dw_ch.selectrow(0,false)
	dw_ch.selectrow(1,true)
end if
dw_ch.SetRedraw(TRUE)
end event

type cb_func from w_publ_choice`cb_func within w_email_set
end type

type cb_exit from w_publ_choice`cb_exit within w_email_set
end type

type sle_ch from w_publ_choice`sle_ch within w_email_set
end type

type dw_ch from w_publ_choice`dw_ch within w_email_set
integer width = 2153
string dataobject = "dw_email_set_index"
end type

type st_1 from w_publ_choice`st_1 within w_email_set
end type

type cb_retrieve from w_publ_choice`cb_retrieve within w_email_set
end type

event cb_retrieve::clicked;dw_ch.retrieve(sys_empid)
end event

type cb_choice from w_publ_choice`cb_choice within w_email_set
end type

event cb_choice::clicked;call super::clicked;Long LS_ROW
LS_ROW = dw_ch.GetRow()
IF LS_ROW <= 0 THEN
	MessageBox('提示','请先选择目标行!',information!,ok!)
	RETURN
END IF

dw_ch.accepttext()
s_set.mailid = dw_ch.object.mailid[LS_ROW]
s_set.empid= dw_ch.object.empid[LS_ROW]
s_set.mailuser= dw_ch.object.mailuser[LS_ROW]
s_set.mailaddress= dw_ch.object.mailaddress[LS_ROW] 
s_set.popset= dw_ch.object.popset[LS_ROW]
s_set.smtpset= dw_ch.object.smtpset[LS_ROW]
s_set.othermsg= dw_ch.object.othermsg[LS_ROW]
s_set.mailpsw = Trim(f_psw_bczh(dw_ch.object.mailpsw[LS_ROW],1,sys_power_key))

s_set.popport= dw_ch.object.popport[LS_ROW]
s_set.smtpport= dw_ch.object.smtpport[LS_ROW]
s_set.ifnodelmsg= dw_ch.object.ifdelmsg[LS_ROW]


Close(PARENT)

end event

type ln_bar from w_publ_choice`ln_bar within w_email_set
end type

type ln_bar2 from w_publ_choice`ln_bar2 within w_email_set
end type

type r_bar from w_publ_choice`r_bar within w_email_set
end type

type ln_1 from w_publ_choice`ln_1 within w_email_set
end type

type ln_2 from w_publ_choice`ln_2 within w_email_set
end type