Q5/ws_objects/Ew_money.pbl.src/m_msttake.srm

$PBExportHeader$m_msttake.srm
forward
global type m_msttake from menu
end type
type m_0 from menu within m_msttake
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_-0 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_msttake
m_收款 m_收款
m_增加 m_增加
m_删除 m_删除
m_- m_-
m_确认 m_确认
m_-0 m_-0
m_筛选数据 m_筛选数据
m_显示全部 m_显示全部
end type
global type m_msttake from menu
m_0 m_0
end type
end forward

global type m_msttake from menu
m_0 m_0
end type
global m_msttake m_msttake

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

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

type m_0 from menu within m_msttake
m_收款 m_收款
m_增加 m_增加
m_删除 m_删除
m_- m_-
m_确认 m_确认
m_-0 m_-0
m_筛选数据 m_筛选数据
m_显示全部 m_显示全部
end type

on m_0.create
call super::create
this.m_收款=create m_收款
this.m_增加=create m_增加
this.m_删除=create m_删除
this.m_-=create m_-
this.m_确认=create m_确认
this.m_-0=create m_-0
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_-0
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_-0)
destroy(this.m_筛选数据)
destroy(this.m_显示全部)
end on

type m_收款 from menu within m_0
end type

event clicked;parentwindow.event dynamic ue_take()
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

event clicked;parentwindow.event dynamic ue_add()
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;parentwindow.event dynamic ue_del()
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

on m_确认.create
call super::create
this.text = "查看单据"
end on

on m_确认.destroy
call super::destroy
end on

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

type m_-0 from menu within m_0
end type

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

on m_-0.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;parentwindow.event dynamic ue_rbbutton()
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;parentwindow.event dynamic ue_dwchild_filter()
end event