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

上传人:b****1 文档编号:235017 上传时间:2022-10-07 格式:DOC 页数:15 大小:481KB
下载 相关 举报
医院药品管理系统数据库的设计.doc_第1页
第1页 / 共15页
医院药品管理系统数据库的设计.doc_第2页
第2页 / 共15页
医院药品管理系统数据库的设计.doc_第3页
第3页 / 共15页
医院药品管理系统数据库的设计.doc_第4页
第4页 / 共15页
医院药品管理系统数据库的设计.doc_第5页
第5页 / 共15页
点击查看更多>>
下载资源
资源描述

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

《医院药品管理系统数据库的设计.doc》由会员分享,可在线阅读,更多相关《医院药品管理系统数据库的设计.doc(15页珍藏版)》请在冰豆网上搜索。

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

目录

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

1、概述 1

2、需求分析 2

3、数据库设计 2

3.1系统结构图 2

3.2系统部分流程图 3

3.3各个实体关系E-R图 6

3.4各个表的关系图 7

4、应用程序设计 8

4.1程序登陆界面的设计 8

4.2程序主切换面板的设计 9

4.3程序增删改界面的设计 10

4.4程序查询界面的设计 10

5、编码与调试 11

5.1登陆界面窗体程序代码的设计 11

5.2主切换面板窗体程序代码的设计 12

5.3增删改界面窗体程序代码的设计 14

5.4查询界面窗体程序代码的设计 14

6、总结 15

2

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

1、概述

随着医药卫生体制改革的深入,医药连锁经营的推行以及日趋激烈的商业角逐,越来越多的医药经营企业意识到提高企业管理水平的重要性,也迫切要求加快管理信息化的进程。

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

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

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

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

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

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

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

2、需求分析

这个系统是帮助他们完成日常繁重窗口业务的工具。

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

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

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

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

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

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

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

3、数据库设计

本系统主要由用户管理、入库管理模块,出库管理模块,过期药品管理,供应商管理

3.1系统结构图

药品信息查询

药品信息报表

出库管理

医院药品管理

取药记录计费

取药记录报表

取药记录查询

药品信息管理

修改

库存

库存

查询

入库

登记

入库管理

药库

清理

供应商信息查询

供应商查询

免费药品清理

删除

过期

过期药品管理

编辑

信息

修改

权限

添加

用户

用户管理

业务流程图:

药品

库存

职工

供应商

订单

入库

出库

3.2系统部分流程图

概念设计部分主要包括实体的E-R图、联系的E-R图和系统总的E-R图。

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

(1)药品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登陆界面窗体程序代码的设计

登陆界面窗体设计,如果在登录过程中输入密码有误,将登陆不进系统,只有输入密码正确才可以进入系统。

程序代码设计如下:

OptionCompareDatabase

DimtextAsString

Dimtext1AsString

DimlentextAsInteger

DimiAsInteger

DimdAsInteger

PrivateSubConcel_Click()

OnErrorGoToErr_Concel_Click

'DoCmd.Close

Quit

Exit_Concel_Click:

ExitSub

Err_Concel_Click:

MsgBoxErr.Description

ResumeExit_Concel_Click

EndSub

PrivateSubOK_Click()

OnErrorGoToErr_OK_Click

IfNz([password])=Nz(DLookup("[密码]","用户密码表","[用户名]="&"'"&username&"'"))_

AndMe.username<>""Then'验证用户和密码)

Me.Visible=False'隐藏窗体

DoCmd.OpenForm"主切换面板"

Else

MsgBox"输入密码有误,请您重新输入!

",,"出错"

Me.username.SetFocus

EndIf

Exit_OK_Click:

ExitSub

Err_OK_Click:

MsgBoxErr.Description

ResumeExit_OK_Click

EndSub

5.2主切换面板窗体程序代码的设计

主切换面板窗体的设计,在系统登录界面验证操作员密码后,将进入程序主界面。

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

程序代码设计如下:

5.3增删改界面窗体程序代码的设计

增删改界面窗体的设计,可以对药品增删跟供应商增删等操作。

程序代码设计如下:

PrivateSubCommand15_Click()

Me.Visible=False

DoCmd.OpenForm"主切换面板"

EndSub

PrivateSubCommand17_Click()

DoCmd.RunCommandacCmdSaveRecord

DimrsAsNewADODB.Recordset

Dimstr_tempAsString

str_temp="select*from库存Where产品编号="&产品编号&""

rs.Openstr_temp,CurrentProject.Connection,adOpenDynamic,adLockOptimistic

IfNotIsNull(rs)Then

rs("库存量")=rs("库存量")+入库数量

rs.Update

EndSub

5.4查询界面窗体程序代码的设计

查询界面窗体的设计,根据输入的职工号、判断数据库中是否存在其中的信息。

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

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

程序代码设计如下:

PrivateSubCommand20_Click()

Me.Visible=False

DoCmd.OpenForm"主切换面板"

EndSub

PrivateSub取消_Click()

OnErrorGoToErr_btn_clear_Click

DimctlAsControl

ForEachctlInMe.Controls

SelectCasectl.ControlType

CaseacTextBox

Ifctl.Locked=FalseThenctl.Value=Null

CaseacComboBox

ctl.Value=Null

EndSelect

Next

Exit_btn_clear_Click:

ExitSub

Err_btn_clear_Click:

EndSub

6、总结

这个系统不仅可以查询药品信息、供应商信息、药品库存信息、药品入

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 考试认证 > IT认证

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1