hosptial_menus.srm

用pb（power builder）制作的医院管理系统 附有数据库脚本

this.text = "-"
end on

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

type m_库存初始化 from menu within m_库存管理
end type

on m_库存初始化.create
call super::create
this.text = "库存初始化(&K)"
this.shortcut = 256
end on

on m_库存初始化.destroy
call super::destroy
end on

event clicked;//open(winit)
end event

type m_库存上下限设置 from menu within m_库存管理
end type

on m_库存上下限设置.create
call super::create
this.visible = false
this.text = "库存上下限设置(&L)"
this.shortcut = 256
end on

on m_库存上下限设置.destroy
call super::destroy
end on

event clicked;//open(w_building)
end event

type m_日常查询 from menu within hosptial_menus
m_出入库明细账 m_出入库明细账
m_各批次药品价格一览表 m_各批次药品价格一览表
m_-1 m_-1
m_库存查询 m_库存查询
m_药典查询 m_药典查询
end type

on m_日常查询.create
call super::create
this.text = "日常查询(&R)"
this.toolbaritemdownname = "复制"
this.toolbaritemtext = "复制"
this.m_出入库明细账=create m_出入库明细账
this.m_各批次药品价格一览表=create m_各批次药品价格一览表
this.m_-1=create m_-1
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_-1
this.Item[UpperBound(this.Item)+1]=this.m_库存查询
this.Item[UpperBound(this.Item)+1]=this.m_药典查询
end on

on m_日常查询.destroy
call super::destroy
destroy(this.m_出入库明细账)
destroy(this.m_各批次药品价格一览表)
destroy(this.m_-1)
destroy(this.m_库存查询)
destroy(this.m_药典查询)
end on

type m_出入库明细账 from menu within m_日常查询
end type

on m_出入库明细账.create
call super::create
this.text = "出入库明细账(&M)"
this.shortcut = 256
end on

on m_出入库明细账.destroy
call super::destroy
end on

event clicked;//open(w_stock)
end event

type m_各批次药品价格一览表 from menu within m_日常查询
end type

on m_各批次药品价格一览表.create
call super::create
this.visible = false
this.text = "各批次药品价格一览表(&N)"
this.shortcut = 256
end on

on m_各批次药品价格一览表.destroy
call super::destroy
end on

event clicked;//open(w_building)
end event

type m_-1 from menu within m_日常查询
end type

on m_-1.create
call super::create
this.visible = false
this.text = "-"
end on

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

type m_库存查询 from menu within m_日常查询
end type

on m_库存查询.create
call super::create
this.text = "库存查询(&O)"
this.shortcut = 256
end on

on m_库存查询.destroy
call super::destroy
end on

event clicked;//open(w_query)
end event

type m_药典查询 from menu within m_日常查询
end type

on m_药典查询.create
call super::create
this.text = "药典查询(&P)"
this.shortcut = 256
end on

on m_药典查询.destroy
call super::destroy
end on

event clicked;//open(w_treeviewchange)
end event

type m_统计报表c from menu within hosptial_menus
m_购进月报 m_购进月报
m_发药月报 m_发药月报
m_购进年报 m_购进年报
m_发药年报 m_发药年报
m_-2 m_-2
m_调价报益 m_调价报益
end type

on m_统计报表c.create
call super::create
this.text = "统计报表(&C)"
this.toolbaritemdownname = "粘贴"
this.toolbaritemtext = "粘贴"
this.m_购进月报=create m_购进月报
this.m_发药月报=create m_发药月报
this.m_购进年报=create m_购进年报
this.m_发药年报=create m_发药年报
this.m_-2=create m_-2
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_-2
this.Item[UpperBound(this.Item)+1]=this.m_调价报益
end on

on m_统计报表c.destroy
call super::destroy
destroy(this.m_购进月报)
destroy(this.m_发药月报)
destroy(this.m_购进年报)
destroy(this.m_发药年报)
destroy(this.m_-2)
destroy(this.m_调价报益)
end on

type m_购进月报 from menu within m_统计报表c
end type

on m_购进月报.create
call super::create
this.text = "购进月报(&Q)"
this.shortcut = 256
end on

on m_购进月报.destroy
call super::destroy
end on

event clicked;//open(print)
end event

type m_发药月报 from menu within m_统计报表c
end type

on m_发药月报.create
call super::create
this.text = "发药月报(&R)"
this.shortcut = 256
end on

on m_发药月报.destroy
call super::destroy
end on

event clicked;//open(print1)
end event

type m_购进年报 from menu within m_统计报表c
end type

on m_购进年报.create
call super::create
this.visible = false
this.text = "购进年报(&S)"
this.shortcut = 256
end on

on m_购进年报.destroy
call super::destroy
end on

event clicked;//open(w_building)
end event

type m_发药年报 from menu within m_统计报表c
end type

on m_发药年报.create
call super::create
this.visible = false
this.text = "发药年报(&T)"
this.shortcut = 256
end on

on m_发药年报.destroy
call super::destroy
end on

event clicked;//open(w_building)
end event

type m_-2 from menu within m_统计报表c
end type

on m_-2.create
call super::create
this.visible = false
this.text = "-"
end on

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

type m_调价报益 from menu within m_统计报表c
end type

on m_调价报益.create
call super::create
this.visible = false
this.text = "调价报益(&U)"
this.shortcut = 256
end on

on m_调价报益.destroy
call super::destroy
end on

event clicked;//open(w_building)
end event

type m_数据设置 from menu within hosptial_menus
m_供应商管理 m_供应商管理
m_用户管理 m_用户管理
m_部门管理 m_部门管理
end type

on m_数据设置.create
call super::create
this.text = "数据设置(&D)"
this.toolbaritemdownname = "保存"
this.toolbaritemtext = "保存"
this.m_供应商管理=create m_供应商管理
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_部门管理
end on

on m_数据设置.destroy
call super::destroy
destroy(this.m_供应商管理)
destroy(this.m_用户管理)
destroy(this.m_部门管理)
end on

type m_供应商管理 from menu within m_数据设置
end type

on m_供应商管理.create
call super::create
this.text = "供应商管理(&V)"
this.shortcut = 256
end on

on m_供应商管理.destroy
call super::destroy
end on

event clicked;//open(w_building)
end event

type m_用户管理 from menu within m_数据设置
end type

on m_用户管理.create
call super::create
this.text = "用户管理(&W)"
this.shortcut = 256
end on

on m_用户管理.destroy
call super::destroy
end on

event clicked;//open(w_user)
end event

type m_部门管理 from menu within m_数据设置
end type

on m_部门管理.create
call super::create
this.visible = false
this.text = "部门管理(&X)"
this.shortcut = 256
end on

on m_部门管理.destroy
call super::destroy
end on

event clicked;//open(w_building)
end event

type m_个性设置 from menu within hosptial_menus
m_密码修改 m_密码修改
end type

on m_个性设置.create
call super::create
this.text = "个性设置(&I)"
this.toolbaritemdownname = "运行"
this.toolbaritemtext = "运行"
this.m_密码修改=create m_密码修改
this.Item[UpperBound(this.Item)+1]=this.m_密码修改
end on

on m_个性设置.destroy
call super::destroy
destroy(this.m_密码修改)
end on

type m_密码修改 from menu within m_个性设置
end type

on m_密码修改.create
call super::create
this.text = "密码修改(&F1)"
this.shortcut = 256
end on

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

event clicked;//open(w_pass)
end event

type m_帮助h from menu within hosptial_menus
m_关于 m_关于
end type

on m_帮助h.create
call super::create
this.text = "帮助(&H)"
this.m_关于=create m_关于
this.Item[UpperBound(this.Item)+1]=this.m_关于
end on

on m_帮助h.destroy
call super::destroy
destroy(this.m_关于)
end on

type m_关于 from menu within m_帮助h
end type

on m_关于.create
call super::create
this.text = "关于"
end on

on m_关于.destroy
call super::destroy
end on

event clicked;//open(w_building)
end event

type m_退出 from menu within hosptial_menus
end type

on m_退出.create
call super::create
this.text = "退出(&E)"
this.shortcut = 512
this.toolbaritemdownname = "退出"
this.toolbaritemtext = "退出"
end on

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

event clicked;int i
i=messagebox("退出","退出系统",question!,yesno!)
if i=1 then
	//close(w_main)
end if
end event