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

$PBExportHeader$w_msg_send.srw
forward
global type w_msg_send from w_publ_base
end type
type sle_msgtitle from singlelineedit within w_msg_send
end type
type st_2 from statictext within w_msg_send
end type
type mle_objdpm from multilineedit within w_msg_send
end type
type dw_1 from u_dw_rbtnfilter within w_msg_send
end type
type rb_usergrp from radiobutton within w_msg_send
end type
type rb_user from radiobutton within w_msg_send
end type
type cb_que from uo_imflatbutton within w_msg_send
end type
type cb_1 from uo_imflatbutton within w_msg_send
end type
type st_1 from statictext within w_msg_send
end type
type sle_billcode from singlelineedit within w_msg_send
end type
type st_3 from statictext within w_msg_send
end type
type dw_msg_fj from datawindow within w_msg_send
end type
type uo_html from uo_html_editor within w_msg_send
end type
type ln_bar from line within w_msg_send
end type
type ln_bar2 from line within w_msg_send
end type
type r_bar from rectangle within w_msg_send
end type
end forward

global type w_msg_send from w_publ_base
integer x = 23
integer y = 24
integer width = 3502
integer height = 2468
string title = "请输入新消息"
event ue_fj_del ( )
event ue_fj_del_all ( )
event ue_fj_add_link ( )
event ue_fj_add ( )
sle_msgtitle sle_msgtitle
st_2 st_2
mle_objdpm mle_objdpm
dw_1 dw_1
rb_usergrp rb_usergrp
rb_user rb_user
cb_que cb_que
cb_1 cb_1
st_1 st_1
sle_billcode sle_billcode
st_3 st_3
dw_msg_fj dw_msg_fj
uo_html uo_html
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
end type
global w_msg_send w_msg_send

type variables
uo_transmsg uo_msg

Blob ins_fjdata[] //附件转换为的blob
Long ins_max_fj = 0//附件数目


end variables

forward prototypes
public function integer wf_addobjdpm (string arg_objdpm)
public function integer wf_dw ()
end prototypes

event ue_fj_del();Long lrow
Long ls_i,ls_j = 0
Blob ls_filedata[]
lrow = dw_msg_fj.GetRow()
IF lrow <= 0 THEN
	MessageBox('系统提示','请先选择目标!')
	RETURN
END IF
FOR ls_i = 1 To (lrow - 1)
	ls_j++
	ls_filedata[ls_j] = ins_fjdata[ls_i]
NEXT
FOR ls_i = (lrow + 1) TO UpperBound(ins_fjdata)
	ls_j++
	ls_filedata[ls_j] = ins_fjdata[ls_i]
NEXT

ins_fjdata[] = ls_filedata[]
ins_max_fj = UpperBound(ins_fjdata)
dw_msg_fj.DeleteRow(lrow)
end event

event ue_fj_del_all();Long ls_i
Blob ls_null[]
ins_fjdata[] = ls_null[]
ins_max_fj = 0
IF dw_msg_fj.RowCount() > 0 THEN
	FOR ls_i = dw_msg_fj.RowCount() TO 1 STEP -1
		dw_msg_fj.DeleteRow(ls_i)
	NEXT
END IF

end event

event ue_fj_add_link();s_inputbox s_ipb
String ls_linkpath = ''
Long ls_newrow

s_ipb.Title = '请输入超链接路径'
OpenWithParm(w_inputbox,s_ipb)
ls_linkpath = Message.StringParm

IF Trim(ls_linkpath) = '' THEN
	RETURN
END IF

ls_newrow = dw_msg_fj.InsertRow(0)
dw_msg_fj.Object.fjname[ls_newrow] = ls_linkpath
dw_msg_fj.Object.fjpath[ls_newrow] = ls_linkpath
dw_msg_fj.Object.fjtype[ls_newrow] = 1 //0为文件,1为超链接
ins_max_fj++
ins_fjdata[ins_max_fj] = Blob(ls_linkpath)

end event

event ue_fj_add();Integer i
Long ls_i,ls_j,ls_newrow,ls_filesize
Blob ls_filedata
String Pathname,ls_filename
String Filename[],errmsg
i = GetFileSaveName("选择附件",Pathname,Filename[],"*","程序文件,*.*")

IF i = 1 AND Trim(Pathname) <> '' THEN
	FOR ls_i = 1 TO UpperBound(Filename)
		IF UpperBound(Filename) = 1 THEN
			ls_filename = Pathname
		ELSE
			ls_filename = Pathname + '\'+Filename[ls_i]
		END IF
		IF dw_msg_fj.Find( 'fjpath='+"'"+ls_filename+"'", 0, dw_msg_fj.RowCount()) > 0 THEN
			CONTINUE;
		END IF
		IF f_filetoblob(ls_filename,ls_filedata,errmsg) = 0 THEN
			MessageBox('系统提示',errmsg)
			RETURN
		END IF
		ls_filesize = Len(ls_filedata)
		ls_newrow = dw_msg_fj.InsertRow(0)
		dw_msg_fj.Object.fjname[ls_newrow] = Filename[ls_i]
		dw_msg_fj.Object.fjpath[ls_newrow] = ls_filename
		dw_msg_fj.Object.fjsize[ls_newrow] = ls_filesize
		ins_max_fj++
		ins_fjdata[ins_max_fj] = ls_filedata
	NEXT
END IF

end event

public function integer wf_addobjdpm (string arg_objdpm);string tmp_objdpm
tmp_objdpm=trim(mle_objdpm.text)



if tmp_objdpm = '' then
	mle_objdpm.text=arg_objdpm
else
	if pos(tmp_objdpm,arg_objdpm,1) > 0  and  len(tmp_objdpm) = len(arg_objdpm) then return 0
	if pos(tmp_objdpm,';'+arg_objdpm+';',1) > 0 then return 0
	if pos(tmp_objdpm,arg_objdpm+';',1) > 0 then return 0
	if pos(tmp_objdpm,';'+arg_objdpm,1) > 0 then return 0
	
	mle_objdpm.text=tmp_objdpm + ';'+arg_objdpm
end if

return 1
end function

public function integer wf_dw ();dw_1.setredraw(false)
if rb_user.checked then
	dw_1.dataobject='dw_objdpm_user'
else
	dw_1.dataobject='dw_objdpm_usergrp'
end if
dw_1.settransobject(sqlca)
dw_1.retrieve(sys_scid)
dw_1.setredraw(true)
return 1
end function

on w_msg_send.create
int iCurrent
call super::create
this.sle_msgtitle=create sle_msgtitle
this.st_2=create st_2
this.mle_objdpm=create mle_objdpm
this.dw_1=create dw_1
this.rb_usergrp=create rb_usergrp
this.rb_user=create rb_user
this.cb_que=create cb_que
this.cb_1=create cb_1
this.st_1=create st_1
this.sle_billcode=create sle_billcode
this.st_3=create st_3
this.dw_msg_fj=create dw_msg_fj
this.uo_html=create uo_html
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.sle_msgtitle
this.Control[iCurrent+2]=this.st_2
this.Control[iCurrent+3]=this.mle_objdpm
this.Control[iCurrent+4]=this.dw_1
this.Control[iCurrent+5]=this.rb_usergrp
this.Control[iCurrent+6]=this.rb_user
this.Control[iCurrent+7]=this.cb_que
this.Control[iCurrent+8]=this.cb_1
this.Control[iCurrent+9]=this.st_1
this.Control[iCurrent+10]=this.sle_billcode
this.Control[iCurrent+11]=this.st_3
this.Control[iCurrent+12]=this.dw_msg_fj
this.Control[iCurrent+13]=this.uo_html
this.Control[iCurrent+14]=this.ln_bar
this.Control[iCurrent+15]=this.ln_bar2
this.Control[iCurrent+16]=this.r_bar
end on

on w_msg_send.destroy
call super::destroy
destroy(this.sle_msgtitle)
destroy(this.st_2)
destroy(this.mle_objdpm)
destroy(this.dw_1)
destroy(this.rb_usergrp)
destroy(this.rb_user)
destroy(this.cb_que)
destroy(this.cb_1)
destroy(this.st_1)
destroy(this.sle_billcode)
destroy(this.st_3)
destroy(this.dw_msg_fj)
destroy(this.uo_html)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
end on

event close;f_setProfileString (sys_empid,this.classname(), "x",string(this.x))
f_setProfileString (sys_empid,this.classname(), "y",string(this.y)) 



end event

event open;THIS.TriggerEvent('ue_before_open')
s_admsg s_msg
s_msg = Message.PowerObjectParm

wf_dw()

IF Integer(f_ProfileString (sys_empid,THIS.ClassName(), "x",String(THIS.X))) = 0 THEN
	THIS.X = 23
	THIS.Y = 24
ELSE
	THIS.X = Integer(f_ProfileString (sys_empid,THIS.ClassName(), "x",String(THIS.X)))
	THIS.Y = Integer(f_ProfileString (sys_empid,THIS.ClassName(), "y",String(THIS.Y)))
END IF

IF s_msg.ifback = 1 THEN
	mle_objdpm.Text = s_msg.sendemp
	sle_billcode.Text = s_msg.billcode
	sle_msgtitle.Text = '回复:'+s_msg.msgtitle
	uo_html.uf_sethtml('<DIV><FONT face=Verdana color=#000080 size=2>&nbsp;</FONT></DIV><DIV><FONT face=Verdana color=#000080 size=2>&nbsp;</FONT></DIV><DIV><FONT face=Verdana color=#000080 size=2>&nbsp;</FONT></DIV><HR color=#b5c4df SIZE=1>' + s_msg.msg)
else
	sle_billcode.Text = s_msg.billcode
END IF

end event

event key;if keydown(KeyControl!) and keydown(keyS!) then
	cb_que.triggerevent(clicked!)
	return 1
end if

end event

event resize;call super::resize;if newwidth < 3493 then this.width = 3493
if newheight < 2388 then this.height = 2388

ln_bar.endx = this.width
ln_bar2.endx = this.width
r_bar.width = this.width

dw_1.x = this.width - dw_1.width - 40
rb_user.x = dw_1.x + 50
rb_usergrp.x = dw_1.x + 300

mle_objdpm.width = dw_1.x - mle_objdpm.x
sle_msgtitle.width = mle_objdpm.width

uo_html.width = dw_1.x - uo_html.x
dw_msg_fj.width = uo_html.width



dw_1.height = this.height - dw_1.y - 140

uo_html.height = this.height - uo_html.y - dw_msg_fj.height - 140

dw_msg_fj.y = uo_html.y + uo_html.height
end event

type cb_func from w_publ_base`cb_func within w_msg_send
boolean visible = false
integer x = 14
integer y = 1092
integer width = 133
integer taborder = 10
boolean enabled = false
string text = ""
end type

type cb_exit from w_publ_base`cb_exit within w_msg_send
integer x = 594
integer width = 151
integer height = 164
integer taborder = 110
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type sle_msgtitle from singlelineedit within w_msg_send
event key pbm_keydown
integer x = 256
integer y = 504
integer width = 2546
integer height = 84
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

event modified;keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
keybd_event ( 9, 0, 2, 0 ) // 释放tab 
return 1
end event

type st_2 from statictext within w_msg_send
integer x = 23
integer y = 520
integer width = 224
integer height = 48
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 mle_objdpm from multilineedit within w_msg_send
event key pbm_dwnkey
integer x = 256
integer y = 200
integer width = 2542
integer height = 296
integer taborder = 20
boolean bringtotop = true
integer textsize = -11
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type dw_1 from u_dw_rbtnfilter within w_msg_send
integer x = 2821
integer y = 260
integer width = 658
integer height = 1764
integer taborder = 130
boolean bringtotop = true
string dataobject = "dw_objdpm_user"
boolean vscrollbar = true
boolean rbutton_filter_use = true
end type

event rowfocuschanged;if currentrow<=0 then return
this.selectrow(0,false)
this.selectrow(currentrow,true)
end event

event doubleclicked;if row<=0 then return
string ls_objdpm
if rb_user.checked then
	ls_objdpm=dw_1.object.username[row]
else
	ls_objdpm=dw_1.object.usergroup[row]
end if


wf_addobjdpm(ls_objdpm)
end event

type rb_usergrp from radiobutton within w_msg_send
integer x = 3118
integer y = 196
integer width = 247
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 = 134217739
string text = "用户组"
end type

event clicked;wf_dw()
end event

type rb_user from radiobutton within w_msg_send
integer x = 2871
integer y = 196
integer width = 247
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 = 134217739
string text = "用户"
boolean checked = true
end type

event clicked;wf_dw()
end event

type cb_que from uo_imflatbutton within w_msg_send
integer width = 398
integer height = 164
integer taborder = 60
string text = "发送[Ctrl+s]"
string normalpicname = "email_view2.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;String ls_objdpm,ls_msgtitle,ls_s_msg,arg_msg,ls_billcode
Boolean ifcommit
Long ls_i


ls_objdpm = Trim(mle_objdpm.Text)
ls_msgtitle = Trim(sle_msgtitle.Text)
ls_s_msg = Trim(uo_html.uf_gethtml( ))
ls_billcode = Trim(sle_billcode.Text)

IF ins_max_fj = 0 THEN
	ifcommit = TRUE
ELSE
	ifcommit = FALSE
END IF

IF uo_msg.f_create_admsg(sys_empid,publ_operator,ls_objdpm,ls_msgtitle,ls_s_msg,arg_msg,0,ls_billcode,ifcommit) = 0 THEN
	MessageBox('系统提示','消息发送失败{'+arg_msg+'}')
	RETURN
END IF

FOR ls_i = 1 TO ins_max_fj
	IF ls_i = ins_max_fj THEN
		ifcommit = TRUE
	ELSE
		ifcommit = FALSE
	END IF
	
	IF uo_msg.f_save_fj(uo_msg.uo_msgid,dw_msg_fj.Object.fjname[ls_i],ins_fjdata[ls_i],dw_msg_fj.Object.fjsize[ls_i],dw_msg_fj.Object.fjtype[ls_i],arg_msg,ifcommit) = 0 THEN
		MessageBox('系统提示','消息发送失败{'+arg_msg+'}')
		RETURN
	END IF
NEXT


Close(PARENT)




end event

type cb_1 from uo_imflatbutton within w_msg_send
integer x = 398
integer width = 197
integer height = 164
integer taborder = 70
boolean bringtotop = true
string text = "附件"
string normalpicname = "email_fj.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;	m_Dfc_Control_PopupMenu dmPopupMenu
	String menustr,ls_level
	menustr = "Text=添附件~tEvent=ue_fj_add"
	menustr = menustr + "|" + "Text=添链接~tEvent=ue_fj_add_link"
	menustr = menustr + "|" + "Text=-"
	menustr = menustr + "|" + "Text=删条目~tEvent=ue_fj_del"
	menustr = menustr + "|" + "Text=清空~tEvent=ue_fj_del_all"
	
	IF Len(Trim(menustr)) <> 0 THEN
		dmPopupMenu = CREATE m_Dfc_Control_PopupMenu
		dmPopupMenu.mf_BuildMenu(THIS, menustr)
		dmPopupMenu.mf_PopMenu()
		DESTROY dmPopupMenu
	END IF
end event

type st_1 from statictext within w_msg_send
integer x = 23
integer y = 200
integer width = 224
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_billcode from singlelineedit within w_msg_send
event key pbm_keydown
integer x = 256
integer y = 596
integer width = 704
integer height = 84
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

event modified;keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
keybd_event ( 9, 0, 2, 0 ) // 释放tab 
return 1
end event

type st_3 from statictext within w_msg_send
integer x = 23
integer y = 612
integer width = 224
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 dw_msg_fj from datawindow within w_msg_send
integer y = 1668
integer width = 2807
integer height = 696
integer taborder = 90
boolean bringtotop = true
string dataobject = "dw_msg_fj"
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event rbuttondown;	m_Dfc_Control_PopupMenu dmPopupMenu
	String menustr,ls_level
	menustr = "Text=添附件~tEvent=ue_fj_add"
	menustr = menustr + "|" + "Text=添链接~tEvent=ue_fj_add_link"
	menustr = menustr + "|" + "Text=-"
	if row > 0 then
		this.scrolltorow(row)
		menustr = menustr + "|" + "Text=删条目~tEvent=ue_fj_del"
	end if
	menustr = menustr + "|" + "Text=清空~tEvent=ue_fj_del_all"
	
	IF Len(Trim(menustr)) <> 0 THEN
		dmPopupMenu = CREATE m_Dfc_Control_PopupMenu
		dmPopupMenu.mf_BuildMenu(THIS, menustr)
		dmPopupMenu.mf_PopMenu()
		DESTROY dmPopupMenu
	END IF
end event

event rowfocuschanged;this.selectrow(0, false)

if currentrow > 0 then
	this.selectrow(currentrow, true)
end if
end event

type uo_html from uo_html_editor within w_msg_send
integer y = 696
integer width = 2807
integer height = 912
integer taborder = 60
boolean bringtotop = true
end type

on uo_html.destroy
call uo_html_editor::destroy
end on

type ln_bar from line within w_msg_send
long linecolor = 268435456
integer linethickness = 4
integer beginy = 172
integer endx = 3200
integer endy = 172
end type

type ln_bar2 from line within w_msg_send
long linecolor = 16777215
integer linethickness = 4
integer beginx = 14
integer beginy = 176
integer endx = 3278
integer endy = 176
end type

type r_bar from rectangle within w_msg_send
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 2126
integer y = 40
integer width = 87
integer height = 68
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar.beginy - 5

end event