1、xx 医学院计算机网络技术专业(医学方向)课程设计报告书课程名称 医院信息系统 课程设计题目 制作一个简单医院系统 课程设计日期 _2012_年 4 月 起 _2012_年 5 月 止学生姓名_xx_ 班级_计算机网络专科_ 学号_xx_指导教师_xx_ 课程设计报告书目录范例目录第 1 章 绪论 .第 2 章 系统分析 .2.1 选择开发工具 .2.2 需求分析 .第 3 章 系统总体设计 .31 系统功能 .32 系统流程图 .33 数据库的设计 .34 数据库的逻辑设计 .35 数据库的表间关系 .第 4 章34.1 界面设计 .4.2 代码设计 .结论： 参 考 文 献1、绪论随着计算
2、机技术的飞速发展，计算机信息处理技术已经渐渐应用于医院业务活动的各个反面。目前在医学信息学领域中，应用最多，涉及面最广的是医院信息系统。医院信息系统是一项非常繁重而枯燥的劳动，耗费许多人才和物力建立医院信息管理系统，采用计算机对医院进行管理与查询，进一步提升医院住院管理效益和现代化水平帮助提高医院管理人员工作效率，实现医院管理工作流程的系统化、规范化和自动化。2 、系统分析选择开发工具前端环境：Visual studio 2010； 后台数据库：SQL server 2008； 需求分析系统开发的总体任务是实现各种信息的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成。医
3、院信息系统需要完成功能主要有： 病人基本信息的添加、修改、删除，包括病人编号、姓名、性别、年龄、有效证件名称、证件号码等。 病人基本信息的查询，包括病人编号、姓名、性别、年龄、有效证件名称、证件号码等。 科室管理添加、修改与删除，包括病科室编号、科室名称、科室简介等。 医院管理人员的基本信息添加、修改、删除，包括医院管理人员的编号、姓名、所在科室等。 药品管理的添加、修改、删除，包括药品编号、药品名称、药品单位、药品规格、生产产家、购入价格、销售价格、库存数量等。病人挂号信息的登记，包括病人编号、姓名、性别、年龄、证件类型、证件号码、挂号所在科室、挂号的类型、挂号费等。 病人信息的改号、退号，
4、包括病人编号、姓名、性别、年龄、门诊日期、 、所在的科室、执行的医生、应收金额等。 门诊的划价、发药、住院等。包括处方编号、药品编号、单位、规格、销售价格、数量、是否划价、是否发药、是否住院等。 诊疗科室。包括科室、值诊医生、门诊号、病人编号、患者姓名、年龄、性别、证件类型、证件号码、主观资料、客观资料、诊疗、保存处方等处方的添加、修改、删除。包括处方编号、药品编号、单位、规格、销售价格、数量、是否划价、是否发药、是否住院、医生、门诊号、病人编号、患者姓名、年龄、性别等。医院信息管理 ER 模型图3 、系统总体设计系统总体设计分析：用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求
5、系统结构能充分满足各种信息的输出和输入。收集基本数据、系统结构以及系统处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。在仔细分析调查有关医院信息管理系统需求的基础上，得到如图 12、图 13、图14、如图 15 的挂号系统、诊疗系统、划价系统、发药系统所处理的数据流程。图 医院信息管理挂号系统数据流程图针对一般医院信息管理挂号系统的需求，通过对医院挂号管理工作过程的内容和数据流程分析，设计如下所述的数据项和数据结构：挂号信息数据库表设计功能设计门诊挂号子系统根据挂号的业务特点，分为以下功能：(1)主要功能：挂号、退号、改号。(2)提示功能：根据医生的排班信息，提示号源情况，包括限
6、号、加号等。(3)收费功能：收取挂号费及诊金等。除了以上基本功能外，可根据业务发展需求，实现一些扩展功能，如预约登记、排班、预约挂号等。病人在挂号处进行挂号，可以把整个流程拆解为以下几个子流程：(1)挂号处刷就诊卡调取病人资料。(2)病人挂号到科室医生，完成一个挂号登记。 (3)登记完成后，需要缴纳挂号费与诊金。图3 医院信息管理诊疗系统数据流程图针对一般医院信息管理诊疗系统的需求，通过对医院诊疗管理工作过程的内容和数据流程分析，设计如下所述的数据项和数据结构：诊疗信息数据库表设计医生工作站主要负责存储医嘱、处方明细信息，存储的主要数据为医生在开处方、下医嘱等过程产生的临床数据。医嘱表：功能设
7、计门诊病人人次多，流动大，看诊时间短，一般情况下，一个病人看诊时间约 10 分钟左右，普通医生一个班次（4 小时）要看 30 个病人左右 ,个别科室一个班次一个医生只能看诊不到 10 个，如牙科。为提高医生看诊效率，降低医生花费在系统操作上的工作强度，系统要求做到简单易用，响应快速，并尽可能提供医生方便性录入的功能，如模板录入、历史资料引用等功能。门诊医生工作站主要功能包括叫号、开处方、开各种检验检查单、检验检查结果查询等。(1)排队叫号：排队叫号医生站与分诊对接，实现排队叫号功能。(2)开处方：包括西药、中草药、中成药处方，处方内容含品名、用量、次数、用法、天数、数量。该功能一般支持处方模板
8、调用和历史处方的复制，支持处方权限管理，支持用药监控，支持药品库存提醒等。(3)开检验、检查申请单:模拟医生手工申请单格式，采取分类选择，控件勾选方式。(4)下诊断：支持多个诊断，包括主要诊断、次要诊断、中医诊断、中医症形等。(5)书写门诊病历。(6)查询：查询病人历史就诊记录、检验检查结果。(7)接口：与合理用药系统接口，提供处方的自动监测和咨询功能：药品剂量、药品相互作用、配伍禁忌、适应症等。自动向有关部门传送检查、检验、诊断、处方、治疗处置、手术、收住院等诊疗信息，以及相关的费用信息，保证医嘱指令顺利执行。图4 医院信息管理划价系统数据流程图功能设计门诊收费是针对门诊病人结算的过程，一般
9、情况下，病人在医生看诊完成后或在医生看诊过程中需要中途交费结算的情况下，前往收费处交纳相应的费用的过程。收费人员通过调出病人的交费信息或录入应交费用明细信息，结合病人的支付情况、身份情况，进行结算并打印结算单据。由于门诊的特殊性，收费系统不光要支持接收医生工作站发送过来的电子处方信息，生成相应的结算单，还可以通过自行录入的方式，录入收费明细情况。系统还提供包括对费用的退费、医保接口结算、政策性优惠结算、多种支付方式等一系列的结算方式。图5 医院信息管理发药系统数据流程图功能设计门诊药房子系统是门诊药房人员用来完成日常工作的系统。通常门诊药房子系统中，会包含两个大的业务模块，一为门诊配发药子系统
10、，另一为门诊药房管理（本节主要介绍门诊发配药子系统，门诊药房管理将在物流管理系统中详细介绍） 。收费系统完成收费后，处方传递到门诊药房，药房的配药人员根据处方内容进行配药，配药完成后药房工作人员通过指引设备（如显示器、LED 公告、语音叫号）通知病人取药。门诊药房的发配药根据医院情况，可能采用发配分开的流程或者发配混合的流程模式。发配分开的模式即处方完成收费后，在配药界面上进行显示，配药人进行配药后并确认，此时完成配药的处方才显示在发药界面上，发药人根据信息进行最后的核对，完成发药。分配混合的模式即无发配人员的区分，只有一个人来完成配药及发药的工作。第 4 章（1） 、登陆：“登陆”按钮的 c
11、lick 事件代码如下：Private Sub Command1_Click()If Text1.Text = “ And Text2.Text = “ ThenMsgBox “用户名密码不能为空“ElseIf Text1.Text = “1“ And Text2.Text = “1“ ThenMsgBox “欢迎进入本系统“, vbApplicationModal, “登陆“Form2.ShowForm1.HideElseMsgBox “用户名不正确，请重新输入“End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub科室管理功能：选择科室登记，
12、进入如下界面：“添加科室”按钮的 click 事件代码如下：Private Sub Command1_Click()rs1.Open “select * from 科室“, cnn, adOpenKeyset, adLockOptimisticrs1.AddNewrs1.Fields(0).Value = Text1.Textrs1.Fields(1).Value = Text2.Textrs1.Fields(2).Value = Text3.Textrs1.Updaters1.CloseMsgBox “添加科室信息成功“Adodc1.RefreshEnd Sub“修改科室”按钮的 click
13、 事件代码如下：Private Sub Command2_Click()rs1.Open “select * from 科室 where 编号=“ & Text1.Text & “, cnn, adOpenKeyset, adLockOptimisticrs1.Fields(1).Value = Text2.Textrs1.Fields(2).Value = Text3.Textrs1.Updaters1.CloseMsgBox “修改科室信息成功“Adodc1.RefreshEnd Sub“删除科室”按钮的 click 事件代码如下：Private Sub Command3_Click()r
14、s2.Open “select * from 科室 where 编号=“ & Adodc1.Recordset.Fields(0) & “, cnn, adOpenKeyset, adLockOptimisticIf rs2.RecordCount 0 Thenmyval = MsgBox(“是否删除该数据？ “, vbYesNo)If myval = vbYes Thenrs2.Deleters2.UpdateMsgBox “删除成功 “End IfElseMsgBox “没有要删除的数据！ “End Ifrs2.CloseAdodc1.Refresh诊疗科室管理功能“保存病例”按钮的 cl
15、ick 事件代码如下：Private Sub Command1_Click()If Text6.Text = “ Or Text7.Text = “ Or Text8.Text = “ ThenMsgBox “输入的用户注册信息不完全!“, , “提示信息“ElseAdodc1.RecordSource = “select * from 电子病例 where 病人编号=“ + Text9 + “ 判断注册的用户名是否存在Adodc1.RefreshSet RS = adoCon.Execute(“insert into 电子病例 values(“ & Text6 & “,“ & Text7 &
16、 “,“ & Text8 & “)“)rs1.Open “select * from 电子病例“, cnn, adOpenKeyset, adLockOptimisticWith rs1.AddNew.Fields(“病人编号“) = frmfitjc.Text1(0).Text.Fields(“病人编号 “) = IIf(IsNull(Text9.Text), “, Text9.Text).Fields(“姓名 “) = IIf(IsNull(Text1.Text), “, Text1.Text).Fields(“主观资料 “) = IIf(IsNull(Text6.Text), “, Te
17、xt6.Text).Fields(“客观资料 “) = IIf(IsNull(Text7.Text), “, Text7.Text).Fields(“诊断 “) = IIf(IsNull(Text8.Text), “, Text8.Text).Update.CloseEnd Withrs2.Open “select 是否诊疗 from 挂号信息 where 挂号编号=“ & Combo5.Text & “, cnn, adOpenKeyset, adLockOptimisticrs2.Fields(0).Value = “是“rs2.Updaters2.CloseMsgBox “保存成功!“,
18、 48, “用户注册信息提示“End IfAdodc1.RefreshCommand2.Enabled = TrueEnd Sub“科室”按钮的 click 事件代码如下：Private Sub Combo1_Click()Dim a As Longi = 0Label11.Caption = Combo1.Text + “诊室“rs1.Open “select * from 人员表“, cnn, adOpenKeyset, adLockOptimisticCombo4.ClearWith rs1If .RecordCount 0 Then.MoveFirstFor i = 1 To .Rec
19、ordCountIf Combo1.Text = rs1.Fields(2).Value ThenCombo4.AddItem .Fields(1).Value .Fields() 括号中可以是任何一个字段,可以用数字也可以直接用字段名End If.MoveNextNextEnd If.CloseEnd Withrs1.Open “select * from 挂号信息 where 挂号科室 like %“ & Combo1.Text & “%“, cnn, adOpenKeyset, adLockOptimisticWith rs1Combo5.ClearIf .RecordCount 0 T
20、hen.MoveFirstFor i = 1 To .RecordCountCombo5.AddItem .Fields(1).Value If Combo1.Text = rs1.Fields(3).Value Thena = a + 1End If.MoveNextNextEnd If.CloseEnd WithLabel18.Caption = a .Fields(1).Value .Fields() 括号中可以是任何一个字段,可以用数字也可以直接用字段名End Sub5、小结本设计报告以制作医院信息管理系统为背景，论述了开发医院管理系统的结构，系统开发的基本步骤和方法该系统的开发主要是采用面向对象开发模型，根据需要进行了较详细的说明通过开发这个医院管理系统，进一步明确了开发研制一个管理信息系统的方法和思想，加深了对管理信息系统的认识，提高了学习管理信息系统的兴趣，巩固了以前学到的信息系系统开发方法方面的知识，提高了软件开发的水平，为今后在工作岗位上学用好计算机打下了坚实的基础。作了一个月的 VB6，关于数据库的程序无非就是连接数据库、记录的添加、删除、查询一系列操作。然后就是加个漂亮点的外壳，没什么深奥的。
