Q5/ws_objects/Ew_aifmb.pbl.src/w_ljfieb_modpsw.srw

$PBExportHeader$w_ljfieb_modpsw.srw
forward
global type w_ljfieb_modpsw from window
end type
type cb_2 from commandbutton within w_ljfieb_modpsw
end type
type cb_1 from commandbutton within w_ljfieb_modpsw
end type
type st_3 from statictext within w_ljfieb_modpsw
end type
type sle_psw2 from singlelineedit within w_ljfieb_modpsw
end type
type st_2 from statictext within w_ljfieb_modpsw
end type
type sle_psw1 from singlelineedit within w_ljfieb_modpsw
end type
type sle_orgpsw from singlelineedit within w_ljfieb_modpsw
end type
type st_1 from statictext within w_ljfieb_modpsw
end type
end forward

global type w_ljfieb_modpsw from window
integer width = 1051
integer height = 600
boolean titlebar = true
string title = "修改密码"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_2 cb_2
cb_1 cb_1
st_3 st_3
sle_psw2 sle_psw2
st_2 st_2
sle_psw1 sle_psw1
sle_orgpsw sle_orgpsw
st_1 st_1
end type
global w_ljfieb_modpsw w_ljfieb_modpsw

type variables
s_ljfieb_modpsw ins_rslt
string org_psw
end variables

on w_ljfieb_modpsw.create
this.cb_2=create cb_2
this.cb_1=create cb_1
this.st_3=create st_3
this.sle_psw2=create sle_psw2
this.st_2=create st_2
this.sle_psw1=create sle_psw1
this.sle_orgpsw=create sle_orgpsw
this.st_1=create st_1
this.Control[]={this.cb_2,&
this.cb_1,&
this.st_3,&
this.sle_psw2,&
this.st_2,&
this.sle_psw1,&
this.sle_orgpsw,&
this.st_1}
end on

on w_ljfieb_modpsw.destroy
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.st_3)
destroy(this.sle_psw2)
destroy(this.st_2)
destroy(this.sle_psw1)
destroy(this.sle_orgpsw)
destroy(this.st_1)
end on

event open;org_psw = message.stringparm
ins_rslt.ifok = 0
end event

event close;closewithreturn(this, ins_rslt)
end event

type cb_2 from commandbutton within w_ljfieb_modpsw
integer x = 626
integer y = 404
integer width = 311
integer height = 96
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "取消"
end type

event clicked;close(parent)
end event

type cb_1 from commandbutton within w_ljfieb_modpsw
integer x = 151
integer y = 404
integer width = 311
integer height = 96
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

event clicked;IF sle_orgpsw.Text <> org_psw THEN
	MessageBox('ERROR', '原密码错误')
	sle_orgpsw.SetFocus()
	RETURN
END IF

IF sle_psw1.Text = '' THEN
	MessageBox('ERROR', '新密码不能为空')
	sle_psw1.SetFocus()
	RETURN
END IF

IF sle_psw2.Text <> sle_psw1.Text THEN
	MessageBox('ERROR', '新密码确认与新密码不符')
	sle_psw2.SetFocus()
	RETURN
END IF

ins_rslt.ifok = 1
ins_rslt.newpsw = sle_psw1.Text
Close(Parent)

end event

type st_3 from statictext within w_ljfieb_modpsw
integer x = 82
integer y = 288
integer width = 288
integer height = 56
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "新密码确认"
alignment alignment = Right!
boolean focusrectangle = false
end type

type sle_psw2 from singlelineedit within w_ljfieb_modpsw
integer x = 389
integer y = 276
integer width = 549
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean password = true
borderstyle borderstyle = stylelowered!
end type

type st_2 from statictext within w_ljfieb_modpsw
integer x = 151
integer y = 176
integer width = 219
integer height = 56
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "新密码"
alignment alignment = Right!
boolean focusrectangle = false
end type

type sle_psw1 from singlelineedit within w_ljfieb_modpsw
integer x = 389
integer y = 164
integer width = 549
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean password = true
borderstyle borderstyle = stylelowered!
end type

type sle_orgpsw from singlelineedit within w_ljfieb_modpsw
integer x = 389
integer y = 52
integer width = 549
integer height = 84
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean password = true
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within w_ljfieb_modpsw
integer x = 151
integer y = 64
integer width = 219
integer height = 56
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "原密码"
alignment alignment = Right!
boolean focusrectangle = false
end type