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

$PBExportHeader$w_sys_xgmm.srw
$PBExportComments$Generated MDI frame window
forward
global type w_sys_xgmm from w_publ_base
end type
type st_2 from statictext within w_sys_xgmm
end type
type sle_1 from singlelineedit within w_sys_xgmm
end type
type sle_2 from singlelineedit within w_sys_xgmm
end type
type st_1 from statictext within w_sys_xgmm
end type
type cb_1 from uo_imflatbutton within w_sys_xgmm
end type
type st_3 from statictext within w_sys_xgmm
end type
type st_4 from statictext within w_sys_xgmm
end type
type sle_3 from singlelineedit within w_sys_xgmm
end type
end forward

global type w_sys_xgmm from w_publ_base
integer width = 1408
integer height = 744
string title = "口令修改"
boolean minbox = false
windowtype windowtype = response!
st_2 st_2
sle_1 sle_1
sle_2 sle_2
st_1 st_1
cb_1 cb_1
st_3 st_3
st_4 st_4
sle_3 sle_3
end type
global w_sys_xgmm w_sys_xgmm

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

on w_sys_xgmm.destroy
call super::destroy
destroy(this.st_2)
destroy(this.sle_1)
destroy(this.sle_2)
destroy(this.st_1)
destroy(this.cb_1)
destroy(this.st_3)
destroy(this.st_4)
destroy(this.sle_3)
end on

type cb_func from w_publ_base`cb_func within w_sys_xgmm
boolean visible = false
integer x = 562
integer y = 448
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_sys_xgmm
integer x = 864
integer y = 472
integer width = 311
integer height = 96
integer taborder = 4
integer picsize = 0
toolbaralignment pic_align = alignatleft!
boolean border = true
end type

event cb_exit::clicked;s_changepassword ls_cgpsw
ls_cgpsw.yn=false
CloseWithReturn(PARENT,ls_cgpsw)

end event

type st_2 from statictext within w_sys_xgmm
integer x = 283
integer y = 204
integer width = 233
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 sle_1 from singlelineedit within w_sys_xgmm
event key pbm_keydown
integer x = 539
integer y = 172
integer width = 581
integer height = 92
integer taborder = 1
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
boolean password = true
integer limit = 15
borderstyle borderstyle = stylelowered!
end type

event key;If  key = KeyEnter! Or Key = KeyDownArrow! Then //
keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
keybd_event ( 9, 0, 2, 0 ) // 释放tab 
Return 1
End If 
end event

type sle_2 from singlelineedit within w_sys_xgmm
event key pbm_keydown
integer x = 539
integer y = 288
integer width = 581
integer height = 92
integer taborder = 2
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
boolean password = true
integer limit = 15
borderstyle borderstyle = stylelowered!
end type

event key;If  key = KeyEnter! Or Key = KeyDownArrow! Then //
keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
keybd_event ( 9, 0, 2, 0 ) // 释放tab 
Return 1
End If 
end event

type st_1 from statictext within w_sys_xgmm
integer x = 174
integer y = 320
integer width = 343
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 cb_1 from uo_imflatbutton within w_sys_xgmm
integer x = 251
integer y = 472
integer width = 311
integer height = 96
integer taborder = 14
boolean bringtotop = true
end type

event clicked;call super::clicked;String ls_find_pass,ls_find_user,ls_powerstring
Long ls_empid

SELECT u_user.username,
	u_user.empid,
	u_user.rightstring,
	u_user.psw
	INTO :ls_find_user,
	:ls_empid,
	:ls_powerstring,
	:ls_find_pass
	FROM u_user
	WHERE u_user.scid = :sys_scid
	AND u_user.empid = :sys_empid USING sqlca ;
	
IF sqlca.SQLCode <> 0 THEN
	MessageBox('提示','用户信息查询操作失败！', StopSign!, OK! )
	RETURN
END IF

IF Trim(f_psw_bczh(ls_find_pass,1,sys_power_key)) = Trim(sle_3.Text) THEN
	publ_operator = ls_find_user
	sys_power_issuper = ( Lower(Trim(publ_userid)) = sys_super_id )
	sys_right = ls_powerstring
ELSE
	MessageBox("提示", "用户口令不正确,请重新输入!", StopSign!, OK! )
	sle_3.Text = ''
	sle_3.SetFocus()
	RETURN
END IF

IF sle_1.Text <> sle_2.Text THEN
	MessageBox('提示','新密码与确认新密码不相符,请修改!', Information!, OK! )
	RETURN
END IF


//**********************检查密码
uo_usergroup uo_user
String arg_msg
uo_user = CREATE uo_usergroup
IF uo_user.check_psw(sle_1.Text,arg_msg) = 0 THEN
	MessageBox(publ_operator,arg_msg)
	RETURN
END IF
DESTROY uo_user
//****************************

ls_find_pass = f_psw_bczh(Trim(sle_1.Text),0,sys_power_key)
UPDATE u_user
	SET psw = :ls_find_pass
	WHERE u_user.empid = :ls_empid
	AND u_user.scid = :sys_scid;
IF sqlca.SQLCode <> 0 OR sqlca.SQLNRows = 0 THEN
	ROLLBACK;
	MessageBox (publ_operator,"更新数据操作失败!(请从试!)",Exclamation!,OK!)
	RETURN
ELSE
	COMMIT;
	MessageBox (publ_operator,"你的密码更新操作成功!",Exclamation!,OK!)
	Close(PARENT)
END IF

end event

type st_3 from statictext within w_sys_xgmm
integer x = 539
integer y = 400
integer width = 507
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
string text = "注：密码最长15位！"
boolean focusrectangle = false
end type

type st_4 from statictext within w_sys_xgmm
integer x = 283
integer y = 72
integer width = 233
integer height = 60
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 sle_3 from singlelineedit within w_sys_xgmm
event key pbm_keydown
integer x = 539
integer y = 40
integer width = 581
integer height = 92
integer taborder = 10
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
boolean password = true
integer limit = 15
borderstyle borderstyle = stylelowered!
end type

event key;If  key = KeyEnter! Or Key = KeyDownArrow! Then //
keybd_event ( 9, 0, 0 , 0 ) // 按下tab 
keybd_event ( 9, 0, 2, 0 ) // 释放tab 
Return 1
End If 
end event