![医院药品管理系统数据库得设计_第1页](http://file4.renrendoc.com/view14/M07/11/19/wKhkGWaPgoiAQubdAAF_1LwT2Dc224.jpg)
![医院药品管理系统数据库得设计_第2页](http://file4.renrendoc.com/view14/M07/11/19/wKhkGWaPgoiAQubdAAF_1LwT2Dc2242.jpg)
![医院药品管理系统数据库得设计_第3页](http://file4.renrendoc.com/view14/M07/11/19/wKhkGWaPgoiAQubdAAF_1LwT2Dc2243.jpg)
![医院药品管理系统数据库得设计_第4页](http://file4.renrendoc.com/view14/M07/11/19/wKhkGWaPgoiAQubdAAF_1LwT2Dc2244.jpg)
![医院药品管理系统数据库得设计_第5页](http://file4.renrendoc.com/view14/M07/11/19/wKhkGWaPgoiAQubdAAF_1LwT2Dc2245.jpg)
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
目录医院药品管理系统数据库得设计 11、概述 12、需求分析 23、数据库设计 23、1系统结构图 23、2系统部分流程图 33、3各个实体关系E-R图 63、4各个表得关系图 74、应用程序设计 84、1程序登陆界面得设计 84、2程序主切换面板得设计 94、3程序增删改界面得设计 104、4程序查询界面得设计 105、编码与调试 115、1登陆界面窗体程序代码得设计 115、2主切换面板窗体程序代码得设计 125、3增删改界面窗体程序代码得设计 145、4查询界面窗体程序代码得设计 146、总结 15医院药品管理系统数据库得设计1、概述随着医药卫生体制改革得深入,医药连锁经营得推行以及日趋激烈得商业角逐,越来越多得医药经营企业意识到提高企业管理水平得重要性,也迫切要求加快管理信息化得进程。在医药行业中,医药经营企业得物流管理以及相应得财务处理、信息处理,长期以来一直采用手工操作,但随着产业结构调整、全新得市场竞争环境,企业管理与运营效率已经成为企业成败得关键所在,手工方式得弊端毕现无遗。这就要求药品管理摆脱过去人手操作得烦琐过程,对所有得药品管理数据实行智能管理,促使药品管理朝着科学化与规范化得方向前进。随着计算机技术得普及,在医药行业中,医药经营企业逐渐借助计算机技术去完善医药得管理与提高自身得工作效率,以赢得市场竞争得胜利。因而药品管理信息系统已经成为各医药经营企业实现药品管理网络化与信息化得必备工具,就是医药经营企业规模经营管理不可缺少得部件之一。同时,软件开发环境得高度集成与数据库技术得日益成熟成为开发药品管理信息系统得技术基础,大大降低了系统得开发成本。系统开发工具得智能化、人性化,使得所开发得系统充分满足了医药经营企业得各种需求,从医药经营企业得各个环节对人流、物流、资金流、信息流进行统一系统得管理。市场得需求与技术得支持,最终会导致越来越多得优秀药品管理软件得出现,并在竞争中得到不断得完善与优化。2、需求分析这个系统就是帮助她们完成日常繁重窗口业务得工具。借助计算机系统,使她们凌乱得工作变得有条理,解脱她们需要记忆大量信息(药品得规格,价钱,疾病得名称与编码等)得困难。保证她们遵守某些规范,减轻她们汇总、统计、报告与传递这些信息得负担。因此,尽量符合这些事务处理级工作人员得工作秩序与工作习惯,功能完整,操作简单,响应迅速,界面友善,易学易用成为这类软件必须满足得功能要求。管理员登录以后可以很清晰得瞧到各种项目列表与可以实现得功能,库存管理与药品管理一目了然。由于就是限定医院使用,所有只有登录系统。库存管理功能就是在使用系统得开始初始化医院得库存,并进行库存管理得其她操作,可以修改库存,读取。这个药品管理系统主要涉及医院药库得药品进、出、存等业务,以及入库、出库与库存管理,药品管理主要管理药库中所有药品得进出与内部统计计算,为药品会计提供基础数据,以及包括有效期得报警与下限报警。3、数据库设计本系统主要由用户管理、入库管理模块,出库管理模块,过期药品管理,供应商管理3、1系统结构图药品信息查询药品信息查询药品信息报表出库管理医院药品管理药品信息报表出库管理医院药品管理取药记录计费取药记录报表取药记录查询药品信息管理取药记录计费取药记录报表取药记录查询药品信息管理修改库存库存查询修改库存库存查询入库登记入库管理药库清理供应商信息查询药库清理供应商信息查询供应商查询免费药品清理删除过期免费药品清理删除过期过期药品管理编辑信息修改权限编辑信息修改权限添加用户用户管理业务流程图:药品药品库存职工供应商订单入库出库3、2系统部分流程图概念设计部分主要包括实体得E-R图、联系得E-R图与系统总得E-R图。由需求分析知,基本实体有药品、职工、供应商、库存与用户登录信息。药品E-R图:药品药品药品编码药品名称药剂供应商有效日期售价药品信息表字段名数据类型药品编码数字药品名文本供应商文本药剂文本售价数子有效日期日期/时间(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登陆界面窗体程序代码得设计登陆界面窗体设计,如果在登录过程中输入密码有误,将登陆不进系统,只有输入密码正确才可以进入系统。程序代码设计如下:OptionpareDatabaseDimtextAsStringDimtext1AsStringDimlentextAsIntegerDimiAsIntegerDimdAsIntegerPrivateSubConcel_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增删改界面窗体程序代码得设计增删改界面窗体得设计,可以对药品增删跟供应商增删等操作。程序代码设计如下:PrivateSubmand15_Click()Me、Visible=FalseDoCmd、OpenForm"主切换面板"EndSubPrivateSubmand17_Click()DoCmd、RunmandacCmdSaveRecordDimrsAsNewADODB、RecordsetDimstr_tempAsStringstr_temp="select*from库存Where产品编号="&产品编号&""rs、Openstr_temp,CurrentProject、Connection,adOpenDynamic,adLockOptimisticIfNotIsNull(rs)Thenrs("库存量")=rs("库存量")+入库数量rs、UpdateEndSub5、4查询界面窗体程序代码得设计查询界面窗体得设计,根据输入得职工号、判断数据库中就是否存在其中得信息。如果存在,则将这个节点得所有信息输出。如果不存在,则输出不存在。程序代码设计如下:PrivateSubmand20_Click()Me、Visible=FalseDoCmd、OpenForm"主切换面板"EndSubPrivateSub取消_Click()OnErrorGoToErr_btn_clear_ClickDimctlAsControlForEachctlInMe、ControlsSelectCasectl、ControlTypeCaseacTextBoxIfctl、Locked=FalseThenctl、Value=NullCaseacboBoxctl、Value=NullEndSelectNextExit_btn_clear_Click:Exit
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 空气动力学仿真技术:计算流体力学(CFD):高温气体动力学仿真
- 空气动力学方程:状态方程:空气动力学基础理论
- 小学五年级下学期数学《合数、质数》微课课件
- 安全检查目录
- 中职技能大赛(汽车机电维修赛项)理论考试题库(含答案)
- 智慧城管信息系统建设方案
- 2024年全国职业院校技能大赛(中职组)现代模具制造技术试题库-上(单选题)
- 保安员上岗资格证考试试卷及答案
- 保健医生上岗培训考试试题及答案
- 中班教案小马反思
- 中英文版本雇佣合同
- 餐饮业成本核算 全套课件
- GB∕T 37587-2019 埋地钢质弯管聚乙烯防腐带耐蚀作业技术规范
- 手工具安全使用培训
- 温度和温标 教案 高中物理新人教版选择性必修第三册(2022年)
- 消化内科诊疗指南和技术操作规范
- 部编版《道德与法治》小学二年级上册第13课《我爱家乡山和水》精美课件
- 【小升初】苏教版2022-2023学年六年级下册数学期末升学分班考重难点模拟冲刺卷(A卷)含解析
- 建筑消防设施检测诚信承诺书
- 产品经理认证(NPDP)课件
- 煤矿安全操作规程(完整)
评论
0/150
提交评论