Q5/ws_objects/longjoe_report_uo.pbl.src/w_report_open.srw

$PBExportHeader$w_report_open.srw
$PBExportComments$报表入口窗口-多文本窗口
forward
global type w_report_open from w_rpt_base
end type
type mdi_1 from mdiclient within w_report_open
end type
end forward

global type w_report_open from w_rpt_base
int Y=4
int Width=3685
int Height=2428
WindowType WindowType=mdihelp!
boolean TitleBar=true
string Title="致用《动态数据窗口设计器》V6.0"
string MenuName="m_rpt_pop"
long BackColor=8421376
event move pbm_move
mdi_1 mdi_1
end type
global w_report_open w_report_open

type variables

end variables

event move;if isvalid(w_rpt_statbar) then w_rpt_statbar.event resize(0,0,0)
end event

on w_report_open.create
int iCurrent
call super::create
if this.MenuName = "m_rpt_pop" then this.MenuID = create m_rpt_pop
this.mdi_1=create mdi_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.mdi_1
end on

on w_report_open.destroy
call super::destroy
if IsValid(MenuID) then destroy(MenuID)
destroy(this.mdi_1)
end on

event open;call super::open;if not isvalid(istr_rpt) then
	close(this)
	return
end if
istr_rpt.window_mdi=this

postevent('ue_cond')//先让此MDI窗口完全打开,可以使用于响应式窗口直接调用情况

end event

event ue_cond;choose case istr_rpt.label
	case '字段中文名设置'
		opensheetwithparm(w_rpt_field,istr_rpt,this,0,Original!)
	case '表或视图名设置'
		opensheetwithparm(w_rpt_table,istr_rpt,this,0,Original!)
	case '直接打印'
		post openwithparm(w_rpt_manage,istr_rpt,this)
	case else//报表设计,报表预览
		opensheetwithparm(w_rpt_manage,istr_rpt,this,0,Original!)
end choose

end event

event resize;if isvalid(w_rpt_statbar) then w_rpt_statbar.event resize(0,0,0)
end event

type mdi_1 from mdiclient within w_report_open
long BackColor=276856960
end type