病房管理系統(tǒng)

1、成 績(jī) 評(píng) 定 表學(xué)生姓名班級(jí)學(xué)號(hào)專 業(yè)信息與計(jì)算科學(xué)課程設(shè)計(jì)題目病人住院管理系統(tǒng)評(píng)語(yǔ)組長(zhǎng)簽字：成績(jī)?nèi)掌?013 年 12 月 日課程設(shè)計(jì)任務(wù)書學(xué) 院專 業(yè)學(xué)生姓名班級(jí)學(xué)號(hào)課程設(shè)計(jì)題目病人住院管理系統(tǒng)實(shí)踐教學(xué)要求與任務(wù):通過集中性的編程訓(xùn)練，使學(xué)生系統(tǒng)的掌握如何將客觀實(shí)際問題與計(jì)算機(jī)的算法對(duì)應(yīng)起來，如何將客觀信息與數(shù)據(jù)的邏輯結(jié)構(gòu)和存儲(chǔ)結(jié)構(gòu)對(duì)應(yīng)起來，將理論概念的學(xué)習(xí)轉(zhuǎn)變成能夠使用計(jì)算機(jī)高級(jí)語(yǔ)言解決實(shí)際問題的方法。要求學(xué)生做好預(yù)習(xí)，掌握設(shè)計(jì)過程中涉及到的算法，按設(shè)計(jì)流程編程，上機(jī)調(diào)試通過，驗(yàn)證結(jié)果并進(jìn)行分析、完成論文。工作計(jì)劃與進(jìn)度安排:第15周：系統(tǒng)需求分析，設(shè)計(jì)E-R模型、邏輯模型，數(shù)據(jù)庫(kù)設(shè)計(jì)

2、和模塊設(shè)計(jì)進(jìn)行部分軟件編碼設(shè)計(jì)，實(shí)現(xiàn)各模塊功能第16周： 繼續(xù)完成軟件設(shè)計(jì)，調(diào)試與完善系統(tǒng)各項(xiàng)功能書寫課程設(shè)計(jì)報(bào)告。驗(yàn)收與答辯。工作計(jì)劃與進(jìn)度安排:第一天：查閱文獻(xiàn) 第二天：程序設(shè)計(jì) 第三、四天 ：程序?qū)崿F(xiàn)第五天：論文寫作、答辯指導(dǎo)教師： 2013年 12月1日專業(yè)負(fù)責(zé)人：2013年 12月1日學(xué)院教學(xué)副院長(zhǎng)：2013年 12月1日摘 要隨著醫(yī)院病人管理的日趨復(fù)雜和住院人員的增多，醫(yī)院的病人管理變得越來越復(fù)雜。規(guī)范的醫(yī)院病人管理是醫(yī)院提高管理效益的重要保證，而傳統(tǒng)的人工管理存在著效率低、不易統(tǒng)計(jì)、成本高和易出錯(cuò)等弊端，已經(jīng)無(wú)法適應(yīng)醫(yī)院的需求。隨著計(jì)算機(jī)技術(shù)和通信技術(shù)的迅速發(fā)展，將傳統(tǒng)的人工管理

3、計(jì)算機(jī)化，建立一個(gè)高效率的、無(wú)差錯(cuò)的住院病人管理系統(tǒng)，能夠有效的幫助醫(yī)院完成病人的住院情況，使醫(yī)院的管理水平登上一個(gè)新的臺(tái)階。 本系統(tǒng)采用VB + SQL Server開發(fā)。通過數(shù)據(jù)源管理工具把已創(chuàng)建的數(shù)據(jù)源與系統(tǒng)數(shù)據(jù)庫(kù)相連，后臺(tái)數(shù)據(jù)庫(kù)采用sqlserve2008數(shù)據(jù)庫(kù)，前臺(tái)程序開發(fā)工具采用微軟的VB6.0，實(shí)現(xiàn)了醫(yī)院住院病人管理功能。關(guān)鍵詞 住院病人管理系統(tǒng)；SQL；數(shù)據(jù)庫(kù)目錄1系統(tǒng)功能概述51.1 系統(tǒng)的功能：51.2系統(tǒng)結(jié)構(gòu)圖：52數(shù)據(jù)庫(kù)設(shè)計(jì)62.1需求分析：62.2表的結(jié)構(gòu)設(shè)計(jì)：62.3E-R圖：113系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì)123.1系統(tǒng)各窗體的設(shè)計(jì)：123.2系統(tǒng)功能使用簡(jiǎn)介：20

4、總結(jié)21參考文獻(xiàn)221 系統(tǒng)功能概述1.1 系統(tǒng)的功能：住院病人管理系統(tǒng)是利用計(jì)算機(jī)根據(jù)醫(yī)生信息、醫(yī)院病房信息、病人住院信息建立的，用vb6.0開發(fā)實(shí)現(xiàn)。該系統(tǒng)能夠進(jìn)行住院院病人的注冊(cè)、病人住院基本信息的瀏覽，能夠按病人姓名、科室代碼、病人編號(hào)或者電話等條件查詢病人住院基本信息。1.2 系統(tǒng)結(jié)構(gòu)圖：病人住院管理系統(tǒng)開始數(shù)據(jù)處理模塊開始注 冊(cè)開始用戶登錄模塊病人用藥信息病人信息病人費(fèi)用普通用戶登錄模塊管理員登錄模塊添加開始刪除開始查詢開始病人費(fèi)用信息病人費(fèi)用信息結(jié)算開始病人基本信息病人信息病人基本信息瀏覽退 出開始2 數(shù)據(jù)庫(kù)設(shè)計(jì)2.1 需求分析：本系統(tǒng)是根據(jù)醫(yī)院的病房情況和病人住院情況對(duì)病人進(jìn)行

5、登記和編輯的系統(tǒng)。首先設(shè)計(jì)數(shù)據(jù)庫(kù)時(shí)，需要知道所需信息：病人的基本信息，包括姓名、性別、年齡、電話；醫(yī)院的信息病人編號(hào)、病房號(hào)、病人費(fèi)用等；病人住院則導(dǎo)致兩實(shí)體之間有聯(lián)系著建立一個(gè)住院的信息包括病人姓名、編號(hào)、年齡、費(fèi)用、科室等。在根據(jù)病人來建立一個(gè)普通用戶密碼表，使得每個(gè)病人有個(gè)自己登陸的賬號(hào)密碼，而且外來用戶還可以通過注冊(cè)新用戶來登錄系統(tǒng)。并且病人離院時(shí)，我們可以通過該系統(tǒng)對(duì)病人住院費(fèi)用進(jìn)行結(jié)算等功能。2.2 表的結(jié)構(gòu)設(shè)計(jì)：1、病人費(fèi)用信息表創(chuàng)建病人費(fèi)用信息表create table 病人費(fèi)用信息(病人編號(hào) char(8) primary key , -病人編號(hào)病人姓名 char(8), -

6、病人姓名病人性別 char(2), -性別病人年齡 char(2), -病人年齡費(fèi)用類型 char(2), -費(fèi)用類型科室代碼 char(8) -科室代碼)2、 病人信息表創(chuàng)建病人信息表create table 病人信息表( 病人編號(hào) char(8) primary key, -病人編號(hào) 科室代碼 char(8), -科室代碼 病人姓名 char(8) not null, -病人姓名 病人性別 char(4), -性別 病人年齡 char(8), -病人年齡 身高 char(8), -身高 血型 varchar(4), -血型 電話 varchar(20) -聯(lián)系電話 ) 3、 病人用藥信息表

7、病人用藥情況表create table 病人用藥信息(病人編號(hào) char(8) primary key , -病人編號(hào)藥品編號(hào) char(8), -藥品編號(hào)藥品名稱 char(8), -藥品名稱病人姓名 char(8), -病人姓名劑型 char(8), -劑型類別 char(40), -類別用藥時(shí)間 char(10) -用藥時(shí)間 )4、 科室表創(chuàng)建科室表create table 科室( 科室代碼 char(8) primary key, -科室代碼科室名稱 char(20) not null, -科室名稱病房編號(hào) char(8), -病房編號(hào)床位數(shù) char(20), -床位數(shù)科室主任 ch

8、ar(8) -科室主任編號(hào)) 5、 藥品信息表創(chuàng)建藥品表create table 藥品( 藥品編號(hào) char(8) primary key, -藥品編號(hào)名稱 char(8), -名稱數(shù)量 varchar(8), -計(jì)量單位單價(jià) varchar(8), -單價(jià)劑型 char(8), -劑型類別 char(10) -類別)6、醫(yī)生信息表創(chuàng)建醫(yī)生表create table 醫(yī)生信息(醫(yī)生編號(hào) char(8) primary key, -醫(yī)生編號(hào)醫(yī)生姓名 char(8) not null, -醫(yī)生姓名醫(yī)生性別 char(2), -性別醫(yī)生年齡 char(10), -年齡科室代碼 char(8), -科

9、室代碼學(xué)歷 char(20) -學(xué)歷)7、密碼表create table 用戶密碼(用戶名 char(8) , 密碼 char(8) )2.3 E-R圖： 身高姓名 性別 年齡 電話血型病 人n住院日期住 院住院費(fèi)用出院日期1 醫(yī) 院病 人 病房號(hào)醫(yī) 生 科室 藥 品3 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì)3.1 系統(tǒng)各窗體的設(shè)計(jì)：圖3.1.11.此窗體設(shè)立了一個(gè)ADODC控件，以便訪問和操作數(shù)據(jù)庫(kù)，本控件連到數(shù)據(jù)庫(kù)的密碼表。以下各窗體除了主窗體外都有此控件來實(shí)現(xiàn)與數(shù)據(jù)庫(kù)的連接。登陸窗體的源代碼如下：Dim miCount As IntegerPrivate Sub Command1_Click()If

10、Trim(Text1.Text) = "" ThenMsgBox "用戶名不能為空！", vbOKOnly + vbExclamation, "警告"Text1.SetFocusElseIf Trim(Text2.Text) = "" ThenMsgBox "密碼不能為空！", vbOKOnly + vbExclamation, "警告"Text2.SetFocusElseAdodc1.RecordSource = "select * from 普通密碼表 wher

11、e 用戶名='"& Trim(Text1.Text) &"' and 密碼='"& Trim(Text2.Text) &"'"Adodc1.RefreshIf Adodc1.Recordset.EOF ThenMsgBox "用戶名或密碼不正確，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"Text1.Text = ""Text2.Text = ""Text1.SetFo

12、cusElseForm2.ShowForm2.查詢.Enabled = TrueUnload Me End IfEnd If miCount = miCount + 1 If miCount = 3 Then Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Form10.ShowEnd SubPrivate Sub Form_Load()End Sub圖3.1.22.主窗體用菜單編輯器編輯菜單，是客戶更輕松進(jìn)入要看的窗體，源代碼如下：Private Sub 病房信息_

13、Click()Form4.ShowEnd SubPrivate Sub 病人費(fèi)用信息_Click()Form7.ShowEnd SubPrivate Sub 病人信息_Click()Form4.ShowEnd SubPrivate Sub 管理員用戶_Click()Form3.ShowEnd SubPrivate Sub 護(hù)士_Click()Form4.ShowEnd SubPrivate Sub 科室_Click()Form4.ShowEnd SubPrivate Sub 門診掛號(hào)_Click()Form9.ShowEnd SubPrivate Sub 手術(shù)安排_(tái)Click()Form4.S

14、howEnd SubPrivate Sub 藥品_Click()Form8.ShowEnd SubPrivate Sub 醫(yī)生信息_Click()Form4.ShowEnd Sub其中，瀏覽窗體，分別為住院病人信息、病人費(fèi)用信息、醫(yī)生信息等瀏覽窗體，住院病人信息表瀏覽窗體如下：圖3.1.3系統(tǒng)管理員登陸時(shí)如下：圖3.1.4添加刪除界面如圖：圖3.1.5圖3.1.6其代碼如下：Private Sub CmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdOk.Enabled = Tr

15、ueCmdEsc.Enabled = TrueIf Len(Text) > 0 ThenAdodc1.RefreshIf Adodc1.Recordset.RecordCount = 0 Then MsgBox ("沒有滿足條件的信息！") Adodc1.Refresh End IfElseMsgBox ("請(qǐng)?zhí)砑硬樵冃畔?")End IfEnd SubPrivate Sub CmdOK_Click()Adodc1.Recordset.UpdateCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Ena

16、bled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdDel_Click()X = MsgBox("確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確認(rèn)")If X = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd Su

17、bPrivate Sub CmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub Command1_Click()Form6.ShowEnd SubPrivate Sub Command2_Click()Form6.ShowEnd SubPrivate Sub Form_Load()Combo1.AddItem "男"Combo1.AddItem "女&quo

18、t;End Sub圖3.1.7按條件查詢界面其代碼如下：Private Sub Combo1_Change()If KeyCode = vbKeyReturn Then Text1.SetFocusEnd SubPrivate Sub Command1_Click()If Len(Text1.Text) > 0 ThenAdodc1.RecordSource = "select * from 病人信息表 where (病人信息表."& Combo1.Text &" like + '" + Text1.Text + "

19、;'+'%')" '1Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox ("沒有滿足條件的信息！") Adodc1.Refresh End IfElseMsgBox ("請(qǐng)?zhí)砑硬樵冃畔?")End IfEnd SubPrivate Sub Command2_Click()Form11.ShowForm6.HideEnd SubPrivate Sub Command3_Click()Form11.ShowForm6.HideEnd SubP

20、rivate Sub Form_Load() Combo1.AddItem "病人姓名" Combo1.AddItem "科室代碼" Combo1.AddItem "病人編號(hào)" Combo1.AddItem "電話"Combo1.Text = Combo1.List(0)End Sub圖3.1.8出院時(shí)病人費(fèi)用結(jié)算界面代碼：Dim miCount As IntegerPrivate Sub Cmdzhuce_Click()Dim sqlstr As StringDim strcode As StringDim st

21、rsure As StringDim strname As Stringsqlstr = Text1.Textstrname = sqlstrIf sqlstr = "" Then MsgBox "請(qǐng)輸入病人編號(hào)！", vbExclamation, "提示" Text1.SetFocus Exit SubElseAdodc1.RecordSource = "Select * from 病人費(fèi)用信息 where 病人編號(hào)='"& Text1 &"'"End Ifst

22、rcode = Trim(Text2.Text)strsure = Trim(Text3.Text)equ = StrComp(strcode, strsure)If Text2 = "" Then MsgBox "病人姓名不能為空！", vbExclamation, "請(qǐng)重新輸入" Text2.SetFocusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("病人編號(hào)") = Text1 Adodc1.Recordset.Fields("病人姓名") = Trim(Text2) Adodc1.Recordset.Fields("費(fèi)用") = Trim(Text3) MsgBox "成功！", vbInformation, "錯(cuò)誤"End IfEnd SubPrivate Sub CmdCancel_Click()U