【導(dǎo)讀】隨著計(jì)算機(jī)性能的不斷提高，價(jià)格不斷下降，計(jì)算機(jī)已在醫(yī)院醫(yī)療，教學(xué)，科研，過(guò)程中必不可少的基礎(chǔ)設(shè)施與技術(shù)支撐環(huán)境。就好象一個(gè)現(xiàn)代化的醫(yī)院的成功運(yùn)行離不。一樣，它也離不開(kāi)計(jì)算機(jī)化的醫(yī)院信息系統(tǒng)。本設(shè)計(jì)嘗試用VC++醫(yī)院信息。用戶可以通過(guò)該系統(tǒng)實(shí)現(xiàn)登錄、科室信息管理、藥品類別信息管理、藥品單位信。院收費(fèi)管理、銷售信息統(tǒng)計(jì)查詢、醫(yī)生效益統(tǒng)計(jì)查詢功能來(lái)對(duì)系統(tǒng)進(jìn)行維護(hù)更新。完成一個(gè)人性化，個(gè)性化的，現(xiàn)代化的住院處軟件的設(shè)計(jì)。本文包括緒論、需求分析、足操作用戶的要求。

　　

【正文】 // 點(diǎn)擊科室信息后將科室名稱放入編輯框中 m_DeptName = ()。 cDId = ()。 //讀取科室編號(hào) cDNameOld = ()。 //讀取科室名稱 UpdateData(FALSE)。 //更新顯示 } 藥品類別設(shè)置功能設(shè)計(jì) 1. 基本功能： 該功能的實(shí)現(xiàn)主要涉及到藥品類別信息的查看，刪除和修改。 2. 實(shí)現(xiàn)方法： 藥品類別信息的添加，刪除和修改主要有 ADO Data 和 DataListk 數(shù)據(jù)庫(kù)控件連接數(shù)據(jù)庫(kù) ，同時(shí)輔助以在 ADO 接口在顯示上用 SQL 語(yǔ)句進(jìn)行一些細(xì)微的控制 。如圖 所示。 本科生畢業(yè)設(shè)計(jì)（論文） 第 23 頁(yè) 圖 藥品類別信息顯示界面 3. 主要代碼： void CTypeDlg::OnAddButton() { // TODO: Add your control notification handler code here UpdateData(TRUE)。 //判斷科室名稱是否為空 if (m_TypeName == ) { MessageBox(請(qǐng)輸入類別名稱 )。 return。 } CBaseType cBT。 (m_TypeName)。 // 判斷是否有相同的名稱 if((2)) { MessageBox(已經(jīng)存在此類別名稱！ )。 return。 } (2)。 本科生畢業(yè)設(shè)計(jì)（論文） 第 24 頁(yè) ()。 ()。 } void CTypeDlg::OnEditButton() { // TODO: Add your control notification handler code here UpdateData(TRUE)。 //判斷是否選擇了要修改的類別 if (() == ) { MessageBox(請(qǐng)選擇要修改的類別名稱 )。 return。 } //判斷類別名稱是否為空 if (m_TypeName == ) { MessageBox(請(qǐng)輸入類別名稱 )。 return。 } // 如果不同則查看數(shù)據(jù)庫(kù)是否已經(jīng)存在新的類別名稱 if(cTNameOld!=m_TypeName) { CBaseType cBT。 (m_TypeName)。 if((2)) MessageBox(新的類別名稱已經(jīng)存在！ )。 else { (cTId)。 ()。 } 本科生畢業(yè)設(shè)計(jì)（論文） 第 25 頁(yè) } } 藥品單位設(shè)置功能設(shè)計(jì) 1. 基本功能： 該功能的實(shí)現(xiàn)主要涉及到藥品單位信息的查看，刪除和修改。 2. 實(shí)現(xiàn)方法： 藥品類別信息的添加，刪除和修改主要有 ADO Data 和 DataListk 數(shù)據(jù)庫(kù)控件連接數(shù)據(jù)庫(kù)，同時(shí)輔 助以在 ADO 接口在顯示上用 SQL 語(yǔ)句進(jìn)行一些細(xì)微的控制 。如圖 所示 圖 藥品單位 信息 顯示界面 ： void CUnitDlg::OnAddButton() { // TODO: Add your control notification handler code here UpdateData(TRUE)。 //判斷計(jì)量單位名稱是否為空 if (m_UnitName == ) { MessageBox(請(qǐng)輸入計(jì)量單位名稱 )。 return。 } CBaseType cBT。 (m_UnitName)。 本科生畢業(yè)設(shè)計(jì)（論文） 第 26 頁(yè) // 判斷是否有相同的名稱 if((3)) { MessageBox(已經(jīng)存在此計(jì)量單位名稱！ )。 return。 } (3)。 ()。 ()。 } void CUnitDlg::OnEditButton() { // TODO: Add your control notification handler code here UpdateData(TRUE)。 //判斷是否選擇了要修改的類別 if (() == ) { MessageBox(請(qǐng)選擇要修改的計(jì)量單位名稱 )。 return。 } //判斷類別名稱是否為空 if (m_UnitName == ) { MessageBox(請(qǐng)輸入藥品 單位名稱 )。 return。 } // 如果不同則查看數(shù)據(jù)庫(kù)是否已經(jīng)存在新的計(jì)量單位名稱 if(cUNameOld!=m_UnitName) { CBaseType cBT。 (m_UnitName)。 if((3)) 本科生畢業(yè)設(shè)計(jì)（論文） 第 27 頁(yè) MessageBox(新的藥品 單位名稱已經(jīng)存在！ )。 else { (cUId)。 ()。 } } } 信息管理模塊設(shè)計(jì) 1. 基本功能：當(dāng)一位 醫(yī)院信息管理員訪問(wèn)信息管理模塊時(shí)，實(shí)現(xiàn)基本模塊的 藥品信息管理，患者信息管理，醫(yī)生信息管理和收費(fèi)項(xiàng)目管理，每個(gè)管理中都包括的主要功能包括查看，添加，刪除和修改。 2. 實(shí)現(xiàn)方法：在 HospitalMan 中，該模塊下分別實(shí)現(xiàn)調(diào)用 DoModal 和消息映射來(lái)實(shí)現(xiàn)該模塊下的幾個(gè)功能。 3. 主要代碼： void CHosptialManDlg::OnMed() { // TODO: Add your mand handler code here CMedManDlg dlg。 ()。 } 患者信息管理 功能設(shè)計(jì) 1. 基本功能： 當(dāng)訪問(wèn)信息管理模塊中的患者信息功能時(shí)，實(shí)現(xiàn)實(shí)現(xiàn)對(duì)患者信息的查看，添加，刪除和修改；默認(rèn)的界面為查詢界面，查詢條件為按姓名查找。 2. 實(shí)現(xiàn)方法： 當(dāng) 管理員點(diǎn)擊信息模塊中的患者管理模塊時(shí)，可按照患者姓名進(jìn)行查詢，默認(rèn)顯示的全部的患者信息，顯示患者的控件是 ADO Data 控件和 DataGrid 本科生畢業(yè)設(shè)計(jì)（論文） 第 28 頁(yè) 控件相結(jié)合；點(diǎn)擊添加按鈕時(shí)，通過(guò)消息映射跳轉(zhuǎn)到 PATEDITDLG 頁(yè)面，輸入基本信息后，更新數(shù)據(jù)庫(kù)表 PATIENT；剛點(diǎn)擊修改按鈕時(shí)，首先獲得數(shù)據(jù)庫(kù)中的信息，顯示在 PETEDITDLG 頁(yè)面上，點(diǎn)擊即 可修改?；颊咝畔⒐芾?頁(yè)面如圖 所示。 圖 患者信息管理 頁(yè)面 3. 主要代碼： UpdateData(TRUE)。 CString cSql。 cSql = SELECT Id,Name AS 姓名 ,IdNum AS 身份證號(hào) ,Sex AS 性別 ,Age AS 年齡 ,。 cSql += Marry AS 婚姻狀況 FROM Patient。 if(m_Name!=) cSql += Where Name Like 39。%+m_Name+%39。 ((LPCTSTR)(_bstr_t)cSql)。 ()。 本科生畢業(yè)設(shè)計(jì)（論文） 第 29 頁(yè) 醫(yī)生信息管理功能設(shè)計(jì) 1. 基本功能： 當(dāng)訪問(wèn)信息管理模塊中的醫(yī)生信息管理功能時(shí)，實(shí)現(xiàn)實(shí)現(xiàn)對(duì)醫(yī)院醫(yī)生信息的查看，添加，刪除和修改；默認(rèn)的界面為查詢界面，查詢條件為全部和按科室查詢。 2. 實(shí)現(xiàn)方法： 當(dāng) 管理員點(diǎn)擊信息模塊中的醫(yī)生信息管理模塊時(shí)，可進(jìn)行查詢，默認(rèn)顯示的是全部的醫(yī)生信息，顯示患者的控件是 ADO Data 控件和 DataGrid 控件相結(jié)合的，按科室查詢的列表框先是 被隱藏起來(lái)，當(dāng)選擇是單擊的時(shí)候，顯示出隱藏的類別列表框，此列表框?yàn)?DataCombo,為連接數(shù)據(jù)庫(kù)控件，通過(guò)控制顯示要求顯示的數(shù)據(jù)庫(kù)中表 BaseType 的數(shù)據(jù) TypeName，單擊添加按鈕時(shí)，將會(huì)連接到DOCEDITDLG 頁(yè)面，添加信息更新數(shù)據(jù)庫(kù)表，在查詢結(jié)果顯示頁(yè)面，選擇要選擇的條目，單擊修改，連接到 DOCEDITDLG，只是和添加按鈕連接的不同的是，修改按鈕顯示數(shù)據(jù)庫(kù)中已存在的數(shù)據(jù)，刪除操作比較簡(jiǎn)單。如圖 所示。 圖 醫(yī)生信息管理 頁(yè)面 3. 主要代碼： CString cSql。 cSql = SELECT , AS 姓名 , AS 性別 , AS 年齡 ,。 cSql += AS 科室 , , AS 職務(wù) 。 cSql += FROM Doctor d,BaseType b WHERE =1 AND =。 本科生畢業(yè)設(shè)計(jì)（論文） 第 30 頁(yè) CString cDeptId。 if(()==1) { cDeptId = ()。 if(cDeptId!=) cSql += AND = + cDeptId。 } // MessageBox(cSql)。 ((LPCTSTR)(_bstr_t)cSql)。 ()。 藥品信息管理功能設(shè)計(jì) 1. 基本功能： 當(dāng)訪問(wèn)信息管理模塊中的藥品信息管理功能時(shí)，實(shí)現(xiàn)實(shí)現(xiàn)對(duì)醫(yī)院藥品信息的查看，添加，刪除和修改；默認(rèn)的界面為查詢界面 ，查詢條件為全部和按類別查詢。 2. 實(shí)現(xiàn)方法： 當(dāng) 管理員點(diǎn)擊信息模塊中的藥品信息管理模塊時(shí)，可進(jìn)行查詢，默認(rèn)顯示的是全部的藥品信息，顯示藥品信息的控件是 ADO Data 控件和 DataGrid 控件相結(jié)合的，按類別查詢的列表框先是被隱藏起來(lái)，當(dāng)選擇是單擊的時(shí)候，顯示出隱藏的類別列表框，此列表框?yàn)?DataCombo,為連接數(shù)據(jù)庫(kù)控件，通過(guò)控制顯示要求顯示的數(shù)據(jù)庫(kù)中表 BaseType中 TypeId=1的數(shù)據(jù) TypeName，單擊添加按鈕時(shí)，將會(huì)連接到 MEDEDITDLG 頁(yè)面，添加信息更新數(shù)據(jù)庫(kù)表，在查詢結(jié)果顯示頁(yè)面 ，選擇要選擇的條目，單擊修改，連接到 MEDEDITDLG，只是和添加按鈕連接的不同的是，修改按鈕顯示數(shù)據(jù)庫(kù)中已存在的數(shù)據(jù)，刪除操作比較簡(jiǎn)單。如圖 所示 本科生畢業(yè)設(shè)計(jì)（論文） 第 31 頁(yè) 圖 藥品信息管理 頁(yè)面 3. 主要代碼： CString cSql。 //設(shè)置 SELECT語(yǔ)句 cSql = SELECT , , (CASE WHEN =0 THEN 39。中藥 39。 ELSE 39。西藥 39。 END) AS 種類 ,。 cSql += AS 藥品名稱 , , AS 類別 ,。 cSql += , AS 單位 , AS 進(jìn)貨價(jià)格 , AS 門診價(jià)格 ,。 cSql += AS 庫(kù)存數(shù)量 FROM Medicine m, BaseType b, BaseType b1 。 cSql += WHERE =2 AND = AND = AND =3。 CString cTypeId。 if(()==1) { cTypeId = ()。 if (cTypeId!=) cSql += AND =+cTypeId。 } // MessageBox(cSql)。 //設(shè)置記錄源 ((LPCTSTR)(_bstr_t)cSql)。 ()。} 本科生畢業(yè)設(shè)計(jì)（論文） 第 32 頁(yè) 收費(fèi)項(xiàng)目管理功能設(shè)計(jì) 1． 基本功能： 當(dāng)訪問(wèn)信息管理模塊中的收費(fèi)項(xiàng)目管理功能時(shí)，實(shí)現(xiàn)實(shí)現(xiàn)對(duì)收費(fèi)項(xiàng)目信息的查看，添加，刪除和修改；默認(rèn)的界面為查詢界面，查詢條件為按項(xiàng)目名稱查找。 2. 實(shí)現(xiàn)方法： 當(dāng) 管理員點(diǎn)擊信息模塊中的收費(fèi)項(xiàng)目管理模塊時(shí)，可按照項(xiàng)目名稱進(jìn)行查詢，默認(rèn)顯示的全部的項(xiàng)目信息，顯示項(xiàng)目信息的控件是 ADO Data 控件和DataGrid 控件相結(jié)合；點(diǎn)擊添加按鈕時(shí)，通過(guò)消息映射跳轉(zhuǎn)到 ITEMSEDITDLG 頁(yè)面，輸入基本信息后，更新數(shù)據(jù)庫(kù)表 ITEMS；剛點(diǎn)擊修改按鈕時(shí)，首先獲得數(shù)據(jù)庫(kù)中的信息，顯示在 I