Q5/ws_objects/Ew_epmmsg.pbl.src/w_new_admsg.srw

$PBExportHeader$w_new_admsg.srw
forward
global type w_new_admsg from w_publ_base
end type
type mle_msg from multilineedit within w_new_admsg
end type
type sle_msgtitle from singlelineedit within w_new_admsg
end type
type st_2 from statictext within w_new_admsg
end type
type mle_objdpm from multilineedit within w_new_admsg
end type
type dw_1 from u_dw_rbtnfilter within w_new_admsg
end type
type rb_usergrp from radiobutton within w_new_admsg
end type
type rb_user from radiobutton within w_new_admsg
end type
type cb_que from uo_imflatbutton within w_new_admsg
end type
type cb_1 from uo_imflatbutton within w_new_admsg
end type
type cb_6 from uo_imflatbutton within w_new_admsg
end type
type cb_2 from uo_imflatbutton within w_new_admsg
end type
type cb_3 from uo_imflatbutton within w_new_admsg
end type
type st_1 from statictext within w_new_admsg
end type
type sle_billcode from singlelineedit within w_new_admsg
end type
type st_3 from statictext within w_new_admsg
end type
type st_4 from statictext within w_new_admsg
end type
type dw_msg_fj from datawindow within w_new_admsg
end type
type st_5 from statictext within w_new_admsg
end type
type st_6 from statictext within w_new_admsg
end type
end forward

global type w_new_admsg from w_publ_base
integer x = 23
integer y = 24
integer width = 2853
integer height = 2072
string title = "请输入新消息"
mle_msg mle_msg
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
cb_6 cb_6
cb_2 cb_2
cb_3 cb_3
st_1 st_1
sle_billcode sle_billcode
st_3 st_3
st_4 st_4
dw_msg_fj dw_msg_fj
st_5 st_5
st_6 st_6
end type
global w_new_admsg w_new_admsg

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

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) > 0  and  len(tmp_objdpm) = len(arg_objdpm) then return 0
	if pos(tmp_objdpm,';'+arg_objdpm+';') > 0 then return 0
	if pos(tmp_objdpm,arg_objdpm+';') > 0 then return 0
	if pos(tmp_objdpm,';'+arg_objdpm) > 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_new_admsg.create
int iCurrent
call super::create
this.mle_msg=create mle_msg
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.cb_6=create cb_6
this.cb_2=create cb_2
this.cb_3=create cb_3
this.st_1=create st_1
this.sle_billcode=create sle_billcode
this.st_3=create st_3
this.st_4=create st_4
this.dw_msg_fj=create dw_msg_fj
this.st_5=create st_5
this.st_6=create st_6
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.mle_msg
this.Control[iCurrent+2]=this.sle_msgtitle
this.Control[iCurrent+3]=this.st_2
this.Control[iCurrent+4]=this.mle_objdpm
this.Control[iCurrent+5]=this.dw_1
this.Control[iCurrent+6]=this.rb_usergrp
this.Control[iCurrent+7]=this.rb_user
this.Control[iCurrent+8]=this.cb_que
this.Control[iCurrent+9]=this.cb_1
this.Control[iCurrent+10]=this.cb_6
this.Control[iCurrent+11]=this.cb_2
this.Control[iCurrent+12]=this.cb_3
this.Control[iCurrent+13]=this.st_1
this.Control[iCurrent+14]=this.sle_billcode
this.Control[iCurrent+15]=this.st_3
this.Control[iCurrent+16]=this.st_4
this.Control[iCurrent+17]=this.dw_msg_fj
this.Control[iCurrent+18]=this.st_5
this.Control[iCurrent+19]=this.st_6
end on

on w_new_admsg.destroy
call super::destroy
destroy(this.mle_msg)
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.cb_6)
destroy(this.cb_2)
destroy(this.cb_3)
destroy(this.st_1)
destroy(this.sle_billcode)
destroy(this.st_3)
destroy(this.st_4)
destroy(this.dw_msg_fj)
destroy(this.st_5)
destroy(this.st_6)
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')
//wf_movetocenter()

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
	mle_msg.Text = '----------原始消息------'+'~r~n'+s_msg.msg +'~r~n'+'------------------------' +'~r~n'
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

type cb_func from w_publ_base`cb_func within w_new_admsg
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_new_admsg
integer x = 1696
integer y = 1864
integer taborder = 110
string text = "取消"
end type

type mle_msg from multilineedit within w_new_admsg
integer x = 251
integer y = 464
integer width = 1915
integer height = 912
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
integer limit = 1000
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 sle_msgtitle from singlelineedit within w_new_admsg
event key pbm_keydown
integer x = 251
integer y = 296
integer width = 1915
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_new_admsg
integer x = 23
integer y = 312
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_new_admsg
event key pbm_dwnkey
integer x = 251
integer width = 1915
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_new_admsg
integer x = 2176
integer y = 76
integer width = 658
integer height = 1764
integer taborder = 130
boolean bringtotop = true
string dataobject = "dw_objdpm_user"
boolean vscrollbar = 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_new_admsg
integer x = 2473
integer y = 12
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_new_admsg
integer x = 2226
integer y = 12
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_new_admsg
integer x = 850
integer y = 1864
integer width = 439
integer height = 96
integer taborder = 60
string text = "发送[Ctrl+s]"
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(mle_msg.Text)
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_new_admsg
integer x = 5
integer y = 1516
integer width = 247
integer height = 76
integer taborder = 70
boolean bringtotop = true
string text = "添附件"
end type

event clicked;call super::clicked;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

type cb_6 from uo_imflatbutton within w_new_admsg
integer x = 5
integer y = 1596
integer width = 247
integer height = 76
integer taborder = 120
boolean bringtotop = true
string text = "添链接"
end type

event clicked;call super::clicked;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

type cb_2 from uo_imflatbutton within w_new_admsg
integer x = 5
integer y = 1676
integer width = 247
integer height = 76
integer taborder = 80
boolean bringtotop = true
string text = "删条目"
end type

event clicked;call super::clicked;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

type cb_3 from uo_imflatbutton within w_new_admsg
integer x = 5
integer y = 1756
integer width = 247
integer height = 76
integer taborder = 100
boolean bringtotop = true
string text = "清空"
end type

event clicked;call super::clicked;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

type st_1 from statictext within w_new_admsg
integer x = 23
integer y = 124
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_new_admsg
event key pbm_keydown
integer x = 251
integer y = 380
integer width = 1915
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_new_admsg
integer x = 23
integer y = 396
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 st_4 from statictext within w_new_admsg
integer x = 23
integer y = 916
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_new_admsg
integer x = 251
integer y = 1376
integer width = 1915
integer height = 464
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

type st_5 from statictext within w_new_admsg
integer x = 23
integer y = 1392
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 st_6 from statictext within w_new_admsg
integer x = 23
integer y = 1448
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