《医院住院管理系统实验论文马骁.》由会员分享，可在线阅读，更多相关《医院住院管理系统实验论文马骁.（15页珍藏版）》请在金锄头文库上搜索。
1、摘要：住院部是医院的重要的组成部分，其中病人住院管理的信息量大，数据种类多，单靠传统的人工处理不仅效率低下，而且很容易出现差错，从而导致严重的后果。针对这一问题，本文设计了住院信息管理系统，集中处理信息流，提高医院住院部信息处理的准确度和工作效率。关键词：住院信息 管理系统 VB和SQL SERVER技术一、医院住院管理系统开发设计思想 医院信息系统是指利用计算机和其他专用医疗设备，为医院所属各部门的病人诊疗信息和行政管理信息进行手机、存储、处理、提取和数据交换的综合型的计算机应用系统。主要目标是支持医院的行政管理与医疗业务处理，减轻从业人员的劳动强度，提高医院工作的效率，从而使医院能够以较少
2、的投入获得更好的社会效益和经济效益。 一套完整的医院信息系统主要是支持医院医护人员的临床活动，收集和处理病人的临床医疗信息，丰富和积累临床医学知识，并提供临床咨询、辅助治疗和辅助临床决策，提高医护人员的工作效率，为病人提供更多、更快、更好的服务。 从医院住院管理系统可行性进行分析，在技术可行性方面：硬件、软件要求不高，目前市场上的一般计算机硬件资源均能满足系统开发需求。该管理系统以VB和SQL SERVER为主要的开发工具，通过ADO方式与后台数据库相连接，建立了一个基于C/S（客户机/服务器）的数据库管理系统。维护工作方便，由于SQL2000的易用性，使得后台的操作十分便捷，操作人员可以在短
3、时间内完全掌握系统维护工作。经济可行性方面：对于每个住院部门，可以根据自己需要，配置性能一般的计算机做终端，向服务器存储数据或搜索数据。这些电脑的费用对整个系统来说并不是一个很重的负担；社会可行性方面：由于医院住院病人数量众多，因而通过电脑化操作可以减少纸张的使用，同时由于数据直接通过局域网传输，可以减少数据传输时间，提高效率，同时也方便医生护士病人搜索相关住院信息，提高医院工作透明度和工作效率。二、医院住院管理系统功能及系统设计介绍 （一）医院住院管理系统功能：医院住院管理系统主要是实现病人入院登记和病人基本情况的记录、病人在住院过程中的费用信息管理以及各类信息的查询与统计，包含的系统功能模
4、块如图所示：医院住院管理系统系统登录病人管理收费管理用户登录系统退出住院登记档案维护追加预付款用药处方费用检查治疗费用每日费用清单为了使这里设计的系统尽量不依赖医院信息系统中的那其他系统而自成一体，所以医院住院管理系统融合了医院信息管理喜用中的药品管理和费用管理功能。a.系统登录。主要实现用户安全登录以及安全退出，保护系统运行正常，防止其他危险信息破坏系统内容。b.病人管理。主要实现病人办理入院登记、对病人档案首页进行维护和查询等。病人办理住院手续时给病人分配住院号并建立该次病人住院的档案首页，如果病人不是首次住院，也分派一个新的住院号。c.收费管理。主要实现对病人住院期间产生的固定医疗费用和
5、处方费用进行记录、查询统计。d.各项的功能需求：1 系统登录界面的录入与退出；医院住院管理系统欢迎界面的退出。2 病人档案首页的录入、修改、查询。3 住院预付款和其他费用的录取、修改、删除、查询以及生成费用日报单。 (二）、系统设计介绍 数据库概念结构设计：根据以上医院住院管理系统功能的介绍，规划的数据实体，主要有病人、药品、检查治疗项目。“病人”尸体与另两个实体之间存在一对多的联系，“病人”尸体与“药品”实体的联系描述了病人的用药情况。但病人在住院期间还会产生其他没有使用药品费用，如治疗费、检查费等非用药固定费用，所以“病人”实体与“检查治疗”实体之间的联系描述了病人进行某些检查和治疗所发生
6、的医疗事故。各个分类之间的联系如下图所示：（因为报告排版的的原因，此图非实体联系模型）检查治疗项目主治医生住院号姓名性别诊疗科室床位号籍贯民族年龄出院日期入院日期累计预付款病人包含费用项目 项目费用项目名称项目分类编号消耗 药品 规格分类用药价格有效期编号名称 1) 数据库逻辑结构设计因为实体之间的联系军事一对多，需要将这两个一对多的联系也转化成关系模式，依据转化规则：与该联系相连的各实体之间的关键字和联系本身的属性均转化为关系模型的属性。因此，整个系统可以产生一些五个关系模型：病人（住院号，姓名，性别，年龄，籍贯，民族，主治医生，诊疗科室，床位号，入院日期，累计预付款，出院日期）药品（编号，
7、名称，规格，分类，用药价格，有效期）检查治疗项目（编号，项目分类，项目名称，项目费用）医药费用（住院号，药品编号，费用，用药日期）检查治疗费用（住院号，项目编号，费用，检查日期） 最后形成了整个系统的一下四个模式:病人（住院号，姓名，性别，年龄，籍贯，民族，主治医生，诊疗科室，床位号，入院日期，累计预付款，出院日期）药品（编号，名称，规格，分类，用药价格，有效期）检查治疗项目（编号，项目分类，项目名称，项目费用）诊疗费用（住院号，费用编号，费用项目编号，费用类型，费用，诊疗日期）2) 数据库表设计 病人信息表 patient列名数据类型是否为空说明Patient_idVarchar(20)No
8、t null住院号，主键NameVarchar(20)Not null姓名SexChar(2)Null性别AgeIntNull年龄Native_placeVarchar(20)Null籍贯NationVarchar(20)Null民族Charge_doctorVarchar(20)Null主治医生Consutation_officeVarchar(50)Not null诊疗科室Bed_noVarchar(10)Not null床位号Income_timeDatetimeNull入院日期（与时间）Total_prefeeNumeric(10,2)Null累计预付款Leave_timeDateti
9、meNull出院日期，null为未出院 药品信息表 leechdom列名数据类型是否为空说明Leechdom_idVarchar(20)Not null编号，主键NameVarchar(20)Not null名称SpecsVarchar(40)Null规格ClassVarchar(20)Null分类PriceNumeric(10,2)Not null用药价格Validity_dateDatetimeNull有效期 检查治疗项目cureditem列名数据类型是否为空说明Item_idVarchar(20)Not null编号，主键NameVarchar(20)Not null项目名称ClassV
10、archar(20)Null项目分类FeeNumeric（10,2）Not null项目费用 诊疗费用表 curefee列名数据类型是否为空说明Fee_idIntNot null费用编号（组合主键）：为了保证住院号+项目编号的唯一性，在原有关系模式基础上增加此字段Patient_idVarchar(20)Not null住院号（组合主键）Feeitem_idVarchar(20)Not null费用项目编号（组合主键）：用药费用为药品编号，非用药费用为检查治疗项目Fee_typeVarchar(16)Not null费用类型，取值：用药处方费用、检查治疗FeeNumeric（10,2）Not
11、null费用Cured_timeDatetimenull诊疗日期与时间 列名数据类型是否为空说明Login_nameVarchar(10)Not null用户名Login_passwVarchar(10)Null密码User_typeIntNot null用户类型3) 系统实现整个系统中建立了多个窗体，各个窗体通过主窗体界面的菜单选项进行连接，现在主要对个别关键的窗体与代码作介绍。a.用户登录窗体用户登录窗体，通过菜单选项“系统登录用户登录”选择，登录用户通过输入账号名称与密码，方可进入系统进行相关操作，保证系统在安全的情况下运行。其主要实行代码如下：Private Sub Command1_
12、Click()If Text1 = hebut And Text2 = hebut ThenMsgBox 密码正确，成功登陆, 输入frmpinforecord.ShowUnload MeElseMsgBox 用户名或密码错误，重新输入, 输入Text1.SelStart = 0Text1.SelLength = Len(Text1)Text1.SetFocusText2 = End IfEnd Sub登录后界面如图所示:b.系统运行主界面 系统的主窗体是用于系统启动后想用户呈现主界面的，并利用其管理系统中的其他各个应用模块和窗体。在主窗体中，用户可以方便地通过主界面的菜单操作其他模块和窗体，
13、以执行相应的操作。系统有系统管理、病人管理、收费管理三个主菜单。级联菜单分别为用户登录、系统退出，住院登记和档案维护，追加预付款用、药处方费用、检查治疗费用和每日费用清单。系统菜单的程序代码如下：Private Sub menuFee_lee_Click()frmlcdfeerecord.Show 1End SubPrivate Sub menuFee_prefee_Click()frmprefeerecord.Show 1End SubPrivate Sub menuFee_report_Click()frmfeedailyreport.Show 1End SubPrivate Sub me
14、nuFee_std_Click()frmstdfeerecord.Show 1End SubPrivate Sub menuSys_exit_Click()在系统退出时，断开与数据库的联系dbdisconnect 断开数据库连接公用过程，在模块中定义Unload MeEnd SubPrivate Sub menuSys_login_Click()Me.Enabled = Falsefrmlogin.Show 1End SubPrivate Sub menuSys_user_Click() If curusertype = 1 Then frmuser.Show 1 Else MsgBox 你没有对登录用户进行管理的权限, vb
