醫(yī)院藥品管理系統(tǒng)數(shù)據(jù)庫(kù)的設(shè)計(jì)(共15頁(yè))_第1頁(yè)
醫(yī)院藥品管理系統(tǒng)數(shù)據(jù)庫(kù)的設(shè)計(jì)(共15頁(yè))_第2頁(yè)
醫(yī)院藥品管理系統(tǒng)數(shù)據(jù)庫(kù)的設(shè)計(jì)(共15頁(yè))_第3頁(yè)
醫(yī)院藥品管理系統(tǒng)數(shù)據(jù)庫(kù)的設(shè)計(jì)(共15頁(yè))_第4頁(yè)
醫(yī)院藥品管理系統(tǒng)數(shù)據(jù)庫(kù)的設(shè)計(jì)(共15頁(yè))_第5頁(yè)
已閱讀5頁(yè),還剩11頁(yè)未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

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

2、業(yè)意識(shí)到提高企業(yè)管理水平的重要性,也迫切要求加快管理信息化的進(jìn)程。在醫(yī)藥行業(yè)中,醫(yī)藥經(jīng)營(yíng)企業(yè)的物流管理以及相應(yīng)的財(cái)務(wù)處理、信息處理,長(zhǎng)期以來(lái)一直采用手工操作,但隨著產(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)無(wú)遺。這就要求藥品管理擺脫過去人手操作的煩瑣過程,對(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ī)藥

3、經(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)致越來(lái)越多的優(yōu)秀藥品管理軟件的出現(xiàn),并在競(jìng)爭(zhēng)中得到不斷的完善和優(yōu)化。 2、需求分析這個(gè)系統(tǒng)是幫助他們完成日常繁重窗口業(yè)務(wù)的工具。借助計(jì)算機(jī)系統(tǒng),使他們凌亂的工作變得有條理,解脫他們需要記憶大量信息(藥品的規(guī)格,價(jià)錢,疾病的名稱與編碼等)的困難。保證他們遵守某些規(guī)范

4、,減輕他們匯總、統(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ì)提供基礎(chǔ)數(shù)據(jù),以及包括有效期的報(bào)警和下限報(bào)警。3、

5、數(shù)據(jù)庫(kù)設(shè)計(jì)本系統(tǒng)主要由用戶管理、入庫(kù)管理模塊,出庫(kù)管理模塊,過期藥品管理,供應(yīng)商管理3.1系統(tǒng)結(jié)構(gòu)圖藥品信息查詢藥品信息報(bào)表出庫(kù)管理 醫(yī)院藥品管理取藥記錄計(jì)費(fèi)取藥記錄報(bào)表取藥記錄查詢藥品信息管理修改庫(kù)存庫(kù)存查詢?nèi)霂?kù)登記入庫(kù)管理藥庫(kù)清理供應(yīng)商信息查詢供應(yīng)商查詢免費(fèi)藥品清理刪除過期過期藥品管理編輯信息修改權(quán)限添加用戶用戶管理業(yè)務(wù)流程圖:藥品 庫(kù)存職工供應(yīng)商 訂單 入庫(kù) 出庫(kù)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)商有效日期售價(jià)藥品信息表

6、字段名數(shù)據(jù)類型藥品編碼數(shù)字藥品名文本供應(yīng)商文本藥劑文本售價(jià) 數(shù)子有效日期日期/時(shí)間(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)商編碼負(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ù)存藥品名稱供應(yīng)商供應(yīng)商編碼庫(kù)存量庫(kù)存信息表字段名數(shù)據(jù)類型藥品編碼數(shù)字藥品名稱文本供應(yīng)商文本供應(yīng)商編碼文本庫(kù)存量 數(shù)子(5)用戶登錄信息E-R圖用戶用戶

7、名密碼 用戶登錄信息表字段名數(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ì)如下:Option Compare Data

8、baseDim 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 Er

9、ror GoTo Err_OK_ClickIf Nz(password) = Nz(DLookup("密碼", "用戶密碼表", "用戶名=" & "'" & username & "'") _ And Me.username <> "" Then '驗(yàn)證用戶和密碼) Me.Visible = False '隱藏窗體 DoCmd.OpenForm "主切換面板"Else MsgBox &q

10、uot;輸入密碼有誤,請(qǐng)您重新輸入!", , "出錯(cuò)" Me.username.SetFocusEnd IfExit_OK_Click: Exit SubErr_OK_Click: MsgBox Err.Description Resume Exit_OK_ClickEnd Sub5.2主切換面板窗體程序代碼的設(shè)計(jì)主切換面板窗體的設(shè)計(jì),在系統(tǒng)登錄界面驗(yàn)證操作員密碼后,將進(jìn)入程序主界面。通過程序主界面將會(huì)執(zhí)行相應(yīng)的權(quán)限操作,并且還可以通過主界面的菜單,來(lái)調(diào)用相應(yīng)程序,再進(jìn)行相應(yīng)操作。程序代碼設(shè)計(jì)如下:5.3增刪改界面窗體程序代碼的設(shè)計(jì)增刪改界面窗體的設(shè)計(jì),可以對(duì)藥品

11、增刪跟供應(yīng)商增刪等操作。程序代碼設(shè)計(jì)如下:Private Sub Command15_Click()Me.Visible = FalseDoCmd.OpenForm "主切換面板"End SubPrivate Sub Command17_Click()DoCmd.RunCommand acCmdSaveRecordDim rs As New ADODB.RecordsetDim str_temp As Stringstr_temp = "select * from 庫(kù)存 Where 產(chǎn)品編號(hào) =" & 產(chǎn)品編號(hào) & ""

12、;rs.Open str_temp, CurrentProject.Connection, adOpenDynamic, adLockOptimisticIf Not IsNull(rs) Thenrs("庫(kù)存量") = rs("庫(kù)存量") + 入庫(kù)數(shù)量rs.UpdateEnd Sub5.4查詢界面窗體程序代碼的設(shè)計(jì)查詢界面窗體的設(shè)計(jì),根據(jù)輸入的職工號(hào)、判斷數(shù)據(jù)庫(kù)中是否存在其中的信息。如果存在,則將這個(gè)節(jié)點(diǎn)的所有信息輸出。如果不存在,則輸出不存在。程序代碼設(shè)計(jì)如下:Private Sub Command20_Click()Me.Visible = Fal

13、seDoCmd.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_bt

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論