【導讀】起越來越多的重視，并將在醫(yī)院藥學工作中發(fā)揮越來越重要的作用。術發(fā)展現(xiàn)狀，建立醫(yī)院計算機網(wǎng)絡已成為必然。院藥品銷售信息化建設提供了強有力的支持。GSP改造和規(guī)范化管理的要求，促進了醫(yī)。目前，藥品管理系統(tǒng)軟件層出不窮，但是，由于藥品銷售與管理。合理的業(yè)務流程和完善的系統(tǒng)結(jié)構是軟件構架的基礎；在軟件設計時要充分。考慮藥品信息描述的內(nèi)容與方法；針對不同醫(yī)院的不同運作模式，考慮系統(tǒng)流程的選擇；同時，在價格管理與維護、信息查詢、報表、銷售分析與預測及數(shù)據(jù)安全方面作了闡述。

　　

【正文】 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．主要窗口運行界面 輸入藥品資料 開始入庫 結(jié)束入庫 提交入庫資料 圖 11 藥品入庫程序流程圖 藥 品庫存管理模塊具體實現(xiàn) 輸入新進藥品的一切信息，新記錄將寫入，新的零售價格將寫入藥品庫存信息表相應的藥品記錄中去，方便藥品庫存的統(tǒng)計。 需要強調(diào)的是當要求填寫的文本框為空時，系統(tǒng)會有提示信息要求用戶輸入必須的信息，否則新藥品不能入存。 系統(tǒng)查詢所需藥品，在售藥過程中銷售人員對藥品數(shù)據(jù)庫進行查詢。 Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdInquire_Click() Dim txtSQL As String Dim MsgText As String Dim dd(4) As Boolean Dim mrc As txtSQL = select * from medinfo_Info where If Check1(0).Value Then If Trim() = Then sMeg = 藥品名稱不能為空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 Exit Sub Else If Not IsNumeric(Trim()) Then MsgBox 請輸入藥品名稱！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If dd(0) = True txtSQL = txtSQL amp。 medinfo_ID = 39。 amp。 Trim() amp。 39。 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。 and medinfo_Name = 39。 amp。 amp。 39。 Else txtSQL = txtSQL amp。 medinfo_Name = 39。 amp。 amp。 39。 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。 and stock_No = 39。 amp。 amp。 39。 Else txtSQL = txtSQL amp。 stock_No = 39。 amp。 amp。 39。 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。 order by medinfo_ID Set mrc = ExecuteSQL(txtSQL, MsgText) With myflexgrid .Rows = 2 .CellAlignment = 4 .TextMatrix(1, 0) = 藥品名稱 .TextMatrix(1, 1) = 預定數(shù)量 .TextMatrix(1, 2) = 編號 .TextMatrix(1, 3) = 進貨單價 .TextMatrix(1, 4) = 產(chǎn)地 .TextMatrix(1, 5) = 批發(fā)單價 .TextMatrix(1, 6) = 規(guī)格 .TextMatrix(1, 7) = 有效期 Do While Not .Rows = .Rows + 1 .CellAlignment = 4 .TextMatrix(.Rows 1, 0) = (0) .TextMatrix(.Rows 1, 1) = (1) .TextMatrix(.Rows 1, 2) = (2) .TextMatrix(.Rows 1, 3) = Format((3), ) .TextMatrix(.Rows 1, 4) = (4) .TextMatrix(.Rows 1, 5) = (5) .TextMatrix(.Rows 1, 6) = Format((6), ) .TextMatrix(.Rows 1, 7) = (7) Loop End With End Sub Private Sub Form_Load() With myflexgrid .CellAlignment = 4 .TextMatrix(1, 0) = 藥品名稱 .TextMatrix(1, 1) = 預定數(shù)量 .TextMatrix(1, 2) = 編號 .TextMatrix(1, 3) = 進貨單價 .TextMatrix(1, 4) = 產(chǎn)地 .TextMatrix(1, 5) = 批發(fā)單價 .TextMatrix(1, 6) = 規(guī)格 .TextMatrix(1, 7) = 有效期 End With End Sub 4．主要窗口運行界面 藥品管理系統(tǒng)測試部分 作為一個完整的系統(tǒng)，文檔是其中不可缺少的部分也是相當重要的部分。好的文檔能夠使用戶快速了解并準確的使用系統(tǒng)的各項功能。減少誤操作，減少錯誤產(chǎn)生的可能，這對用戶和開發(fā)人員都有很多的好處。所以在開發(fā)本系統(tǒng)中，編寫了本文檔，對幾大模塊的做了詳細說明。 由于我本身能力的局限性，所以做編寫的代碼，即使經(jīng)過反復檢查也難免出錯所以在本階段力求使用有限的時間找出盡可能多的錯誤，力求系統(tǒng)盡量正確。我們在本系統(tǒng)的測試中使用了黑盒法（即不關心程序內(nèi)部的邏輯結(jié)構， 而是根據(jù)程序的功能來設計的檢測）請一位不熟悉本系統(tǒng)的人來進行隨意性的操作，打破習慣的操作順序，從中發(fā)現(xiàn)錯誤，在此階段系統(tǒng)的大量錯誤得到了改正。使得本系統(tǒng)更易于使用。 系統(tǒng)開發(fā)的其他方面 在開發(fā)過程中遇到較多的實習問題，如條形碼等經(jīng)濟問題，一家醫(yī)院在系統(tǒng)投入前期肯定會對資金有所考慮，我們將系統(tǒng)設計成最普及的軟件，對計算機的要求也不會太高，普通的計算機就能完成軟件的使用。 6 結(jié)束語 不知不覺，三個月的設計結(jié)束了。在這三個月的設計，讓我受益非淺。自我學計算機專業(yè)以來，始終認為一個完整的程序就 相當于一個優(yōu)秀的軟件產(chǎn)品，只要程序編得精致、具體、詳細，所開發(fā)的軟件就絕對完美、實用。 在這次設計《藥品管理系統(tǒng)》中，我和太原第二熱電廠職工醫(yī)院的兩位院長一起完成了這個系統(tǒng)的全部設計。剛開始設計時遇到了一些困難，因為大二學過的 Visual Basic ，再加上自己還要參加其他單位的實習，時間的安排上也很緊迫 ，編程的進度比較緩慢。在設計中還會遇到一些功能不知該如何實現(xiàn)的困難，在兩位院長的熱情幫助下，我漸漸的復習了 Visual Basic 控件的使用方法、 Visual Basic 的編程語法，之后的編程過程也相對得心應手，基本完成了預期計劃的要求。但是系統(tǒng)功能還沒有完全完善，有待進一步加強。 通過這次畢業(yè)設計，我進一步加深對基礎理論的理解，擴大專業(yè)知識面，對收集資料、查閱文獻、方案制定等實踐方面得到了很好的鍛練，促進對所學知識應用能力的提高。同時，發(fā)現(xiàn)問題、分析歸納、綜合比較的邏輯分析能力、處理問題等能力也得到了提高。但是在這次畢業(yè)設計過程中，還是發(fā)現(xiàn)了自己很多不足之處，也遇到了許多問題和困難，而這些困難大多是三年中不注重自己系統(tǒng)學習，學有所用造成的，這讓我認識到系統(tǒng)的學習和鍛 煉的重要性，基礎知識掌握不僅要多，而且要會運用它，那樣的話設計才會更全面、更順利、更完美。 參考文獻 [1] 醫(yī)院信息資源管理的興起與發(fā)展趨勢 . 醫(yī)學信息 , 2021, 4： 18 [2] 雷長海，嚴新文，朱志年 . 院校教學信息管理系統(tǒng)的規(guī)劃和設計 . 醫(yī)學信息 , 2021, 1: 6 [3] 崔亮，劉向東，等 . 西京