recordfile.cpp

我自己用VC编的

// 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;
		}
	}	
}