【正文】 計器 )依附的數據環(huán)境 DataEniroment實現打印和存檔功能的。 表 序號 字段名稱 類型 長度 可否為空 1 處方單號 Char 10 No 2 處方名稱 Char 16 No 3 售藥員代碼 Char 10 No 4 處方售出日期 Datatime 8 No 5 總價值 Money 8 No 說明 : ”處方單號 ” . 表 序號 字段名稱 類型 長度 可否為空 1 處方單號 Char 10 No 本科生畢業(yè)設計（論文） 19 2 藥品編碼 Char 15 No 續(xù)表 3 序號 Int 2 Yes 4 藥品數量 Int 4 No 5 藥品價格 Money 8 No 說 明 : ” 處方單號 ” 和 ” 藥品編碼 ” 和 ” 序號 ” ,用來對處方藥品詳細信息的查詢 ,銷售等操作。 表 序號 字段名稱 類型 長度 可否為空 1 小票號碼 Char 13 No 2 藥品編碼 Char 15 No 3 序號 Char 2 Yes 4 藥品類別 Char 15 No 5 售出數量 Int 4 No 6 藥品單價 Money 8 No 7 藥品優(yōu)惠額度 Char 4 No 說明 : ” 小票號碼 ” 和 ” 藥品編碼 ” 和 ” 序號 ” 本科生畢業(yè)設計（論文） 20 ,用來對系統(tǒng)銷售情況的查詢 ,統(tǒng)計與管理 表 序號 字段名稱 類型 長度 可否為空 1 采購單號 Char 10 No 2 采購員代碼 Char 10 No 3 采購總價值 Int 6 No 4 采購日期 Datatime 8 No 5 備注 Varchar 100 Yes 說明 : ” 采購單號 ” 。 表 序號 字段名稱 類型 長度 可否為空 1 入庫單號 Char 13 No 2 保管員代碼 Char 10 No 3 采購單號 Char 10 No 本科生畢業(yè)設計（論文） 21 4 入庫日期 Datatime 8 No 5 備注 Varchar 100 Yes 說明 : ” 入庫單號 ” 。 表 ： 序號 字段名稱 類型 長度 可否為空 1 盤點單號 Char 10 No 2 盤點人員代碼 Char 10 No 3 盤點日期 Datatime 8 No 4 備注 Varchar 100 Yes 說明 : ” 盤點單號 ” 表 ： 序號 字段名稱 類型 長度 可否為空 1 盤點單號 Char 10 No 2 藥品編碼 Char 15 No 本科生畢業(yè)設計（論文） 22 3 序號 Char 2 Yes 4 盤點數量 Char 4 No 5 庫存數量 Char 4 No 續(xù)表 6 誤差記錄 Varchar 100 Yes 說明 : ” 盤點單號 ” 和 ” 藥品編碼 ” 和 ” 序號 ” ,用來對系統(tǒng)藥品盤點詳細信息的查詢 ,統(tǒng)計和管理。 表 序號 字段名稱 類型 長度 可否為空 1 違禁藥品編碼 Char 15 No 2 序號 Char 2 Yes 3 違禁藥品名稱 Char 16 No 說明 : ” 違禁藥品編碼 ” 和 ” 序號 ” ,用來對系統(tǒng)違禁藥品的管理和維護 ,查詢。 圖 系統(tǒng)總體模塊圖 管理子模塊是面向系統(tǒng)管理的應用模塊，它主要包括用戶管理，系統(tǒng)設置，權限管理，密碼修改，閱讀報表，其功能模塊如圖 所示 。 圖 信息維護子模塊圖 零售子模塊主要包括以下的功能 圖 所示 。 圖 入庫子模塊圖 本科生畢業(yè)設計（論文） 27 系統(tǒng)統(tǒng)計查詢功能如 圖 所示 。 系統(tǒng)管理模塊 權限管理如圖 所示 。 圖 流程圖 用戶編輯這一模塊主要是面向系統(tǒng)管理員的應用模塊，也是系統(tǒng)較為關鍵的模塊部分，它包括用戶管理：主要來實現對系統(tǒng)用戶的添加，刪除，修改等操作。 本科生畢業(yè)設計（論文） 29 圖 確定按扭代碼： Private Sub Command1_Click() Select Case Case 管理員 = 0001 Case 醫(yī)生 = 0006 Case 售藥員 = 0003 Case 保管員 = 0005 Case 采購員 = 0004 Case 領導 = 0002 End Select answer = MsgBox(您確信要修改此記錄嗎？ , vbYesNo, 提示 ) If answer = vbYes Then 39。密碼修改 ：主要實現用戶本身對自己密碼的修改操作。 圖 本科生畢業(yè)設計（論文） 31 系統(tǒng)設置：主要實現對系統(tǒng)庫存藥品上下限，藥品有效期，國家禁賣藥品等功能的設置。 閱讀報表：主要是面向藥店領導的模塊，方便藥店領導了解藥店的運營狀況。它包括藥品信息維護：主要維護的是藥品的基本信息，對系統(tǒng)藥品的添加，刪除，修改。 圖 藥品分類維護：主要對藥品的分類進行維 護，藥品分類按國家標準進行，主要分為抗生素類，抗病毒類等 12類藥品。數據字典維護：此功能主要是對系統(tǒng)本身的數據字典進行維護，分為系統(tǒng)用戶，藥品單位，生產廠家，藥品分類，藥品批號五種。 圖 本科生畢業(yè)設計（論文） 32 零售模塊 此模塊也是系統(tǒng)較為關鍵的模塊，面向藥店的銷售人員，它主要分為藥品銷售和醫(yī)生審核處方兩個部分。非處方藥銷售：售藥人員將藥品條形碼（藥品編碼模擬 ）掃入計算機即可實現出售。顧客退藥：如果該藥品可以退，需輸入購買該藥品的小票號碼和藥品編碼即可。 藥品采購 如圖 所示 。藥品入庫：首先保管員根據采購員發(fā)過來的采購單自動生成入庫單，經過核查后進行 入庫操作，登記到數據庫。 統(tǒng)藥品入庫如圖 所示 。信息統(tǒng)計：完成了藥品信息的統(tǒng)計和藥品銷售信息的統(tǒng)計，以及各個時間段藥品銷售情況分析。可以根據藥品的各種屬性進行各種查詢。 圖 信息統(tǒng)計圖 本科生畢業(yè)設計（論文） 34 確定 按扭代碼： Private Sub Command1_Click() Select Case Case 單一藥品 If = Then MsgBox 請輸入藥品編碼！ , 48, 提示 SendKeys {Home}+{End} Else Call danyitongji End If = Case 類藥品 If = Then MsgBox 請輸入藥品類 別！ , 48, 提示 SendKeys {Home}+{End} Else Call leitongji End If = Case 全部藥品 Call quanbutongji = End Select End Sub 2,查詢模塊 在此模塊中，用戶可以查詢藥店內的所有藥品的信息 ,藥店近期的銷售 ,采購 ,入庫信息 .進入模塊后 ,用戶可以選擇查詢意向 ,選擇什么就在對應的位置添入查詢信息 ,每一類查詢都設置了很多的 方式 .也就是說查詢關鍵字是什么 ,例如 ,藥品信息查詢可以按照藥品編碼 ,藥品名稱 ,藥品單位等 13種方式查詢 .還設有一個顯示信息的功能 ,也就是說能夠控制您的查詢結果需要顯示的信息 ,相關的信息顯示出來 ,不相關的信息就沒有必要顯示出來 ,在此功能中 ,只要用戶選擇了什么 ,查詢結果就能夠顯 本科生畢業(yè)設計（論文） 35 示出什么 .在模塊的菜單中還可以進行分類查詢 (針對藥品信息 )和顯示全部信息功能。 圖 信息查詢圖 銷售查詢確定按扭代碼： Private Sub Command1_Click() Dim a As Integer Dim b As String Dim i As Integer Dim j As Integer = True = True = True = False = False = False = False = False = False = False = False Select Case Case 售藥員代碼 本科生畢業(yè)設計（論文） 36 If = Then MsgBox 請輸入您要查詢的關鍵字！ , 48, 提示 Else = (售藥員代碼 like 39。 amp。) If = True Or = True Then MsgBox 沒有您想要查找的售藥員！ , 48, 提示 SendKeys {Home}+{End} End If a = For i = 1 To a = i b = (小票號碼 ) = (小票號碼 =39。 b amp。) Next End If Case 藥品編碼 If = Then MsgBox 請輸入您要 查詢的關鍵字！ , 48, 提示 Else = (藥品編碼 like 39。 amp。) If = True Or = True Then MsgBox 沒有您想要查找的藥品！ , 48, 提示 SendKeys {Home}+{End} End If a = For i = 1 To a = i b = (小票號碼 ) = (小票號碼 =39。 b amp。) Next End If Case 藥品售出日期 本科生畢業(yè)設計（論文） 37 = (藥品售出日期 = 39。 DTPicker1(1).Value amp。) If = True Or = True Then MsgBox 沒有您想要查找的信息！ , 48, 提示 DTPicker1(1).SetFocus DTPicker1(1).Value = Date SendKeys {Home}+{End} End If a = For i = 1 To a = i b = (小票號碼 ) = (小票號碼 =39。 b amp。) Next Case 小票號碼 If = Then MsgBox 請輸入您要查詢的關鍵字！ , 48, 提示 Else = (小票號碼 like 39。 amp。) If = True Or = True Then MsgBox 沒有您想要查找的信息！ , 48, 提示 SendKeys {Home}+{End} End If a = For i = 1 To a = i b = (小票號碼 ) = (小票號碼 =39。 b amp。) Next End If Case 藥品優(yōu)惠額度 If = Then MsgBox 請輸入您要查詢的關鍵字！ , 48, 提示 Else 本科生畢業(yè)設計（論文） 38 = (藥品優(yōu)惠額度 like 39。 amp。) If = True Or = True Then MsgBox 沒有您想要查找的信息！ , 48, 提示 SendKeys {Home}+{End} End If a = For i = 1 To a = i b = (小票號碼 ) = (小票號碼 =39。 b amp。) Next End If End Select End Sub 查詢模塊流程 圖如下所示 。但由于人們能力的局限性，審查不能發(fā)現所有的錯誤。但到那時，不僅改正這些錯誤的代價更高，而且往往造成惡劣的后果。如果需要給軟件測試下個定義，可以這樣講：軟件測試是為了發(fā)現錯誤而 執(zhí)行程序的過程。 因為不可能進行窮盡測試，所以測試不可能發(fā)現程序中的所有錯誤，也就是說，通過測試并不能說明程序是正確的。本軟件在測試過程中發(fā)現很多錯誤，雖然已經修改，但是仍然不敢說是完美的。 測試方法選擇 因為每個模塊完成一個單獨的功能，與同級的其它模塊之間沒有相互依賴的關系，所以，有可能把每個模塊作為一個單獨的實體來測試，而且通常比較容易設計檢驗模塊正確性的測試方案。 子系統(tǒng)測試是把經過單元測試的模塊放在一起形成一個子系統(tǒng)來測試。 系統(tǒng)測試是把經過測試的子系統(tǒng)裝配成一個完整的 系統(tǒng)來測試