基于MYSQL的醫(yī)院綜合信息管理系統(tǒng)設(shè)計報告

1、數(shù)據(jù)庫實(shí)驗(yàn)報告醫(yī)院綜合信息管理系統(tǒng)專 業(yè) 班 級 組 長 組 員 指導(dǎo)教師 目錄一、需求分析：21.1人員信息管理系統(tǒng)21.2門診信息管理系統(tǒng)31.3收費(fèi)信息管理系統(tǒng)3二、系統(tǒng)分析：32.1系統(tǒng)功能介紹32.2功能模塊3三、數(shù)據(jù)庫設(shè)計：43.1 e-r圖：43.2數(shù)據(jù)字典：6四、前臺設(shè)計：84.1.醫(yī)生信息管理：84.2.病人信息管理：84.3.藥品信息管理：94.4.診斷界面：104.5.處方界面：104.6.病人處方查詢：104.7.收費(fèi)信息管理：11五、程序調(diào)試結(jié)果：12六、總結(jié)：22內(nèi)容提要 :本系統(tǒng)是一個基于mysql而建立的醫(yī)院綜合信息管理系統(tǒng)。用microsoft visual

2、studio 2010結(jié)合mysql開發(fā)了3個模塊。包括有人員信息管理，門診信息管理，收費(fèi)信息管理。其中人員信息管理其中有醫(yī)生信息管理，病人信息管理和藥品信息管理。門診信息管理其中則含有就診信息管理，病人處方管理。這3模塊基本實(shí)現(xiàn)了醫(yī)院綜合信息管理系統(tǒng)的需求?！娟P(guān)鍵詞】: microsoft visual studio 2010，mysql，人員信息管理，門診信息管理，收費(fèi)信息管理一、 需求分析：整個醫(yī)院綜合信息管理系統(tǒng)可分為三個子系統(tǒng)：人員信息管理系統(tǒng)，門診信息管理系統(tǒng)，收費(fèi)信息管理系統(tǒng)。1.1人員信息管理系統(tǒng)人員信息管理即對于人和物品的管理，人則包含醫(yī)生及醫(yī)護(hù)人員，就診病人，還有藥品等。我

3、們需要對他們的基本信息進(jìn)行記錄，并且還要具有增加，刪除，修改，查詢等基本功能，所以我建立了一個基本信息管理模塊來專門處理。我也在數(shù)據(jù)庫中對應(yīng)了三張表：doctor，patient，durg以便對人員信息管理信息進(jìn)行存儲。1.2門診信息管理系統(tǒng)對于就診信息的管理，病人看病后會產(chǎn)生新的數(shù)據(jù)，例如醫(yī)生對病人的診斷信息，以及藥品處方信息。而與其對應(yīng)的則是我做的門診信息管理，其中我做了兩個窗口，一個是診斷信息窗口，主要實(shí)現(xiàn)對診斷信息的儲存；另一個是處方信息窗口，有增加、刪除、修改藥品等功能。然后我另做了一個查詢的窗口，以便病人查詢自己的處方記錄。對應(yīng)數(shù)據(jù)庫，我做了兩張表：diagnosis，prescr

4、iption。1.3收費(fèi)信息管理系統(tǒng)對于收費(fèi)信息管理，病人拿到處方后，就會取藥，付款。則我需要對其總價進(jìn)行計算，再者就是對于藥品庫存進(jìn)行修改。于是對應(yīng)要求我做了一個收費(fèi)前臺。雖然在數(shù)據(jù)庫中沒有對應(yīng)相應(yīng)的表?？墒撬牟僮髦饕菍rescription的讀取，以及對durg庫存的修改。二、系統(tǒng)分析：整個醫(yī)院綜合信息管理系統(tǒng)可分為三個子系統(tǒng)：人員信息管理系統(tǒng)，門診信息管理系統(tǒng)，收費(fèi)信息管理系統(tǒng)。2.1系統(tǒng)功能介紹2. 1. 1 人員信息管理系統(tǒng)的功能對醫(yī)生、病人、藥品的基本信息進(jìn)行增加，刪除，修改，查詢等的基本功能2. 1. 2 門診信息管理系統(tǒng)的功能對就診信息的存儲功能和對處方信息進(jìn)行增加、刪除

5、、修改藥品等的基本功能3. 2. 3 收費(fèi)信息管理系統(tǒng)對醫(yī)療費(fèi)用進(jìn)行總和計算的功能和對藥品庫存進(jìn)行修改的功能2.2功能模塊系統(tǒng)主要功能模塊圖如下：醫(yī)院綜合信息管理系統(tǒng)人員信息管理系統(tǒng)門診信息管理系統(tǒng)收費(fèi)信息管理系統(tǒng)醫(yī)生信息管理病人信息管理藥品信息管理就診信息管理病人處方管理收費(fèi)信息管理藥品庫存管理三、數(shù)據(jù)庫設(shè)計：3.1 e-r圖：3.1.1醫(yī)生信息doctor e-r圖namesexageemploynophonedoctor3.1.2病人信息patient e-r圖namesexagepatientnonophonepatient3.1.3藥品信息drug e-r圖drugdrugnonon

6、amenopricenoinventoryno3.1.4診斷信息diagnosis e-r圖diagnosisdiagnosisnononoemploynonopatientnonoconditionno3.1.5處方信息prescription e-r圖prescriptionprescriptionnononopatientnononamenotimenoaccount3.1.6實(shí)體間主要關(guān)系e-r圖doctorpaitientdurgdiagnosisprescriptionn11111113.2數(shù)據(jù)字典：表1：doctor：表2：patient表3：durg表4：diagnosis表5

7、：prescription四、前臺設(shè)計：4.1.醫(yī)生信息管理：4.2.病人信息管理：4.3.藥品信息管理：4.4.診斷界面：4.5.處方界面：4.6.病人處方查詢：4.7.收費(fèi)信息管理：五、程序調(diào)試結(jié)果：1.主界面：2.添加功能：實(shí)現(xiàn)代碼：void cemployeedlg:onbnclickedok()/ todo: 在此添加控件通知處理程序代碼/cdialogex:onok();updatedata(true);if(m_number.isempty()messagebox(cstring(編號不能為空”);return;if(m_name.isempty()messagebox(cstr

8、ing(名稱不能為空！);return;if(m_idcard.isempty()messagebox(cstring(省份證號碼不能為空!);return;cadoconn m_adoconn;m_adoconn.oninitadoconn();_bstr_t sql;sql = select* from doctor;_recordsetptr m_precordset; m_precordset=m_adoconn.getrecordset(sql);trym_precordset-addnew();/添加新行m_precordset-putcollect(employeeno,(_bs

9、tr_t)m_number);m_precordset-putcollect(name,(_bstr_t)m_name);m_precordset-putcollect(sex,(_bstr_t)m_sex);m_precordset-putcollect(age,(_bstr_t)m_age);m_precordset-putcollect(native,(_bstr_t)m_native); m_precordset-putcollect(nation,(_bstr_t)m_nation);m_precordset-putcollect(office,(_bstr_t)m_office);

10、m_precordset-putcollect(position,(_bstr_t)m_position);m_precordset-putcollect(idcard,(_bstr_t)m_idcard);m_precordset-putcollect(phone,(_bstr_t)m_phone);m_precordset-update();/更新數(shù)據(jù)庫m_adoconn.exitconnect();/斷開數(shù)據(jù)庫連接catch(.)messagebox(cstring(操作失敗);return;messagebox(cstring(保存成功);m_grid.deleteallitems()

11、;/刪除grid中原來的數(shù)據(jù)cstring str;str=select* from doctor;addtogrid(str);/重新遍歷2.修改功能：實(shí)現(xiàn)代碼：void cemployeedlg:onbnclickedchange()/ todo: 在此添加控件通知處理程序代碼updatedata(true);cadoconn m_adoconn;m_adoconn.oninitadoconn();cstring tempsql;tempsql.format(cstring(updatemydb.doctorset name=%s,sex=%s,age=%s,native=%s,natio

12、n=%s,office=%s,position=%s,idcard=%s,phone=%swhere employeeno=%s),m_name,m_sex,m_age,m_native,m_nation,m_office,m_position,m_idcard,m_phone,m_number);m_adoconn.executesql(_bstr_t)tempsql);m_adoconn.exitconnect();messagebox(cstring(修改成功.);m_grid.deleteallitems();/刪除grid中原來的數(shù)據(jù)cstring str;str=select* f

13、rom doctor;addtogrid(str);/重新遍歷3刪除功能：代碼實(shí)現(xiàn)：void cemployeedlg:onbnclickeddelete()/ todo: 在此添加控件通知處理程序代碼updatedata(true);cadoconn m_adoconn;m_adoconn.oninitadoconn();cstring tempsql;tempsql.format(cstring(delete from doctor where employeeno = %s),m_number);cstring tenpstr;tenpstr.format(cstring(是否要刪除%s

14、的記錄),m_name);if(messagebox(tenpstr,cstring(提示),mb_okcancel)=idok)m_adoconn.executesql(_bstr_t)tempsql);m_adoconn.exitconnect();messagebox(cstring(刪除成功.);m_grid.deleteallitems();/刪除grid中原來的數(shù)據(jù)cstring str; str=select* from doctor; addtogrid(str);/重新遍歷4.查詢功能：實(shí)現(xiàn)代碼：void cemployeedlg:onbnclickedselect()/ t

15、odo: 在此添加控件通知處理程序代碼m_grid.deleteallitems();updatedata(true);cstring str1,str2;int num1,num2;num1=m_combo.getcursel();if(0=num1)getdlgitem(idc_edit_content)-getwindowtext(str1);str2=cstring(select* from doctor where employeeno like )+cstring()+str1+cstring();addtogrid(str2);/ 遍歷功能信息記錄if(1=num1)getdlg

16、item(idc_edit_content)-getwindowtext(str1);str2=cstring(select* from doctor where name like )+cstring()+str1+cstring();addtogrid(str2);/ 遍歷功能信息記錄if(2=num1)getdlgitem(idc_edit_content)-getwindowtext(str1);str2=cstring(select* from doctor where office like )+cstring()+str1+cstring();addtogrid(str2);/

17、遍歷功能信息記錄if(3=num1)getdlgitem(idc_edit_content)-getwindowtext(str1);str2=cstring(select* from doctor where position like )+cstring()+str1+cstring();addtogrid(str2);/ 遍歷功能信息記錄if(4=num1)getdlgitem(idc_edit_content)-getwindowtext(str1);str2=cstring(select* from doctor where idcard like )+cstring()+str1+

18、cstring();addtogrid(str2);/ 遍歷功能信息記錄if(5=num1)getdlgitem(idc_edit_content)-getwindowtext(str1);str2=select* from doctor order by employeeno desc;addtogrid(str2);/ 遍歷功能信息記錄5.診斷界面：6.處方界面：7.處方查詢：8.付款界面：9.修改庫存：對比圖：付款前：付款后：六、總結(jié)：通過這次數(shù)據(jù)庫大作業(yè)，我們熟悉了vs2010的數(shù)據(jù)庫ado編程。對于它的添加，修改，刪除步驟都有了較大的理解。在此次作業(yè)當(dāng)中遇到兩大問題。一是：數(shù)據(jù)庫連接

19、問題，本來開始準(zhǔn)備用access做后臺，可是不知道為什么我的電腦一直連接不上，于是改用了myaql連接。二是：在是使用記錄集指針的問題_recordsetptr m_precordset，在實(shí)現(xiàn)添加，刪除，修改，查詢等操作時，只能執(zhí)行一次就出現(xiàn)指針無效的結(jié)果。最后發(fā)現(xiàn)是在連接數(shù)據(jù)庫時沒有初始化com，所以導(dǎo)致有指針無效的結(jié)果。然后，最讓我開心的是，是實(shí)現(xiàn)總價的計算。我是用兩個數(shù)組，amount20，和price20記住數(shù)量和單價，利用for循環(huán)計算總價的。然后，就是在 vs2010中字符之間的轉(zhuǎn)換也是我們應(yīng)該注意的問題。總之，這次實(shí)驗(yàn)，讓我們學(xué)到了許多課本上學(xué)不到的知識，也鍛煉了我們的思考問題

20、，解決問題的能力。附錄：醫(yī)院綜合信息管理系統(tǒng)源代碼/ adoconn.cpp : 實(shí)現(xiàn)文件/#include stdafx.h#include hospital.h#include adoconn.h/ cadoconncadoconn:cadoconn()cadoconn:cadoconn()/ cadoconn 成員函數(shù)bool cadoconn:oninitadoconn(void)hresult hr;:coinitialize(null);tryhr=m_pdbconnection.createinstance(adodb.connection);if(succeeded(hr)m_

21、pdbconnection-connectiontimeout=3;/設(shè)置連接字符串_bstr_t strconnection=driver=mysql odbc 5.2 unicode driver;server=127.0.0.1;database=mydb;uid=root;password=123456;port=3306;hr=m_pdbconnection-open(strconnection,admodeunknown);catch(_com_error e)/捕捉異常cstring temp;temp.format(cstring(連接數(shù)據(jù)庫錯誤信息:%s),e.errorme

22、ssage();:messagebox(null,temp,cstring(提示信息),null);return false;return false;/ 斷開數(shù)據(jù)庫連接void cadoconn:exitconnect(void)if (m_precordset!=null) m_precordset-close();m_pdbconnection-close();/釋放環(huán)境:couninitialize();/ 獲取記錄集_recordsetptr& cadoconn:getrecordset(_bstr_t bstrsql)tryif(m_pdbconnection=null) onin

23、itadoconn();m_precordset.createinstance(_uuidof(recordset); m_precordset-open(bstrsql,m_pdbconnection.getinterfaceptr(),adopendynamic,adlockoptimistic,adcmdtext); catch(_com_error e)cstring temp;temp.format(cstring(讀取數(shù)據(jù)庫錯誤信息:%s),e.errormessage();:messagebox(null,temp,cstring(提示信息),null);return m_pre

24、cordset;/ 執(zhí)行sql語句bool cadoconn:executesql(_bstr_t bstrsql)_variant_t recordsaffected;try if(m_pdbconnection=null) oninitadoconn();m_pdbconnection-execute(bstrsql,null,adcmdtext);return true;catch(_com_error e)cstring temp;temp.format(cstring(執(zhí)行sql語句錯誤信息:%s),e.description();:messagebox(null,temp,cstr

25、ing(提示信息),null);return false;/ 返回記錄集對象指針的sql執(zhí)行函數(shù)_recordsetptr cadoconn:excutesqlobj(_bstr_t bstrsql)try if(m_pdbconnection=null) oninitadoconn(); m_precordset=m_pdbconnection-execute(bstrsql,null,adcmdtext);catch(_com_error e)cstring temp;m_precordset=null;temp.format(cstring(執(zhí)行sql語句錯誤信息:%s),e.error

26、message();:messagebox(null,temp,cstring(提示信息),null);return m_precordset;/ prescriptiondlg.cpp : 實(shí)現(xiàn)文件/處方：萬淑妍#include stdafx.h#include hospital.h#include prescriptiondlg.h#include afxdialogex.h#include adoconn.h/ cprescriptiondlg 對話框implement_dynamic(cprescriptiondlg, cdialogex)cprescriptiondlg:cpresc

27、riptiondlg(cwnd* pparent /*=null*/): cdialogex(cprescriptiondlg:idd, pparent)m_patientno = _t();m_amount = _t();m_name = _t();m_no = 0;cprescriptiondlg:cprescriptiondlg()void cprescriptiondlg:dodataexchange(cdataexchange* pdx)cdialogex:dodataexchange(pdx);ddx_control(pdx, idc_list1, m_grid);ddx_text

28、(pdx, idc_patientno, m_patientno);ddx_text(pdx, idc_amount, m_amount);ddx_text(pdx, idc_durgname, m_name);ddx_control(pdx, idc_datetimepicker1, m_time);begin_message_map(cprescriptiondlg, cdialogex)on_bn_clicked(idok, &cprescriptiondlg:onbnclickedok)on_bn_clicked(idc_change, &cprescriptiondlg:onbncl

29、ickedchange)on_notify(nm_click, idc_list1, &cprescriptiondlg:onnmclicklist1)on_bn_clicked(idc_delete, &cprescriptiondlg:onbnclickeddelete)on_bn_clicked(idc_clear, &cprescriptiondlg:onbnclickedclear)end_message_map()/ cprescriptiondlg 消息處理程序bool cprescriptiondlg:oninitdialog()cdialogex:oninitdialog()

30、;/ todo: 在此添加額外的初始化flag=0;return true; / return true unless you set the focus to a control/ 異常: ocx 屬性頁應(yīng)返回 falsevoid cprescriptiondlg:addtogrid(cstring str)cadoconn m_adoconn;m_adoconn.oninitadoconn();cstring sql;sql.format(str);_recordsetptr m_precordset;m_precordset = m_adoconn.getrecordset(_bstr_

31、t)sql);while(m_adoconn.m_precordset-adoeof=0)m_grid.insertitem(0,cstring();m_grid.setitemtext(0,0,(cstring)(char*)(_bstr_t)m_precordset-getcollect(prescriptionno);m_grid.setitemtext(0,1,(cstring)(char*)(_bstr_t)m_precordset-getcollect(patientno);m_grid.setitemtext(0,2,(cstring)(char*)(_bstr_t)m_prec

32、ordset-getcollect(name);m_grid.setitemtext(0,3,(cstring)(char*)(_bstr_t)m_precordset-getcollect(amount);m_grid.setitemtext(0,4,(cstring)(char*)(_bstr_t)m_precordset-getcollect(time);m_precordset-movenext();m_adoconn.exitconnect();updatedata(true);void cprescriptiondlg:onbnclickedok()/ todo: 在此添加控件通知

33、處理程序代碼/cdialogex:onok();m_no=1;if(flag=0)m_grid.setextendedstyle(lvs_ex_flatsb|lvs_ex_fullrowselect|lvs_ex_headerdragdrop|lvs_ex_oneclickactivate|lvs_ex_gridlines);m_grid.insertcolumn(0,cstring(處方編號),lvcfmt_left,100,0);m_grid.insertcolumn(1,cstring(病人編號),lvcfmt_left,100,1);m_grid.insertcolumn(2,cstr

34、ing(藥品名稱),lvcfmt_left,100,2);m_grid.insertcolumn(3,cstring(使用數(shù)量),lvcfmt_left,100,3);m_grid.insertcolumn(4,cstring(用藥時間),lvcfmt_left,100,4);flag= !flag;/自動編號cadoconn m_adoconn;m_adoconn.oninitadoconn();_bstr_t sql;sql = select prescriptionno from prescription;_recordsetptr m_precordset;m_precordset =

35、 m_adoconn.getrecordset(_bstr_t)sql);while(m_adoconn.m_precordset-adoeof=0)if(m_nogetcollect(prescriptionno)m_no=(int)_ttoi(cstring)(char*)(_bstr_t)m_precordset-getcollect(prescriptionno);m_precordset-movenext();m_adoconn.exitconnect();m_no+;cstring str,str1;getdlgitem(idc_patientno)-getwindowtext(s

36、tr1);str=cstring(select* from prescription where patientno like )+cstring()+str1+cstring();addtogrid(str);/ 遍歷員工信息記錄updatedata(true);if(m_patientno.isempty()messagebox(cstring(病人編號不能為空！);return;if(m_name.isempty()messagebox(cstring(名稱不能為空！);return;cadoconn m_adoconn;m_adoconn.oninitadoconn();_bstr_t

37、 sql;sql = select * from prescription;_recordsetptr m_precordset; m_precordset=m_adoconn.getrecordset(sql);/獲取工作時間ctime time;m_time.gettime(time);coledatetime convert_time;convert_time.setdate(time.getyear(),time.getmonth(),time.getday();trym_precordset-addnew();/添加新行m_precordset-putcollect(patientn

38、o,(_bstr_t)m_patientno);m_precordset-putcollect(name,(_bstr_t)m_name);m_precordset-putcollect(amount,(_bstr_t)m_amount);m_precordset-putcollect(time,(_variant_t)convert_time);m_precordset-putcollect(prescriptionno,(_bstr_t)m_no);m_precordset-update();/更新數(shù)據(jù)庫m_adoconn.exitconnect();/斷開數(shù)據(jù)庫連接catch(.)mes

39、sagebox(cstring(操作失敗);return;messagebox(cstring(保存成功.);m_grid.deleteallitems();/刪除grid中原來的數(shù)據(jù)cstring str,str1;getdlgitem(idc_patientno)-getwindowtext(str1);str=cstring(select* from prescription where patientno like )+cstring()+str1+cstring();addtogrid(str);/ 遍歷員工信息記錄void cprescriptiondlg:onbnclickedc

40、hange()/ todo: 在此添加控件通知處理程序代碼updatedata(true);cadoconn m_adoconn;m_adoconn.oninitadoconn();/創(chuàng)建連接cstring tempsql; /刪除的字符類型為cstringcstring sextemp;/獲取用藥時間ctime time; m_time.gettime(time);coledatetime convert_time;convert_time.setdate(time.getyear(),time.getmonth(),time.getday(); cstring timetemp = con

41、vert_time.format();tempsql.format(cstring(update mydb.prescription set name=%s,amount=%s,time=%s where name = %s),m_patientno,m_amount,timetemp,m_name); m_adoconn.executesql(_bstr_t)tempsql);m_adoconn.exitconnect();messagebox(cstring(修改成功.);m_grid.deleteallitems();/刪除grid中原來的數(shù)據(jù)cstring str;str=select

42、 * from prescription;addtogrid(str);/重新遍歷void cprescriptiondlg:onnmclicklist1(nmhdr *pnmhdr, lresult *presult)lpnmitemactivate pnmitemactivate = reinterpret_cast(pnmhdr);/ todo: 在此添加控件通知處理程序代碼int nitem=0;position pos = m_grid.getfirstselecteditemposition();if (pos = null) trace0(no items were select

43、ed!n);else while (pos) nitem = m_grid.getnextselecteditem(pos);/找到被選中的行號 trace1(item %d was selected!n, nitem); /讀取被選中行的數(shù)據(jù)m_patientno=m_grid.getitemtext(nitem,1);m_name=m_grid.getitemtext(nitem,2);m_amount=m_grid.getitemtext(nitem,3);/處理用藥時間colevariant temptimestr;cstring tempstr=m_grid.getitemtext(

44、nitem,4);temptimestr=tempstr;temptimestr.changetype(vt_date);coledatetime temptime;temptime=temptimestr;m_time.settime( temptime);updatedata(false);/更新對話框*presult = 0;void cprescriptiondlg:onbnclickeddelete()/ todo: 在此添加控件通知處理程序代碼updatedata(true);cadoconn m_adoconn;m_adoconn.oninitadoconn();cstring

45、tempsql;tempsql.format(cstring(delete from prescription where name = %s),m_name);cstring tempstr;tempstr.format(cstring(是否確定要刪除%s記錄),m_name);if(messagebox(tempstr,cstring(提示),mb_okcancel)=idok)m_adoconn.executesql(_bstr_t)tempsql);/執(zhí)行aql語句，注意改成ado的字符串m_adoconn.exitconnect();messagebox(cstring(刪除成功.)

46、;m_grid.deleteallitems();/刪除grid中原來的數(shù)據(jù)cstring str; str=select* from prescription; addtogrid(str);/重新遍歷void cprescriptiondlg:onbnclickedclear()/ todo: 在此添加控件通知處理程序代碼m_amount = _t();m_name = _t();updatedata(false);/ patientdlg.cpp : 實(shí)現(xiàn)文件/病人管理：吳婷#include stdafx.h#include hospital.h#include patientdlg.h

47、#include afxdialogex.h#include adoconn.h/ cpatientdlg 對話框implement_dynamic(cpatientdlg, cdialogex)cpatientdlg:cpatientdlg(cwnd* pparent /*=null*/): cdialogex(cpatientdlg:idd, pparent)m_age = _t();m_allergy = _t();m_content = _t();m_idcard = _t();m_name = _t();m_nation = _t();m_native = _t();m_phone

48、= _t();m_no = _t();m_sex = _t();cpatientdlg:cpatientdlg()void cpatientdlg:dodataexchange(cdataexchange* pdx)cdialogex:dodataexchange(pdx);ddx_text(pdx, idc_edit_age, m_age);ddx_text(pdx, idc_edit_allergy, m_allergy);ddx_text(pdx, idc_edit_content, m_content);ddx_text(pdx, idc_edit_idcard, m_idcard);

49、ddx_text(pdx, idc_edit_name, m_name);ddx_text(pdx, idc_edit_nation, m_nation);ddx_text(pdx, idc_edit_native, m_native);ddx_text(pdx, idc_edit_phone, m_phone);ddx_text(pdx, idc_edit_no, m_no);ddx_text(pdx, idc_edit_sex, m_sex);ddx_control(pdx, idc_list_patient, m_grid);ddx_control(pdx, idc_combo1, m_combo);begin_message_map(cpatientdlg, cdialogex)on_bn_clicked(idok, &cpatientdlg:onbnclickedok)on_bn_c