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

$PBExportHeader$m_rpt_main.srm
$PBExportComments$设计器--菜单
forward
global type m_rpt_main from menu
end type
type m_1 from menucascade within m_rpt_main
end type
type m_text from menu within m_1
end type
type m_edit from menu within m_1
end type
type m_line1 from menu within m_1
end type
type m_line2 from menu within m_1
end type
type m_line3 from menu within m_1
end type
type m_rect from menu within m_1
end type
type m_pict from menu within m_1
end type
type m_blob from menu within m_1
end type
type m_rpt from menu within m_1
end type
type m_graph from menu within m_1
end type
type m_button from menu within m_1
end type
type m_groupbox from menu within m_1
end type
type m_ellipse from menu within m_1
end type
type m_roundrectangle from menu within m_1
end type
type m_1 from menucascade within m_rpt_main
m_text m_text
m_edit m_edit
m_line1 m_line1
m_line2 m_line2
m_line3 m_line3
m_rect m_rect
m_pict m_pict
m_blob m_blob
m_rpt m_rpt
m_graph m_graph
m_button m_button
m_groupbox m_groupbox
m_ellipse m_ellipse
m_roundrectangle m_roundrectangle
end type
type m_2 from menu within m_rpt_main
end type
type m_21 from menu within m_2
end type
type m_-6 from menu within m_2
end type
type m_22 from menu within m_2
end type
type m_23 from menu within m_2
end type
type m_24 from menu within m_2
end type
type m_25 from menu within m_2
end type
type m_26 from menu within m_2
end type
type m_27 from menu within m_2
end type
type m_2 from menu within m_rpt_main
m_21 m_21
m_-6 m_-6
m_22 m_22
m_23 m_23
m_24 m_24
m_25 m_25
m_26 m_26
m_27 m_27
end type
type m_dq from menucascade within m_rpt_main
end type
type m_zdq from menu within m_dq
end type
type m_ydq from menu within m_dq
end type
type m_sdq from menu within m_dq
end type
type m_xdq from menu within m_dq
end type
type m_dk from menu within m_dq
end type
type m_dg from menu within m_dq
end type
type m_dspjj from menu within m_dq
end type
type m_dczjj from menu within m_dq
end type
type m_dq from menucascade within m_rpt_main
m_zdq m_zdq
m_ydq m_ydq
m_sdq m_sdq
m_xdq m_xdq
m_dk m_dk
m_dg m_dg
m_dspjj m_dspjj
m_dczjj m_dczjj
end type
type m_bk from menucascade within m_rpt_main
end type
type m_wbk from menu within m_bk
end type
type m_jxk from menu within m_bk
end type
type m_yyk from menu within m_bk
end type
type m_xhxk from menu within m_bk
end type
type m_3dxa from menu within m_bk
end type
type m_3dst from menu within m_bk
end type
type m_bk from menucascade within m_rpt_main
m_wbk m_wbk
m_jxk m_jxk
m_yyk m_yyk
m_xhxk m_xhxk
m_3dxa m_3dxa
m_3dst m_3dst
end type
type m_xs from menu within m_rpt_main
end type
type m_left from menu within m_xs
end type
type m_center from menu within m_xs
end type
type m_right from menu within m_xs
end type
type m_ct from menu within m_xs
end type
type m_xt from menu within m_xs
end type
type m_xhx from menu within m_xs
end type
type m_xs from menu within m_rpt_main
m_left m_left
m_center m_center
m_right m_right
m_ct m_ct
m_xt m_xt
m_xhx m_xhx
end type
type m_4 from menu within m_rpt_main
end type
type m_ltx from menu within m_4
end type
type m_sj from menu within m_4
end type
type m_ysl from menu within m_4
end type
type m_gxsx from menu within m_4
end type
type m_-h2 from menu within m_4
end type
type m_43 from menu within m_4
end type
type m_-43 from menu within m_4
end type
type m_44 from menu within m_4
end type
type m_4 from menu within m_rpt_main
m_ltx m_ltx
m_sj m_sj
m_ysl m_ysl
m_gxsx m_gxsx
m_-h2 m_-h2
m_43 m_43
m_-43 m_-43
m_44 m_44
end type
type m_3 from menu within m_rpt_main
end type
type m_sep1 from menu within m_3
end type
type m_dxfz from menu within m_3
end type
type m_-gj0 from menu within m_3
end type
type m_sql from menu within m_3
end type
type m_-gj3 from menu within m_3
end type
type m_auto from menu within m_3
end type
type m_-gj2 from menu within m_3
end type
type m_tab from menu within m_3
end type
type m_-gj1 from menu within m_3
end type
type m_saveas from menu within m_3
end type
type m_import from menu within m_3
end type
type m_-gj5 from menu within m_3
end type
type m_51 from menu within m_3
end type
type m_3 from menu within m_rpt_main
m_sep1 m_sep1
m_dxfz m_dxfz
m_-gj0 m_-gj0
m_sql m_sql
m_-gj3 m_-gj3
m_auto m_auto
m_-gj2 m_-gj2
m_tab m_tab
m_-gj1 m_-gj1
m_saveas m_saveas
m_import m_import
m_-gj5 m_-gj5
m_51 m_51
end type
type m_7 from menu within m_rpt_main
end type
type m_71 from menu within m_7
end type
type m_100 from menu within m_7
end type
type m_110 from menu within m_7
end type
type m_-2 from menu within m_7
end type
type m_72 from menu within m_7
end type
type m_-3 from menu within m_7
end type
type m_73 from menu within m_7
end type
type m_7 from menu within m_rpt_main
m_71 m_71
m_100 m_100
m_110 m_110
m_-2 m_-2
m_72 m_72
m_-3 m_-3
m_73 m_73
end type
global type m_rpt_main from menu
m_1 m_1
m_2 m_2
m_dq m_dq
m_bk m_bk
m_xs m_xs
m_4 m_4
m_3 m_3
m_7 m_7
end type
end forward

global type m_rpt_main from menu
m_1 m_1
m_2 m_2
m_dq m_dq
m_bk m_bk
m_xs m_xs
m_4 m_4
m_3 m_3
m_7 m_7
end type
global m_rpt_main m_rpt_main

on m_rpt_main.create
m_rpt_main=this
call super::create
this.m_1=create m_1
this.m_2=create m_2
this.m_dq=create m_dq
this.m_bk=create m_bk
this.m_xs=create m_xs
this.m_4=create m_4
this.m_3=create m_3
this.m_7=create m_7
this.Item[UpperBound(this.Item)+1]=this.m_1
this.Item[UpperBound(this.Item)+1]=this.m_2
this.Item[UpperBound(this.Item)+1]=this.m_dq
this.Item[UpperBound(this.Item)+1]=this.m_bk
this.Item[UpperBound(this.Item)+1]=this.m_xs
this.Item[UpperBound(this.Item)+1]=this.m_4
this.Item[UpperBound(this.Item)+1]=this.m_3
this.Item[UpperBound(this.Item)+1]=this.m_7
end on

on m_rpt_main.destroy
call super::destroy
destroy(this.m_1)
destroy(this.m_2)
destroy(this.m_dq)
destroy(this.m_bk)
destroy(this.m_xs)
destroy(this.m_4)
destroy(this.m_3)
destroy(this.m_7)
end on

type m_1 from menucascade within m_rpt_main
m_text m_text
m_edit m_edit
m_line1 m_line1
m_line2 m_line2
m_line3 m_line3
m_rect m_rect
m_pict m_pict
m_blob m_blob
m_rpt m_rpt
m_graph m_graph
m_button m_button
m_groupbox m_groupbox
m_ellipse m_ellipse
m_roundrectangle m_roundrectangle
end type

on m_1.create
call super::create
this.text = "插入(&I)"
this.columns = 2
this.m_text=create m_text
this.m_edit=create m_edit
this.m_line1=create m_line1
this.m_line2=create m_line2
this.m_line3=create m_line3
this.m_rect=create m_rect
this.m_pict=create m_pict
this.m_blob=create m_blob
this.m_rpt=create m_rpt
this.m_graph=create m_graph
this.m_button=create m_button
this.m_groupbox=create m_groupbox
this.m_ellipse=create m_ellipse
this.m_roundrectangle=create m_roundrectangle
this.Item[UpperBound(this.Item)+1]=this.m_text
this.Item[UpperBound(this.Item)+1]=this.m_edit
this.Item[UpperBound(this.Item)+1]=this.m_line1
this.Item[UpperBound(this.Item)+1]=this.m_line2
this.Item[UpperBound(this.Item)+1]=this.m_line3
this.Item[UpperBound(this.Item)+1]=this.m_rect
this.Item[UpperBound(this.Item)+1]=this.m_pict
this.Item[UpperBound(this.Item)+1]=this.m_blob
this.Item[UpperBound(this.Item)+1]=this.m_rpt
this.Item[UpperBound(this.Item)+1]=this.m_graph
this.Item[UpperBound(this.Item)+1]=this.m_button
this.Item[UpperBound(this.Item)+1]=this.m_groupbox
this.Item[UpperBound(this.Item)+1]=this.m_ellipse
this.Item[UpperBound(this.Item)+1]=this.m_roundrectangle
end on

on m_1.destroy
call super::destroy
destroy(this.m_text)
destroy(this.m_edit)
destroy(this.m_line1)
destroy(this.m_line2)
destroy(this.m_line3)
destroy(this.m_rect)
destroy(this.m_pict)
destroy(this.m_blob)
destroy(this.m_rpt)
destroy(this.m_graph)
destroy(this.m_button)
destroy(this.m_groupbox)
destroy(this.m_ellipse)
destroy(this.m_roundrectangle)
end on

type m_text from menu within m_1
end type

on m_text.create
call super::create
this.text = "文本"
this.toolbaritemname = "StaticText!"
this.toolbaritemtext = "文本"
end on

event clicked;parentwindow.event dynamic ue_toolbar('text',this)
end event

on m_text.destroy
call super::destroy
end on

type m_edit from menu within m_1
end type

on m_edit.create
call super::create
this.text = "表达式"
this.toolbaritemname = "RichTextEdit!"
this.toolbaritemtext = "表达式"
end on

event clicked;parentwindow.event dynamic ue_toolbar('compute',this)
end event

on m_edit.destroy
call super::destroy
end on

type m_line1 from menu within m_1
end type

on m_line1.create
call super::create
this.text = "横线"
this.toolbaritemname = "Line!"
this.toolbaritemtext = "横线"
end on

event clicked;parentwindow.event dynamic ue_toolbar('line1',this)

end event

on m_line1.destroy
call super::destroy
end on

type m_line2 from menu within m_1
end type

on m_line2.create
call super::create
this.text = "竖线"
this.toolbaritemname = "Line!"
this.toolbaritemtext = "竖线"
end on

event clicked;parentwindow.event dynamic ue_toolbar('line2',this)
end event

on m_line2.destroy
call super::destroy
end on

type m_line3 from menu within m_1
end type

on m_line3.create
call super::create
this.text = "斜线"
this.toolbaritemname = "Line!"
this.toolbaritemtext = "斜线"
end on

event clicked;parentwindow.event dynamic ue_toolbar('line3',this)
end event

on m_line3.destroy
call super::destroy
end on

type m_rect from menu within m_1
end type

on m_rect.create
call super::create
this.text = "矩形"
this.toolbaritemname = "Rectangle!"
this.toolbaritemtext = "矩形"
end on

event clicked;parentwindow.event dynamic ue_toolbar('rectangle',this)
end event

on m_rect.destroy
call super::destroy
end on

type m_pict from menu within m_1
end type

on m_pict.create
call super::create
this.text = "图形"
this.toolbaritemname = "Picture5!"
this.toolbaritemtext = "图形"
end on

event clicked;parentwindow.event dynamic ue_toolbar('bitmap',this)
end event

on m_pict.destroy
call super::destroy
end on

type m_blob from menu within m_1
end type

on m_blob.create
call super::create
this.text = "blob列"
this.toolbaritemname = "Ole5!"
this.toolbaritemtext = "blob列"
end on

event clicked;parentwindow.event dynamic ue_toolbar('tableblob',this)
end event

on m_blob.destroy
call super::destroy
end on

type m_rpt from menu within m_1
end type

on m_rpt.create
call super::create
this.text = "嵌套报表"
this.toolbaritemname = "NestedReport!"
this.toolbaritemtext = "嵌套报表"
end on

event clicked;parentwindow.event dynamic ue_toolbar('report',this)
end event

on m_rpt.destroy
call super::destroy
end on

type m_graph from menu within m_1
end type

on m_graph.create
call super::create
this.text = "图表"
this.microhelp = "图表"
this.toolbaritemname = "Graph!"
this.toolbaritemtext = "图表"
end on

event clicked;parentwindow.event dynamic ue_toolbar('graph',this)
end event

on m_graph.destroy
call super::destroy
end on

type m_button from menu within m_1
end type

event clicked;parentwindow.event dynamic ue_toolbar('button',this)
end event

on m_button.create
call super::create
this.text = "按钮"
this.toolbaritemname = "CommandButton!"
this.toolbaritemtext = "按钮"
end on

on m_button.destroy
call super::destroy
end on

type m_groupbox from menu within m_1
end type

event clicked;parentwindow.event dynamic ue_toolbar('groupbox',this)
end event

on m_groupbox.create
call super::create
this.text = "分组框"
this.toolbaritemname = "GroupBox!"
this.toolbaritemtext = "分组框"
end on

on m_groupbox.destroy
call super::destroy
end on

type m_ellipse from menu within m_1
end type

on m_ellipse.create
call super::create
this.text = "椭圆"
this.toolbaritemname = "Oval!"
this.toolbaritemtext = "椭圆"
end on

event clicked;parentwindow.event dynamic ue_toolbar('ellipse',this)
end event

on m_ellipse.destroy
call super::destroy
end on

type m_roundrectangle from menu within m_1
end type

on m_roundrectangle.create
call super::create
this.text = "圆角矩形"
this.toolbaritemname = "RoundRectangle!"
this.toolbaritemtext = "圆角矩形"
end on

event clicked;parentwindow.event dynamic ue_toolbar('roundrectangle',this)
end event

on m_roundrectangle.destroy
call super::destroy
end on

type m_2 from menu within m_rpt_main
m_21 m_21
m_-6 m_-6
m_22 m_22
m_23 m_23
m_24 m_24
m_25 m_25
m_26 m_26
m_27 m_27
end type

on m_2.create
call super::create
this.text = "选择(&S)"
this.m_21=create m_21
this.m_-6=create m_-6
this.m_22=create m_22
this.m_23=create m_23
this.m_24=create m_24
this.m_25=create m_25
this.m_26=create m_26
this.m_27=create m_27
this.Item[UpperBound(this.Item)+1]=this.m_21
this.Item[UpperBound(this.Item)+1]=this.m_-6
this.Item[UpperBound(this.Item)+1]=this.m_22
this.Item[UpperBound(this.Item)+1]=this.m_23
this.Item[UpperBound(this.Item)+1]=this.m_24
this.Item[UpperBound(this.Item)+1]=this.m_25
this.Item[UpperBound(this.Item)+1]=this.m_26
this.Item[UpperBound(this.Item)+1]=this.m_27
end on

on m_2.destroy
call super::destroy
destroy(this.m_21)
destroy(this.m_-6)
destroy(this.m_22)
destroy(this.m_23)
destroy(this.m_24)
destroy(this.m_25)
destroy(this.m_26)
destroy(this.m_27)
end on

type m_21 from menu within m_2
end type

on m_21.create
call super::create
this.text = "全部对象~tCtrl+A"
this.shortcut = 321
end on

event clicked;parentwindow.event dynamic ue_sel_yes('all')
end event

on m_21.destroy
call super::destroy
end on

type m_-6 from menu within m_2
end type

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

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

type m_22 from menu within m_2
end type

on m_22.create
call super::create
this.text = "全部横线"
end on

event clicked;parentwindow.event dynamic ue_sel_yes('line1')
end event

on m_22.destroy
call super::destroy
end on

type m_23 from menu within m_2
end type

on m_23.create
call super::create
this.text = "全部竖线"
end on

event clicked;parentwindow.event dynamic ue_sel_yes('line2')
end event

on m_23.destroy
call super::destroy
end on

type m_24 from menu within m_2
end type

on m_24.create
call super::create
this.text = "全部斜线"
end on

event clicked;parentwindow.event dynamic ue_sel_yes('line3')
end event

on m_24.destroy
call super::destroy
end on

type m_25 from menu within m_2
end type

on m_25.create
call super::create
this.text = "全部文本"
end on

event clicked;parentwindow.event dynamic ue_sel_yes('text')
end event

on m_25.destroy
call super::destroy
end on

type m_26 from menu within m_2
end type

on m_26.create
call super::create
this.text = "全部表达式"
end on

event clicked;parentwindow.event dynamic ue_sel_yes('column,compute')
end event

on m_26.destroy
call super::destroy
end on

type m_27 from menu within m_2
end type

on m_27.create
call super::create
this.text = "全部矩形"
end on

event clicked;parentwindow.event dynamic ue_sel_yes('rectangle')
end event

on m_27.destroy
call super::destroy
end on

type m_dq from menucascade within m_rpt_main
m_zdq m_zdq
m_ydq m_ydq
m_sdq m_sdq
m_xdq m_xdq
m_dk m_dk
m_dg m_dg
m_dspjj m_dspjj
m_dczjj m_dczjj
end type

on m_dq.create
call super::create
this.text = "对齐(&A)"
this.columns = 2
this.m_zdq=create m_zdq
this.m_ydq=create m_ydq
this.m_sdq=create m_sdq
this.m_xdq=create m_xdq
this.m_dk=create m_dk
this.m_dg=create m_dg
this.m_dspjj=create m_dspjj
this.m_dczjj=create m_dczjj
this.Item[UpperBound(this.Item)+1]=this.m_zdq
this.Item[UpperBound(this.Item)+1]=this.m_ydq
this.Item[UpperBound(this.Item)+1]=this.m_sdq
this.Item[UpperBound(this.Item)+1]=this.m_xdq
this.Item[UpperBound(this.Item)+1]=this.m_dk
this.Item[UpperBound(this.Item)+1]=this.m_dg
this.Item[UpperBound(this.Item)+1]=this.m_dspjj
this.Item[UpperBound(this.Item)+1]=this.m_dczjj
end on

on m_dq.destroy
call super::destroy
destroy(this.m_zdq)
destroy(this.m_ydq)
destroy(this.m_sdq)
destroy(this.m_xdq)
destroy(this.m_dk)
destroy(this.m_dg)
destroy(this.m_dspjj)
destroy(this.m_dczjj)
end on

type m_zdq from menu within m_dq
end type

on m_zdq.create
call super::create
this.text = "左对齐"
this.toolbaritemname = "AlignLeft!"
this.toolbaritemtext = "左对齐"
this.toolbaritemspace = 1
end on

event clicked;parentwindow.event dynamic ue_allposition('left')
end event

on m_zdq.destroy
call super::destroy
end on

type m_ydq from menu within m_dq
end type

on m_ydq.create
call super::create
this.text = "右对齐"
this.toolbaritemname = "AlignRight!"
this.toolbaritemtext = "右对齐"
end on

event clicked;parentwindow.event dynamic ue_allposition('right')
end event

on m_ydq.destroy
call super::destroy
end on

type m_sdq from menu within m_dq
end type

on m_sdq.create
call super::create
this.text = "上对齐"
this.toolbaritemname = "AlignTop!"
this.toolbaritemtext = "上对齐"
end on

event clicked;parentwindow.event dynamic ue_allposition('up')
end event

on m_sdq.destroy
call super::destroy
end on

type m_xdq from menu within m_dq
end type

on m_xdq.create
call super::create
this.text = "下对齐"
this.toolbaritemname = "AlignBottom!"
this.toolbaritemtext = "下对齐"
end on

event clicked;parentwindow.event dynamic ue_allposition('down')
end event

on m_xdq.destroy
call super::destroy
end on

type m_dk from menu within m_dq
end type

on m_dk.create
call super::create
this.text = "等宽"
this.toolbaritemname = "SizeHorizontal!"
this.toolbaritemtext = "等宽"
end on

event clicked;parentwindow.event dynamic ue_allposition('width')
end event

on m_dk.destroy
call super::destroy
end on

type m_dg from menu within m_dq
end type

on m_dg.create
call super::create
this.text = "等高"
this.toolbaritemname = "SizeVertical!"
this.toolbaritemtext = "等高"
end on

event clicked;parentwindow.event dynamic ue_allposition('height')
end event

on m_dg.destroy
call super::destroy
end on

type m_dspjj from menu within m_dq
end type

on m_dspjj.create
call super::create
this.text = "等水平间距"
this.toolbaritemname = "SpaceHorizontal!"
this.toolbaritemtext = "等水平间距"
end on

event clicked;parentwindow.event dynamic ue_allposition('space-x')
end event

on m_dspjj.destroy
call super::destroy
end on

type m_dczjj from menu within m_dq
end type

on m_dczjj.create
call super::create
this.text = "等垂直间距"
this.toolbaritemname = "SpaceVertical!"
this.toolbaritemtext = "等垂直间距"
end on

event clicked;parentwindow.event dynamic ue_allposition('space-y')
end event

on m_dczjj.destroy
call super::destroy
end on

type m_bk from menucascade within m_rpt_main
m_wbk m_wbk
m_jxk m_jxk
m_yyk m_yyk
m_xhxk m_xhxk
m_3dxa m_3dxa
m_3dst m_3dst
end type

on m_bk.create
call super::create
this.text = "边框(&B)"
this.m_wbk=create m_wbk
this.m_jxk=create m_jxk
this.m_yyk=create m_yyk
this.m_xhxk=create m_xhxk
this.m_3dxa=create m_3dxa
this.m_3dst=create m_3dst
this.Item[UpperBound(this.Item)+1]=this.m_wbk
this.Item[UpperBound(this.Item)+1]=this.m_jxk
this.Item[UpperBound(this.Item)+1]=this.m_yyk
this.Item[UpperBound(this.Item)+1]=this.m_xhxk
this.Item[UpperBound(this.Item)+1]=this.m_3dxa
this.Item[UpperBound(this.Item)+1]=this.m_3dst
end on

on m_bk.destroy
call super::destroy
destroy(this.m_wbk)
destroy(this.m_jxk)
destroy(this.m_yyk)
destroy(this.m_xhxk)
destroy(this.m_3dxa)
destroy(this.m_3dst)
end on

type m_wbk from menu within m_bk
end type

on m_wbk.create
call super::create
this.text = "无边框"
this.toolbaritemname = "BorderNone!"
this.toolbaritemtext = "无边框"
this.toolbaritemspace = 1
end on

event clicked;//m_wbk.barindex=0
//m_jxk.checked=false
//m_yyk.checked=false
//m_xhxk.checked=false
//m_3dxa.checked=false
//m_3dst.checked=false
//checked=true
parentwindow.function dynamic wf_allset('border','0')
//m_wbk.checked=false
//m_jxk.checked=false
//m_yyk.checked=false
//m_xhxk.checked=false
//m_3dxa.checked=false
//m_3dst.checked=false
//checked=true

end event

on m_wbk.destroy
call super::destroy
end on

type m_jxk from menu within m_bk
end type

on m_jxk.create
call super::create
this.text = "矩形框"
this.toolbaritemname = "BorderBox!"
this.toolbaritemtext = "矩形框"
end on

event clicked;parentwindow.function dynamic wf_allset('border','2')
end event

on m_jxk.destroy
call super::destroy
end on

type m_yyk from menu within m_bk
end type

on m_yyk.create
call super::create
this.text = "阴影框"
this.toolbaritemname = "BorderShadowBox!"
this.toolbaritemtext = "阴影框"
end on

event clicked;parentwindow.function dynamic wf_allset('border','1')
end event

on m_yyk.destroy
call super::destroy
end on

type m_xhxk from menu within m_bk
end type

on m_xhxk.create
call super::create
this.text = "下划线"
this.toolbaritemname = "BorderUnderline!"
this.toolbaritemtext = "下划线"
end on

event clicked;parentwindow.function dynamic wf_allset('border','4')
end event

on m_xhxk.destroy
call super::destroy
end on

type m_3dxa from menu within m_bk
end type

on m_3dxa.create
call super::create
this.text = "3D下凹"
this.toolbaritemname = "Border3DLowered!"
this.toolbaritemtext = "3D下凹"
end on

event clicked;parentwindow.function dynamic wf_allset('border','5')
end event

on m_3dxa.destroy
call super::destroy
end on

type m_3dst from menu within m_bk
end type

on m_3dst.create
call super::create
this.text = "3D上凸"
this.toolbaritemname = "Border3DRaised!"
this.toolbaritemtext = "3D上凸"
end on

event clicked;parentwindow.function dynamic wf_allset('border','6')
end event

on m_3dst.destroy
call super::destroy
end on

type m_xs from menu within m_rpt_main
m_left m_left
m_center m_center
m_right m_right
m_ct m_ct
m_xt m_xt
m_xhx m_xhx
end type

on m_xs.create
call super::create
this.text = "显示(&X)"
this.m_left=create m_left
this.m_center=create m_center
this.m_right=create m_right
this.m_ct=create m_ct
this.m_xt=create m_xt
this.m_xhx=create m_xhx
this.Item[UpperBound(this.Item)+1]=this.m_left
this.Item[UpperBound(this.Item)+1]=this.m_center
this.Item[UpperBound(this.Item)+1]=this.m_right
this.Item[UpperBound(this.Item)+1]=this.m_ct
this.Item[UpperBound(this.Item)+1]=this.m_xt
this.Item[UpperBound(this.Item)+1]=this.m_xhx
end on

on m_xs.destroy
call super::destroy
destroy(this.m_left)
destroy(this.m_center)
destroy(this.m_right)
destroy(this.m_ct)
destroy(this.m_xt)
destroy(this.m_xhx)
end on

type m_left from menu within m_xs
end type

event clicked;m_left.checked=false
m_center.checked=false
m_right.checked=false
checked=true
parentwindow.function dynamic wf_allset('align','0')
end event

on m_left.create
call super::create
this.text = "居左"
this.toolbaritemname = "Left!"
this.toolbaritemtext = "居左"
this.toolbaritemspace = 1
end on

on m_left.destroy
call super::destroy
end on

type m_center from menu within m_xs
end type

event clicked;m_left.checked=false
m_center.checked=false
m_right.checked=false
checked=true
parentwindow.function dynamic wf_allset('align','2')
end event

on m_center.create
call super::create
this.text = "居中"
this.toolbaritemname = "Center!"
this.toolbaritemtext = "居中"
end on

on m_center.destroy
call super::destroy
end on

type m_right from menu within m_xs
end type

event clicked;m_left.checked=false
m_center.checked=false
m_right.checked=false
checked=true
parentwindow.function dynamic wf_allset('align','1')
end event

on m_right.create
call super::create
this.text = "居右"
this.toolbaritemname = "Right!"
this.toolbaritemtext = "居右"
end on

on m_right.destroy
call super::destroy
end on

type m_ct from menu within m_xs
end type

event clicked;if checked=true then
	checked=false
	parentwindow.function dynamic wf_allset('weight','400')
else
	checked=true
	parentwindow.function dynamic wf_allset('weight','700')
end if

end event

on m_ct.create
call super::create
this.text = "粗体"
this.toolbaritemname = "Bold!"
this.toolbaritemtext = "粗体"
end on

on m_ct.destroy
call super::destroy
end on

type m_xt from menu within m_xs
end type

event clicked;if checked=true then
	checked=false
	parentwindow.function dynamic wf_allset('italic','0')
else
	checked=true
	parentwindow.function dynamic wf_allset('italic','1')
end if

end event

on m_xt.create
call super::create
this.text = "斜体"
this.toolbaritemname = "Italic!"
this.toolbaritemtext = "斜体"
end on

on m_xt.destroy
call super::destroy
end on

type m_xhx from menu within m_xs
end type

event clicked;if checked=true then
	checked=false
	parentwindow.function dynamic wf_allset('underline','0')
else
	checked=true
	parentwindow.function dynamic wf_allset('underline','1')
end if

end event

on m_xhx.create
call super::create
this.text = "下划线"
this.toolbaritemname = "Underline!"
this.toolbaritemtext = "下划线"
end on

on m_xhx.destroy
call super::destroy
end on

type m_4 from menu within m_rpt_main
m_ltx m_ltx
m_sj m_sj
m_ysl m_ysl
m_gxsx m_gxsx
m_-h2 m_-h2
m_43 m_43
m_-43 m_-43
m_44 m_44
end type

on m_4.create
call super::create
this.text = "行(&R)"
this.m_ltx=create m_ltx
this.m_sj=create m_sj
this.m_ysl=create m_ysl
this.m_gxsx=create m_gxsx
this.m_-h2=create m_-h2
this.m_43=create m_43
this.m_-43=create m_-43
this.m_44=create m_44
this.Item[UpperBound(this.Item)+1]=this.m_ltx
this.Item[UpperBound(this.Item)+1]=this.m_sj
this.Item[UpperBound(this.Item)+1]=this.m_ysl
this.Item[UpperBound(this.Item)+1]=this.m_gxsx
this.Item[UpperBound(this.Item)+1]=this.m_-h2
this.Item[UpperBound(this.Item)+1]=this.m_43
this.Item[UpperBound(this.Item)+1]=this.m_-43
this.Item[UpperBound(this.Item)+1]=this.m_44
end on

on m_4.destroy
call super::destroy
destroy(this.m_ltx)
destroy(this.m_sj)
destroy(this.m_ysl)
destroy(this.m_gxsx)
destroy(this.m_-h2)
destroy(this.m_43)
destroy(this.m_-43)
destroy(this.m_44)
end on

type m_ltx from menu within m_4
end type

on m_ltx.create
call super::create
this.text = "列特性"
end on

event clicked;open(w_rpt_colp)

end event

on m_ltx.destroy
call super::destroy
end on

type m_sj from menu within m_4
end type

on m_sj.create
call super::create
this.text = "数据(data)"
end on

event clicked;open(w_rpt_data)

end event

on m_sj.destroy
call super::destroy
end on

type m_ysl from menu within m_4
end type

on m_ysl.create
call super::create
this.text = "压缩列"
end on

event clicked;openwithparm(w_rpt_groupc,2)

end event

on m_ysl.destroy
call super::destroy
end on

type m_gxsx from menu within m_4
end type

on m_gxsx.create
call super::create
this.text = "更新属性"
end on

event clicked;open(w_rpt_update)

end event

on m_gxsx.destroy
call super::destroy
end on

type m_-h2 from menu within m_4
end type

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

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

type m_43 from menu within m_4
end type

event clicked;parentwindow.event dynamic ue_insertgroup()

end event

on m_43.create
call super::create
this.text = "增加分组区"
end on

on m_43.destroy
call super::destroy
end on

type m_-43 from menu within m_4
end type

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

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

type m_44 from menu within m_4
end type

event clicked;parentwindow.event dynamic ue_deletegroup()

end event

on m_44.create
call super::create
this.text = "删除分组区"
end on

on m_44.destroy
call super::destroy
end on

type m_3 from menu within m_rpt_main
m_sep1 m_sep1
m_dxfz m_dxfz
m_-gj0 m_-gj0
m_sql m_sql
m_-gj3 m_-gj3
m_auto m_auto
m_-gj2 m_-gj2
m_tab m_tab
m_-gj1 m_-gj1
m_saveas m_saveas
m_import m_import
m_-gj5 m_-gj5
m_51 m_51
end type

on m_3.create
call super::create
this.text = "工具(&T)"
this.m_sep1=create m_sep1
this.m_dxfz=create m_dxfz
this.m_-gj0=create m_-gj0
this.m_sql=create m_sql
this.m_-gj3=create m_-gj3
this.m_auto=create m_auto
this.m_-gj2=create m_-gj2
this.m_tab=create m_tab
this.m_-gj1=create m_-gj1
this.m_saveas=create m_saveas
this.m_import=create m_import
this.m_-gj5=create m_-gj5
this.m_51=create m_51
this.Item[UpperBound(this.Item)+1]=this.m_sep1
this.Item[UpperBound(this.Item)+1]=this.m_dxfz
this.Item[UpperBound(this.Item)+1]=this.m_-gj0
this.Item[UpperBound(this.Item)+1]=this.m_sql
this.Item[UpperBound(this.Item)+1]=this.m_-gj3
this.Item[UpperBound(this.Item)+1]=this.m_auto
this.Item[UpperBound(this.Item)+1]=this.m_-gj2
this.Item[UpperBound(this.Item)+1]=this.m_tab
this.Item[UpperBound(this.Item)+1]=this.m_-gj1
this.Item[UpperBound(this.Item)+1]=this.m_saveas
this.Item[UpperBound(this.Item)+1]=this.m_import
this.Item[UpperBound(this.Item)+1]=this.m_-gj5
this.Item[UpperBound(this.Item)+1]=this.m_51
end on

on m_3.destroy
call super::destroy
destroy(this.m_sep1)
destroy(this.m_dxfz)
destroy(this.m_-gj0)
destroy(this.m_sql)
destroy(this.m_-gj3)
destroy(this.m_auto)
destroy(this.m_-gj2)
destroy(this.m_tab)
destroy(this.m_-gj1)
destroy(this.m_saveas)
destroy(this.m_import)
destroy(this.m_-gj5)
destroy(this.m_51)
end on

type m_sep1 from menu within m_3
end type

event clicked;parentwindow.event dynamic ue_toolbar('sep1',this)
end event

on m_sep1.create
call super::create
this.text = "垂直分割"
this.toolbaritemname = "Tile!"
this.toolbaritemtext = "垂直分割"
this.toolbaritemspace = 1
end on

on m_sep1.destroy
call super::destroy
end on

type m_dxfz from menu within m_3
end type

on m_dxfz.create
call super::create
this.text = "对象复制~tCtrl+T"
this.shortcut = 340
this.toolbaritemname = "copy!"
this.toolbaritemtext = "对象复制"
this.toolbaritemspace = 1
end on

event clicked;parentwindow.event dynamic ue_copy()

end event

on m_dxfz.destroy
call super::destroy
end on

type m_-gj0 from menu within m_3
end type

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

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

type m_sql from menu within m_3
end type

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

on m_sql.create
call super::create
this.text = "设置数据源"
this.toolbaritemname = "SQL!"
this.toolbaritemtext = "数据源"
this.toolbaritemspace = 1
end on

on m_sql.destroy
call super::destroy
end on

type m_-gj3 from menu within m_3
end type

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

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

type m_auto from menu within m_3
end type

on m_auto.create
call super::create
this.text = "自动生成对象"
this.toolbaritemname = "Regenerate5!"
this.toolbaritemtext = "自动生成对象"
this.toolbaritemspace = 1
end on

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

on m_auto.destroy
call super::destroy
end on

type m_-gj2 from menu within m_3
end type

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

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

type m_tab from menu within m_3
end type

on m_tab.create
call super::create
this.text = "设置Tab Order"
this.toolbaritemname = "TabOrder!"
this.toolbaritemtext = "设置Tab Order"
this.toolbaritemspace = 1
end on

event clicked;//parentwindow.event dynamic ue_taborder()
parentwindow.event dynamic ue_toolbar('taborder',this)
end event

on m_tab.destroy
call super::destroy
end on

type m_-gj1 from menu within m_3
end type

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

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

type m_saveas from menu within m_3
end type

on m_saveas.create
call super::create
this.text = "导出数据窗口"
this.toolbaritemname = "Library!"
this.toolbaritemtext = "语法另存为dw"
this.toolbaritemspace = 1
end on

event clicked;//open(w_report_export)

parentwindow.function dynamic wf_libexport()

end event

on m_saveas.destroy
call super::destroy
end on

type m_import from menu within m_3
end type

on m_import.create
call super::create
this.text = "导入数据窗口"
this.toolbaritemname = "Import5!"
this.toolbaritemtext = "从外部dw引入语法"
this.toolbaritemspace = 1
end on

event clicked;parentwindow.function dynamic wf_libimport()
end event

on m_import.destroy
call super::destroy
end on

type m_-gj5 from menu within m_3
end type

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

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

type m_51 from menu within m_3
end type

on m_51.create
call super::create
this.text = "预览"
this.toolbaritemname = "EditDataGrid!"
this.toolbaritemtext = "预览"
this.toolbaritemspace = 1
end on

event clicked;parentwindow.event dynamic ue_dw2_sort()
parentwindow.event dynamic ue_preview()
end event

on m_51.destroy
call super::destroy
end on

type m_7 from menu within m_rpt_main
m_71 m_71
m_100 m_100
m_110 m_110
m_-2 m_-2
m_72 m_72
m_-3 m_-3
m_73 m_73
end type

on m_7.create
call super::create
this.text = "系统(&H)"
this.m_71=create m_71
this.m_100=create m_100
this.m_110=create m_110
this.m_-2=create m_-2
this.m_72=create m_72
this.m_-3=create m_-3
this.m_73=create m_73
this.Item[UpperBound(this.Item)+1]=this.m_71
this.Item[UpperBound(this.Item)+1]=this.m_100
this.Item[UpperBound(this.Item)+1]=this.m_110
this.Item[UpperBound(this.Item)+1]=this.m_-2
this.Item[UpperBound(this.Item)+1]=this.m_72
this.Item[UpperBound(this.Item)+1]=this.m_-3
this.Item[UpperBound(this.Item)+1]=this.m_73
end on

on m_7.destroy
call super::destroy
destroy(this.m_71)
destroy(this.m_100)
destroy(this.m_110)
destroy(this.m_-2)
destroy(this.m_72)
destroy(this.m_-3)
destroy(this.m_73)
end on

type m_71 from menu within m_7
end type

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

on m_71.create
call super::create
this.text = "保存"
this.toolbaritemname = "Save!"
this.toolbaritemtext = "保存"
this.toolbaritemspace = 1
end on

on m_71.destroy
call super::destroy
end on

type m_100 from menu within m_7
end type

on m_100.create
call super::create
this.text = "上传"
this.toolbaritemname = "Custom033!"
this.toolbaritemtext = "上传"
this.toolbaritemspace = 1
end on

on m_100.destroy
call super::destroy
end on

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

type m_110 from menu within m_7
end type

on m_110.create
call super::create
this.text = "保存并上传"
this.toolbaritemname = "Custom038!"
this.toolbaritemtext = "保存并上传"
end on

on m_110.destroy
call super::destroy
end on

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

type m_-2 from menu within m_7
end type

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

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

type m_72 from menu within m_7
end type

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

event clicked;Int i
i = htmlhelpA(Handle(THIS), sys_help_chm, 0, "自定义单据打印格式")

end event

on m_72.destroy
call super::destroy
end on

type m_-3 from menu within m_7
end type

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

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

type m_73 from menu within m_7
end type

on m_73.create
call super::create
this.text = "退出"
this.toolbaritemname = "Exit!"
this.toolbaritemtext = "退出"
this.toolbaritemspace = 1
end on

event clicked;close(parentwindow)

end event

on m_73.destroy
call super::destroy
end on