print.srw

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

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

global type print from window
integer width = 2432
integer height = 1628
boolean titlebar = true
string title = "药品进货月份报表"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
windowstate windowstate = minimized!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
dw_1 dw_1
em_1 em_1
cb_2 cb_2
cb_1 cb_1
st_2 st_2
st_1 st_1
end type
global print print

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

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

type dw_1 from datawindow within print
integer x = 210
integer y = 628
integer width = 1559
integer height = 680
integer taborder = 20
string title = "none"
string dataobject = "dw_1"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type em_1 from editmask within print
integer x = 1111
integer y = 408
integer width = 581
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-12"
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy-mm"
boolean autoskip = true
boolean spin = true
end type

type cb_2 from commandbutton within print
integer x = 1915
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 cb_1 from commandbutton within print
integer x = 1902
integer y = 668
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_month='"+em_1.text+"'")
	
	//	dw_1.filter()
   dw_1.retrieve()
	
end if
end event

type st_2 from statictext within print
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 st_1 from statictext within print
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