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

$PBExportHeader$m_publ_preview_func.srm
forward
global type m_publ_preview_func from menu
end type
type m_0 from menu within m_publ_preview_func
end type
type m_数据发送 from menu within m_0
end type
type m_筛选 from menu within m_0
end type
type m_页面设置 from menu within m_0
end type
type m_- from menu within m_0
end type
type m_编辑格式 from menu within m_0
end type
type m_1 from menu within m_0
end type
type m_下一页 from menu within m_0
end type
type m_上一页 from menu within m_0
end type
type m_0 from menu within m_publ_preview_func
m_数据发送 m_数据发送
m_筛选 m_筛选
m_页面设置 m_页面设置
m_- m_-
m_编辑格式 m_编辑格式
m_1 m_1
m_下一页 m_下一页
m_上一页 m_上一页
end type
global type m_publ_preview_func from menu
m_0 m_0
end type
end forward

global type m_publ_preview_func from menu
m_0 m_0
end type
global m_publ_preview_func m_publ_preview_func

on m_publ_preview_func.create
m_publ_preview_func=this
call super::create
this.m_0=create m_0
this.Item[UpperBound(this.Item)+1]=this.m_0
end on

on m_publ_preview_func.destroy
call super::destroy
destroy(this.m_0)
end on

type m_0 from menu within m_publ_preview_func
m_数据发送 m_数据发送
m_筛选 m_筛选
m_页面设置 m_页面设置
m_- m_-
m_编辑格式 m_编辑格式
m_1 m_1
m_下一页 m_下一页
m_上一页 m_上一页
end type

on m_0.create
call super::create
this.text = " "
this.m_数据发送=create m_数据发送
this.m_筛选=create m_筛选
this.m_页面设置=create m_页面设置
this.m_-=create m_-
this.m_编辑格式=create m_编辑格式
this.m_1=create m_1
this.m_下一页=create m_下一页
this.m_上一页=create m_上一页
this.Item[UpperBound(this.Item)+1]=this.m_数据发送
this.Item[UpperBound(this.Item)+1]=this.m_筛选
this.Item[UpperBound(this.Item)+1]=this.m_页面设置
this.Item[UpperBound(this.Item)+1]=this.m_-
this.Item[UpperBound(this.Item)+1]=this.m_编辑格式
this.Item[UpperBound(this.Item)+1]=this.m_1
this.Item[UpperBound(this.Item)+1]=this.m_下一页
this.Item[UpperBound(this.Item)+1]=this.m_上一页
end on

on m_0.destroy
call super::destroy
destroy(this.m_数据发送)
destroy(this.m_筛选)
destroy(this.m_页面设置)
destroy(this.m_-)
destroy(this.m_编辑格式)
destroy(this.m_1)
destroy(this.m_下一页)
destroy(this.m_上一页)
end on

type m_数据发送 from menu within m_0
end type

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

on m_数据发送.destroy
call super::destroy
end on

event clicked;if isvalid(w_publ_preview) then w_publ_preview.triggerevent("ue_sentdataout")
end event

type m_筛选 from menu within m_0
end type

on m_筛选.create
call super::create
this.text = "筛选"
end on

on m_筛选.destroy
call super::destroy
end on

event clicked;if isvalid(w_publ_preview) then w_publ_preview.triggerevent("ue_filter")
end event

type m_页面设置 from menu within m_0
end type

on m_页面设置.create
call super::create
this.text = "页面设置"
end on

on m_页面设置.destroy
call super::destroy
end on

event clicked;if isvalid(w_publ_preview) then w_publ_preview.triggerevent("ue_setprintpage_value")
end event

type m_- from menu within m_0
end type

on m_-.create
call super::create
this.text = "-"
end on

on m_-.destroy
call super::destroy
end on

type m_编辑格式 from menu within m_0
end type

event clicked;if isvalid(w_publ_preview) then w_publ_preview.triggerevent("ue_mod_printbill")
end event

on m_编辑格式.create
call super::create
this.text = "编辑格式"
end on

on m_编辑格式.destroy
call super::destroy
end on

type m_1 from menu within m_0
end type

on m_1.create
call super::create
this.text = "-"
end on

on m_1.destroy
call super::destroy
end on

type m_下一页 from menu within m_0
end type

event clicked;if isvalid(w_publ_preview) then w_publ_preview.triggerevent("ue_snp")
end event

on m_下一页.create
call super::create
this.text = "下一页"
end on

on m_下一页.destroy
call super::destroy
end on

type m_上一页 from menu within m_0
end type

on m_上一页.create
call super::create
this.text = "上一页"
end on

on m_上一页.destroy
call super::destroy
end on

event clicked;if isvalid(w_publ_preview) then w_publ_preview.triggerevent("ue_spp")
end event