Q5/ws_objects/Ew_mainface.pbl.src/w_super_psw.srw

$PBExportHeader$w_super_psw.srw
forward
global type w_super_psw from w_publ_base
end type
type cb_1 from commandbutton within w_super_psw
end type
type cbx_1 from checkbox within w_super_psw
end type
type st_2 from statictext within w_super_psw
end type
type gb_1 from groupbox within w_super_psw
end type
type sle_2 from singlelineedit within w_super_psw
end type
type sle_1 from singlelineedit within w_super_psw
end type
type st_1 from statictext within w_super_psw
end type
type st_3 from statictext within w_super_psw
end type
end forward

global type w_super_psw from w_publ_base
integer width = 1202
integer height = 580
string title = "超级密码设置"
boolean minbox = false
windowtype windowtype = response!
cb_1 cb_1
cbx_1 cbx_1
st_2 st_2
gb_1 gb_1
sle_2 sle_2
sle_1 sle_1
st_1 st_1
st_3 st_3
end type
global w_super_psw w_super_psw

type variables
string supepsw=''
end variables

on w_super_psw.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.cbx_1=create cbx_1
this.st_2=create st_2
this.gb_1=create gb_1
this.sle_2=create sle_2
this.sle_1=create sle_1
this.st_1=create st_1
this.st_3=create st_3
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.cbx_1
this.Control[iCurrent+3]=this.st_2
this.Control[iCurrent+4]=this.gb_1
this.Control[iCurrent+5]=this.sle_2
this.Control[iCurrent+6]=this.sle_1
this.Control[iCurrent+7]=this.st_1
this.Control[iCurrent+8]=this.st_3
end on

on w_super_psw.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.cbx_1)
destroy(this.st_2)
destroy(this.gb_1)
destroy(this.sle_2)
destroy(this.sle_1)
destroy(this.st_1)
destroy(this.st_3)
end on

event close;closewithreturn(this,supepsw)
end event

type cb_func from w_publ_base`cb_func within w_super_psw
boolean visible = false
integer x = 338
integer y = 684
integer width = 183
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_super_psw
integer x = 859
integer y = 364
integer width = 279
string text = "取消"
end type

event cb_exit::clicked;supepsw=''
close(parent)
end event

type cb_1 from commandbutton within w_super_psw
integer x = 539
integer y = 364
integer width = 279
integer height = 96
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

event clicked;sle_1.text=trim(sle_1.text)
sle_2.text=trim(sle_2.text)

if sle_1.text='' then
	messagebox("提示","请输入密码", Information!, OK! )
	return 
end if

if not cbx_1.checked then
	if sle_1.text <> sle_2.text then
		messagebox("提示","输入的确认密码不正确", Information!, OK! )
		return 
	end if
end if

supepsw=sle_1.text
close(parent)

end event

type cbx_1 from checkbox within w_super_psw
integer x = 55
integer y = 376
integer width = 302
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
string text = "显示密码"
end type

event clicked;if this.checked then
	sle_1.password=false
	sle_2.visible=false
	st_2.visible=false
else
	sle_1.password=true
	sle_2.visible=true
	st_2.visible=true
end if
end event

type st_2 from statictext within w_super_psw
integer x = 73
integer y = 240
integer width = 274
integer height = 60
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 gb_1 from groupbox within w_super_psw
integer x = 27
integer width = 1120
integer height = 336
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
end type

type sle_2 from singlelineedit within w_super_psw
integer x = 347
integer y = 224
integer width = 745
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 autohscroll = false
boolean password = true
borderstyle borderstyle = stylelowered!
end type

event constructor;this.text=sys_superpsw
end event

type sle_1 from singlelineedit within w_super_psw
integer x = 347
integer y = 120
integer width = 745
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
boolean autohscroll = false
boolean password = true
borderstyle borderstyle = stylelowered!
end type

event constructor;this.text=sys_superpsw
end event

type st_1 from statictext within w_super_psw
integer x = 73
integer y = 140
integer width = 274
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_3 from statictext within w_super_psw
integer x = 347
integer y = 44
integer width = 562
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
string text = "此功能用于数据删除！"
boolean focusrectangle = false
end type