药店管理信息系统报告.docx

药店管理信息系统报告.docx

《药店管理信息系统报告.docx》由会员分享，可在线阅读，更多相关《药店管理信息系统报告.docx（87页珍藏版）》请在冰点文库上搜索。

药店管理信息系统报告

........

成绩

管理信息系统课程设计报告

系统名称药店信息管理系统

班级

管093

姓名张新萌、田新驰、李新雷

学号

04、

06、12

.专业学习资料.

........

2011年12月14日

一、系统分析

系统名称：

药店管理信息系统.

装订线

开发背景、目的、意义：

随着人们生活水平的提高

，健康意识的增强，对医药产品的需

求也迅速增加。

药店作为医药产品的主要销售渠道

，也处于高速发展时期

，同时也加剧了

产业间的竞争。

为了加强企业的内部管理

，提高运营效率，利用现代信息技术提高企业的

管理水平已非常迫切。

另外，由于医药产品种类繁多

、销售模式特殊、业务量大，单凭手

工记账已很难适应工作的需要

。

医药作为一个关系到人们健良的特殊行业

，国家对医药行

业又有一些不同于其他行业的管理政策

，这些都加大了管理的难度

。

如何尽快建立和完善

现代企业的信息化管理机制问题

，已成为医药企业发展的关键所在

。

本课题以提高药店的医药管理水平和效率为目标

，建立了管理信息系统

。

该系统能集中处

理药品的进销存业务及其应付账目

，实现了药店的现代化管理。

实现目标：

面对医药行业的高速发展及其发展过程中出现的各种情况

，药店管理信息系

统在实施后，应能够达到以下目标：

（1）实现多点操作的信息共享，相互之间的信息传递准确，快捷和顺畅。

（2）全面自动化管理，可随时掌握药品的库存、销售等情况。

（3）系统界面友好美观，操作简单易行，查询灵活方便，数据存储安全。

（4）能够快速、准确地处理药品进、销、存、退、盘点、变价、折扣等多种业务模式。

（5）提供助记码及支持多种结算方式。

（6）系统维护方便可靠，有较高的安全性，满足实用性，先进性的要求。

（5）

系统功能：

本系统由系统设置、日常业务、查询统计、库存管理、基础信息管理五大分

.专业学习资料.

........

系统组成。

主要功能如下：

（1）系统设置：

初期建账，密码设置，数据备份，数据恢复。

（2）日常业务：

入库单，销售单，入库退单，销售退单。

（3）查询统计：

入库查询，销售查询，入库退货查询，销售退货查询。

（5）库存管理：

库存盘点，库存查询，价格管理。

（6）基础信息管理：

客户管理，供应商管理。

药店管理信息系统E-R图

.专业学习资料.

........

商家号商家名所在地经理联系方式供货量

供货商

M

N

提供

P

药店

药品

M

1

M

数量

单价

时间

库存

购买

管理

交易

种类

金额

1

1

1

M

顾客

经理

M

药品库

查询

顾客信息查询

1

欠款查询

1

查询

药品库存量查询新入库药品查询

2.2概念模型

通过对用户需求分析进行综合、归纳与抽象、形成一个独立于具体DBMS

的概念模型。

在本药店管理系统中涉及到了2种概念模型的抽象

药品

Ispartof

药品编号药品名药品规格供应商生产日期

.专业学习资料.

........

聚集模型

查询

销售查询入库查询

概况模型

2.3用例图和顶层数据流图

《communicate》

供货商

《communicate》管理药店《extend》打印购药信息

《communicate》

《communicate》

交易药品

顾客

经理

《include

》

《communicate》

查询

顾客信息查询

《include

》

药品库存查询

总体分析的用例图

.专业学习资料.

........

药店信息库

查询进货

经理供货商

代售

经理与供货商的用例图

药品查询

顾客经理

顾客查询

更新顾客信息

交易

顾客与经理间的用例图

.专业学习资料.

........

填写好的

供应商信

供应商信

供应商信息

息

填写

息

供应商

处理好的

采购单

填好的仓

仓库信息

3.0

库信息

仓库信息

填写仓库

仓库

采购

信息

所需药品

药

品

编好号的采购单

来

填好的药

药品信息

自

品信息

填写药品

依

药品信息

药品

采购单信息

信息

据

所需药品

信

息

顾客信息

所购药品

依据消费

下

领取

发

单上的药

填

品列表为

确认的消

写

凭盖好章

顾客

2.0处理

费单

顾客

的消费单

经理

消费单

确定未付款

经理信息

的消费单

未处理的

消费单

已编过号

付款后进

填写经理

行

的消费单

信息

1.0

填好的经

消费单信息

付款

理信息

经理信息

顶层数据流图

1.系统总体设计

（1）分解的数据流图

交

易

金

额

付款

确

认

收

货

.专业学习资料.

........

确认的消

2.3盖章

费单

顾客

打印过的

消费单

编过号的

2.1分配

2.2打印

消费单

消费单编

消费单

号

分配好的

付款后进

行

消费单编

号

消费单信息

处理消费

处理好的

采购单

供应商

3.2采购

单处理

已编好号

的采购单

采购单信息

对采购单

进行编号

3.1下采

购单

依据需求

员工

处理采购

.专业学习资料.

........

组织结构或数学方法、构造模型。

药店管理信息系统

日常业务

库存管理

查询统计

基础信息

系统设置

入

销

入

销

库

价

库

入

销

入

销

库

售

库

售

存

格

存

库售

库

售

单

单

退

退

盘

管

查

查

查

退

退

单

单

点

理

询

询

询

货

货

查

查

询

询

供

客

初

密

数

数

应

户

期

码

据

据

商

管

建

设

备

恢

管

理

账

置

份

复

理

二、系统设计

说明：

系统设计较为复杂，源程序代码较长，所以报告中只摘录了一小部

分程序代码，其余代码详见程序中，程序先进入登陆界面，登陆后进入主界

面，登陆到主界面后即可点击进入相应的窗口。

该系统采用Access数据库，数据库名称为yyjxc,它包括以下8个表：

供应

商基础信息表gys,库存表kc,客户基础信息表kh,入库表rkd,入库退单表rktd,

密码表ma,销售表xsd,销售退单表xstd。

1、系统登录模块及主程序界面设计

（1）系统登录模块（窗体名：

系统登录.frm）

.专业学习资料.

........

源程序代码较长，此处省略，详见程序中

实现目标：

程序启动后，首先进入系统登录界面验证操作员密码。

其实现的功能如下：

a.可选择操作员，支持鼠标和键盘操作

b.操作员和密码验证成功后，进入主界面

c.操作员错误或密码错误提醒并返回错误点。

d.输入三次错误的密码，系统自动退出

（2）主程序界面设计（窗体名：

主界面.frm）

PublicSubentercell（）

Dimx,yAsString

IfText1.Text="1"ThenSetmyform=main_rcyw_rk

IfText1.Text="2"ThenSetmyform=main_rcyw_rktd

IfText1.Text="3"ThenSetmyform=main_rcyw_xs

IfText1.Text="4"ThenSetmyform=main_rcyw_xstd

Ifmyform.mf1.CellWidth<=0Ormyform.mf1.CellHeight<=0ThenExitSubx=myform.mf1.TextMatrix（myform.mf1.FixedRows,myform.mf1.Col）

y=myform.mf1.TextMatrix（myform.mf1.Row,0）

Ify<>""Then

.专业学习资料.

........

Ifmyform.mf1.Col-myform.mf1.LeftCol<=3Then

myform.mf1.LeftCol=myform.mf1.LeftCol+1

EndIf

Ifmyform.mf1.CellWidth>0Andmyform.mf1.CellHeight>0Then

myform.Text1.Width=myform.mf1.CellWidth

myform.Text1.Height=myform.mf1.CellHeight

myform.Text1.Left=myform.mf1.CellLeft+myform.mf1.Left

myform.Text1.Top=myform.mf1.CellTop+myform.mf1.Top

EndIf

x=myform.mf1.TextMatrix（myform.mf1.FixedRows,myform.mf1.Col）

y=myform.mf1.TextMatrix（myform.mf1.Row,0）

p=myform.mf1.TextMatrix（myform.mf1.Row,myform.mf1.Col）

myform.Text1.Text=myform.mf1.Text

myform.Text1.SelStart=0

myform.Text1.SelLength=Len（myform.Text1.Text）

EndIf

EndSub

PublicSubmoveright（）

IfText1.Text="1"ThenSetmyform=main_rcyw_rk

IfText1.Text="2"ThenSetmyform=main_rcyw_rktd

IfText1.Text="3"ThenSetmyform=main_rcyw_xs

IfText1.Text="4"ThenSetmyform=main_rcyw_xstd

Ifmyform.Text1.Text<>""Then

myform.Text1.SelStart=0

myform.Text1.SelLength=Len（myform.Text1.Text）

EndIf

Ifmyform.mf1.Col+1<=myform.mf1.Cols-1Then

myform.mf1.Col=myform.mf1.Col+1

Else

Ifmyform.mf1.Row+1<=myform.mf1.Rows-1Then

myform.mf1.Row=myform.mf1.Row+1

myform.mf1.Col=1

EndIf

EndIf

EndSub

PublicSubmoveleft（）

IfText1.Text="1"ThenSetmyform=main_rcyw_rk

IfText1.Text="2"ThenSetmyform=main_rcyw_rktd

IfText1.Text="3"ThenSetmyform=main_rcyw_xs

IfText1.Text="4"ThenSetmyform=main_rcyw_xstd

Ifmyform.Text1.Text<>""Then

myform.Text1.SelStart=0

myform.Text1.SelLength=Len（myform.Text1.Text）

EndIf

Ifmyform.mf1.Col-11<=myform.mf1.Cols+1Then

myform.mf1.Col=myform.mf1.Col-1

Ifmyform.mf1.Col=0Thenmyform.mf1.Col=1

Else

Ifmyform.mf1.Row+1<=myform.mf1.Row-1Then

myform.mf1.Row=myform.mf1.Row+1

myform.mf1.Col=1

EndIf

EndIf

EndSub

PublicSubmovereturn（）

IfText1.Text="1"ThenSetmyform=main_rcyw_rk

IfText1.Text="2"ThenSetmyform=main_rcyw_rktd

IfText1.Text="3"ThenSetmyform=main_rcyw_xs

.专业学习资料.

........

IfText1.Text="4"ThenSetmyform=main_rcyw_xstd

Ifmyform.mf1.Col=10Then

myform.mf1.Row=myform.mf1.Row+1

myform.mf1.Col=1

Else

Ifmyform.mf1.Col+1<=myform.mf1.Cols-1Then

myform.mf1.Col=myform.mf1.Col+1

Else

Ifmyform.mf1.Row+1<=myform.mf1.Rows-1Then

myform.mf1.Row=myform.mf1.Row+1

myform.mf1.Col=1

EndIf

EndIf

EndIf

EndSub

PrivateSubForm_Load（）

'在标题栏上显示软件名称及版本

Me.Caption=App.Title&"版本：

V"&App.Major&"."&App.Minor&"."&App.Revision

DimiAsInteger'定义一个整型变量

Fori=0To1

Label1（i）.Caption=App.Title

Nexti

Label2.Caption="版本：

V"&App.Major&"."&App.Minor&"."&App.Revision

EndSub

PrivateSubrkd_Click（）'调入入库单

Loadmain_rcyw_rk

main_rcyw_rk.Show

frm_main.Enabled=False

EndSub

PrivateSubxsd_Click（）'调入销售单

Loadmain_rcyw_xs

main_rcyw_xs.Show

frm_main.Enabled=False

EndSub

PrivateSubxsth_Click（）'调入销售退货

Loadmain_rcyw_xstd

main_rcyw_xstd.Show

frm_main.Enabled=False

EndSub

PrivateSubrkth_Click（）'调入退货返厂

Loadmain_rcyw_rktd

main_rcyw_rktd.Show

frm_main.Enabled=False

EndSub

PrivateSubkccx_Click（）'调入库存查询

Loadmain_kcgl_kccx

main_kcgl_kccx.Show

frm_main.Enabled=False

EndSub

PrivateSubkcpd_Click（）'调入库存盘点

Loadmain_kcgl_kcpd

main_kcgl_kcpd.Show

frm_main.Enabled=False

EndSub

PrivateSubjggl_Click（）'调入价格管理

Loadmain_kcgl_jggl

main_kcgl_jggl.Show

frm_main.Enabled=False

.专业学习资料.

........

EndSub

PrivateSubrkcx_Click（）'调入入库查询

Loadmain_rqDialog

main_rqDialog.Show

main_rqDialog.Text1.Text="0"

frm_main.Enabled=False

EndSub

PrivateSubthfccx_Click（）'调入退货返厂

Loadmain_rqDialog

main_rqDialog.Show

main_rqDialog.Text1.Text="1"

frm_main.Enabled=False

EndSub

PrivateSubxscx_Click（）'调入销售查询

Loadmain_rqDialog

main_rqDialog.Show

main_rqDialog.Text1.Text="2"

frm_main.Enabled=False

EndSub

PrivateSubxsthcx_Click（）'调入销售退货查询

Loadmain_rqDialog

main_rqDialog.Show

main_rqDialog.Text1.Text="3"

frm_main.Enabled=False

EndSub

PrivateSubgysgl_Click（）'调入供应商管理

Loadmain_jbxx_gys

main_jbxx_gys.Show

frm_main.Enabled=False

EndSub

PrivateSubkhgl_Click（）'调入客户管理

Loadmain_jbxx_kh

main_jbxx_kh.Show

frm_main.Enabled=False

EndSub

PrivateSubcqjz_Click（）'调入初期建帐

Loadmain_xt_cqjz

main_xt_cqjz.Show

frm_main.Enabled=False

EndSub

PrivateSubmmsz_Click（）'调入密码设置

Loadmain_xt_mmsz

main_xt_mmsz.Show

frm_main.Enabled=False

EndSub

PrivateSubsjbf_Click（）'调入数据备份

Loadmain_xt_sjbf

main_xt_sjbf.Show

frm_main.Enabled=False

EndSub

PrivateSubsjhf_Click（）'调入数据恢复

Loadmain_xt_sjhf

main_xt_sjhf.Sho