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

$PBExportHeader$m_rpt_manage.srm
$PBExportComments$登记管理--菜单
forward
global type m_rpt_manage from menu
end type
type m_1 from menu within m_rpt_manage
end type
type m_11 from menu within m_1
end type
type m_- from menu within m_1
end type
type m_15 from menu within m_1
end type
type m_-1 from menu within m_1
end type
type m_12 from menu within m_1
end type
type m_-21 from menu within m_1
end type
type m_13 from menu within m_1
end type
type m_-3 from menu within m_1
end type
type m_14 from menu within m_1
end type
type m_1 from menu within m_rpt_manage
m_11 m_11
m_- m_-
m_15 m_15
m_-1 m_-1
m_12 m_12
m_-21 m_-21
m_13 m_13
m_-3 m_-3
m_14 m_14
end type
type m_3 from menu within m_rpt_manage
end type
type m_31 from menu within m_3
end type
type m_-2 from menu within m_3
end type
type m_32 from menu within m_3
end type
type m_3 from menu within m_rpt_manage
m_31 m_31
m_-2 m_-2
m_32 m_32
end type
type m_4 from menu within m_rpt_manage
end type
type m_41 from menu within m_4
end type
type m_4 from menu within m_rpt_manage
m_41 m_41
end type
type m_5 from menu within m_rpt_manage
end type
type m_51 from menu within m_5
end type
type m_-xt1 from menu within m_5
end type
type m_2 from menu within m_5
end type
type m_-4 from menu within m_5
end type
type m_52 from menu within m_5
end type
type m_5 from menu within m_rpt_manage
m_51 m_51
m_-xt1 m_-xt1
m_2 m_2
m_-4 m_-4
m_52 m_52
end type
end forward

global type m_rpt_manage from menu
m_1 m_1
m_3 m_3
m_4 m_4
m_5 m_5
end type
global m_rpt_manage m_rpt_manage

on m_rpt_manage.create
m_rpt_manage=this
this.m_1=create m_1
this.m_3=create m_3
this.m_4=create m_4
this.m_5=create m_5
this.Item[]={this.m_1, &
this.m_3, &
this.m_4, &
this.m_5}
end on

on m_rpt_manage.destroy
destroy(this.m_1)
destroy(this.m_3)
destroy(this.m_4)
destroy(this.m_5)
end on

type m_1 from menu within m_rpt_manage
m_11 m_11
m_- m_-
m_15 m_15
m_-1 m_-1
m_12 m_12
m_-21 m_-21
m_13 m_13
m_-3 m_-3
m_14 m_14
end type

on m_1.create
this.Text="报表建立(&A)"
this.m_11=create m_11
this.m_-=create m_-
this.m_15=create m_15
this.m_-1=create m_-1
this.m_12=create m_12
this.m_-21=create m_-21
this.m_13=create m_13
this.m_-3=create m_-3
this.m_14=create m_14
this.Item[]={this.m_11, &
this.m_-, &
this.m_15, &
this.m_-1, &
this.m_12, &
this.m_-21, &
this.m_13, &
this.m_-3, &
this.m_14}
end on

on m_1.destroy
destroy(this.m_11)
destroy(this.m_-)
destroy(this.m_15)
destroy(this.m_-1)
destroy(this.m_12)
destroy(this.m_-21)
destroy(this.m_13)
destroy(this.m_-3)
destroy(this.m_14)
end on

type m_11 from menu within m_1
end type

on m_11.create
this.Text="新增"
this.Microhelp="新增"
this.ToolBarItemName="ScriptNo!"
this.ToolBarItemText="新增"
end on

event clicked;parentwindow.event dynamic ue_new(0)

end event

type m_- from menu within m_1
end type

on m_-.create
this.Text="-"
end on

type m_15 from menu within m_1
end type

on m_15.create
this.Text="插入"
this.Microhelp="插入"
this.ToolBarItemName="Insert5!"
this.ToolBarItemText="插入"
this.ToolBarItemSpace=1
end on

event clicked;parentwindow.event dynamic ue_new(1)

end event

type m_-1 from menu within m_1
end type

on m_-1.create
this.Text="-"
end on

type m_12 from menu within m_1
end type

on m_12.create
this.Text="删除"
this.Microhelp="删除"
this.ToolBarItemName="Custom080!"
this.ToolBarItemText="删除"
this.ToolBarItemSpace=1
end on

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

type m_-21 from menu within m_1
end type

on m_-21.create
this.Text="-"
end on

type m_13 from menu within m_1
end type

on m_13.create
this.Text="上移位置~tF5"
this.Microhelp="上移位置"
this.ToolBarItemName="Custom033!"
this.ToolBarItemText="上移位置"
this.ToolBarItemSpace=1
this.Shortcut=116
end on

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

type m_-3 from menu within m_1
end type

on m_-3.create
this.Text="-"
end on

type m_14 from menu within m_1
end type

on m_14.create
this.Text="下移位置~tF6"
this.Microhelp="下移位置"
this.ToolBarItemName="Custom034!"
this.ToolBarItemText="下移位置"
this.ToolBarItemSpace=1
this.Shortcut=117
end on

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

type m_3 from menu within m_rpt_manage
m_31 m_31
m_-2 m_-2
m_32 m_32
end type

on m_3.create
this.Text="报表设计(&B)"
this.m_31=create m_31
this.m_-2=create m_-2
this.m_32=create m_32
this.Item[]={this.m_31, &
this.m_-2, &
this.m_32}
end on

on m_3.destroy
destroy(this.m_31)
destroy(this.m_-2)
destroy(this.m_32)
end on

type m_31 from menu within m_3
end type

on m_31.create
this.Text="自动生成"
this.Microhelp="自动生成"
this.ToolBarItemName="ExecuteSQL5!"
this.ToolBarItemText="自动生成"
this.ToolBarItemSpace=1
end on

event clicked;parentwindow.event dynamic ue_open_report('auto')

end event

type m_-2 from menu within m_3
end type

on m_-2.create
this.Text="-"
end on

type m_32 from menu within m_3
end type

on m_32.create
this.Text="手动修改"
this.Microhelp="手动修改"
this.ToolBarItemName="DosEdit5!"
this.ToolBarItemText="手动修改"
this.ToolBarItemSpace=1
end on

event clicked;parentwindow.event dynamic ue_open_report('maner')

end event

type m_4 from menu within m_rpt_manage
m_41 m_41
end type

on m_4.create
this.Text="报表输出(&C)"
this.m_41=create m_41
this.Item[]={this.m_41}
end on

on m_4.destroy
destroy(this.m_41)
end on

type m_41 from menu within m_4
end type

on m_41.create
this.Text="预览"
this.Microhelp="预览"
this.ToolBarItemName="EditDataGrid!"
this.ToolBarItemText="预览"
this.ToolBarItemSpace=1
end on

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

type m_5 from menu within m_rpt_manage
m_51 m_51
m_-xt1 m_-xt1
m_2 m_2
m_-4 m_-4
m_52 m_52
end type

on m_5.create
this.Text="系统功能(&D)"
this.m_51=create m_51
this.m_-xt1=create m_-xt1
this.m_2=create m_2
this.m_-4=create m_-4
this.m_52=create m_52
this.Item[]={this.m_51, &
this.m_-xt1, &
this.m_2, &
this.m_-4, &
this.m_52}
end on

on m_5.destroy
destroy(this.m_51)
destroy(this.m_-xt1)
destroy(this.m_2)
destroy(this.m_-4)
destroy(this.m_52)
end on

type m_51 from menu within m_5
end type

on m_51.create
this.Text="帮助~tF1"
this.Microhelp="帮助"
this.ToolBarItemName="HELP!"
this.ToolBarItemText="帮助"
this.ToolBarItemSpace=1
this.Shortcut=112
end on

event clicked;ShowHelp("report.HLP", keyword!, "report_define")
//ShowHelp("report.HLP", topic!, 888801)

end event

type m_-xt1 from menu within m_5
end type

on m_-xt1.create
this.Text="-"
end on

type m_2 from menu within m_5
end type

on m_2.create
this.Text="版本信息"
end on

event clicked;open(w_zkl_begin)
end event

type m_-4 from menu within m_5
end type

on m_-4.create
this.Text="-"
end on

type m_52 from menu within m_5
end type

on m_52.create
this.Text="返回"
this.Microhelp="返回"
this.ToolBarItemName="Exit!"
this.ToolBarItemText="返回"
this.ToolBarItemSpace=1
end on

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