药店管理信息系统报告.docx
《药店管理信息系统报告.docx》由会员分享，可在线阅读，更多相关《药店管理信息系统报告.docx（34页珍藏版）》请在冰豆网上搜索。
药店管理信息系统报告
成绩
管理信息系统课程设计报告
系统名称药店信息管理系统
班级管093
姓名张新萌、田新驰、李新雷
学号04、06、12
装订线
2011年12月14日
一、系统分析
系统名称：
药店管理信息系统.
开发背景、目的、意义：
随着人们生活水平的提高，健康意识的增强，对医药产品的需求也迅速增加。
药店作为医药产品的主要销售渠道，也处于高速发展时期，同时也加剧了产业间的竞争。
为了加强企业的内部管理，提高运营效率，利用现代信息技术提高企业的管理水平已非常迫切。
另外，由于医药产品种类繁多、销售模式特殊、业务量大，单凭手工记账已很难适应工作的需要。
医药作为一个关系到人们健良的特殊行业，国家对医药行业又有一些不同于其他行业的管理政策，这些都加大了管理的难度。
如何尽快建立和完善现代企业的信息化管理机制问题，已成为医药企业发展的关键所在。
本课题以提高药店的医药管理水平和效率为目标，建立了管理信息系统。
该系统能集中处理药品的进销存业务及其应付账目，实现了药店的现代化管理。
实现目标：
面对医药行业的高速发展及其发展过程中出现的各种情况，药店管理信息系统在实施后，应能够达到以下目标：
（1）实现多点操作的信息共享，相互之间的信息传递准确，快捷和顺畅。
（2）全面自动化管理，可随时掌握药品的库存、销售等情况。
（3）系统界面友好美观，操作简单易行，查询灵活方便，数据存储安全。
（4）能够快速、准确地处理药品进、销、存、退、盘点、变价、折扣等多种业务模式。
（5）提供助记码及支持多种结算方式。
（6）系统维护方便可靠，有较高的安全性，满足实用性，先进性的要求。
（5）
系统功能：
本系统由系统设置、日常业务、查询统计、库存管理、基础信息管理五大分系统组成。
主要功能如下：
（1）系统设置：
初期建账，密码设置，数据备份，数据恢复。
（2）日常业务：
入库单，销售单，入库退单，销售退单。
（3）查询统计：
入库查询，销售查询，入库退货查询，销售退货查询。
（5）库存管理：
库存盘点，库存查询，价格管理。
（6）基础信息管理：
客户管理，供应商管理。
药店管理信息系统E-R图
2.2概念模型
通过对用户需求分析进行综合、归纳与抽象、形成一个独立于具体DBMS的概念模型。
在本药店管理系统中涉及到了2种概念模型的抽象
Ispartof
聚集模型
概况模型
2.3用例图和顶层数据流图
总体分析的用例图
经理与供货商的用例图
顾客与经理间的用例图
顶层数据流图
1.系统总体设计
（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<=0ThenExitSub
x=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
升级会员 