hosptial_menus.srm

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

$PBExportHeader$hosptial_menus.srm
forward
global type hosptial_menus from menu
end type
type m_药品管理 from menu within hosptial_menus
end type
type m_药房领药 from menu within m_药品管理
end type
type m_购进入库 from menu within m_药品管理
end type
type m_药房退药 from menu within m_药品管理
end type
type m_- from menu within m_药品管理
end type
type m_退货出库 from menu within m_药品管理
end type
type m_药品管理 from menu within hosptial_menus
m_药房领药 m_药房领药
m_购进入库 m_购进入库
m_药房退药 m_药房退药
m_- m_-
m_退货出库 m_退货出库
end type
type m_库存管理 from menu within hosptial_menus
end type
type m_采购计划 from menu within m_库存管理
end type
type m_价格管理 from menu within m_库存管理
end type
type m_库存结算 from menu within m_库存管理
end type
type m_特药管理 from menu within m_库存管理
end type
type m_库存盘点 from menu within m_库存管理
end type
type m_报增报损 from menu within m_库存管理
end type
type m_-0 from menu within m_库存管理
end type
type m_库存初始化 from menu within m_库存管理
end type
type m_库存上下限设置 from menu within m_库存管理
end type
type m_库存管理 from menu within hosptial_menus
m_采购计划 m_采购计划
m_价格管理 m_价格管理
m_库存结算 m_库存结算
m_特药管理 m_特药管理
m_库存盘点 m_库存盘点
m_报增报损 m_报增报损
m_-0 m_-0
m_库存初始化 m_库存初始化
m_库存上下限设置 m_库存上下限设置
end type
type m_日常查询 from menu within hosptial_menus
end type
type m_出入库明细账 from menu within m_日常查询
end type
type m_各批次药品价格一览表 from menu within m_日常查询
end type
type m_-1 from menu within m_日常查询
end type
type m_库存查询 from menu within m_日常查询
end type
type m_药典查询 from menu within m_日常查询
end type
type m_日常查询 from menu within hosptial_menus
m_出入库明细账 m_出入库明细账
m_各批次药品价格一览表 m_各批次药品价格一览表
m_-1 m_-1
m_库存查询 m_库存查询
m_药典查询 m_药典查询
end type
type m_统计报表c from menu within hosptial_menus
end type
type m_购进月报 from menu within m_统计报表c
end type
type m_发药月报 from menu within m_统计报表c
end type
type m_购进年报 from menu within m_统计报表c
end type
type m_发药年报 from menu within m_统计报表c
end type
type m_-2 from menu within m_统计报表c
end type
type m_调价报益 from menu within m_统计报表c
end type
type m_统计报表c from menu within hosptial_menus
m_购进月报 m_购进月报
m_发药月报 m_发药月报
m_购进年报 m_购进年报
m_发药年报 m_发药年报
m_-2 m_-2
m_调价报益 m_调价报益
end type
type m_数据设置 from menu within hosptial_menus
end type
type m_供应商管理 from menu within m_数据设置
end type
type m_用户管理 from menu within m_数据设置
end type
type m_部门管理 from menu within m_数据设置
end type
type m_数据设置 from menu within hosptial_menus
m_供应商管理 m_供应商管理
m_用户管理 m_用户管理
m_部门管理 m_部门管理
end type
type m_个性设置 from menu within hosptial_menus
end type
type m_密码修改 from menu within m_个性设置
end type
type m_个性设置 from menu within hosptial_menus
m_密码修改 m_密码修改
end type
type m_帮助h from menu within hosptial_menus
end type
type m_关于 from menu within m_帮助h
end type
type m_帮助h from menu within hosptial_menus
m_关于 m_关于
end type
type m_退出 from menu within hosptial_menus
end type
global type hosptial_menus from menu
m_药品管理 m_药品管理
m_库存管理 m_库存管理
m_日常查询 m_日常查询
m_统计报表c m_统计报表c
m_数据设置 m_数据设置
m_个性设置 m_个性设置
m_帮助h m_帮助h
m_退出 m_退出
end type
end forward

global type hosptial_menus from menu
m_药品管理 m_药品管理
m_库存管理 m_库存管理
m_日常查询 m_日常查询
m_统计报表c m_统计报表c
m_数据设置 m_数据设置
m_个性设置 m_个性设置
m_帮助h m_帮助h
m_退出 m_退出
end type
global hosptial_menus hosptial_menus

on hosptial_menus.create
hosptial_menus=this
call super::create
this.m_药品管理=create m_药品管理
this.m_库存管理=create m_库存管理
this.m_日常查询=create m_日常查询
this.m_统计报表c=create m_统计报表c
this.m_数据设置=create m_数据设置
this.m_个性设置=create m_个性设置
this.m_帮助h=create m_帮助h
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_统计报表c
this.Item[UpperBound(this.Item)+1]=this.m_数据设置
this.Item[UpperBound(this.Item)+1]=this.m_个性设置
this.Item[UpperBound(this.Item)+1]=this.m_帮助h
this.Item[UpperBound(this.Item)+1]=this.m_退出
end on

on hosptial_menus.destroy
call super::destroy
destroy(this.m_药品管理)
destroy(this.m_库存管理)
destroy(this.m_日常查询)
destroy(this.m_统计报表c)
destroy(this.m_数据设置)
destroy(this.m_个性设置)
destroy(this.m_帮助h)
destroy(this.m_退出)
end on

type m_药品管理 from menu within hosptial_menus
m_药房领药 m_药房领药
m_购进入库 m_购进入库
m_药房退药 m_药房退药
m_- m_-
m_退货出库 m_退货出库
end type

on m_药品管理.create
call super::create
this.text = "药品管理(&M)"
this.toolbaritemdownname = "新建"
this.toolbaritemtext = "新建"
this.m_药房领药=create m_药房领药
this.m_购进入库=create m_购进入库
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_药房退药
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_药房退药)
destroy(this.m_-)
destroy(this.m_退货出库)
end on

type m_药房领药 from menu within m_药品管理
end type

on m_药房领药.create
call super::create
this.text = "药房领药(&A)"
this.shortcut = 256
end on

on m_药房领药.destroy
call super::destroy
end on

event clicked;//open(w_chufang)
end event

type m_购进入库 from menu within m_药品管理
end type

on m_购进入库.create
call super::create
this.text = "购进入库(&B)"
this.shortcut = 256
end on

on m_购进入库.destroy
call super::destroy
end on

event clicked;//open(dw_stock)
end event

type m_药房退药 from menu within m_药品管理
end type

on m_药房退药.create
call super::create
this.visible = false
this.text = "划价收费(&C)"
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.visible = false
this.text = "-"
end on

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

type m_退货出库 from menu within m_药品管理
end type

on m_退货出库.create
call super::create
this.visible = false
this.text = "退货出库(&E)"
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_库存结算
m_特药管理 m_特药管理
m_库存盘点 m_库存盘点
m_报增报损 m_报增报损
m_-0 m_-0
m_库存初始化 m_库存初始化
m_库存上下限设置 m_库存上下限设置
end type

on m_库存管理.create
call super::create
this.text = "库存管理(&S)"
this.toolbaritemdownname = "打开"
this.toolbaritemtext = "打开"
this.m_采购计划=create m_采购计划
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_报增报损
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_库存管理.destroy
call super::destroy
destroy(this.m_采购计划)
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_库存管理
end type

on m_采购计划.create
call super::create
this.visible = false
this.text = "采购计划(&D)"
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 = "价格管理(&F)"
this.shortcut = 256
end on

on m_价格管理.destroy
call super::destroy
end on

event clicked;//open(value)
end event

type m_库存结算 from menu within m_库存管理
end type

on m_库存结算.create
call super::create
this.visible = false
this.text = "库存结算(&G)"
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.visible = false
this.text = "特药管理(&H)"
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 = "库存盘点(&I)"
this.shortcut = 256
end on

on m_库存盘点.destroy
call super::destroy
end on

event clicked;//open(room)
end event

type m_报增报损 from menu within m_库存管理
end type

on m_报增报损.create
call super::create
this.visible = false
this.text = "报增报损(&J)"
this.shortcut = 256
end on

on m_报增报损.destroy
call super::destroy
end on

event clicked;//open(w_building)
end event

type m_-0 from menu within m_库存管理
end type

on m_-0.create
call super::create
this.visible = false