【正文】 Collect(patientno))。 m_pRecordset = ((_bstr_t)sql)。 (str)。 ()。// 遍歷員工信息記錄 return TRUE。 str=select* from patient。 (3)。 (2,CString(身份證號碼))。 (0,CString(病人編號))。 (7,CString(聯(lián)系電話),LVCFMT_LEFT,100,7)。 (5,CString(籍貫),LVCFMT_LEFT,100,5)。 (3,CString(年齡),LVCFMT_LEFT,100,3)。 (1,CString(姓名),LVCFMT_LEFT,100,1)。 // TODO: 在此添加額外的初始化 (LVS_EX_FLATSB |LVS_EX_FULLROWSELECT |LVS_EX_HEADERDRAGDROP |LVS_EX_ONECLICKACTIVATE |LVS_EX_GRIDLINES)。CPatientDlg::OnBnClickedSelect) ON_NOTIFY(NM_CLICK, IDC_LIST_PATIENT, amp。CPatientDlg::OnBnClickedDelete) ON_BN_CLICKED(IDC_CLEAR, amp。CPatientDlg::OnBnClickedOk) ON_BN_CLICKED(IDC_CHANGE, amp。 DDX_Control(pDX, IDC_COMBO1, m_bo)。 DDX_Text(pDX, IDC_EDIT_SEX, m_sex)。 DDX_Text(pDX, IDC_EDIT_PHONE, m_phone)。 DDX_Text(pDX, IDC_EDIT_NATION, m_nation)。 DDX_Text(pDX, IDC_EDIT_IDCARD, m_idcard)。 DDX_Text(pDX, IDC_EDIT_ALLERGY, m_allergy)。}CPatientDlg::~CPatientDlg(){}void CPatientDlg::DoDataExchange(CDataExchange* pDX){ CDialogEx::DoDataExchange(pDX)。 m_no = _T()。 m_native = _T()。 m_name = _T()。 m_content = _T()。}// : 實現(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_name = _T()。 AddToGrid(str)。//刪除grid中原來的數(shù)據(jù) CString str。 MessageBox(CString(刪除成功.))。 if(MessageBox(tempstr,CString(提示),MB_OKCANCEL)==IDOK) { ((_bstr_t)tempSql)。 CString tempstr。%s39。 CString tempSql。 CADOConn m_AdoConn。//更新對話框 } *pResult = 0。 ( tempTime)。 COleDateTime tempTime。 tempTimeStr=tempStr。 //處理用藥時間 COleVariant tempTimeStr。 m_name=(nItem,2)。//找到被選中的行號 TRACE1(Item %d was selected!\n, nItem)。 if (pos == NULL) TRACE0(No items were selected!\n)。 // TODO: 在此添加控件通知處理程序代碼 int nItem=0。 AddToGrid(str)。//刪除grid中原來的數(shù)據(jù) CString str。 MessageBox(CString(修改成功.))。 ((_bstr_t)tempSql)。%s39。%s39。%s39。%s39。 CString timetemp = ()。 COleDateTime convert_time。 //獲取用藥時間 CTime time。//創(chuàng)建連接 CString tempSql。 CADOConn m_AdoConn。 AddToGrid(str)。)+str1+CString(39。 GetDlgItem(IDC_PATIENTNO)GetWindowText(str1)。 ()。 return。//更新數(shù)據(jù)庫 ()。 m_pRecordsetPutCollect(prescriptionno,(_bstr_t)m_no)。 m_pRecordsetPutCollect(amount,(_bstr_t)m_amount)。//添加新行 m_pRecordsetPutCollect(patientno,(_bstr_t)m_patientno)。 ((),(),())。 (time)。 m_pRecordset=(sql)。 sql = select * from prescription。 ()。 return。 return。// 遍歷員工信息記錄 } UpdateData(true)。)。 str=CString(select* from prescription where patientno like )+CString(39。 CString str,str1。 } ()。 while(adoEOF==0) { if(m_no(int)_ttoi((CString)(char*)(_bstr_t)m_pRecordsetGetCollect(prescriptionno))) m_no=(int)_ttoi((CString)(char*)(_bstr_t)m_pRecordsetGetCollect(prescriptionno))。 _RecordsetPtr m_pRecordset。 _bstr_t sql。 //自動編號 CADOConn m_AdoConn。 (4,CString(用藥時間),LVCFMT_LEFT,100,4)。 (2,CString(藥品名稱),LVCFMT_LEFT,100,2)。 (0,CString(處方編號),LVCFMT_LEFT,100,0)。 m_no=1。 UpdateData(true)。 m_pRecordsetMoveNext()。 (0,3,(CString)(char*)(_bstr_t)m_pRecordsetGetCollect(amount))。 (0,1,(CString)(char*)(_bstr_t)m_pRecordsetGetCollect(patientno))。 while(adoEOF==0) { (0,CString())。 _RecordsetPtr m_pRecordset。 CString sql。 // return TRUE unless you set the focus to a control // 異常: OCX 屬性頁應(yīng)返回 FALSE}void CPrescriptionDlg::AddToGrid(CString str){ CADOConn m_AdoConn。 // TODO: 在此添加額外的初始化 flag=0。CPrescriptionDlg::OnBnClickedDelete) ON_BN_CLICKED(IDC_CLEAR, amp。CPrescriptionDlg::OnBnClickedChange) ON_NOTIFY(NM_CLICK, IDC_LIST1, amp。}BEGIN_MESSAGE_MAP(CPrescriptionDlg, CDialogEx) ON_BN_CLICKED(IDOK, amp。 DDX_Text(pDX, IDC_DURGNAME, m_name)。 DDX_Text(pDX, IDC_PATIENTNO, m_patientno)。}CPrescriptionDlg::~CPrescriptionDlg(){}void CPrescriptionDlg::DoDataExchange(CDataExchange* pDX){ CDialogEx::DoDataExchange(pDX)。 m_name = _T()。}// : 實現(xiàn)文件//處方：萬淑妍include include include include include // CPrescriptionDlg 對話框IMPLEMENT_DYNAMIC(CPrescriptionDlg, CDialogEx)CPrescriptionDlg::CPrescriptionDlg(CWnd* pParent /*=NULL*/) : CDialogEx(CPrescriptionDlg::IDD, pParent){ m_patientno = _T()。 ::MessageBox(NULL,temp,CString(提示信息),NULL)。 m_pRecordset=NULL。 m_pRecordset=m_pDBConnectionExecute(bstrSQL,NULL,adCmdText)。 return false。 (CString(執(zhí)行SQL語句錯誤信息:%s),())。 return true。 try { if(m_pDBConnection==NULL) OnInitADOConn()。 } return m_pRecordset。 (CString(讀取數(shù)據(jù)庫錯誤信息:%s),())。 m_pRecordsetOpen(bstrSQL,(),adOpenDynamic,adLockOptimistic,adCmdText)。 CADOConn::GetRecordSet(_bstr_t bstrSQL){ try { if(m_pDBConnection==NULL) OnInitADOConn()。 //釋放環(huán)境 ::CoUninitialize()。}// 斷開數(shù)據(jù)庫連接void CADOConn::ExitConnect(void){ if (m_pRecordset!=NULL) m_pRecordsetClose()。 return false。 (CString(連接數(shù)據(jù)庫錯誤信息:%s),())。 hr=m_pDBConnectionOpen(strConnection,adModeUnknown)。PASSWORD=123456。DATABASE=mydb。 //設(shè)置連接字符串 _bstr_t strConnection=Driver={MySQL ODBC Unicode Driver}。 try { hr=()。附錄：醫(yī)院綜合信息管理系統(tǒng)源代碼// : 實現(xiàn)文件//include include include // CADOConnCADOConn::CADOConn(){}CADOConn::~CADOConn(){}// CADOConn 成員函數(shù)bool CADOConn::OnInitADOConn(void){ HRESULT hr。然后，就是在 vs2010中字符之間的轉(zhuǎn)換也是我們應(yīng)該注意的問題。然后，最讓我開心的是，是實現(xiàn)總價的計算。二是：在是使用記錄集指針的問題_RecordsetPtr m_pRecordset，在實現(xiàn)添加，刪除，修改，查詢等操作時，只能執(zhí)行一次就出現(xiàn)指針無效的結(jié)果。在此次作業(yè)當中遇到兩大問題。// 遍歷功能信息記錄 }}：：：：：對比圖：付款前：付款后：六、總結(jié)：通過這次數(shù)據(jù)庫大作業(yè)，我們熟悉了vs2010的數(shù)據(jù)庫ADO編程。 str2=select* from doctor order by employeeno DESC。 AddToGrid(