Q5/ws_objects/Ew_mainface.pbl.src/m_x_genapp_frame_sp1.srm

$PBExportHeader$m_x_genapp_frame_sp1.srm
forward
global type m_x_genapp_frame_sp1 from menu
end type
type m_exit from menu within m_x_genapp_frame_sp1
end type
type m_重新登录 from menu within m_exit
end type
type m_修改密码 from menu within m_exit
end type
type m_- from menu within m_exit
end type
type m_初始化设置 from menu within m_exit
end type
type m_0 from menu within m_exit
end type
type m_工作提醒 from menu within m_exit
end type
type m_帐套管理 from menu within m_exit
end type
type m_1 from menu within m_exit
end type
type m_退出q from menu within m_exit
end type
type m_exit from menu within m_x_genapp_frame_sp1
m_重新登录 m_重新登录
m_修改密码 m_修改密码
m_- m_-
m_初始化设置 m_初始化设置
m_0 m_0
m_工作提醒 m_工作提醒
m_帐套管理 m_帐套管理
m_1 m_1
m_退出q m_退出q
end type
global type m_x_genapp_frame_sp1 from menu
m_exit m_exit
end type
end forward

global type m_x_genapp_frame_sp1 from menu
m_exit m_exit
end type
global m_x_genapp_frame_sp1 m_x_genapp_frame_sp1

type variables

end variables

on m_x_genapp_frame_sp1.create
m_x_genapp_frame_sp1=this
call super::create
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
this.m_exit=create m_exit
this.Item[UpperBound(this.Item)+1]=this.m_exit
end on

on m_x_genapp_frame_sp1.destroy
call super::destroy
destroy(this.m_exit)
end on

type m_exit from menu within m_x_genapp_frame_sp1
m_重新登录 m_重新登录
m_修改密码 m_修改密码
m_- m_-
m_初始化设置 m_初始化设置
m_0 m_0
m_工作提醒 m_工作提醒
m_帐套管理 m_帐套管理
m_1 m_1
m_退出q m_退出q
end type

on m_exit.create
call super::create
this.text = "文件"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
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.m_1=create m_1
this.m_退出q=create m_退出q
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_帐套管理
this.Item[UpperBound(this.Item)+1]=this.m_1
this.Item[UpperBound(this.Item)+1]=this.m_退出q
end on

on m_exit.destroy
call super::destroy
destroy(this.m_重新登录)
destroy(this.m_修改密码)
destroy(this.m_-)
destroy(this.m_初始化设置)
destroy(this.m_0)
destroy(this.m_工作提醒)
destroy(this.m_帐套管理)
destroy(this.m_1)
destroy(this.m_退出q)
end on

type m_重新登录 from menu within m_exit
end type

on m_重新登录.create
call super::create
this.text = "重新登录"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_重新登录.destroy
call super::destroy
end on

event clicked;f_open(1)


end event

type m_修改密码 from menu within m_exit
end type

on m_修改密码.create
call super::create
this.text = "修改密码"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_修改密码.destroy
call super::destroy
end on

event clicked;open(w_sys_xgmm)
end event

type m_- from menu within m_exit
end type

on m_-.create
call super::create
this.text = "-"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

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

type m_初始化设置 from menu within m_exit
end type

event clicked;open(w_sys_init_guide)
end event

on m_初始化设置.create
call super::create
this.text = "初始化向导"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_初始化设置.destroy
call super::destroy
end on

type m_0 from menu within m_exit
end type

on m_0.create
call super::create
this.text = "-"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_0.destroy
call super::destroy
end on

type m_工作提醒 from menu within m_exit
end type

event clicked;open(w_oa_workremind)
end event

on m_工作提醒.create
call super::create
this.text = "工作提醒"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_工作提醒.destroy
call super::destroy
end on

type m_帐套管理 from menu within m_exit
end type

event clicked;f_sys_main(802)
end event

on m_帐套管理.create
call super::create
this.text = "帐套管理"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_帐套管理.destroy
call super::destroy
end on

type m_1 from menu within m_exit
end type

on m_1.create
call super::create
this.text = "-"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_1.destroy
call super::destroy
end on

type m_退出q from menu within m_exit
end type

event clicked;
IF IsValid(w_main_scware) THEN
	Close(w_main_scware)
//ELSEIF IsValid(w_main_scware_biz) THEN
//	Close(w_main_scware_biz)
	
END IF


end event

on m_退出q.create
call super::create
this.text = "退出[&Q]"
this.menutextcolor = 134217735
this.menubackcolor = 134217732
this.menuhighlightcolor = 134217741
this.textsize = 8
this.weight = 400
this.facename = "Tahoma"
this.titlebackcolor = 134217730
this.bitmapbackcolor = 12632256
this.menubitmaps = true
this.titlegradient = true
this.toolbartextcolor = 134217746
this.toolbarbackcolor = 67108864
this.toolbarhighlightcolor = 134217741
this.toolbargradient = true
this.bitmapgradient = true
end on

on m_退出q.destroy
call super::destroy
end on