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

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

global type m_mstpay from menu
m_0 m_0
end type
global m_mstpay m_mstpay

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

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

event clicked;w_mustpay.triggerevent('ue_add')
end event

type m_0 from menu within m_mstpay
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_pay()
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

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

on m_显示全部.create
call super::create
this.text = "显示全部"
end on

on m_显示全部.destroy
call super::destroy
end on