【正文】 的，如果用戶名不是唯一的，那么用戶在進行信息維護時可能使用不當會對原系統(tǒng)產(chǎn)生破壞作用。只有在用戶名和密碼同時輸入正確時，才能修改當前用戶的信息，不能修改其他用戶的信息。 藥 品管理系統(tǒng)詳細設計說明書 引言 本說明書是為了藥品銷售人員及管理人員查詢的需要，特別是系統(tǒng)管理人員的工作，起到了高效性、準確性而編寫的，是面向程序員的說明。 功能 主要是完成用戶的登錄，根據(jù)用戶的級別系統(tǒng)賦予不同的權限。通過驗證進入系統(tǒng)。并 且可以隨時對這些信息進行增、刪、改。用戶可以自由修改預覽窗口，并且可以輸入職工卡號，產(chǎn)生不同的折扣金額，最后統(tǒng)計所有的購買的藥品價格。 實現(xiàn)藥品供貨商的管理，能提供供貨商的所有信息，以便與供貨商的保持聯(lián)系，實現(xiàn)藥品銷售中的進退貨要求，向供貨商定貨。藥庫采購藥品實現(xiàn)入庫登記，對藥庫中的藥品進行有效的管理，根據(jù)藥品使用情況及時與供應商實現(xiàn)進貨與退貨。 用戶分別兩種，一種是 A 級用戶，是系統(tǒng)管理員級；另一種是 B 級用戶 ,是藥房銷售人員級。在用戶管理模塊中，能夠?qū)λ杏脩裘艽a、創(chuàng)建用戶的工作以及系統(tǒng)資料的刪除，只有 A級用戶，即系統(tǒng)管理員級用戶。更改包括用戶等級，醫(yī)保折率是由等級產(chǎn)生的，消費金額，聯(lián)系信息等。 5 藥品管理系統(tǒng)的具體實現(xiàn) 藥品管理系統(tǒng)編碼部分 開發(fā)環(huán)境的簡介 VISUAL BASIC Microsoft Visual Basic（簡稱 VB）是在 Windows 操作平臺下設計應用程序的最迅速、最簡捷的工具之一。因此， VB 一直被作為大多數(shù)電腦初學者的首選入門編程語言。 利用 VB 的數(shù)據(jù)訪問特性，用戶可以對包括 Microsoft SQL Server 和其他企業(yè)數(shù)據(jù)庫在內(nèi)的大部分數(shù)據(jù)庫格式創(chuàng)建數(shù)據(jù)庫和前端應用程序，以及可調(diào)整 的服務器端部件。 VB 提供了學習版、專業(yè)版和企業(yè)版，用以滿足不同的開發(fā)需要。專業(yè)版為專業(yè)編程人員提供了功能完備的開發(fā)工具，專業(yè)版中包含了學習版的所有功能。它包括 專業(yè)版的所有特性。數(shù)據(jù)庫結構設計的好壞將直接對應用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生重要的影響，好的數(shù)據(jù)庫結構設計會減少數(shù)據(jù)庫的存儲量、提高數(shù)據(jù)的完整性和一致性，使系統(tǒng)具有較快的響應速度，簡化基于此數(shù)據(jù)庫的應用程序的實現(xiàn)等。 在這里需要強調(diào)的是如果系統(tǒng)中的系統(tǒng)庫存量不能滿足用戶的需求，系統(tǒng)在顯示價格時會出現(xiàn)提示信息：“庫存不足，請及時通知采購部！”如果庫存能夠滿足，系統(tǒng)將顯示還有多少庫存。 表的數(shù)據(jù)被按照原樣進行備份，備注字段、通用字段等特殊字段不進行特殊處理實現(xiàn)數(shù)據(jù)備份和數(shù)據(jù)恢復， 為今后的工作打下查詢基礎。 Private Sub Command1_Click() Dim mrc As Dim txtSQL As String Dim MsgText As String If Not Testtxt() Then MsgBox 請輸入藥品名稱！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入預定數(shù)量！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請選擇編號！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入進貨單價！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請選擇產(chǎn)地！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入批發(fā)單價！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸 入規(guī)格！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入有效期！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If txtSQL = select * from medinfo_Info where medinfo_ID = 39。 Trim() amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 藥品名稱重復，請重新輸入！ , vbOKOnly + vbExclamation, 警告 Else If Not IsDate() Then MsgBox , vbOKOnly + vbExclamation, 警告 Else txtMoneyjin = Format(txtMoneyjin, ) If Not IsDate() Then MsgBox , vbOKOnly + vbExclamation, 警告 Else txtGuige = Format(txtGuige, ) txtSQL = select * from medinfo_Info Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = Trim() (8) = Trim() MsgBox 添加進入藥品清單成功！ , vbOKOnly + vbExclamation, 警告 End If End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim mrc As Dim txtSQL As String Dim MsgText As String Dim i As Integer 晉字 txtSQL = select * from stock_Info Set mrc = ExecuteSQL(txtSQL, MsgText) For i = 1 To (0) Next i End Sub Private Sub txtName_Change() End Sub 6．主要窗口運行界面 輸入藥品資料 開始入庫 結束入庫 提交入庫資料 圖 11 藥品入庫程序流程圖 藥 品庫存管理模塊具體實現(xiàn) 輸入新進藥品的一切信息，新記錄將寫入，新的零售價格將寫入藥品庫存信息表相應的藥品記錄中去，方便藥品庫存的統(tǒng)計。 系統(tǒng)查詢所需藥品，在售藥過程中銷售人員對藥品數(shù)據(jù)庫進行查詢。 medinfo_ID = 39。 Trim() amp。 End If End If If Check1(1).Value Then If Trim() = Then sMeg = 預定數(shù)量不能為空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 Exit Sub Else dd(1) = True If dd(0) Then txtSQL = txtSQL amp。 amp。 39。 medinfo_Name = 39。 amp。 End If End If End If If Check1(2).Value Then If Trim() = Then sMeg = 產(chǎn)地不能為空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 Exit Sub Else dd(2) = True If dd(0) Or dd(1) Then txtSQL = txtSQL amp。 amp。 39。 stock_No = 39。 amp。 End If End If End If If Not (dd(0) Or dd(1) Or dd(2) Or dd(3)) Then MsgBox 請設置查詢方式！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If txtSQL = txtSQL amp。好的文檔能夠使用戶快速了解并準確的使用系統(tǒng)的各項功能。所以在開發(fā)本系統(tǒng)中，編寫了本文檔，對幾大模塊的做了詳細說明。我們在本系統(tǒng)的測試中使用了黑盒法（即不關心程序內(nèi)部的邏輯結構，而是根據(jù)程序的功能來設計的檢測）請一位不熟悉本系統(tǒng)的 人來進行隨意性的操作，打破習慣的操作順序，從中發(fā)現(xiàn)錯誤，在此階段系統(tǒng)的大量錯誤得到了改正。 系統(tǒng)開發(fā)的其他方面 在開發(fā)過程中遇到較多的實習問題，如條形碼等經(jīng)濟問題，一家醫(yī)院在系統(tǒng)投入前期肯定會對資金有所考慮，我們將系統(tǒng)設計成最普及的軟件，對計算機的要求也不會太高，普通的計算機就能完成軟件的使用。在這三個月的設計，讓我受益非淺。 在這次設計《藥品管理系統(tǒng)》中，我和太原第二熱電廠職工醫(yī)院的兩位院長一起完成了這個系統(tǒng)的全部設計。在設計中還會遇到一些功能不知該如何實現(xiàn)的困難，在兩位院長的熱情幫助下，我漸漸的復習了 Visual Basic 控件的使用方法、 Visual Basic 的編程語法，之后的編程過程也相對得心應手，基本 完成了預期計劃的要求。 通過這次畢業(yè)設計，我進一步加深對基礎理論的理解，擴大專業(yè)知識面，對收集資料、查閱文獻、方案制定等實踐方面得到了很好的鍛練，促進對所學知識應用能力的提高。但是在這次畢業(yè)設計過程中，還是發(fā)現(xiàn)了自己很多不足之處，也遇到了許多問題和困難，而這些困難大多是三年中不注重自己系統(tǒng)學習，學有所用造成的，這讓我認識到系統(tǒng)的學習和鍛煉的重要性，基礎知識掌握不僅要多，而且要會運用它，那 樣的話設計才會更全面、更順利、