w_user_nm.srw

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

$PBExportHeader$w_user_nm.srw
$PBExportComments$create an user record or reset suer's password
forward
global type w_user_nm from window
end type
type tab_userinfo from tab within w_user_nm
end type
type tabpage_mpw from userobject within tab_userinfo
end type
type cb_close from commandbutton within tabpage_mpw
end type
type cb_reset from commandbutton within tabpage_mpw
end type
type cb_submit from commandbutton within tabpage_mpw
end type
type st_note from statictext within tabpage_mpw
end type
type sle_username from singlelineedit within tabpage_mpw
end type
type sle_recomfirm_newpw from singlelineedit within tabpage_mpw
end type
type sle_newpw from singlelineedit within tabpage_mpw
end type
type sle_oldpw from singlelineedit within tabpage_mpw
end type
type sle_userid from singlelineedit within tabpage_mpw
end type
type st_recomfirm_newpw from statictext within tabpage_mpw
end type
type st_newpw from statictext within tabpage_mpw
end type
type st_oldpw from statictext within tabpage_mpw
end type
type st_username from statictext within tabpage_mpw
end type
type st_userid from statictext within tabpage_mpw
end type
type gb_note from groupbox within tabpage_mpw
end type
type gb_mpw from groupbox within tabpage_mpw
end type
type gb_button from groupbox within tabpage_mpw
end type
type tabpage_mpw from userobject within tab_userinfo
cb_close cb_close
cb_reset cb_reset
cb_submit cb_submit
st_note st_note
sle_username sle_username
sle_recomfirm_newpw sle_recomfirm_newpw
sle_newpw sle_newpw
sle_oldpw sle_oldpw
sle_userid sle_userid
st_recomfirm_newpw st_recomfirm_newpw
st_newpw st_newpw
st_oldpw st_oldpw
st_username st_username
st_userid st_userid
gb_note gb_note
gb_mpw gb_mpw
gb_button gb_button
end type
type tabpage_cuser from userobject within tab_userinfo
end type
type cb_insertnewrow from commandbutton within tabpage_cuser
end type
type cb_re from commandbutton within tabpage_cuser
end type
type cb_update from commandbutton within tabpage_cuser
end type
type dw_user_c from datawindow within tabpage_cuser
end type
type gb_create from groupbox within tabpage_cuser
end type
type gb_bt from groupbox within tabpage_cuser
end type
type tabpage_cuser from userobject within tab_userinfo
cb_insertnewrow cb_insertnewrow
cb_re cb_re
cb_update cb_update
dw_user_c dw_user_c
gb_create gb_create
gb_bt gb_bt
end type
type tab_userinfo from tab within w_user_nm
tabpage_mpw tabpage_mpw
tabpage_cuser tabpage_cuser
end type
type gb_userinfo from groupbox within w_user_nm
end type
end forward

global type w_user_nm from window
integer width = 2199
integer height = 1576
boolean titlebar = true
string title = "添加用户/修改密码"
boolean controlmenu = true
boolean minbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
tab_userinfo tab_userinfo
gb_userinfo gb_userinfo
end type
global w_user_nm w_user_nm

type variables

end variables
on w_user_nm.create
this.tab_userinfo=create tab_userinfo
this.gb_userinfo=create gb_userinfo
this.Control[]={this.tab_userinfo,&
this.gb_userinfo}
end on

on w_user_nm.destroy
destroy(this.tab_userinfo)
destroy(this.gb_userinfo)
end on

event open;/* To Judge the user who whether is a manager */
If (g_manager = "1") Then
	tab_userinfo.tabpage_cuser.hide()
	tab_userinfo.tabpage_mpw.sle_userid.enabled = false
	tab_userinfo.tabpage_mpw.sle_username.enabled = false
	tab_userinfo.tabpage_mpw.sle_userid.text = g_id
	tab_userinfo.tabpage_mpw.sle_username.text = g_name
Else
	tab_userinfo.tabpage_cuser.dw_user_c.settransobject(sqlca)
	tab_userinfo.tabpage_cuser.dw_user_c.insertRow(0)
End If


end event

event closequery;/*------------------------------------------*/
/*   author: Thomas                         */
/*   function: Ask the operator weather to  */
/*             update the modify data		  */
/*------------------------------------------*/
int mb_code=0  //use to save the return vlaue of messagebox
If tab_userinfo.tabpage_cuser.dw_user_c.ModifiedCount()>0 Then //If you have modified data the return value will bigger than 0
	mb_code=messagebox("警告！","您已修改的数据还没进行保存，是否对其保存？",Question!,YesNoCancel! )
	If mb_code = 1 Then //If mb_code equal to 1,it means operator want to save data
		If	tab_userinfo.tabpage_cuser.dw_user_c.update() = 1 Then
			Commit;
			messagebox("恭喜！","数据已经保存成功！",Exclamation!)
//			dw_drugclass_view.retrieve()
//			w_main_hospital.enabled=true
			return 0 //If return value equal to 0,it means allow to close the w_insert_data 
		Else
			Rollback;
			messagebox("抱歉！","数据还未保存！")
			return 1 //If return value equal to 0,it means prevent to close the w_insert_data 
		End if
	Else
		If mb_code = 2 Then //If mb_code equal to 1,it means operator want to close the w_insert_data without save
//			w_main_hospital.enabled=true
			return 0
		Else
			return 1
		End If
	End If
Else 
//	w_main_hospital.enabled=true
	return 0
End If
end event

type tab_userinfo from tab within w_user_nm
integer x = 110
integer y = 136
integer width = 1925
integer height = 1256
integer taborder = 20
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
long backcolor = 67108864
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_mpw tabpage_mpw
tabpage_cuser tabpage_cuser
end type

on tab_userinfo.create
this.tabpage_mpw=create tabpage_mpw
this.tabpage_cuser=create tabpage_cuser
this.Control[]={this.tabpage_mpw,&
this.tabpage_cuser}
end on

on tab_userinfo.destroy
destroy(this.tabpage_mpw)
destroy(this.tabpage_cuser)
end on

type tabpage_mpw from userobject within tab_userinfo
integer x = 18
integer y = 124
integer width = 1888
integer height = 1116
long backcolor = 67108864
string text = "用户密码修改"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
cb_close cb_close
cb_reset cb_reset
cb_submit cb_submit
st_note st_note
sle_username sle_username
sle_recomfirm_newpw sle_recomfirm_newpw
sle_newpw sle_newpw
sle_oldpw sle_oldpw
sle_userid sle_userid
st_recomfirm_newpw st_recomfirm_newpw
st_newpw st_newpw
st_oldpw st_oldpw
st_username st_username
st_userid st_userid
gb_note gb_note
gb_mpw gb_mpw
gb_button gb_button
end type

on tabpage_mpw.create
this.cb_close=create cb_close
this.cb_reset=create cb_reset
this.cb_submit=create cb_submit
this.st_note=create st_note
this.sle_username=create sle_username
this.sle_recomfirm_newpw=create sle_recomfirm_newpw
this.sle_newpw=create sle_newpw
this.sle_oldpw=create sle_oldpw
this.sle_userid=create sle_userid
this.st_recomfirm_newpw=create st_recomfirm_newpw
this.st_newpw=create st_newpw
this.st_oldpw=create st_oldpw
this.st_username=create st_username
this.st_userid=create st_userid
this.gb_note=create gb_note
this.gb_mpw=create gb_mpw
this.gb_button=create gb_button
this.Control[]={this.cb_close,&
this.cb_reset,&
this.cb_submit,&
this.st_note,&
this.sle_username,&
this.sle_recomfirm_newpw,&
this.sle_newpw,&
this.sle_oldpw,&
this.sle_userid,&
this.st_recomfirm_newpw,&
this.st_newpw,&
this.st_oldpw,&
this.st_username,&
this.st_userid,&
this.gb_note,&
this.gb_mpw,&
this.gb_button}
end on

on tabpage_mpw.destroy
destroy(this.cb_close)
destroy(this.cb_reset)
destroy(this.cb_submit)
destroy(this.st_note)
destroy(this.sle_username)
destroy(this.sle_recomfirm_newpw)
destroy(this.sle_newpw)
destroy(this.sle_oldpw)
destroy(this.sle_userid)
destroy(this.st_recomfirm_newpw)
destroy(this.st_newpw)
destroy(this.st_oldpw)
destroy(this.st_username)
destroy(this.st_userid)
destroy(this.gb_note)
destroy(this.gb_mpw)
destroy(this.gb_button)
end on

type cb_close from commandbutton within tabpage_mpw
integer x = 1271
integer y = 888
integer width = 517
integer height = 132
integer taborder = 70
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
string text = "退出窗口"
end type

event clicked;close(w_user_nm)
end event

type cb_reset from commandbutton within tabpage_mpw
integer x = 677
integer y = 888
integer width = 517
integer height = 132
integer taborder = 80
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
string text = "重新输入"
end type

event clicked;If (g_manager = "1") Then
	sle_oldpw.text=""
	sle_newpw.text=""
	sle_recomfirm_newpw.text=""
	sle_oldpw.setfocus()
Else
	sle_userid.text=""
	sle_username.text=""
	sle_oldpw.text=""
	sle_newpw.text=""
	sle_recomfirm_newpw.text=""
	sle_userid.setfocus()
End IF
end event

type cb_submit from commandbutton within tabpage_mpw
integer x = 82
integer y = 888
integer width = 517
integer height = 132
integer taborder = 70
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
string text = "提交新密码"
end type

event clicked;string s_oldpw

select password
into :s_oldpw
from sys_user
where user_id = :sle_userid.text and user_name = :sle_username.text;

If (sle_newpw.text = sle_recomfirm_newpw.text) Then
	If (s_oldpw = sle_oldpw.text) Then
		update sys_user
			set password = :sle_newpw.text
		where user_id = :sle_userid.text and user_name = :sle_username.text &
				and password = :sle_oldpw.text;
		messagebox("恭喜！","密码修改已成功")
	Else
		messagebox("警告！","旧密码输入错误，请重新输入",Exclamation!)
		sle_oldpw.text=""
		sle_oldpw.setfocus()
	End If
Else 
	messagebox("警告！","新密码与确认密码不匹配，请重新输入",Exclamation!)
	sle_newpw.text=""
	sle_recomfirm_newpw.text=""
	sle_oldpw.setfocus()
End If
end event

type st_note from statictext within tabpage_mpw
integer x = 1330
integer y = 156
integer width = 393
integer height = 432
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
long textcolor = 33554432
long backcolor = 67108864