【導(dǎo)讀】起越來越多的重視，并將在醫(yī)院藥學(xué)工作中發(fā)揮越來越重要的作用。術(shù)發(fā)展現(xiàn)狀，建立醫(yī)院計算機網(wǎng)絡(luò)已成為必然。院藥品銷售信息化建設(shè)提供了強有力的支持。GSP改造和規(guī)范化管理的要求，促進(jìn)了醫(yī)。目前，藥品管理系統(tǒng)軟件層出不窮，但是，由于藥品銷售與管理。合理的業(yè)務(wù)流程和完善的系統(tǒng)結(jié)構(gòu)是軟件構(gòu)架的基礎(chǔ)；在軟件設(shè)計時要充分?？紤]藥品信息描述的內(nèi)容與方法；針對不同醫(yī)院的不同運作模式，考慮系統(tǒng)流程的選擇；同時，在價格管理與維護(hù)、信息查詢、報表、銷售分析與預(yù)測及數(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 添加進(jìn)入藥品清單成功！ , 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) 輸入新進(jìn)藥品的一切信息，新記錄將寫入，新的零售價格將寫入藥品庫存信息表相應(yīng)的藥品記錄中去，方便藥品庫存的統(tǒng)計。 需要強調(diào)的是當(dāng)要求填寫的文本框為空時，系統(tǒng)會有提示信息要求用戶輸入必須的信息，否則新藥品不能入存。 系統(tǒng)查詢所需藥品，在售藥過程中銷售人員對藥品數(shù)據(jù)庫進(jìn)行查詢。 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 = 預(yù)定數(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 請設(shè)置查詢方式！ , 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) = 預(yù)定數(shù)量 .TextMatrix(1, 2) = 編號 .TextMatrix(1, 3) = 進(jìn)貨單價 .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) = 預(yù)定數(shù)量 .TextMatrix(1, 2) = 編號 .TextMatrix(1, 3) = 進(jìn)貨單價 .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)，文檔是其中不可缺少的部分也是相當(dāng)重要的部分。好的文檔能夠使用戶快速了解并準(zhǔn)確的使用系統(tǒng)的各項功能。減少誤操作，減少錯誤產(chǎn)生的可能，這對用戶和開發(fā)人員都有很多的好處。所以在開發(fā)本系統(tǒng)中，編寫了本文檔，對幾大模塊的做了詳細(xì)說明。 由于我本身能力的局限性，所以做編寫的代碼，即使經(jīng)過反復(fù)檢查也難免出錯所以在本階段力求使用有限的時間找出盡可能多的錯誤，力求系統(tǒng)盡量正確。我們在本系統(tǒng)的測試中使用了黑盒法（即不關(guān)心程序內(nèi)部的邏輯結(jié)構(gòu)， 而是根據(jù)程序的功能來設(shè)計的檢測）請一位不熟悉本系統(tǒng)的人來進(jìn)行隨意性的操作，打破習(xí)慣的操作順序，從中發(fā)現(xiàn)錯誤，在此階段系統(tǒng)的大量錯誤得到了改正。使得本系統(tǒng)更易于使用。 系統(tǒng)開發(fā)的其他方面 在開發(fā)過程中遇到較多的實習(xí)問題，如條形碼等經(jīng)濟問題，一家醫(yī)院在系統(tǒng)投入前期肯定會對資金有所考慮，我們將系統(tǒng)設(shè)計成最普及的軟件，對計算機的要求也不會太高，普通的計算機就能完成軟件的使用。 6 結(jié)束語 不知不覺，三個月的設(shè)計結(jié)束了。在這三個月的設(shè)計，讓我受益非淺。自我學(xué)計算機專業(yè)以來，始終認(rèn)為一個完整的程序就 相當(dāng)于一個優(yōu)秀的軟件產(chǎn)品，只要程序編得精致、具體、詳細(xì)，所開發(fā)的軟件就絕對完美、實用。 在這次設(shè)計《藥品管理系統(tǒng)》中，我和太原第二熱電廠職工醫(yī)院的兩位院長一起完成了這個系統(tǒng)的全部設(shè)計。剛開始設(shè)計時遇到了一些困難，因為大二學(xué)過的 Visual Basic ，再加上自己還要參加其他單位的實習(xí)，時間的安排上也很緊迫 ，編程的進(jìn)度比較緩慢。在設(shè)計中還會遇到一些功能不知該如何實現(xiàn)的困難，在兩位院長的熱情幫助下，我漸漸的復(fù)習(xí)了 Visual Basic 控件的使用方法、 Visual Basic 的編程語法，之后的編程過程也相對得心應(yīng)手，基本完成了預(yù)期計劃的要求。但是系統(tǒng)功能還沒有完全完善，有待進(jìn)一步加強。 通過這次畢業(yè)設(shè)計，我進(jìn)一步加深對基礎(chǔ)理論的理解，擴大專業(yè)知識面，對收集資料、查閱文獻(xiàn)、方案制定等實踐方面得到了很好的鍛練，促進(jìn)對所學(xué)知識應(yīng)用能力的提高。同時，發(fā)現(xiàn)問題、分析歸納、綜合比較的邏輯分析能力、處理問題等能力也得到了提高。但是在這次畢業(yè)設(shè)計過程中，還是發(fā)現(xiàn)了自己很多不足之處，也遇到了許多問題和困難，而這些困難大多是三年中不注重自己系統(tǒng)學(xué)習(xí)，學(xué)有所用造成的，這讓我認(rèn)識到系統(tǒng)的學(xué)習(xí)和鍛 煉的重要性，基礎(chǔ)知識掌握不僅要多，而且要會運用它，那樣的話設(shè)計才會更全面、更順利、更完美。 參考文獻(xiàn) [1] 醫(yī)院信息資源管理的興起與發(fā)展趨勢 . 醫(yī)學(xué)信息 , 2021, 4： 18 [2] 雷長海，嚴(yán)新文，朱志年 . 院校教學(xué)信息管理系統(tǒng)的規(guī)劃和設(shè)計 . 醫(yī)學(xué)信息 , 2021, 1: 6 [3] 崔亮，劉向東，等 . 西京