医院药品管理系统数据库的设计.docx

1、医院药品管理系统数据库的设计医院药品管理系统数据库的设计1、概述随着医药卫生体制改革的深入,医药连锁经营的推行以及日趋激烈的商业角逐,越来越多的医药经营企业意识到提高企业管理水平的重要性,也迫切要求加快管理信息化的进程。在医药行业中,医药经营企业的物流管理以及相应的财务处理、信息处理,长期以来一直采用手工操作,但随着产业结构调整、全新的市场竞争环境,企业管理和运营效率已经成为企业成败的关键所在,手工方式的弊端毕现无遗。这就要求药品管理摆脱过去人手操作的烦琐过程,对所有的药品管理数据实行智能管理,促使药品管理朝着科学化和规范化的方向前进。随着计算机技术的普及,在医药行业中,医药经营企业逐渐借助计

2、算机技术去完善医药的管理和提高自身的工作效率,以赢得市场竞争的胜利。因而药品管理信息系统已经成为各医药经营企业实现药品管理网络化和信息化的必备工具,是医药经营企业规模经营管理不可缺少的部件之一。同时,软件开发环境的高度集成和数据库技术的日益成熟成为开发药品管理信息系统的技术基础,大大降低了系统的开发成本。系统开发工具的智能化、人性化,使得所开发的系统充分满足了医药经营企业的各种需求,从医药经营企业的各个环节对人流、物流、资金流、信息流进行统一系统的管理。市场的需求和技术的支持,最终会导致越来越多的优秀药品管理软件的出现,并在竞争中得到不断的完善和优化。 2、需求分析这个系统是帮助他们完成日常繁

3、重窗口业务的工具。借助计算机系统，使他们凌乱的工作变得有条理，解脱他们需要记忆大量信息（药品的规格,价钱,疾病的名称与编码等）的困难。保证他们遵守某些规范，减轻他们汇总、统计、报告和传递这些信息的负担。因此，尽量符合这些事务处理级工作人员的工作秩序与工作习惯，功能完整，操作简单，响应迅速，界面友善，易学易用成为这类软件必须满足的功能要求。管理员登录以后可以很清晰的看到各种项目列表和可以实现的功能，库存管理和药品管理一目了然。由于是限定医院使用，所有只有登录系统。库存管理功能是在使用系统的开始初始化医院的库存，并进行库存管理的其他操作，可以修改库存，读取。这个药品管理系统主要涉及医院药库的药品进

4、、出、存等业务，以及入库、出库和库存管理，药品管理主要管理药库中所有药品的进出和内部统计计算，为药品会计提供基础数据，以及包括有效期的报警和下限报警。3、数据库设计本系统主要由用户管理、入库管理模块，出库管理模块，过期药品管理，供应商管理3.1系统结构图 业务流程图：3.2系统部分流程图概念设计部分主要包括实体的E-R图、联系的E-R图和系统总的E-R图。由需求分析知，基本实体有药品、职工、供应商、库存和用户登录信息。（1）药品E-R图：药品信息表字段名数据类型药品编码数字药品名文本供应商文本药剂文本售价 数子有效日期日期/时间（2）职工E-R图：职工信息表字段名数据类型职工号数字姓名文本性别

5、男/女练习方式数字身份证号数字职位 文本地址文本（3）供应商E-R图：供应商信息表字段名数据类型供应商编码数字供应商名文本负责人文本联系方式数字邮箱 文本所在城市文本地址文本（4）库存E-R图：库存信息表字段名数据类型药品编码数字药品名称文本供应商文本供应商编码文本库存量 数子（5）用户登录信息E-R图 用户登录信息表字段名数据类型用户名文本密码数字3.3各个实体关系E-R图3.4各个表的关系图4、应用程序设计4.1程序登陆界面的设计设计效果如下图：4.2程序主切换面板的设计设计效果如下图：4.3程序增删改界面的设计设计效果如下图：4.4程序查询界面的设计设计效果如下图：5、编码与调试5.1登

6、陆界面窗体程序代码的设计登陆界面窗体设计，如果在登录过程中输入密码有误，将登陆不进系统，只有输入密码正确才可以进入系统。程序代码设计如下：Option Compare DatabaseDim text As StringDim text1 As StringDim lentext As IntegerDim i As IntegerDim d As IntegerPrivate Sub Concel_Click()On Error GoTo Err_Concel_Click DoCmd.Close QuitExit_Concel_Click: Exit SubErr_Concel_Click:

7、 MsgBox Err.Description Resume Exit_Concel_Click End SubPrivate Sub OK_Click()On Error GoTo Err_OK_ClickIf Nz(password) = Nz(DLookup(密码, 用户密码表, 用户名= & & username & ) _ And Me.username Then 验证用户和密码) Me.Visible = False 隐藏窗体 DoCmd.OpenForm 主切换面板Else MsgBox 输入密码有误,请您重新输入!, , 出错 Me.username.SetFocusEnd I

8、fExit_OK_Click: Exit SubErr_OK_Click: MsgBox Err.Description Resume Exit_OK_ClickEnd Sub5.2主切换面板窗体程序代码的设计主切换面板窗体的设计，在系统登录界面验证操作员密码后，将进入程序主界面。通过程序主界面将会执行相应的权限操作，并且还可以通过主界面的菜单，来调用相应程序，再进行相应操作。程序代码设计如下：5.3增删改界面窗体程序代码的设计增删改界面窗体的设计，可以对药品增删跟供应商增删等操作。程序代码设计如下：Private Sub Command15_Click()Me.Visible = False

9、DoCmd.OpenForm 主切换面板End SubPrivate Sub Command17_Click()DoCmd.RunCommand acCmdSaveRecordDim rs As New ADODB.RecordsetDim str_temp As Stringstr_temp = select * from 库存 Where 产品编号 = & 产品编号 & rs.Open str_temp, CurrentProject.Connection, adOpenDynamic, adLockOptimisticIf Not IsNull(rs) Thenrs(库存量) = rs(

10、库存量) + 入库数量rs.UpdateEnd Sub5.4查询界面窗体程序代码的设计查询界面窗体的设计，根据输入的职工号、判断数据库中是否存在其中的信息。如果存在，则将这个节点的所有信息输出。如果不存在，则输出不存在。程序代码设计如下：Private Sub Command20_Click()Me.Visible = FalseDoCmd.OpenForm 主切换面板End SubPrivate Sub 取消_Click() On Error GoTo Err_btn_clear_Click Dim ctl As Control For Each ctl In Me.Controls Sel

11、ect Case ctl.ControlType Case acTextBox If ctl.Locked = False Then ctl.Value = Null Case acComboBox ctl.Value = Null End Select NextExit_btn_clear_Click: Exit SubErr_btn_clear_Click:End Sub6、总结这个系统不仅可以查询药品信息、供应商信息、药品库存信息、药品入库信息、药品出库信息、用户取药记录的查询，还可以对药品添加跟删除，大大方便了药品的管理，同时还有供应商的删除添加窗体，这样把药品跟供应商信息更好的联系起来了，方便管理。 但是由于知识的局限性，不能把库存信息跟入库信息和出库信息联系起来，所以对于新进的药品与已经卖出去的药品，管理起来还是比较繁琐。