住院管理系統(tǒng)實(shí)驗(yàn)報(bào)告

住院管理系統(tǒng)實(shí)驗(yàn)報(bào)告實(shí)驗(yàn)?zāi)康?數(shù)據(jù)庫課程設(shè)計(jì)的主要目標(biāo)是：（1）加深對(duì)數(shù)據(jù)庫系統(tǒng)、軟件工程、程序設(shè)計(jì)語言的理論知識(shí)的理解和應(yīng)用水平。（2）通過設(shè)計(jì)實(shí)際的數(shù)據(jù)庫系統(tǒng)應(yīng)用課題，進(jìn)一步熟悉數(shù)據(jù)庫管理系統(tǒng)的操作技術(shù)，提高動(dòng)手能力，提高分析問題和解決問題的能力。2.實(shí)驗(yàn)簡述為醫(yī)院所屬各部門提供病人信息和病房信息的收集、存儲(chǔ)、處理、提取和數(shù)據(jù)交換的能力，并滿足所有授權(quán)用戶的功能需求。作為其中的模塊之一：住院管理系統(tǒng)，其意義同樣不可忽視。住院管理系統(tǒng)主要用來管理病人和病房的關(guān)系其中包括在住病人的基本信息，病房的基本信息。此系統(tǒng)可以讓醫(yī)院增加刪除病房，還可以登記和出院病人操作員可以根據(jù)系統(tǒng)內(nèi)設(shè)定好的費(fèi)用，在病人出院的同時(shí)準(zhǔn)確計(jì)算出病人在住院期間內(nèi)的住院費(fèi)用。3．課程設(shè)計(jì)全過程（1）可行性分析（2）系統(tǒng)分析（3）需求分析（4）數(shù)據(jù)庫設(shè)計(jì)概念(模型)設(shè)計(jì)（實(shí)際到概念）邏輯設(shè)計(jì)（邏輯推導(dǎo)）物理設(shè)計(jì)（理論到實(shí)現(xiàn)）SQL編程、調(diào)試（測試驗(yàn)證）（實(shí)踐反復(fù)檢驗(yàn)）（5）應(yīng)用程序編程、調(diào)試、測試可行性分析1技術(shù)可行性硬件、軟件要求不高，目前市場上的一般計(jì)算機(jī)軟硬件資源均能滿足系統(tǒng)開發(fā)需要。該管理系統(tǒng)以VB和SQLServer為主要開發(fā)工具，通過ADO方式與后臺(tái)數(shù)據(jù)庫MicrosoftSQLServer2000相連接，建立了一個(gè)基于C/S（客戶機(jī)/服務(wù)器）的數(shù)據(jù)庫應(yīng)用管理系統(tǒng)。維護(hù)工作方便，由于SQL2000的易用性，使得后臺(tái)的操作十分便捷，操作人員可以在短時(shí)間內(nèi)完全掌握系統(tǒng)的維護(hù)工作。2經(jīng)濟(jì)可行性對(duì)于每個(gè)住院部門，可以根據(jù)自己需要，配置性能一般的計(jì)算機(jī)做為終端，向服務(wù)器存儲(chǔ)數(shù)據(jù)或搜索數(shù)據(jù)。這些電腦的費(fèi)用對(duì)整個(gè)住院系統(tǒng)來說并不是一個(gè)很重點(diǎn)負(fù)擔(dān)。3社會(huì)可行性由于醫(yī)院住院病人數(shù)量眾多，因而通過電腦化操作可以減少紙張的使用，同時(shí)由于數(shù)據(jù)直接通過局域網(wǎng)傳輸，可以減少信息傳遞時(shí)間，提高效率，同時(shí)也方便醫(yī)生，病人搜查相關(guān)住院信息，提高醫(yī)院工作透明度和工作效率。系統(tǒng)分析注重系統(tǒng)的易用性本系統(tǒng)設(shè)計(jì)過程中力求人性化，結(jié)合強(qiáng)大的搜索功能幫助醫(yī)生、護(hù)士、病人隨時(shí)查找到所需的信息，同時(shí)在數(shù)據(jù)錄入過程中，盡可能減少人工輸入部分，降低人工輸入錯(cuò)誤的可能性。注重系統(tǒng)的可移植性由于醫(yī)院整體系統(tǒng)龐大復(fù)雜，可以根據(jù)需要實(shí)際取系統(tǒng)中的部分功能。同時(shí)由于數(shù)據(jù)庫采用微軟的SQL2000，可以很方便地備數(shù)據(jù)，轉(zhuǎn)移數(shù)據(jù)。系統(tǒng)的名稱、目標(biāo)名稱：醫(yī)院住院管理系統(tǒng)目標(biāo)：(1)方便醫(yī)院對(duì)病人和病房的管理(2)方便醫(yī)院管理病人的住院費(fèi)用需求分析總體功能操作流程住院管理系統(tǒng)系統(tǒng)信息住院管理系統(tǒng)系統(tǒng)信息出院管理病房管理病人登記幫助信息更換用戶更改密碼新增用戶刪除用戶退出系統(tǒng)病人登記病人查詢費(fèi)用查詢病房信息病房查詢?cè)?刪病房登記出院出院病人查詢幫助產(chǎn)題關(guān)于所有病房信息空閑病房信息在住病房信息操作員登記/查詢病人登記/查詢病人登記病人出院查詢病房信息查詢出院病人操作員登錄系統(tǒng)退出系統(tǒng)操作員的操作流程圖操作員可以登錄/查詢病人、查看病房的狀態(tài)和信息、給要出院的病人登記出院、查詢已經(jīng)出院的病人的信息。管理人員增加/刪除病房增加/刪除病房備份/恢復(fù)數(shù)據(jù)增加/刪除用戶更改密碼管理人員登錄退出系統(tǒng)管理人員登錄系統(tǒng)流程管理人員除了具有操作員的功能以外，還可以對(duì)病房進(jìn)行管理、對(duì)操作員----用戶進(jìn)行管理、備份/恢復(fù)現(xiàn)在的數(shù)據(jù)庫、更改管理員的密碼！病人登記基本信息病人登記登記基本信息病人登記住入住入病房病房病人登記住院登記出院信息申請(qǐng)出院病人登記出院信息申請(qǐng)出院病人出院出院概念模型設(shè)計(jì)數(shù)據(jù)庫要表示的信息如下:管理員的信息。病人的信息。病房的信息病人和病房之間的聯(lián)系病房類型姓名病房類型姓名病房號(hào)1:m證件類型性別病房號(hào)1:m證件類型性別證件號(hào)碼病房在住病人證件號(hào)碼病房在住病人價(jià)格價(jià)格在住狀態(tài)出生日期過敏史在住狀態(tài)出生日期過敏史年齡血型R/H因子年齡血型R/H因子姓名5.總體聯(lián)系圖姓名在住狀態(tài)病房號(hào)病房類型性別在住狀態(tài)病房號(hào)病房類型性別價(jià)格年齡居住病人存在病房醫(yī)院擁有管理人員身份價(jià)格年齡居住病人存在病房醫(yī)院擁有管理人員身份血型血型R/H因子R/H因子證件類型管理證件類型管理過敏史證件號(hào)碼過敏史證件號(hào)碼密碼帳號(hào)出生日期密碼帳號(hào)出生日期邏輯設(shè)計(jì)管理員/操作員→(name,psw,權(quán)限)病人信息→(編號(hào),患者姓名,性別，出生日期，證件類型，證件號(hào)碼，血型，RH因子，過敏史,病房類型，病房號(hào)，主治醫(yī)師，住院時(shí)間，定金，登記員，備注)出院病人信息→(編號(hào),患者姓名,性別，出生日期，證件類型，證件號(hào)碼，血型，RH因子，過敏史,病房類型，病房號(hào)，主治醫(yī)師，住院時(shí)間，定金，登記員，備注,出院時(shí)間)病房類型/價(jià)格→（病房類型，病房價(jià)格）病房表→（病房號(hào)，病房類型，在住狀態(tài)，flag）物理結(jié)構(gòu)設(shè)計(jì)用SQL實(shí)現(xiàn)設(shè)計(jì)實(shí)現(xiàn)該設(shè)計(jì)的環(huán)境為WindowsxpPerfessinal+MSSQLServer2000.01．建立病房類型/價(jià)格表CREATETABLE[dbo].[bflx]( [病房類型][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [病房價(jià)格][int]NULL)ON[PRIMARY]2．建立病房表CREATETABLE[dbo].[bfno]( [病房號(hào)][varchar](5)COLLATEChinese_PRC_CI_ASNULL, [病房類型][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [flag][tinyint]NULL, [在住狀態(tài)][varchar](6)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]建立管理員/操作員信息表CREATETABLE[dbo].[psw]( [name][char](20)COLLATEChinese_PRC_CI_ASNULL, [psw][char](10)COLLATEChinese_PRC_CI_ASNULL, [權(quán)限][tinyint]NULL)ON[PRIMARY]5．建立病人信息表CREATETABLE[dbo].[sufferer]( [編號(hào)][varchar](8)COLLATEChinese_PRC_CI_ASNOTNULL, [患者姓名][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [性別][varchar](2)COLLATEChinese_PRC_CI_ASNULL, [出生日期][datetime]NULL, [證件類型][varchar](8)COLLATEChinese_PRC_CI_ASNULL, [證件號(hào)碼][varchar](20)COLLATEChinese_PRC_CI_ASNULL, [血型][varchar](2)COLLATEChinese_PRC_CI_ASNULL, [rh因子][varchar](5)COLLATEChinese_PRC_CI_ASNULL, [過敏史][varchar](8)COLLATEChinese_PRC_CI_ASNULL, [病房類型][varchar](8)COLLATEChinese_PRC_CI_ASNULL, [病房號(hào)][varchar](5)COLLATEChinese_PRC_CI_ASNULL, [主治醫(yī)師][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [住院時(shí)間][datetime]NULL, [登記員][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [備注][text]COLLATEChinese_PRC_CI_ASNULL, [壓金][int]NULL)ON[PRIMARY]TEXTIMAGE_ON[PRIMARY]6．建立出院病人信息表CREATETABLE[dbo].[出院病人]( [編號(hào)][varchar](8)COLLATEChinese_PRC_CI_ASNULL, [患者姓名][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [性別][varchar](2)COLLATEChinese_PRC_CI_ASNULL, [出生日期][datetime]NULL, [證件類型][varchar](8)COLLATEChinese_PRC_CI_ASNULL, [證件號(hào)碼][varchar](20)COLLATEChinese_PRC_CI_ASNULL, [血型][varchar](2)COLLATEChinese_PRC_CI_ASNULL, [RH因子][varchar](5)COLLATEChinese_PRC_CI_ASNULL, [過敏史][varchar](5)COLLATEChinese_PRC_CI_ASNULL, [病房類型][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [病房號(hào)][varchar](5)COLLATEChinese_PRC_CI_ASNULL, [主治醫(yī)師][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [住院時(shí)間][datetime]NULL, [出院時(shí)間][datetime]NULL, [登記員][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [備注][text]COLLATEChinese_PRC_CI_ASNULL, [住院費(fèi)用][int]NULL)ON[PRIMARY]TEXTIMAGE_ON[PRIMARY]7.所有操作登錄rs.Open"selectname,pswfrompswwherename='"&Trim(Text1.Text)&"'andpsw='"&Trim(Text2.Text)&"'",cn,adOpenStatic,adLockReadOnly更改密碼rs.Open"selectname,pswfrompswwherename='"&cname&"'andpsw='"&Trim(Text1.Text)&"'",cn,adOpenStatic,adLockOptimisticrs("psw")=Trim(Text2.Text)新增用戶rs.Open"select*frompsw",cn,adOpenDynamic,adLockOptimisticrs.AddNewrs("name")=Trim(Text1.Text)rs("psw")=Trim(Text2.Text)rs.Updaters.Close刪除用戶rs.Open"selectnamefrompsw",cn,adOpenStatic,adLockOptimisticrs.delect更換用戶和登錄用戶一樣操作！備份/恢復(fù)備份和恢復(fù)住院管理系統(tǒng)的ZY數(shù)據(jù)庫備份：sql="usemaster;restoredatabasezyfromdisk='"&a&"'"cn.Execute(sql)恢復(fù)：sql="usemaster;restoredatabasezyfromdisk='"&a&"'"cn.Execute(sql)登記病人登記成功把病人信息寫到病人信息表中rs.Open"select*fromsufferer",cn,adOpenStatic,adLockOptimisticrs.AddNewrs.Fields(0)=Trim(Text1.Text)rs.Fields(1)=Trim(Text2.Text)rs.Fields(2)=Trim(Combo1.Text)rs.Fields(3)=DTPicker1.Valuers.Fields(4)=Trim(Combo2.Text)rs.Fields(5)=Trim(Text5.Text)rs.Fields(6)=Trim(Combo3.Text)rs.Fields(7)=Trim(Combo4.Text)rs.Fields(8)=Trim(Text6.Text)rs.Fields(9)=Trim(Combo5.Text)rs.Fields(10)=Trim(Combo6.Text)rs.Fields(11)=Trim(Text8.Text)rs.Fields(12)=Trim(Text9.Text)rs.Fields(13)=Trim(Text10.Text)rs.Fields(14)=Trim(Text7.Text)rs.Fields(15)=Val(Text11.Text)rs.Update查詢病人包含精確查詢和模糊查詢編號(hào)查詢：rs.Open"select*fromsuffererwhere編號(hào)='"&Trim(Text1.Text)&"'",cn,adOpenStatic,adLockReadOnlyrs.Open"select*fromsuffererwhere編號(hào)like'%"+Trim(Text1.Text)+"%'orderby編號(hào)",cn,adOpenStatic,adLockReadOnly資料查詢：rs.Open"select*fromsuffererwhere患者姓名='"&Trim(Text2.Text)&"'and證件號(hào)碼='"&Trim(Text3.Text)&"'",cn,adOpenStatic,adLockReadOnlyrs.Open"select*fromsuffererwhere證件號(hào)碼like'%"+Trim(Text3.Text)+"%'orderby證件號(hào)碼",cn,adOpenStatic,adLockReadOnly病房查詢：rs.Open"select*fromsuffererwhere病房類型='"&Trim(Text5.Text)&"'and病房號(hào)='"&Trim(Text6.Text)&"'",cn,adOpenStatic,adLockReadOnlyrs.Open"select*fromsuffererwhere病房類型like'%"+Trim(Text5.Text)+"%'orderby病房類型",cn,adOpenStatic,adLockReadOnly病房管理包括增加/刪除病房類型和增加/刪除病房增加：類型增加：rs.Open"select*frombflx",cn,adOpenStatic,adLockOptimisticrs.AddNewrs("病房類型")=Trim(Text1.Text)rs("病房價(jià)格")=Val(Text2.Text)rs.Updaters.Close病房增加：rs1.Open"select*frombfno",cn,adOpenStatic,adLockOptimisticrs1.AddNewrs1("病房類型")=Trim(DataCombo2.Text)rs1("病房號(hào)")=Trim(Text3.Text)rs1("在住狀態(tài)")="空閑"rs1("flag")=0rs1.Updaters1.Close刪除：類型刪除：rs1.Open"select*frombflxwhere病房類型='"&Trim(Text1.Text)&"'",cn,adOpenStatic,adLockOptimisticrs1.Delete病房刪除：rs.Open"select*frombfnowhere病房類型='"&Trim(DataCombo2.Text)&"'and病房號(hào)='"&Trim(Text3.Text)&"'",cn,adOpenStatic,adLockOptimistic登記出院登記出院時(shí)把病人的信息增加到出院病人表中rs.Open"select*from出院病人",cn,adOpenStatic,adLockOptimisticrs1.Open"select*fromsuffererwhere編號(hào)='"&Trim(Text1.Text)&"'",cn,adOpenStatic,adLockOptimisticrs.AddNewrs.Fields("編號(hào)")=Trim(rs1.Fields("編號(hào)"))rs.Fields("患者姓名")=Trim(rs1.Fields("患者姓名"))rs.Fields("性別")=Trim(rs1.Fields("性別"))rs.Fields("出生日期")=rs1.Fields("出生日期")rs.Fields("證件類型")=Trim(rs1.Fields("證件類型"))rs.Fields("證件號(hào)碼")=Trim(rs1.Fields("證件號(hào)碼"))rs.Fields("血型")=Trim(rs1.Fields("血型"))rs.Fields("RH因子")=Trim(rs1.Fields("rh因子"))rs.Fields("過敏史")=Trim(rs1.Fields("過敏史"))rs.Fields("病房類型")=Trim(rs1.Fields("病房類型"))rs.Fields("病房號(hào)")=Trim(rs1.Fields("病房號(hào)"))rs.Fields("主治醫(yī)師")=Trim(rs1.Fields("主治醫(yī)師"))rs.Fields("住院時(shí)間")=Trim(rs1.Fields("住院時(shí)間"))rs.Fields("出院時(shí)間")=Trim(Text5.Text)rs.Fields("登記員")=Trim(rs1.Fields("登記員"))rs.Fields("備注")=Trim(rs1.Fields("備注"))rs.Fields("住院費(fèi)用")=Val(Text6.Text)rs.Updaters.Closers1.Deleters1.Updaters1.Close出院病人查詢r(jià)s.Open"select*from出院病人where患者姓名like'%"+Trim(Text1.Text)+"%'",cn,adOpenStatic,adLockReadOnly根據(jù)出院病人的編號(hào)查詢測試階段用戶管理部分新增加用戶,刪除用戶,更換用戶,更改密碼!在刪除用戶的時(shí)候超級(jí)管理員用戶不能刪除,而且普通操作員登錄后不能刪除用戶,在刪除管理員的時(shí)候要用戶提了確認(rèn)信息才能刪除,以免用戶的誤操作!在調(diào)試用戶管理部分時(shí)候以上問題都要注意。病人登記/查找部分在病人登記的時(shí)候要能夠自動(dòng)顯示當(dāng)前的操作員，并寫入到數(shù)據(jù)庫當(dāng)中。登記日期也是由系統(tǒng)自動(dòng)生成。查詢病人的同時(shí)有精確查詢和模糊查詢，這樣更加增加了系統(tǒng)的靈活性，在調(diào)試時(shí)候也要用大量的數(shù)據(jù)來試。如數(shù)據(jù)庫中定義了姓名不能超過10個(gè)字符，調(diào)試時(shí)候超過10個(gè)就報(bào)錯(cuò)所以必須定義text的maxlength為一個(gè)固定的長度，以防止用戶輸入錯(cuò)誤的信息而引起的錯(cuò)誤。后來的地方對(duì)這方面也加以注意.登記出院/查詢出院病人部分這部分調(diào)試的難點(diǎn)在與能夠自動(dòng)生成病人在住院期間的費(fèi)用，要用到DateDiff來實(shí)現(xiàn)時(shí)間的相減。同時(shí)登記出院成功后要正確的把病人的信息加載到出院病人表里面。以便下面的查詢！而查詢出院病人則通過病人惟一的編號(hào)查詢。增強(qiáng)了準(zhǔn)備性！備份/恢復(fù)部分這部分是調(diào)試階段