password.srw

用pb（power builder）制作的医院管理系统 附有数据库脚本

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

global type password from window
integer width = 2533
integer height = 1408
boolean titlebar = true
string title = "密码修改"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_2 cb_2
cb_1 cb_1
sle_3 sle_3
sle_2 sle_2
sle_1 sle_1
st_3 st_3
st_2 st_2
st_1 st_1
end type
global password password

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

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

type cb_2 from commandbutton within password
integer x = 1143
integer y = 1012
integer width = 457
integer height = 128
integer taborder = 50
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "取消"
end type

type cb_1 from commandbutton within password
integer x = 338
integer y = 1012
integer width = 457
integer height = 128
integer taborder = 40
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "确定"
end type

event clicked;string new_password
string old_username
old_username=G_USER
if sle_2.text<>sle_3.text then
messagebox("提示","你两次输入的密码不一样")
exit
end if
update sys_user
set sys_user.password=:new_password
where sys_user.user_name=:old_username and sys_user.password=:sle_1.text
using SQLCA;
end event

type sle_3 from singlelineedit within password
integer x = 1042
integer y = 680
integer width = 457
integer height = 128
integer taborder = 30
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean password = true
borderstyle borderstyle = stylelowered!
end type

type sle_2 from singlelineedit within password
integer x = 1042
integer y = 464
integer width = 457
integer height = 128
integer taborder = 20
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean password = true
borderstyle borderstyle = stylelowered!
end type

type sle_1 from singlelineedit within password
integer x = 1042
integer y = 224
integer width = 457
integer height = 128
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean password = true
borderstyle borderstyle = stylelowered!
end type

type st_3 from statictext within password
integer x = 242
integer y = 696
integer width = 599
integer height = 108
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "请再次输入新密码"
boolean focusrectangle = false
end type

type st_2 from statictext within password
integer x = 242
integer y = 460
integer width = 457
integer height = 108
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "请输入新密码"
boolean focusrectangle = false
end type

type st_1 from statictext within password
integer x = 242
integer y = 244
integer width = 457
integer height = 96
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "请输入旧密码"
boolean focusrectangle = false
end type