《药店管理信息系统报告汇编》由会员分享，可在线阅读，更多相关《药店管理信息系统报告汇编（24页珍藏版）》请在金锄头文库上搜索。
1、学习-好资料成绩管理信息系统课程设计报告系统名称药店信息管理系统班级管093姓名张新萌、田新驰、李新雷学号04、06、122011年12月14 日一、 系统分析系统名称 ： 药店管理信息系统 .开发背景、目的、意义 ：随着人们生活水平的提高，健康意识的增强，对医药产品的需 求也迅速增加。 药店作为医药产品的主要销售渠道， 也处于高速发展时期， 同时也加剧了产 业间的竞争。 为了加强企业的内部管理， 提高运营效率， 利用现代信息技术提高企业的管理 水平已非常迫切。另外，由于医药产品种类繁多、销售模式特殊、业务量大，单凭手工记账 已很难适应工作的需要。 医药作为一个关系到人们健良的特殊行业， 国家
2、对医药行业又有一 些不同于其他行业的管理政策， 这些都加大了管理的难度。 如何尽快建立和完善现代企业的 信息化管理机制问题，已成为医药企业发展的关键所在。本课题以提高药店的医药管理水平和效率为目标， 建立了管理信息系统。 该系统能集中处理 药品的进销存业务及其应付账目，实现了药店的现代化管理。实现目标： 面对医药行业的高速发展及其发展过程中出现的各种情况，药店管理信息系统 在实施后，应能够达到以下目标：(1) 实现多点操作的信息共享，相互之间的信息传递准确，快捷和顺畅。(2) 全面自动化管理，可随时掌握药品的库存、销售等情况。(3) 系统界面友好美观，操作简单易行，查询灵活方便，数据存储安全。
3、(4) 能够快速、准确地处理药品进、销、存、退、盘点、变价、折扣等多种业务模式。(5) 提供助记码及支持多种结算方式。(6) 系统维护方便可靠，有较高的安全性，满足实用性，先进性的要求。( 5)系统功能： 本系统由系统设置、日常业务、查询统计、库存管理、基础信息管理五大分系 统组成。主要功能如下：(1) 系统设置：初期建账，密码设置，数据备份，数据恢复。(2) 日常业务：入库单，销售单，入库退单，销售退单。(3) 查询统计：入库查询，销售查询，入库退货查询，销售退货查询。 (5)库存管理：库存盘点，库存查询，价格管理。(6)基础信息管理：客户管理，供应商管理。药店管理信息系统E-R图M欠款查询
4、查询药品库存量查询新入库药品查询提供NP时间数量单价购买管理交易金额种类1M查询顾客信息查询欠款查询库存经理顾客药品库2.2概念模型通过对用户需求分析进行综合、归纳与抽象、形成一个独立于具体DBMS的概念模型。在本药店管理系统中涉及到了 2种概念模型的抽象聚集模型更多精品文档学习-好资料更多精品文档概况模型2.3用例图和顶层数据流图O总体分析的用例图代售经理与供货商的用例图顾客与经理间的用例图仓库信息填好的仓 库信息仓库信息真写仓库信息仓库药品信息填好的药品信息药品信息填写药品信息编好号的采购单顾客信息确认的消 费单2.0处理消费单* 顾客所购药品填 写药品采购单信息所需药品领取顾客经理确定未
5、付款 的消费单凭盖好章 的消费单药 品 来 自依据消费 单上的药 品歹U表为所需药品3.0采购依 据 信 息经理信息交易金额确认收货消费单信息已编过号 的消费单付款后进 行未处理的 消费单填写经理信息1.0付款填好的经理信息经理信息顶层数据流图1. 系统总体设计(1)处理消费处理采购组织结构或数学方法、构造模型。药店管理信息系统日常业务入库单销 售 单入 库 退 单销 售 退 单查询统计基础信息系统设置入销库售查查询询入销库售退退货货查查询询供 应 商 管 理客户管理初 期 建 账密 码 设 置数 据 备 份数据恢复二、系统设计说明：系统设计较为复杂，源程序代码较长，所以报告中只摘录了一小部
6、分程序代码，其余代码详见程序中，程序先进入登陆界面，登陆后进入主界面， 登陆到主界面后即可点击进入相应的窗口。该系统采用Access数据库，数据库名称为yyjxc,它包括以下8个表：供应 商基础信息表gys,库存表kc,客户基础信息表kh,入库表rkd,入库退单表rktd, 密码表ma,销售表xsd,销售退单表xstd。1、系统登录模块及主程序界面设计(1) 系统登录模块(窗体名：系统登录.frm)-jfe覩所有-：aooo-&oia -：源程序代码较长，此处省略，详见程序中实现目标：程序启动后，首先进入系统登录界面验证操作员密码。其实现的功能如下:a. 可选择操作员，支持鼠标和键盘操作b.
7、操作员和密码验证成功后，进入主界面c. 操作员错误或密码错误提醒并返回错误点。d. 输入三次错误的密码，系统自动退出(2) 主程序界面设计(窗体名：主界面.frm)Public Sub entercell()Dim x, y As StringIf Text1.Text = 1 Then Set myform = main_rcyw_rkIf Text1.Text = 2 Then Set myform = main_rcyw_rktdIf Text1.Text = 3 Then Set myform = main_rcyw_xsIf Text1.Text = 4 Then Set myfor
8、m = main_rcyw_xstdIf myform.mf1.CellWidth = 0 Or myform.mf1.CellHeight = 0 Then Exit Subx = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col)y = myform.mf1.TextMatrix(myform.mf1.Row, 0)If y ThenIf myform.mf1.Col - myform.mfl. LeftCol 0 And myform.mf1.CellHeight 0 Then myform.Text1.Width =
9、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.TopEnd Ifx = myform.mf1.TextMatrix(myform.mf1.FixedRows, myform.mf1.Col)y = myform.mf1.TextMatrix(myform.mf1.Row, 0)p = myfor
10、m.mf1.TextMatrix(myform.mf1.Row, myform.mf1.Col) myform.Text1.Text = myform.mf1.Textmyform.Text1.SelStart = 0myform.Text1.SelLength = Len(myform.Text1.Text)End IfEnd SubPublic Sub moveright()If Text1.Text = 1 Then Set myform = main_rcyw_rkIf Text1.Text = 2 Then Set myform = main_rcyw_rktdIf Text1.Te
11、xt = 3 Then Set myform = main_rcyw_xsIf Text1.Text = 4 Then Set myform = main_rcyw_xstdIf myform.Text1.Text Thenmyform.Text1.SelStart = 0 myform.Text1.SelLength = Len(myform.Text1.Text)End IfIf myform.mf1.Col + 1 = myform.mf1.Cols - 1 Thenmyform.mf1.Col = myform.mf1.Col + 1Else学习 好资料If myform.mf1.Ro
12、w + 1 = myform.mf1.Rows - 1 Then myform.mf1.Row = myform.mf1.Row + 1 myform.mf1.Col = 1End IfEnd IfEnd SubPublic Sub moveleft()If Text1.Text = 1 Then Set myform = main_rcyw_rkIf Text1.Text = 2 Then Set myform = main_rcyw_rktdIf Text1.Text = 3 Then Set myform = main_rcyw_xsIf Text1.Text = 4 Then Set
13、myform = main_rcyw_xstdIf myform.Text1.Text Thenmyform.Text1.SelStart = 0 myform.Text1.SelLength = Len(myform.Text1.Text)End IfIf myform.mf1.Col - 11 = myform.mf1.Cols + 1 Thenmyform.mf1.Col = myform.mf1.Col - 1If myform.mf1.Col = 0 Then myform.mf1.Col = 1ElseIf myform.mf1.Row + 1 = myform.mf1.Row - 1 Then myform.mf1.Row = myform.mf1.Row + 1 myform.mf1.Col = 1End
