www.pudn.com > MyRecord.rar > RecordFile.cpp

// RecordFile.cpp : implementation file 
// 
 
#include "stdafx.h" 
#include "MyRecord.h" 
#include "RecordFile.h" 
 
#ifdef _DEBUG 
#define new DEBUG_NEW 
#undef THIS_FILE 
static char THIS_FILE[] = __FILE__; 
#endif 
extern CMyRecordApp theApp;	// 在此引用应用类中的theApp来获取库连接指针 
///////////////////////////////////////////////////////////////////////////// 
// CRecordFile dialog 
 
 
CRecordFile::CRecordFile(CWnd* pParent /*=NULL*/) 
	: CDialog(CRecordFile::IDD, pParent) 
{ 
	//{{AFX_DATA_INIT(CRecordFile) 
	m_fileitem = _T(""); 
	m_filename = _T(""); 
	m_filenote = _T(""); 
	m_filetime = _T(""); 
	//}}AFX_DATA_INIT 
	flagstr="NO"; 
} 
 
 
void CRecordFile::DoDataExchange(CDataExchange* pDX) 
{ 
	CDialog::DoDataExchange(pDX); 
	//{{AFX_DATA_MAP(CRecordFile) 
	DDX_Control(pDX, IDC_FILETIME, m_timeedit); 
	DDX_Control(pDX, IDC_FILENOTE, m_noteedit); 
	DDX_Control(pDX, IDC_FILENAME, m_nameedit); 
	DDX_Control(pDX, IDC_FILEITEM, m_itemedit); 
	DDX_Text(pDX, IDC_FILEITEM, m_fileitem); 
	DDX_Text(pDX, IDC_FILENAME, m_filename); 
	DDX_Text(pDX, IDC_FILENOTE, m_filenote); 
	DDX_Text(pDX, IDC_FILETIME, m_filetime); 
	//}}AFX_DATA_MAP 
} 
 
 
BEGIN_MESSAGE_MAP(CRecordFile, CDialog) 
	//{{AFX_MSG_MAP(CRecordFile) 
	ON_WM_PAINT() 
	ON_BN_CLICKED(IDC_RECTIFY, OnRectify) 
	//}}AFX_MSG_MAP 
END_MESSAGE_MAP() 
 
///////////////////////////////////////////////////////////////////////////// 
// CRecordFile message handlers 
 
BOOL CRecordFile::OnInitDialog()  
{ 
	CDialog::OnInitDialog(); 
	 
	// TODO: Add extra initialization here 
	_variant_t var; 
	CString strSQL; 
	strSQL="Select * from info where patientname='"+namestr+"'"; 
	try 
	{ 
		m_pRecordset.CreateInstance("ADODB.Recordset");	//连接Access数据库 
		m_pRecordset->Open((_variant_t)strSQL,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenDynamic,adLockOptimistic,adCmdText);    //执行SQL语句 
	 
		while(!m_pRecordset->adoEOF) 
		{ 
			var=m_pRecordset->GetCollect("patientname"); 
			if(var.vt!=VT_NULL) 
				m_filename=(LPCSTR)_bstr_t(var); 
			var=m_pRecordset->GetCollect("operationtime"); 
			if(var.vt!=VT_NULL) 
				m_filetime=(LPCSTR)_bstr_t(var); 
			var=m_pRecordset->GetCollect("operationitem"); 
			if(var.vt!=VT_NULL) 
				m_fileitem=(LPCSTR)_bstr_t(var); 
			var=m_pRecordset->GetCollect("note"); 
			if(var.vt!=VT_NULL) 
				m_filenote=(LPCSTR)_bstr_t(var); 
			 
			UpdateData(false); 
			m_pRecordset->MoveNext(); 
		} 
		m_pRecordset->Close(); 
	} 
	catch(_com_error e)	//捕捉异常 
	{ 
		CString temp; 
		temp.Format("读取数据库出错:%s",e.ErrorMessage()); 
		AfxMessageBox(temp);							 
	} 
	return TRUE;  // return TRUE unless you set the focus to a control 
	              // EXCEPTION: OCX Property Pages should return FALSE 
} 
 
void CRecordFile::OnPaint()  
{ 
	CPaintDC dc(this); // device context for painting 
	 
	// TODO: Add your message handler code here 
	_variant_t	varBLOB; 
	HRESULT hr; 
	HGLOBAL hGlobal   =   NULL;   
 	long nWidth,nHeight; 
	long x, y, cx, cy;	 
 
	CRect rect1,rect2,rect3; 
	 
	CWnd *pWnd1=GetDlgItem(IDC_FILEPICTURE1);  
	CDC *pDC1=pWnd1->GetDC();  
	pWnd1->GetClientRect(&rect1);  
 
	CWnd *pWnd2=GetDlgItem(IDC_FILEPICTURE2);  
	CDC *pDC2=pWnd2->GetDC();  
	pWnd2->GetClientRect(&rect2);  
 
	CWnd *pWnd3=GetDlgItem(IDC_FILEPICTURE3);  
	CDC *pDC3=pWnd3->GetDC();  
	pWnd3->GetClientRect(&rect3);  
 
	CString	 strSQL = "Select * from  info where patientname= '"+namestr+"'";    //通过姓名来获取数据库中的那一行信息 
	try 
	{ 
		m_pRecordset.CreateInstance("ADODB.Recordset");                                //连接access数据库                         
		m_pRecordset->Open((_variant_t)strSQL,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenDynamic,adLockOptimistic,adCmdText);    //执行SQL语句  
		if(!m_pRecordset->adoEOF) 
		{ 
			long nSize1 = m_pRecordset->GetFields()->GetItem("picture1")->ActualSize; 
			long nSize2 = m_pRecordset->GetFields()->GetItem("picture2")->ActualSize; 
			long nSize3 = m_pRecordset->GetFields()->GetItem("picture3")->ActualSize; 
			//-------------------第一张图片显示--------------------------------------------// 
			//-----------------------------------------------------------------------------// 
			if(nSize1 > 0) 
			{			 
				varBLOB = m_pRecordset->GetFields()->GetItem("picture1")->GetChunk(nSize1); 
				if(varBLOB.vt == (VT_ARRAY | VT_UI1)) 
				{ 
					char *pBuf = NULL; 
					LPVOID pBuf2 = NULL; 
					SafeArrayAccessData(varBLOB.parray,(void **)&pBuf); 
					hGlobal  = GlobalAlloc(GMEM_MOVEABLE,nSize1); 
					pBuf2 = GlobalLock(hGlobal); 
					memcpy(pBuf2,pBuf,nSize1);///复制数据到缓冲区m_pBMPBuffer 
					::GlobalUnlock(hGlobal); 
					SafeArrayUnaccessData (varBLOB.parray);	 
					 
					// 由 HGLOBAL 得到 IStream，参数 TRUE 表示释放 IStream 的同时，释放内存 
					hr = ::CreateStreamOnHGlobal( hGlobal, TRUE, &pStream ); 
					hr = ::OleLoadPicture( pStream, nSize1, TRUE, IID_IPicture, ( LPVOID * )&pPicture ); 
	  
					//获得picture大小 
					pPicture->get_Width(&nWidth);        
					pPicture->get_Height(&nHeight);   
  					CSize sz( nWidth, nHeight ); 
					pDC1->HIMETRICtoDP( &sz ); 
 
					//自动适应窗口 
					double fRatePic, fRateWnd; 
					fRatePic = (double)sz.cx / (double)sz.cy; 
					fRateWnd = (double)rect1.Width() / (double)rect1.Height(); 
					if (fRatePic > fRateWnd) 
					{ 
						cx = rect1.Width(); 
						cy = (long)(rect1.Width() / fRatePic); 
					} 
					else 
					{ 
						cx = (long)(rect1.Height() * fRatePic); 
						cy = rect1.Height(); 
					} 
					if (cx == rect1.Width()) 
					{ 
						x = 0; 
						y = rect1.Height() / 2 - cy / 2; 
					} 
					if (cy == rect1.Height()) 
					{ 
						 x = rect1.Width() / 2 - cx / 2; 
						 y = 0; 
					} 
					pPicture->Render(pDC1->m_hDC, x, y, cx, cy, 0, nHeight, nWidth, -nHeight, &rect1); 
				} 
 
			} 
			//--------------------------第二张图片显示------------------------------------// 
			//----------------------------------------------------------------------------// 
			if(nSize2 > 0) 
			{			 
				varBLOB = m_pRecordset->GetFields()->GetItem("picture2")->GetChunk(nSize2); 
				if(varBLOB.vt == (VT_ARRAY | VT_UI1)) 
				{ 
					char *pBuf = NULL; 
					LPVOID pBuf2 = NULL; 
					SafeArrayAccessData(varBLOB.parray,(void **)&pBuf); 
					hGlobal  = GlobalAlloc(GMEM_MOVEABLE,nSize2); 
					pBuf2 = GlobalLock(hGlobal); 
					memcpy(pBuf2,pBuf,nSize2);///复制数据到缓冲区m_pBMPBuffer 
					::GlobalUnlock(hGlobal); 
					SafeArrayUnaccessData (varBLOB.parray);	 
					 
					// 由 HGLOBAL 得到 IStream，参数 TRUE 表示释放 IStream 的同时，释放内存 
					hr = ::CreateStreamOnHGlobal( hGlobal, TRUE, &pStream ); 
					hr = ::OleLoadPicture( pStream, nSize2, TRUE, IID_IPicture, ( LPVOID * )&pPicture ); 
	  
					//获得picture大小 
					pPicture->get_Width(&nWidth);        
					pPicture->get_Height(&nHeight);   
  					CSize sz( nWidth, nHeight ); 
					pDC2->HIMETRICtoDP( &sz ); 
 
					//自动适应窗口 
					double fRatePic, fRateWnd; 
					fRatePic = (double)sz.cx / (double)sz.cy; 
					fRateWnd = (double)rect2.Width() / (double)rect2.Height(); 
					if (fRatePic > fRateWnd) 
					{ 
						cx = rect2.Width(); 
						cy = (long)(rect2.Width() / fRatePic); 
					} 
					else 
					{ 
						cx = (long)(rect2.Height() * fRatePic); 
						cy = rect2.Height(); 
					} 
					if (cx == rect2.Width()) 
					{ 
						x = 0; 
						y = rect2.Height() / 2 - cy / 2; 
					} 
					if (cy == rect2.Height()) 
					{ 
						 x = rect2.Width() / 2 - cx / 2; 
						 y = 0; 
					} 
					pPicture->Render(pDC2->m_hDC, x, y, cx, cy, 0, nHeight, nWidth, -nHeight, &rect2); 
				} 
 
			} 
			//------------------------第三张图片显示--------------------------------------// 
			//----------------------------------------------------------------------------// 
			if(nSize3 > 0) 
			{			 
				varBLOB = m_pRecordset->GetFields()->GetItem("picture3")->GetChunk(nSize3); 
				if(varBLOB.vt == (VT_ARRAY | VT_UI1)) 
				{ 
					char *pBuf = NULL; 
					LPVOID pBuf2 = NULL; 
					SafeArrayAccessData(varBLOB.parray,(void **)&pBuf); 
					hGlobal  = GlobalAlloc(GMEM_MOVEABLE,nSize3); 
					pBuf2 = GlobalLock(hGlobal); 
					memcpy(pBuf2,pBuf,nSize3);///复制数据到缓冲区m_pBMPBuffer 
					::GlobalUnlock(hGlobal); 
					SafeArrayUnaccessData (varBLOB.parray);	 
					 
					// 由 HGLOBAL 得到 IStream，参数 TRUE 表示释放 IStream 的同时，释放内存 
					hr = ::CreateStreamOnHGlobal( hGlobal, TRUE, &pStream ); 
					hr = ::OleLoadPicture( pStream, nSize3, TRUE, IID_IPicture, ( LPVOID * )&pPicture ); 
	  
					//获得picture大小 
					pPicture->get_Width(&nWidth);        
					pPicture->get_Height(&nHeight);   
  					CSize sz( nWidth, nHeight ); 
					pDC3->HIMETRICtoDP( &sz ); 
 
					//自动适应窗口 
					double fRatePic, fRateWnd; 
					fRatePic = (double)sz.cx / (double)sz.cy; 
					fRateWnd = (double)rect3.Width() / (double)rect3.Height(); 
					if (fRatePic > fRateWnd) 
					{ 
						cx = rect3.Width(); 
						cy = (long)(rect3.Width() / fRatePic); 
					} 
					else 
					{ 
						cx = (long)(rect3.Height() * fRatePic); 
						cy = rect3.Height(); 
					} 
					if (cx == rect3.Width()) 
					{ 
						x = 0; 
						y = rect3.Height() / 2 - cy / 2; 
					} 
					if (cy == rect3.Height()) 
					{ 
						 x = rect3.Width() / 2 - cx / 2; 
						 y = 0; 
					} 
					pPicture->Render(pDC3->m_hDC, x, y, cx, cy, 0, nHeight, nWidth, -nHeight, &rect3); 
				} 
 
			} 
 
			if ( pPicture ) pPicture->Release();// 释放 IPicture 指针 
			if ( pStream ) pStream->Release();  // 释放 IStream 指针，同时释放了 hMem 
		} 
	} 
	catch(_com_error e)///捕捉异常 
	{ 
		CString temp; 
		temp.Format("读取图片出错:%s",e.ErrorMessage()); 
		AfxMessageBox(temp);							 
	} 
	// Do not call CDialog::OnPaint() for painting messages 
} 
 
 
 
 
 
 
 
void CRecordFile::OnRectify()  
{ 
	// TODO: Add your control notification handler code here 
	CString sql; 
	 
	_variant_t RecordsAffected; 
	UpdateData(TRUE); 
 
	if (AfxMessageBox("保存修改吗？",MB_YESNO)==IDYES) 
	{ 
 
		sql="Update info set operationtime='"+m_filetime+ 
			"',operationitem='"+m_fileitem+ 
			"',note='"+m_filenote+ 
			"' where patientname='"+m_filename+ 
			"'"; 
	//	MessageBox(sql); 
		 
		try 
		{  
			theApp.m_pConnection->Execute((_bstr_t)sql,&RecordsAffected,adCmdText); 
			UpdateData(FALSE); 
			flagstr="YES"; 
			//InitListData(); 
			AfxMessageBox("修改信息成功！"); 
			CDialog::OnCancel(); 
 
		} 
		catch(_com_error e)///捕捉异常 
		{ 
			CString temp; 
			temp.Format("修改信息出错:%s",e.ErrorMessage()); 
			AfxMessageBox(temp); 
			return; 
		} 
	}	 
}