【正文】 If = Then MsgBox 請(qǐng)輸入您要查詢的關(guān)鍵字！ , 48, 提示 Else = (售藥員代碼 like 39。) Next End If Case 藥品編碼 If = Then MsgBox 請(qǐng)輸入您要 查詢的關(guān)鍵字！ , 48, 提示 Else = (藥品編碼 like 39。) Next End If Case 藥品售出日期 本科生畢業(yè)設(shè)計(jì)（論文） 37 = (藥品售出日期 = 39。) Next Case 小票號(hào)碼 If = Then MsgBox 請(qǐng)輸入您要查詢的關(guān)鍵字！ , 48, 提示 Else = (小票號(hào)碼 like 39。) Next End If Case 藥品優(yōu)惠額度 If = Then MsgBox 請(qǐng)輸入您要查詢的關(guān)鍵字！ , 48, 提示 Else 本科生畢業(yè)設(shè)計(jì)（論文） 38 = (藥品優(yōu)惠額度 like 39。) Next End If End Select End Sub 查詢模塊流程 圖如下所示 。 因?yàn)椴豢赡苓M(jìn)行窮盡測(cè)試，所以測(cè)試不可能發(fā)現(xiàn)程序中的所有錯(cuò)誤，也就是說(shuō)，通過(guò)測(cè)試并不能說(shuō)明程序是正確的。 系統(tǒng)測(cè)試是把經(jīng)過(guò)測(cè)試的子系統(tǒng)裝配成一個(gè)完整的 系統(tǒng)來(lái)測(cè)試。 測(cè)試方法選擇 因?yàn)槊總€(gè)模塊完成一個(gè)單獨(dú)的功能，與同級(jí)的其它模塊之間沒(méi)有相互依賴的關(guān)系，所以，有可能把每個(gè)模塊作為一個(gè)單獨(dú)的實(shí)體來(lái)測(cè)試，而且通常比較容易設(shè)計(jì)檢驗(yàn)?zāi)K正確性的測(cè)試方案。但到那時(shí)，不僅改正這些錯(cuò)誤的代價(jià)更高，而且往往造成惡劣的后果。) If = True Or = True Then MsgBox 沒(méi)有您想要查找的信息！ , 48, 提示 SendKeys {Home}+{End} End If a = For i = 1 To a = i b = (小票號(hào)碼 ) = (小票號(hào)碼 =39。) If = True Or = True Then MsgBox 沒(méi)有您想要查找的信息！ , 48, 提示 SendKeys {Home}+{End} End If a = For i = 1 To a = i b = (小票號(hào)碼 ) = (小票號(hào)碼 =39。) If = True Or = True Then MsgBox 沒(méi)有您想要查找的信息！ , 48, 提示 DTPicker1(1).SetFocus DTPicker1(1).Value = Date SendKeys {Home}+{End} End If a = For i = 1 To a = i b = (小票號(hào)碼 ) = (小票號(hào)碼 =39。) If = True Or = True Then MsgBox 沒(méi)有您想要查找的藥品！ , 48, 提示 SendKeys {Home}+{End} End If a = For i = 1 To a = i b = (小票號(hào)碼 ) = (小票號(hào)碼 =39。) If = True Or = True Then MsgBox 沒(méi)有您想要查找的售藥員！ , 48, 提示 SendKeys {Home}+{End} End If a = For i = 1 To a = i b = (小票號(hào)碼 ) = (小票號(hào)碼 =39。可以根據(jù)藥品的各種屬性進(jìn)行各種查詢。 藥品采購(gòu) 如圖 所示 。數(shù)據(jù)字典維護(hù)：此功能主要是對(duì)系統(tǒng)本身的數(shù)據(jù)字典進(jìn)行維護(hù)，分為系統(tǒng)用戶，藥品單位，生產(chǎn)廠家，藥品分類，藥品批號(hào)五種。 圖 本科生畢業(yè)設(shè)計(jì)（論文） 31 系統(tǒng)設(shè)置：主要實(shí)現(xiàn)對(duì)系統(tǒng)庫(kù)存藥品上下限，藥品有效期，國(guó)家禁賣藥品等功能的設(shè)置。 系統(tǒng)管理模塊 權(quán)限管理如圖 所示 。 表 序號(hào) 字段名稱 類型 長(zhǎng)度 可否為空 1 違禁藥品編碼 Char 15 No 2 序號(hào) Char 2 Yes 3 違禁藥品名稱 Char 16 No 說(shuō)明 : ” 違禁藥品編碼 ” 和 ” 序號(hào) ” ,用來(lái)對(duì)系統(tǒng)違禁藥品的管理和維護(hù) ,查詢。 表 序號(hào) 字段名稱 類型 長(zhǎng)度 可否為空 1 處方單號(hào) Char 10 No 2 處方名稱 Char 16 No 3 售藥員代碼 Char 10 No 4 處方售出日期 Datatime 8 No 5 總價(jià)值 Money 8 No 說(shuō)明 : ”處方單號(hào) ” . 表 序號(hào) 字段名稱 類型 長(zhǎng)度 可否為空 1 處方單號(hào) Char 10 No 本科生畢業(yè)設(shè)計(jì)（論文） 19 2 藥品編碼 Char 15 No 續(xù)表 3 序號(hào) Int 2 Yes 4 藥品數(shù)量 Int 4 No 5 藥品價(jià)格 Money 8 No 說(shuō) 明 : ” 處方單號(hào) ” 和 ” 藥品編碼 ” 和 ” 序號(hào) ” ,用來(lái)對(duì)處方藥品詳細(xì)信息的查詢 ,銷售等操作。缺省時(shí)，數(shù)據(jù)控件將從數(shù)據(jù)庫(kù)中一個(gè)或多個(gè)表中創(chuàng)建一個(gè)動(dòng)態(tài)集型記錄集。 ，這樣才能使將來(lái)對(duì)代碼進(jìn)行的修改和升級(jí)較為容易。用戶界面，即程序中用戶能看見(jiàn)并與之交互作用的部分。 。 圖 采購(gòu)單實(shí)體屬性圖如圖 所示 。 3)屬性 屬性是實(shí)體或聯(lián)系所具有的性質(zhì)。 。 、網(wǎng)狀、層次等各種數(shù)據(jù)模型轉(zhuǎn)換。 定義：入庫(kù)詳細(xì)表 =入庫(kù)單號(hào) +藥品編碼 +序號(hào) +藥品名稱 +入庫(kù)數(shù)量 位置：入庫(kù)詳細(xì)表 本科生畢業(yè)設(shè)計(jì)（論文） 12 第 4章 數(shù)據(jù)庫(kù)設(shè)計(jì) 概念模型簡(jiǎn)介 概念模型用于信息世界的建模，是現(xiàn)實(shí)世界到信息世界的第一層抽象，是數(shù)據(jù)庫(kù)設(shè)計(jì)人員進(jìn)行數(shù)據(jù)庫(kù)設(shè)計(jì)的有力工具，也是數(shù)據(jù)庫(kù)設(shè)計(jì)人員和用戶之間進(jìn)行交流的語(yǔ)言，因此概念模型一方面應(yīng)該具有較強(qiáng) 的語(yǔ)義表達(dá)能力，能夠方便、直接地表達(dá)應(yīng)用中的各種語(yǔ)義知識(shí)，另一方面它還應(yīng)該簡(jiǎn)單、清晰、易于用戶理解。 如果暫時(shí)還沒(méi)有自動(dòng)生成的數(shù)據(jù)字典處理程序，建議采用卡片形式書寫數(shù)據(jù)字典，每張卡片上保存描述一個(gè)數(shù)據(jù)元素的信息。從這個(gè)意義上說(shuō)，定義就是自頂向下的分解，所以數(shù)字字典中的定義就是對(duì)數(shù)據(jù)自頂向下的分解。畫 0層數(shù)據(jù)流圖時(shí)，分解頂層流圖的系統(tǒng)為若干子系統(tǒng)，決定每個(gè)子系統(tǒng)間的數(shù)據(jù)接口和活動(dòng)關(guān)系。 :是本軟件系統(tǒng)外部環(huán)境中的實(shí)體 (包括人員、組織或其他軟件系統(tǒng) )，統(tǒng)稱外部實(shí)體。 本科生畢業(yè)設(shè)計(jì)（論文） 9 數(shù)據(jù)在系統(tǒng)內(nèi)部是流動(dòng)的，數(shù)據(jù)流圖描繪系統(tǒng)的邏輯模型，圖中沒(méi)有任何具體的物理元素，只是描繪信息在系統(tǒng)中流動(dòng)和處理的情況?，F(xiàn)存的藥品按進(jìn)價(jià)，零售價(jià)計(jì)算得到的價(jià)值 3)系統(tǒng)還要有藥品有效期的自動(dòng)提示，并能對(duì)其做出相應(yīng)處理。以前需要 2 個(gè)人整理帳目表單好幾天，現(xiàn)在只需要一個(gè)人不到一個(gè)小時(shí)的時(shí)間就能解決了；另外，采用數(shù)據(jù)庫(kù)這一安全有效的數(shù)據(jù)存儲(chǔ)手段，使藥店的一切單據(jù)包括人員信息、藥品信息、出入庫(kù)單等都完好的保存下來(lái)，只要 按時(shí)將數(shù)據(jù)備份，不必?fù)?dān)心賬目的丟失和年久破損；數(shù)據(jù)以數(shù)據(jù)庫(kù)形式存儲(chǔ)容量巨大，可以保存十幾年，甚至幾十年，確保了數(shù)據(jù)的長(zhǎng)期有效性；用數(shù)據(jù)庫(kù)存儲(chǔ)數(shù)據(jù)查詢起來(lái)便利、快速，避免了隔年賬目翻閱的不便。 經(jīng)濟(jì)可行性 當(dāng)今時(shí)代是飛速發(fā)展的信息時(shí)代。 SQL Server 使用 TransactSQL語(yǔ)言來(lái)維護(hù)、實(shí)現(xiàn)和訪問(wèn)數(shù)據(jù)庫(kù)， TransactSQL 是 SQL(Structured Query Language)的一個(gè)子集標(biāo)準(zhǔn)。 另外， SQL Server 是由一系列相互協(xié)作的組件構(gòu)成，能滿足最大的 Web 站點(diǎn)和企業(yè)數(shù)據(jù)處理系統(tǒng)存儲(chǔ)和分析數(shù)據(jù)的需求。 本科生畢業(yè)設(shè)計(jì)（論文） 5 第 2章 可行性分析 進(jìn)行可行性研究的目的就是用最小的代價(jià)在盡可能短的時(shí)間內(nèi)確定問(wèn)題是否能夠解決，而且我們的目的不僅僅是解決問(wèn)題，還要確定問(wèn)題是否值得去解決。關(guān)鍵不僅在于它體現(xiàn)了一種實(shí)用而極為有效的計(jì)算概念 — Client/Server（客戶 /服務(wù)器）計(jì)算方式，還在于它所基于的操作系統(tǒng)功能日益強(qiáng)大，另外其賴以為基礎(chǔ)的Transact_SQL語(yǔ)言在 SQL基本語(yǔ)言上也得到擴(kuò)展從而使得 SQL語(yǔ)言支持的 RDB（關(guān)系數(shù)據(jù)庫(kù)）愈加受到青睞?？丶痛绑w是 Visual Basic 中所有對(duì)象的示例。利用最新的 Microsoft Data Reports,可以直接把一個(gè)報(bào)表加到 Visual Basic 項(xiàng)目中，這個(gè)報(bào)表可以和一個(gè)窗體或一個(gè)類一樣去設(shè)計(jì)、保存和編譯。 因此 ,隨著藥店市場(chǎng)競(jìng)爭(zhēng)的加劇及醫(yī)療保險(xiǎn)的推廣，對(duì)藥店實(shí)現(xiàn)計(jì)算機(jī)管理是藥店生存與發(fā)展的必要條件。不能否認(rèn)，它給老百姓帶來(lái)了更多的實(shí)惠。 本科生畢業(yè)設(shè)計(jì)（論文） I 摘 要 隨著藥店市場(chǎng)競(jìng)爭(zhēng)的加劇及醫(yī)療保險(xiǎn)的推廣，對(duì)藥店實(shí)現(xiàn)計(jì)算機(jī)管理是藥店生存與發(fā)展的必要條件。但另一方面，從目前的情況來(lái)看，如果營(yíng)銷策略和管理不加以改進(jìn)和完善，小型平價(jià)藥店的發(fā)展前景就不容樂(lè)觀。藥店管理系統(tǒng)可以對(duì)藥店的實(shí)物及帳 目 進(jìn)行精確快速的管理，大大減 輕手工勞動(dòng)強(qiáng)度，提高顧客的滿意度，功能強(qiáng)大全面的查詢系統(tǒng)使經(jīng)營(yíng)者快速掌握藥店的經(jīng)營(yíng)狀況，從而做出正確的決策。 Microsoft Data Reports 和 Visual Basic IDE 集成得非常好，可以和創(chuàng)建任何其他窗體一樣簡(jiǎn)單直觀地用它來(lái)創(chuàng)建報(bào)表。 過(guò)程 :為完成某些特定的任務(wù)而編寫的代碼段，過(guò)程通常用于響應(yīng)特定的事件，也可以當(dāng)作應(yīng)用程序的用戶自定義函數(shù)來(lái)使用。 Microsoft SQL Server 的高速、高度安全和穩(wěn)定性 ,以及它的高性能價(jià)格比，使它成為今天數(shù)據(jù)庫(kù)開(kāi)發(fā)的首選。 在可行性分析階段，首先需要進(jìn)一步分析和澄清問(wèn)題的定義。 SQL Server 提供了在服務(wù)器系統(tǒng)上運(yùn)行的服務(wù)器軟件和在客戶端運(yùn)行的客戶端軟件，連接客戶和服務(wù)器計(jì)算機(jī)的網(wǎng)絡(luò)軟件則由 Windows NT/2020 提供。 SQL 是數(shù)據(jù)庫(kù)操作的標(biāo)準(zhǔn)，每個(gè)數(shù)據(jù)庫(kù)產(chǎn)品均包含其某一版本。在各行各業(yè)中離不開(kāi)信息處理，這正是計(jì)算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境?？v觀藥店信息管理的發(fā)展，采用計(jì)算機(jī)管理的藥店信息管理系統(tǒng)是大勢(shì)所趨，是管理適應(yīng)科技發(fā)展需要的必然。當(dāng)庫(kù)存到達(dá)庫(kù)存上下限時(shí)，系統(tǒng)會(huì)自動(dòng)報(bào)警，也可以做出相應(yīng)處理。因?yàn)閿?shù)據(jù)流 圖是邏輯關(guān)系的圖形表示，即使不是專業(yè)的計(jì)算機(jī)技術(shù)人員也容易理解，所以是極好的通信工具。一般只出現(xiàn)在數(shù)據(jù)流圖的頂層圖。 該系統(tǒng)的頂層數(shù)據(jù)流圖如圖 所示 。那么，應(yīng)該把數(shù)據(jù)分解到什么程度呢？一般來(lái)說(shuō)，當(dāng)分解到不需要進(jìn)一步分解時(shí)，每個(gè)和工程有關(guān)的人也都清楚其含義的元素時(shí)，這種分解過(guò)程就完成了。這種方法較好的實(shí)現(xiàn)了上述要求，特別是更新和修改起來(lái)更方便，能夠單獨(dú)處理每個(gè)數(shù)據(jù)元素的信息。 為了把用戶的數(shù)據(jù)要求清晰的表達(dá)出來(lái)，系統(tǒng)分析員通常建立一個(gè)概念性數(shù)據(jù)模型。 概念結(jié)構(gòu)是各種數(shù)據(jù)模型的共同基礎(chǔ)，它比數(shù)據(jù)模型更獨(dú)立于機(jī)器、更抽象，從而更加穩(wěn)定。即自頂向下和自底向上相結(jié)合，用自頂向下策略設(shè)計(jì)一個(gè)全局 本科生畢業(yè)設(shè)計(jì)（論文） 13 概念結(jié)構(gòu)的框架，以它為骨架集成由自底向上策略中設(shè)計(jì)的各局部概念結(jié)構(gòu)。通常一個(gè)實(shí)體由若干個(gè)屬性來(lái)刻畫。 圖 藥品藥品別名 藥品名稱 藥品編碼 序號(hào) 藥品單位 藥品數(shù)量 藥品類別碼 藥品進(jìn)價(jià) 藥品生產(chǎn)廠家 藥品有效期至 藥品零售價(jià) 標(biāo)志 藥品批發(fā)價(jià) 藥品批準(zhǔn)文號(hào) 售藥員代碼 小票號(hào)碼 總價(jià)值 藥品售出日期 零售單 本科生畢業(yè)設(shè)計(jì)（論文） 15 入庫(kù)單實(shí)體屬性圖如圖 所示 。 ，除了特殊原因外。 本系統(tǒng)用戶界面全部用 Visual Basic 的窗體和控件涉及的窗體組成。給代碼提供一定的格式或在代碼中提供注釋來(lái)描述功能就可以代碼的易讀性更好一些。數(shù)據(jù)控件創(chuàng)建 本科生畢業(yè)設(shè)計(jì)（論文） 17 的記錄集通過(guò)設(shè)置 DatabaseName和 ReordSouce屬性確定。 表 序號(hào) 字段名稱 類型 長(zhǎng)度 可否為空 1 小票號(hào)碼 Char 13 No 2 售藥員代碼 Char 10 No 3 藥品售出日期 Datatime 8 No 4 總價(jià)值 Money 8 No 說(shuō)明 : ” 小票號(hào)碼 ” 。 表 序號(hào) 字段名稱 類型 類型 可否為空 1 用戶代碼 Char 10 No 2 用戶類別名稱 Char 16 No 說(shuō)明 : ” 用戶代碼 ” 表 序號(hào) 字段名稱 類型 類型 可否為空 1 單位代碼 Char 10 No 2 單位名稱 Char 10 No 說(shuō)明 : ” 單位代碼 ” 表 序號(hào) 字段名稱 類型 類型 可否為空 本科生畢業(yè)設(shè)計(jì)（論文）