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

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

2、/p><p>　指導教師</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 論文組織與結構

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

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

6、lt;p><b>　　5系統(tǒng)實現(xiàn)9</b></p><p>　　5.1 vb 訪問 SQL Server 2000 技術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)調試與維護14</p><p>　　6.1 系統(tǒng)調試14</p><p>　　6.2 系統(tǒng)維護14</p><p><b>　　7結束語14</b></p>&l

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

30、、庫存信息表Table_kcb和銷售表是系統(tǒng)中是重要的數(shù)據(jù)表，下面就來介紹一個這三張數(shù)據(jù)表的邏輯結構設計過程。</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)功能設計</p><p>　　用戶通過密碼驗證后進入主窗口。系統(tǒng)的主窗口主要為用戶提供七項功能選擇：系統(tǒng)設置，采購管理，到貨管理, 庫存管理，銷售管理，退貨管理，打印報表。</p><p>　　系統(tǒng)設置：系統(tǒng)設置中可以增加操作員、修改操作員的密碼和刪除操作員。在增加完

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

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

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

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

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

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

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

39、ta Grid 相結合來訪問數(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ù)應用軟件中,系統(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ù)量、批號、金額和備注信息之外，其他信息全部自動錄入到相應的文本框中，最后輸入數(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("供應商編號")</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ù)量都能夠相應的減少。在到貨信息維護中，有訂單數(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 "供應商編號不能為空值!!"</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 "對不起,該信息已經保存過,不能夠再進行保存", 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>　　銷售管理的主要任務是對各種藥品的銷售信息進行管理和維護，能夠完成藥品信息的添加、修改和刪除，也可以按照一定的條件查詢藥品信息。窗口如圖所示：</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)調試與維護</b></p><p><b>　　6.1 系統(tǒng)調試</b></p><p>　　在系統(tǒng)設計實施完成了以后，我對系統(tǒng)進行了各方面的不斷調試與維護，發(fā)現(xiàn)了好多問題并

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

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

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

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

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

85、他們表示感謝！在開發(fā)系統(tǒng)的過程中，本人不斷學習新的操作以及新的知識并因此掌握了更加深入的編程方法。實踐是鞏固所學知識最好的方法。這次的系統(tǒng)設計使本人學到了很多知識和編程技巧。也使自己的水平提升到了一個新的臺階。再次感謝給予幫助的老師和同學們。</p><p><b>　　參考文獻</b></p><p>　　[1] 趙軍鎖，龔波，李志.Visual Basic 6數(shù)據(jù)

86、庫訪問技術，機械工業(yè)出版社，2000.6.</p><p>　　[2] 李勇平.Visual Basic 6.0案例教程，電子出版物數(shù)據(jù)中心《Computer DIY》雜志社，2001.6.</p><p>　　[3] 張煒.Visual Basic 6.0數(shù)據(jù)庫開發(fā)應用教程，航空工業(yè)出版社，2000.6.</p><p>　　[4] 馮碩，賈志博.Visual B

87、asic 6.0數(shù)據(jù)庫編程寶典，電子工業(yè)出版社，2001.5.</p><p>　　[5] 劉韜，駱娟，何旭洪.Visual Basic 6.0數(shù)據(jù)庫系統(tǒng)開發(fā)實例導航，人民郵電出版社，2002.4.</p><p>　　[6] 溫賢發(fā).Visual Basic 6.0數(shù)據(jù)庫程序設計高手，科學出版社，2001.2.</p><p>　　[7] 京輝熱點工作室.Visu

88、al Basic 6.0中文版編程指南，人民郵電出版社，1999.9.</p><p>　　[8] 李振亭.Visual Basic 6.0程序設計教程，北方交通大學出版社，2001.9.</p><p>　　[9] 劉圣才，李春葆.Visual Basic 6.0程序設計導學, 清華大學出版社，2002.3.</p><p>　　[10]龔沛曾，陸慰民，楊志強.V

89、isual Basic 6.0程序設計教程，高等教育出版社，2000.7.</p><p>　　[11] 陶宏才．數(shù)據(jù)庫原理及設計[M]．北京：清華大學出版社，2007．</p><p>　　[12] 黃圣官．面向進銷存流程的管理信息系統(tǒng)的研究與開發(fā)[D]．南京：南京理工大學，2006．</p><p>　　[13] 尤鳳英．超市進銷存管理系統(tǒng)[J]. 濟南職業(yè)學院

90、學報，2007，26(01)：78-80.</p><p>　　[14] Paulraj  Ponniah ．Database Design and Development: An Essential Guide for IT Professionals  ．美國：John Wiley & Sons,Inc，2003.1</p><p>　　[15] 陳仲謀．進