醫(yī)院病房管理制度系統(tǒng)

1、醫(yī) 院 病 房 管 理 系 統(tǒng)作者:日期:管理信息系統(tǒng)課程設(shè)計報告設(shè)計題目：醫(yī)院病房管理系統(tǒng)專業(yè)經(jīng)濟學類班級經(jīng)類 093學生彭菲學號3090552097指導教師薛宏權(quán)間 2012625-2012629點 經(jīng)管學院實驗室機房2012年 春季學期目錄一. 緒論.系統(tǒng)規(guī)戈 U.錯誤! 未定義書簽三.系統(tǒng)分析.1.可行性分析.42.組織結(jié)構(gòu)調(diào)查。.43.業(yè)務調(diào)查.錯誤！ 未定義書簽4.數(shù)據(jù)流程圖.錯誤！ 未定義書簽5.數(shù)據(jù)字典.錯誤！ 未定義書簽6.數(shù)據(jù)加工處理的描述. .錯誤！ 未定義書簽四.系統(tǒng)設(shè)計.錯誤! 未定義書簽1.系統(tǒng)總體設(shè)計.錯誤！ 未定義書簽2代碼設(shè)計及設(shè)計規(guī)范. .錯誤！ 未定義書簽

2、3.系統(tǒng)物理配置方案.錯誤！ 未定義書簽4.存儲文件格式設(shè)計.錯誤！ 未定義書簽5.輸出設(shè)計.錯誤！ 未定義書簽6.輸入設(shè)計.錯誤！ 未定義書簽五.系統(tǒng)實施與維護.錯誤! 未定義書簽0。0。0。0。4。41. 選擇的開發(fā)平臺 . 錯誤！未定義書簽。2. 計算機程序設(shè)計. 錯誤！未定義書簽。六對自己工作的評價 .24一.緒論隨著計算機網(wǎng)絡和通訊技術(shù)的發(fā)展與融合，信息化已經(jīng)在世界各國各領(lǐng)域的 應用越來越廣泛，這些應用帶來了生產(chǎn)方式的改革，經(jīng)濟的快速增長和人類文明 的進步，整個世界進入了一個信息時代。醫(yī)院作為特殊的服務行業(yè)，管理方式千差萬別，并且使用著大量的先進的儀 器設(shè)備，處理著大批的業(yè)務，產(chǎn)生龐

3、大的信息，因此醫(yī)院急需一套適合本院的醫(yī) 院信息系統(tǒng)來收集處理信息，從而更好地利用信息，來提高醫(yī)院管理水平，改善 醫(yī)院服務質(zhì)量，加速醫(yī)院臨床研究步伐，提高醫(yī)院的競爭能力。二系統(tǒng)規(guī)劃規(guī)模的大型化，傳統(tǒng)的醫(yī)院靠人工管理的方式已經(jīng)越來越不適應現(xiàn)代醫(yī)院的 規(guī)模了。而且隨著電腦的普及及電腦性能的提高， 使用電腦來管理醫(yī)院的常規(guī)運 作已經(jīng)成為必然。同時，用電腦進行管理可以大大的節(jié)約勞動力降低醫(yī)院的成本， 降低人為的誤操作，大大的提高工作效率，給醫(yī)院和病人同時帶來巨大的方便。 本系統(tǒng)就是在這個背景下開發(fā)的，將先進的電腦技術(shù)和現(xiàn)代醫(yī)院的管理完美的結(jié) 合起來，完成以前需要大量人工才能完成的任務， 實現(xiàn)了醫(yī)療，服務

4、一體的全新 概念的服務和管理方式。三系統(tǒng)分析1.可行性分析：療管理需要大量的人力來管理繁瑣的入院手續(xù)， 病歷管理，病房管理，出院 管理等工作，非常麻煩，而且由于手工操作，非常容易出錯。而且病歷保存占地 方且保存很麻煩，浪費資源更加不用說了。還有繁瑣的手續(xù)，讓病人覺得非常麻 煩，也給管理人員造成很大麻煩。直接的影響就是效率低下，成本高，給本來就 不想上醫(yī)院的人更加討厭進醫(yī)院。 以上問題普遍存在于各個醫(yī)院。 仔細想來，其 實這些工作電腦其實完全可以勝任，而且非常容易完成。通過電腦的輔助管理， 不僅可以解決上述問題，而且符合現(xiàn)代的潮流，體現(xiàn)一個醫(yī)院的現(xiàn)代化形象，對 于提高員工工作效率，加速資金周轉(zhuǎn)、

5、降低各項成本及改善服務質(zhì)量都有十分積極的作用一個成熟的醫(yī)院管理系統(tǒng)不僅僅是記錄病人的信息，提供查詢，報表打印等一系列簡單的工作，它能讓工作人員從煩瑣的手工操作中解脫，并且醫(yī)院管理 系統(tǒng)本身就代表著一種管理方法。 隨著它的深入，將帶動企業(yè)的運做，為管理和 決策提供支持。為了達到這個要求，它必須依靠高起點的硬件環(huán)境和軟件開發(fā)工 具來保證系統(tǒng)的穩(wěn)定和正常運行?？傊?，使用該醫(yī)院管理系統(tǒng)，將會有以下好處：1.高效的病房管理：能有效的提高病房使用率。2.提高決策依據(jù)：管理者可以隨時了解經(jīng)營情況，以制定相應的經(jīng)營方針。3.減輕員工的工作負擔：從而使員工把更多的精力放在提高為病人服務的質(zhì) 量上。4.簡單、方便

6、地保存和查詢歷史資料。5.樹立良好的醫(yī)院形象。6.可以方便的查閱病人的病歷及類似病人的醫(yī)療情況，給醫(yī)生提供可靠參考。7.對病人的實時監(jiān)控，保證病人的生命安全。2 組織結(jié)構(gòu)調(diào)查。上圖是醫(yī)院的組織結(jié)構(gòu)圖，醫(yī)院下設(shè)院辦、醫(yī)務處、財務處、信息中心等，其中醫(yī)務處為核 心部分，分為門診辦公室、專家門診、門診病案室、掛號室、醫(yī)療部門，其中最重要的部門 醫(yī)療部門又分為急診科、 內(nèi)科、夕卜科、婦產(chǎn)科、兒科、中醫(yī)科等各科室，從上至下，各機構(gòu)、部門的關(guān)系比較清晰。3,業(yè)務流程圖：上圖即為醫(yī)院病房管理系統(tǒng)的業(yè)務流程圖，大致過程如下，病人將病歷交給門診掛號處， 進行掛號收費之后，開據(jù)收費證明交給檢查科，進行所需的各類檢

7、查， 然后將檢查報告單交給醫(yī)生科室，醫(yī)生根據(jù)檢查結(jié)果作出診斷，開處方，并決定病人是否需要住院，如需住院，醫(yī)生開出住院單，并遞交給病人住院建議， 病人根據(jù)醫(yī)囑，填寫遞交住院申請表給住院部，住 院處可隨時給出病人的住院信息，并在病人出院時打印出院報告， 收費處將醫(yī)藥費、檢查費、住院費等各項費用統(tǒng)計匯總收取。4.數(shù)據(jù)流程圖：上圖是醫(yī)院病房管理系統(tǒng)的數(shù)據(jù)流程圖，大致過程如下，病人的基本信息通過病歷傳送到掛號處，掛號處經(jīng)過收費掛號處理之后，將收據(jù)信息傳送給檢查科室和醫(yī)生科室，檢查科室進行所需各項檢查之后，將檢查結(jié)果數(shù)據(jù)存于檢查報告單中，并將報告單數(shù)據(jù)傳送到醫(yī)生科室，醫(yī)生科室收到收費單據(jù)和檢查報告單，然后

8、進行診斷處理， 決定病人是否需要住院， 如需住院，則把病人的相關(guān)信息提供給住院部，將病人的將查結(jié)果存于診斷檢查單中，住院部查詢病房基本信息，并根據(jù)病人的就診情況， 安排病房，將病人的床位、護理情況存于住院信息 中，將病人的就診、住院、收費情況等相關(guān)數(shù)據(jù)存于出院報告中。5.數(shù)據(jù)字典：1）數(shù)據(jù)項的定義數(shù)據(jù)項編號：F02-01數(shù)據(jù)項名稱：床位簡述：病房床位的編碼類型及寬度：字符型，8 位取值 范圍：“A-00101”一 E-00105”2）數(shù)據(jù)結(jié)構(gòu)的定義數(shù)據(jù)結(jié)構(gòu)編號：D03-05數(shù)據(jù)結(jié)構(gòu)名稱：病房基本信息簡述：病房的床位、價格、狀態(tài)等基本信息數(shù)據(jù)結(jié)構(gòu)組成：F02-01 + J01-01 + Z06-

9、053）數(shù)據(jù)流的定義數(shù)據(jù)流編號：B01-06數(shù)據(jù)流名稱：掛號單簡述：掛號處開出的掛號單數(shù)據(jù)流來源：掛號處數(shù)據(jù)流去向：收費處理模塊數(shù)據(jù)流組成：科室 +主治醫(yī)生+收費情況數(shù)據(jù)流量：15 份/小時高 峰流 量：25 份/小時（上午 9:00-11:30）4）處理邏輯的定義處理邏輯編號：P05-02處理邏輯名稱：入住病房處理簡述：安排病人入住的病房、床位等輸入的數(shù)據(jù)流：病人的姓名、性別、身份證號碼、家庭住址，來源于病人基本信息表， 病人的診斷信息來源于診斷信息表，病房號、床位、價格、值班醫(yī)生、護理人員，來源于病 房信息表。處理：住院部根據(jù)數(shù)據(jù)流“病人的診斷信息”，確定病人需要入住的病房、護理條件、收費

10、情況。輸出的數(shù)據(jù)流：病人的住院信息，出院時的報告，返回給病人。床位、5）數(shù)據(jù)存儲的定義數(shù)據(jù)存儲編號：E05-04數(shù)據(jù)存儲名稱：檢查單簡述：存放病人的檢查診斷結(jié)果數(shù)據(jù)存儲組成：身份證號碼 +姓名+性別+癥狀+檢查結(jié)果+診斷結(jié)論關(guān) 鍵字：身份證號碼相關(guān)聯(lián)的處理：P03,P046）外部實體的定義外部實體編號：S02-01外部實體名稱：病人簡述：在本院就診的病人輸入的數(shù)據(jù)流：D02-01，D03-05輸出的數(shù)據(jù)流：D05-06二.系統(tǒng)設(shè)計1.系統(tǒng)功能結(jié)構(gòu)圖：- 醫(yī)院病上圖為醫(yī)院病房管理系統(tǒng)的功能結(jié)構(gòu)圖，該系統(tǒng)的功能主要分為五個模塊：查詢功能、病人住院情況處理功能、病房使用情況更新、系統(tǒng)的維護、打印功能

11、，能夠查詢病人基本信息、 病房基本信息、病人住院情況查詢和處理、入院信息登記、出院信息刪除，還能進行病房使系統(tǒng)密碼病戾信耄病房記旱出院信病人住強入院信自”“M房信自 p病人信息用信息的更新，系統(tǒng)登錄密碼的修改、打印功能，功能較為全面。2代碼設(shè)計：A-00101 , B-00101, C-00101床位編碼的設(shè)計：采用字母與數(shù)字結(jié)合，打頭字母表示病房所在科室，比如A-00101，字母 A 表示內(nèi)科，前三位數(shù)字表示所在科室的病房號，比如A-00101 中 001 表示內(nèi)科的 001號病房，后兩位數(shù)字表示所在病房中的病床編號，比如A-00101 中后兩位數(shù)字 01 表示內(nèi)科001 號病房里的 01

12、號病床，同理，B-00101，C-00101 也是采用此原理編碼。3.數(shù)據(jù)庫設(shè)計：3.1 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計：1）系統(tǒng)中實體的 E-R 圖：L科J3.2 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計：1）病人基本信息表（身份證號碼、姓名、性別、年齡、家庭住址、聯(lián)系方式）2） 病房基本信息表（房號、床位、單價、狀態(tài)、值班醫(yī)生、護理人員）表1病人基本信息表字段名稱字段類型字段長度身份證號碼字符型20姓名字符型8性別字符型2年齡數(shù)值型3家庭住址字符型30聯(lián)系方式字符型11表2病房基本信息表字段名稱字段類型字段長度由口 房號字符型5床位字符型8單價數(shù)值型4狀態(tài)字符型8值班醫(yī)生字符型8護理人員字符型84.主要功能及界面：1) 系

13、統(tǒng)登錄界面：代碼如下：select(thisform.datae nvironmen t.cursorl.alias)locate for 姓名=ALLTRIM(thisform.text1.value);and 工號=ALLTRIM(thisform.text2.value)if foun d()do form進入界面else=messagebox(用戶名或密碼不正確，請重新輸入!)thisform.text1.value=thisform.text2.value=en difreturnthisform.release2) 進入系統(tǒng)主頁面：菜單設(shè)計：3) 病人基本信息查詢功能界面：代碼如下

14、：do casecase thisform.opti on group1.value=1bool=身份證號碼=+trim(thisform.text1.value)+case thisform.opti on group1.value=2bool=姓名=+trim(thisform.text1.value)+case thisform.opti on group1.value=3bool=性別=+trim(thisform.text1.value)+endcasethisform.datae nvironmen t.cursor1.filter=boolthisform.refresh ret

15、urn4) 病房基本信息查詢功能界面：功能代碼如下：do casecase thisform.opti on group2.value=1bool=房號=+”+trim(thisform.text1.value)+”case thisform.opti on group2.value=2bool=狀態(tài)=+trim(thisform.text1.value)+endcasethisform.datae nvironmen t.cursor1.filter=boolthisform.refreshreturn5) 病人入院信息登記功能：功能代碼如下：Insert Into病人信息表(身份證號碼，姓

16、名，性別，年齡,家庭住址，聯(lián)系方式);values(Alltrim(Thisform.Text1.Value),Alltrim(Thisform.Text2.Value),;Alltrim(Thisform.Text3.Value),val(Alltrim(Thisform.Text4.Value),Alltrim(Thisform.Text5.Value),Alltrim(Thisform.Text6.Value)Thisform.Text1.Value=Thisform.Text2.Value=Thisform.Text3.Value=Thisform.Text4.Value=Thisfo

17、rm.Text5.Value=Thisform.Text6.Value=Thisform.Refresh 6）病人住院情況查詢功能功能代碼如下:do casecase this.value=1go topcase this.value=2if not bof()skip -1en difcase this.value=3skipif eof()skip -1en difcase this.value=4go bottomcase this.value=5sfzh=do form輸入身份證號碼qjlh=rec no()if len (sfzh)0locate for身份證號碼=sfzhif no

18、t foun d()wait wi ndow無此記錄！ ”go qjlhen difen difcase this.value=6tj=messagebox(需要添加新記錄嗎？,4+32+256, 確認)if tj=6appe nd bla nken difcase this.value=7sc=messagebox( 需要刪除當前記錄嗎？,4+32+256, 確認)if sc=6deletepacken difcase this.value=8thisform.releaseendcasethisform.refresh7)出院信息處理功能：程序代碼如下：SET DELETE ONThisf

19、orm.Text1.SetFocusLocate For Alltrim( 身份證號碼)=Alltrim(Thisform.Text1.Value) AndAlltrim( 名)=Alltrim(Thisform.Text2.Value) and;Alltrim(性別)=Alltrim(Thisform.Text3.Value) and年齡=val(Alltrim(Thisform.Text4.Value)If fou nd()DeleteThisform.Text1.Value=Thisform.Text2.Value=Thisform.Text3.Value=Thisform.Text4.

20、Value=Thisform.Textl.SetFocusELSEMessageBox(鍵入信息有誤，請您認真核對后重新鍵入信息！Thisform.Text1.Value=Thisform.Text2.Value=Thisform.Text3.Value=Thisform.Text4.Value=Thisform.Text1.SetFocusEn dIfThisform.Grid1.RefreshThisform.Refresh8)病房信息更新功能界面：程序代碼如下：a=alltrim(thisform.text4.value)locate for 房號=alltrim(thisform.te

21、xt1.value) and床位=alltrim(thisform.text2.value)do casecase單價=alltrim(thisform.text3.value)update病房信息表 set單價=acase狀態(tài)=alltrim(thisform.text3.value)update病房信息表 set狀態(tài)=acase值班醫(yī)生=alltrim(thisform.text3.value)II Q + I H,48, 警告！)case護理人員=alltrim(thisform.text3.value)update病房信息表set護理人員=aendcasethisform.text1.

22、value=thisform.text2.value=thisform.text3.value=thisform.text4.value=thisform.refresh9)系統(tǒng)登錄密碼的修改功能：功能的程序代碼如下：set exact onif empty(thisform.text1.value)messagebox(請您注意，用戶名不能為空！)thisform.text1.setfocuselsexm=alltrim(thisform.text1.value) gh=alltrim(thisform.text2.value) xmm=alltrim(thisform.text3.value)qrmm=alltrim(thisform.text3.value) locate for alltrim( 工號)=gh and alltrim( 姓名)=xmif foun d()if xmm=qrmmupdate工作人員表 set 工號=xmm where alltrim(thisform.text1.value=update病房信息表工號）=ghthisform.text2.value=thisform.text3.value=thisform.text4.value=messagebox（密碼已修改成功！ ,48,提示?。〆lsemessagebox（密碼不一致，請您