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

目录
医院药品管理系统数据库的设计 (1)
1、概述 (1)
2、需求分析 (1)
3、数据库设计 (2)
3.1系统结构图 (2)
3.2系统部分流程图 (3)
3.3各个实体关系E-R图 (6)
3.4各个表的关系图 (7)
4、应用程序设计 (7)
4.1程序登陆界面的设计 (7)
4.2程序主切换面板的设计 (8)
4.3程序增删改界面的设计 (9)
4.4程序查询界面的设计 (10)
5、编码与调试 (10)
5.1登陆界面窗体程序代码的设计 (10)
5.2主切换面板窗体程序代码的设计 (11)
5.3增删改界面窗体程序代码的设计 (13)
5.4查询界面窗体程序代码的设计 (13)
6、总结 (14)
医院药品管理系统数据库的设计
1、概述
随着医药卫生体制改革的深入,医药连锁经营的推行以及日趋激烈的商业角逐,越来越多的医药经营企业意识到提高企业管理水平的重要性,也迫切要求加快管理信息化的进程。

在医药行业中,医药经营企业的物流管理以及相应的财务处理、信息处理,长期以来一直采用手工操作,但随着产业结构调整、全新的市场竞争环境,企业管理和运营效率已经成为企业成败的关键所在,手工方式的弊端毕现无遗。

这就要求药品管理摆脱过去人手操作的烦琐过程,对所有的药品管理数据实行智能管理,促使药品管理朝着科学化和规范化的方向前进。

随着计算机技术的普及,在医药行业中,医药经营企业逐渐借助计算机技术去完善医药的管理和提高自身的工作效率,以赢得市场竞争的胜利。

因而药品管理信息系统已经成为各医药经营企业实现药品管理网络化和信息化的必备工具,是医药经营企业规模经营管理不可缺少的部件之一。

同时,软件开发环境的高度集成和数据库技术的日益成熟成为开发药品管理信息系统的技术基础,大大降低了系统的开发成本。

系统开发工具的智能化、人性化,使得所开发的系统充分满足了医药经营企业的各种需求,从医药经营企业的各个环节对人流、物流、资金流、信息流进行统一系统的管理。

市场的需求和技术的支持,最终会导致越来越多的优秀药品管理软件的出现,并在竞争中得到不断的完善和优化。

2、需求分析
这个系统是帮助他们完成日常繁重窗口业务的工具。

借助计算机系统，使他们凌乱的工作变得有条理，解脱他们需要记忆大量信息（药品的规格,价钱,疾病的名称与编码等）的困难。

保证他们遵守某些规范，减轻他们汇总、统计、报告和传递这些信息的负担。

因此，尽量符合这些事务处理级工作人员的工作秩序与工作习惯，功能完整，操作简单，响应迅速，界面友善，易学易用成为这类软件必须满足的功能要求。

管理员登录以后可以很清晰的看到各种项目列表和可以实现的功能，库存管理和药品管理一目了然。

由于是限定医院使用，所有只有登录系统。

库存管理功
能是在使用系统的开始初始化医院的库存，并进行库存管理的其他操作，可以修改库存，读取。

这个药品管理系统主要涉及医院药库的药品进、出、存等业务，以及入库、出库和库存管理，药品管理主要管理药库中所有药品的进出和内部统计计算，为药品会计提供基础数据，以及包括有效期的报警和下限报警。

3、数据库设计
本系统主要由用户管理、入库管理模块，出库管理模块，过期药品管理，供应商管理
3.1系统结构图
业务流程图：
3.2系统部分流程图
概念设计部分主要包括实体的E-R图、联系的E-R图和系统总的E-R图。

由需求分析知，基本实体有药品、职工、供应商、库存和用户登录信息。

（1）药品E-R图：
药品信息表
（2）职工E-R图：
职工信息表
（3）供应商E-R图：
用户登录信息表
3.3各个实体关系E-R图
3.4各个表的关系图
4、应用程序设计
4.1程序登陆界面的设计
设计效果如下图：
4.2程序主切换面板的设计设计效果如下图：
4.3程序增删改界面的设计设计效果如下图：
4.4程序查询界面的设计
设计效果如下图：
5、编码与调试
5.1登陆界面窗体程序代码的设计
登陆界面窗体设计，如果在登录过程中输入密码有误，将登陆不进系统，只有输入密码正确才可以进入系统。

程序代码设计如下：
Option Compare Database
Dim text As String
Dim text1 As String
Dim lentext As Integer
Dim i As Integer
Dim d As Integer
Private Sub Concel_Click()
On Error GoTo Err_Concel_Click
' DoCmd.Close
Quit
Exit_Concel_Click:
Exit Sub
Err_Concel_Click:
MsgBox Err.Description
Resume Exit_Concel_Click
End Sub
Private Sub OK_Click()
On Error GoTo Err_OK_Click
If Nz([password]) = Nz(DLookup("[密码]", "用户密码表", "[用户名]=" & "'" & username & "'")) _
And ername <> "" Then '验证用户和密码)
Me.Visible = False '隐藏窗体
DoCmd.OpenForm "主切换面板"
Else
MsgBox "输入密码有误,请您重新输入!", , "出错"
ername.SetFocus
End If
Exit_OK_Click:
Exit Sub
Err_OK_Click:
MsgBox Err.Description
Resume Exit_OK_Click
End Sub
5.2主切换面板窗体程序代码的设计
主切换面板窗体的设计，在系统登录界面验证操作员密码后，将进入程序主界面。

通过程序主界面将会执行相应的权限操作，并且还可以通过主界面的菜单，来调用相应程序，再进行相应操作。

程序代码设计如下：
5.3增删改界面窗体程序代码的设计
增删改界面窗体的设计，可以对药品增删跟供应商增删等操作。

程序代码设计如下：
Private Sub Command15_Click()
Me.Visible = False
DoCmd.OpenForm "主切换面板"
End Sub
Private Sub Command17_Click()
DoCmd.RunCommand acCmdSaveRecord
Dim rs As New ADODB.Recordset
Dim str_temp As String
str_temp = "select * from 库存 Where 产品编号 =" & 产品编号 & ""
rs.Open str_temp, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
If Not IsNull(rs) Then
rs("库存量") = rs("库存量") + 入库数量
rs.Update
End Sub
5.4查询界面窗体程序代码的设计
查询界面窗体的设计，根据输入的职工号、判断数据库中是否存在其中的信息。

如果存在，则将这个节点的所有信息输出。

如果不存在，则输出不存在。

程序代码设计如下：
Private Sub Command20_Click()
Me.Visible = False
DoCmd.OpenForm "主切换面板"
End Sub
Private Sub 取消_Click()
On Error GoTo Err_btn_clear_Click
Dim ctl As Control
For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox
If ctl.Locked = False Then ctl.Value = Null
Case acComboBox
ctl.Value = Null
End Select
Next
Exit_btn_clear_Click:
Exit Sub
Err_btn_clear_Click:
End Sub
6、总结
这个系统不仅可以查询药品信息、供应商信息、药品库存信息、药品入库信息、药品出库信息、用户取药记录的查询，还可以对药品添加跟删除，大大方便了药品的管理，同时还有供应商的删除添加窗体，这样把药品跟供应商信息更好的联系起来了，方便管理。

但是由于知识的局限性，不能把库存信息跟入库信息和出库信息联系起来，所以对于新进的药品与已经卖出去的药品，管理起来还是比较繁琐。