病房管理系統(tǒng)數(shù)據(jù)庫課設(shè)

1、遼 寧 工 業(yè) 大 學(xué) 數(shù)據(jù)庫原理與應(yīng)用 課程設(shè)計（論文）題目： 醫(yī)院病房管理系統(tǒng) 院 （系）： 軟件學(xué)院 專業(yè)班級： 學(xué) 號： 學(xué)生姓名： 指導(dǎo)教師： 教師職稱： 助 教 起止時間：2012.11.12至2012.11.25課程設(shè)計（論文）任務(wù)及評語院（系）：軟件學(xué)院 教研室：軟件教研窒學(xué) 號學(xué)生姓名專業(yè)班級課程設(shè)計（論文）題目醫(yī)院病房管理系統(tǒng)課程設(shè)計（論文）任務(wù)課程設(shè)計任務(wù)及要求：（1）掌握設(shè)計數(shù)據(jù)庫表及其間的關(guān)系的基礎(chǔ)知識（2）掌握設(shè)計相關(guān)的查詢、窗體、報表、數(shù)據(jù)訪問頁和宏（3）有和具體業(yè)務(wù)相關(guān)的處理功能（不少于5個）（4）用切換面板、主窗體、菜單欄和工具欄三種方式設(shè)計用戶界面。（5）用

2、SQL設(shè)計帶統(tǒng)計函數(shù)的查詢（如MAX，MIN，COUNT，AVG，SUM）(6) 用編寫VBA代碼實現(xiàn)部分功能課程設(shè)計過程中，要嚴(yán)格遵守實踐環(huán)節(jié)的時間安排，聽從指導(dǎo)教師的指導(dǎo)。正確地完成上述內(nèi)容，記錄實習(xí)日記，規(guī)范完整地撰寫出課程設(shè)計論文。指導(dǎo)教師評語及成績該生能按任務(wù)書要求完成規(guī)定任務(wù)；綜合運用知識能力和動手能力較強，設(shè)計方案合理，數(shù)據(jù)庫分析基本正確，設(shè)計報告條理清晰，論述正確，文字通順，E-R圖較為規(guī)范，符合設(shè)計報告文本格式要求。報告書寫認(rèn)真，具有獨立分析解決問題的能力和創(chuàng)新精神或?qū)σ环矫嬗猩钊胩接?。出色地完成了本課程設(shè)計任務(wù)。成績： 指導(dǎo)教師簽字： 2012 年 12 月 6 日遼 寧

3、工 業(yè) 大 學(xué) 課 程 設(shè) 計 說 明 書（論 文）目 錄第1章 課程設(shè)計目的與要求11.1 課程設(shè)計目的11.2 課程設(shè)計的實驗環(huán)境11.3 課程設(shè)計的預(yù)備知識11.4 課程設(shè)計要求1第2章 課程設(shè)計內(nèi)容22.1 系統(tǒng)功能分析22.2 數(shù)據(jù)庫模型42.3 設(shè)計窗體和報表82.4 窗體和報表模塊主要代碼14第3章 課程設(shè)計總結(jié)21參考文獻(xiàn)22第1章 課程設(shè)計目的與要求1.1 課程設(shè)計目的本課程的課程設(shè)計實際是電子商務(wù)和計算機信息管理專業(yè)學(xué)生學(xué)習(xí)完數(shù)據(jù)庫原理及應(yīng)用（ACCESS 2003）課程后，進行的一次全面的綜合訓(xùn)練，其目的在于加深對數(shù)據(jù)庫基礎(chǔ)理論和基本知識的理解，掌握運用數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)

4、軟件的基本方法。1.2 課程設(shè)計的實驗環(huán)境硬件要求能運行Windows 9.X操作系統(tǒng)的微機系統(tǒng)。數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)軟件可以選用Microsoft Access，或其他數(shù)據(jù)庫管理系統(tǒng)。1.3 課程設(shè)計的預(yù)備知識熟悉數(shù)據(jù)庫的基本知識及一種以上數(shù)據(jù)庫系統(tǒng)開發(fā)軟件。1.4 課程設(shè)計要求按課程設(shè)計指導(dǎo)書提供的課題，應(yīng)根據(jù)下一節(jié)給出的基本需求獨立完成八個方面的設(shè)計，標(biāo)有“可選”的部分可根據(jù)設(shè)計時間的安排及工作量的大小適當(dāng)選擇。選用其他課題或不同的數(shù)據(jù)庫管理系統(tǒng)，可以組成設(shè)計小組，分模塊進行,共同協(xié)作完成一個應(yīng)用系統(tǒng)的開發(fā)任務(wù)。要求書寫詳細(xì)的設(shè)計說明書，對復(fù)雜的代碼段和程序段，應(yīng)畫出程序流程圖。在界面設(shè)計

5、中，畫出每個窗口的布局，有多個窗口時，按模塊調(diào)用的方式畫出窗口調(diào)用圖，用手工畫好報表和標(biāo)簽樣式，嚴(yán)禁相互抄襲。 第2章 課程設(shè)計內(nèi)容2.1系統(tǒng)功能分析2.1.1 系統(tǒng)功能分析 療管理需要大量的人力來管理繁瑣的入院手續(xù)，病歷管理，病房管理，出院管理等工作，非常麻煩，而且由于手工操作，非常容易出錯。而且病歷保存占地方且保存很麻煩，浪費資源更加不用說了。還有繁瑣的手續(xù)，讓病人覺得非常麻煩，也給管理人員造成很大麻煩。直接的影響就是效率低下，成本高，給本來就不想上醫(yī)院的人更加討厭進醫(yī)院。以上問題普遍存在于各個醫(yī)院。仔細(xì)想來，其實這些工作電腦其實完全可以勝任，而且非常容易完成。通過電腦的輔助管理，不僅可以

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

7、方針。 3.減輕員工的工作負(fù)擔(dān)：從而使員工把更多的精力放在提高為病人服務(wù)的質(zhì)量上。 4.簡單、方便地保存和查詢歷史資料。 5.樹立良好的醫(yī)院形象。 6.可以方便的查閱病人的病歷及類似病人的醫(yī)療情況，給醫(yī)生提供可靠參考。 7.對病人的實時監(jiān)控，保證病人的生命安全。2.1.2 系統(tǒng)功能模塊設(shè)計(1).下圖是醫(yī)院的組織結(jié)構(gòu)圖，醫(yī)院下設(shè)院辦、醫(yī)務(wù)處、財務(wù)處、信息中心等，其中醫(yī)務(wù)處為核心部分，分為門診辦公室、專家門診、門診病案室、掛號室、醫(yī)療部門，其中最重要的部門醫(yī)療部門又分為急診科、內(nèi)科、外科、婦產(chǎn)科、兒科、中醫(yī)科等各科室，從上至下，各機構(gòu)、部門的關(guān)系比較清晰。醫(yī)院院辦醫(yī)務(wù)處財務(wù)處信息中心收 發(fā)室文書

8、檔案室門診辦公室專家門診門診病案室掛號室醫(yī)療部門資產(chǎn)會計室收費處經(jīng)濟核算科統(tǒng)計師計算機室急診科內(nèi)科外科婦產(chǎn)科兒科中醫(yī)科五官科放射科檢驗科 圖一 醫(yī)院組織結(jié)構(gòu)圖(2).下圖即為醫(yī)院病房管理系統(tǒng)的業(yè)務(wù)流程圖，大致過程如下，病人將病歷交給門診掛號處，進行掛號收費之后，開據(jù)收費證明交給檢查科，進行所需的各類檢查，然后將檢查報告單交給醫(yī)生科室，醫(yī)生根據(jù)檢查結(jié)果作出診斷，開處方，并決定病人是否需要住院，如需住院，醫(yī)生開出住院單，并遞交給病人住院建議，病人根據(jù)醫(yī)囑，填寫遞交住院申請表給住院部，住院處可隨時給出病人的住院信息，并在病人出院時打印出院報告，收費處將醫(yī)藥費、檢查費、住院費等各項費用統(tǒng)計匯總收取。病

9、人門診掛號處病例住院申請表住院處掛號單住院信息出院報告收費處收費證明檢查科室門診藥房處方住院建議檢查單醫(yī)生科室住院單報告單 圖二 醫(yī)院病房管理系統(tǒng)業(yè)務(wù)流程圖 2.2數(shù)據(jù)庫模型2.2.1 數(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-05(3).數(shù)據(jù)流的定義 數(shù)據(jù)流編號：B01-06 數(shù)據(jù)流名稱：掛

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

11、：病人的住院信息，出院時的報告，返回給病人。(5).數(shù)據(jù)存儲的定義 數(shù)據(jù)存儲編號：E05-04 數(shù)據(jù)存儲名稱：檢查單 簡述：存放病人的檢查診斷結(jié)果 數(shù)據(jù)存儲組成：身份證號碼+姓名+性別+癥狀+檢查結(jié)果+診斷結(jié)論 關(guān)鍵字：身份證號碼 相關(guān)聯(lián)的處理：P03,P04(6).外部實體的定義 外部實體編號：S02-01 外部實體名稱：病人簡述：在本院就診的病人輸入的數(shù)據(jù)流：D02-01，D03-05輸出的數(shù)據(jù)流：D05-062.2.2 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計1.系統(tǒng)功能結(jié)構(gòu)圖：醫(yī)院病房管理系統(tǒng)查詢病人住院情況病房使用情況系統(tǒng)維修打印病人信息查詢病房信息查詢?nèi)朐盒畔⒌怯洸∪俗≡呵闆r查詢出院信息處理病房記錄查詢

12、病房信息更新系統(tǒng)密碼修改打印出院報告上圖為醫(yī)院病房管理系統(tǒng)的功能結(jié)構(gòu)圖，該系統(tǒng)的功能主要分為五個模塊：查詢功能、病人住院情況處理功能、病房使用情況更新、系統(tǒng)的維護、打印功能，能夠查詢病人基本信息、病房基本信息、病人住院情況查詢和處理、入院信息登記、出院信息刪除，還能進行病房使用信息的更新，系統(tǒng)登錄密碼的修改、打印功能，功能較為全面。2.系統(tǒng)中各實體的E-R圖：病人姓名性別家庭住址聯(lián)系方式年齡身份證號病房房號狀態(tài)床位護理人員單價值班醫(yī)生3.系統(tǒng)整體E-R圖:病人病房醫(yī)生入住費用花費屬于科室主治nn1 11nn12.2.3 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計1.病人基本信息表（身份證號碼、姓名、性別、年齡、家庭住

13、址、聯(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護理人員字符型82.3 設(shè)計窗體和報表2.3.1 系統(tǒng)登錄界面2.3.2 進入系統(tǒng)主頁面 菜單設(shè)計：2.3.3 病人基本信息查詢功能界面：2.3.4 病房基本信息查詢功能界面：2.3.5 病人入院信息登記功能：2.3.6 病人住院情況查詢功能:2.3.7 出院信息處理功能：

14、2.3.8 病房信息更新功能界面：2.3.9 系統(tǒng)登錄密碼的修改功能：2.3.10 報表打印功能：2.4 設(shè)計窗體和報表模塊主要代碼2.4.1 系統(tǒng)登錄界面代碼如下：select(thisform.dataenvironment.cursor1.alias)locate for 姓名=ALLTRIM(thisform.text1.value); and 工號=ALLTRIM(thisform.text2.value)if found() do form 進入界面else =messagebox("用戶名或密碼不正確，請重新輸入!") thisform.text1.value

15、="" thisform.text2.value=""endifreturnthisform.release2.4.2 病人基本信息查詢功能界面代碼如下：do case case thisform.optiongroup1.value=1 bool='身份證號碼='+"'"+trim(thisform.text1.value)+"'" case thisform.optiongroup1.value=2 bool='姓名='+"'"+tri

16、m(thisform.text1.value)+"'" case thisform.optiongroup1.value=3 bool='性別='+"'"+trim(thisform.text1.value)+"'" endcasethisform.dataenvironment.cursor1.filter=boolthisform.refreshreturn2.4.3 病房基本信息查詢功能界面代碼如下：do case case thisform.optiongroup2.value=1 bo

17、ol='房號='+"'"+trim(thisform.text1.value)+"'" case thisform.optiongroup2.value=2 bool='狀態(tài)='+"'"+trim(thisform.text1.value)+"'" endcasethisform.dataenvironment.cursor1.filter=boolthisform.refreshreturn2.4.4 病人入院信息登記功能代碼如下：Insert In

18、to 病人信息表(身份證號碼,姓名,性別,年齡,家庭住址,聯(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=""Thisfo

19、rm.Text3.Value=""Thisform.Text4.Value=""Thisform.Text5.Value=""Thisform.Text6.Value=""Thisform.Refresh2.4.5 病人住院情況查詢功能代碼如下：do case case this.value=1 go top case this.value=2 if not bof() skip -1 endif case this.value=3 skip if eof() skip -1 endif case this.val

20、ue=4 go bottom case this.value=5 sfzh="" do form 輸入身份證號碼 qjlh=recno() if len(sfzh)<>0 locate for 身份證號碼=sfzh if not found() wait window"無此記錄！" go qjlh endif endif case this.value=6 tj=messagebox('需要添加新記錄嗎?',4+32+256,'確認(rèn)') if tj=6 append blank endif case this.

21、value=7 sc=messagebox('需要刪除當(dāng)前記錄嗎?',4+32+256,'確認(rèn)') if sc=6 delete pack endif case this.value=8 thisform.releaseendcasethisform.refresh2.4.6 病人出院信息處理功能代碼如下：SET DELETE ONThisform.Text1.SetFocusLocate For Alltrim(身份證號碼)=Alltrim(Thisform.Text1.Value) And Alltrim(姓名)=Alltrim(Thisform.Text2

22、.Value) and; Alltrim(性別)=Alltrim(Thisform.Text3.Value) and 年齡=val(Alltrim(Thisform.Text4.Value) ) If found() Delete Thisform.Text1.Value="" Thisform.Text2.Value="" Thisform.Text3.Value="" Thisform.Text4.Value="" Thisform.Text1.SetFocusELSE MessageBox("鍵入信

23、息有誤，請您認(rèn)真核對后重新鍵入信息！",48,"警告！") Thisform.Text1.Value="" Thisform.Text2.Value="" Thisform.Text3.Value="" Thisform.Text4.Value="" Thisform.Text1.SetFocusEndIfThisform.Grid1.RefreshThisform.Refresh2.4.7 病房信息更新功能界面代碼如下：a=alltrim(thisform.text4.value)l

24、ocate for 房號= alltrim(thisform.text1.value) and 床位= alltrim(thisform.text2.value) do case case 單價=alltrim(thisform.text3.value) update 病房信息表 set 單價 = a case 狀態(tài) =alltrim(thisform.text3.value) update 病房信息表 set 狀態(tài) = a case 值班醫(yī)生 =alltrim(thisform.text3.value) update 病房信息表 set 值班醫(yī)生 =a case 護理人員=alltrim(t

25、hisform.text3.value) update 病房信息表 set 護理人員 = a endcase thisform.text1.value="" thisform.text2.value="" thisform.text3.value="" thisform.text4.value=""thisform.refresh2.4.8 系統(tǒng)登錄密碼的修改的程序代碼如下：set exact onif empty(thisform.text1.value) messagebox("請您注意，用戶名不能為

26、空！") thisform.text1.setfocuselse xm=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(姓名)=xm if found() if xmm=qrmm update 工作人員表 set 工號=xmm where alltrim(工號)=gh thisform.text1

27、.value="" thisform.text2.value="" thisform.text3.value="" thisform.text4.value="" messagebox("密碼已修改成功！",48,"提示！") else messagebox("密碼不一致，請您重新鍵入密碼！",48,"警告！") thisform.text2.value="" thisform.text3.value="" thisform.text4.value="" thisform.text2.setfocus endif else messagebox(&