【文章內(nèi)容簡介】 try { m_pRecordsetAddNew()。//添加新行 m_pRecordsetPutCollect(patientno,(_bstr_t)m_patientno)。 m_pRecordsetPutCollect(name,(_bstr_t)m_name)。 m_pRecordsetPutCollect(amount,(_bstr_t)m_amount)。 m_pRecordsetPutCollect(time,(_variant_t)convert_time)。 m_pRecordsetPutCollect(prescriptionno,(_bstr_t)m_no)。 m_pRecordsetUpdate()。//更新數(shù)據(jù)庫 ()。//斷開數(shù)據(jù)庫連接 } catch(...) { MessageBox(CString(操作失敗))。 return。 } MessageBox(CString(保存成功.))。 ()。//刪除grid中原來的數(shù)據(jù) CString str,str1。 GetDlgItem(IDC_PATIENTNO)GetWindowText(str1)。 str=CString(select* from prescription where patientno like )+CString(39。)+str1+CString(39。)。 AddToGrid(str)。// 遍歷員工信息記錄}void CPrescriptionDlg::OnBnClickedChange(){ // TODO: 在此添加控件通知處理程序代碼 UpdateData(true)。 CADOConn m_AdoConn。 ()。//創(chuàng)建連接 CString tempSql。 //刪除的字符類型為CString CString sextemp。 //獲取用藥時間 CTime time。 (time)。 COleDateTime convert_time。 ((),(),())。 CString timetemp = ()。 (CString(update set name=39。%s39。,amount=39。%s39。,time=39。%s39。 where name = 39。%s39。),m_patientno,m_amount,timetemp,m_name)。 ((_bstr_t)tempSql)。 ()。 MessageBox(CString(修改成功.))。 ()。//刪除grid中原來的數(shù)據(jù) CString str。 str=select * from prescription。 AddToGrid(str)。//重新遍歷}void CPrescriptionDlg::OnNMClickList1(NMHDR *pNMHDR, LRESULT *pResult){ LPNMITEMACTIVATE pNMItemActivate = reinterpret_castLPNMITEMACTIVATE(pNMHDR)。 // TODO: 在此添加控件通知處理程序代碼 int nItem=0。 POSITION pos = ()。 if (pos == NULL) TRACE0(No items were selected!\n)。 else { while (pos) { nItem = (pos)。//找到被選中的行號 TRACE1(Item %d was selected!\n, nItem)。 } //讀取被選中行的數(shù)據(jù) m_patientno=(nItem,1)。 m_name=(nItem,2)。 m_amount=(nItem,3)。 //處理用藥時間 COleVariant tempTimeStr。 CString tempStr=(nItem,4)。 tempTimeStr=tempStr。 (VT_DATE)。 COleDateTime tempTime。 tempTime=tempTimeStr。 ( tempTime)。 UpdateData(FALSE)。//更新對話框 } *pResult = 0。}void CPrescriptionDlg::OnBnClickedDelete(){ // TODO: 在此添加控件通知處理程序代碼 UpdateData(true)。 CADOConn m_AdoConn。 ()。 CString tempSql。 (CString(delete from prescription where name = 39。%s39。),m_name)。 CString tempstr。 (CString(是否確定要刪除%s記錄),m_name)。 if(MessageBox(tempstr,CString(提示),MB_OKCANCEL)==IDOK) { ((_bstr_t)tempSql)。//執(zhí)行AQL語句，注意改成ADO的字符串 ()。 MessageBox(CString(刪除成功.))。 ()。//刪除grid中原來的數(shù)據(jù) CString str。 str=select* from prescription。 AddToGrid(str)。//重新遍歷 }}void CPrescriptionDlg::OnBnClickedClear(){ // TODO: 在此添加控件通知處理程序代碼 m_amount = _T()。 m_name = _T()。 UpdateData(false)。}// : 實現(xiàn)文件//病人管理：吳婷include include include include include // 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 = _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)。 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_bo)。}BEGIN_MESSAGE_MAP(CPatientDlg, CDialogEx) ON_BN_CLICKED(IDOK, amp。CPatientDlg::OnBnClickedOk) ON_BN_CLICKED(IDC_CHANGE, amp。CPatientDlg::OnBnClickedChange) ON_BN_CLICKED(IDC_DELETE, amp。CPatientDlg::OnBnClickedDelete) ON_BN_CLICKED(IDC_CLEAR, amp。CPatientDlg::OnBnClickedClear) ON_BN_CLICKED(IDC_SELECT, amp。CPatientDlg::OnBnClickedSelect) ON_NOTIFY(NM_CLICK, IDC_LIST_PATIENT, amp。CPatientDlg::OnNMClickListPatient)END_MESSAGE_MAP()// CPatientDlg 消息處理程序BOOL CPatientDlg::OnInitDialog(){ CDialogEx::OnInitDialog()。 // TODO: 在此添加額外的初始化 (LVS_EX_FLATSB |LVS_EX_FULLROWSELECT |LVS_EX_HEADERDRAGDROP |LVS_EX_ONECLICKACTIVATE |LVS_EX_GRIDLINES)。 (0,CString(病人編號),LVCFMT_LEFT,100,0)。 (1,CString(姓名),LVCFMT_LEFT,100,1)。 (2,CString(性別),LVCFMT_LEFT,100,2)。 (3,CString(年齡),LVCFMT_LEFT,100,3)。 (4,CString(民族),LVCFMT_LEFT,100,4)。 (5,CString(籍貫),LVCFMT_LEFT,100,5)。 (6,CString(身份證號碼),LVCFMT_LEFT,100,6)。 (7,CString(聯(lián)系電話),LVCFMT_LEFT,100,7)。 (8,CString(過敏史),LVCFMT_LEFT,100,8)。 (0,CString(病人編號))。 (1,CString(姓名))。 (2,CString(身份證號碼))。 (3,CString(全部信息))。 (3)。 CString str。 str=select* from patient。 AddToGrid(str)。// 遍歷員工信息記錄 return TRUE。 // return TRUE unless you set the focus to a control // 異常: OCX 屬性頁應返回 FALSE}void CPatientDlg::AddToGrid(CString str){ CADOConn m_AdoConn。 ()。 CString sql。 (str)。 _RecordsetPtr m_pRecordset。 m_pRecordset = ((_bstr_t)sql)。 while(adoEOF==0) { (0,CString())。 (0,0,(CString)(char*)(_bstr_t)m_pRecordsetGetCollect(patientno))。 (0,1,(CString)(char*)(_bstr_t)m_pRecordsetGetCollect(name))。 (0,2,(CString)(char*)(_bstr_t)m_pRecordsetGetCollect(sex))。 (0,3,(CString)(char*)(_bstr_t)m_pRecordsetGetCollect(age))。 (0,4,(CString)(char*)(_bstr_t)m_pRecordsetGetCollect(native))。 (0,5,(CString)(char*)(_bstr_t)m_pRecordsetGetCollect(nation))。 (0,6,(CString)(char*)(_bstr_t)m_pRecordsetGetCollect(allergy))。 (0,7,(CString)(char*)(_bstr_t)m_pRecordsetGetCollect(idcard))。 (0,8,(CString)(char*)(_bstr_t)m_pRecordsetGetCollect(phone))。 m_pRecordsetMoveNext()。 } ()。 UpdateData(true)。}v