【正文】 str2)。)+str1+CString(39。// 遍歷功能信息記錄 } if(4==num1) { GetDlgItem(IDC_EDIT_CONTENT)GetWindowText(str1)。)。 str2=CString(select* from doctor where position like )+CString(39。 AddToGrid(str2)。)+str1+CString(39。// 遍歷功能信息記錄 } if(2==num1) { GetDlgItem(IDC_EDIT_CONTENT)GetWindowText(str1)。)。 str2=CString(select* from doctor where name like )+CString(39。 AddToGrid(str2)。)+str1+CString(39。 if(0==num1) { GetDlgItem(IDC_EDIT_CONTENT)GetWindowText(str1)。 int num1,num2。 UpdateData(true)。 AddToGrid(str)。//刪除grid中原來的數(shù)據(jù) CString str。 MessageBox(CString(刪除成功.))。 if(MessageBox(tenpstr,CString(提示),MB_OKCANCEL)==IDOK) { ((_bstr_t)tempSql)。 CString tenpstr。%s39。 CString tempSql。 CADOConn m_AdoConn。 AddToGrid(str)。//刪除grid中原來的數(shù)據(jù) CString str。 MessageBox(CString(修改成功.))。 ((_bstr_t)tempSql)。%s39。%s39。%s39。%s39。%s39。%s39。%s39。%s39。%s39。%s39。 CString tempSql。 CADOConn m_AdoConn。 AddToGrid(str)。除grid中原來的數(shù)據(jù) CString str。 ()。 return。//更新數(shù)據(jù)庫 ()。 m_pRecordsetPutCollect(phone,(_bstr_t)m_phone)。 m_pRecordsetPutCollect(position,(_bstr_t)m_position)。 m_pRecordsetPutCollect(nation,(_bstr_t)m_nation)。 m_pRecordsetPutCollect(age,(_bstr_t)m_age)。 m_pRecordsetPutCollect(name,(_bstr_t)m_name)。 try { m_pRecordsetAddNew()。 _RecordsetPtr m_pRecordset。 _bstr_t sql。 } CADOConn m_AdoConn。 } if(()) { MessageBox(CString(省份證號碼不能為空!))。 } if(()) { MessageBox(CString(名稱不能為空！))。 if(()) { MessageBox(CString(編號不能為空”))。2. 1. 1 人員信息管理系統(tǒng)的功能對醫(yī)生、病人、藥品的基本信息進(jìn)行增加，刪除，修改，查詢等的基本功能2. 1. 2 門診信息管理系統(tǒng)的功能對就診信息的存儲功能和對處方信息進(jìn)行增加、刪除、修改藥品等的基本功能3. 2. 3 收費(fèi)信息管理系統(tǒng)對醫(yī)療費(fèi)用進(jìn)行總和計(jì)算的功能和對藥品庫存進(jìn)行修改的功能系統(tǒng)主要功能模塊圖如下：醫(yī)院綜合信息管理系統(tǒng)人員信息管理系統(tǒng)門診信息管理系統(tǒng)收費(fèi)信息管理系統(tǒng)醫(yī)生信息管理病人信息管理藥品信息管理就診信息管理病人處方管理收費(fèi)信息管理藥品庫存管理三、數(shù)據(jù)庫設(shè)計(jì)： ER圖： ER圖namesexageemploynophonedoctor ER圖namesexagepatientnonophonepatient ER圖drugdrugnononamenopricenoinventoryno ER圖diagnosisdiagnosisnononoemploynonopatientnonoconditionno ER圖prescriptionprescriptionnononopatientnononamenotimenoaccountDoctorPaitientDurgDiagnosisPrescriptionN1111111：表1：doctor：表2：patient表3：durg表4：diagnosis表5：prescription四、前臺設(shè)計(jì)：：：：：：：：五、程序調(diào)試結(jié)果：：：實(shí)現(xiàn)代碼：void CEmployeeDlg::OnBnClickedOk(){ // TODO: 在此添加控件通知處理程序代碼 //CDialogEx::OnOK()?？墒撬牟僮髦饕菍rescription的讀取，以及對durg庫存的修改。于是對應(yīng)要求我做了一個(gè)收費(fèi)前臺。對于收費(fèi)信息管理，病人拿到處方后，就會取藥，付款。然后我另做了一個(gè)查詢的窗口，以便病人查詢自己的處方記錄。對于就診信息的管理，病人看病后會產(chǎn)生新的數(shù)據(jù)，例如醫(yī)生對病人的診斷信息，以及藥品處方信息。我們需要對他們的基本信息進(jìn)行記錄，并且還要具有增加，刪除，修改，查詢等基本功能，所以我建立了一個(gè)基本信息管理模塊來專門處理?！娟P(guān)鍵詞】: Microsoft Visual Studio 2010，MYSQL，人員信息管理，門診信息管理，收費(fèi)信息管理一、 需求分析：整個(gè)醫(yī)院綜合信息管理系統(tǒng)可分為三個(gè)子系統(tǒng)：人員信息管理系統(tǒng)，門診信息管理系統(tǒng)，收費(fèi)信息管理系統(tǒng)。門診信息管理其中則含有就診信息管理，病人處方管理。包括有人員信息管理，門診信息管理，收費(fèi)信息管理。數(shù)據(jù)庫實(shí)驗(yàn)報(bào)告醫(yī)院綜合信息管理系統(tǒng)專 業(yè) 班 級 組 長 組 員 指導(dǎo)教師 目錄一、 需求分析： 2 2 3 3二、系統(tǒng)分析： 3 3 3三、數(shù)據(jù)庫設(shè)計(jì)： 4 ER圖： 4： 6四、前臺設(shè)計(jì)： 8： 8： 8： 9： 10： 10： 10： 11五、程序調(diào)試結(jié)果： 12六、總結(jié)： 22內(nèi)容提要 :本系統(tǒng)是一個(gè)基于MYSQL而建立的醫(yī)院綜合信息管理系統(tǒng)。用Microsoft Visual Studio 2010結(jié)合MYSQL開發(fā)了3個(gè)模塊。其中人員信息管理其中有醫(yī)生信息管理，病人信息管理和藥品信息管理。這3模塊基本實(shí)現(xiàn)了醫(yī)院綜合信息管理系統(tǒng)的需求。人員信息管理即對于人和物品的管理，人則包含醫(yī)生及醫(yī)護(hù)人員，就診病人，還有藥品等。我也在數(shù)據(jù)庫中對應(yīng)了三張表：doctor，patient，durg以便對人員信息管理信息進(jìn)行存儲。而與其對應(yīng)的則是我做的門診信息管理，其中我做了兩個(gè)窗口，一個(gè)是診斷信息窗口，主要實(shí)現(xiàn)對診斷信息的儲存；另一個(gè)是處方信息窗口，有增加、刪除、修改藥品等功能。對應(yīng)數(shù)據(jù)庫，我做了兩張表：diagnosis，prescription。則我需要對其總價(jià)進(jìn)行計(jì)算，再者就是對于藥品庫存進(jìn)行修改。雖然在數(shù)據(jù)庫中沒有對應(yīng)相應(yīng)的表。二、系統(tǒng)分析：整個(gè)醫(yī)院綜合信息管理系統(tǒng)可分為三個(gè)子系統(tǒng)：人員信息管理系統(tǒng)，門診信息管理系統(tǒng)，收費(fèi)信息管理系統(tǒng)。 UpdateData(true)。 return。 return。 return。 ()。 sql = select* from doctor。 m_pRecordset=(sql)。//添加新行 m_pRecordsetPutCollect(employeeno,(_bstr_t)m_number)。 m_pRecordsetPutCollect(sex,(_bstr_t)m_sex)。 m_pRecordsetPutCollect(native,(_bstr_t)m_native)。 m_pRecordsetPutCollect(office,(_bstr_t)m_office)。 m_pRecordsetPutCollect(idcard,(_bstr_t)m_idcard)。 m_pRecordsetUpdate()。//斷開數(shù)據(jù)庫連接 } catch(...) { MessageBox(CString(操作失敗))。 } MessageBox(CString(保存成功))。//刪166。 str=select* from doctor。//重新遍歷}：實(shí)現(xiàn)代碼：void CEmployeeDlg::OnBnClickedChange(){ // TODO: 在此添加控件通知處理程序代碼 UpdateData(true)。 ()。 (CString(UPDATE`mydb`.`doctor`SET `name`=39。,`sex`=39。,`age`=39。,`native`=39。,`nation`=39。,`office`=39。,`position`=39。,`idcard`=39。,`phone`=39。WHERE `employeeno`=39。),m_name,m_sex,m_age,m_native,m_nation,m_office,m_position,m_idcard,m_phone,m_number)。 ()。 ()。 str=select* from doctor。//重新遍歷}3．刪除功能：代碼實(shí)現(xiàn)：void CEmployeeDlg::OnBnClickedDelete(){ // TODO: 在此添加控件通知處理程序代碼 UpdateData(true)。 ()。 (CString(delete from doctor where employeeno = 39。),m_number)。 (CString(是否要刪除%s的記錄),m_name)。 ()。 ()。 str=select* from doctor。//重新遍歷 }}：實(shí)現(xiàn)代碼：void CEmployeeDlg::OnBnClickedSelect(){ // TODO: 在此添加控件通知處理程序代碼 ()。 CString str1,str2。 num1=()。 str2=CString(select* from doctor where employeeno like )+CString(39。)。// 遍歷功能信息記錄 } if(1==num1) { GetDlgItem(IDC_EDIT_CONTENT)GetWindowText(str1)。)+str1+CString(39。 AddToGrid(str2)。 str2=CString(select* from doctor where office like )+CString(39。)。// 遍歷功能信息記錄 } if(3==num1) { GetDlgItem(IDC_EDIT_CONTENT)GetWindowText(str1)。)+str1+CString(39。 AddToGrid(str2)。 str2=CString(select* from doctor where idcard like )+CString(39。)。// 遍歷功能信息記錄 } if(5==num1) { GetDlgItem(IDC_EDIT_CONTENT)GetWindowText(str1)。 AddToGrid(str2)。對于它的添加，修改，刪除步驟都有了較大的理解。一是：數(shù)據(jù)庫連接問題，本來開始準(zhǔn)備用access做后臺，可是不知道為什么我的電腦一直連接不上，于是改用了MYAQL連接。最后發(fā)現(xiàn)是在連接數(shù)據(jù)庫時(shí)沒有初始化COM，所以導(dǎo)致有指針無效的結(jié)果。我是用兩個(gè)數(shù)組，amount[20]，和pri