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

1、課程設(shè)計(jì)報(bào)告題目：小型藥店藥品進(jìn)銷存管理系統(tǒng)專業(yè)班級(jí)：信息管理與信息系統(tǒng)081班組長(zhǎng)：組員：指導(dǎo)教師：成績(jī)：目錄第1章緒論.11.1研究的背景.11.2國(guó)內(nèi)對(duì)此問(wèn)題研究的現(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處理邏輯的定義.72.7.2數(shù)據(jù)存儲(chǔ)的定義.82.7.3數(shù)據(jù)流的定

2、義102.8新系統(tǒng)的邏輯模型11第3章系統(tǒng)設(shè)計(jì)123.1功能結(jié)構(gòu)設(shè)計(jì)123.2數(shù)據(jù)庫(kù)設(shè)計(jì)133.3代碼設(shè)計(jì)163.4輸入/輸出設(shè)計(jì)26第4章總結(jié).34第1章 藥店進(jìn)銷存概述 系統(tǒng)開(kāi)發(fā)背景隨著經(jīng)濟(jì)的發(fā)展，人們生活水平的提高，醫(yī)療保險(xiǎn)隨之逐漸推廣，導(dǎo)致藥店市場(chǎng)的競(jìng)爭(zhēng)越來(lái)越激烈，藥品的種類也隨之增加，對(duì)藥店尤其是對(duì)藥店的藥品進(jìn)行信息化管理已經(jīng)成為藥店生存與發(fā)展的必要條件之一。藥品的信息化管理是藥店中必不可少的條件，幾乎所有進(jìn)行了信息化管理的藥店類企業(yè)都建設(shè)了藥品管理信息系統(tǒng)。藥品信息管理系統(tǒng)是指利用軟硬件技術(shù)、網(wǎng)絡(luò)通信技術(shù)等現(xiàn)代化手段，對(duì)藥店經(jīng)營(yíng)過(guò)程中對(duì)藥品的進(jìn)貨、出貨、庫(kù)存、價(jià)格及賬務(wù)進(jìn)行精確快速

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

4、單體藥店的整個(gè)銷售流程,滿足 管理人員和一般客戶的基本要求,將日常繁瑣的工作簡(jiǎn)單化,規(guī)范化,電子化,自動(dòng)化. 力求將整個(gè)平臺(tái)簡(jiǎn)化到幾個(gè)人就足以完成全部的維護(hù)更新工作,解決藥品管理工作中所遇到的問(wèn)題，方便管理員可以隨時(shí)地做添加、查詢、刪除、修改等工作，將管理人員繁重復(fù)雜的工作變得合理、簡(jiǎn)捷，且考慮到未來(lái)系統(tǒng)擴(kuò)展 的可能性,而采用Delphi和Database技術(shù)來(lái)實(shí)現(xiàn).從而達(dá)到以下目的：(1) 人力與設(shè)備費(fèi)用的相對(duì)減少；(2) 處理速度的提高；(3) 控制精度的提高；(4) 人員利用率的改進(jìn)；(5) 節(jié)省投資和運(yùn)營(yíng)成本。本藥品信息管理子系統(tǒng)目的是為小型單體藥店管理及銷售人員、采購(gòu)人員提供更確切的

5、數(shù)據(jù)。方便他們更方便快捷的對(duì)藥品進(jìn)行管理，節(jié)省了對(duì)于藥品手工錄入，而浪費(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à)格昂貴。小型單體藥店基金不充裕，購(gòu)買市場(chǎng)上的藥店管理系統(tǒng)可能性低，且工作人員較少。2.1 企業(yè)現(xiàn)狀調(diào)查2經(jīng)濟(jì)可行性在經(jīng)濟(jì)上，用此系統(tǒng)加強(qiáng)了藥品超市的管理效率，為顧客提供了快捷的服務(wù)，自然提高了超市的收入。同時(shí)本系統(tǒng)的開(kāi)發(fā)費(fèi)用，主機(jī)費(fèi)用，人員培訓(xùn)費(fèi)用都比較合理。由于本系統(tǒng)的開(kāi)發(fā)費(fèi)用較低，適合

6、小型單體藥店使用，方便藥品的銷售和庫(kù)存情況的信息查詢，是一個(gè)比較人性化的管理系統(tǒng)。2.2.2技術(shù)可行性本系統(tǒng)采用delphi做界面，Database做數(shù)據(jù)庫(kù)。在delphi中可實(shí)現(xiàn)預(yù)定藥品管理，藥品庫(kù)存管理，藥品日常銷售登記等工作。2.2.3市場(chǎng)可行性隨著藥店行業(yè)競(jìng)爭(zhēng)越來(lái)越激烈和科學(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í)反映超市銷售情況和庫(kù)存情況，使超市能夠及時(shí)調(diào)整好內(nèi)部藥品銷售和庫(kù)存的比例。改善藥品超市的經(jīng)營(yíng)效率，提

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

8、品基本信息進(jìn)行管理；對(duì)藥品銷售情況進(jìn)行管理；對(duì)藥品庫(kù)存情況進(jìn)行管理；對(duì)藥品的銷售、采購(gòu)、庫(kù)存、利潤(rùn)等統(tǒng)計(jì)。圖2-2 系統(tǒng)功能結(jié)構(gòu)2.5系統(tǒng)業(yè)務(wù)流程分析圖2-3 系統(tǒng)業(yè)務(wù)流程圖如圖，本系統(tǒng)根據(jù)庫(kù)存情況由庫(kù)存管理員確定藥品缺貨單，交給店長(zhǎng)審查，如確認(rèn)訂貨則把購(gòu)藥審批單（簽字后藥品缺貨單）交給購(gòu)藥人員，購(gòu)藥人員向藥品供應(yīng)商下達(dá)藥品訂貨單，藥品供應(yīng)商把1藥品發(fā)貨單交給購(gòu)藥人員和庫(kù)存管理員，藥品則由庫(kù)存管理員檢查核對(duì)；與藥品發(fā)貨單相符且合格則做入庫(kù)處理，向店長(zhǎng)上交藥品檢驗(yàn)單，庫(kù)存管理員更新庫(kù)存盤存表，購(gòu)藥人員更新進(jìn)貨情況表。否則退貨。顧客向售藥員詢問(wèn)藥品，經(jīng)查詢后告訴顧客查詢結(jié)果，如顧客滿意，則交款開(kāi)收

9、據(jù)，顧客拿收據(jù)去庫(kù)存管理員處取藥。庫(kù)存管理員更新庫(kù)存盤存表。買藥后如退貨則在庫(kù)存管理員處依據(jù)發(fā)票和相關(guān)規(guī)定做退藥處理。每月庫(kù)存管理員，售藥員，購(gòu)藥人員向店長(zhǎng)分別上交，庫(kù)存盤存報(bào)告單，銷售盤存報(bào)告單，進(jìn)貨盤存報(bào)告單。2.6系統(tǒng)數(shù)據(jù)流程分析圖2-4 系統(tǒng)頂層數(shù)據(jù)流程圖圖2-5 系統(tǒng)第一層數(shù)據(jù)流程圖2.7數(shù)據(jù)字典處理邏輯的定義描述藥店進(jìn)銷存管理系統(tǒng)的最底層數(shù)據(jù)流程圖中的數(shù)據(jù)處理P1 P10的名稱、輸入流、輸出流和要做的處理。處理邏輯定義見(jiàn)表2-1。表21處理邏輯定義編號(hào)名稱輸入處理邏輯輸出P1缺貨處理F1庫(kù)存信息藥品審批單F4藥品信息根據(jù)庫(kù)存信息，確定訂貨數(shù)目、種類，審批后下達(dá)藥品訂貨單藥品訂貨單P

10、2藥品檢驗(yàn)藥品發(fā)貨單根據(jù)實(shí)際藥品種類、數(shù)目。進(jìn)行檢驗(yàn)。合格則入庫(kù)藥品檢驗(yàn)單藥品入庫(kù)單P3 退貨處理藥品發(fā)貨單根據(jù)實(shí)際藥品種類、數(shù)目。進(jìn)行檢驗(yàn)。如不合格則退貨。退貨單P4入庫(kù)處理藥品入庫(kù)單根據(jù)入庫(kù)單進(jìn)行入庫(kù)處理F1 庫(kù)存盤存表F3進(jìn)貨情況表P5庫(kù)存統(tǒng)計(jì)F1庫(kù)存盤存根據(jù)F1庫(kù)存盤存定期向店長(zhǎng)匯報(bào)。庫(kù)存統(tǒng)計(jì)報(bào)告P6購(gòu)藥處理查詢結(jié)果根據(jù)顧客需求進(jìn)行查詢，并按要求選擇顧客需要的藥購(gòu)藥收據(jù)F2銷售情況表P7退藥處理購(gòu)藥收據(jù)退藥規(guī)定根據(jù)購(gòu)藥收據(jù)，退藥規(guī)定進(jìn)行退藥處理F1 庫(kù)存盤存表P8取藥處理購(gòu)藥收據(jù)根據(jù)購(gòu)藥收據(jù)取相應(yīng)的藥物F2銷售情況表P9銷售統(tǒng)計(jì)F2銷售情況表根據(jù)銷售情況，統(tǒng)計(jì)并向店長(zhǎng)匯報(bào)。銷售盤存報(bào)告

11、單P10藥品檢驗(yàn)藥品發(fā)貨單根據(jù)實(shí)際藥品種類、數(shù)目。進(jìn)行檢驗(yàn)。合格則入庫(kù)藥品檢驗(yàn)單藥品入庫(kù)單數(shù)據(jù)存儲(chǔ)的定義描述物料管理系統(tǒng)的最底層數(shù)據(jù)流程圖中的數(shù)據(jù)存儲(chǔ)F1 F4，包括名稱、簡(jiǎn)述、數(shù)據(jù)存儲(chǔ)的組成、關(guān)鍵字和相關(guān)聯(lián)的處理。數(shù)據(jù)存儲(chǔ)定義見(jiàn)表2-2表2-2 數(shù)據(jù)存儲(chǔ)定義編號(hào)名稱簡(jiǎn)述組成關(guān)鍵字相關(guān)聯(lián)的處理F1庫(kù)存盤存存放藥品庫(kù)存信息藥品代碼藥品名稱庫(kù)存量進(jìn)貨單價(jià)庫(kù)存金額藥品代碼P1P4P5P7F2銷售情況表存放各種藥品的銷售信息銷售日期+藥品名稱+藥品代碼+銷售數(shù)量+銷售單價(jià)+銷售金額藥品代碼銷售日期P6P8P9F3進(jìn)貨情況表存放進(jìn)藥的基本情況進(jìn)貨日期+藥品名稱+藥品代碼+進(jìn)貨數(shù)量+進(jìn)貨單價(jià)+進(jìn)貨金額藥品

12、代碼進(jìn)貨日期P1F4藥品信息存放各種藥品的信息、及供應(yīng)商信息藥品代碼+藥品名稱+藥品分類+制造商+生產(chǎn)時(shí)期+有效期+進(jìn)貨單價(jià)+銷售員+生產(chǎn)地址+聯(lián)系電話+傳真藥品代碼P4數(shù)據(jù)流的定義：描述物料管理系統(tǒng)的最底層數(shù)據(jù)流程圖中主要數(shù)據(jù)流的名稱、來(lái)源、去向、組成。數(shù)據(jù)流定義見(jiàn)表2-3。表2-3 數(shù)據(jù)流定義編號(hào)名稱來(lái)源去向組成D1購(gòu)藥審批單購(gòu)藥人員店長(zhǎng)藥品代碼+藥品名稱+藥品規(guī)格+藥品單價(jià)+采購(gòu)數(shù)量等D2藥品入庫(kù)單藥品供應(yīng)商庫(kù)存管理員藥品代碼+藥品名稱+藥品規(guī)格+藥品數(shù)量+進(jìn)貨日期+藥品單價(jià)+進(jìn)貨商名稱D3退貨單庫(kù)存管理員藥品供應(yīng)商藥品名稱+藥品類別+藥品數(shù)量+進(jìn)貨日期+進(jìn)貨商名稱+退貨原因D4藥品訂貨

13、單購(gòu)藥人員藥品供應(yīng)商藥品名稱+藥品類別+藥品數(shù)量+藥品單價(jià)+進(jìn)貨日期+D5藥品發(fā)貨單藥品供應(yīng)商庫(kù)存管理員藥品名稱+藥品類別+藥品數(shù)量+進(jìn)貨日期+藥品單價(jià)+進(jìn)貨商名稱等D6藥品檢驗(yàn)單庫(kù)存管理員店長(zhǎng)藥品名稱+藥品類別+藥品數(shù)量+進(jìn)貨日期+進(jìn)貨商名稱+是否合格D7購(gòu)藥收據(jù)售藥員顧客發(fā)票號(hào)+供應(yīng)商代碼+物料名稱+單價(jià)+數(shù)量+金額等D8銷售盤存報(bào)告單售藥員店長(zhǎng)藥品編號(hào)+藥品名稱+藥品類別+藥品數(shù)量+銷售額D9庫(kù)存統(tǒng)計(jì)庫(kù)存管理員店長(zhǎng)藥品編號(hào)+藥品名稱+藥品數(shù)量2.8 新系統(tǒng)的邏輯模型邏輯模型如上（8頁(yè)）第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è)模塊：基本信息管理模

14、塊，藥品庫(kù)存管理模塊，藥品銷售管理模塊，藥品采購(gòu)管理模塊。3.2 數(shù)據(jù)庫(kù)設(shè)計(jì)表3-1藥店進(jìn)銷存系統(tǒng)的數(shù)據(jù)庫(kù)一覽表序號(hào)數(shù)據(jù)庫(kù)名用途數(shù)據(jù)來(lái)源數(shù)據(jù)去向1藥品信息表存放藥品代碼及基本屬性錄入各種輸入、輸出、查詢、查詢藥品基本信息2庫(kù)存盤存表存放倉(cāng)庫(kù)代碼及儲(chǔ)存數(shù)量錄入查詢、統(tǒng)計(jì)匯總、庫(kù)存分析3進(jìn)貨情況表存放進(jìn)藥的代碼、名稱、數(shù)量、單價(jià)錄入統(tǒng)計(jì)匯總、消耗分析4銷售情況表存放銷售情況錄入輸出單據(jù)、統(tǒng)計(jì)匯總各數(shù)據(jù)表結(jié)構(gòu)如下：表3-2進(jìn)貨情況表序號(hào)字段名類型長(zhǎng)度1進(jìn)貨日期A202藥品名稱A203藥品代碼A204進(jìn)貨數(shù)量N5進(jìn)貨單價(jià)$6進(jìn)貨金額$7采購(gòu)人A108驗(yàn)收人A109計(jì)量單位A1010規(guī)格A1011缺貨單

15、編號(hào)A1012進(jìn)貨單編號(hào)A1013合同號(hào)A1014供應(yīng)商A20表3-13藥品信息表序號(hào)字段名類型長(zhǎng)度1藥品代碼A202藥品名稱A203藥品分類A204制造商A305生產(chǎn)時(shí)期A206有效期A47進(jìn)貨單價(jià)$8銷售員A109生產(chǎn)地址A3010聯(lián)系電話A1311傳真A13表3-4銷售情況表序號(hào)字段名類型長(zhǎng)度1銷售日期A202藥品名稱A203藥品代碼A204銷售數(shù)量N5銷售單價(jià)$6銷售金額$表 3-5 不合格藥品表序號(hào)字段名類型長(zhǎng)度1日期D2藥品名稱A203藥品代碼A104數(shù)量N5規(guī)格A106生產(chǎn)日期D7生產(chǎn)批次A108不合格狀況A109處理措施A2010管理員A1011供貨商A2012備注A50表 3

16、-6員工信息表序號(hào)字段名類型長(zhǎng)度1員工編號(hào)A102姓名A103性別S4年齡A105住址A206職位A107聯(lián)系電話A20表3-7庫(kù)存盤存表序號(hào)字段名類型長(zhǎng)度1藥品代碼A202藥品名稱A203庫(kù)存量N4進(jìn)貨單價(jià)$5庫(kù)存金額$3.3 代碼設(shè)計(jì)unit ENTERUnit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, jpeg;type TForm1 = class(TForm) Image1: TImage;

17、Image2: TImage; Image3: TImage; Label1: TLabel; Image4: TImage; procedure Image3Click(Sender: TObject); procedure Image2Click(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1;implementationuses MainUnit;$R *.dfmprocedure TForm1.Image3Click(Sender: TObje

18、ct);beginClose;end;procedure TForm1.Image2Click(Sender: TObject);beginForm2.show;end;end.unit YPJHUnit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, Mask, DBCtrls, DB, DBTables, ExtCtrls, Grids, DBGrids;type TForm4 = class(TForm)

19、 Label1: TLabel; GroupBox1: TGroupBox; Table1: TTable; DataSource1: TDataSource; Table1BDEDesigner: TStringField; Table1BDEDesigner2: TStringField; Table1BDEDesigner3: TStringField; Table1BDEDesigner4: TFloatField; Table1BDEDesigner5: TCurrencyField; Table1BDEDesigner6: TCurrencyField; Label2: TLabe

20、l; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; Image1: TImage; GroupBox2: TGroupBox; DBGrid1: TDBGri

21、d; DBNavigator1: TDBNavigator; procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); private Private declarations public Public declarations end;var Form4: TForm4;implementation$R *.dfmprocedure TForm4.SpeedButton1Click(Sender: TObject);beginTable1.Append;end;pr

22、ocedure TForm4.SpeedButton2Click(Sender: TObject);VARR1:real;R2:real;Code1:Integer;Code2:Integer;s1:string;s2:string;s3:string;beginTable1.Edit;s1:=DBEdit4.text;S2:=DBEdit5.text;Val(S1,R1,CODE1);Val(s2,R2,CODE2);STR(r1*r2,S3);DBEdit6.text:=S3;Table1.Post;end;end.unit YPKCUnit;interfaceuses Windows,

23、Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, StdCtrls, Grids, DBGrids, DBTables, Buttons;type TForm6 = class(TForm) Label1: TLabel; GroupBox1: TGroupBox; Table1: TTable; DataSource1: TDataSource; GroupBox2: TGroupBox; GroupBox3: TGroupBox; DBGrid1: TDBGrid; Table2:

24、TTable; DataSource2: TDataSource; DBGrid2: TDBGrid; Table3: TTable; DataSource3: TDataSource; DBGrid3: TDBGrid; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Table3BDEDesigner: TStringField; T

25、able3BDEDesigner2: TStringField; Table3BDEDesigner3: TFloatField; Table3BDEDesigner4: TCurrencyField; Table3BDEDesigner5: TCurrencyField; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; Table4: TTable; DataSo

26、urce4: TDataSource; private Private declarations public Public declarations end;var Form6: TForm6;implementation$R *.dfmend.unit YPXSUnit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, DB, DBTables, Buttons, Mask, DBCtrls,

27、ComCtrls, ExtCtrls;type TForm5 = class(TForm) Label1: TLabel; Label2: TLabel; Table1: TTable; DataSource1: TDataSource; GroupBox1: TGroupBox; DBGrid1: TDBGrid; GroupBox2: TGroupBox; Table1BDEDesigner: TStringField; Table1BDEDesigner2: TStringField; Table1BDEDesigner3: TStringField; Table1BDEDesigner

28、4: TFloatField; Table1BDEDesigner5: TCurrencyField; Table1BDEDesigner6: TCurrencyField; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; SpeedBut

29、ton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; StatusBar1: TStatusBar; Timer1: TTimer; procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private Private declarations public Public declarati

30、ons end;var Form5: 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:string;s3:string;beginTable1.Edit;s1:=DBEdit4.text;S2:=DBEdit5.te

31、xt;Val(S1,R1,CODE1);Val(s2,R2,CODE2);STR(r1*r2,S3);DBEdit6.text:=S3;Table1.Post;end;procedure TForm5.Timer1Timer(Sender: TObject);begin begin StatusBar1.Panels1.Text := FormatDateTime( 'yyyy "年 "mm "月 "dd "日 " hh:mm:ss ', Now();end;end;end.unit YPXXUnit;interfac

32、euses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, DBCtrls, Buttons, DB, DBTables, ExtCtrls;type TForm3 = class(TForm) Label1: TLabel; DataSource1: TDataSource; SpeedButton1: TSpeedButton; Label13: TLabel; Label14: TLabel; GroupBox1: TGroupBox;

33、Label2: TLabel; 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; DBEdit5: TDBEdit; DBEdit6: TDBEdit; DBEdit7: TDBE

34、dit; DBEdit8: TDBEdit; DBEdit9: TDBEdit; DBEdit10: TDBEdit; DBEdit11: TDBEdit; Edit1: TEdit; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; SpeedButton5: TSpeedButton; Table1: TTable; Table1BDEDesigner: TStringField; Table1BDEDesigner2: TStringField; Table1BDEDes

35、igner3: TStringField; Table1BDEDesigner4: TStringField; Table1BDEDesigner5: TStringField; Table1BDEDesigner6: TStringField; Table1BDEDesigner7: TCurrencyField; Table1BDEDesigner8: TStringField; Table1BDEDesigner9: TStringField; Table1BDEDesigner10: TStringField; Table1BDEDesigner11: TStringField; pr

36、ocedure SpeedButton2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton4Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); private Private declarations public Public declarations end;var Form3: T

37、Form3;implementation$R *.dfmprocedure TForm3.SpeedButton2Click(Sender: TObject);beginTable1.Append;end;procedure TForm3.SpeedButton3Click(Sender: TObject);beginTable1.Delete;end;procedure TForm3.SpeedButton4Click(Sender: TObject);beginTable1.Edit;Table1.Post;end;procedure TForm3.SpeedButton5Click(Se

38、nder: TObject);beginClose;end;procedure TForm3.SpeedButton1Click(Sender: TObject);begin With Table1 do begin Indexname:='YPMC' Open; SetKey; FieldByname('藥品名稱').Asstring:=Edit1.text; GotoNearest; if DBEdit1.Text<>Edit1.text then Showmessage('沒(méi)有該藥品信息！'); End; End;end.3.3 輸入輸出設(shè)計(jì)表3-8 庫(kù)存統(tǒng)計(jì)表（輸出）庫(kù)存統(tǒng)計(jì)日期 年 月 日 藥品代碼藥品名稱規(guī)格現(xiàn)有庫(kù)存出庫(kù)數(shù)目業(yè)購(gòu)藥人員庫(kù)存管理員：表 3-9 藥品缺貨單（輸出）藥品缺貨單日期 年