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

医院药品管理系统数据库的设计1、概述随着医药卫生体制改革的深入,医药连锁经营的推行以及日趋激烈的商业角逐,越来越多的医药经营企业意识到提高企业管理水平的重要性,也迫切要求加快管理信息化的进程。在医药行业中,医药经营企业的物流管理以及相应的财务处理、信息处理,长期以来一直采用手工操作,但随着产业结构调整、全新的市场竞争环境,企业管理和运营效率已经成为企业成败的关键所在,手工方式的弊端毕现无遗。这就要求药品管理摆脱过去人手操作的烦琐过程,对所有的药品管理数据实行智能管理,促使药品管理朝着科学化和规范化的方向前进。随着计算机技术的普及,在医药行业中,医药经营企业逐渐借助计算机技术去完善医药的管理和提高自身的工作效率,以赢得市场竞争的胜利。因而药品管理信息系统已经成为各医药经营企业实现药品管理网络化和信息化的必备工具,是医药经营企业规模经营管理不可缺少的部件之一。同时,软件开发环境的高度集成和数据库技术的日益成熟成为开发药品管理信息系统的技术基础,大大降低了系统的开发成本。系统开发工具的智能化、人性化,使得所开发的系统充分满足了医药经营企业的各种需求,从医药经营企业的各个环节对人流、物流、资金流、信息流进行统一系统的管理。市场的需求和技术的支持,最终会导致越来越多的优秀药品管理软件的出现,并在竞争中得到不断的完善和优化。2、需求分析这个系统是帮助他们完成日常繁重窗口业务的工具。借助计算机系统，使他们凌乱的工作变得有条理，解脱他们需要记忆大量信息（药品的规格,价钱,疾病的名称与编码等）的困难。保证他们遵守某些规范，减轻他们汇总、统计、报告和传递这些信息的负担。因此，尽量符合这些事务处理级工作人员的工作秩序与工作习惯，功能完整，操作简单，响应迅速，界面友善，易学易用成为这类软件必须满足的功能要求。管理员登录以后可以很清晰的看到各种项目列表和可以实现的功能，库存管理和药品管理一目了然。由于是限定医院使用，所有只有登录系统。库存管理功（2）职工E-R图：性别职工性别职工姓名联系方式身份证号职位职工号地址职工信息表字段名数据类型职工号数字姓名文本性别男/女练习方式数字身份证号数字职位文本地址文本（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登陆界面窗体程序代码的设计登陆界面窗体设计，如果在登录过程中输入密码有误，将登陆不进系统，只有输入密码正确才可以进入系统。程序代码设计如下：OptionCompareDatabaseDimtextAsStringDimtext1AsStringDimlentextAsIntegerDimiAsIntegerDimdAsIntegerPrivateSubConcel_Click()OnErrorGoToErr_Concel_Click'DoCmd.CloseQuitExit_Concel_Click:ExitSubErr_Concel_Click:MsgBoxErr.DescriptionResumeExit_Concel_ClickEndSubPrivateSubOK_Click()OnErrorGoToErr_OK_ClickIfNz([password])=Nz(DLookup("[密码]","用户密码表","[用户名]="&"'"&username&"'"))_AndMe.username<>""Then'验证用户和密码)Me.Visible=False'隐藏窗体DoCmd.OpenForm"主切换面板"ElseMsgBox"输入密码有误,请您重新输入!",,"出错"Me.username.SetFocusEndIfExit_OK_Click:ExitSubErr_OK_Click:MsgBoxErr.DescriptionResumeExit_OK_ClickEndSub5.2主切换面板窗体程序代码的设计主切换面板窗体的设计，在系统登录界面验证操作员密码后，将进入程序主界面。通过程序主界面将会执行相应的权限操作，并且还可以通过主界面的菜单，来调用相应程序，再进行相应操作。程序代码设计如下：5.3增删改界面窗体程序代码的设计增删改界面窗体的设计，可以对药品增删跟供应商增删等操作。程序代码设计如下：PrivateSubCommand15_Click()Me.Visible=FalseDoCmd.OpenForm"主切换面板"EndSubPrivateSubCommand17_Click()DoCmd.RunCommandacCmdSaveRecordDimrsAsNewADODB.RecordsetDimstr_tempAsStringstr_temp="select*from库存Where产品编号="&产品编号&""rs.Openstr_temp,CurrentProject.Connection,adOpenDynamic,adLockOptimisticIfNotIsNull(rs)Thenrs("库存量")=rs("库存量")+入库数量rs.UpdateEndSub5.4查询界面窗体程序代码的设计查询界面窗体的设计，根据输入的职工号、判断数据库中是否存在其中的信息。如果存在，则将这个节点的所有信息输出。如果不存在，则输出不存在。程序代码设计如下：PrivateSubCommand20_Click()Me.Visible=FalseDoCmd.OpenForm"主切换面板"EndSubPrivateSub取消_Click()OnErrorGoToErr_btn_clear_ClickDimctlAsControlForEachctlInMe.ControlsSelectCasectl.ControlTypeCaseacTextBoxIfctl.Locked=FalseThenctl.Value=NullCaseacComboBoxctl.Value=NullEndSelectNextExit_btn_clear_Click:ExitSubErr_btn_clear_Click:EndSub6、总结这个系统不仅可