recipe.cpp

VC平台下开发的门诊信息管理系统 数据库ACCEES

// Recipe.cpp : implementation file
//

#include "stdafx.h"
#include "Hospital.h"
#include "Recipe.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// CRecipe dialog


CRecipe::CRecipe(CWnd* pParent /*=NULL*/)
	: CDialog(CRecipe::IDD, pParent)
{
	//{{AFX_DATA_INIT(CRecipe)
	m_sReason = _T("");
	m_sResult = _T("");
	m_sDoctor = _T("");
	//}}AFX_DATA_INIT
}


void CRecipe::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CRecipe)
	DDX_Control(pDX, IDC_NAME, m_editName);
	DDX_Text(pDX, IDC_REASON, m_sReason);
	DDX_Text(pDX, IDC_RESULT, m_sResult);
	DDX_Text(pDX, IDC_DOCTOR, m_sDoctor);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CRecipe, CDialog)
	//{{AFX_MSG_MAP(CRecipe)
	ON_EN_KILLFOCUS(IDC_NAME, OnKillfocusName)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CRecipe message handlers

void CRecipe::OnKillfocusName() 
{
	// 构造SQL查询语句
	GetDlgItemText(IDC_NAME, m_sName);
	CString strSQL = "SELECT * FROM 病人信息 WHERE 姓名 = '" + m_sName + "'";

	// 得到病人ID
	CString sPersonID;
	try
	{
		// 用构造的SQL语句打开记录集
		if (m_pRecordSet->IsOpen())
			m_pRecordSet->Close();
		m_pRecordSet->Open(dbOpenDynaset, strSQL);
		
		if (m_pRecordSet->GetRecordCount() > 0)
		{
			COleVariant varValue;
			m_pRecordSet->GetFieldValue(0, varValue);

			// 将得到的OLE变量转换为字符串变量
			const VARIANT* variant = LPCVARIANT(varValue);
			if (variant->vt & VT_BYREF)
				return;
			sPersonID.Format("%d", variant->lVal);
		}
		else
		{
			AfxMessageBox("病人姓名有误!");
		
			// 关闭记录集
			m_pRecordSet->Close();
			return;
		}

		// 关闭记录集
		m_pRecordSet->Close();
	}
	catch (CDaoException *e)
	{   
		AfxMessageBox(e->m_pErrorInfo->m_strDescription, MB_ICONEXCLAMATION);
		delete m_pRecordSet;
		e->Delete();
		return;
	}

	// 打开就诊信息表
	try
	{
		// 构造SQL查询语句
		strSQL = "SELECT * FROM 就诊信息 WHERE 病人ID = " + sPersonID;
		
		// 用构造的SQL语句打开记录集
		m_pRecordSet->Open(dbOpenDynaset, strSQL);

		if (m_pRecordSet->GetRecordCount() > 0)
		{
			// 移动到最近一次记录
			m_pRecordSet->MoveLast();

			// 得到记录集中的值
			COleVariant varValue;
			try
			{
				// 得到主治医师
				m_pRecordSet->GetFieldValue(4, varValue);
				const VARIANT* variant1 = LPCVARIANT(varValue);
				if (variant1->vt & VT_BYREF)
					return;
				m_sDoctor = varValue.pcVal;

				// 得到主诉
				m_pRecordSet->GetFieldValue(2, varValue);
				const VARIANT* variant2 = LPCVARIANT(varValue);
				if (variant2->vt & VT_BYREF)
					return;
				m_sReason = varValue.pcVal;

				// 得到处方
				m_pRecordSet->GetFieldValue(5, varValue);
				const VARIANT* variant3 = LPCVARIANT(varValue);
				if (variant3->vt & VT_BYREF)
					return;
				m_sResult = varValue.pcVal;

				// 更新显示
				UpdateData(FALSE);
			}
			catch (CDaoException* e)
			{
				AfxMessageBox(e->m_pErrorInfo->m_strDescription, MB_ICONEXCLAMATION);
				e->Delete();
				return;
			}
		}

		// 关闭记录集
		m_pRecordSet->Close();
	}
	catch (CDaoException *e)
	{   
		AfxMessageBox(e->m_pErrorInfo->m_strDescription, MB_ICONEXCLAMATION);
		delete m_pRecordSet;
		e->Delete();
		return;
	}
}