药店管理信息系统报告.docx
《药店管理信息系统报告.docx》由会员分享，可在线阅读，更多相关《药店管理信息系统报告.docx（35页珍藏版）》请在冰豆网上搜索。
药店管理信息系统报告
成绩
管理信息系统课程设计报告
系统名称药店信息管理系统
班级管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
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.Show
frm_main.Enabled=False
EndSub
PrivateSubToolbar1_ButtonClick（ByValButtonAsMSComctlLib.Button）
SelectCaseButton.Key
CaseIs="rkd"'调入入库单
rkd_Click
CaseIs="xsd"'调入销售单
xsd_Click
CaseIs="xscx"'调入销售查询
xscx_Click
CaseIs="kccx"'调入库存查询
kccx_Click
CaseIs="gys"'调入供应商管理
gysgl_Click
CaseIs="kh"'调入客户管理
khgl_Click
CaseIs="cqjz"'调入初期建帐
cqjz_Click
EndSelect
EndSub
实现目标：
密码验证成功后，进入程序主界面。
其实现的功能如下：
a.选择主界面的菜单或工具栏，调用相应程序，进行相应操作。
b.显示开发者信息、系统日期和时间。
2、日常业务设计
（1）入库单模块设计（窗体名：
入库单.frm）
程序代码过长，内容较多，详见程序中
程序启动后，选择“日常业务”菜单下的“入库单”项，将进入入库单模块。
其实现的功能如下：
a.完成药品入库工作，入库采用智能化表单式录入。
b.自动生成入库票号，可利用键在列表框中选择供应商信息
c.系统自动统计入库品种、入库数量、入库金额。
（2）销售单模块设计（窗体名：
销售单.frm）
程序代码过长，内容较多，详见程序中
程序启动后，选择“日常业务”菜单下的“销售单”项，将进入销售单模块。
其实现的功能如下：
a.完成药品销售的功能。
b.自动生成销售票号、销售日期；统计销售品种、销售数量、销售金额。
c.根据商品名称或简称自动检索相应的商品信息。
（3）销售退单模块设计（窗体名：
销售退单.frm）
程序代码过长，内容较多，详见程序中
程序启动后，选择“日常业务”菜单下的“销售退单”项，将进入销售退单模块。
其实现的功能如下：
a.完成药品销售退货功能。
b.自动生成销售退单票号、销售退单日期；统计退货品种、退货数量、退货金额。
c.根据商品名称或简称自动检索相应的商品信息。
3、库存管理设计
（1）库存查询模块设计（窗体名：
库存查询.frm）
PrivateSubForm_Activate（）
'向combo1添加查询项目列表
Combo1.AddItem（"商品名称"）
Combo1.AddItem（"简称"）
Combo1.AddItem（"批号"）
Combo1.ListIndex=0
EndSub
PrivateSubForm_Load（）
Data1.DatabaseName=App.Path&"\yyjxc.mdb"'自动识别数据库路径
EndSub
PrivateSubForm_Unload（CancelAsInteger）
frm_main.Enabled=True
EndSub
PrivateSubCommand1_Click（）
'查询库存信息
Data1.RecordSource="select*fromkcwhere（kc."&Combo1.Text&""&"like"+Chr（34）+Text1.Text+"*"+Chr（34）+"）"
Data1.Refresh
EndSub
PrivateSubCommand2_Click（）'删除库存信息
OnErrorResumeNext
Data1.Recordset.Delete
Data1.Refresh
Data2.Refresh
EndSub
PrivateSubCommand3_Click（）
frm_main.Enabled=True
UnloadMe
EndSub
程序启动后，选择“库存管理”菜单下的“库存查询”项，将进入库存查询模块。
其实现的功能如下：
a.选择字段查询库存商品信息，可模糊查询。
b.删除库存商品信息。
（2）库存盘点模块设计（窗体名：
库存盘点.frm）
PrivateSubForm_Activate（）
'设置ms1表格的列宽
MS1.ColWidth（0）=12*25*0:
MS1.ColWidth
（1）=12*25*8
MS1.ColWidth
（2）=12*25*0:
MS1.ColWidth（5）=12*25*5
MS1.ColWidth（9）=12*25*3:
MS1.ColWidth（10）=12*25*0
EndSub
PrivateSubForm_Load（）
Data1.DatabaseName=App.Path&"\yyjxc.mdb"'自动识别数据库路径
EndSub
PrivateSubForm_Unload（CancelAsInteger）
frm_main.Enabled=True
EndSub
PrivateSubCommand1_Click（）
'盘点库存大于零的库存信息
Data1.RecordSource="select*fromkcwherekc.库存>0"
Data1.Refresh
MS1.Col=9:
MS1.Sort=flexSortNumericAscending'第9行按升序排序
EndSub
PrivateSubCommand2_Click（）
frm_main.Enabled=True
UnloadMe
EndSub
PrivateSubMS1_Click（）
EndSub
程序启动后，选择“库存管理”菜单下的“库存盘点”项，将进入库存盘点模块。
其实现的功能是盘点库存商品信息。
（3）价格管理模块设计（窗体名：
价格管理.frm）
PublicSubeval（）'定义赋值函数
IfData2.Recordset（0）<>""Thenpz.Caption=Data2.Recordset（0）Elsepz.Caption="0"
IfData2.Recordset
（1）<>""Thenhjsl.Caption=Data2.Recordset
（1）Elsehjsl.Caption="0"
IfData2.Recordset
（2）<>""Thenhjje.Caption=Data2.Recordset
（2）Elsehjje.Caption="0"
EndSub
PrivateSubForm_Load（）'自动
升级会员 