小型藥店藥品進(jìn)銷存管理系統(tǒng)

1、管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告題目:小型藥店藥品進(jìn)銷存管理系統(tǒng)專業(yè)班級(jí)：信息管理與信息系統(tǒng)081班組長(zhǎng):組員：指導(dǎo)教師：成績(jī)：目 錄第 1 章 緒論。111 研究的背景.11.2 國(guó)內(nèi)對(duì)此問題研究的現(xiàn)狀11。3 研究的目的及意義.。.1第 2 章 系統(tǒng)分析.32。1 企業(yè)現(xiàn)狀調(diào)查32.2 系統(tǒng)可行性分析32.2.1 經(jīng)濟(jì)可行性。32。2.2 技術(shù)可行性。32。2。3 市場(chǎng)可行性.32。2.4 用戶使用可行性.32。2.5 法律方面可行性.42.2。6 結(jié)論。42。3 人員安排與進(jìn)度控制 .。42。4 系統(tǒng)組織結(jié)構(gòu)分析42.5 系統(tǒng)業(yè)務(wù)流程分析52。6 系統(tǒng)數(shù)據(jù)流程分析62。7 數(shù)據(jù)字典72。7.1

2、處理邏輯的定義.72.7.2 數(shù)據(jù)存儲(chǔ)的定義.82。7。3 數(shù)據(jù)流的定義102。8 新系統(tǒng)的邏輯模型11第 3 章 系統(tǒng)設(shè)計(jì)123.1 功能結(jié)構(gòu)設(shè)計(jì)123.2 數(shù)據(jù)庫設(shè)計(jì)133.3 代碼設(shè)計(jì)163.4 輸入/輸出設(shè)計(jì)26第 4 章 總結(jié)342第 1 章 藥店進(jìn)銷存概述1。1 系統(tǒng)開發(fā)背景隨著經(jīng)濟(jì)的發(fā)展，人們生活水平的提高，醫(yī)療保險(xiǎn)隨之逐漸推廣，導(dǎo)致藥店市場(chǎng)的競(jìng)爭(zhēng)越來越激烈，藥品的種類也隨之增加，對(duì)藥店尤其是對(duì)藥店的藥品進(jìn)行信息化管理已經(jīng)成為藥店生存與發(fā)展的必要條件之一。藥品的信息化管理是藥店中必不可少的條件，幾乎所有進(jìn)行了信息化管理的藥店類企業(yè)都建設(shè)了藥品管對(duì)藥店經(jīng)營(yíng)過程中對(duì)藥品的進(jìn)貨、出貨、

3、庫存、價(jià)格及賬務(wù)進(jìn)行精確快速的管理，大大見底了經(jīng)營(yíng)管理中的復(fù)雜性以及出錯(cuò)率、減輕手工勞動(dòng)的強(qiáng)度，提高顧客的滿意度，從而為藥店的整體運(yùn)行提供全面的、自動(dòng)化的管理及各種服務(wù)的信息系統(tǒng).1。2 國(guó)內(nèi)對(duì)此問題研究的現(xiàn)狀市場(chǎng)上的管理系統(tǒng)軟件 類型有三種，一是通用版本;一是專為醫(yī)藥企業(yè)定制開發(fā)的,但周期長(zhǎng)，費(fèi)用高;三是在通用版本的基礎(chǔ)上根據(jù)醫(yī)藥連鎖企業(yè)的特點(diǎn)進(jìn)行了重新開發(fā)和研制，許多企 業(yè)都采用了這種信息系統(tǒng).目前管理軟件多種多樣,如:博信藥店管理系統(tǒng)、零天藥店管理系統(tǒng)、利康藥店管理系統(tǒng)，方舟藥品管理系統(tǒng)等。但多數(shù)系統(tǒng)都面型大型藥店或連鎖型藥店且價(jià)格較高，針對(duì)小型單體藥店卻沒有一個(gè)價(jià)格合理、功能合理的系統(tǒng)

4、。1.3 研究目的及意義針對(duì)當(dāng)前醫(yī)藥產(chǎn)品銷售日益激烈的競(jìng)爭(zhēng)情況，為加強(qiáng)管理，提高工作效率和改善服務(wù)質(zhì)量而設(shè)計(jì)一套行之有效的管理系統(tǒng) .通過研究分析一個(gè)小型單體藥店的整個(gè)銷售流程，滿足 管理人員和一般客戶的基本要求，將日常繁瑣的工作簡(jiǎn)單化,規(guī)范化,電子化，自動(dòng)化. 力求將整個(gè)平臺(tái)簡(jiǎn)化到幾個(gè)人就足以完成全部的維護(hù)更新工作，查詢、刪除、修改等工作,將管理人員繁重復(fù)雜的工作變得合理、簡(jiǎn)捷，且考慮到未來系統(tǒng)擴(kuò)展 的可能性,而采用 Delphi 和 Database 技術(shù)來實(shí)現(xiàn)。從而達(dá)到以下目的：(1) 人力與設(shè)備費(fèi)用的相對(duì)減少；(2) 處理速度的提高；(3) 控制精度的提高；(4) 人員利用率的改進(jìn)；(

5、5) 節(jié)省投資和運(yùn)營(yíng)成本.- 1 -而浪費(fèi)的人力物力！第 2 章 系統(tǒng)分析2。1 企業(yè)現(xiàn)狀調(diào)查小型單體藥店多數(shù)使用傳統(tǒng)的手動(dòng)管理方式,存在不易更新、容易丟失、難以備份等重大缺陷;查詢效率極低，特別當(dāng)數(shù)據(jù)量大，種類繁多的時(shí)候，尤其明顯。隨著社會(huì)的發(fā)展,雖然出現(xiàn)了很多藥品信息管理系統(tǒng)，但價(jià)格昂貴。小型單體藥店基金不充裕，購買市場(chǎng)上的藥店管理系統(tǒng)可能性低，且工作人員較少.2.1 企業(yè)現(xiàn)狀調(diào)查2.21經(jīng)濟(jì)可行性自然提高了超市的收入.同時(shí)本系統(tǒng)的開發(fā)費(fèi)用,主機(jī)費(fèi)用，人員培訓(xùn)費(fèi)用都比較合理。由于本系統(tǒng)的開發(fā)費(fèi)用較低,適合小型單體藥店使用,方便藥品的銷售和庫存情況的信息查詢，是一個(gè)比較人性化的管理系統(tǒng)。2.

6、22技術(shù)可行性本系統(tǒng)采用 delphi 做界面，Database delphi 中可實(shí)現(xiàn)預(yù)定藥品管理,藥品庫存管理，藥品日常銷售登記等工作。2.23市場(chǎng)可行性隨著藥店行業(yè)競(jìng)爭(zhēng)越來越激烈和科學(xué)技術(shù)的發(fā)展,導(dǎo)致現(xiàn)今藥品種類繁多，藥品市場(chǎng)競(jìng)爭(zhēng)激烈,經(jīng)營(yíng)方向朝規(guī)?；?、電子化、自動(dòng)化方向發(fā)展。提高藥品超市的藥品價(jià)格透明度，方便顧客查詢，做出最好的選擇,防止偽劣假冒藥品流入超市，保障顧客和超市的利益。此系統(tǒng)能夠及時(shí)反映超市銷售情況和庫存情況，使超市能夠及時(shí)調(diào)整好內(nèi)部藥品銷售和庫存的比例。改善藥品超市的經(jīng)營(yíng)效率，提高營(yíng)業(yè)利潤(rùn)。2.24用戶使用可行性使用本軟件人員要求有一定計(jì)算機(jī)基礎(chǔ)的人員,系統(tǒng)管理員要求有計(jì)

7、算機(jī)的專業(yè)知識(shí)。管理人員也需經(jīng)一般培訓(xùn).經(jīng)過培訓(xùn)人員將會(huì)熟練使用本軟件.22.5法律方面可行性本系統(tǒng)的研制和開發(fā)，將不會(huì)侵犯他人,集體和國(guó)家的利益,不會(huì)違反國(guó)家政- 2 -策和法律。2.2.6 結(jié)論綜上所述，本工程的技術(shù)成熟、完備，能夠適應(yīng)藥店管理工作需求，具有良好的市場(chǎng)拓展，因此本工程可開始。2。3人員安排與進(jìn)度控制圖 進(jìn)度控制人員安排如 圖 21,其中項(xiàng)目經(jīng)理,開發(fā)人員為，管理人員，分析人員為盧亮。2.4 系統(tǒng)組織結(jié)構(gòu)分析系統(tǒng)功能結(jié)構(gòu)圖如圖 2-2主要功能：對(duì)藥品采購情況進(jìn)行管理;對(duì)藥品基本信息進(jìn)行管理；對(duì)藥品銷售情況進(jìn)行管理;對(duì)藥品庫存情況進(jìn)行管理；對(duì)藥品的銷售、采購、庫存、利潤(rùn)等統(tǒng)計(jì)。

8、圖 22 系統(tǒng)功能結(jié)構(gòu)2.5 系統(tǒng)業(yè)務(wù)流程分析圖 2-3 系統(tǒng)業(yè)務(wù)流程圖如圖,本系統(tǒng)根據(jù)庫存情況由庫存管理員確定藥品缺貨單,交給店長(zhǎng)審查，如確認(rèn)訂貨則把購藥審批單(簽字后藥品缺貨單）交給購藥人員，購藥人員向藥品供應(yīng)商下達(dá)藥品訂貨單，藥品供應(yīng)商把1藥品發(fā)貨單交給購藥人員和庫存管理員，藥品則由庫存管理員檢查核對(duì);與藥品發(fā)貨單相符且合格則做入庫處理，向店長(zhǎng)上交藥品檢驗(yàn)單，庫存管理員更新庫存盤存表，購藥人員更新進(jìn)貨情況表。否則退貨。顧客拿收據(jù)去庫存管理員處取藥.庫存管理員更新庫存盤存表。買藥后如退貨則在庫存管理員處依據(jù)發(fā)票和相關(guān)規(guī)定做退藥處理。告單，進(jìn)貨盤存報(bào)告單。2.6 系統(tǒng)數(shù)據(jù)流程分析圖4 圖 -

9、 3 -2.7 數(shù)據(jù)字典2.7。1處理邏輯的定義描述藥店進(jìn)銷存管理系統(tǒng)的最底層數(shù)據(jù)流程圖中的數(shù)據(jù)處理P1 P10的名稱、輸入流、輸出流和要做的處理。處理邏輯定義見表2-1。表21 處理邏輯定義缺貨處理 F1庫存信息 根據(jù)庫存信息，目。進(jìn)行檢驗(yàn)。合格則入 藥品入庫單庫根據(jù)實(shí)際藥品種類、數(shù)目.進(jìn)行檢驗(yàn).如不合格則退貨。根據(jù)入庫單庫存統(tǒng)計(jì) F1庫存盤存 根據(jù) F1 庫存盤存定期向 庫存統(tǒng)計(jì)報(bào)告店長(zhǎng)匯報(bào).根據(jù)顧客需求進(jìn)行查詢， 購藥收據(jù)根據(jù)購藥收據(jù),退藥規(guī)定 F1 庫存盤存表進(jìn)行退藥處理銷售統(tǒng)計(jì) F2 銷售情況 根據(jù)銷售情況，統(tǒng)計(jì)并向 銷售盤存報(bào)告單店長(zhǎng)匯報(bào)。目。進(jìn)行檢驗(yàn)。合格則入 藥品入庫單庫2.7

10、.2 數(shù)據(jù)存儲(chǔ)的定義描述物料管理系統(tǒng)的最底層數(shù)據(jù)流程圖中的數(shù)據(jù)存儲(chǔ) F1 F4，包括名稱、- 4 -簡(jiǎn)述、數(shù)據(jù)存儲(chǔ)的組成、關(guān)鍵字和相關(guān)聯(lián)的處理。數(shù)據(jù)存儲(chǔ)定義見表 2-2表 22 數(shù)據(jù)存儲(chǔ)定義相關(guān)聯(lián)的處理P1銷售情況表 存放各種 銷售日期+藥品的銷 藥品名稱+進(jìn)貨情況表 存放進(jìn)藥 進(jìn)貨日期+的基本情 藥品名稱+生產(chǎn)地址+- 5 -聯(lián)系電話+傳真27。3數(shù)據(jù)流的定義：描述物料管理系統(tǒng)的最底層數(shù)據(jù)流程圖中主要數(shù)據(jù)流的名稱、來源、去向、組成。數(shù)據(jù)流定義見表 2-3。表 23 數(shù)據(jù)流定義藥品代碼+藥品名稱+藥品規(guī)格+藥品單價(jià)+采購數(shù)量等藥品代碼+藥品名稱+藥品規(guī)格+藥品數(shù)量+進(jìn)貨日期+藥品單價(jià)+進(jìn)貨商名

11、稱藥品名稱+藥品類別+藥品數(shù)量+進(jìn)貨日期+進(jìn)貨商名稱+退貨原因藥品供應(yīng)商 庫存管理員退貨單庫存管理員 藥品供應(yīng)商- 6 -藥品供應(yīng)商藥品供應(yīng)商 庫存管理員藥品編號(hào)+藥品名稱+- 7 -藥品數(shù)量2.8 新系統(tǒng)的邏輯模型邏輯模型如上(8 頁）第 3 章 系統(tǒng)設(shè)計(jì)3。1 功能結(jié)構(gòu)設(shè)計(jì)圖 3-1 功能結(jié)構(gòu)設(shè)計(jì)藥品進(jìn)銷存管理系統(tǒng)共有 5 個(gè)模塊：基本信息管理模塊,藥品庫存管理模塊，藥品銷售管理模塊，藥品采購管理模塊。3.2 數(shù)據(jù)庫設(shè)計(jì)表 31 藥店進(jìn)銷存系統(tǒng)的數(shù)據(jù)庫一覽表各種輸入、輸出、查詢、查詢藥品基本信息銷售情況表 存放銷售情 錄入況輸出單據(jù)、統(tǒng)計(jì)匯總各數(shù)據(jù)表結(jié)構(gòu)如下：表 3-2 進(jìn)貨情況表字段名1

12、23進(jìn)貨日期藥品名稱藥品代碼AAA202020- 8 -4N$56AAAAAAAA71010101010101020891011121314供應(yīng)商表 313 藥品信息表字段名 類型1AAAAAAAAAA2345678103013139生產(chǎn)地址聯(lián)系電話傳真1011表 3-4 銷售情況表123銷售日期藥品名稱藥品代碼AAA202020- 9 -456銷售數(shù)量銷售單價(jià)銷售金額N$表 3-5 不合格藥品表1DAANADAAAAAA23456生產(chǎn)日期生產(chǎn)批次不合格狀況處理措施管理員供貨商備注710102010205089101112表 3-6員工信息表1234567AASA10201020AA聯(lián)系電話A

13、表37庫存盤存表1藥品代碼A20- 10 -2345A20N進(jìn)貨單價(jià)庫存金額3。3 代碼設(shè)計(jì)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，F(xiàn)orms，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，F(xiàn)orms,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，F(xiàn)orms，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