小型药店药品进销存管理系统

1、管理信息系统课程设计报告题目:小型药店药品进销存管理系统专业班级：信息管理与信息系统081班组长:组员：指导教师：成绩：目 录第 1 章 绪论。111 研究的背景.11.2 国内对此问题研究的现状11。3 研究的目的及意义.。.1第 2 章 系统分析.32。1 企业现状调查32.2 系统可行性分析32.2.1 经济可行性。32。2.2 技术可行性。32。2。3 市场可行性.32。2.4 用户使用可行性.32。2.5 法律方面可行性.42.2。6 结论。42。3 人员安排与进度控制 .。42。4 系统组织结构分析42.5 系统业务流程分析52。6 系统数据流程分析62。7 数据字典72。7.1

2、处理逻辑的定义.72.7.2 数据存储的定义.82。7。3 数据流的定义102。8 新系统的逻辑模型11第 3 章 系统设计123.1 功能结构设计123.2 数据库设计133.3 代码设计163.4 输入/输出设计26第 4 章 总结342第 1 章 药店进销存概述1。1 系统开发背景随着经济的发展，人们生活水平的提高，医疗保险随之逐渐推广，导致药店市场的竞争越来越激烈，药品的种类也随之增加，对药店尤其是对药店的药品进行信息化管理已经成为药店生存与发展的必要条件之一。药品的信息化管理是药店中必不可少的条件，几乎所有进行了信息化管理的药店类企业都建设了药品管对药店经营过程中对药品的进货、出货、

3、库存、价格及账务进行精确快速的管理，大大见底了经营管理中的复杂性以及出错率、减轻手工劳动的强度，提高顾客的满意度，从而为药店的整体运行提供全面的、自动化的管理及各种服务的信息系统.1。2 国内对此问题研究的现状市场上的管理系统软件 类型有三种，一是通用版本;一是专为医药企业定制开发的,但周期长，费用高;三是在通用版本的基础上根据医药连锁企业的特点进行了重新开发和研制，许多企 业都采用了这种信息系统.目前管理软件多种多样,如:博信药店管理系统、零天药店管理系统、利康药店管理系统，方舟药品管理系统等。但多数系统都面型大型药店或连锁型药店且价格较高，针对小型单体药店却没有一个价格合理、功能合理的系统

4、。1.3 研究目的及意义针对当前医药产品销售日益激烈的竞争情况，为加强管理，提高工作效率和改善服务质量而设计一套行之有效的管理系统 .通过研究分析一个小型单体药店的整个销售流程，满足 管理人员和一般客户的基本要求，将日常繁琐的工作简单化,规范化,电子化，自动化. 力求将整个平台简化到几个人就足以完成全部的维护更新工作，查询、删除、修改等工作,将管理人员繁重复杂的工作变得合理、简捷，且考虑到未来系统扩展 的可能性,而采用 Delphi 和 Database 技术来实现。从而达到以下目的：(1) 人力与设备费用的相对减少；(2) 处理速度的提高；(3) 控制精度的提高；(4) 人员利用率的改进；(

5、5) 节省投资和运营成本.- 1 -而浪费的人力物力！第 2 章 系统分析2。1 企业现状调查小型单体药店多数使用传统的手动管理方式,存在不易更新、容易丢失、难以备份等重大缺陷;查询效率极低，特别当数据量大，种类繁多的时候，尤其明显。随着社会的发展,虽然出现了很多药品信息管理系统，但价格昂贵。小型单体药店基金不充裕，购买市场上的药店管理系统可能性低，且工作人员较少.2.1 企业现状调查2.21经济可行性自然提高了超市的收入.同时本系统的开发费用,主机费用，人员培训费用都比较合理。由于本系统的开发费用较低,适合小型单体药店使用,方便药品的销售和库存情况的信息查询，是一个比较人性化的管理系统。2.

6、22技术可行性本系统采用 delphi 做界面，Database delphi 中可实现预定药品管理,药品库存管理，药品日常销售登记等工作。2.23市场可行性随着药店行业竞争越来越激烈和科学技术的发展,导致现今药品种类繁多，药品市场竞争激烈,经营方向朝规模化、电子化、自动化方向发展。提高药品超市的药品价格透明度，方便顾客查询，做出最好的选择,防止伪劣假冒药品流入超市，保障顾客和超市的利益。此系统能够及时反映超市销售情况和库存情况，使超市能够及时调整好内部药品销售和库存的比例。改善药品超市的经营效率，提高营业利润。2.24用户使用可行性使用本软件人员要求有一定计算机基础的人员,系统管理员要求有计

7、算机的专业知识。管理人员也需经一般培训.经过培训人员将会熟练使用本软件.22.5法律方面可行性本系统的研制和开发，将不会侵犯他人,集体和国家的利益,不会违反国家政- 2 -策和法律。2.2.6 结论综上所述，本工程的技术成熟、完备，能够适应药店管理工作需求，具有良好的市场拓展，因此本工程可开始。2。3人员安排与进度控制图 进度控制人员安排如 图 21,其中项目经理,开发人员为，管理人员，分析人员为卢亮。2.4 系统组织结构分析系统功能结构图如图 2-2主要功能：对药品采购情况进行管理;对药品基本信息进行管理；对药品销售情况进行管理;对药品库存情况进行管理；对药品的销售、采购、库存、利润等统计。

8、图 22 系统功能结构2.5 系统业务流程分析图 2-3 系统业务流程图如图,本系统根据库存情况由库存管理员确定药品缺货单,交给店长审查，如确认订货则把购药审批单(签字后药品缺货单）交给购药人员，购药人员向药品供应商下达药品订货单，药品供应商把1药品发货单交给购药人员和库存管理员，药品则由库存管理员检查核对;与药品发货单相符且合格则做入库处理，向店长上交药品检验单，库存管理员更新库存盘存表，购药人员更新进货情况表。否则退货。顾客拿收据去库存管理员处取药.库存管理员更新库存盘存表。买药后如退货则在库存管理员处依据发票和相关规定做退药处理。告单，进货盘存报告单。2.6 系统数据流程分析图4 图 -

9、 3 -2.7 数据字典2.7。1处理逻辑的定义描述药店进销存管理系统的最底层数据流程图中的数据处理P1 P10的名称、输入流、输出流和要做的处理。处理逻辑定义见表2-1。表21 处理逻辑定义缺货处理 F1库存信息 根据库存信息，目。进行检验。合格则入 药品入库单库根据实际药品种类、数目.进行检验.如不合格则退货。根据入库单库存统计 F1库存盘存 根据 F1 库存盘存定期向 库存统计报告店长汇报.根据顾客需求进行查询， 购药收据根据购药收据,退药规定 F1 库存盘存表进行退药处理销售统计 F2 销售情况 根据销售情况，统计并向 销售盘存报告单店长汇报。目。进行检验。合格则入 药品入库单库2.7

10、.2 数据存储的定义描述物料管理系统的最底层数据流程图中的数据存储 F1 F4，包括名称、- 4 -简述、数据存储的组成、关键字和相关联的处理。数据存储定义见表 2-2表 22 数据存储定义相关联的处理P1销售情况表 存放各种 销售日期+药品的销 药品名称+进货情况表 存放进药 进货日期+的基本情 药品名称+生产地址+- 5 -联系电话+传真27。3数据流的定义：描述物料管理系统的最底层数据流程图中主要数据流的名称、来源、去向、组成。数据流定义见表 2-3。表 23 数据流定义药品代码+药品名称+药品规格+药品单价+采购数量等药品代码+药品名称+药品规格+药品数量+进货日期+药品单价+进货商名

11、称药品名称+药品类别+药品数量+进货日期+进货商名称+退货原因药品供应商 库存管理员退货单库存管理员 药品供应商- 6 -药品供应商药品供应商 库存管理员药品编号+药品名称+- 7 -药品数量2.8 新系统的逻辑模型逻辑模型如上(8 页）第 3 章 系统设计3。1 功能结构设计图 3-1 功能结构设计药品进销存管理系统共有 5 个模块：基本信息管理模块,药品库存管理模块，药品销售管理模块，药品采购管理模块。3.2 数据库设计表 31 药店进销存系统的数据库一览表各种输入、输出、查询、查询药品基本信息销售情况表 存放销售情 录入况输出单据、统计汇总各数据表结构如下：表 3-2 进货情况表字段名1

12、23进货日期药品名称药品代码AAA202020- 8 -4N$56AAAAAAAA71010101010101020891011121314供应商表 313 药品信息表字段名 类型1AAAAAAAAAA2345678103013139生产地址联系电话传真1011表 3-4 销售情况表123销售日期药品名称药品代码AAA202020- 9 -456销售数量销售单价销售金额N$表 3-5 不合格药品表1DAANADAAAAAA23456生产日期生产批次不合格状况处理措施管理员供货商备注710102010205089101112表 3-6员工信息表1234567AASA10201020AA联系电话A

13、表37库存盘存表1药品代码A20- 10 -2345A20N进货单价库存金额3。3 代码设计unit ENTERUnit；interfaceusesWindows， Messages, SysUtils, Variants, Graphics, Controls,Forms，Dialogs， ExtCtrls， StdCtrls， jpeg；typeTForm1 = class(TForm)Image1: TImage;Image2： TImage;Image3: TImage；Label1: TLabel；Image4: TImage；procedure Image3Click（Sender

14、: TObject);procedure Image2Click（Sender: TObject）;private Private declarations public Public declarations end;varForm1: TForm1;implementationuses MainUnit；$R .dfmprocedure TForm1。Image3Click（Sender： TObject);beginClose；end;- 11 -procedure TForm1.Image2Click（Sender： TObject）;beginForm2.show;end;end.u

15、nit YPJHUnit；interfaceusesWindows,Messages， SysUtils， Variants,Classes， Graphics,Controls，Forms，Dialogs, Buttons， StdCtrls, Mask, DBCtrls, DB, DBTables， ExtCtrls，Grids，DBGrids;typeTForm4 = class（TForm)Label1： TLabel;GroupBox1: TGroupBox；Table1： TTable;DataSource1： TDataSource;Table1BDEDesigner: TStr

16、ingField;Table1BDEDesigner2： TStringField;Table1BDEDesigner3: TStringField；Table1BDEDesigner4: TFloatField；Table1BDEDesigner5： TCurrencyField；Table1BDEDesigner6： TCurrencyField;Label2： TLabel;Label3: TLabel;Label4: TLabel;Label5： TLabel;Label6： TLabel；Label7: TLabel；DBEdit1： TDBEdit；DBEdit2: TDBEdit

17、；DBEdit3: TDBEdit；DBEdit4： TDBEdit;- 12 -DBEdit5： TDBEdit;DBEdit6: TDBEdit；SpeedButton1： TSpeedButton；SpeedButton2: TSpeedButton;Image1： TImage；GroupBox2： TGroupBox；DBGrid1： TDBGrid;DBNavigator1： TDBNavigator;procedure SpeedButton1Click（Sender： TObject)；procedure SpeedButton2Click(Sender: TObject);p

18、rivate Private declarations public Public declarations end；varForm4： TForm4;implementation$R *。dfmprocedure TForm4。SpeedButton1Click（Sender: beginTable1.Append；end；procedure TForm4。SpeedButton2Click(Sender: TObject）;VARR1：real；R2：real;Code1：Integer;Code2:Integer;s1：string；s2:string;s3:string；beginTa

19、ble1。Edit;s1:=DBEdit4。text；- 13 -S2:=DBEdit5.text；STR(r1r2，S3）;DBEdit6。text：=S3；Table1。Post；end;end.unit YPKCUnit；interfaceusesWindows,Messages， SysUtils,Variants， Classes,Graphics， Controls,Forms，Dialogs, DB, StdCtrls， Grids, DBGrids， DBTables, Buttons;typeTForm6 = class(TForm）Label1: TLabel；GroupB

20、ox1: TGroupBox;Table1： TTable；DataSource1: TDataSource；GroupBox2： TGroupBox；GroupBox3： TGroupBox;DBGrid1: TDBGrid；Table2: TTable；DataSource2: TDataSource；DBGrid2: TDBGrid;Table3： TTable；DataSource3： TDataSource；DBGrid3: TDBGrid；Label2: TLabel;Label3: TLabel；Label4: TLabel;Label5: TLabel；Label6： TLab

21、el;Label7: TLabel；- 14 -Label8: TLabel；Edit1: TEdit；Edit2: TEdit;Edit3: TEdit；Table3BDEDesigner： TStringField；Table3BDEDesigner2： TStringField;Table3BDEDesigner3： TFloatField；Table3BDEDesigner4： TCurrencyField；Table3BDEDesigner5: TCurrencyField;Edit4： TEdit；Edit5: TEdit；Edit6: TEdit；Edit7： TEdit；Spe

22、edButton1: TSpeedButton；SpeedButton2： TSpeedButton;SpeedButton3: TSpeedButton;Table4: TTable;DataSource4： TDataSource;private Private declarations public Public declarations end;varForm6： TForm6；implementationR *.dfmend。unit YPXSUnit;interfaceusesWindows， Messages, SysUtils, Variants, Classes, Graph

23、ics, Controls，Forms,Dialogs, Grids, DBGrids， StdCtrls， DB， DBTables, Buttons, Mask，DBCtrls,- 15 -ComCtrls， ExtCtrls；typeTForm5 = class（TForm）Label1: TLabel;Label2： TLabel;Table1： TTable;DataSource1: TDataSource；GroupBox1： TGroupBox;DBGrid1： TDBGrid;GroupBox2： TGroupBox；Table1BDEDesigner: TStringFiel

24、d；Table1BDEDesigner2: TStringField;Table1BDEDesigner3: TStringField;Table1BDEDesigner4： TFloatField;Table1BDEDesigner5： TCurrencyField；Table1BDEDesigner6: TCurrencyField；Label3: TLabel;Label4： TLabel；Label5： TLabel；Label6： TLabel;Label7: TLabel;Label8： TLabel；DBEdit1: TDBEdit；DBEdit2: TDBEdit；DBEdit

25、3： TDBEdit;DBEdit4： TDBEdit；DBEdit5： TDBEdit;DBEdit6: TDBEdit;SpeedButton1： TSpeedButton;SpeedButton2： TSpeedButton;SpeedButton3： TSpeedButton；StatusBar1: TStatusBar;Timer1: TTimer;procedure SpeedButton1Click（Sender: TObject）;procedure SpeedButton2Click（Sender: TObject);- 16 -procedure Timer1Timer（S

26、ender： TObject)；private Private declarations public Public declarations end;varForm5: TForm5；implementation$R .dfmprocedure TForm5。SpeedButton1Click（Sender: TObject)；beginTable1.Append；end;procedure TForm5.SpeedButton2Click(Sender： TObject);VARR1：real；R2:real；Code1：Integer;Code2:Integer;s1:string；s2

27、：string；s3：string；beginTable1.Edit;s1：=DBEdit4。text;S2：=DBEdit5。text；Val(S1,R1,CODE1);Val(s2,R2，CODE2);DBEdit6.text:=S3；Table1.Post;end;procedure TForm5。Timer1Timer（Sender： TObject）;begin- 17 -beginStatusBar1。Panels1。Text FormatDateTime（ yyyy ”年 mm 月 ”dd 日 hh：mm：ss Now（);end;end;end。unit YPXXUnit；in

28、terfaceusesWindows，Messages，SysUtils，Variants，Classes,Graphics，Controls，Forms，Dialogs， StdCtrls， Mask， DBCtrls,Buttons,DB， DBTables,ExtCtrls;typeTForm3 = class(TForm）Label1： TLabel;DataSource1： TDataSource;SpeedButton1: TSpeedButton;Label13： TLabel；Label14: TLabel;GroupBox1： TGroupBox；Label2: TLabel

29、；Label3： TLabel;Label4: TLabel；Label5： TLabel；Label6: TLabel；Label7: TLabel;Label8： TLabel；Label9： TLabel；Label10: TLabel；Label11: TLabel;Label12： TLabel;DBEdit1： TDBEdit;DBEdit2： TDBEdit；DBEdit3： TDBEdit;DBEdit4： TDBEdit;- 18 -DBEdit5: TDBEdit；DBEdit6: TDBEdit；DBEdit7: TDBEdit；DBEdit8: TDBEdit;DBEd

30、it9： TDBEdit;DBEdit10： TDBEdit；DBEdit11: TDBEdit；Edit1: TEdit;SpeedButton2： TSpeedButton；SpeedButton3： TSpeedButton;SpeedButton4： TSpeedButton;SpeedButton5： TSpeedButton;Table1: TTable;Table1BDEDesigner: TStringField;Table1BDEDesigner2： TStringField;Table1BDEDesigner3: TStringField；Table1BDEDesigner

31、4： TStringField；Table1BDEDesigner5： TStringField;Table1BDEDesigner6： TStringField；Table1BDEDesigner7： TCurrencyField；Table1BDEDesigner8: TStringField；Table1BDEDesigner9： TStringField;Table1BDEDesigner10: TStringField;Table1BDEDesigner11: TStringField；procedure SpeedButton2Click（Sender： procedure Spe

32、edButton3Click（Sender: TObject);procedure SpeedButton4Click(Sender: TObject);procedure SpeedButton5Click(Sender: TObject)；procedure SpeedButton1Click（Sender： private Private declarations public Public declarations end;var- 19 -Form3: TForm3；implementation$R 。dfmprocedure TForm3.SpeedButton2Click（Sender： TObject);beginTable1.Append;end;procedure TForm3。SpeedButton3Click(Sender： beginTable1.Delete；end；procedure TForm3。SpeedButton4Click（Sender： beginTable1.Edit；Table1。Post；end；procedure TForm3。SpeedButton5Click(Sender： TObject)；beginClose；end；procedure TForm3.Sp