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

1、.-1医院药品管理系统数据库的设计1、概述12、需求分析13、数据库设计23.1 系统构造图23.2 系统局部流程图43.3 各个实体关系 E-R图93.4 各个表的关系图4、应用程序设计4.1 程序登陆界面的设计4.2 程序主切换面板的设计4.3 程序增删改界面的设计4.4 程序查询界面的设计5、编码与调试5.1 登陆界面窗体程序代码的设计5.2 主切换面板窗体程序代码的设计5.3 增删改界面窗体程序代码的设计5.4 查询界面窗体程序代码的设计6、总结.- 优质文档-.-1、概述随着医药卫生体制改革的深入,医药连锁经营的推行以及日趋剧烈的商业角逐,越来越多的医药经营企业意识到提高企业管理水平

2、的重要性,也迫切要求加快管理信息化的进程。在医药行业中,医药经营企业的物流管理以及相应的财务处理、信息处理,长期以来一直采用手工操作,但随着产业构造调整、全新的市场竞争环境,企业管理和运营效率已经成为企业成败的关键所在,手工方式的弊端毕现无遗。这就要求药品管理摆脱过去人手操作的烦琐过程,对所有的药品管理数据实行智能管理,促使药品管理朝着科学化和规 X 化的方向前进。随着计算机技术的普及,在医药行业中,医药经营企业逐渐借助计算机技术去完善医药的管理和提高自身的工作效率,以赢得市场竞争的胜利。因而药品管理信息系统已经成为各医药经营企业实现药品管理网络化和信息化的必备工具 ,是医药经营企业规模经营管

3、理不可缺少的部件之一。同时 ,软件开发环境的高度集成和数据库技术的日益成熟成为开发药品管理信息系统的技术根底 ,大大降低了系统的开发本钱。系统开发工具的智能化、人性化 ,使得所开发的系统充分满足了医药经营企业的各种需求,从医药经营企业的各个环节对人流、物流、资金流、信息流进展统一系统的管理。市场的需求和技术的支持 ,最终会导致越来越多的优秀药品管理软件的出现,并在竞争中得到不断的完善和优化。2、需求分析.- 优质文档-.们凌乱的工作变得有条理，解脱他们需要记忆大量信息药品的规格,价钱,疾病的名称与编码等的困难。保证他们遵守某些规X，减轻他们汇总、统计、报告工作习惯，功能完整，操作简单，响应迅速

4、，界面友善，易学易用成为这类软件必须满足的功能要求。理和药品管理一目了然。由于是限定医院使用，所有只有登录系统。库存管理功改库存，读取。这个药品管理系统主要涉及医院药库的药品进、出、存等业务，计计算，为药品会计提供根底数据，以及包括有效期的报警和下限报警。3、数据库设计本系统主要由用户管理、入库管理模块，出库管理模块，过期药品管理，供应商管理3.1 系统构造图出库管理息报表取药记录查询取药记录报表取药记录计费医院药品.word.入库登记库存查询修改库存入库管理供应商信息查药库清理供应商查询删除过期过期药品管理品清理添加用户修改权限编辑信息用户管理业务流程图：订单.word.3.2 系统局部流程

5、图概念设计局部主要包括实体的 E-R 图、联系的E-R 图和系统总的 E-R图。由需求分析知，根本实体有药品、职工、供应商、库存和用户登录信息。（1） 药品 E-R 图：.word.药品信息表有效日期日期/时间2职工 E-R 图：号.word.职工信息表3供应商 E-R 图：供应商名供应商编XX性别文本文本地址.word.供应商信息表文本文本所在城市地址文本4库存 E-R 图：.word.库存信息表字段名药品编码药品名称供应商文本供应商编码库存量数子5用户登录信息 E-R 图用户名用户登录信息表.word.字段名用户名密码数据类型文本数字3.3 各个实体关系 E-R图供求供应供应商职工.wor

6、d.3.4 各个表的关系图.word.4.1 程序登陆界面的设计设计效果如以下图：.word.4.2 程序主切换面板的设计设计效果如以下图：.word.word.4.3 程序增删改界面的设计设计效果如以下图：.word.4.4 程序查询界面的设计设计效果如以下图：.word.Dim lentext As IntegerDim i As Integer.word.Dim d As IntegerPrivate Sub Concel_Click()On Error GoTo Err_Concel_ClickDoCmd.CloseQuitExit_Concel_Click:Exit SubErr_C

7、oncel_Click:MsgBox Err.DescriptionResume Exit_Concel_ClickEnd 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.word.Exit_OK_Click:Exit SubErr_OK_Click:MsgBox Er

8、r.DescriptionResume Exit_OK_ClickEnd Sub5.2 主切换面板窗体程序代码的设计.word.5.3 增删改界面窗体程序代码的设计Private Sub mand17_Click()DoCmd.Runmand acCmdSaveRecord.word.Dim rs As New ADODB.RecordsetDim str_temp As Stringstr_temp = select * from 库存 Where 产品编号 = & 产品编号 & rs.Open str_temp, CurrentProject.Connection, adOpenDynam

9、ic, adLockOptimisticIf Not IsNull(rs) Thenrs(库存量) = rs(库存量) + 入库数量rs.UpdateEnd Sub5.4 查询界面窗体程序代码的设计程序代码设计如下：Private Sub mand20_Click()Me.Visible = FalseDoCmd.OpenForm 主切换面板End SubPrivate Sub 取消_Click()On Error GoTo Err_btn_clear_ClickDim ctl As ControlFor Each ctl In Me.Controls.word.Select Case ctl.ControlTypeCase acTextBoxIf ctl.Locked = False Then ctl.Value = NullCase acboBoxctl.Value = NullEnd SelectNextExit_btn_clear_Click:Exit S