Ukfvua医院信息系统毕业设计.docx

1、Ukfvua医院信息系统毕业设计Time will pierce the surface or youth, will be on the beauty of the ditch dug a shallow groove ; Jane will eat rare!A born beauty, anything to escape his sickle sweep.- Shakespeare高度集成医院信息系统设计1、绪论1.1选题的目的和意义 开发医院信息管理系统的目标就是立足医院应用实际，着眼于未来发展，以强化医院管理，提高医疗质量，方便患者就医和查询，提高医院的服务效率和服务质量，设计一套

2、符合医院功能规范要求，安全稳定，操作简便的医院信息管理信息系统，为医院信息提供了一套全方位的解决方案。医院信息管理系统是医院自动化管理系统得一个重要组成部分，它的开发大大的提高了医院信息管理的规范化能力。1.2国内外医院信息管理系统的发展与现状 国外医院信息化起步于60年代，发展于80年代，成熟于90年代，目前正在向纵深领域扩展。美国HIS软件从病房护理系统入手，逐渐扩展到财务收费系统、辅助检查系统、行政事务处理系统，90年代电子病历系统已经成熟。我国医院信息化起步于80年代，发展于90年代，2000年以后属于诸国纷争的信息时代。国内HIS软件从病案统计入手，逐渐转入“以财务为中心”的收费软件

3、，近年来又转入“以临床为中心的”电子病历系统。国内HIS软件与国外相比，至少晚十年的时间，但由于医院的特殊性，国外公司进入国内至今成功的案例很少，这也为我国的HIS公司提供了发展的平台。2000年以后，国内HIS公司数以百计，较出名的却不出10家，以大连汇源电子系统工程有限公司为代表，公司的客户数量约为3000家，占全国县级以上医院总数量的30%。但总的来看，国内的医院信息管理系统缺乏规范，随意性强，大多存在操作复杂缺陷。目前大多的系统还需有专业知识的人进行操作和维护。由于现在人们对医疗水平的要求逐渐增高，医院也越来越注意到医疗信息化的重要性，这就为医院信息管理系统的推广及发展创造了良好的条件

4、，在中国发展医院管理信息化，发展医院息管理信息化的条件也日趋成熟。2、 系统需求分析2.1业务及用户需求分析 管理信息系统是一门新兴的、集成管理科学、信息科学、系统科学及计算机科学为一体的综合性学科，研究的是信息管理活动的全过程，以便有效的管理信息，提供各类管理决策信息，辅助企业进行现代化管理。管理信息系统它具备数据处理、计划、控制、预测和辅助决策功能，具体作用如下5点内容：（1）用统一标准处理和提供信息，排除使用前后矛盾的不完整的数据。（2）完整、及时提供在管理及决策中需要的数据。（3）利用指定的数据关系分析数据，客观预测未来。（4）向各级管理机构提供不同详细程度的报告，缩短分析和解释的时间

5、。（5）用最低的费用最短的时间提供尽可能精确、可靠的信息，以便使决策者选择最佳的实施方案，以提高企业的经济效益。医院的医疗水平和服务质量一直是社会关注的焦点，仅靠增加基础设施投入和脱离信息化的管理方法的改进，是不能从根本上提高医院的工作效率、服务质量和管理水平的。医院信息管理系统的目的就是减轻业务劳动强度，减少了差错，科学管理药品，节省人力，提高医院的财、物管理水平，增加经济效益，改善患者的就医环境，方便患者就医和查询，提高医院的服务效率和服务质量，提高医院的医疗质量和管理水平。所以，一个现代化的适应社会发展需要的医院，除了具备一流的医疗队伍、一流的服务设施之外，还应具备一流的管理信息系统。目

6、前很多医院信息管理仍然是人工手动计算,整理,查询，管理病房等各项工作,执行效率非常低,不方便,给医务人员带来了不少麻烦;现在已是21世纪,为了跟上时代的发展,实现信息管理自动化刻不容缓。医院信息管理系统不仅方便医院的管理，而且方便病人信息的综合管理，信息查询，床位查询，医嘱管理等等。21世纪，管理才能出效率，将先进的电脑技术和现代医院的管理完美的结合起来，完成以前需要大量人工才能完成的任务。实现了医疗、服务一体的全新概念的服务和管理方式是我们的当务之急；2.2系统功能需求分析本系统根据医院的需求以及病人的实际情况，通过作者的详细分析，此系统主要是针对实体数据信息的存储，查询，删除等处理，具体描

7、述如下：医院管理信息系统主要用于管理病人、医师与病房之间发生的关系,同时需要对病房信息以及病人信息进行管理,如查看剩余病房、病人退房时间、病房病人费用信息；病人病历查询、病人病历更新、存储病人信息等。本系统的开发任务是实现某医院对病房的管理和病人的管理2.3数据流图 数据流程图的图形符号如下：数据流图是系统的逻辑模型，根据前面对系统功能模块的分析，为了便于用户理解，可以得到以下各数据流图。它反映了作者的设计思路和设计过程。数据流程图的图形符号如下：外部实体 数据加工 数据存储 数据流 图2.1数据流程图符号2.3.1系统顶层数据流图图 2.2 系统顶层流程图在顶层数据流程图中，可以较为清楚地看

8、到系统的主要数据加工模块以及数据存储和数据流。再对数据流程图的顶层图进行一步分解得到第一层数据流程图，由于顶层图中共有3个数据加工，所以有3个模块数据流图。出入院管理模块数据流图6.3，信息管理模块数据流图见图6.4，药房模块数据流图6.5。每个模块数据流图中有对应的数据流和数据存储的编号说明。 其中共有15个数据流，具体的编号说明如下：F1病人入院信息 F2预交金信息 F3结算信息 F4费用明细 F5病人入区信息 F6医嘱信息F7项目执行单 F8发药申请单 F9发药信息F10退药申请单 F11退药信息 F12药房入库申请单 F13药库出库信息 F14药房退货申请 F15药库药房退库信息其中1

9、8个数据存储，具体的编号如下：D1病人入院信息 D2预交金信息 D3结算信息 D4费用明细 D5病人入区信息 D6医嘱信息D7项目执行单 D8发药申请单 D9发药信息D10退药申请单 D11退药信息 D12药房入库申请单 D13药库出库信息 D14药房退货申请 D15药库药房退库信息2.3.2“出入院管理”模块数据流图图2.3出入院管理 模块数据流图2.3.3“药房管理”模块数据流图 图2.4 病房管理 模块数据流图2.4系统可行性分析可行性分析是系统分析阶段的重要活动，是对系统进行全面、概要的分析。它的任务是确定项目开发是否必要和可行。它的主要目标是：进一步明确系统的目标、规模和功能，对系统

10、开发背景、必要性和意义进行调查分析，并根据需要和可能提出拟开发系统的初步方案和计划，明确问题，对所提供系统大致规模和目标的几个有关约束条件进行论证，并且提出系统的逻辑模型和各种可能的方案，从而为系统开发项目的决策提供科学依据。本节从技术的可行性，经济的可行性以及操作的可行性三个方面来论证本信息管理系统的可行性。2.5.1技术可行性技术可行性即是对现有技术进行评价，以明确能否利用现有技术进行系统开发及系统实施。1 硬件：计算机的存储量大，运算速度快，外部设备的功能好，效率高，可靠性高，通信设备的能力、质量都满足要求。2 操作系统：1) windows xp/2000接口能力强，数据库管理系统的功

11、能足够。2.5.2经济可行性对组织的经济状况和投资能力进行分析，对系统建设、运行和维护费用进行评估，对系统建成后可能取得的社会及经济效益进行估计。目前国内应用HIS的医院管理在信息化上的软硬件投资只占其年收入的1%-3%,而应用HIS后，阻塞了管理漏洞，杜绝了药品的丢失，节省了人力，提高了医院的财、物管理水平，改善了患者的就医环境，方便了患者就医和查询，提高了医院的服务效率和服务质量。因此带来的经济回报将远远超过信息化过程中的投入。而且此系统成本低廉，其开发经费对于本单位在经济上是完全可以接受的2.5.3操作可行性本系统大概需要两个月的时间完成。前两个星期主要是以看书以及收集有关系统方面的资料

12、为主；接下来就是对系统的分析、数据库设计、界面设计、编写代码，实现数据库与界面的连接。而这些东西对于本系统来说是可行的。3、 功能结构设计3.1系统功能结构图系统目标的实现是通过系统的各功能模块来达到的。由于每个系统功能又可以划分为若干个具体的功能模块，因此，从目标开始层层分解，知道每个子功能模块只执行一个具体的任务。子功能模块是独立的，有明显的输入与输出信息。通常我们将按功能关系画成的图成为功能结构图，功能结构图如下：3.2系统功能具体分析根据与医院管理信息系统发生交互的对象入手，可以分析出系统的功能：1.护士站：信息床位使用情况一览表；医嘱管理：录入、审核；长期及临时医嘱执行确认；打印、查

13、询信息对药单（领药单）；医嘱记录查询；住院费用一日清单查询打印;查询信息欠费病人清单，打印催费通知单；打印、查询长期、临时医嘱治疗单（口服、注射、输液、辅治疗等）。2.门诊管理：包括门诊挂号、门诊收费、门诊退费、报表查询。主要是建立患者资料；根据处方收费，发票打印自定义；经药房退药后，进行门诊退费；门诊收费员日报表、门诊收费项目汇总报表、门诊收费项目科室报表等门诊收费人员相关报表。3.病人管理：病人是医院管理信息系统的服务对象，只有在系统中存在病人的信息才可以享受系统的服务。病人管理包括病人住院管理、病人费用管理、病人病情管理、病人基本信息的查询等。其中病人住院管理包括病人的入院时间、病由、主

14、治医师、所在病房；病人费用管理包括病人缴费项目的查询、添加、修改、删除、保存数据、打印缴费项目单，支持单项查询；病人的病情管理包括入院病由、目前用药情况以及用药后病人的反应，支持保存病人的诊断过程；病人基本信息管理包括病人的相关的基本信息的查询、修改、删除、打印。4.药房管理：药房管理是医院管理信息系统的一个侧重点，包括药品入库、药品出库以及每日药品出库的清单查询，、打印，支持自动报警打印以及药品出库类别查询、打印。5.病房管理：病床是医院管理信息系统的目标对象，病床的管理包括每个信息现有的病床查询，已使用的病床信息查询、录入、修改、删除以及打印该病床病人的信息，支持模糊查询某信息的病人信息。

15、4、概念结构设计1.医师E-R图2.病人E-R图3.护士E-R图4.病床E-R图5.病人管理E-R图5、逻辑结构设计5.1相关实体属性描述本系统涉及实体：病人、医师、护士、治疗、病床、药品的出入库及库存各实体属性分别描述如下，有下划线的属性为主码：病人信息表（病人编号，姓名，性别，年龄，床号，主治医师，入院时间，病由）医师信息表（医师编号，姓名，性别，年龄，职位，职称，密码）护士信息表（护士编号，姓名，性别，年龄，职位，职称，密码）治疗信息表（病人编号，医师编号，护士编号，诊断时间，医嘱）病床信息表（床位号，病人编号，入住时间，所属信息，缴费情况，当日检查记录）药品入库记录表（药品编号，药品名

16、，入库时间，数量，采购地址，单价，总价）药品出库记录表（药品编号，药品名，出库时间，数量，接收方，单价，总价）药品库存信息表（药品编号，药品名，单价，厂商，现有数量）转换规则实体集的转换每个实体集用一个关系表示，其中实体集的属性被转换成关系的属性。实体集的主键，在满足唯一标识的无冗余等性质的条件下，将作为对应关系的主键。在实体的对应关系上，由于加入了联系，可能还要增加一些属性。联系的转换（1）1：1的联系如果实体集E1与实体集E2的联系为1：1，应根据需要把E2的主键放入关系模式E1中，或反之。（2）1：N的联系如果实体集E1与实体集E2的 联系为1：N，将E1的主键包含在E2的关系模式中。（

17、3）M：N的联系如果实体集E1与实体集E2繁荣联系为M：N，则它们之间的联系由另一个关系模式表示，这个关系模式由每个参加的实体集的主键及这个联系的任何属性一起组成。5.2数据库的实现通过对转换后所得到关系模式的分析，结合本系统的功能及所选开发工具和数据库系统的特点，对系统数据库进行设计，建立一个具有良好的数据组织结构的数据库，应遵循的原则有：可能减少数据冗余和重复结构设计和操作设计相结合数据结构具有相对的稳定性由于数据库中所保存的数据是系统中非常重要的资源，所以在数据库设计时一定要注意数据结构的安全性、完整性，并发控制与恢复，而一般的数据库管理系统都提供了一定的数据保护功能。5.3建立数据表利

18、用Microsoft Access 2003建立一个新的空的数据库名为医院信息管理系统.mdb；并建立表，分别用来存储病人信息、医师信息、护士信息，病床信息，药品入库信息、药品出库信息、药品库存信息、门诊信息。病人信息表字段数据类型长度是否为空备注病人编号自动编号20否主键姓名文本6否性别文本2约束“男，女”年龄数字3小于139，大于0床号数字12否外主键主治医师文本6否外主键入院时间日期自动否病由文本50病情说明医师信息表字段数据类型长度是否为空备注医师编号数字20否主键姓名文本6否性别文本2否约束“男，女”年龄数字3否小于139，大于0职位文本8否职称文本8否密码文本10否用*覆盖护士信息

19、表字段数据类型长度是否为空备注护士编号数字20否主键姓名文本6否性别文本2否约束“男，女”年龄数字3否小于139，大于0职位文本8否职称文本8否密码文本10否用*覆盖治疗信息表字段数据类型长度是否为空备注医师编号数字20否主键护士编号数字20否主键病人编号自动编号20否主键诊断时间日期否医嘱文本50记录对病人的用药情况药品入库记录表字段数据类型长度是否为空备注药品编号数字20否主键药品名文本12否入库时间日期否厂商文本20否单价货币否数量数字10否总价货币12采购地址文本24否药品出库记录表字段数据类型长度是否为空备注药品编号数字20否主键药品名文本12否出库时间日期否接收方文本24否单价货币

20、否数量数字10否总价货币12药品库存信息表字段数据类型长度是否为空备注药品编号数字20否主键药品名文本12否厂商文本20否单价货币否现有数量数字10否当达到警戒数量时提示采购门诊信息表字段数据类型长度是否为空备注门诊单号自动编号20否主键病人编号自动编号20否外键科别文本内科，外科，传染科缴费日期日期否缴费金额货币5.5模块设计（部分代码）登陆界面：Private Sub Combo1_Click()Set Res = New RecordsetIf Combo1.Text = 数据输入员 ThenRes.Open select count(yhzh) from login where yhl

21、x=数据输入员, objCon, adOpenKeyset, adLockOptimistic If Res.Fields(0) = 0 Then MsgBox 当前无此类型账号, vbCritical, 提示 Text1.Enabled = False Text2.Enabled = False Exit Sub End If End IfIf Combo1.ListIndex = 1 Or Combo1.ListIndex = 2 Then Text1.Enabled = True Text2.Enabled = True Text1.Text = Text2.Text = Else Te

22、xt1.Enabled = False Text2.Enabled = False Text1.Text = Guest Text2.Text = GuestEnd IfEnd SubPrivate Sub Command1_Click()Static res1 As IntegerDim strExec As StringDim bValiduser As BooleanDim iOldMousePointer As IntegerbValiduser = FalseiOldMousePointer = loginfrm.MousePointerloginfrm.MousePointer =

23、 11loginfrm.MousePointer = iOldMouserPointerIf Text1.Text = Then MsgBox 请输入账号, vbCritical, 错误信息 Exit SubElseIf Text2.Text = Then MsgBox 请输入密码, vbCritical, 错误信息Exit SubEnd IfSet Res = New RecordsetSelect Case Combo1.Text Case 数据输入员 strExec = select * from login where yhlx= & Combo1.Text & Set Res = o

24、bjCon.Execute(strExec) If Not Res.EOF Then If Trim(Res(yhzh) Trim(Text1.Text) Then MsgBox 用户账号不正确, vbCritical, 登录错误 Text1.Text = Text2.Text = Text1.SetFocus res1 = res1 + 1 ElseIf Trim(Res(yhmm) Trim(Text2.Text) Then MsgBox 用户密码不正确, vbCritical, 登录错误 Text1.Text = Text2.Text = Text1.SetFocus res1 = re

25、s1 + 1 Else bValiduser = True usertype = 2 End If End If Case 系统管理员 strExec = select * from login where yhlx= & Combo1.Text & Set Res = objCon.Execute(strExec) If Not Res.EOF Then If Trim(Res(yhzh) Trim(Text1.Text) Then MsgBox 用户账号不正确, vbCritical, 登录错误 Text1.Text = Text2.Text = Text1.SetFocus res1 =

26、 res1 + 1 ElseIf Trim(Res(yhmm) Trim(Text2.Text) Then MsgBox 用户密码不正确, vbCritical, 登录错误 Text1.Text = Text2.Text = Text1.SetFocus res1 = res1 + 1 Else bValiduser = True usertype = 1 End If End If Case 查询用户 bValiduser = True usertype = 3End SelectIf bValiduser = True Then Unload Me hyjm.Show hyjm.Timer

27、1.Enabled = True Exit SubEnd If If res1 = 3 Then answer = MsgBox(错误次数已超过3次!系统将自动关闭, vbCritical + vbOKOnly, 错误信息) If answer = 1 Then End End If End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Combo1.Text = 查询用户Combo1.AddItem 查询用户Combo1.AddItem 系统管理员Combo1.AddItem 数据输入员If Com

28、bo1.Text = 查询用户 Then Text1.Text = Guest Text2.Text = GuestEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Call Command1_ClickEnd IfEnd Sub主窗体：Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)If UnloadMode = 0 Then EndEnd SubPrivate Sub muncx_Click()cxfrm.ShowEnd SubPrivate Sub munfile_exit_Click()Dim msg1msg1 = MsgBox(你真的要退出吗？, vbOKCancel, 退出对话框)If msg1 = 1 ThenUnload MeEndElseMDIForm1.ShowEnd IfEnd SubPrivate Su