Q5/ws_objects/Ew_longjoe902pl.pbl.src/w_sys_register.srw

$PBExportHeader$w_sys_register.srw
$PBExportComments$Generated MDI frame window
forward
global type w_sys_register from w_publ_base
end type
type cb_reg from uo_imflatbutton within w_sys_register
end type
type st_1 from statictext within w_sys_register
end type
type sle_regkey from singlelineedit within w_sys_register
end type
type sle_regword from singlelineedit within w_sys_register
end type
type st_2 from statictext within w_sys_register
end type
type st_3 from statictext within w_sys_register
end type
type st_4 from statictext within w_sys_register
end type
type st_ok from statictext within w_sys_register
end type
type p_ok from picture within w_sys_register
end type
type st_cus from statictext within w_sys_register
end type
type st_5 from statictext within w_sys_register
end type
end forward

global type w_sys_register from w_publ_base
integer width = 1673
integer height = 796
string title = "系统注册"
boolean minbox = false
windowtype windowtype = response!
cb_reg cb_reg
st_1 st_1
sle_regkey sle_regkey
sle_regword sle_regword
st_2 st_2
st_3 st_3
st_4 st_4
st_ok st_ok
p_ok p_ok
st_cus st_cus
st_5 st_5
end type
global w_sys_register w_sys_register

type variables
uo_security3 obj_secu
int ifshow=0 //1-正常时不显示,总是显示
int rt_int=0
end variables

forward prototypes
public function integer wf_ifchecked ()
end prototypes

public function integer wf_ifchecked ();Int rslt
Date ls_limitdate
String ls_regword
String arg_msg

rslt = obj_secu.f_check()
ls_regword = obj_secu.uof_getregcode()

IF rslt = 2 THEN //成功
	st_1.Visible = FALSE
	st_4.Visible = FALSE
	sle_regword.Enabled = FALSE
	cb_reg.Enabled = FALSE
	st_ok.Visible = TRUE
	st_cus.Visible = TRUE
	sle_regword.Text = ls_regword
	rt_int = 1
ELSE
	st_1.Visible = TRUE
	st_4.Visible = TRUE
	sle_regword.Enabled = TRUE
	cb_reg.Enabled = TRUE
	st_ok.Visible = FALSE
	st_cus.Visible = FALSE
	sle_regword.Text = ''
	rt_int = 0
END IF

RETURN 1


end function

on w_sys_register.create
int iCurrent
call super::create
this.cb_reg=create cb_reg
this.st_1=create st_1
this.sle_regkey=create sle_regkey
this.sle_regword=create sle_regword
this.st_2=create st_2
this.st_3=create st_3
this.st_4=create st_4
this.st_ok=create st_ok
this.p_ok=create p_ok
this.st_cus=create st_cus
this.st_5=create st_5
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_reg
this.Control[iCurrent+2]=this.st_1
this.Control[iCurrent+3]=this.sle_regkey
this.Control[iCurrent+4]=this.sle_regword
this.Control[iCurrent+5]=this.st_2
this.Control[iCurrent+6]=this.st_3
this.Control[iCurrent+7]=this.st_4
this.Control[iCurrent+8]=this.st_ok
this.Control[iCurrent+9]=this.p_ok
this.Control[iCurrent+10]=this.st_cus
this.Control[iCurrent+11]=this.st_5
end on

on w_sys_register.destroy
call super::destroy
destroy(this.cb_reg)
destroy(this.st_1)
destroy(this.sle_regkey)
destroy(this.sle_regword)
destroy(this.st_2)
destroy(this.st_3)
destroy(this.st_4)
destroy(this.st_ok)
destroy(this.p_ok)
destroy(this.st_cus)
destroy(this.st_5)
end on

event open;call super::open;
IF sys_if_network = 1 THEN
	MessageBox('系统提示',"网络版注册信息请到后台管理服务器查询!")
	cb_reg.enabled = false
	sle_regkey.enabled = false
	sle_regword.enabled = false
	st_cus.visible = false
	st_ok.visible = false
	st_1.visible = false
	st_4.visible = false
	RETURN
END IF

obj_secu = CREATE uo_security3
obj_secu.uof_init_version_id(sys_version_id)
obj_secu.uof_init_mmkey(sys_power_key)

Boolean lb_dog
lb_dog = obj_secu.uof_readdog()

IF lb_dog THEN
	st_5.Text = "查找到龙嘉加密狗"
ELSE
	st_5.Text = "没有查找到龙嘉加密狗"
END IF

String arg_msg = ''
String obj_regkey = ''
obj_regkey = obj_secu.f_get_signkey()


sle_regkey.Text = obj_regkey
st_cus.Text = sys_message_report_title

//ext:
wf_ifchecked()

//sle_regkey.event getfocus( )
//sle_regkey.SelectText(1, Len(sle_regkey.Text))
////messagebox( "", i)



end event

event ue_before_open;ifshow=Message.DoubleParm
end event

event close;closewithreturn(this,rt_int)
end event

type cb_func from w_publ_base`cb_func within w_sys_register
boolean visible = false
integer x = 1248
integer y = 536
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_sys_register
integer x = 987
integer y = 596
end type

type cb_reg from uo_imflatbutton within w_sys_register
integer x = 466
integer y = 596
integer width = 311
integer height = 96
integer taborder = 50
string text = "注册"
end type

event clicked;call super::clicked;String arg_msg = ''
IF obj_secu.f_register(Trim(sle_regword.Text)) <> 1 THEN
	MessageBox('系统提示',obj_secu.ins_LastErrorMsg)
	RETURN
END IF
wf_ifchecked()
//st_1.text=string(obj_secu.f_getselfvolumeid(arg_msg))+'/'+obj_secu.f_getregwordstr(arg_msg)

end event

type st_1 from statictext within w_sys_register
integer x = 809
integer y = 28
integer width = 859
integer height = 68
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 sle_regkey from singlelineedit within w_sys_register
event ue_dwnkey pbm_dwnkey
integer x = 411
integer y = 368
integer width = 1143
integer height = 88
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "Fixedsys"
long textcolor = 8388608
long backcolor = 12632256
boolean autohscroll = false
boolean displayonly = true
borderstyle borderstyle = stylelowered!
boolean hideselection = false
end type

type sle_regword from singlelineedit within w_sys_register
integer x = 411
integer y = 472
integer width = 1143
integer height = 88
integer taborder = 10
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "Fixedsys"
long textcolor = 33554432
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type st_2 from statictext within w_sys_register
integer x = 96
integer y = 376
integer width = 315
integer height = 76
boolean bringtotop = true
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 st_3 from statictext within w_sys_register
integer x = 96
integer y = 484
integer width = 315
integer height = 76
boolean bringtotop = true
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 st_4 from statictext within w_sys_register
integer x = 809
integer y = 116
integer width = 859
integer height = 200
boolean bringtotop = true
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 = "    向供应商提供本系统系统的~"本机标志码~",索取本机注册码,执行~"注册~".未注册的用户使用受限."
boolean focusrectangle = false
end type

type st_ok from statictext within w_sys_register
integer x = 809
integer y = 164
integer width = 859
integer height = 100
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
boolean enabled = false
string text = "你已经成为本系统注册永久的用户!"
boolean focusrectangle = false
end type

type p_ok from picture within w_sys_register
integer y = 24
integer width = 754
integer height = 244
boolean bringtotop = true
boolean enabled = false
boolean originalsize = true
string picturename = "graphics\LongjoeLOGO.bmp"
boolean border = true
borderstyle borderstyle = styleshadowbox!
boolean focusrectangle = false
end type

type st_cus from statictext within w_sys_register
integer x = 809
integer y = 28
integer width = 859
integer height = 132
boolean bringtotop = true
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
boolean enabled = false
string text = "用户"
boolean focusrectangle = false
end type

type st_5 from statictext within w_sys_register
integer x = 23
integer y = 300
integer width = 462
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 134217739
boolean focusrectangle = false
end type