Q5/ws_objects/Ew_atupdexe.pbl.src/w_kickout_input.srw

$PBExportHeader$w_kickout_input.srw
forward
global type w_kickout_input from w_publ_base
end type
type mle_1 from multilineedit within w_kickout_input
end type
type em_1 from editmask within w_kickout_input
end type
type st_2 from statictext within w_kickout_input
end type
type cb_send from uo_imflatbutton within w_kickout_input
end type
end forward

global type w_kickout_input from w_publ_base
integer width = 1742
integer height = 760
string title = "强制终止用户连接"
boolean minbox = false
windowtype windowtype = response!
mle_1 mle_1
em_1 em_1
st_2 st_2
cb_send cb_send
end type
global w_kickout_input w_kickout_input

on w_kickout_input.create
int iCurrent
call super::create
this.mle_1=create mle_1
this.em_1=create em_1
this.st_2=create st_2
this.cb_send=create cb_send
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.mle_1
this.Control[iCurrent+2]=this.em_1
this.Control[iCurrent+3]=this.st_2
this.Control[iCurrent+4]=this.cb_send
end on

on w_kickout_input.destroy
call super::destroy
destroy(this.mle_1)
destroy(this.em_1)
destroy(this.st_2)
destroy(this.cb_send)
end on

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

type cb_exit from w_publ_base`cb_exit within w_kickout_input
integer x = 1376
integer y = 560
string text = "取消"
end type

type mle_1 from multilineedit within w_kickout_input
integer x = 18
integer y = 20
integer width = 1701
integer height = 520
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "系统将要升级,30秒后将自动断开连接,请尽快保存正在编辑的内容"
boolean autohscroll = true
borderstyle borderstyle = stylelowered!
end type

type em_1 from editmask within w_kickout_input
integer x = 50
integer y = 568
integer width = 206
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
string text = "30"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
string mask = "#####"
boolean spin = true
string minmax = "1~~60"
end type

type st_2 from statictext within w_kickout_input
integer x = 270
integer y = 584
integer width = 352
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 focusrectangle = false
end type

type cb_send from uo_imflatbutton within w_kickout_input
integer x = 987
integer y = 560
integer width = 338
integer taborder = 50
boolean bringtotop = true
string text = "发送指令"
string normalpicname = "p6.bmp"
integer picsize = 16
end type

event clicked;call super::clicked;String ls_msg,ls_time
ls_msg = Trim(mle_1.Text)

IF Trim(ls_msg) = '' THEN
	MessageBox('系统提示','请输入要发送给各在线用户的信息')
	mle_1.SetFocus()
	RETURN
END IF

IF Long(em_1.Text) <= 0 THEN
	MessageBox('系统提示','请输入强制断开接连的时间')
	em_1.SetFocus()
	RETURN
ELSEIF Long(em_1.Text) > 60 THEN
	MessageBox('系统提示','强制断开接连的时间最多只能设60秒,请重新输入')
	em_1.SetFocus()
	RETURN
END IF



ls_time = String(Long(em_1.Text) * 1000)

IF MessageBox('询问','是否确定要强制断开所有用户?',question!,yesno!) = 2 THEN RETURN


s_msgframe s_msg
s_msg.framehead = 101
s_msg.frame_str[1] = ls_msg
s_msg.frame_str[2] = ls_time


sys_wsc.setsendmsg( s_msg, 2)
sys_wsc.TriggerEvent('ue_send') //发送命令

Close(Parent)



end event