《社区医院药品管理信息系统毕业论文.doc》由会员分享，可在线阅读，更多相关《社区医院药品管理信息系统毕业论文.doc（34页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、社区医院药品管理信息系统的设计与开发学科：科技防卫作者：作者签名:_导师：导师签名:_答辩日期：摘 要20世纪末，随着计算机科学的发展，商务电算化已经成为一个趋势，药品的销售管理也不例外。本文研究了一种基于VB编程技术的社区医院药品管理信息系统，此方案与现今医药销售部门已采用的一些方案相比，具有用户使用更人性化、界面更直观、系统结构灵活等优点。论文主要介绍了基于VB编程技术的社区医院药品信息管理系统。本系统主要由6大部分模块组成，分别是：用户管理模块，出入库管理模块，过期药品管理模块，库存查询模块，基表管理维护模块。本文在第一章说明了医院药品信息管理系统的系统框架和总体设计. 介绍了开发工具的
2、选择,并叙述了Windows下的VB6.0编程环境。在接下来的几章中介绍了我所完成功能模块的结构和功能以及具体设计过程。最后对本次毕业设计做出了总结。关键字：信息管理系统 ,药品管理，VB The management system of medical comprehensive information case generationSupervisors name: Signature Students name: Signature AbstractEnd of 20th centuries, along with the development of the computer, the
3、 business electric calculator turn to have already become a trend, the sale management of the drugs is no exception. This text studied a kind of according to PB the plait distance technique of medicine entering to sell and to save the information management system, some projects that this project an
4、d present medicine sale departments already adopt compare, having the customer usage more humanized, the interface even keep the view, the system structure vivid etc. advantage. The thesis mainly introduced according to the PB the medicine of the plait distance technique enters to sell and to save t
5、he information management system, that system is gathered into and sell, saved in integral whole, still gathering at the same time finance management, statistics to search etc. function. This system mainly from 6 big and parts of molds pieces constitute, respectively is: The mold piece of the founda
6、tion information manages , sale management, store in warehouse to manage, stock management, the finance management, constitution management. The realization of the concrete function makes use of the PB plait distance technique. This text introduced a system frame and total designs that explained the
7、 medicine to enter to sell and to save the information management system. The choice of development tool, and described the Windows under of PB6.0 plait distance environments. Introduced the structure and functions and concretly design processes of the function mold piece that I completes in next se
8、veral chapterses. Did to this graduation design finally summary. Key words: the system of information management, gathered into and sell, saved in integral whole, the humanization design, PB目录目录IV引 言- 1 -第一章 系统结构- 2 -1.1系统框架- 2 -1.1.1系统结构图- 2 -1.1.2各功能模块进行简述:- 2 -1.2开发工具研究- 3 -1.2.1开发工具的选择- 3 -1.3Wi
9、ndows下的VB6.0编辑环境的简介- 5 -1.3.1面向对象的编程- 5 -1.3.2实现菜单选项- 5 -1.3.3组合框（Combo box）控件- 6 -1.3.4 MDI窗口的使用- 6 -第二章 系统设计与实现- 7 -2.1模块功能描述- 7 -2.1.1 信息管理模块设计- 7 -2.1.2信息管理模块Adodc数据对象使用- 7 -2.2用户信息管理模块- 8 -2.2.1数据处理功能设计与实现- 8 -2.2.2入库管理模块- 10 -2.2.3出库管理模块- 10 -2.2.3库存查询管理模块- 11 -2.2.4过期药品管理模块- 12 -2.2.5免费药品发放模块
10、- 12 -2.2.6基表信息管理模块- 13 -第三章 入库管理模块设计与实现- 14 -3.1模块功能描述- 14 -3.1.1业务流程设计- 14 -3.2入库登记模块- 14 -3.2.1入库登记模块流程设计- 14 -3.2.2关键技术- 15 -3.2.3入库登记模块的实现- 15 -3.3库存查询模块- 19 -3.3.1设计思路- 19 -3.3.2库存查询模块实现- 19 -第四章 基表维护设计与实现- 22 -4.1模块功能描述- 22 -4.1.1 基本信息管理模块流程图- 22 -4.2用户设置模块- 22 -4.2.1设计思路- 22 -4.2.2密码设置模块的实现-
11、 22 -4.3医疗保险设置模块- 24 -4.3.1设计思想- 24 -4.4过期药品清理模块- 25 -4.4.1设计思想- 25 -结束语- 28 -致谢- 28 -参考文献- 29 -V-引 言随着我国经济的蓬勃发展和人们对医药产品需求的迅速增加，医药行业正处于一个高速发展的时期。行业的快速发展必然导致竞争的加剧，要想在激烈的市场竞争中谋求发展，客观上要求企业必须加强内部管理，提高运营效率。另外，由于医药产品种类繁多、销售模式特殊、业务量大，单凭手工记账已远远适应不了企业的快速发展的需求。可以说，没有信息化的医药管理几乎是不可想象的。基于这个大潮流的驱使之下，国内外药品信息管理系统相继
12、推出。它们最大的共同点是：系统功能强大，系统界面华丽，业务流程趋向于复杂化。由于社区医院药品管理销售的主要群体集中在一个或几个社区范围之内，必须具备低成本、系统结构灵活、设计人性化、功能实用化、用户界面操作简洁等特性的医院药品信息管理系统成为市场需求的主流。为了实现医药管理工作的信息化，本着用户使用更人性化、界面更直观、系统结构灵活的理念，同时为管理者和业务员提供一个集进、销、存于一体的平台。根据学习相关的软件开发知识及以相关软件的使用和设计原理，通过对系统管理员，药品管理员，药房销售主管以及对部分销售人员的调研。提出相应的设计方案。“社区医院药品信息管理系统”是针对社区医院药库综合业务而设计
13、的药品管理系统。该软件集进、销、存于一体，查询统计功能齐全，真正实现了进、销、存信息化的管理。本软件的前台采用目前普及率较高的面向对象编程语言VB6.0开发，后台采用Access2000数据库。软件界面简单直观，软件运行较为稳定。在下面的正文部分将对社区医院药品管理系统的开发过程、所涉及到的问题及解决方法进行详细说明。第一章 系统结构1.1系统框架本系统主要由用户管理、入库管理模块，出库管理模块，库存查询模块，过期药品管理，免费药品发放、基表维护模块。1.1.1系统结构图合作医疗设置药品代码信息基表信息销售出库出库登记出库管理修改库存库存查询入库登记入库管理免费药品查询药械查询药库查询库存查询
14、合作医疗计费社区医院药品管理用户管理免费药品清理删除过期药库清理过期药品管理编辑信息修改权限添加用户图1-1社区医院药品信息管理系统结构图1.1.2各功能模块进行简述:(1)基表信息管理模块主要功能是完成药品基本信息的管理，包括药品代码编制、合作医疗信息设置，以药品代码信息管理为例：对所使用的药品进行编制简写代码，这样在不同的模块中即可输入所使用药品的简化代码，从事将将使用者从繁重的输入药品名称的工作中解放出来，以便更好的管理系统信息。 (2)入库管理模块：入库管理主要完成药品入库等信息的管理，可根据所采购药品信息进行入库处理，入库药品信息分为三类，一类是西药、中成药，二类是草药及器械，三类是
15、免费药品。可分类将以上各类药品登记入库。药品采用简化代码来登入名称，简化了流程，也保证了输入中的正确性。(3)出库药品管理模块：主要完成药品出库信息的管理，药品同样分为同上三类药品，这里的出库分为两类，一类是院内调拔，如将批量药品调行病房药库，另一类是日常的销售性出库。日常销售性出库同时按医疗保险制度对药品直接进行计费。(4)库存查询模块：库存查询模块主要对药品库存信息进行综合查询，以便对库存性况进行盘点，针对不同的查询类别，构建查询字段进行查询。(5)过期药品清理模块：无论对于哪一类药品，当过期时不能出库，所以所有类别的药品都设置了失效标记，本模块根据出厂日期和过期日期，设置失效标记，并对过
16、期药品进行过滤，清除掉过期的药品，被清理的药品不能出库。 (6)用户管理模块：主要管理所使用系统的用户及期操作权限，用户具有不同的安全级别。用户分为超级用户和普通用户，对于超级用户拥有全部权限，可执行一切操作;对于普通用户在清理过期药品和修改库存等模块中受到限制。主要包括密码设置、权限设置,可完成对当前用户密码、权限的设置，对当前用户信息进行添加、修改、删除。1.2开发工具研究基于本系统的需求分析的需要，开发本系统采用的是面向对象的程序设计技术。在操作系统上选用Microsoft Windows 的操作平台作为系统开发环境,前台采用VB6.0较为普遍的面向对象的程序开发语言，后对数据库采用Ac
17、cess2000这一较为简单的数据库做为数据容器，对方面程序开，后期若有更高需求，可升迁。1.2.1开发工具的选择Microsoft公司推出的Windows应用程序开发工具VB6.0，是目前较为广泛的面向对象的开发工具，VB6.0是基于Microsoft Windows系列操作平台下的功能强大的程序开发环境。它具有C语言和C+语言的灵活性，而且它的开发环境又采用了面向对象、消息映射等编程机制，通过使用一种巧妙的方式将Windows的编程以类的形式封装起来，使用户用起来更实用更方便等。其主要功能特点有：(1)中文版本完全中文化的环境使用户更容易操作，用户能在很短的时间里就可以熟悉VB6.0的开发
18、环境。(2)具有面向对象的开发工具在VB6.0中，采用面向对象的程序设计方法，将程序和数据封装起来视为一个类，每个类都是封装的。这样使数据更具有安全性。用户在设计时需要熟悉所要使用的类，既可以在MFC下进行直观的操作，又可以在Win32环境下进行实际的手写代码设计。(3)消息映射的编程机制在编写程序代码时，各个程序段之间不一定有联系，但只要通过VB提供的消息映射机制就可以使两个代码段之间发生关联，使程序既易于编写又易于维护，符合人们正常的，习惯的思维方法，从而更方便于复杂问题的解决。(4)具有语句生成器和快速提示帮助语句生成器和快速提示帮助使用户不必记忆很多的属性和成员函数，并在较短的时间内就
19、可以开发出功能强大的应用程序，通过VB6.0提供的类库帮助，来熟悉所要使用的类的功能。从而在开发设计过程中，能起到事半功倍的效果。(5)支持多种数据库系统的访问利用数据库控件或者ODBC能够连接访问的数据库系统有，Microsoft Access、Microsoft SQL Server，Oracle，等.但是在具体的开发过程中，选择哪种数据库和数据源，应根据具体软件开发的需要和本人的实际情况来决定，由于本系统并不是很复杂，出于做为做毕业设计这一研究的需要故采用较为简单易于掌握的Access2000做为后数据库。(6)而VB语言又是软件市场上非常流行专业的开发语言之一，随着计算机技术的飞速发展
20、，计算机的程序设计语言也得到了迅猛的发展，但是在开发软件之前究竟选择哪种程序设计语言，应根据具体的程序开发需要和所在的软件开发团队的需要，以及本人对计算机程序设计语言掌握的熟练程度来决定，目前在软件开发市场上，JAVA,VB等程序设计语言成为面向对象设计的主流的开发语言。故而，由于以上各原因，本系统在开发过程中采用VB程序设计语言。1.3Windows下的VB6.0编辑环境的简介1.3.1面向对象的编程VB6.0应用程序基本的构建模块是用户所创建的对象，每一个对象都具有一定的特性和成员函数，开发人员可以根据实际需要继承系统所提供的类或者自己创建的类来定义每一个对象。类与类之间可以通过声明消息映
21、射，这样可以类所定义的对象之间能够传递消息。使应用程序具有可通用性、可扩展性同时具有了强大的功能。1.3.2实现菜单选项菜单是软件开发过程中应用的重要的工具之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，VB6.0提供了强大的创建菜单功能使程序更加标准，使用户能够更方便、更直观的访问这些命令，菜单的使用价值越来越被软件开发人员喜爱和接受。1.3.3组合框（Combo box）控件组合框（Combo box）控件是组合了文本框和列表框的特性而形成的控件。其中的列表框列出了可供用户选择的项，另外还有一个正文框，用户可以选中列表框中某项，也可在文本框中输入内容。组合框（Combo bo
22、x）有三种不同的风格，即下拉式组合框、简单组合框和下拉式列表框，其风格可由具体的编程语言进行设定和改变。1.3.4 MDI窗口的使用MDI柜架结合了父窗口和子窗口，使用所有模块共同存在一个父窗口容器中，这样做易于构造一个多模块多任务的信息管理系统，易于多模块协作，也使管理系统更加合理有效。VB6.0提供了此类用户接口，使用系统人需求分析到设计实现方便快捷而有效。第二章 系统设计与实现2.1模块功能描述主要功能是完成社区医院药品信息的管理，包括用户管理、入库管理模块，出库管理模块，库存查询模块，过期药品管理，免费药品发放、基表维护模块等模块。2.1.1 信息管理模块设计信息管理模块业务流程图如图
23、2-1所示：药品信息管理入库药品管理出库药品管理库存药品查询用户管理登记药品入库信息登记出库药品信息查询各类药品库存清理各类过期药品过期药品管理免费药品发放编辑免费发放药品编辑管理用户信息图2-1药品信息管理模块流程图2.1.2信息管理模块Adodc数据对象使用Adodc数据对象是Datagrid控件取得数据的桥梁，通过设置Adodc的连接字符，即可建立与后台数据库之间的联系，通过SQL语句将取得的数据库存放于Recordset中，之后Datagrid控件通过Datasource属性取得数据，同时adodc对像也是控件操作数据库表的得利助手，使用Adodc对象不但减少了数据往反的麻烦，也为前台
24、提供了操作控制后台数据库的便利。所以本系统主要使用Adodc对像控制后台数据库。2.2用户信息管理模块主要管理医院药库管理人员信息，可给用户分配不同的权限，以便使用户在系统中以不同的身份使用系统，从安全的角度来考虑，这不但可以最大限度的保证数据安全，又可以各司其职各负其责，从而可以有效地对用户信息进行管理。2.2.1数据处理功能设计与实现在用户信息管理模块的界面中，提供了对数据删除、增加和修改等功能， 为此加入添加、删除、更新3个按钮；添加用户时要注意其在系统中的权限，以使之可以根据安全需要来使用系统，以保证系统数据的安全性。效果图如下：(1)添加、更新功能由于前文已做叙述前台在与后数据库进行
25、交换数据是使用VB6.0提供的Adodc对像进行的，所以其相应代码较为简单：如下：/添加部分：Private Sub Command4_Click()DataGrid1.AllowUpdate = TrueAdodc1.Recordset.AddNewEnd Sub/更新部分：Private Sub Command2_Click()Adodc1.Recordset.UpdateBatchEnd Sub可见，只是使用Adodc对象的方法，实现起来较为简单，也易于理解。（2）删除功能:由于删除操作相对于数据库表来说较为危险，容易产生不可挽回的误操作，所以在删除代码中加入了删除前的提醒过程，以防止产
26、生误操作：/数据删除Private Sub Command1_Click()On Error GoTo err1Dim respond As StringWith Adodc1respond = MsgBox(当前用户将要被删除，继续吗？, 4, 特别警告)If respond = vbYes ThenDataGrid1.AllowDelete = True .Recordset.Delete .Recordset.Update DataGrid1.RefreshDataGrid1.AllowDelete = FalseEnd IfEnd WithExit Suberr1:MsgBox 数据库
27、已空或选择了无效的数据！End Sub图2-3用户信息管理删除操作2.2.2入库管理模块在药品入库登记模块，可针对三类药品进行分类登记，并可以输入药品名称时以简化代码的开式进行输入，较为方便，使用户从繁重的输入工作中解放出来，也减少了出现错误的机率。如图：2.2.3出库管理模块出库管理模块，出库分为两类，一类是院内调拔，如批量药品调拔到病房药库，另一类是销售性质的出库，此类出库应按医疗保险政策对患进行相应的报销，并进行药费进行计算。每一类出库都应对药品进行是否到期检验，以保证出库的药品都是有效，并能对根据库存量自动进行关统计计算。如图：2.2.3库存查询管理模块库存查询是系统的一个设计核心模块
28、，在本模块中查询是否灵活，直接体现本系统设计是否科学，是否人性化，是不是能给信息管理带来便利。因此，在本模块中设计了可能查询所有药品类别的库存情况，且查询字段多样，灵活，可以自己组建查询条件，如下图：2.2.4过期药品管理模块过期药品是必须不能流出库存的，必须在库存盘点进将其清理，以便在管理员的安排下做出适当的处理，否则出库到患者手中，会对患者的健康造成伤害的，如下图：2.2.5免费药品发放模块免费药品是根据上级政策，派发给患者，免费药品对于重大疾病的控制是十分重要的，因此，在对这类药品的管理中要十分重视，确保发放中的完全免费，在本模块设计中，对药品类别进行判断，对于此类药品，免收一切费用。还
29、对患者参加的医疗保在药品销售中加进运用，使药品销售性出库中进行按比便报销，报销比例按上级政策执行，执行标准可在基表维护中加以设置，如下图：2.2.6基表信息管理模块基表信息维护模块，包括药品简化代码的设置，用户信息管理，医疗保险比列设置。这此基表信息是系统中其他模块运行的基础，直接关系到系统的整体表现，所以基表应根据实际需要设计，并能随时根据现实情况进行相应变更，如下图：第三章 入库管理模块设计与实现3.1模块功能描述 入库管理主要完成三类药品入库登记，并根据出厂日期和失效日期，设置数据库中的失效标记，以完成药品的入库，方便管理人员对药品进行管理。3.1.1业务流程设计入库管理模块业务流程如图
30、3-1所示：入库明细表入库登记库存表药品（简码）入库查看代码代码明细表代码表图3-1入库管理模块业务流程图3.2入库登记模块根据医院采购药品进行入库登记。可自动生成入库编号，自动根据出厂日期和失效期设置失效标记。3.2.1入库登记模块流程设计(1)入库登记模块数据流程如图3-2所示。库存信息表药品简码表用户输入简化代码入库登记信息表图3-2入库登记模块数据流程图3.2.2关键技术(1)药品名称简化代码输入，自动填充其他信息。其原理是在后台数据库建立药品名称简化代码库，并在入库登记窗口中，当用户输入药品名称简化代码后，从数据库简化代码表中查询相应药品名称其他信息并填写到相应控件中，供管理系统进一
31、步使用。(2)药品功用有效性控制。药品在入库登记时，即根据厂家信息提供出厂日期和失效日期，并据此在数据库表中设置失效标记，以便在药品失效时及时进行清理。3.2.3入库登记模块的实现由于入库登记子模块与后台数据库交换数据，都使用数据对象控件Adodc和Recordset进行操作，所以访问数据库就变得易于操控。(1) 药品名称简化代码输入实现：Private Sub Text1_Change()On Error GoTo err3With Adodc2.RecordSource = select * from & frmmain.kcode & where 编号= & Text1.Text & .
32、RefreshIf .Recordset.AbsolutePosition adPosUnknown Then Text2.Text = .Recordset.Fields(3) Text18.Text = .Recordset.Fields(2) Text18.Locked = True Label23.ForeColor = &HFF& Label23.Caption = 已经找到 & Text1.Text & 这个代码! With Adodc1 .RecordSource = select * from & frmmain.datas & where 编号= & Text1.Text &
33、 .Refresh If .Recordset.AbsolutePosition adPosUnknown Then Command1.Enabled = False If .Recordset.Fields(数量) 0 Then Command2.Enabled = False Combo1.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text17.Text = 请填写备注 MsgBox 该药品或器械库存结余，不能继续入库！ Text1.Locked = False Text18.Locked
34、 = False Text18.Text = Text1.Text = Else Label23.ForeColor = &HFF0000 Label23.Caption = 库存 & Text18.Text & 已空,请增加库存量! Combo1.Locked = True Command2.Enabled = True Text4.Locked = True Text5.Locked = True Text2.Text = .Recordset.Fields(规格) Combo1.Text = .Recordset.Fields(单位) Text3.Text = .Recordset.Fi
35、elds(数量) Text4.Text = .Recordset.Fields(进价) Text5.Text = .Recordset.Fields(零售价) Text6.Text = .Recordset.Fields(产地) Text7.Text = .Recordset.Fields(批号) End If Else Label23.ForeColor = &HFF0000 Label23.Caption = 库房中没有 & Text18.Text & ,请添加新品种! Command2.Enabled = False Command1.Enabled = True Combo1.Lock
36、ed = False Text4.Locked = False Text5.Locked = False Combo1.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text17.Text = 请填写备注 End If End WithElseCommand1.Enabled = FalseCommand2.Enabled = FalseLabel23.ForeColor = &H12&Label23.Caption = 代码库中没有 & Text1.Text & 这个代码,应先编制代码!End IfEnd WithExi
37、t Suberr3:MsgBox 输入了非法字符或数据项填写不完整！End Sub（2）药品功用有效性控制：Private Sub Command2_Click()库存过期药品必须清理后才能入库Dim rq1 As StringDim rq2 As StringDim rq3 As StringOn Error GoTo err2With Adodc1.RecordSource = select * from & frmmain.datas & where 编号= & Text1.Text & .RefreshIf .Recordset.Fields(失效标记) = False Then If
38、 .Recordset.AbsolutePosition adPosUnknown Then .Recordset.Fields(规格) = Text2.Text .Recordset.Fields(单位) = Combo1.Text .Recordset.Fields(数量) = Text3.Text .Recordset.Fields(进价) = Text4.Text .Recordset.Fields(进价合计) = (Text3.Text) * (Text4.Text) .Recordset.Fields(零售价) = Text5.Text .Recordset.Fields(零售合计
39、) = (Text3.Text) * (Text5.Text) .Recordset.Fields(产地) = Text6.Text .Recordset.Fields(批号) = Text7.Text .Recordset.Fields(差额) = (.Recordset.Fields(零售合计) - (.Recordset.Fields(进价合计) rq1 = Text8.Text & - & Text9.Text & - & Text10.Text .Recordset.Fields(采购日期) = CDate(rq1) rq2 = Text11.Text & - & Text12.Te
40、xt & - & Text13.Text .Recordset.Fields(出厂日期) = CDate(rq2) rq3 = Text14.Text & - & Text15.Text & - & Text16.Text .Recordset.Fields(失效期) = CDate(rq3) .Recordset.Fields(备注) = Text17.Text .Recordset.UpdateBatch End If Command2.Enabled = False Text1.Enabled = True Text18.Enabled = True Label23.Caption =
41、Else MsgBox 该库存药品已经失效，须清理后才能入库！End IfEnd WithExit Suberr2:MsgBox 登记项目填写不全或数据类型不匹配！End Sub执行效果如下图：3.3库存查询模块主要负责查询社区医院药库中药品的信息。可按不同字段不同条件查询库存信息。支持模糊查询及在结果中查询。显示各品种药品的库存信息3.3.1设计思路该模块的设计思路与基础信息查询模块设计思路相近，不同的地方主要是查询字段名与数据表不同。3.3.2库存查询模块实现库存查询模块，主要是动态生成查询条件，并根据查询条件对数据库表进行查询，并将查询的结果实时显示在控制中，实现如下：Private S
42、ub Text2_Change()On Error GoTo err2With Adodc1Select Case Combo1.TextCase 药品销售.RecordSource = select * from ypxs where & Text1.Text & Like & Text2.Text & %.RefreshDataGrid1.Columns(0).Visible = FalseCase 医院药品库.RecordSource = select * from kcyp where & Text1.Text & like & Text2.Text & %.RefreshDataGr
43、id1.Columns(0).Visible = FalseCase 中草药库.RecordSource = select * from caoyao where & Text1.Text & like & Text2.Text & %.RefreshDataGrid1.Columns(0).Visible = FalseCase 医疗器材库.RecordSource = select * from qixie where & Text1.Text & like & Text2.Text & %.RefreshDataGrid1.Columns(0).Visible = FalseCase 药品调拨.RecordSource = select * from ypdb where & Text1.Text &