$PBExportHeader$w_modpsw.srw
forward
global type w_modpsw from window
end type
type cb_2 from commandbutton within w_modpsw
end type
type cb_1 from commandbutton within w_modpsw
end type
type st_3 from statictext within w_modpsw
end type
type st_2 from statictext within w_modpsw
end type
type st_1 from statictext within w_modpsw
end type
type sle_3 from singlelineedit within w_modpsw
end type
type sle_2 from singlelineedit within w_modpsw
end type
type sle_1 from singlelineedit within w_modpsw
end type
end forward

global type w_modpsw from window
integer width = 1184
integer height = 652
boolean titlebar = true
string title = "修改密码"
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_2 cb_2
cb_1 cb_1
st_3 st_3
st_2 st_2
st_1 st_1
sle_3 sle_3
sle_2 sle_2
sle_1 sle_1
end type
global w_modpsw w_modpsw

on w_modpsw.create
this.cb_2=create cb_2
this.cb_1=create cb_1
this.st_3=create st_3
this.st_2=create st_2
this.st_1=create st_1
this.sle_3=create sle_3
this.sle_2=create sle_2
this.sle_1=create sle_1
this.Control[]={this.cb_2,&
this.cb_1,&
this.st_3,&
this.st_2,&
this.st_1,&
this.sle_3,&
this.sle_2,&
this.sle_1}
end on

on w_modpsw.destroy
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.sle_3)
destroy(this.sle_2)
destroy(this.sle_1)
end on

type cb_2 from commandbutton within w_modpsw
integer x = 773
integer y = 440
integer width = 329
integer height = 84
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_modpsw
integer x = 425
integer y = 440
integer width = 329
integer height = 84
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_2.Text = '' THEN
	MessageBox('提示', '新密码不能为空')
	sle_2.SetFocus()
	RETURN
END IF

IF sle_2.Text <> sle_3.Text THEN
	MessageBox('提示', '两次输入密码不一至')
	sle_2.Text = ''
	sle_3.Text = ''
	sle_2.SetFocus()
	RETURN
END IF

oleobject parms
string arg_msg = ''
parms = AppCom.CreatePbDictionary()
parms.SetString('token', app_token)
parms.SetString('oldpsw', sle_1.Text)
parms.SetString('newpsw', sle_2.Text)
AppCom.ModPsw(parms, Ref arg_msg)
IF arg_msg <> '' THEN
	MessageBox('ERROR', arg_msg)
	RETURN
END IF

MessageBox('OK', '密码修改成功')
close(parent)
end event

type st_3 from statictext within w_modpsw
integer x = 69
integer y = 332
integer width = 288
integer height = 48
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 st_2 from statictext within w_modpsw
integer x = 91
integer y = 192
integer width = 265
integer height = 48
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 st_1 from statictext within w_modpsw
integer x = 91
integer y = 52
integer width = 265
integer height = 48
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_3 from singlelineedit within w_modpsw
integer x = 366
integer y = 320
integer width = 722
integer height = 72
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 sle_2 from singlelineedit within w_modpsw
integer x = 370
integer y = 176
integer width = 722
integer height = 72
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_1 from singlelineedit within w_modpsw
integer x = 366
integer y = 40
integer width = 722
integer height = 72
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