医院信息管理系统方案8页

系统需求分析：

【最新资料,Word版，可自由编辑！】

系统目标：计算机信息管理系统的作用利用计算机强大的数据处理能力，通过计算机软件实现对日常医院业务的信息管理，可以更加准确、实时、可靠。而且可以快速的进行数据统计分析，对于医院管理工作的改进和效率提高有很大的帮助。医院管理系统的主要目标是支持医院的行政管理与事务处理业务，减轻事务处理人员的劳动强度，提高医院的工作效率，从而使医院能够以少的投入获得更好的社会效益与经济效益。

系统开发环境：visual basic 软件工具：visio

分工：侯心主负责整个系统的全面分析与程序编写 余磊负责住院部门管理子系统与系统管理子系统 陈永亮负责公费医疗管理子系统和人事管理子系统 霍世楚负责门诊部门管理子系统和病案管理子系统 姚本盛负责药房管理子系统和业务管理子系统 段芳负责ppt与word最后的汇总

系统分析：医院计算机信息管理系统主要包括：住院部管理子系统；门诊部管理子系统；中西药房管理子系统；公费医疗管理子系统；病案管理子系统；业务管理子系统；人事管理子系统；系统管理子系统。各子系统之间的数据引用关系如下图： 我们主要对住院部管理子系统，门诊部管理子系统，中西药房管理子系统，业务管理子系统，系统管子系统进行具体分析。

第一部分：住院管理子系统

从“医院”概念上看，住院部是医院的基本组成单位；从医院管理角度看，住院诊疗是医院业务工作的核心部份。因此，建立一个高效可靠的住院业务管理系统，不仅可以在一定程度上减轻医务人员的劳动强度，提高工作效率和工作质量，而且可以更及时、准确、有效地分析统计各种临床数据及管理数据，供上级主管部门作出科学的管理决策，促进医院管理水平的进一步提高。

一：业务流程：

1:入院管理

病人先办理住院手续，然后需判定是否曾住院，若曾住院则查找想爱你供应病历，若没有住院，则建住院病历，然后分配床位，再需要判定是否是教工或教工家属，若是教工家属，则登记统筹号，不是的话则由财务收取押金，最后填写病人登记表

2：住院管理 3：出院管理

根据上述业务流程，可得到系统数据流图如下：

二． 系统功能

本系统从业务管理角度划分可分为以下五大功能模块： 入院管理

病人基本资料登记 病人基本资料维护 病房管理

长期医嘱处理 临时医嘱处理 过期医嘱处理 检验信息处理 手术信息处理 诊疗信息查询 检验信息查询 病床信息处理 病人情况统计 病房用药统计 到期医嘱处理 在院计费

保证金管理 催欠款处理

个人医疗费用总帐查询 个人医疗费用明细帐查询 科目汇总 检验费用统计 病房总费用日结 病房总费用月结 出院管理

病人费用结算 明细费用查询 病历归档处理 修改出院标志

系统维护

科目编码维护

各类收费标准资料维护 修改职工编号 清理过期数据 出院费用查询 提交数据 数据文件备份

三：功能说明

1．入院管理

⑴． 病人基本资料表录入、修改、删除、复制

对于曾住院病人，根据其提供的住院号码自动在病案首页表中调出病人基本资料；而对于第一次住院病人则自动为其产生住院号码，如果此人为本校人员或家属，则根据其医疗证号码自动从“中大人员基本资料表”中提取个人基本资料，核对身份并确定个人承担住院费用的百分比。当病人基本资料确认无误后，即写入“病人基本资料表”中。

对于劳保、自费及其他人员应预交押金，且交款数额不得低于规定的下限值，并将交款资料自动填入“病人预交款情况登记表”及累加填入“自费病人资金使用情况表”，同时自动打印交款单据。

（2）病人基本资料查询 查询方式：

单项选择。条件选项：住院号，姓名，床号

报告项目：病人基本资料表中所有项目 报告流向：显示

组合选择。条件选项：住院日期，交费方式，病种

报告项目：姓名，性别，婚否，出生日期，职业，职称 ，门诊诊断 报告流向：显示，打印 （3）病人预交款资料查询

查询方式：

单项选择。条件选项：住院号，姓名，床号，交款日期 报告项目：病人预交款情况登记表中所有项目 报告流向：显示，打印

2．病房管理

（1） 医嘱管理

a. 长期医嘱管理

长期医嘱登记表录入、修改、删除、复制。

当录入长期医嘱时，自动将出院标志置为“F”，每笔记录输入完毕 后自动将有关内容填入“分户医疗费用明细表”中。

修改记录时，自动修改“分户医疗费用明细表”中相应记录的费 用字段值。

长期医嘱资料查询

查询方式：组合查询。

条件选项：住院号，医嘱号，开始时间，停止时间 报告项目：长期医嘱登记表中所有项目 报告流向：显示，打印 b.临时医嘱管理

临时医嘱登记表录入、修改、删除、复制。

当录入临时医嘱时，自动将出院标志置为“F”，每笔记录输入完毕 后自动将有关内容填入“分户医疗费用明细表”中。

修改记录时，自动修改“分户医疗费用明细表”中相应记录的费 用字段值。

临时医嘱资料查询

查询方式：组合查询。

条件选项：住院号，医嘱号，日期

报告项目：临时医嘱登记表中所有项目 报告流向：显示，打印 （2） 病床管理

a.床位调整

修改床位登记表 b.床位情况登记

查询方式：采用单项选择方式，选项包括：住院部总体床位情况，各 科室床位情况。

报告项目：床位登记表中所有项目及床位统计值（总床位数目，空床数目，实际使用率）。

报告流向：显示。 3．计费管理

（1） 科目编码表维护（输入，修改，删除，打印，复制） （2） 记帐处理 （3） 日结账处理

汇总产生当日分户各项医疗费用日结记录，并自动写入“分户医疗费用日结表”。统计过程中自动将自费或劳保病人当日费用开支填入“自费病人资金使用情况表”

汇总产生当日住院部各项医疗费用帐目，并自动写入“总帐”及明细帐。

(2) 医疗费用月结账

汇总当月住院部各项医疗费用，并自动写入“住院部医疗费用开支月 结表中。12月份自动结转并产生明年期初数 (3) 对帐处理

由“分户医疗费用日帐”产生“在院病人费用明细表”及“在院病人费用对帐单”。

在院病人费用明细表所含项目：日期，收费名称，数量，单价，金额。 在院病人费用对帐单项目： 日期，上日累计余额，本日发生额， 本日交款额，本日帐面余额。

（4） 查阅帐本

分户医疗费用日记帐

住院部医疗费用开支明细帐 住院部医疗费用开支总帐

4．统计制表

住院收入月报表 住院部资金日报表 5．收费标准管理

（1） 收费标准表录入，修改，删除，复制。 （2） 收费标准表查询

单选方式，选项包括：床位费标准，治疗费标准，护理费标准，检 查费标准，化验费标准，押金下限。 报告流向：显示，打印 6．出院管理

（1） 病历归档处理

自动将病人出院日期及出院标志填入“入院病人基本资料表”中；

自动将病人出院标志填入“病人预交款情况登记表”、“自费病人资金使用

表” 、“长期医嘱登记表” 及“临时医嘱登记表”中相应记录； 自动将“床位登记表”中相应记录的科别、姓名及性别字段清空； 将出院病人病历资料写入“病案首页表”。 （2） 出院结算

统计出院病人各类费用

打印各类费用明细帐清单 7．已出院病人资料查询 （1） 费用查询 （2）修改出院标志 （3）清理过期数据

四数据描述 床位登记表(Ward)

字 段 名 称 字 段 描 述 主 键 Bed_no ? 床号 section 科别 Patient_name 姓名 Patient_sex 性别 类 型 长 度 Char 2 Char 8 Char 8 Char 2 说 明 非空

受，虽然自己也努力了，但是其他人的工作状态怎样，我却显得过于无视了，这是我的失职。

不管怎么样，工程还是顺利做完了，这个里面凝聚了每个人的汗水，

也夹杂了我们八周里的经验与教训，这些宝贵的财富将随着我们的成长而愈益珍贵。

第十 程序部分代码 1、 查询

Private Sub Command1_Click() '查询

Dim rs_find As New ADODB.Recordset Dim CN As New ADODB.Connection Dim sql As String

Set rs_find = New ADODB.Recordset If Check1.Value = vbChecked Then

sql = \药品名称='\End If

If Check2.Value = vbChecked Then If Trim(sql) = \

sql = \药品编码='\Else

sql = sql & \药品名称='\End If End If

If Trim(sql) = \

MsgBox \请选择查询方式！\Exit Sub End If

sql = \rs_find.CursorLocation = adUseClient

CN.Open \Info=False;Initial Catalog=DemoDB;Data Source=(local)\rs_find.Open sql, CN, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False

Set DataGrid1.DataSource = rs_find End Sub 2、 添加

Private Sub Command2_Click() '添加

Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim sql1 As String

Dim CN As New ADODB.Connection

Dim sql As String

temp = Trim(Text2.Text)

CN.Open \Security Info=False;Initial Catalog=DemoDB;Data Source=(local)\

sql = \药物名称='\rs.Open sql, CN, 1, 1 If rs.EOF <> True Then

MsgBox \该药物已经存在，请更换\错误\Else

sql = \rs1.Open sql, CN, 3, 2 rs1.AddNew

rs1!药物名称 = temp

rs1!药物编码 = Trim(Text3.Text) rs1!药品价格 = Trim(Text4.Text) rs1!科室代码 = Trim(Text5.Text) rs1!收费类别 = Trim(Text6.Text) rs1!药品用法 = Trim(Text7.Text) rs1.Update

MsgBox \成功添加一条记录\提示\End If End Sub 3、 删除

Private Sub Command3_Click() '删除

Dim rs As New ADODB.Recordset Dim varBmk As Variant Dim a As String

Dim CN As New ADODB.Connection On Error GoTo delerror sql = \

CN.Open \Security Info=False;Initial Catalog=DemoDB;Data Source=(local)\

rs.Open sql, CN, 3, 2

a = MsgBox(\确定要删除吗？\医院管理信息系统\ If a = vbYes Then

DataGrid1.AllowDelete = True

For Each varBmk In DataGrid1.SelBookmarks rs.Bookmark = varBmk rs.Delete rs.Update Next

Adodc1.Refresh DataGrid1.Refresh

MsgBox \成功删除！\医院管理信息系统\

DataGrid1.AllowDelete = False Else

Exit Sub End If delerror:

If Err.Number <> 0 Then MsgBox Err.Description End If End Sub 4、 用户登录

Private Sub cmdOK_Click() Dim sql As String

Dim CN As New ADODB.Connection Dim cnt As Integer

Dim rs_login As New ADODB.Recordset c = 1

If Check1.Value = False Then c = 0

Unload Me Form1.Show Else

If Trim(txtUserName.Text) = \

MsgBox \没有这个用户\txtUserName.SetFocus Else

CN.Open \Info=False;Initial Catalog=DemoDB;Data Source=(local)\

sql = \系统管理 where 用户名='\rs_login.Open sql, CN, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then

MsgBox \没有这个用户\txtUserName.SetFocus Else

If Trim(rs_login.Fields(1)) = Trim(txtPassword.Text) Then Form2.Show

rs_login.Close Unload Me 5、 病人信息添加

Private Sub Command1_Click() '确定

Dim rs1 As New ADODB.Recordset Dim CN As New ADODB.Connection

Dim sql As String

Set rs1 = New ADODB.Recordset Set CN = New ADODB.Connection

CN.Open \Info=False;Initial Catalog=DemoDB;Data Source=(local)\sql = \病人信息\rs1.Open sql, CN, 3, 2 rs1.AddNew

rs1!姓名 = Trim(Text1.Text) rs1!性别 = Trim(Text2.Text) rs1!民族 = Trim(Text3.Text) rs1!年龄 = Trim(Text4.Text) rs1!备注 = Trim(Text5.Text) rs1.Update

MsgBox \成功添加一条记录\End Sub

提示\

本文来源：https://www.bwwdw.com/article/nvg2.html