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

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

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

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

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

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

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

7、B右Aj韋E尋 尊戲&三三H-巧呈涓W戸靈左和二亡寺冬祐2E期西77龍三寧匸港言丐生薦量耳豉乘至二二言辰三 供應(yīng)商名稱 匪慕人 辰至號(hào)誦 匡芻八主二適 師在誠(chéng)勺lilt4、應(yīng)用程序設(shè)計(jì)4.1程序登陸界面的設(shè)計(jì) 設(shè)計(jì)效果如下圖：4.2程序主切換面板的設(shè)計(jì) 設(shè)計(jì)效果如下圖：巨主切藝面複U 回 34.3程序增刪改界面的設(shè)計(jì) 設(shè)計(jì)效果如下圖：4.4程序查詢界面的設(shè)計(jì) 設(shè)計(jì)效果如下圖：5、編碼與調(diào)試5.1登陸界面窗體程序代碼的設(shè)計(jì)登陸界面窗體設(shè)計(jì)，如果在登錄過程中輸入密碼有誤，將登陸不進(jìn)系統(tǒng)，只有輸入密碼正確才可以進(jìn)入系統(tǒng)。程序代碼設(shè)計(jì)如下：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驗(yàn)證用戶和密碼)Me.Visible = False 隱藏窗體DoCmd.OpenForm 主切換面板ElseMsgBox 輸入密碼有誤，請(qǐng)您重新輸入!, 出錯(cuò)Me.user name.SetFocusEnd IfExit_OK_Click:Exit SubErr_OK_Click:MsgBox Err.Descripti onResume Exit_OK_ClickEnd Sub5.2主切換面板窗體程序

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

11、力瞬揍作按表舍稱取藥記悲:扳表報(bào)奏g稱報(bào)表祝圖蔦選舍稱荷遷名稱當(dāng)條件當(dāng)鈞牛參：:模式苔通至檯式按表芷話桓OpenReport藥品信亙抿表*添址新擾作QuitAccess5.3增刪改界面窗體程序代碼的設(shè)計(jì)增刪改界面窗體的設(shè)計(jì)，可以對(duì)藥品增刪跟供應(yīng)商增刪等操作。 程序代碼設(shè) 計(jì)如下：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 庫(kù)存 Where 產(chǎn)品編號(hào)=& 產(chǎn)品編號(hào) & rs.Ope n str_temp,Curre ntProject.C onn ectio n,adOpe nDyn amic,adLockOptimisticIf Not IsNull(rs) The nrs(庫(kù)存量)=rs( 庫(kù)存量)+ 入庫(kù)數(shù)量rs.UpdateEnd Sub5.4查詢界面窗體程序代碼的設(shè)計(jì)查詢界面窗體的設(shè)計(jì)，根據(jù)輸入的職工號(hào)、判斷數(shù)據(jù)庫(kù)中是否存在其中的信息。如果存在，貝U將這個(gè)節(jié)點(diǎn)的所有信息輸出。如果不存在，貝U

13、輸出不存在。程 序代碼設(shè)計(jì)如下：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