Q5/ws_objects/longjoe_report_uo.pbl.src/m_rpt_preview.srm

$PBExportHeader$m_rpt_preview.srm
$PBExportComments$预览--菜单
forward
global type m_rpt_preview from menu
end type
type m_sz from menu within m_rpt_preview
end type
type m_ylzt from menu within m_sz
end type
type m_-sz1 from menu within m_sz
end type
type m_bc from menu within m_sz
end type
type m_-21 from menu within m_sz
end type
type m_cond from menu within m_sz
end type
type m_-22 from menu within m_sz
end type
type m_22 from menu within m_sz
end type
type m_sz from menu within m_rpt_preview
m_ylzt m_ylzt
m_-sz1 m_-sz1
m_bc m_bc
m_-21 m_-21
m_cond m_cond
m_-22 m_-22
m_22 m_22
end type
type m_功能 from menu within m_rpt_preview
end type
type m_数据发送 from menu within m_功能
end type
type m_筛选 from menu within m_功能
end type
type m_页面设置 from menu within m_功能
end type
type m_02 from menu within m_功能
end type
type m_上一页 from menu within m_功能
end type
type m_下一页 from menu within m_功能
end type
type m_功能 from menu within m_rpt_preview
m_数据发送 m_数据发送
m_筛选 m_筛选
m_页面设置 m_页面设置
m_02 m_02
m_上一页 m_上一页
m_下一页 m_下一页
end type
type m_3 from menu within m_rpt_preview
end type
type m_31 from menu within m_3
end type
type m_3 from menu within m_rpt_preview
m_31 m_31
end type
type m_4 from menu within m_rpt_preview
end type
type m_41 from menu within m_4
end type
type m_bbxx from menu within m_4
end type
type m_01 from menu within m_4
end type
type m_42 from menu within m_4
end type
type m_4 from menu within m_rpt_preview
m_41 m_41
m_bbxx m_bbxx
m_01 m_01
m_42 m_42
end type
type m_bblc from menu within m_rpt_preview
end type
type m_bblc2 from menu within m_bblc
end type
type m_bblc0 from menu within m_bblc
end type
type m_bblc from menu within m_rpt_preview
m_bblc2 m_bblc2
m_bblc0 m_bblc0
end type
global type m_rpt_preview from menu
m_sz m_sz
m_功能 m_功能
m_3 m_3
m_4 m_4
m_bblc m_bblc
end type
end forward

global type m_rpt_preview from menu
m_sz m_sz
m_功能 m_功能
m_3 m_3
m_4 m_4
m_bblc m_bblc
end type
global m_rpt_preview m_rpt_preview

on m_rpt_preview.create
m_rpt_preview=this
call super::create
this.m_sz=create m_sz
this.m_功能=create m_功能
this.m_3=create m_3
this.m_4=create m_4
this.m_bblc=create m_bblc
this.Item[UpperBound(this.Item)+1]=this.m_sz
this.Item[UpperBound(this.Item)+1]=this.m_功能
this.Item[UpperBound(this.Item)+1]=this.m_3
this.Item[UpperBound(this.Item)+1]=this.m_4
this.Item[UpperBound(this.Item)+1]=this.m_bblc
end on

on m_rpt_preview.destroy
call super::destroy
destroy(this.m_sz)
destroy(this.m_功能)
destroy(this.m_3)
destroy(this.m_4)
destroy(this.m_bblc)
end on

type m_sz from menu within m_rpt_preview
m_ylzt m_ylzt
m_-sz1 m_-sz1
m_bc m_bc
m_-21 m_-21
m_cond m_cond
m_-22 m_-22
m_22 m_22
end type

on m_sz.create
call super::create
this.text = "设置"
this.m_ylzt=create m_ylzt
this.m_-sz1=create m_-sz1
this.m_bc=create m_bc
this.m_-21=create m_-21
this.m_cond=create m_cond
this.m_-22=create m_-22
this.m_22=create m_22
this.Item[UpperBound(this.Item)+1]=this.m_ylzt
this.Item[UpperBound(this.Item)+1]=this.m_-sz1
this.Item[UpperBound(this.Item)+1]=this.m_bc
this.Item[UpperBound(this.Item)+1]=this.m_-21
this.Item[UpperBound(this.Item)+1]=this.m_cond
this.Item[UpperBound(this.Item)+1]=this.m_-22
this.Item[UpperBound(this.Item)+1]=this.m_22
end on

on m_sz.destroy
call super::destroy
destroy(this.m_ylzt)
destroy(this.m_-sz1)
destroy(this.m_bc)
destroy(this.m_-21)
destroy(this.m_cond)
destroy(this.m_-22)
destroy(this.m_22)
end on

type m_ylzt from menu within m_sz
event destroy ( )
end type

on m_ylzt.destroy
call super::destroy
end on

on m_ylzt.create
call super::create
this.tag = "checked"
this.visible = false
this.text = "修改数据"
this.microhelp = "修改数据"
this.toolbaritemvisible = false
this.toolbaritemname = "Table!"
this.toolbaritemtext = "修改数据"
this.toolbaritemspace = 1
end on

event clicked;parentwindow.event dynamic ue_stat(1)
end event

type m_-sz1 from menu within m_sz
event destroy ( )
end type

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

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

type m_bc from menu within m_sz
event destroy ( )
end type

on m_bc.destroy
call super::destroy
end on

on m_bc.create
call super::create
this.tag = "checked"
this.text = "标尺"
this.microhelp = "标尺"
this.toolbaritemname = "DesignMode!"
this.toolbaritemtext = "标尺"
this.toolbaritemspace = 1
end on

event clicked;parentwindow.event dynamic ue_check(1)
end event

type m_-21 from menu within m_sz
event destroy ( )
end type

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

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

type m_cond from menu within m_sz
event destroy ( )
end type

on m_cond.destroy
call super::destroy
end on

on m_cond.create
call super::create
this.text = "打印条件"
this.microhelp = "打印条件"
this.toolbaritemname = "Find!"
this.toolbaritemtext = "打印条件"
this.toolbaritemspace = 1
end on

event clicked;parentwindow.event dynamic ue_cond()
end event

type m_-22 from menu within m_sz
event destroy ( )
end type

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

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

type m_22 from menu within m_sz
event destroy ( )
end type

on m_22.destroy
call super::destroy
end on

on m_22.create
call super::create
this.text = "打印参数"
this.microhelp = "打印参数设置"
this.toolbaritemname = "Custom074!"
this.toolbaritemtext = "打印参数"
this.toolbaritemspace = 1
end on

event clicked;parentwindow.event dynamic ue_setup()
end event

type m_功能 from menu within m_rpt_preview
m_数据发送 m_数据发送
m_筛选 m_筛选
m_页面设置 m_页面设置
m_02 m_02
m_上一页 m_上一页
m_下一页 m_下一页
end type

on m_功能.create
call super::create
this.text = "功能"
this.m_数据发送=create m_数据发送
this.m_筛选=create m_筛选
this.m_页面设置=create m_页面设置
this.m_02=create m_02
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_02
this.Item[UpperBound(this.Item)+1]=this.m_上一页
this.Item[UpperBound(this.Item)+1]=this.m_下一页
end on

on m_功能.destroy
call super::destroy
destroy(this.m_数据发送)
destroy(this.m_筛选)
destroy(this.m_页面设置)
destroy(this.m_02)
destroy(this.m_上一页)
destroy(this.m_下一页)
end on

type m_数据发送 from menu within m_功能
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_功能
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_功能
end type

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

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

type m_02 from menu within m_功能
end type

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

on m_02.destroy
call super::destroy
end on

type m_上一页 from menu within m_功能
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_功能
end type

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

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

type m_3 from menu within m_rpt_preview
m_31 m_31
end type

on m_3.create
call super::create
this.text = "打印"
this.m_31=create m_31
this.Item[UpperBound(this.Item)+1]=this.m_31
end on

on m_3.destroy
call super::destroy
destroy(this.m_31)
end on

type m_31 from menu within m_3
event destroy ( )
end type

on m_31.destroy
call super::destroy
end on

on m_31.create
call super::create
this.text = "打印"
this.microhelp = "打印"
this.toolbaritemname = "print!"
this.toolbaritemtext = "打印"
this.toolbaritemspace = 2
end on

event clicked;parentwindow.event dynamic ue_print()
end event

type m_4 from menu within m_rpt_preview
m_41 m_41
m_bbxx m_bbxx
m_01 m_01
m_42 m_42
end type

on m_4.create
call super::create
this.text = "系统"
this.toolbaritemspace = 2
this.m_41=create m_41
this.m_bbxx=create m_bbxx
this.m_01=create m_01
this.m_42=create m_42
this.Item[UpperBound(this.Item)+1]=this.m_41
this.Item[UpperBound(this.Item)+1]=this.m_bbxx
this.Item[UpperBound(this.Item)+1]=this.m_01
this.Item[UpperBound(this.Item)+1]=this.m_42
end on

on m_4.destroy
call super::destroy
destroy(this.m_41)
destroy(this.m_bbxx)
destroy(this.m_01)
destroy(this.m_42)
end on

type m_41 from menu within m_4
event destroy ( )
end type

on m_41.destroy
call super::destroy
end on

event clicked;//ShowHelp("report.HLP", keyword!, "report_preview")
end event

on m_41.create
call super::create
this.text = "帮助~tF1"
this.shortcut = 112
this.microhelp = "帮助"
this.toolbaritemname = "Help!"
this.toolbaritemtext = "帮助"
this.toolbaritemspace = 1
end on

type m_bbxx from menu within m_4
event destroy ( )
end type

on m_bbxx.destroy
call super::destroy
end on

event clicked;open(w_zkl_begin)
end event

on m_bbxx.create
call super::create
this.visible = false
this.text = "版本信息"
this.microhelp = "版本信息"
this.toolbaritemvisible = false
end on

type m_01 from menu within m_4
event destroy ( )
end type

on m_01.destroy
call super::destroy
end on

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

type m_42 from menu within m_4
event destroy ( )
end type

on m_42.destroy
call super::destroy
end on

event clicked;if isvalid(parentwindow) then
	close(parentwindow)
end if
end event

on m_42.create
call super::create
this.text = "返回"
this.microhelp = "返回"
this.toolbaritemname = "exit!"
this.toolbaritemtext = "返回"
this.toolbaritemspace = 1
end on

type m_bblc from menu within m_rpt_preview
m_bblc2 m_bblc2
m_bblc0 m_bblc0
end type

on m_bblc.create
call super::create
this.visible = false
this.text = "报表另存"
this.m_bblc2=create m_bblc2
this.m_bblc0=create m_bblc0
this.Item[UpperBound(this.Item)+1]=this.m_bblc2
this.Item[UpperBound(this.Item)+1]=this.m_bblc0
end on

on m_bblc.destroy
call super::destroy
destroy(this.m_bblc2)
destroy(this.m_bblc0)
end on

event clicked;parentwindow.event dynamic ue_new(0)
end event

type m_bblc2 from menu within m_bblc
event create ( )
event destroy ( )
end type

on m_bblc2.create
call super::create
this.visible = false
this.text = "另存Excel"
this.microhelp = "另存Excel"
this.toolbaritemvisible = false
this.toolbaritemname = "Custom043!"
this.toolbaritemtext = "另存Excel"
this.toolbaritemspace = 1
end on

on m_bblc2.destroy
call super::destroy
end on

event clicked;parentwindow.event dynamic ue_new(0)
end event

type m_bblc0 from menu within m_bblc
event destroy ( )
end type

on m_bblc0.destroy
call super::destroy
end on

on m_bblc0.create
call super::create
this.visible = false
this.text = "报表数据另存"
this.microhelp = "报表数据另存"
this.toolbaritemvisible = false
this.toolbaritemname = "SaveAs!"
this.toolbaritemtext = "报表另存"
this.toolbaritemspace = 1
end on

event clicked;parentwindow.event dynamic ue_save()
end event