Q5/ws_objects/Ew_publ903.pbl.src/m_publ_func.srm

$PBExportHeader$m_publ_func.srm
forward
global type m_publ_func from menu
end type
type m_func from menu within m_publ_func
end type
type m_retr from menu within m_func
end type
type m_filter from menu within m_func
end type
type m_sort from menu within m_func
end type
type m_sentdataout from menu within m_func
end type
type m_func from menu within m_publ_func
m_retr m_retr
m_filter m_filter
m_sort m_sort
m_sentdataout m_sentdataout
end type
global type m_publ_func from menu
m_func m_func
end type
end forward

global type m_publ_func from menu
m_func m_func
end type
global m_publ_func m_publ_func

on m_publ_func.create
m_publ_func=this
call super::create
this.text = "m_publ"
this.m_func=create m_func
this.Item[UpperBound(this.Item)+1]=this.m_func
end on

on m_publ_func.destroy
call super::destroy
destroy(this.m_func)
end on

type m_func from menu within m_publ_func
m_retr m_retr
m_filter m_filter
m_sort m_sort
m_sentdataout m_sentdataout
end type

on m_func.create
call super::create
this.text = " "
this.m_retr=create m_retr
this.m_filter=create m_filter
this.m_sort=create m_sort
this.m_sentdataout=create m_sentdataout
this.Item[UpperBound(this.Item)+1]=this.m_retr
this.Item[UpperBound(this.Item)+1]=this.m_filter
this.Item[UpperBound(this.Item)+1]=this.m_sort
this.Item[UpperBound(this.Item)+1]=this.m_sentdataout
end on

on m_func.destroy
call super::destroy
destroy(this.m_retr)
destroy(this.m_filter)
destroy(this.m_sort)
destroy(this.m_sentdataout)
end on

type m_retr from menu within m_func
end type

on m_retr.create
call super::create
this.text = "查询"
end on

on m_retr.destroy
call super::destroy
end on

event clicked;m_publ_func.getparent().triggerevent("ue_retr")
//CommandButton btn
//menu m
//m=this.getparent().getparent()
////messagebox("",this.getparent().getparent().classname())
//messagebox("",m.getparent().classname())
//messagebox("",this.getparent().getparent().getparent().classname())
//parent.triggerevent("ue_retr")

//btn=this.getparent()
//window w
//w=btn.getparent()
//w.triggerevent("ue_retr")
end event

type m_filter from menu within m_func
end type

on m_filter.create
call super::create
this.text = "高级筛选"
end on

on m_filter.destroy
call super::destroy
end on

type m_sort from menu within m_func
end type

on m_sort.create
call super::create
this.text = "排序"
end on

on m_sort.destroy
call super::destroy
end on

type m_sentdataout from menu within m_func
end type

on m_sentdataout.create
call super::create
this.text = "数据发送"
end on

on m_sentdataout.destroy
call super::destroy
end on