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

學(xué)習(xí)-----好資料管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告題目：小型藥店藥品進(jìn)銷存管理系統(tǒng)專業(yè)班級(jí)：信息管理與信息系統(tǒng) 081班組長：組員：指導(dǎo)教師：成績：更多精品文檔學(xué)習(xí)-----好資料目 錄1.11.1........11.211.3....12.32.132.232.2.1.32.2.2.32.2.3.32.2.4.32.2.5.42.2.6.42.3..42.442.552.662.772.7.1.72.7.2.82.7.3102.8113123.1123.2133.316更多精品文檔學(xué)習(xí)-----好資料3.4/264..34更多精品文檔學(xué)習(xí)-----好資料第1章 藥店進(jìn)銷存概述1.1 系統(tǒng)開發(fā)背景隨著經(jīng)濟(jì)的發(fā)展，人們生活水平的提高，醫(yī)療保險(xiǎn)隨之逐漸推廣，導(dǎo)致藥店市場的競爭越來越激烈，藥品的種類也隨之增加，對(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)營過程中對(duì)藥品的進(jìn)貨、出貨、庫存、價(jià)格及賬務(wù)進(jìn)行精確快速的管理，大大見底了經(jīng)營管理中的復(fù)雜性以及出錯(cuò)率、減輕手工勞動(dòng)的強(qiáng)度，提高顧客的滿意度，從而為藥店的整體運(yùn)行提供全面的、自動(dòng)化的管理及各種服務(wù)的信息系統(tǒng)。1.2 國內(nèi)對(duì)此問題研究的現(xiàn)狀市場上的管理系統(tǒng)軟件 類型有三種，一是通用版本；一是專為醫(yī)藥企業(yè)定制開發(fā)的，但周期長，費(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)。1.3 研究目的及意義針對(duì)當(dāng)前醫(yī)藥產(chǎn)品銷售日益激烈的競爭情況,為加強(qiáng)管理,提高工作效率和改善服務(wù)質(zhì)量而設(shè)計(jì)一套行之有效的管理系統(tǒng).通過研究分析一個(gè)小型單體藥店的整個(gè)銷售流程,滿足管理人員和一般客戶的基本要求,將日常繁瑣的工作簡單化,規(guī)范化,電子化,自動(dòng)化.力求將整個(gè)平臺(tái)簡化到幾個(gè)人就足以完成全部的維護(hù)更新工作,解決藥品管理工作中所遇到的問題，方便管理員可以隨時(shí)地做添加、查詢、更多精品文檔學(xué)習(xí)-----好資料刪除、修改等工作，將管理人員繁重復(fù)雜的工作變得合理、簡捷，且考慮到未來系統(tǒng)擴(kuò)展 的可能性,而采用Delphi和Database技術(shù)來實(shí)現(xiàn).從而達(dá)到以下目的：人力與設(shè)備費(fèi)用的相對(duì)減少；處理速度的提高；控制精度的提高；人員利用率的改進(jìn)；節(jié)省投資和運(yùn)營成本。本藥品信息管理子系統(tǒng)目的是為小型單體藥店管理及銷售人員、采購人員提供更確切的數(shù)據(jù)。方便他們更方便快捷的對(duì)藥品進(jìn)行管理，節(jié)省了對(duì)于藥品手工錄入，而浪費(fèi)的人力物力！更多精品文檔學(xué)習(xí)-----好資料第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à)格昂貴。小型單體藥店基金不充裕，購買市場上的藥店管理系統(tǒng)可能性低，且工作人員較少。2.1 企業(yè)現(xiàn)狀調(diào)查2.2.1經(jīng)濟(jì)可行性在經(jīng)濟(jì)上，用此系統(tǒng)加強(qiáng)了藥品超市的管理效率， 為顧客提供了快捷的服務(wù)，自然提高了超市的收入。同時(shí)本系統(tǒng)的開發(fā)費(fèi)用，主機(jī)費(fèi)用，人員培訓(xùn)費(fèi)用都比較合理。由于本系統(tǒng)的開發(fā)費(fèi)用較低，適合小型單體藥店使用，方便藥品的銷售和庫存情況的信息查詢，是一個(gè)比較人性化的管理系統(tǒng)。2.2.2技術(shù)可行性本系統(tǒng)采用delphi做界面，Database做數(shù)據(jù)庫。在delphi中可實(shí)現(xiàn)預(yù)定藥品管理，藥品庫存管理，藥品日常銷售登記等工作。2.2.3市場可行性隨著藥店行業(yè)競爭越來越激烈和科學(xué)技術(shù)的發(fā)展，導(dǎo)致現(xiàn)今藥品種類繁多，藥品市場競爭激烈，經(jīng)營方向朝規(guī)?；?、電子化、自動(dòng)化方向發(fā)展。提高藥品超市的藥品價(jià)格透明度，方便顧客查詢，做出最好的選擇，防止偽劣假冒藥品流入超市，保障顧客和超市的利益。此系統(tǒng)能夠及時(shí)反映超市銷售情況和庫存情況，使超市能夠及時(shí)調(diào)整好內(nèi)部藥品銷售和庫存的比例。改善藥品超市的經(jīng)營效率，提高營業(yè)利潤。2.2.4用戶使用可行性使用本軟件人員要求有一定計(jì)算機(jī)基礎(chǔ)的人員,系統(tǒng)管理員要求有計(jì)算機(jī)的專業(yè)知識(shí)。管理人員也需經(jīng)一般培訓(xùn)。經(jīng)過培訓(xùn)人員將會(huì)熟練使用本軟件。更多精品文檔學(xué)習(xí)-----好資料2.2.5法律方面可行性本系統(tǒng)的研制和開發(fā)，將不會(huì)侵犯他人，集體和國家的利益，不會(huì)違反國家政策和法律。2.2.6結(jié)論綜上所述，本工程的技術(shù)成熟、完備，能夠適應(yīng)藥店管理工作需求，具有良好的市場拓展，因此本工程可開始。2.3人員安排與進(jìn)度控制圖2-1 人員安排與進(jìn)度控制進(jìn)度控制人員安排如圖2-1，其中項(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ì)藥品的銷售、采購、庫存、利潤等統(tǒng)計(jì)。更多精品文檔學(xué)習(xí)-----好資料藥品進(jìn)銷存管理系統(tǒng)基藥藥藥本品品品信采銷庫息購售存管管管管理理理理圖2-2系統(tǒng)功能結(jié)構(gòu)2.5系統(tǒng)業(yè)務(wù)流程分析

藥品統(tǒng)計(jì)管理進(jìn)貨情況表 購藥審批單 銷售情況表進(jìn)藥盤存銷售盤存報(bào)告單購藥人員店長售藥員報(bào)告單藥品發(fā)貨單 藥品訂貨單 藥品缺貨單 藥品檢驗(yàn)單 藥品信息表 購藥收據(jù) 查詢請(qǐng)求 查詢結(jié)果購藥收據(jù)退貨單庫存管理藥品供應(yīng)商 （不合格） 顧客員退藥單藥品入庫單相關(guān)規(guī)定藥品發(fā)貨單圖2-3系統(tǒng)業(yè)務(wù)流程圖如圖，本系統(tǒng)根據(jù)庫存情況由庫存管理員確定藥品缺貨單，交給店長審查，如確認(rèn)訂貨則把購藥審批單（簽字后藥品缺貨單）交給購藥人員，購藥人員向藥品供應(yīng)商下達(dá)藥品訂貨單，藥品供應(yīng)商把1藥品發(fā)貨單交給購藥人員和庫存管理員，藥品則由庫存管理員檢查核對(duì)；與藥品發(fā)貨單相符且合格則做入庫處理，向店長上交藥品檢驗(yàn)單，庫存管理員更新庫存盤存表，購藥人員更新進(jìn)貨情況表。否則退貨。顧客向售藥員詢問藥品，經(jīng)查詢后告訴顧客查詢結(jié)果，如顧客滿意，則交款開收更多精品文檔學(xué)習(xí)-----好資料據(jù)，顧客拿收據(jù)去庫存管理員處取藥。庫存管理員更新庫存盤存表。買藥后如退貨則在庫存管理員處依據(jù)發(fā)票和相關(guān)規(guī)定做退藥處理。每月庫存管理員，售藥員，購藥人員向店長分別上交，庫存盤存報(bào)告單，銷售盤存報(bào)告單，進(jìn)貨盤存報(bào)告單。2.6系統(tǒng)數(shù)據(jù)流程分析購藥審批單藥品缺貨單購藥人員 藥品訂貨單銷售情況表售藥員庫存庫存盤存管理員藥品信息表

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

退貨單藥品訂貨單供應(yīng)商購藥收據(jù)退藥單 顧客進(jìn)藥盤存報(bào)告單藥品檢驗(yàn)單店長銷售盤存報(bào)告單藥品缺貨單圖2-4系統(tǒng)頂層數(shù)據(jù)流程圖店長銷售盤存報(bào)告單藥品缺貨單店長確認(rèn)P5藥品檢進(jìn)貨單庫存統(tǒng)計(jì)驗(yàn)單藥品供應(yīng)藥品發(fā)貨單P4商P2藥品入庫單F1庫存盤存藥品檢驗(yàn)入庫處理退貨單單退貨P8藥P9P3品取藥處理發(fā)銷售統(tǒng)計(jì)貨退貨處理收購單據(jù)物藥品訂貨單P6購物收據(jù)銷售情況顧客F2P1購藥處理表缺貨處理P7退藥處理F1庫存盤存F4藥品信息F3進(jìn)貨情況表查詢處理圖2-5系統(tǒng)第一層數(shù)據(jù)流程圖更多精品文檔學(xué)習(xí)-----好資料2.7數(shù)據(jù)字典2.7.1處理邏輯的定義描述藥店進(jìn)銷存管理系統(tǒng)的最底層數(shù)據(jù)流程圖中的數(shù)據(jù)處理P1~P10的名稱、輸入流、輸出流和要做的處理。處理邏輯定義見表2-1。表2－1處理邏輯定義編號(hào)名稱輸入處理邏輯輸出P1缺貨處理F1庫存信息根據(jù)庫存信息，藥品訂貨單藥品審批單確定訂貨數(shù)目、種類，F(xiàn)4藥品信息審批后下達(dá)藥品訂貨單P2藥品檢驗(yàn)藥品發(fā)貨單根據(jù)實(shí)際藥品種類、數(shù)藥品檢驗(yàn)單目。進(jìn)行檢驗(yàn)。合格則入藥品入庫單庫P3退貨處理藥品發(fā)貨單根據(jù)實(shí)際藥品種類、數(shù)退貨單目。進(jìn)行檢驗(yàn)。如不合格則退貨。P4入庫處理藥品入庫單根據(jù)入庫單F1庫存盤存表進(jìn)行入庫處理F3進(jìn)貨情況表P5庫存統(tǒng)計(jì)F1庫存盤存根據(jù)F1庫存盤存定期向庫存統(tǒng)計(jì)報(bào)告店長匯報(bào)。P6購藥處理查詢結(jié)果根據(jù)顧客需求進(jìn)行查詢，購藥收據(jù)并按要求選擇顧客需要F2銷售情況表的藥P7退藥處理購藥收據(jù)根據(jù)購藥收據(jù)，退藥規(guī)定F1庫存盤存表退藥規(guī)定進(jìn)行退藥處理P8取藥處理購藥收據(jù)根據(jù)購藥收據(jù)取相應(yīng)的F2銷售情況表藥物P9銷售統(tǒng)計(jì)F2銷售情況根據(jù)銷售情況，統(tǒng)計(jì)并向銷售盤存報(bào)告單表店長匯報(bào)。P10藥品檢驗(yàn)藥品發(fā)貨單根據(jù)實(shí)際藥品種類、數(shù)藥品檢驗(yàn)單目。進(jìn)行檢驗(yàn)。合格則入藥品入庫單庫更多精品文檔學(xué)習(xí)-----好資料2.7.2數(shù)據(jù)存儲(chǔ)的定義描述物料管理系統(tǒng)的最底層數(shù)據(jù)流程圖中的數(shù)據(jù)存儲(chǔ)F1~F4，包括名稱、簡述、數(shù)據(jù)存儲(chǔ)的組成、關(guān)鍵字和相關(guān)聯(lián)的處理。數(shù)據(jù)存儲(chǔ)定義見表 2-2表2-2數(shù)據(jù)存儲(chǔ)定義編號(hào)名稱簡述組成F1庫存盤存存放藥品藥品代碼庫存信息藥品名稱庫存量進(jìn)貨單價(jià)庫存金額F2銷售情況表存放各種銷售日期+藥品的銷藥品名稱+售信息藥品代碼+銷售數(shù)量+銷售單價(jià)+銷售金額F3進(jìn)貨情況表存放進(jìn)藥進(jìn)貨日期+的基本情藥品名稱+況藥品代碼+進(jìn)貨數(shù)量+進(jìn)貨單價(jià)+進(jìn)貨金額F4藥品信息存放各種藥品代碼+藥品的信藥品名稱+息、及供藥品分類+應(yīng)商信息制造商+生產(chǎn)時(shí)期+有效期+

關(guān)鍵字藥品代碼藥品代碼銷售日期藥品代碼進(jìn)貨日期藥品代碼

相關(guān)聯(lián)的處理P1P4P5P7P6P8P9P1P4更多精品文檔學(xué)習(xí)-----好資料進(jìn)貨單價(jià)+銷售員+生產(chǎn)地址+聯(lián)系電話+傳真更多精品文檔學(xué)習(xí)-----好資料2.7.3數(shù)據(jù)流的定義：描述物料管理系統(tǒng)的最底層數(shù)據(jù)流程圖中主要數(shù)據(jù)流的名稱、來源、去向、組成。數(shù)據(jù)流定義見表2-3。表2-3數(shù)據(jù)流定義編號(hào)名稱來源去向組成D1購藥審批單購藥人員店長藥品代碼+藥品名稱+藥品規(guī)格+藥品單價(jià)+采購數(shù)量等D2藥品入庫單藥品供應(yīng)商庫存管理員藥品代碼+藥品名稱+藥品規(guī)格+藥品數(shù)量+進(jìn)貨日期+藥品單價(jià)+進(jìn)貨商名稱D3退貨單庫存管理員藥品供應(yīng)商藥品名稱+藥品類別+藥品數(shù)量+進(jìn)貨日期+進(jìn)貨商名稱+退貨原因D4藥品訂貨單購藥人員藥品供應(yīng)商藥品名稱+藥品類別+藥品數(shù)量+藥品單價(jià)+進(jìn)貨日期+更多精品文檔學(xué)習(xí)-----好資料D5藥品發(fā)貨單藥品供應(yīng)商庫存管理員藥品名稱+藥品類別+藥品數(shù)量+進(jìn)貨日期+藥品單價(jià)+進(jìn)貨商名稱等D6藥品檢驗(yàn)單庫存管理員店長藥品名稱+藥品類別+藥品數(shù)量+進(jìn)貨日期+進(jìn)貨商名稱+是否合格D7購藥收據(jù)售藥員顧客發(fā)票號(hào)+供應(yīng)商代碼+物料名稱+單價(jià)+數(shù)量+金額等D8銷售盤存報(bào)售藥員店長藥品編號(hào)+告單藥品名稱+藥品類別+藥品數(shù)量+銷售額D9庫存統(tǒng)計(jì)庫存管理員店長藥品編號(hào)+藥品名稱+藥品數(shù)量2.8 新系統(tǒng)的邏輯模型邏輯模型如上（8頁）更多精品文檔學(xué)習(xí)-----好資料第3章 系統(tǒng)設(shè)計(jì)3.1 功能結(jié)構(gòu)設(shè)計(jì)小型藥店藥品進(jìn)銷存管理系統(tǒng)基藥藥藥藥本品品品品信庫銷統(tǒng)采息存售計(jì)購管管管管管理理理理理藥供檢退銷銷進(jìn)銷采品檢打貨售售售應(yīng)總基驗(yàn)驗(yàn)貨信印明盤盤購商盤本處處管息處細(xì)存存記信理理存錄信理記理統(tǒng)統(tǒng)統(tǒng)息息錄計(jì)計(jì)計(jì)圖3-1功能結(jié)構(gòu)設(shè)計(jì)藥品進(jìn)銷存管理系統(tǒng)共有5個(gè)模塊：基本信息管理模塊，藥品庫存管理模塊，藥品銷售管理模塊，藥品采購管理模塊。更多精品文檔學(xué)習(xí)-----好資料3.2 數(shù)據(jù)庫設(shè)計(jì)表3-1藥店進(jìn)銷存系統(tǒng)的數(shù)據(jù)庫一覽表序號(hào)數(shù)據(jù)庫名用途數(shù)據(jù)來源數(shù)據(jù)去向1藥品信息表存放藥品代錄入各種輸入、輸出、查詢、碼及基本屬查詢藥品基本信息性2庫存盤存表存放倉庫代錄入查詢、統(tǒng)計(jì)匯總、庫存分析碼及儲(chǔ)存數(shù)量3進(jìn)貨情況表存放進(jìn)藥的錄入統(tǒng)計(jì)匯總、消耗分析代碼、名稱、數(shù)量、單價(jià)4銷售情況表存放銷售情錄入輸出單據(jù)、統(tǒng)計(jì)匯總況各數(shù)據(jù)表結(jié)構(gòu)如下：表3-2進(jìn)貨情況表序號(hào)字段名類型長度1進(jìn)貨日期A202藥品名稱A203藥品代碼A204進(jìn)貨數(shù)量N5進(jìn)貨單價(jià)$6進(jìn)貨金額$7采購人A108驗(yàn)收人A109計(jì)量單位A1010規(guī)格A1011缺貨單編號(hào)A10更多精品文檔學(xué)習(xí)-----好資料12進(jìn)貨單編號(hào)A1013合同號(hào)A1014供應(yīng)商A20表3-13藥品信息表序號(hào)字段名類型長度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)字段名類型長度1銷售日期A202藥品名稱A203藥品代碼A204銷售數(shù)量N5銷售單價(jià)$6銷售金額$表3-5 不合格藥品表更多精品文檔學(xué)習(xí)-----好資料序號(hào)字段名類型長度1日期D2藥品名稱A203藥品代碼A104數(shù)量N5規(guī)格A106生產(chǎn)日期D7生產(chǎn)批次A108不合格狀況A109處理措施A2010管理員A1011供貨商A2012備注A50表3-6員工信息表序號(hào)字段名類型長度1員工編號(hào)A102姓名A103性別S4年齡A105住址A206職位A107聯(lián)系電話A20更多精品文檔學(xué)習(xí)-----好資料表3-7庫存盤存表序號(hào)字段名類型長度1藥品代碼A202藥品名稱A203庫存量N4進(jìn)貨單價(jià)$5庫存金額$3.3 代碼設(shè)計(jì)unitENTERUnit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,StdCtrls,jpeg;typeTForm1=class(TForm)Image1:TImage;Image2:TImage;Image3:TImage;Label1:TLabel;Image4:TImage;procedureImage3Click(Sender:TObject);procedureImage2Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}更多精品文檔學(xué)習(xí)-----好資料end;varForm1:TForm1;implementationusesMainUnit;{$R*.dfm}procedureTForm1.Image3Click(Sender:TObject);beginClose;end;procedureTForm1.Image2Click(Sender:TObject);beginForm2.show;end;end.unitYPJHUnit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Buttons,StdCtrls,Mask,DBCtrls,DB,DBTables,ExtCtrls,Grids,DBGrids;更多精品文檔學(xué)習(xí)-----好資料typeTForm4=class(TForm)Label1:TLabel;GroupBox1:TGroupBox;Table1:TTable;DataSource1:TDataSource;Table1BDEDesigner:TStringField;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;DBEdit3:TDBEdit;DBEdit4:TDBEdit;DBEdit5:TDBEdit;DBEdit6:TDBEdit;SpeedButton1:TSpeedButton;SpeedButton2:TSpeedButton;Image1:TImage;GroupBox2:TGroupBox;DBGrid1:TDBGrid;DBNavigator1:TDBNavigator;procedureSpeedButton1Click(Sender:TObject);procedureSpeedButton2Click(Sender:TObject);private{Privatedeclarations}更多精品文檔學(xué)習(xí)-----好資料public{Publicdeclarations}end;varForm4:TForm4;implementation{$R*.dfm}procedureTForm4.SpeedButton1Click(Sender:TObject);beginTable1.Append;end;procedureTForm4.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;更多精品文檔學(xué)習(xí)-----好資料end.unitYPKCUnit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,DB,StdCtrls,Grids,DBGrids,DBTables,Buttons;typeTForm6=class(TForm)Label1:TLabel;GroupBox1: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:TLabel;Label7:TLabel;更多精品文檔學(xué)習(xí)-----好資料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;SpeedButton1:TSpeedButton;SpeedButton2:TSpeedButton;SpeedButton3:TSpeedButton;Table4:TTable;DataSource4:TDataSource;private{Privatedeclarations}public{Publicdeclarations}end;varForm6:TForm6;implementation{$R*.dfm}end.更多精品文檔學(xué)習(xí)-----好資料unitYPXSUnit;interfaceusesWindows, Messages,SysUtils, Variants, Classes, Graphics, Controls,Forms,Dialogs, Grids, DBGrids,StdCtrls, DB,DBTables,Buttons, Mask,DBCtrls,ComCtrls,ExtCtrls;typeTForm5=class(TForm)Label1:TLabel;Label2:TLabel;Table1:TTable;DataSource1:TDataSource;GroupBox1:TGroupBox;DBGrid1:TDBGrid;GroupBox2:TGroupBox;Table1BDEDesigner:TStringField;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;DBEdit3:TDBEdit;DBEdit4:TDBEdit;更多精品文檔學(xué)習(xí)-----好資料DBEdit5:TDBEdit;DBEdit6:TDBEdit;SpeedButton1:TSpeedButton;SpeedButton2:TSpeedButton;SpeedButton3:TSpeedButton;StatusBar1:TStatusBar;Timer1:TTimer;procedureSpeedButton1Click(Sender:TObject);procedureSpeedButton2Click(Sender:TObject);procedureTimer1Timer(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm5:TForm5;implementation{$R*.dfm}procedureTForm5.SpeedButton1Click(Sender:TObject);beginTable1.Append;end;procedureTForm5.SpeedButton2Click(Sender:TObject);VARR1:real;R2:real;Code1:Integer;Code2:Integer;s1:string;更多精品文檔學(xué)習(xí)-----好資料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;procedureTForm5.Timer1Timer(Sender:TObject);beginbeginStatusBar1.Panels[1].Text := FormatDateTime( 'yyyy "年"mm"月"dd" 日" hh:mm:ss', Now());end;end;end.unitYPXXUnit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Mask,DBCtrls,Buttons,DB,DBTables,ExtCtrls;type更多精品文檔學(xué)習(xí)-----好資料TForm3=class(TForm)Label1:TLabel;DataSource1:TDataSource;SpeedButton1:TSpeedButton;Label13:TLabel;Label14:TLabel;GroupBox1:TGroupBox;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:TDBEdit;DBEdit8:TDBEdit;DBEdit9:TDBEdit;DBEdit10:TDBEdit;DBEdit11:TDBEdit;Edit1:TEdit;SpeedButton2:TSpeedButton;SpeedButton3:TSpeedButton;SpeedButton4:TSpeedButton;SpeedButton5:TSpeedButton;Table1:TTable;更多精品文檔學(xué)習(xí)-----好資料Table1BDEDesigner:TStringField;Table1BDEDesigner2:TStringField;Table1BDEDesigner3:TStringField;Table1BDEDesigner4:TStringField;Table1BDEDesigner5:TStringField;Table1BDEDesigner6:TStringField;Table1BDEDesigner7:TCurrencyField;Table1BDEDesigner8:TStringField;Table1BDEDesigner9:TStringField;Table1BDEDesigner10:TStringField;Table1BDEDesigner11:TStringField;procedureSpeedButton2Click(Sender:TObject);procedureSpeedButton3Click(Sender:TObject);procedureSpeedButton4Click(Sender:TObject);procedureSpeedButton5Click(Sender:TObject);procedureSpeedButton1Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm3:TForm3;implementation{$R*.dfm}procedureTForm3.SpeedButton2Click(Sender:TObject);beginTable1.Append;end;procedureTForm3.SpeedButton3Click(Sender:TObject);更多精品文檔學(xué)習(xí)-----好資料beginTable1.Delete;end;procedureTForm3.SpeedButton4Click(Sender:TObject);beginTable1.Edit;Table1.Post;end;procedureTForm3.SpeedButton5Click(Sender:TObject);beginClose;end;procedureTForm3.SpeedButton1Click(Sender:TObject);beginWithTable1dobeginIndexname:='YPMC';Open;SetKey;FieldByname(' 藥品名稱').Asstring:=Edit1.text;GotoNearest;ifDBEdit1.Text<>Edit1.textthenShowmessage('沒有該藥品信息！');End;End;end.更多精品文檔學(xué)習(xí)-----好資料3.3 輸入輸出設(shè)計(jì)表3-8庫存統(tǒng)計(jì)表（輸出）庫存統(tǒng)計(jì)日期 年 月 日藥品代碼 藥品名稱 規(guī)格 現(xiàn)有庫存 出庫數(shù)目 業(yè)購藥人員庫存管理員：表3-9藥品缺貨單（輸出）藥品缺貨單日期年月日編號(hào)No：藥藥物規(guī)供需需現(xiàn)合采采預(yù)品品料格應(yīng)求求有同購