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

$PBExportHeader$m_rpt_tool.srm
$PBExportComments$带工具条的窗口菜单
forward
global type m_rpt_tool from menu
end type
type m_tool from menu within m_rpt_tool
end type
type m_find from menu within m_tool
end type
type m_-92 from menu within m_tool
end type
type m_delete from menu within m_tool
end type
type m_insert from menu within m_tool
end type
type m_new from menu within m_tool
end type
type m_save from menu within m_tool
end type
type m_tool from menu within m_rpt_tool
m_find m_find
m_-92 m_-92
m_delete m_delete
m_insert m_insert
m_new m_new
m_save m_save
end type
type m_help from menu within m_rpt_tool
end type
type m_fh from menu within m_help
end type
type m_help from menu within m_rpt_tool
m_fh m_fh
end type
end forward

global type m_rpt_tool from menu
m_tool m_tool
m_help m_help
end type
global m_rpt_tool m_rpt_tool

on m_rpt_tool.create
m_rpt_tool=this
this.m_tool=create m_tool
this.m_help=create m_help
this.Item[]={this.m_tool, &
this.m_help}
end on

on m_rpt_tool.destroy
destroy(this.m_tool)
destroy(this.m_help)
end on

type m_tool from menu within m_rpt_tool
m_find m_find
m_-92 m_-92
m_delete m_delete
m_insert m_insert
m_new m_new
m_save m_save
end type

on m_tool.create
this.Text="工具"
this.Microhelp="工具"
this.m_find=create m_find
this.m_-92=create m_-92
this.m_delete=create m_delete
this.m_insert=create m_insert
this.m_new=create m_new
this.m_save=create m_save
this.Item[]={this.m_find, &
this.m_-92, &
this.m_delete, &
this.m_insert, &
this.m_new, &
this.m_save}
end on

on m_tool.destroy
destroy(this.m_find)
destroy(this.m_-92)
destroy(this.m_delete)
destroy(this.m_insert)
destroy(this.m_new)
destroy(this.m_save)
end on

type m_find from menu within m_tool
end type

on m_find.create
this.Text="查询~tF3"
this.Microhelp="查询(快键F3)"
this.ToolBarItemName="Find!"
this.ToolBarItemText="查询"
this.ToolBarItemSpace=1
this.Shortcut=114
end on

event clicked;parentwindow.event dynamic ue_cond()

end event

type m_-92 from menu within m_tool
end type

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

type m_delete from menu within m_tool
end type

on m_delete.create
this.Text="删除~tF7"
this.Microhelp="删除(快键F7)"
this.ToolBarItemName="Custom080!"
this.ToolBarItemText="删除"
this.ToolBarItemSpace=1
this.Shortcut=118
end on

event clicked;parentwindow.event dynamic ue_delete()

end event

type m_insert from menu within m_tool
end type

on m_insert.create
this.Text="插入~tF5"
this.Microhelp="中间加入(快键F5)"
this.ToolBarItemName="Insert5!"
this.ToolBarItemText="插入"
this.ToolBarItemSpace=1
this.Shortcut=116
end on

event clicked;parentwindow.event dynamic ue_new(1)

end event

type m_new from menu within m_tool
end type

on m_new.create
this.Text="新增~tF6"
this.Microhelp="最后增加(快键F6)"
this.ToolBarItemName="SelectScript!"
this.ToolBarItemText="新增"
this.ToolBarItemSpace=1
this.Shortcut=117
end on

event clicked;parentwindow.event dynamic ue_new(0)

end event

type m_save from menu within m_tool
end type

on m_save.create
this.Text="存盘~tF12"
this.Microhelp="存盘(快键F12)"
this.ToolBarItemName="Save!"
this.ToolBarItemText="存盘"
this.ToolBarItemSpace=1
this.Shortcut=123
end on

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

end event

type m_help from menu within m_rpt_tool
m_fh m_fh
end type

on m_help.create
this.Text="系统&I"
this.Microhelp="帮助"
this.m_fh=create m_fh
this.Item[]={this.m_fh}
end on

on m_help.destroy
destroy(this.m_fh)
end on

type m_fh from menu within m_help
end type

on m_fh.create
this.Text="返回~tAlt+F4"
this.Microhelp="返回(快键Alt+F4)"
this.ToolBarItemName="exit!"
this.ToolBarItemText="返回"
this.ToolBarItemSpace=1
this.Shortcut=627
end on

event clicked;close(parentwindow)

end event