住院处信息管理系统设计PPT.ppt

  1. 1、本文档共10页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
住院处信息管理系统设计PPT

**医院住院处 管 理 系 统 指导老师: 学生姓名: 管理信息系统概述 管理信息系统是一个由人和计算机组成,利用计算机技术、信息技术、数据库技术、现代管理理论进行信息收集、传输、加工、保存、维护和使用的综合性系统。它能实测国民经济各部门或企业的各种运行情况,能利用过去的数据预测未来,能从全局出发辅助决策,能利用信息控制国民经济部门或企业的活动并帮助其实现规划目标。 管理信息系统是一门新的科学,它引用其它学科如管理科学与工程、经济理论、统计学、运筹学以及计算机科学等许多学科的概念和方法,融合成一门新的综合性、边缘性的学科。它具有数据集中统一,采用数据库(严格说,只有数据统一,才到构成信息资源)、数学模型的应用、有预测和控制能力、面向决策等特点。 管理信息系统的开发方法 管理信息系统的开发策略有“自上而下”和“自下而上”两种;开发方法有结构化生命周期法、原型法、面向对象的方法、计算机辅助工程等。 本系统利用了软件工程化的思想和方法,总体上采用自上而下的策略,运用的是结构化生命周期开发方法进行系统开发,但在其引用了原型法的思想. 该医院为二级甲等医院,现有门诊部和住院部,住院部设有住院病区8个,设有固定病床500张, 病床使用率为80%;医院同时还设有手术室、住院部中心药房、药库以及检验室、CT室、财务 科和出入院收费处等功能辅助科室。 为了适应中国加入WTO后医疗服务市场激烈的竞争环境和上级主管部门对医院建设的需要,必 须采用先进的信息技术加强对病人住院期间的费用管理,增加收费的准确性和透明度,加快处理 病人入院和出院手续的速度,尽量地满足病人的需求,提高医院在医疗市场中的竞争力。同时需 要完善药品管理减少药品损耗减少药品积压。 在医院的各个部门中,出入院收费处、住院病区、中心药房构成对住院病人的服务链,住院病 人经出入院收费处办理入院手续后入住某住院病区接受医院的服务同时产生医疗费用,最后经出 入院收费处核价收费后办理出院手续出院。住院病区是各项医疗服务的主要执行者,他与出入院 收费处构成住院信息系统的两个主要部分。而在为住院病人服务的过程中,住院部中心药房根据 住院部医师开出的医嘱配药,而药库则作为医院药品的采购、保管和供应部门向中心药房供应药 品间接地为住院病人提供服务。因此,没有中心药房和药库子系统的加入整个住院信息管理系统 是片面的,不完善的。而其他的功能辅助科室如手术室、CT室等虽然也为病人提供服务,但为减 低项目的复杂程度所以暂不将这些部门纳入本项目的范围。 设计背景 系统窗口设计 2、入院的运行界面如下: 系统窗口设计 第三步,选择窗体或控件进行属性设置,属性和控件的设置方法类似。 第四步双击相应的控件,在控件的相应过程中编写代码: 的代码为: Private Sub Command1_Click() If Command1.Caption = 新增 Then Data1.Recordset.MoveLast n = Trim(Str(Data1.Recordset.RecordCount + 1)) Command1.Caption = 确定 Data1.Recordset.AddNew Text1(0).Text = n Text1(3).Text = 30 Text1(7).Text = 1 Text1(11) = Date Text1(1).SetFocus Command2.Enabled = False Command3.Enabled = False Else MsgBox 入院成功!, , 信息 Command1.Caption = 新增 Data1.Recordset.Update Data1.Recordset.MoveLast Command2.Enabled = True Command3.Enabled = True End If End Sub Private Sub Command2_Click() Data1.Recordset.Delete Data1.Recordset.MovePrevious End Sub Private Sub Command3_Click() Data1.Recordset.Edit Data1.Recordset.Update End Sub Private Sub Form_Load() Dim dbname As String dbname = App.Path If Right$(dbname, 1) \

文档评论(0)

erfg4eg + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档