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

$PBExportHeader$w_email_set_detail.srw
forward
global type w_email_set_detail from w_publ_base
end type
type st_1 from statictext within w_email_set_detail
end type
type sle_mailuser from singlelineedit within w_email_set_detail
end type
type st_2 from statictext within w_email_set_detail
end type
type st_mailtype from statictext within w_email_set_detail
end type
type st_4 from statictext within w_email_set_detail
end type
type sle_mailpsw from singlelineedit within w_email_set_detail
end type
type st_5 from statictext within w_email_set_detail
end type
type st_6 from statictext within w_email_set_detail
end type
type sle_popset from singlelineedit within w_email_set_detail
end type
type st_7 from statictext within w_email_set_detail
end type
type st_8 from statictext within w_email_set_detail
end type
type sle_smtpset from singlelineedit within w_email_set_detail
end type
type st_9 from statictext within w_email_set_detail
end type
type cbx_ifdelmsg from checkbox within w_email_set_detail
end type
type st_10 from statictext within w_email_set_detail
end type
type sle_mailaddress from singlelineedit within w_email_set_detail
end type
type em_popport from editmask within w_email_set_detail
end type
type em_smtpport from editmask within w_email_set_detail
end type
type em_gap from editmask within w_email_set_detail
end type
type cb_save from uo_imflatbutton within w_email_set_detail
end type
type st_opemp from statictext within w_email_set_detail
end type
type st_opdate from statictext within w_email_set_detail
end type
type mle_dscrp from multilineedit within w_email_set_detail
end type
type sle_othermsg from singlelineedit within w_email_set_detail
end type
type st_3 from statictext within w_email_set_detail
end type
type st_11 from statictext within w_email_set_detail
end type
type st_12 from statictext within w_email_set_detail
end type
type st_13 from statictext within w_email_set_detail
end type
type cb_1 from uo_imflatbutton within w_email_set_detail
end type
type cb_ok from uo_imflatbutton within w_email_set_detail
end type
type cbx_1 from checkbox within w_email_set_detail
end type
type ln_bar from line within w_email_set_detail
end type
type ln_bar2 from line within w_email_set_detail
end type
end forward

global type w_email_set_detail from w_publ_base
integer width = 2277
integer height = 1504
string title = "账号设置"
boolean minbox = false
windowtype windowtype = response!
st_1 st_1
sle_mailuser sle_mailuser
st_2 st_2
st_mailtype st_mailtype
st_4 st_4
sle_mailpsw sle_mailpsw
st_5 st_5
st_6 st_6
sle_popset sle_popset
st_7 st_7
st_8 st_8
sle_smtpset sle_smtpset
st_9 st_9
cbx_ifdelmsg cbx_ifdelmsg
st_10 st_10
sle_mailaddress sle_mailaddress
em_popport em_popport
em_smtpport em_smtpport
em_gap em_gap
cb_save cb_save
st_opemp st_opemp
st_opdate st_opdate
mle_dscrp mle_dscrp
sle_othermsg sle_othermsg
st_3 st_3
st_11 st_11
st_12 st_12
st_13 st_13
cb_1 cb_1
cb_ok cb_ok
cbx_1 cbx_1
ln_bar ln_bar
ln_bar2 ln_bar2
end type
global w_email_set_detail w_email_set_detail

type variables
private:
long mailid
long mailtype
long empid
string old_title
boolean dw_can_edit

transaction Commit_Tran  // 帐号表所有数据库
transaction fj_tran      // 邮件附件数据库

end variables

forward prototypes
public subroutine wf_set_ui ()
public subroutine wf_check_valid ()
public function integer wf_save (ref string arg_msg)
public function integer wf_retrieve (ref string arg_msg)
public subroutine wf_set_default ()
end prototypes

public subroutine wf_set_ui ();sle_mailaddress.enabled = dw_edit_mode and dw_can_edit
sle_mailpsw.enabled = dw_edit_mode and dw_can_edit
sle_mailuser.enabled = dw_edit_mode and dw_can_edit
sle_popset.enabled = dw_edit_mode and dw_can_edit
sle_smtpset.enabled = dw_edit_mode and dw_can_edit
em_gap.enabled = dw_edit_mode and dw_can_edit
em_popport.enabled = dw_edit_mode and dw_can_edit
em_smtpport.enabled = dw_edit_mode and dw_can_edit
cbx_ifdelmsg.enabled = dw_edit_mode and dw_can_edit
sle_othermsg.enabled = dw_edit_mode and dw_can_edit
mle_dscrp.enabled = dw_edit_mode and dw_can_edit
cb_save.enabled = dw_can_edit
if dw_edit_mode then
	cb_save.text = '保存'
else
	cb_save.text = '修改'
end if

if dw_edit_mode then
	if mailid = 0 then
		this.title = old_title + '[添加]'
	else
		this.title = old_title + '[修改]'
	end if
else
	this.title = old_title + '[查看]'
end if
end subroutine

public subroutine wf_check_valid ();
end subroutine

public function integer wf_save (ref string arg_msg);integer rslt = 1
uo_email_set uo_set
uo_set.commit_tran = commit_tran
uo_set.fj_tran = fj_tran

uo_set.mailid = mailid
uo_set.empid = empid
uo_set.mailtype = mailtype
uo_set.mailaddress = sle_mailaddress.text
uo_set.mailpsw = f_psw_bczh(sle_mailpsw.text,0,sys_power_key)
uo_set.mailuser = sle_mailuser.text
uo_set.popset = sle_popset.text
uo_set.smtpset = sle_smtpset.text
uo_set.gap = long(em_gap.text)
uo_set.popport = long(em_popport.text)
uo_set.smtpport = long(em_smtpport.text)
uo_set.othermsg = sle_othermsg.text
uo_set.dscrp = mle_dscrp.text

if cbx_1.checked then
	uo_set.ifuseSSL = 1
else
	uo_set.ifuseSSL = 0
end if

if cbx_ifdelmsg.checked then
	uo_set.ifdelmsg = 1
else
	uo_set.ifdelmsg = 0
end if

if uo_set.uf_save(arg_msg) <> 1 then
	rslt = 0
	goto ext
end if
mailid = uo_set.mailid
ext:
return rslt
end function

public function integer wf_retrieve (ref string arg_msg);int rslt = 1
uo_email_set uo_set
uo_set.commit_tran = commit_tran
uo_set.fj_tran = fj_tran
if uo_set.p_getinfo(mailid, arg_msg) <> 1 then
	rslt = 0
	goto ext
end if

sle_mailuser.text = uo_set.mailuser
sle_mailaddress.text = uo_set.mailaddress
sle_mailpsw.text = f_psw_bczh(uo_set.mailpsw,1,sys_power_key)
sle_popset.text = uo_set.popset
sle_smtpset.text = uo_set.smtpset
em_gap.text = string(uo_set.gap)
em_popport.text = string(uo_set.popport)
em_smtpport.text = string(uo_set.smtpport)
sle_othermsg.text = uo_set.othermsg
mle_dscrp.text = uo_set.dscrp
st_opemp.text = uo_set.opemp
st_opdate.text = string(uo_set.opdate, 'yyyy-mm-dd hh:mm')
mailtype = uo_set.mailtype
empid = uo_set.empid

cbx_1.checked = (uo_set.ifuseSSL = 1)
cbx_ifdelmsg.checked = (uo_set.ifdelmsg = 1)
if mailtype = 1 then
	st_mailtype.text = '公共'
else
	st_mailtype.text = '私人'
end if

ext:
return rslt
end function

public subroutine wf_set_default ();if mailtype = 0 then
	st_mailtype.text = '私人'
elseif mailtype = 1 then
	st_mailtype.text = '公共'
end if

em_popport.text = '110'
em_smtpport.text = '25'
em_gap.text = '0'
cbx_ifdelmsg.checked = false
end subroutine

on w_email_set_detail.create
int iCurrent
call super::create
this.st_1=create st_1
this.sle_mailuser=create sle_mailuser
this.st_2=create st_2
this.st_mailtype=create st_mailtype
this.st_4=create st_4
this.sle_mailpsw=create sle_mailpsw
this.st_5=create st_5
this.st_6=create st_6
this.sle_popset=create sle_popset
this.st_7=create st_7
this.st_8=create st_8
this.sle_smtpset=create sle_smtpset
this.st_9=create st_9
this.cbx_ifdelmsg=create cbx_ifdelmsg
this.st_10=create st_10
this.sle_mailaddress=create sle_mailaddress
this.em_popport=create em_popport
this.em_smtpport=create em_smtpport
this.em_gap=create em_gap
this.cb_save=create cb_save
this.st_opemp=create st_opemp
this.st_opdate=create st_opdate
this.mle_dscrp=create mle_dscrp
this.sle_othermsg=create sle_othermsg
this.st_3=create st_3
this.st_11=create st_11
this.st_12=create st_12
this.st_13=create st_13
this.cb_1=create cb_1
this.cb_ok=create cb_ok
this.cbx_1=create cbx_1
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.st_1
this.Control[iCurrent+2]=this.sle_mailuser
this.Control[iCurrent+3]=this.st_2
this.Control[iCurrent+4]=this.st_mailtype
this.Control[iCurrent+5]=this.st_4
this.Control[iCurrent+6]=this.sle_mailpsw
this.Control[iCurrent+7]=this.st_5
this.Control[iCurrent+8]=this.st_6
this.Control[iCurrent+9]=this.sle_popset
this.Control[iCurrent+10]=this.st_7
this.Control[iCurrent+11]=this.st_8
this.Control[iCurrent+12]=this.sle_smtpset
this.Control[iCurrent+13]=this.st_9
this.Control[iCurrent+14]=this.cbx_ifdelmsg
this.Control[iCurrent+15]=this.st_10
this.Control[iCurrent+16]=this.sle_mailaddress
this.Control[iCurrent+17]=this.em_popport
this.Control[iCurrent+18]=this.em_smtpport
this.Control[iCurrent+19]=this.em_gap
this.Control[iCurrent+20]=this.cb_save
this.Control[iCurrent+21]=this.st_opemp
this.Control[iCurrent+22]=this.st_opdate
this.Control[iCurrent+23]=this.mle_dscrp
this.Control[iCurrent+24]=this.sle_othermsg
this.Control[iCurrent+25]=this.st_3
this.Control[iCurrent+26]=this.st_11
this.Control[iCurrent+27]=this.st_12
this.Control[iCurrent+28]=this.st_13
this.Control[iCurrent+29]=this.cb_1
this.Control[iCurrent+30]=this.cb_ok
this.Control[iCurrent+31]=this.cbx_1
this.Control[iCurrent+32]=this.ln_bar
this.Control[iCurrent+33]=this.ln_bar2
end on

on w_email_set_detail.destroy
call super::destroy
destroy(this.st_1)
destroy(this.sle_mailuser)
destroy(this.st_2)
destroy(this.st_mailtype)
destroy(this.st_4)
destroy(this.sle_mailpsw)
destroy(this.st_5)
destroy(this.st_6)
destroy(this.sle_popset)
destroy(this.st_7)
destroy(this.st_8)
destroy(this.sle_smtpset)
destroy(this.st_9)
destroy(this.cbx_ifdelmsg)
destroy(this.st_10)
destroy(this.sle_mailaddress)
destroy(this.em_popport)
destroy(this.em_smtpport)
destroy(this.em_gap)
destroy(this.cb_save)
destroy(this.st_opemp)
destroy(this.st_opdate)
destroy(this.mle_dscrp)
destroy(this.sle_othermsg)
destroy(this.st_3)
destroy(this.st_11)
destroy(this.st_12)
destroy(this.st_13)
destroy(this.cb_1)
destroy(this.cb_ok)
destroy(this.cbx_1)
destroy(this.ln_bar)
destroy(this.ln_bar2)
end on

event open;call super::open;commit_tran = sqlca

Long ll_ConnectionID
String arg_msg
Int li_ifexit = 0
IF sys_email_sqlca.DBHandle() > 0 THEN
	fj_tran = sys_email_sqlca
ELSE
	MessageBox('系统提示','要使用邮件功能,请先定义邮件数据库')
	li_ifexit = 1
END IF

IF li_ifexit = 0 THEN
	// setid
	String ls_msg
	old_title = THIS.Title
	
	s_email_set s_set
	s_set = Message.PowerObjectParm
	mailid = s_set.mailid
	empid = s_set.empid
	mailtype = s_set.viewtype
	
	dw_can_edit = (s_set.flag = 1)
	
	dw_edit_mode = dw_can_edit
	
	IF mailid = 0 THEN
		// 默认值
		wf_set_default()
	ELSE
		IF wf_retrieve(ls_msg) <> 1 THEN
			MessageBox('系统错误', ls_msg, stopsign!)
			Close(THIS)
			RETURN
		END IF
	END IF
	
	
	wf_set_UI()
ELSE
	cb_exit.PostEvent(Clicked!)
END IF


end event

event resize;call super::resize;ln_bar.endx = this.width
ln_bar2.endx = this.width
end event

type cb_func from w_publ_base`cb_func within w_email_set_detail
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_email_set_detail
integer x = 1774
integer y = 1288
integer taborder = 140
string text = "取消"
end type

type st_1 from statictext within w_email_set_detail
integer y = 60
integer width = 311
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 sle_mailuser from singlelineedit within w_email_set_detail
integer x = 334
integer y = 40
integer width = 1358
integer height = 92
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_2 from statictext within w_email_set_detail
integer x = 1737
integer y = 60
integer width = 251
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_mailtype from statictext within w_email_set_detail
integer x = 2030
integer y = 60
integer width = 160
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 = "私人"
boolean focusrectangle = false
end type

type st_4 from statictext within w_email_set_detail
integer y = 196
integer width = 311
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 sle_mailpsw from singlelineedit within w_email_set_detail
integer x = 334
integer y = 312
integer width = 1358
integer height = 92
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean password = true
borderstyle borderstyle = stylelowered!
end type

type st_5 from statictext within w_email_set_detail
integer y = 332
integer width = 311
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_6 from statictext within w_email_set_detail
integer y = 468
integer width = 311
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 = "POP服务器"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_popset from singlelineedit within w_email_set_detail
integer x = 334
integer y = 448
integer width = 1358
integer height = 92
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_7 from statictext within w_email_set_detail
integer x = 1737
integer y = 468
integer width = 251
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 = "POP端口"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_8 from statictext within w_email_set_detail
integer y = 604
integer width = 311
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 = "SMTP服务器"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_smtpset from singlelineedit within w_email_set_detail
integer x = 334
integer y = 584
integer width = 1358
integer height = 92
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!
end type

type st_9 from statictext within w_email_set_detail
integer x = 1737
integer y = 604
integer width = 251
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 = "SMTP端口"
alignment alignment = right!
boolean focusrectangle = false
end type

type cbx_ifdelmsg from checkbox within w_email_set_detail
integer x = 334
integer y = 852
integer width = 873
integer height = 64
integer taborder = 110
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 = "收件后删除邮件服务器上的备份"
end type

type st_10 from statictext within w_email_set_detail
integer x = 1737
integer y = 740
integer width = 251
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 sle_mailaddress from singlelineedit within w_email_set_detail
integer x = 334
integer y = 176
integer width = 1358
integer height = 92
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type em_popport from editmask within w_email_set_detail
integer x = 1993
integer y = 452
integer width = 215
integer height = 84
integer taborder = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "110"
borderstyle borderstyle = stylelowered!
string mask = "######"
end type

type em_smtpport from editmask within w_email_set_detail
integer x = 1993
integer y = 588
integer width = 215
integer height = 84
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "25"
borderstyle borderstyle = stylelowered!
string mask = "######"
end type

type em_gap from editmask within w_email_set_detail
integer x = 1993
integer y = 724
integer width = 215
integer height = 84
integer taborder = 100
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "0"
borderstyle borderstyle = stylelowered!
string mask = "###0"
end type

type cb_save from uo_imflatbutton within w_email_set_detail
boolean visible = false
integer x = 1385
integer y = 1284
integer width = 311
integer height = 96
integer taborder = 130
boolean bringtotop = true
end type

event clicked;call super::clicked;string ls_msg
if dw_edit_mode then
	// 保存
	wf_check_valid()
	
	if wf_save(ls_msg) <> 1 then
		MessageBox('保存失败', ls_msg)
		return
	end if
	
	if wf_retrieve(ls_msg) <> 1 then
		MessageBox('系统错误', '未能刷新内容:' + ls_msg, stopsign!)
		close(parent)
		return
	end if
end if


dw_edit_mode = not dw_edit_mode

wf_set_ui()
end event

type st_opemp from statictext within w_email_set_detail
integer x = 393
integer y = 1148
integer width = 320
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
boolean focusrectangle = false
end type

type st_opdate from statictext within w_email_set_detail
integer x = 1285
integer y = 1148
integer width = 539
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
boolean focusrectangle = false
end type

type mle_dscrp from multilineedit within w_email_set_detail
integer x = 334
integer y = 948
integer width = 1358
integer height = 156
integer taborder = 120
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_othermsg from singlelineedit within w_email_set_detail
integer x = 334
integer y = 720
integer width = 1358
integer height = 92
integer taborder = 90
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_3 from statictext within w_email_set_detail
integer y = 740
integer width = 311
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_11 from statictext within w_email_set_detail
integer y = 964
integer width = 311
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_12 from statictext within w_email_set_detail
integer x = 55
integer y = 1148
integer width = 306
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 = "最后修改人:"
boolean focusrectangle = false
end type

type st_13 from statictext within w_email_set_detail
integer x = 896
integer y = 1148
integer width = 379
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 = "最后修改日期:  "
boolean focusrectangle = false
end type

type cb_1 from uo_imflatbutton within w_email_set_detail
integer x = 1746
integer y = 1008
integer width = 338
integer height = 96
integer taborder = 150
boolean bringtotop = true
string text = "测试连接"
string normalpicname = "link.ico"
integer picsize = 16
end type

event clicked;call super::clicked;oleobject jmail
jmail = CREATE oleobject
jmail.ConnectToNewObject("JMail.Message")
jmail.Charset = 'GB2312'
jmail.ISOEncodeHeaders = TRUE
jmail.silent = TRUE
jmail.Logging = TRUE
jmail.FROM = Trim(sle_mailaddress.text) //发件人邮箱 
jmail.FromName =  Trim(sle_mailuser.text) //发件人 
jmail.Subject = '测试邮件'
jmail.MailServerUserName = Trim(sle_mailaddress.text) //发件邮箱登录账户 
jmail.MailServerPassword = Trim(sle_mailpsw.text) //发件邮箱用户密码 
jmail.Priority = 1 //优先级
jmail.Body =  "测试邮件~r~n" //邮件内容 
jmail.AddRecipient('longjoe_test@163.com')

IF jmail.Send(Trim(sle_smtpset.text)) THEN
	MessageBox('提示','测试成功')
ELSE
	MessageBox('错误',"邮箱设置不正确或者没有连接网络", StopSign!, OK! )
END IF
jmail.Close()
DESTROY jmail
end event

type cb_ok from uo_imflatbutton within w_email_set_detail
integer x = 1385
integer y = 1284
integer width = 311
integer height = 96
integer taborder = 140
boolean bringtotop = true
string normalpicname = "SAVE.BMP"
integer picsize = 16
end type

event clicked;call super::clicked;string ls_msg
if dw_edit_mode then
	// 保存
	wf_check_valid()
	
	if wf_save(ls_msg) <> 1 then
		MessageBox('保存失败', ls_msg)
		return
	end if
	close(parent)
else
	close(parent)
end if

end event

type cbx_1 from checkbox within w_email_set_detail
integer x = 1257
integer y = 840
integer width = 416
integer height = 92
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 = "启用SSL加密"
end type

type ln_bar from line within w_email_set_detail
long linecolor = 268435456
integer linethickness = 4
integer beginy = 1240
integer endx = 1961
integer endy = 1240
end type

type ln_bar2 from line within w_email_set_detail
long linecolor = 16777215
integer linethickness = 4
integer beginy = 1244
integer endx = 1993
integer endy = 1244
end type