PowerBuilder.rar hosptial_menus.srm www.pudn.com > PowerBuilder.rar &gt hosptial_menus.srm, change:2004-11-23,size:18778b $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 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