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

1、目錄醫(yī)院藥品管理系統(tǒng)數(shù)據(jù)庫的設(shè)計11、概述12、需求分析23、數(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、應用程序設(shè)計84.1程序登陸界面的設(shè)計84.2程序主切換面板的設(shè)計94.3程序增刪改界面的設(shè)計104.4程序查詢界面的設(shè)計105、編碼與調(diào)試115.1登陸界面窗體程序代碼的設(shè)計115.2主切換面板窗體程序代碼的設(shè)計125.3增刪改界面窗體程序代碼的設(shè)計145.4查詢界面窗體程序代碼的設(shè)計146、總結(jié)15醫(yī)院藥品管理系統(tǒng)數(shù)據(jù)庫的設(shè)計1、概述隨著醫(yī)藥衛(wèi)生體制改革的深入,醫(yī)藥連鎖經(jīng)營的推行以及日趨激烈的商業(yè)角逐,越來越多的醫(yī)藥經(jīng)營企業(yè)

2、意識到提高企業(yè)管理水平的重要性,也迫切要求加快管理信息化的進程。在醫(yī)藥行業(yè)中,醫(yī)藥經(jīng)營企業(yè)的物流管理以及相應的財務處理、信息處理,長期以來一直采用手工操作,但隨著產(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ò)化和信息化的必備工具,是醫(yī)藥經(jīng)

3、營企業(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è)務的工具。借助計算機系統(tǒng)，使他們凌亂的工作變得有條理，解脫他們需要記憶大量信息（藥品的規(guī)格,價錢,疾病的名稱與編碼等）的困難。保證他們遵守某些規(guī)范，

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

5、據(jù)庫設(shè)計本系統(tǒng)主要由用戶管理、入庫管理模塊，出庫管理模塊，過期藥品管理，供應商管理3.1系統(tǒng)結(jié)構(gòu)圖藥品信息查詢藥品信息報表出庫管理 醫(yī)院藥品管理取藥記錄計費取藥記錄報表取藥記錄查詢藥品信息管理修改庫存庫存查詢?nèi)霂斓怯浫霂旃芾硭帋烨謇砉绦畔⒉樵児滩樵兠赓M藥品清理刪除過期過期藥品管理編輯信息修改權(quán)限添加用戶用戶管理業(yè)務流程圖：藥品 庫存職工供應商 訂單 入庫 出庫3.2系統(tǒng)部分流程圖概念設(shè)計部分主要包括實體的e-r圖、聯(lián)系的e-r圖和系統(tǒng)總的e-r圖。由需求分析知，基本實體有藥品、職工、供應商、庫存和用戶登錄信息。（1） 藥品e-r圖：藥品藥品編碼藥品名稱藥劑供應商有效日期售價藥品信息表字

6、段名數(shù)據(jù)類型藥品編碼數(shù)字藥品名文本供應商文本藥劑文本售價 數(shù)子有效日期日期/時間（2）職工e-r圖：性別職工姓名聯(lián)系方式身份證號職位職工號地址職工信息表字段名數(shù)據(jù)類型職工號數(shù)字姓名文本性別男/女練習方式數(shù)字身份證號數(shù)字職位 文本地址文本（3）供應商e-r圖：供應商供應商編碼負責人供應商名稱地址聯(lián)系方式郵箱所在城市供應商信息表字段名數(shù)據(jù)類型供應商編碼數(shù)字供應商名文本負責人文本聯(lián)系方式數(shù)字郵箱 文本所在城市文本地址文本（4）庫存e-r圖：藥品編碼庫存藥品名稱供應商供應商編碼庫存量庫存信息表字段名數(shù)據(jù)類型藥品編碼數(shù)字藥品名稱文本供應商文本供應商編碼文本庫存量 數(shù)子（5）用戶登錄信息e-r圖用戶用戶名

7、密碼 用戶登錄信息表字段名數(shù)據(jù)類型用戶名文本密碼數(shù)字3.3各個實體關(guān)系e-r圖藥品性別聯(lián)系方式登記編號身份證號碼姓名供應商職工供應商編碼名稱聯(lián)系人聯(lián)系方式郵箱地址職工號性別職位地址供求供給姓名身份證號3.4各個表的關(guān)系圖4、應用程序設(shè)計4.1程序登陸界面的設(shè)計設(shè)計效果如下圖：4.2程序主切換面板的設(shè)計設(shè)計效果如下圖：4.3程序增刪改界面的設(shè)計設(shè)計效果如下圖：4.4程序查詢界面的設(shè)計設(shè)計效果如下圖：5、編碼與調(diào)試5.1登陸界面窗體程序代碼的設(shè)計登陸界面窗體設(shè)計，如果在登錄過程中輸入密碼有誤，將登陸不進系統(tǒng)，只有輸入密碼正確才可以進入系統(tǒng)。程序代碼設(shè)計如下：option compare datab

8、asedim text as stringdim text1 as stringdim lentext as integerdim i as integerdim d as integerprivate sub concel_click()on error goto err_concel_click docmd.close quitexit_concel_click: exit suberr_concel_click: msgbox err.description resume exit_concel_click end subprivate sub ok_click()on error go

9、to err_ok_clickif nz(password) = nz(dlookup(密碼, 用戶密碼表, 用戶名= & & username & ) _ and me.username then 驗證用戶和密碼) me.visible = false 隱藏窗體 docmd.openform 主切換面板else msgbox 輸入密碼有誤,請您重新輸入!, , 出錯 me.username.setfocusend ifexit_ok_click: exit suberr_ok_click: msgbox err.description resume exit_ok_clickend sub5

10、.2主切換面板窗體程序代碼的設(shè)計主切換面板窗體的設(shè)計，在系統(tǒng)登錄界面驗證操作員密碼后，將進入程序主界面。通過程序主界面將會執(zhí)行相應的權(quán)限操作，并且還可以通過主界面的菜單，來調(diào)用相應程序，再進行相應操作。程序代碼設(shè)計如下：5.3增刪改界面窗體程序代碼的設(shè)計增刪改界面窗體的設(shè)計，可以對藥品增刪跟供應商增刪等操作。程序代碼設(shè)計如下：private sub command15_click()me.visible = falsedocmd.openform 主切換面板end subprivate sub command17_click()docmd.runcommand accmdsaverecordd

11、im rs as new adodb.recordsetdim str_temp as stringstr_temp = select * from 庫存 where 產(chǎn)品編號 = & 產(chǎn)品編號 & rs.open str_temp, currentproject.connection, adopendynamic, adlockoptimisticif not isnull(rs) thenrs(庫存量) = rs(庫存量) + 入庫數(shù)量rs.updateend sub5.4查詢界面窗體程序代碼的設(shè)計查詢界面窗體的設(shè)計，根據(jù)輸入的職工號、判斷數(shù)據(jù)庫中是否存在其中的信息。如果存在，則將這個節(jié)點

12、的所有信息輸出。如果不存在，則輸出不存在。程序代碼設(shè)計如下：private sub command20_click()me.visible = falsedocmd.openform 主切換面板end subprivate sub 取消_click() on error goto err_btn_clear_click dim ctl as control for each ctl in me.controls select case ctl.controltype case actextbox if ctl.locked = false then ctl.value = null case accombobox ctl.value = null end select nextexit_btn_clear_click: exit suberr_btn_clear_cl