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

醫(yī)院藥品管理系統(tǒng)數(shù)據(jù)庫(kù)的設(shè)計(jì)1、概述隨著醫(yī)藥衛(wèi)生體制改革的深入,醫(yī)藥連鎖經(jīng)營(yíng)的推行以及日趨激烈的商業(yè)角逐,越來越多的醫(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ò)化和信息化的必備工具,是醫(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à)錢,疾病的名稱與編碼等）的困難。保證他們遵守某些規(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ù)存管理功（2）職工E-R圖：性別職工性別職工姓名聯(lián)系方式身份證號(hào)職位職工號(hào)地址職工信息表字段名數(shù)據(jù)類型職工號(hào)數(shù)字姓名文本性別男/女練習(xí)方式數(shù)字身份證號(hào)數(shù)字職位文本地址文本（3）供應(yīng)商E-R圖：供應(yīng)商供應(yīng)商供應(yīng)商編碼負(fù)責(zé)人供應(yīng)商名稱地址聯(lián)系方式郵箱所在城市供應(yīng)商信息表字段名數(shù)據(jù)類型供應(yīng)商編碼數(shù)字供應(yīng)商名文本負(fù)責(zé)人文本聯(lián)系方式數(shù)字郵箱文本所在城市文本地址文本（4）庫(kù)存E-R圖：藥品編碼藥品編碼庫(kù)存庫(kù)存藥品名稱供應(yīng)商供應(yīng)商編碼庫(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圖藥品藥品性別聯(lián)系方式登記編號(hào)身份證號(hào)碼姓名供應(yīng)商職工供應(yīng)商編碼名稱聯(lián)系人聯(lián)系方式郵箱地址職工號(hào)性別職位地址供求供給姓名身份證號(hào)3.4各個(gè)表的關(guān)系圖4、應(yīng)用程序設(shè)計(jì)4.1程序登陸界面的設(shè)計(jì)設(shè)計(jì)效果如下圖：4.2程序主切換面板的設(shè)計(jì)設(shè)計(jì)效果如下圖：4.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ì)如下：OptionCompareDatabaseDimtextAsStringDimtext1AsStringDimlentextAsIntegerDimiAsIntegerDimdAsIntegerPrivateSubConcel_Click()OnErrorGoToErr_Concel_Click'DoCmd.CloseQuitExit_Concel_Click:ExitSubErr_Concel_Click:MsgBoxErr.DescriptionResumeExit_Concel_ClickEndSubPrivateSubOK_Click()OnErrorGoToErr_OK_ClickIfNz([password])=Nz(DLookup("[密碼]","用戶密碼表","[用戶名]="&"'"&username&"'"))_AndMe.username<>""Then'驗(yàn)證用戶和密碼)Me.Visible=False'隱藏窗體DoCmd.OpenForm"主切換面板"ElseMsgBox"輸入密碼有誤,請(qǐng)您重新輸入!",,"出錯(cuò)"Me.username.SetFocusEndIfExit_OK_Click:ExitSubErr_OK_Click:MsgBoxErr.DescriptionResumeExit_OK_ClickEndSub5.2主切換面板窗體程序代碼的設(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ì)如下：5.3增刪改界面窗體程序代碼的設(shè)計(jì)增刪改界面窗體的設(shè)計(jì)，可以對(duì)藥品增刪跟供應(yīng)商增刪等操作。程序代碼設(shè)計(jì)如下：PrivateSubCommand15_Click()Me.Visible=FalseDoCmd.OpenForm"主切換面板"EndSubPrivateSubCommand17_Click()DoCmd.RunCommandacCmdSaveRecordDimrsAsNewADODB.RecordsetDimstr_tempAsStringstr_temp="select*from庫(kù)存Where產(chǎn)品編號(hào)="&產(chǎn)品編號(hào)&""rs.Openstr_temp,CurrentProject.Connection,adOpenDynamic,adLockOptimisticIfNotIsNull(rs)Thenrs("庫(kù)存量")=rs("庫(kù)存量")+入庫(kù)數(shù)量rs.UpdateEndSub5.4查詢界面窗體程序代碼的設(shè)計(jì)查詢界面窗體的設(shè)計(jì)，根據(jù)輸入的職工號(hào)、判斷數(shù)據(jù)庫(kù)中是否存在其中的信息。如果存在，則將這個(gè)節(jié)點(diǎn)的所有信息輸出。如果不存在，則輸出不存在。程序代碼設(shè)計(jì)如下：PrivateSubCommand20_Click()Me.Visible=FalseDoCmd.OpenForm"主切換面板"EndSubPrivateSub取消_Click()OnErrorGoToErr_btn_clear_ClickDimctlAsControlForEachctlInMe.ControlsSelectCasectl.ControlTypeCaseacTextBoxIfctl.Locked=FalseThenctl.Value=NullCaseacComboBoxctl.Value=NullEndSelectNextExit_btn_clear_Click:ExitSubErr_btn_clear_Click:EndSub6、總結(jié)這個(gè)系統(tǒng)不僅可