醫(yī)院藥品管理系統(tǒng)數(shù)據(jù)庫的設(shè)計

1、目錄醫(yī)院藥品管理系統(tǒng)數(shù)據(jù)庫的設(shè)計 11、概述12、需求分析 13、數(shù)據(jù)庫設(shè)計23.1系統(tǒng)結(jié)構(gòu)圖23.2系統(tǒng)部分流程圖 33.3各個實體關(guān)系E-R圖63.4各個表的關(guān)系圖 74、應(yīng)用程序設(shè)計74.1程序登陸界面的設(shè)計 74.2程序主切換面板的設(shè)計84.3程序增刪改界面的設(shè)計 94.4程序查詢界面的設(shè)計 105、編碼與調(diào)試 105.1登陸界面窗體程序代碼的設(shè)計 105.2主切換面板窗體程序代碼的設(shè)計 115.3增刪改界面窗體程序代碼的設(shè)計135.4查詢界面窗體程序代碼的設(shè)計136、總結(jié)14醫(yī)院藥品管理系統(tǒng)數(shù)據(jù)庫的設(shè)計1、概述隨著醫(yī)藥衛(wèi)生體制改革的深入,醫(yī)藥連鎖經(jīng)營的推行以及日趨激烈的商業(yè)角 逐,越

2、來越多的醫(yī)藥經(jīng)營企業(yè)意識到提高企業(yè)管理水平的重要性，也迫切要求加快管理信息化的進程。在醫(yī)藥行業(yè)中，醫(yī)藥經(jīng)營企業(yè)的物流管理以及相應(yīng)的財務(wù)處理、信息處理，長期以來一直采用手工操作，但隨著產(chǎn)業(yè)結(jié)構(gòu)調(diào)整、全新的市場競爭環(huán)境，企業(yè)管 理和運營效率已經(jīng)成為企業(yè)成敗的關(guān)鍵所在，手工方式的弊端畢現(xiàn)無遺。這就要 求藥品管理擺脫過去人手操作的煩瑣過程，對所有的藥品管理數(shù)據(jù)實行智能管理 促使藥品管理朝著科學化和規(guī)范化的方向前進。隨著計算機技術(shù)的普及，在醫(yī)藥行業(yè)中，醫(yī)藥經(jīng)營企業(yè)逐漸借助計算機技術(shù) 去完善醫(yī)藥的管理和提高自身的工作效率，以贏得市場競爭的勝利。因而藥品管 理信息系統(tǒng)已經(jīng)成為各醫(yī)藥經(jīng)營企業(yè)實現(xiàn)藥品管理網(wǎng)絡(luò)化

3、和信息化的必備工具，是醫(yī)藥經(jīng)營企業(yè)規(guī)模經(jīng)營管理不可缺少的部件之一。同時，軟件開發(fā)環(huán)境的高度 集成和數(shù)據(jù)庫技術(shù)的日益成熟成為開發(fā)藥品管理信息系統(tǒng)的技術(shù)基礎(chǔ)，大大降低了系統(tǒng)的開發(fā)成本。系統(tǒng)開發(fā)工具的智能化、人性化，使得所開發(fā)的系統(tǒng)充分滿足了醫(yī)藥經(jīng)營企業(yè)的各種需求，從醫(yī)藥經(jīng)營企業(yè)的各個環(huán)節(jié)對人流、物流、資金 流、信息流進行統(tǒng)一系統(tǒng)的管理。市場的需求和技術(shù)的支持 ，最終會導致越來越 多的優(yōu)秀藥品管理軟件的出現(xiàn)，并在競爭中得到不斷的完善和優(yōu)化。2、需求分析這個系統(tǒng)是幫助他們完成日常繁重窗口業(yè)務(wù)的工具。 借助計算機系統(tǒng)，使他 們凌亂的工作變得有條理，解脫他們需要記憶大量信息（藥品的規(guī)格,價錢,疾病 的名稱

4、與編碼等）的困難。保證他們遵守某些規(guī)范，減輕他們匯總、統(tǒng)計、報告 和傳遞這些信息的負擔。因此，盡量符合這些事務(wù)處理級工作人員的工作秩序與 工作習慣，功能完整，操作簡單，響應(yīng)迅速，界面友善，易學易用成為這類軟件 必須滿足的功能要求。管理員登錄以后可以很清晰的看到各種項目列表和可以實現(xiàn)的功能，庫存管理和藥品管理一目了然。由于是限定醫(yī)院使用，所有只有登錄系統(tǒng)。庫存管理功能是在使用系統(tǒng)的開始初始化醫(yī)院的庫存，并進行庫存管理的其他操作，可以修改庫存，讀取。這個藥品管理系統(tǒng)主要涉及醫(yī)院藥庫的藥品進、出、存等業(yè)務(wù)， 以及入庫、出庫和庫存管理，藥品管理主要管理藥庫中所有藥品的進出和內(nèi)部統(tǒng) 計計算，為藥品會計提

5、供基礎(chǔ)數(shù)據(jù)，以及包括有效期的報警和下限報警。3、數(shù)據(jù)庫設(shè)計本系統(tǒng)主要由用戶管理、入庫管理模塊，出庫管理模塊，過期藥品管理，供 應(yīng)商管理3.1系統(tǒng)結(jié)構(gòu)圖業(yè)務(wù)流程圖:藥品入庫庫存出庫職工供應(yīng)商3.2系統(tǒng)部分流程圖概念設(shè)計部分主要包括實體的 E-R圖、聯(lián)系的E-R圖和系統(tǒng)總的E-R圖 由需求分析知，基本實體有藥品、職工、供應(yīng)商、庫存和用戶登錄信息。（1）藥品E-R圖：供應(yīng)商有效日藥品編碼藥品信息表字段名數(shù)據(jù)類型藥品編碼數(shù)字藥品名文本供應(yīng)商文本藥劑文本售價數(shù)子有效日期日期/時間(2) 職工E-R圖:職工信息表字段名數(shù)據(jù)類型職工號數(shù)字姓名文本性別男/女練習方式數(shù)字身份證號數(shù)字職位文本地址文本(3) 供應(yīng)

6、商E-R圖:聯(lián)系方式供應(yīng)商名負責人供應(yīng)商編地址供應(yīng)商信息表字段名數(shù)據(jù)類型供應(yīng)商編碼數(shù)字供應(yīng)商名文本負責人文本聯(lián)系方式數(shù)字郵箱文本所在城市文本地址文本(4)庫存E-R圖:藥品編碼 .供應(yīng)商I一藥品名稱庫存庫存信息表字段名數(shù)據(jù)類型藥品編碼數(shù)字藥品名稱文本供應(yīng)商文本供應(yīng)商編碼文本庫存量數(shù)子(5)用戶登錄信息E-R圖用戶登錄信息表字段名數(shù)據(jù)類型用戶名文本密碼數(shù)字3.3各個實體關(guān)系E-R圖供應(yīng)商編碼名稱聯(lián)系人聯(lián)系方式郵箱身份證號碼聯(lián)系方式登記編號姓名職工號姓名性別身份證號地址藥品3.4各個表的關(guān)系圖莊巧記錄吾吏E二辜表Le歸T西辰皂容=-Tr人琵m聲凰藥誥量取藥三易藥民二庫表官乏壬蛙三 藥飄左秒 氓主售

7、B右Aj韋E尋 尊戲&三三H-巧呈涓W戸靈左和二亡寺冬祐2E期西77龍三寧匸港言丐生薦量耳豉乘至二二言辰三 供應(yīng)商名稱 匪慕人 辰至號誦 匡芻八主二適 師在誠勺lilt4、應(yīng)用程序設(shè)計4.1程序登陸界面的設(shè)計 設(shè)計效果如下圖：4.2程序主切換面板的設(shè)計 設(shè)計效果如下圖：巨主切藝面複U 回 34.3程序增刪改界面的設(shè)計 設(shè)計效果如下圖：4.4程序查詢界面的設(shè)計 設(shè)計效果如下圖：5、編碼與調(diào)試5.1登陸界面窗體程序代碼的設(shè)計登陸界面窗體設(shè)計，如果在登錄過程中輸入密碼有誤，將登陸不進系統(tǒng)，只有輸入密碼正確才可以進入系統(tǒng)。程序代碼設(shè)計如下：Opti on Compare DatabaseDim tex

8、t As Stri ngDim text1 As Stri ngDim len text As In tegerDim i As In tegerDim d As In tegerPrivate Sub Con cel_Click()On Error GoTo Err_Co ncel_ClickDoCmd.CloseQuitExit_Co ncel_Click:Exit SubErr_Co ncel_Click:MsgBox Err.Descripti onResume Exit_C on cel_ClickEnd SubPrivate Sub OK_Click()On Error GoTo

9、Err_OK_ClickIf Nz(password) = Nz(DLookup(密碼,用戶密碼表,用戶名=& ” & username & ”) _And Me.username The n驗證用戶和密碼)Me.Visible = False 隱藏窗體DoCmd.OpenForm 主切換面板ElseMsgBox 輸入密碼有誤，請您重新輸入!, 出錯Me.user name.SetFocusEnd IfExit_OK_Click:Exit SubErr_OK_Click:MsgBox Err.Descripti onResume Exit_OK_ClickEnd Sub5.2主切換面板窗體程序

10、代碼的設(shè)計主切換面板窗體的設(shè)計，在系統(tǒng)登錄界面驗證操作員密碼后，將進入程序主界面。通過程序主界面將會執(zhí)行相應(yīng)的權(quán)限操作，并且還可以通過主界面的菜單，來調(diào)用相應(yīng)程序，再進行相應(yīng)操作。程序代碼設(shè)計如下：OpenQuery童誨名稱藥品信息童這視圏數(shù)揭表OpenQuery奩誨舍稱辜存唱息查誼祝囹加表港力噺揍作OpenForm觀圖取藥記錄童誨表窗體OpenReport報表舍稱供蟲商信昌援表荷塗g稱視圖當?shù)芘：蛇x舍稱當鉗牛譽二檯式巻通譽模式普通岡嘛操作E I激瞬援作OpenReport按表舍稱訂單統(tǒng)計視圖報表第選舍稱當條件資匚模式音通OpenReport報表名稱庫存信懇表觀圏按表篇選名稱蘭條臺匚模式苔通港

11、力瞬揍作按表舍稱取藥記悲:扳表報奏g稱報表祝圖蔦選舍稱荷遷名稱當條件當鈞牛參：:模式苔通至檯式按表芷話桓OpenReport藥品信亙抿表*添址新擾作QuitAccess5.3增刪改界面窗體程序代碼的設(shè)計增刪改界面窗體的設(shè)計，可以對藥品增刪跟供應(yīng)商增刪等操作。 程序代碼設(shè) 計如下：Private Sub Comma nd15_Click() Me.Visible = FalseDoCmd.OpenForm主切換面板End SubPrivate Sub Comma nd17_Click()DoCmd.R un Comma nd acCmdSaveRecordDim rs As New ADODB.

12、RecordsetDim str_temp As Stri ngstr_temp = select * from 庫存 Where 產(chǎn)品編號=& 產(chǎn)品編號 & rs.Ope n str_temp,Curre ntProject.C onn ectio n,adOpe nDyn amic,adLockOptimisticIf Not IsNull(rs) The nrs(庫存量)=rs( 庫存量)+ 入庫數(shù)量rs.UpdateEnd Sub5.4查詢界面窗體程序代碼的設(shè)計查詢界面窗體的設(shè)計，根據(jù)輸入的職工號、判斷數(shù)據(jù)庫中是否存在其中的信息。如果存在，貝U將這個節(jié)點的所有信息輸出。如果不存在，貝U

13、輸出不存在。程 序代碼設(shè)計如下：Private Sub Comma nd20_Click()Me.Visible = FalseDoCmd.OpenForm主切換面板End SubPrivate Sub 取消 _Click()On Error GoTo Err_btn_clear_ClickDim ctl As Con trolFor Each ctl In Me.C on trolsSelect Case ctl.Co ntrolTypeCase acTextBoxIf ctl.Locked = False Then ctl.Value = NullCase acComboBoxctl.Value = NullEnd SelectNextExit_btn_clear_Click:Exit SubErr