print1.srw

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

$PBExportHeader$print1.srw
forward
global type print1 from window
end type
type dw_1 from datawindow within print1
end type
type st_1 from statictext within print1
end type
type st_2 from statictext within print1
end type
type cb_1 from commandbutton within print1
end type
type cb_2 from commandbutton within print1
end type
type em_1 from editmask within print1
end type
end forward

global type print1 from window
integer width = 2533
integer height = 1760
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
dw_1 dw_1
st_1 st_1
st_2 st_2
cb_1 cb_1
cb_2 cb_2
em_1 em_1
end type
global print1 print1

on print1.create
this.dw_1=create dw_1
this.st_1=create st_1
this.st_2=create st_2
this.cb_1=create cb_1
this.cb_2=create cb_2
this.em_1=create em_1
this.Control[]={this.dw_1,&
this.st_1,&
this.st_2,&
this.cb_1,&
this.cb_2,&
this.em_1}
end on

on print1.destroy
destroy(this.dw_1)
destroy(this.st_1)
destroy(this.st_2)
destroy(this.cb_1)
destroy(this.cb_2)
destroy(this.em_1)
end on

type dw_1 from datawindow within print1
integer x = 251
integer y = 624
integer width = 1806
integer height = 888
integer taborder = 20
string title = "none"
string dataobject = "dw_2"
boolean hscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within print1
integer x = 731
integer y = 148
integer width = 882
integer height = 132
integer textsize = -16
integer weight = 700
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 print1
integer x = 338
integer y = 420
integer width = 562
integer height = 100
integer textsize = -16
integer weight = 700
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 cb_1 from commandbutton within print1
integer x = 2121
integer y = 656
integer width = 311
integer height = 144
integer taborder = 20
integer textsize = -16
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "显示"
end type

event clicked;if em_1.text <> "" then
	dw_1.settransobject(sqlca)
	dw_1.setfilter("stock_year='"+em_1.text+"'")
	
	//	dw_1.filter()
   dw_1.retrieve()
	
end if
end event

type cb_2 from commandbutton within print1
integer x = 2117
integer y = 956
integer width = 302
integer height = 152
integer taborder = 20
integer textsize = -16
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "打印"
end type

event clicked;dw_1.print()
end event

type em_1 from editmask within print1
integer x = 1111
integer y = 408
integer width = 375
integer height = 128
integer taborder = 10
integer textsize = -16
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
string text = "2001"
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy"
boolean autoskip = true
boolean spin = true
end type