room.srw

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

$PBExportHeader$room.srw
forward
global type room from window
end type
type cb_6 from commandbutton within room
end type
type cb_5 from commandbutton within room
end type
type cb_4 from commandbutton within room
end type
type cb_3 from commandbutton within room
end type
type cb_2 from commandbutton within room
end type
type cb_1 from commandbutton within room
end type
type dw_1 from datawindow within room
end type
end forward

global type room from window
integer width = 2533
integer height = 1660
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_6 cb_6
cb_5 cb_5
cb_4 cb_4
cb_3 cb_3
cb_2 cb_2
cb_1 cb_1
dw_1 dw_1
end type
global room room

on room.create
this.cb_6=create cb_6
this.cb_5=create cb_5
this.cb_4=create cb_4
this.cb_3=create cb_3
this.cb_2=create cb_2
this.cb_1=create cb_1
this.dw_1=create dw_1
this.Control[]={this.cb_6,&
this.cb_5,&
this.cb_4,&
this.cb_3,&
this.cb_2,&
this.cb_1,&
this.dw_1}
end on

on room.destroy
destroy(this.cb_6)
destroy(this.cb_5)
destroy(this.cb_4)
destroy(this.cb_3)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.dw_1)
end on

event open;dw_1.settransobject(sqlca)
dw_1.retrieve()
end event

type cb_6 from commandbutton within room
integer x = 1851
integer y = 1300
integer width = 457
integer height = 128
integer taborder = 70
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "保存"
end type

event clicked;if dw_1.update()=1 then
	commit;
else
	rollback;
end if
	
end event

type cb_5 from commandbutton within room
integer x = 1330
integer y = 1300
integer width = 457
integer height = 128
integer taborder = 60
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "修改"
end type

type cb_4 from commandbutton within room
integer x = 773
integer y = 1296
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

event clicked;dw_1.deleterow(0)
end event

type cb_3 from commandbutton within room
integer x = 146
integer y = 1296
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;long ll_row
ll_row=dw_1.insertrow(0)
dw_1.scrolltorow(ll_row)
dw_1.setfocus()
end event

type cb_2 from commandbutton within room
integer x = 763
integer y = 1104
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"
string text = "下一条"
end type

event clicked;dw_1.scrollnextrow()
end event

type cb_1 from commandbutton within room
integer x = 146
integer y = 1104
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"
string text = "上一条"
end type

event clicked;dw_1.scrollpriorrow()
end event

type dw_1 from datawindow within room
integer x = 105
integer y = 128
integer width = 2272
integer height = 928
integer taborder = 10
string title = "none"
string dataobject = "room_view"
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type