小型医疗机构诊疗管理系统

小型医疗机构诊疗管理系统一、系统设计的背景和意义1.系统背景2.实现意义二、系统的制作环境和工具三、系统的模块结构和功能介绍1.系统的模块结构2.系统功能四、主要实现代码一、系统设计的背景和意义1.系统背景现在发达国家，小型医疗机构的管理系统已经十分的完善。各种管理机制已经十分的健全，病人就医方便快捷。对于诊疗的管理十分的科学。我国小型的医疗系统十分的不健全。存在三大问题：药品的管理混乱、诊疗的流程繁琐费时、对于病人的信息管理不能方便快捷的查询。我国人口众多，各种小型医疗机构遍布全国。需要有一个科学合理的管理系统来对其进行管理。2.系统设计目的及意义：小型医疗机构诊疗管理系统，集病人信息和药品管理于一身。建立机制健全的小型医疗机构对于我国社会的和谐发展有重大意义。我国正在努力建设一个健康、文明、和谐的现代化社会。一个健康科学的医疗体系，是这个过程中必不可少的一部分。返回目录二、系统的制作环境和工具该系统主要采用的是VisualBasic6.0和SQLServer2000。VisualBasic6.0是Microsoft公司推出的最新的Windows应用程序开发环境，它功能强大，受到广大编程人员的青睐，是世界上最畅销的编程语言之一。具有：编码简单、便于快速掌握、易于实现、操作简单等特点，同时，提供了很多实用的控件组件，良好的界面操作工能，给用户提供了一个很好的编辑环境。SQLServer是微软公司开发的一个关系数据库管理系统统，可以在不同的操作平台上运行，具有很好的兼容性。同时，SQLServer对数据的管理十分的方便。对数据的查询、添加、修改、删除、更新等都可以很容易快的掌握操作方法。VB可以很容易的与其连接上，对数据库中的数据进行修改。返回目录三、系统的模块结构和功能介绍本系统的主要分为三个模块，分别为管理员模块，医生模块，计费模块。有些模块子系统中又包括若干子模块，其具体的系统功能模块如图3.1所示。各个模块并不完全独立，医生模块来源于管理员模块添加的信息，而计费模块部分信息来源依靠管理员添加的信息和医生添加的信息，三者都是独立的而又相互联系。同时又可以由此衍生出管理员界面、医生界面和计费员界面。管理员负责：医生信息和药品信息的管理。医生负责：患者信息和诊疗信息的管理。计费员负责：患者相关费用信息的查询、计费和打印。1.系统的模块结构诊疗管理系统患者信息添加医生信息删除患者信息查询药品信息查询药品信息添加医生信息修改医生信息修改医生信息修改诊疗信息添加诊疗信息查询管理员医生计费员药品医生信息诊疗信息计费查询患者信息打印图3.1模块结构图返回目录2.系统功能该系统的功能主要有：查询、添加、修改、打印、计费管理员主要是：医生信息（查询、添加、修改）和药品信息（查询、添加）。医生主要是：患者信息（查询、添加）和诊疗信息（查询、添加）。计费员主要是：患者相关计费信息（查询、计费、打印）。下面详细介绍由结构模块衍生出来的三个界面：管理员界面、医生界面、计费界面。管理员、医生或计费员身份识别信息添加信息查询信息修改人员、密码管理查询信息处理人员删除/添加密码修改图3.2功能结构返回目录I.管理员界面该界面是诊疗系统中，管理员用来管理医生和药品信息的一个界面。该界面是实现管理员模块的功能。只可以查询当前已添加的信息记录，信息由管理员添加。管理员可以直接输入所要查找的id号来查找相关的医生信息。界面如下：图3.3管理员界面返回目录II.医生界面医生模块是整个诊疗系统的关键，系统的设计既要符合医疗机构的诊疗流程，又要保证数据的准确性和实用性，医生模块的功能也依赖于管理员模块提供的数据，有独立管理患者信息。这些要求是通过医生界面来实现的，界面如下图所示：返回目录图3.4医生界面III.计费界面计费员的主要职责是为患者进行医疗费用的查询和计算汇总，并将结果打印出来。该模块完全依赖于前面的管理员模块和医生模块，它不能独立的存在。只有依靠前两个模块提供的数据，才能够进行计费的查询和计算，并打印。计费界面如下图所示：图3.5计费界面返回目录主要的实现代码有：DimRs1AsNewADODB.RecordsetDimchaxunAsString//查询DimxiugaiAsString//修改DimtianjiaAsString//添加SetRs1=NewRecordsetchaxun=“select*from相关信息的表whereid='&Text1(1).Text&'//xiugai=“update相关信息的表set要修改的变量=****whereid='&//Text1(1).Text&'///tianjia=“select*from相关信息的表whereid='&Text1(1).Text&'Rs1.Open(chaxun/xiugai/tianjia),Str,adOpenKeyset,adLockOptimistic,adCmdTexText3(0).Text=Rs1(3)Combo1.Text=Rs1(4)Text4(0).Text=Rs1(5)///Rs1.AddNew///WithRs1///……///Endwith返回目录