w_report.srw

PB9.0生成的图书管理系统

$PBExportHeader$w_report.srw
forward
global type w_report from window
end type
type cb_3 from commandbutton within w_report
end type
type cb_2 from commandbutton within w_report
end type
type cb_1 from commandbutton within w_report
end type
type dw_1 from datawindow within w_report
end type
end forward

global type w_report from window
integer width = 3191
integer height = 1608
boolean titlebar = true
string title = "报表"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_3 cb_3
cb_2 cb_2
cb_1 cb_1
dw_1 dw_1
end type
global w_report w_report

on w_report.create
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_3,&
this.cb_2,&
this.cb_1,&
this.dw_1}
end on

on w_report.destroy
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_3 from commandbutton within w_report
integer x = 1161
integer y = 1360
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.Print()
end event
type cb_2 from commandbutton within w_report
integer x = 1696
integer y = 20
integer width = 526
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;string filterStr

dw_1.object.t_3.text="图书借阅--在库图书一览表"
filterStr="Not IsNull(returndate)"

dw_1.setTransobject(SQLCA)
dw_1.setFilter(filterStr)
dw_1.Filter()
dw_1.Retrieve()
end event
type cb_1 from commandbutton within w_report
integer x = 745
integer y = 20
integer width = 526
integer height = 128
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "所有在借图书"
end type

event clicked;string filterStr

dw_1.object.t_3.text="图书借阅--在借图书一览表"
filterStr="IsNull(returndate)"

dw_1.setTransobject(SQLCA)
dw_1.setFilter(filterStr)
dw_1.Filter()
dw_1.Retrieve()
end event
type dw_1 from datawindow within w_report
integer x = 59
integer y = 196
integer width = 2985
integer height = 1124
integer taborder = 10
boolean titlebar = true
string title = "打印报表"
string dataobject = "d_report"
boolean controlmenu = true
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type