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

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

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用戶需求分析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è)計4</b></p><p>　　3.1 功能模塊圖4</p><p>　　3.2 處理流程設(shè)計4</p><p>　　3.3 數(shù)據(jù)庫設(shè)計5</p><p>　　3.4 系統(tǒng)功能設(shè)計6</p><p>　　3.5 實體—關(guān)系圖5</p><p><b&g

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

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

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

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

9、需求，進行了創(chuàng)造性開發(fā)。該系統(tǒng)是以Microsoft Visual Basic 6.0 為前臺開發(fā)環(huán)境，應(yīng)用Microsoft SQL server2000作為后臺數(shù)據(jù)庫，結(jié)合Windows操作系統(tǒng)建立起來的C/S結(jié)構(gòu)的數(shù)據(jù)庫管理系統(tǒng)，以實現(xiàn)藥房進銷的系統(tǒng)化、規(guī)范化和自動化。</p><p>　　關(guān)鍵詞：藥品進銷 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>　　祥樂大藥房是一間以經(jīng)營各種中成藥、西成藥材為主的中等規(guī)模的藥店。該藥店的主要業(yè)務(wù)是采購藥品和銷售藥品。日常業(yè)務(wù)主要包括銷售藥品、藥品來貨驗收登記與入庫、藥品缺貨登記等。目前,藥房仍然是用手工來處理各項日常業(yè)務(wù),而這些業(yè)務(wù)的特點是復(fù)雜

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

39、ta Grid 相結(jié)合來訪問數(shù)據(jù)庫。</p><p>　　2、配置ODBC數(shù)據(jù)源，然后訪問數(shù)據(jù)庫。</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 主窗體實現(xiàn)</

41、b></p><p>　　在大多數(shù)應(yīng)用軟件中,系統(tǒng)主界面主要起到控制系統(tǒng)的其他模塊運行的作用,系統(tǒng)中采用菜單控制的方式控制各子窗體的運行。窗口如圖5.1所示:</p><p>　　圖5.1 主窗體界面</p><p>　　其主要代碼實現(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 采購訂單管理實現(xiàn)</p><p>　　在采購訂單管理中,單擊添加按鈕,單號自動生成,然后在”藥品名稱”文本框中按下<Enter>鍵選擇訂貨信息，選擇完畢后按下<Enter>鍵，訂單管理窗體中除了數(shù)量、批號、金額和備注信息之外，其他信息全部自動錄入到相應(yīng)的文本框中，最后輸入數(shù)量，系統(tǒng)自動核算金額。如圖5.3所示：</p><p&

51、gt;　　圖5.2 采購訂單管理界面</p><p>　　其主要代碼實現(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、 單號='" + 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("單號")</p><p>　　Text2.Text = Adodc1.Recordset.Fields("藥品名稱")

54、</p><p>　　Text3.Text = Adodc1.Recordset.Fields("批號")</p><p>　　Text5.Text = Adodc1.Recordset.Fields("單價")</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ā)單時間")</p><p>　　Combo1.Text = Adodc1.Recordset.Fields("供應(yīng)商編號")</p><p>　　Combo2.Text = Adodc1.Recordset.

57、Fields("幣種")</p><p>　　Combo3.Text = Adodc1.Recordset.Fields("單位")</p><p><b>　　Else</b></p><p>　　MsgBox "沒有該采購員的信息!!", 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 到貨管理模塊實現(xiàn)</p><p>　　到貨管理模塊主要實現(xiàn)對訂單到貨信息的管理。對于同一個訂單，可以進行多次到貨并且第一次到貨后，訂單數(shù)量都能夠相應(yīng)的減少。在到貨信息維護中，有訂單數(shù)量、報損數(shù)量等維護到貨信息的數(shù)量。如圖5.4所示：</p><p>　　圖5.3 到貨管理界面</p>

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

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

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

63、.Recordset.RecordCount = 0 Then</p><p>　　c = MsgBox("確認要保存該信息嗎？", 33, "藥房管理系統(tǒng)")</p><p>　　If c = vbOK Then</p><p>　　Text4.Text = "入庫"</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)= '入庫' where 單號='" + Text2.Text + "'")</p&g

69、t;<p><b>　　Else</b></p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　MsgBox "對不起,該信息已經(jīng)保存過,不能夠再進行保存", 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àn)</p><p>　　銷售管理的主要任務(wù)是對各種藥品的銷售信息進行管理和維護，能夠完成藥品信息的添加、修改和刪除，也可以按照一定的條件查詢藥品信息。窗口如圖所示：</p><p>

72、　　圖5.5 銷售管理界面</p><p>　　其主要實現(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 "輸入的庫存貨物編號必須為數(shù)字"</p><p>　　Text2.Text = "</p><p><b>　　Else</b></p><p>　　Adodc1.RecordSource = "select * from 銷售信息表 where 藥品編號=&#

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("藥品編號")</p><p>　　rm_xsb.Text3.Text = Adodc1.Recordset.Fields("藥品名稱")</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 "沒有該貨物的信息!!", 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)試與維護</b></p><p><b>　　6.1 系統(tǒng)調(diào)試</b></p><p>　　在系統(tǒng)設(shè)計實施完成了以后，我對系統(tǒng)進行了各方面的不斷調(diào)試與維護，發(fā)現(xiàn)了好多問題并

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

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

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

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

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

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

86、;<b>　　參考文獻</b></p><p>　　[1] 趙軍鎖，龔波，李志.Visual Basic 6數(shù)據(jù)庫訪問技術(shù)，機械工業(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ù)庫開發(fā)應(yīng)用教程，航空工業(yè)出版社，2000.6.</p><p>　　[4] 馮碩，賈志博.Visual Basic 6.0數(shù)據(jù)庫編程寶典，電子工業(yè)出版社，2001.5.</p><p>　　[5] 劉韜，駱娟，何旭洪.Visual Basic 6.0數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航，人民郵電出版社，2002.4.</p><p>　　[6] 溫賢發(fā)

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

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

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

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