藥房進(jìn)銷(xiāo)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)畢業(yè)論文

1、<p>　　計(jì)算機(jī)系本科畢業(yè)（設(shè)計(jì)）論文</p><p><b>　　二零一零年六月</b></p><p>　課題名稱(chēng)祥樂(lè)大藥房進(jìn)銷(xiāo)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　專(zhuān) 業(yè)計(jì) 算 機(jī) 科 學(xué) 與 技 術(shù)</p><p>　姓 名</p><p>　學(xué) 號(hào)<

2、/p><p>　指導(dǎo)教師</p><p><b>　　目　錄</b></p><p><b>　　1引言3</b></p><p>　　1.1 系統(tǒng)研究的現(xiàn)狀3</p><p>　　1.2 系統(tǒng)目的和要求4</p><p>　　1.3 論文組織與結(jié)構(gòu)

3、4</p><p><b>　　2需求分析2</b></p><p>　　2.1用戶(hù)需求分析2</p><p>　　2.2 系統(tǒng)的可行性分析2</p><p>　　2.3 系統(tǒng)需求分析3</p><p>　　2.4 數(shù)據(jù)流圖3</p><p><b>

4、　　3概要設(shè)計(jì)4</b></p><p>　　3.1 功能模塊圖4</p><p>　　3.2 處理流程設(shè)計(jì)4</p><p>　　3.3 數(shù)據(jù)庫(kù)設(shè)計(jì)5</p><p>　　3.4 系統(tǒng)功能設(shè)計(jì)6</p><p>　　3.5 實(shí)體—關(guān)系圖5</p><p><b&g

5、t;　　4詳細(xì)設(shè)計(jì)6</b></p><p>　　4.1 系統(tǒng)設(shè)置管理模塊設(shè)計(jì)6</p><p>　　4.2 采購(gòu)管理模塊設(shè)計(jì)7</p><p>　　.3 到貨管理模塊設(shè)計(jì)7</p><p>　　4.2 庫(kù)存管理模塊設(shè)計(jì)8</p><p>　　4.5 銷(xiāo)售管理模塊設(shè)計(jì)9</p>&

6、lt;p><b>　　5系統(tǒng)實(shí)現(xiàn)9</b></p><p>　　5.1 vb 訪(fǎng)問(wèn) SQL Server 2000 技術(shù)9</p><p>　　5.2 主窗體實(shí)現(xiàn)9</p><p>　　5.3 采購(gòu)訂單管理實(shí)現(xiàn)10</p><p>　　5.4 到貨管理模塊實(shí)現(xiàn)11</p><p>

7、　　5.4 庫(kù)存管理模塊實(shí)現(xiàn)12</p><p>　　5.4 銷(xiāo)售管理模塊實(shí)現(xiàn)13</p><p>　　6系統(tǒng)調(diào)試與維護(hù)14</p><p>　　6.1 系統(tǒng)調(diào)試14</p><p>　　6.2 系統(tǒng)維護(hù)14</p><p><b>　　7結(jié)束語(yǔ)14</b></p>&l

8、t;p><b>　　致 謝15</b></p><p><b>　　參考文獻(xiàn)16</b></p><p>　　祥樂(lè)大藥房進(jìn)銷(xiāo)管理系統(tǒng)</p><p>　　摘 要：本文論述了藥房進(jìn)銷(xiāo)管理系統(tǒng)的開(kāi)發(fā)全過(guò)程，主要功能有：用戶(hù)管理、藥品入庫(kù)、藥品查詢(xún)、藥品銷(xiāo)售和報(bào)表制作等。本設(shè)計(jì)采用現(xiàn)代的數(shù)據(jù)庫(kù)開(kāi)發(fā)技術(shù)，還結(jié)合實(shí)際

9、需求，進(jìn)行了創(chuàng)造性開(kāi)發(fā)。該系統(tǒng)是以Microsoft Visual Basic 6.0 為前臺(tái)開(kāi)發(fā)環(huán)境，應(yīng)用Microsoft SQL server2000作為后臺(tái)數(shù)據(jù)庫(kù)，結(jié)合Windows操作系統(tǒng)建立起來(lái)的C/S結(jié)構(gòu)的數(shù)據(jù)庫(kù)管理系統(tǒng)，以實(shí)現(xiàn)藥房進(jìn)銷(xiāo)的系統(tǒng)化、規(guī)范化和自動(dòng)化。</p><p>　　關(guān)鍵詞：藥品進(jìn)銷(xiāo) Microsoft Visual Basic 6.0 Microsoft SQL server

10、2000</p><p>　　Abstract: This text has discussed the whole development process of medicine-management system. Main functions: user-management、medicine-storage、medicine-inquiry、medicine-sale and form-fabricati

11、on. This system adopted the modern database development technology, combined with actuality requirement, and carried on the creativeness development. The system is based on Microsoft Visual Basic 6.0 development environm

12、ent for the future. Application of Microsoft SQL server2000 database as background Win</p><p>　　Keywords: Purchase and Sales for Pharmaceutical Microsoft Visual Basic 6.0</p><p>　　Microsoft S

13、QL</p><p><b>　　1引言</b></p><p>　　1.1 系統(tǒng)研究的現(xiàn)狀</p><p>　　祥樂(lè)大藥房是一間以經(jīng)營(yíng)各種中成藥、西成藥材為主的中等規(guī)模的藥店。該藥店的主要業(yè)務(wù)是采購(gòu)藥品和銷(xiāo)售藥品。日常業(yè)務(wù)主要包括銷(xiāo)售藥品、藥品來(lái)貨驗(yàn)收登記與入庫(kù)、藥品缺貨登記等。目前,藥房仍然是用手工來(lái)處理各項(xiàng)日常業(yè)務(wù),而這些業(yè)務(wù)的特點(diǎn)是復(fù)雜

14、度低,重復(fù)性強(qiáng),手工操作會(huì)造成工作效率低下,人力資源得不到合理利用,且工作時(shí)間一長(zhǎng)容易出現(xiàn)工作失誤,給藥房帶來(lái)不必要的經(jīng)濟(jì)損失。在這種老式的管理模式中主要存在以下難題：</p><p>　?。?）藥品調(diào)價(jià)頻繁，且品種繁多,增加了藥品銷(xiāo)售定價(jià)的難度。</p><p>　　（2）藥品來(lái)貨驗(yàn)收登記中的審查有效期環(huán)節(jié)容易出錯(cuò)，錯(cuò)收過(guò)期或有效期不足的藥品。</p><p>　

15、?。?）手工模式下的藥品庫(kù)存難以及時(shí)掌握，雖然采取了每日進(jìn)行缺貨登記的措施來(lái)控制庫(kù)存，卻增加了登記尚未缺貨藥品庫(kù)存的多余工作，費(fèi)時(shí)費(fèi)力。</p><p>　　（4） 不能及時(shí)了解每種藥品的所剩有效期,使一些藥品錯(cuò)過(guò)退貨期限,造成過(guò)期藥品庫(kù)存堆積,帶來(lái)嚴(yán)重的經(jīng)濟(jì)損失。</p><p>　　為了適應(yīng)時(shí)代的發(fā)展,提高該藥房的工作效率,優(yōu)化庫(kù)存的數(shù)量與質(zhì)量,以增加藥房的經(jīng)濟(jì)效益和使藥房運(yùn)轉(zhuǎn)更順利,

16、應(yīng)盡量減少手工操作的工序,實(shí)現(xiàn)對(duì)藥品的各項(xiàng)管理的電腦化,使高新技術(shù)在降低運(yùn)營(yíng)成本、提高管理水平和綜合經(jīng)濟(jì)效益中發(fā)揮積極的作用。</p><p>　　1.2 系統(tǒng)目的和要求</p><p>　　通過(guò)分析研究任務(wù)書(shū)要求，以及實(shí)地調(diào)研，對(duì)系統(tǒng)進(jìn)行進(jìn)一步需求分析，設(shè)計(jì)商品管理系統(tǒng)的主要功能，把其分為了五大模塊：采購(gòu)管理模塊、銷(xiāo)售管理模塊、庫(kù)存管理模塊和系統(tǒng)設(shè)置管理模塊、退貨管理模塊。采購(gòu)管理模塊包

17、括采購(gòu)員管理、采購(gòu)材料管理、采購(gòu)訂單管理情況；銷(xiāo)售管理模塊包括銷(xiāo)售信息維護(hù)、銷(xiāo)售信息查詢(xún)等管理；庫(kù)存管理模塊對(duì)庫(kù)存信息維護(hù)、庫(kù)存信息查詢(xún)；系統(tǒng)管理模塊包括用戶(hù)的增加和刪除、用戶(hù)本身密碼修改及各個(gè)用戶(hù)操作該系統(tǒng)的權(quán)限。在以上工作的基礎(chǔ)上，對(duì)系統(tǒng)進(jìn)行詳細(xì)設(shè)計(jì)和實(shí)現(xiàn)系統(tǒng)的所有功能，最后進(jìn)入論文撰寫(xiě)階段，完成系統(tǒng)設(shè)計(jì)和論文撰寫(xiě)的工作。</p><p>　　1.3 論文組織與結(jié)構(gòu)</p><p>　

18、　第一章：引言。介紹祥樂(lè)大藥房進(jìn)銷(xiāo)管理系統(tǒng)的開(kāi)發(fā)背景和現(xiàn)狀，以及本人的研究工作；</p><p>　　第二章：需求分析。分別對(duì)需求和可行性進(jìn)行了分析；</p><p>　　第三章：概要設(shè)計(jì)。介紹祥樂(lè)大藥房進(jìn)銷(xiāo)管理系統(tǒng)需要實(shí)現(xiàn)的功能模塊以及開(kāi)發(fā)環(huán)境和數(shù)據(jù)庫(kù)設(shè)計(jì)；</p><p>　　第四章：詳細(xì)設(shè)計(jì)。對(duì)系統(tǒng)的功能進(jìn)行了詳細(xì)介紹；</p><p>

19、;　　第五章：系統(tǒng)實(shí)現(xiàn)。對(duì)系統(tǒng)的各個(gè)功能的實(shí)現(xiàn)進(jìn)行說(shuō)明介紹；</p><p>　　第六章：系統(tǒng)測(cè)試。對(duì)系統(tǒng)的各個(gè)功能部分進(jìn)行了調(diào)試。</p><p><b>　　2需求分析</b></p><p><b>　　2.1用戶(hù)需求分析</b></p><p>　　通過(guò)實(shí)際調(diào)查，要求本系統(tǒng)具有以下功能：&l

20、t;/p><p>　　由于操作人員的計(jì)算機(jī)知識(shí)普遍偏低，因此要求系統(tǒng)具有良好的人機(jī)界面。</p><p>　　如果系統(tǒng)的使用對(duì)象較多，則要求有較好的權(quán)限管理。</p><p>　　方便的數(shù)據(jù)查詢(xún)，支持多條件查詢(xún)。</p><p>　　批量填寫(xiě)進(jìn)貨單及銷(xiāo)售單。</p><p>　　與代理商和供應(yīng)商往來(lái)賬本明細(xì)，絕不存在假賬、

21、漏賬、差賬等情況。</p><p>　　當(dāng)外界環(huán)境（停電、網(wǎng)絡(luò)病毒）干擾本系統(tǒng)時(shí)，系統(tǒng)可以自動(dòng)保護(hù)原始數(shù)據(jù)的安全。</p><p>　　在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡(jiǎn)單、數(shù)據(jù)穩(wěn)定性強(qiáng)。</p><p>　　強(qiáng)大的報(bào)表打印功能。</p><p>　　2.2 系統(tǒng)的可行性分析</p><p>　　根據(jù)調(diào)查發(fā)現(xiàn)我國(guó)的藥品市場(chǎng)

22、還不是很規(guī)范，一般的藥店都是有采用人功操作，對(duì)賣(mài)出買(mǎi)進(jìn)來(lái)的藥品都是人功記錄，有些甚至沒(méi)有記錄，這對(duì)一個(gè)藥店來(lái)說(shuō)是極不利的，很難掌握藥店的運(yùn)行狀況，不利于藥店參與激烈的競(jìng)爭(zhēng)。隨著計(jì)算機(jī)的廣范應(yīng)用和管理系統(tǒng)越來(lái)越成熟，藥品的手功操作已不能滿(mǎn)足藥房的日常管理，故有必要建立一套適合藥房管理的系統(tǒng)來(lái)管理藥店的進(jìn)、銷(xiāo)等業(yè)務(wù)。</p><p>　　下面主要是對(duì)操作可行性、技術(shù)可行性、經(jīng)濟(jì)可行性進(jìn)行分析：</p>

23、<p>　　2.1.1 操作可行性</p><p>　　從以上的醫(yī)藥行業(yè)的背景和初步調(diào)查可知此系統(tǒng)是合乎需要的，它能使藥店更加方便科學(xué)地管理日常運(yùn)營(yíng)，增強(qiáng)藥店的社會(huì)競(jìng)爭(zhēng)力。</p><p>　　2.1.1 技術(shù)可行性</p><p>　　藥店有此系統(tǒng)開(kāi)發(fā)的軟硬件和網(wǎng)絡(luò)資源，操作系統(tǒng)為WINDOW系列，技術(shù)已比較成熟，系統(tǒng)數(shù)據(jù)庫(kù)為SQL server 數(shù)據(jù)庫(kù)

24、提供更加強(qiáng)大的數(shù)據(jù)庫(kù)管理，此系統(tǒng)能滿(mǎn)足此藥店未來(lái)的需要，并且可以擴(kuò)展，能應(yīng)付藥店未來(lái)的業(yè)務(wù)量的增加。</p><p>　　2.1.1 技術(shù)可行性</p><p>　　進(jìn)行初步調(diào)查和相關(guān)資料的搜集大概一周，總工作量90天左右，包括資料整理、資料匯總、編寫(xiě)文檔等，研究分析多個(gè)類(lèi)似系統(tǒng)，吸收其優(yōu)點(diǎn)，編寫(xiě)需求分析，然后進(jìn)行系統(tǒng)分析，系統(tǒng)設(shè)計(jì)與開(kāi)發(fā)，由于本次系統(tǒng)開(kāi)發(fā)是畢業(yè)設(shè)計(jì)，基本上沒(méi)有花費(fèi)。<

25、;/p><p>　　2.3 系統(tǒng)需求分析</p><p>　　為藥房開(kāi)發(fā)一個(gè)管理信息系統(tǒng)，使藥店行業(yè)更加現(xiàn)代化。其主要目的是為了給藥店提供一個(gè)良好的業(yè)務(wù)流程，節(jié)省時(shí)間，更好地為客戶(hù)服務(wù)，也能使藥店的經(jīng)營(yíng)利潤(rùn)提高，下面就我所做的采購(gòu)、銷(xiāo)售、入庫(kù)及系統(tǒng)設(shè)置等部分進(jìn)行功能需求分析 ：</p><p>　　輸入需求：銷(xiāo)售單輸入、入庫(kù)單輸入、操作員添加修改輸入等。</p&g

26、t;<p>　　輸出需求：到貨報(bào)表、庫(kù)存報(bào)表、退貨報(bào)表的打印輸出等。</p><p>　　性能需求：能夠根據(jù)輸入的信息從庫(kù)存表中取出存在藥品進(jìn)行銷(xiāo)售 ，系統(tǒng)用戶(hù)信息會(huì)自動(dòng)添加信息并保存。</p><p>　　功能需求：本系統(tǒng)主要是系統(tǒng)設(shè)置、采購(gòu)管理、入庫(kù)管理、退貨管理和打印報(bào)表等。</p><p><b>　　2.4 數(shù)據(jù)流圖</b&g

27、t;</p><p>　　在設(shè)計(jì)系統(tǒng)的過(guò)程中，用數(shù)據(jù)流圖來(lái)刻畫(huà)數(shù)據(jù)流和轉(zhuǎn)換信息。它用簡(jiǎn)單的圖形記號(hào)分別表示數(shù)據(jù)流、轉(zhuǎn)換、數(shù)據(jù)源以及外部實(shí)體，數(shù)據(jù)流圖是軟件系統(tǒng)中各個(gè)處理子功能以及它們之間的數(shù)據(jù)流動(dòng)的圖形表示。</p><p>　　經(jīng)過(guò)對(duì)系統(tǒng)的分析初步得到系統(tǒng)的頂級(jí)DFD，如圖2.1所示。</p><p>　　如圖2.1 系統(tǒng)的頂級(jí)DFD</p><

28、;p><b>　　3概要設(shè)計(jì)</b></p><p><b>　　3.1 功能模塊圖</b></p><p>　　系統(tǒng)功能模塊如圖3.1所示。</p><p>　　圖3.1系統(tǒng)功能模塊圖</p><p>　　3.2 處理流程設(shè)計(jì) </p><p>　　在祥樂(lè)大藥房進(jìn)銷(xiāo)管

29、理系統(tǒng)中，主要按著【采購(gòu)】【到貨】 【入庫(kù)】 【銷(xiāo)售】 【退貨】的流程對(duì)采購(gòu)的貨物進(jìn)行管理，其業(yè)務(wù)流程如圖所示：</p><p>　　圖3.2 業(yè)務(wù)流程圖</p><p><b>　　3.3 數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>　　在祥樂(lè)大藥房進(jìn)銷(xiāo)管理系統(tǒng)當(dāng)中，共設(shè)計(jì)了8張數(shù)據(jù)表。其中采購(gòu)訂單表Table_cgdd

30、、庫(kù)存信息表Table_kcb和銷(xiāo)售表是系統(tǒng)中是重要的數(shù)據(jù)表，下面就來(lái)介紹一個(gè)這三張數(shù)據(jù)表的邏輯結(jié)構(gòu)設(shè)計(jì)過(guò)程。</p><p><b>　　表1 采購(gòu)訂單表</b></p><p><b>　　表2 庫(kù)存信息表</b></p><p><b>　　續(xù)表2</b></p><p&

31、gt;<b>　　表3 庫(kù)存信息表</b></p><p>　　3.4 系統(tǒng)功能設(shè)計(jì)</p><p>　　用戶(hù)通過(guò)密碼驗(yàn)證后進(jìn)入主窗口。系統(tǒng)的主窗口主要為用戶(hù)提供七項(xiàng)功能選擇：系統(tǒng)設(shè)置，采購(gòu)管理，到貨管理, 庫(kù)存管理，銷(xiāo)售管理，退貨管理，打印報(bào)表。</p><p>　　系統(tǒng)設(shè)置：系統(tǒng)設(shè)置中可以增加操作員、修改操作員的密碼和刪除操作員。在增加完

32、操作員信息之后，可以給操作員分配操作權(quán)限?？梢詡浞莺突謴?fù)數(shù)據(jù)，保證系統(tǒng)的安全。</p><p>　　采購(gòu)管理：對(duì)采購(gòu)員信息、供應(yīng)商信息和采購(gòu)員材料信息進(jìn)行管理：錄入采購(gòu)訂單和查詢(xún)采購(gòu)訂單信息，完成從供應(yīng)商處購(gòu)進(jìn)貨物并且簽訂訂單的過(guò)程。在查詢(xún)采購(gòu)訂單的時(shí)候可以根據(jù)各種基本查詢(xún)或根據(jù)日期查詢(xún)。</p><p>　　到貨管理：管理簽訂采購(gòu)訂單后的到貨信息，對(duì)同一張訂單可以分批次地到貨。并且可以隨

33、時(shí)查詢(xún)到任何一張訂單的任何一筆到貨信息記錄。</p><p>　　庫(kù)存管理：藥品到貨以后，就應(yīng)該對(duì)貨物進(jìn)行盤(pán)點(diǎn)入庫(kù)。入庫(kù)是對(duì)到貨而言的，每一張到貨單對(duì)應(yīng)一張入庫(kù)單。出庫(kù)是對(duì)出貨而言的，每一張出售單對(duì)應(yīng)一張出庫(kù)單。</p><p>　　退貨管理：維護(hù)退貨信息和查詢(xún)退貨信息。 </p><p>　　系統(tǒng)維護(hù)模塊：本單位信息、操作員設(shè)置、操作權(quán)限設(shè)置、數(shù)據(jù)備份和數(shù)據(jù)庫(kù)恢復(fù)

34、、數(shù)據(jù)清理。</p><p>　　3.5 實(shí)體—關(guān)系圖</p><p>　　系統(tǒng)實(shí)體關(guān)系圖如圖3.3所示。</p><p>　　圖3.3 系統(tǒng)E-R圖</p><p><b>　　4詳細(xì)設(shè)計(jì)</b></p><p>　　4.1 系統(tǒng)設(shè)置管理模塊設(shè)計(jì)</p><p>　　系統(tǒng)

35、管理模塊是每個(gè)系統(tǒng)都應(yīng)該具備的，主要是對(duì)操作該系統(tǒng)的使用者進(jìn)行管理，即用戶(hù)管理。包括用戶(hù)的增加和刪除、用戶(hù)本身密碼的修改及各個(gè)用戶(hù)操作該系統(tǒng)的權(quán)限。</p><p>　　圖4.1系統(tǒng)管理模塊功能圖</p><p>　　4.2 采購(gòu)管理模塊設(shè)計(jì)</p><p>　　采購(gòu)管理系統(tǒng)主要是對(duì)采購(gòu)員信息、供應(yīng)商信息和采購(gòu)材料信息進(jìn)行管理： </p><p&

36、gt;　　圖4.2 采購(gòu)管理模塊功能</p><p>　　4.3 到貨管理模塊設(shè)計(jì)</p><p>　　管理簽訂采購(gòu)訂單后的到貨信息。對(duì)同一張訂單可以分批次地到貨，并且可以隨時(shí)查詢(xún)到任何一張訂單的任何一筆到貨信息記錄。</p><p>　　4.3 采購(gòu)管理模塊功能</p><p>　　4.2 庫(kù)存管理模塊設(shè)計(jì)</p><p

37、>　　庫(kù)存查詢(xún)模塊用于查詢(xún)超市商品的庫(kù)存情況，可以查詢(xún)總庫(kù)存和各分倉(cāng)庫(kù)的庫(kù)存情況，該模塊便于管理者對(duì)自己企業(yè)庫(kù)房的貨物進(jìn)行掌握。</p><p>　　圖4.4 采購(gòu)管理模塊功能</p><p>　　4.5 銷(xiāo)售管理模塊設(shè)計(jì)</p><p>　　銷(xiāo)售管理模塊是對(duì)商品的基礎(chǔ)信息進(jìn)行維護(hù)和管理。能夠完成商品信息的添加修改和刪除，也可以按照一定的條件查詢(xún)商品信息。&l

38、t;/p><p>　　圖4.5 采購(gòu)管理模塊功能</p><p><b>　　5系統(tǒng)實(shí)現(xiàn)</b></p><p>　　5.1 vb 訪(fǎng)問(wèn) SQL Server 2000 技術(shù)</p><p>　　運(yùn)用ODBC驅(qū)動(dòng)程序?qū)崿F(xiàn)數(shù)據(jù)庫(kù)的訪(fǎng)問(wèn)。訪(fǎng)問(wèn)程序?qū)崿F(xiàn)如下：</p><p>　　1、使用ADODC 和 Da

39、ta Grid 相結(jié)合來(lái)訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)。</p><p>　　2、配置ODBC數(shù)據(jù)源，然后訪(fǎng)問(wèn)數(shù)據(jù)庫(kù)。</p><p>　　如：Public adoCon As New ADODB.Connection</p><p>　　Public adorns As NewADODB.Recordset</p><p>　　Public Sub main

40、()</p><p>　　adoCon.Open "Provider=MSDASQL.1; Persist Security Info=False; User ID=sedated Source=cggl"</p><p><b>　　End Sub</b></p><p><b>　　5.2 主窗體實(shí)現(xiàn)</

41、b></p><p>　　在大多數(shù)應(yīng)用軟件中,系統(tǒng)主界面主要起到控制系統(tǒng)的其他模塊運(yùn)行的作用,系統(tǒng)中采用菜單控制的方式控制各子窗體的運(yùn)行。窗口如圖5.1所示:</p><p>　　圖5.1 主窗體界面</p><p>　　其主要代碼實(shí)現(xiàn)如下:</p><p>　　Private Sub Form Activate ()</p>

42、;<p>　　If Check1.Value = 1 Then</p><p>　　STSZ.Enabled = True</p><p>　　Else If Check1.Value = 0 Then</p><p>　　STSZ.Enabled = False</p><p><b>　　Else</b>

43、;</p><p><b>　　End If</b></p><p>　　If Check2.Value = 1 Then</p><p>　　CGGL.Enabled = True</p><p>　　Else If Check2.Value = 0 Then</p><p>　　CGGL.En

44、abled = False</p><p><b>　　Else</b></p><p><b>　　End If</b></p><p>　　If Check3.Value = 1 Then</p><p>　　DHGL.Enabled = True</p><p>　　E

45、lse If Check3.Value = 0 Then</p><p>　　DHGL.Enabled = False</p><p><b>　　Else</b></p><p><b>　　End If</b></p><p>　　If Check4.Value = 1 Then</p&g

46、t;<p>　　kcgl.Enabled = True</p><p>　　Else If Check4.Value = 0 Then</p><p>　　kcgl.Enabled = False</p><p><b>　　Else</b></p><p><b>　　End If</b&

47、gt;</p><p>　　If Check5.Value = 1 Then</p><p>　　xsgl.Enabled = True</p><p>　　Else If Check5.Value = 0 Then</p><p>　　xsgl.Enabled = False</p><p><b>　　E

48、lse</b></p><p><b>　　End If</b></p><p>　　If Check6.Value = 1 Then</p><p>　　THGL.Enabled = True</p><p>　　Else If Check6.Value = 0 Then</p><p&

49、gt;　　THGL.Enabled = False</p><p><b>　　Else</b></p><p><b>　　End If</b></p><p>　　Private Sub Form Load ()</p><p><b>　　End Sub</b></

50、p><p>　　5.3 采購(gòu)訂單管理實(shí)現(xiàn)</p><p>　　在采購(gòu)訂單管理中,單擊添加按鈕,單號(hào)自動(dòng)生成,然后在”藥品名稱(chēng)”文本框中按下<Enter>鍵選擇訂貨信息，選擇完畢后按下<Enter>鍵，訂單管理窗體中除了數(shù)量、批號(hào)、金額和備注信息之外，其他信息全部自動(dòng)錄入到相應(yīng)的文本框中，最后輸入數(shù)量，系統(tǒng)自動(dòng)核算金額。如圖5.3所示：</p><p&

51、gt;　　圖5.2 采購(gòu)訂單管理界面</p><p>　　其主要代碼實(shí)現(xiàn)如下:</p><p>　　Private Sub Text1_KeyDown (Key Code As Integer, Shift As Integer)</p><p>　　Adodc1.RecordSource = "select * from Table_cgdd where

52、 單號(hào)='" + Text1.Text + "'"</p><p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then</p><p>　　Cmd_del.Enabled = True</p><p>　　C

53、md_save.Enabled = True</p><p>　　Cmd_edit.Enabled = True</p><p>　　Text1.Text = Adodc1.Recordset.Fields("單號(hào)")</p><p>　　Text2.Text = Adodc1.Recordset.Fields("藥品名稱(chēng)")

54、</p><p>　　Text3.Text = Adodc1.Recordset.Fields("批號(hào)")</p><p>　　Text5.Text = Adodc1.Recordset.Fields("單價(jià)")</p><p>　　Text6.Text = Adodc1.Recordset.Fields("數(shù)量&q

55、uot;)</p><p>　　Text7.Text = Adodc1.Recordset.Fields("備注")</p><p>　　Text8.Text = Adodc1.Recordset.Fields("金額")</p><p>　　DT1.Value = Adodc1.Recordset.Fields("

56、收貨日期")</p><p>　　DT2.Value = Adodc1.Recordset.Fields("發(fā)單時(shí)間")</p><p>　　Combo1.Text = Adodc1.Recordset.Fields("供應(yīng)商編號(hào)")</p><p>　　Combo2.Text = Adodc1.Recordset.

57、Fields("幣種")</p><p>　　Combo3.Text = Adodc1.Recordset.Fields("單位")</p><p><b>　　Else</b></p><p>　　MsgBox "沒(méi)有該采購(gòu)員的信息!!", 64, "藥房管理系統(tǒng)"

58、;</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　Else</b></p><p><b>　　End If</b></p><p><b>

59、;　　End Sub</b></p><p>　　5.4 到貨管理模塊實(shí)現(xiàn)</p><p>　　到貨管理模塊主要實(shí)現(xiàn)對(duì)訂單到貨信息的管理。對(duì)于同一個(gè)訂單，可以進(jìn)行多次到貨并且第一次到貨后，訂單數(shù)量都能夠相應(yīng)的減少。在到貨信息維護(hù)中，有訂單數(shù)量、報(bào)損數(shù)量等維護(hù)到貨信息的數(shù)量。如圖5.4所示：</p><p>　　圖5.3 到貨管理界面</p>

60、<p>　　5.5 庫(kù)存管理模塊實(shí)現(xiàn)</p><p>　　庫(kù)存管理是針對(duì)到貨信息和銷(xiāo)售信息進(jìn)行的管理。窗口如圖5.4所示：</p><p>　　圖5.4 庫(kù)存管理界面</p><p>　　其主要實(shí)現(xiàn)代碼如下：</p><p>　　Private Sub Cmd_save_Click() '保存庫(kù)存信息代碼</

61、p><p><b>　　Call main</b></p><p>　　If Combo1.Text = "" Then</p><p>　　MsgBox "供應(yīng)商編號(hào)不能為空值!!"</p><p>　　Combo1.SetFocus</p><p><

62、b>　　Else</b></p><p>　　Adodc1.RecordSource = "select * from Table_kcb where 藥品編號(hào)='" + Text1.Text + "'"</p><p>　　Adodc1.Refresh</p><p>　　If Adodc1

63、.Recordset.RecordCount = 0 Then</p><p>　　c = MsgBox("確認(rèn)要保存該信息嗎？", 33, "藥房管理系統(tǒng)")</p><p>　　If c = vbOK Then</p><p>　　Text4.Text = "入庫(kù)"</p><p&g

64、t;　　Set ardors = adoCon.Execute("insert into Table_kcb values(" & Text1 & ",'" & Text2 & "','" & Text3 & "','" & Combo1 & "

65、','" & Text8 & "','" & DT1 & "','" & Combo3 & "','" & Text5 & "','" & Text6 & "','

66、" & Text10 & "','" & Text11 & "','" & Text12 & "','" & DT4 & "','" & DT3 & "','" &

67、; Text4 & "','" & Text7 & "')")</p><p>　　MsgBox "數(shù)據(jù)保存成功!!", 64, "藥房管理系統(tǒng)"</p><p>　　Cmd_save.Enabled = False</p><p>　　C

68、md_add.Enabled = True</p><p>　　Text1.Locked = False</p><p>　　Set adoRs = adoCon.Execute("UPDATE Table_dhb SET 狀態(tài)= '入庫(kù)' where 單號(hào)='" + Text2.Text + "'")</p&g

69、t;<p><b>　　Else</b></p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　MsgBox "對(duì)不起,該信息已經(jīng)保存過(guò),不能夠再進(jìn)行保存", 64, "藥房管理系統(tǒng)"&

70、lt;/p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　Adodc1.RecordSource = "select * from Table_kcb”</p><p>　　Adodc1.Refresh</p>&

71、lt;p>　　adoCon.Close</p><p><b>　　End Sub</b></p><p>　　5.6 銷(xiāo)售管理模塊實(shí)現(xiàn)</p><p>　　銷(xiāo)售管理的主要任務(wù)是對(duì)各種藥品的銷(xiāo)售信息進(jìn)行管理和維護(hù)，能夠完成藥品信息的添加、修改和刪除，也可以按照一定的條件查詢(xún)藥品信息。窗口如圖所示：</p><p>

72、　　圖5.5 銷(xiāo)售管理界面</p><p>　　其主要實(shí)現(xiàn)代碼如下：</p><p>　　Private Sub Text2_KeyDown (Key Code As Integer, Shift As Integer)</p><p>　　If Key Code = 13 Then</p><p>　　If Text2.Text = &qu

73、ot;" Then</p><p>　　frm_kcb_temp.Show</p><p>　　frm_kcb_temp.DataGrid1.SetFocus</p><p><b>　　Else</b></p><p>　　If Not Is Numeric (Text1.Text) Then</p&g

74、t;<p>　　MsgBox "輸入的庫(kù)存貨物編號(hào)必須為數(shù)字"</p><p>　　Text2.Text = "</p><p><b>　　Else</b></p><p>　　Adodc1.RecordSource = "select * from 銷(xiāo)售信息表 where 藥品編號(hào)=&#

75、39;" + Text2.Text + "'"</p><p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then</p><p>　　Cmd_save.Enabled = True</p><p>　　frm_xs

76、b.Text2.Text = Adodc1.Recordset.Fields("藥品編號(hào)")</p><p>　　rm_xsb.Text3.Text = Adodc1.Recordset.Fields("藥品名稱(chēng)")</p><p>　　frm_xsb.DT1.Value = Adodc1.Recordset.Fields("收貨日期&qu

77、ot;)</p><p>　　frm_xsb.Combo3.Text = Adodc1.Recordset.Fields("單位")</p><p><b>　　Else</b></p><p>　　MsgBox "沒(méi)有該貨物的信息!!", 64, "藥房管理系統(tǒng)"</p>

78、<p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　Else</b></p><p><b>　　End If&l

79、t;/b></p><p><b>　　End Sub</b></p><p><b>　　6系統(tǒng)調(diào)試與維護(hù)</b></p><p><b>　　6.1 系統(tǒng)調(diào)試</b></p><p>　　在系統(tǒng)設(shè)計(jì)實(shí)施完成了以后，我對(duì)系統(tǒng)進(jìn)行了各方面的不斷調(diào)試與維護(hù)，發(fā)現(xiàn)了好多問(wèn)題并

80、且絕大部分都解決了。比如，在進(jìn)藥單錄入時(shí)，會(huì)出現(xiàn)進(jìn)藥單有記錄而庫(kù)存量卻沒(méi)有增加的情況。這是代碼設(shè)計(jì)時(shí)考慮的情況不周引起的。</p><p><b>　　6.2 系統(tǒng)維護(hù)</b></p><p>　　系統(tǒng)的整個(gè)維護(hù)分為：改正性維護(hù)、適應(yīng)性維護(hù)和完善性維護(hù)。在具體的操作中主要是對(duì)系統(tǒng)的代碼、程序以及數(shù)據(jù)進(jìn)行維護(hù)。代碼維護(hù)主要是指設(shè)置、修正、重新排列、添加和刪除數(shù)據(jù)項(xiàng)等內(nèi)容

81、，程序?qū)S護(hù)就是在調(diào)試的過(guò)程中，對(duì)操作方面的問(wèn)題進(jìn)行程序重寫(xiě)，而數(shù)據(jù)的維護(hù)就是不定期地對(duì)數(shù)據(jù)文件或數(shù)據(jù)庫(kù)進(jìn)行整理、修補(bǔ)以及備份，這里不包括主文件或主數(shù)據(jù)庫(kù)的定期更新。</p><p>　　系統(tǒng)需要隨時(shí)進(jìn)行細(xì)致和周到的系統(tǒng)維護(hù)，根據(jù)維護(hù)活動(dòng)具體內(nèi)容的不同，系統(tǒng)數(shù)據(jù)維護(hù)的主要內(nèi)容為：</p><p>　　程序維護(hù)：改寫(xiě)一部分或全部程序，充分利用原有的程序框架。</p><p

82、>　　數(shù)據(jù)維護(hù)：不定期的對(duì)數(shù)據(jù)文件或數(shù)據(jù)庫(kù)進(jìn)行整理和修補(bǔ)，這里不包括主要文件或主數(shù)據(jù)庫(kù)的定期更新。</p><p>　　代碼維護(hù)：包括設(shè)置、修正、重新排列、添加和刪除數(shù)據(jù)項(xiàng)等內(nèi)容。</p><p><b>　　7結(jié)束語(yǔ)</b></p><p>　　在開(kāi)發(fā)系統(tǒng)的過(guò)程中，總會(huì)不斷地冒出問(wèn)題，也總是在遇見(jiàn)問(wèn)題，解決問(wèn)題中學(xué)到了新的知識(shí)。從整個(gè)系

83、統(tǒng)來(lái)看，能大致實(shí)現(xiàn)了現(xiàn)實(shí)中的業(yè)務(wù)流程，但用在實(shí)際當(dāng)中應(yīng)當(dāng)還會(huì)不斷的暴露出新的問(wèn)題。限于時(shí)間問(wèn)題，本人也沒(méi)有能夠進(jìn)行長(zhǎng)時(shí)間的調(diào)試與維護(hù)。只能暫時(shí)的做到系統(tǒng)的正常運(yùn)行。</p><p>　　系統(tǒng)采用的開(kāi)發(fā)工具是VB6.0 + SQL Server 2000，用此方法的原因是我比較熟悉VB，在系統(tǒng)設(shè)計(jì)過(guò)程中，接觸中很多VB的中高級(jí)編程技術(shù)，學(xué)會(huì)很多有關(guān)編程和數(shù)據(jù)庫(kù)的知識(shí)。在整個(gè)過(guò)程中 ，我遇到過(guò)很多困難，也學(xué)會(huì)很多知

84、識(shí)，感覺(jué)自已比原來(lái)更進(jìn)一層。</p><p><b>　　致 謝</b></p><p>　　感謝張慧斌老師在百忙之中抽空給予我們細(xì)心的指導(dǎo)和幫助，使得我們能在指定的時(shí)間里較好地完成系統(tǒng)設(shè)計(jì)。在張老師的輔導(dǎo)下，學(xué)了許多知識(shí)，也才懂得了如何分析數(shù)據(jù)庫(kù)，如何設(shè)計(jì)數(shù)據(jù)庫(kù)的思路，并為本系統(tǒng)打下了良好的基礎(chǔ)。在做系統(tǒng)的過(guò)程中，宿舍的舍友和同班的同學(xué)也給予了極大的幫助，在此

85、對(duì)他們表示感謝！在開(kāi)發(fā)系統(tǒng)的過(guò)程中，本人不斷學(xué)習(xí)新的操作以及新的知識(shí)并因此掌握了更加深入的編程方法。實(shí)踐是鞏固所學(xué)知識(shí)最好的方法。這次的系統(tǒng)設(shè)計(jì)使本人學(xué)到了很多知識(shí)和編程技巧。也使自己的水平提升到了一個(gè)新的臺(tái)階。再次感謝給予幫助的老師和同學(xué)們。</p><p><b>　　張玉花</b></p><p>　　2009年6月10日</p><p>

86、;<b>　　參考文獻(xiàn)</b></p><p>　　[1] 趙軍鎖，龔波，李志.Visual Basic 6數(shù)據(jù)庫(kù)訪(fǎng)問(wèn)技術(shù)，機(jī)械工業(yè)出版社，2000.6.</p><p>　　[2] 李勇平.Visual Basic 6.0案例教程，電子出版物數(shù)據(jù)中心《Computer DIY》雜志社，2001.6.</p><p>　　[3] 張煒.Visu

87、al Basic 6.0數(shù)據(jù)庫(kù)開(kāi)發(fā)應(yīng)用教程，航空工業(yè)出版社，2000.6.</p><p>　　[4] 馮碩，賈志博.Visual Basic 6.0數(shù)據(jù)庫(kù)編程寶典，電子工業(yè)出版社，2001.5.</p><p>　　[5] 劉韜，駱娟，何旭洪.Visual Basic 6.0數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航，人民郵電出版社，2002.4.</p><p>　　[6] 溫賢發(fā)

88、.Visual Basic 6.0數(shù)據(jù)庫(kù)程序設(shè)計(jì)高手，科學(xué)出版社，2001.2.</p><p>　　[7] 京輝熱點(diǎn)工作室.Visual Basic 6.0中文版編程指南，人民郵電出版社，1999.9.</p><p>　　[8] 李振亭.Visual Basic 6.0程序設(shè)計(jì)教程，北方交通大學(xué)出版社，2001.9.</p><p>　　[9] 劉圣才，李春葆.

89、Visual Basic 6.0程序設(shè)計(jì)導(dǎo)學(xué), 清華大學(xué)出版社，2002.3.</p><p>　　[10]龔沛曾，陸慰民，楊志強(qiáng).Visual Basic 6.0程序設(shè)計(jì)教程，高等教育出版社，2000.7.</p><p>　　[11] 陶宏才．?dāng)?shù)據(jù)庫(kù)原理及設(shè)計(jì)[M]．北京：清華大學(xué)出版社，2007．</p><p>　　[12] 黃圣官．面向進(jìn)銷(xiāo)存流程的管理信息

90、系統(tǒng)的研究與開(kāi)發(fā)[D]．南京：南京理工大學(xué)，2006．</p><p>　　[13] 尤鳳英．超市進(jìn)銷(xiāo)存管理系統(tǒng)[J]. 濟(jì)南職業(yè)學(xué)院學(xué)報(bào)，2007，26(01)：78-80.</p><p>　　[14] Paulraj  Ponniah ．Database Design and Development: An Essential Guide for IT Profession

91、als  ．美國(guó)：John Wiley & Sons,Inc，2003.1</p><p>　　[15] 陳仲謀．進(jìn)、銷(xiāo)、存信息系統(tǒng)的研究[J]. 科技信息(科學(xué)教研)，2007，(18)：311-313.</p><p>　　[16] 鄒建．SQL Server 2000開(kāi)發(fā)與管理應(yīng)用實(shí)例[M]．北京：人民郵電出版社，2005．</p><p>