病房管理系統(tǒng)

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

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

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

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

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

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

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

8、ar(8) -科室主任編號) 5、 藥品信息表創(chuàng)建藥品表create table 藥品( 藥品編號 char(8) primary key, -藥品編號名稱 char(8), -名稱數(shù)量 varchar(8), -計量單位單價 varchar(8), -單價劑型 char(8), -劑型類別 char(10) -類別)6、醫(yī)生信息表創(chuàng)建醫(yī)生表create table 醫(yī)生信息(醫(yī)生編號 char(8) primary key, -醫(yī)生編號醫(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住院日期住 院住院費用出院日期1 醫(yī) 院病 人 病房號醫(yī) 生 科室 藥 品3 系統(tǒng)各功能模塊的詳細設(shè)計3.1 系統(tǒng)各窗體的設(shè)計：圖3.1.11.此窗體設(shè)立了一個ADODC控件，以便訪問和操作數(shù)據(jù)庫，本控件連到數(shù)據(jù)庫的密碼表。以下各窗體除了主窗體外都有此控件來實現(xiàn)與數(shù)據(jù)庫的連接。登陸窗體的源代碼如下：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 "用戶名或密碼不正確，請重新輸入！", 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.主窗體用菜單編輯器編輯菜單，是客戶更輕松進入要看的窗體，源代碼如下：Private Sub 病房信息_

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

14、howEnd SubPrivate Sub 藥品_Click()Form8.ShowEnd SubPrivate Sub 醫(yī)生信息_Click()Form4.ShowEnd Sub其中，瀏覽窗體，分別為住院病人信息、病人費用信息、醫(yī)生信息等瀏覽窗體，住院病人信息表瀏覽窗體如下：圖3.1.3系統(tǒng)管理員登陸時如下：圖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 ("請?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("確實要刪除當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確認")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 ("請?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 "病人編號" Combo1.AddItem "電話"Combo1.Text = Combo1.List(0)End Sub圖3.1.8出院時病人費用結(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 "請輸入病人編號！", vbExclamation, "提示" Text1.SetFocus Exit SubElseAdodc1.RecordSource = "Select * from 病人費用信息 where 病人編號='"& Text1 &"'"End Ifst

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