w_user_nm.srw

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

string text = "请输入两次密码，以确定您输入的新密码"
alignment alignment = Left!
boolean focusrectangle = false
end type

type sle_username from singlelineedit within tabpage_mpw
integer x = 553
integer y = 200
integer width = 622
integer height = 116
integer taborder = 30
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_recomfirm_newpw from singlelineedit within tabpage_mpw
integer x = 553
integer y = 620
integer width = 622
integer height = 116
integer taborder = 50
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_newpw from singlelineedit within tabpage_mpw
integer x = 553
integer y = 480
integer width = 622
integer height = 116
integer taborder = 40
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_oldpw from singlelineedit within tabpage_mpw
integer x = 553
integer y = 340
integer width = 622
integer height = 116
integer taborder = 30
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_userid from singlelineedit within tabpage_mpw
integer x = 553
integer y = 64
integer width = 622
integer height = 116
integer taborder = 20
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_recomfirm_newpw from statictext within tabpage_mpw
integer x = 82
integer y = 640
integer width = 471
integer height = 76
integer textsize = -12
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_newpw from statictext within tabpage_mpw
integer x = 82
integer y = 500
integer width = 471
integer height = 76
integer textsize = -12
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_oldpw from statictext within tabpage_mpw
integer x = 82
integer y = 360
integer width = 471
integer height = 76
integer textsize = -12
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_username from statictext within tabpage_mpw
integer x = 82
integer y = 224
integer width = 471
integer height = 76
integer textsize = -12
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_userid from statictext within tabpage_mpw
integer x = 82
integer y = 84
integer width = 471
integer height = 76
integer textsize = -12
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 gb_note from groupbox within tabpage_mpw
integer x = 1225
integer y = 40
integer width = 576
integer height = 692
integer taborder = 60
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
long textcolor = 33554432
long backcolor = 67108864
end type

type gb_mpw from groupbox within tabpage_mpw
integer x = 32
integer y = -4
integer width = 1815
integer height = 792
integer taborder = 30
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
long textcolor = 33554432
long backcolor = 67108864
end type

type gb_button from groupbox within tabpage_mpw
integer x = 32
integer y = 764
integer width = 1815
integer height = 336
integer taborder = 60
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
long textcolor = 33554432
long backcolor = 67108864
end type

type tabpage_cuser 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_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

on tabpage_cuser.create
this.cb_insertnewrow=create cb_insertnewrow
this.cb_re=create cb_re
this.cb_update=create cb_update
this.dw_user_c=create dw_user_c
this.gb_create=create gb_create
this.gb_bt=create gb_bt
this.Control[]={this.cb_insertnewrow,&
this.cb_re,&
this.cb_update,&
this.dw_user_c,&
this.gb_create,&
this.gb_bt}
end on

on tabpage_cuser.destroy
destroy(this.cb_insertnewrow)
destroy(this.cb_re)
destroy(this.cb_update)
destroy(this.dw_user_c)
destroy(this.gb_create)
destroy(this.gb_bt)
end on

type cb_insertnewrow from commandbutton within tabpage_cuser
integer x = 1202
integer y = 916
integer width = 585
integer height = 132
integer taborder = 90
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
boolean enabled = false
string text = "插入下一条数据"
end type

event clicked;
/* Insert an new row */
 tab_userinfo.tabpage_cuser.dw_user_c.reset()
 tab_userinfo.tabpage_cuser.dw_user_c.insertrow(0)
 tab_userinfo.tabpage_cuser.cb_insertnewrow.Enabled = false
 tab_userinfo.tabpage_cuser.cb_update.Enabled = true
end event

type cb_re from commandbutton within tabpage_cuser
integer x = 645
integer y = 916
integer width = 517
integer height = 132
integer taborder = 90
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
string text = "重新输入"
end type

event clicked;/*------------------------------------------*/
/*       author: Thomas                     */
/* 		function: Reset the values			  */
/*------------------------------------------*/
int col //column ID

For col = 1 to 4
 		 tab_userinfo.tabpage_cuser.dw_user_c.setitem( &
		  tab_userinfo.tabpage_cuser.dw_user_c.getrow(),col,'')
Next
end event

type cb_update from commandbutton within tabpage_cuser
integer x = 91
integer y = 916
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;/*------------------------------------------*/
/*       author: Thomas                     */
/* 		function: commit insert 			  */
/*------------------------------------------*/
If tab_userinfo.tabpage_cuser.dw_user_c.Update()=1 Then
	Commit;
	messagebox("恭喜！","数据已经保存成功")
Else
	Rollback;
	messagebox("抱歉！","数据保存出错")
End if
tab_userinfo.tabpage_cuser.cb_update.Enabled = false
tab_userinfo.tabpage_cuser.cb_insertnewrow.Enabled = true
end event

type dw_user_c from datawindow within tabpage_cuser
integer x = 82
integer y = 64
integer width = 1710
integer height = 744
integer taborder = 40
string title = "none"
string dataobject = "d_user_c"
boolean livescroll = true
borderstyle borderstyle = StyleShadowBox!
end type

type gb_create from groupbox within tabpage_cuser
integer x = 41
integer width = 1806
integer height = 844
integer taborder = 30
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
long textcolor = 33554432
long backcolor = 67108864
end type

type gb_bt from groupbox within tabpage_cuser
integer x = 41
integer y = 844
integer width = 1801
integer height = 244
integer taborder = 80
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
long textcolor = 33554432
long backcolor = 67108864
end type

type gb_userinfo from groupbox within w_user_nm
integer x = 37
integer y = 36
integer width = 2071
integer height = 1416
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "华文中宋"
long textcolor = 33554432
long backcolor = 67108864
string text = "创建新用户/修改用户密码"
end type