price.cpp

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

// Price.cpp : implementation file
//

#include "stdafx.h"
#include "Hospital.h"
#include "Price.h"

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

/////////////////////////////////////////////////////////////////////////////
// CPrice dialog


CPrice::CPrice(CWnd* pParent /*=NULL*/)
	: CDialog(CPrice::IDD, pParent)
{
	//{{AFX_DATA_INIT(CPrice)
	m_sCode = _T("");
	m_sICCard = _T("");
	m_sMedicament = _T("");
	m_sName = _T("");
	m_sPrice = _T("");
	m_nDiagnose = 0;
	//}}AFX_DATA_INIT
	m_sMedicamentID = "";
}


void CPrice::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CPrice)
	DDX_Text(pDX, IDC_CODE, m_sCode);
	DDX_Text(pDX, IDC_ICCARD, m_sICCard);
	DDX_Text(pDX, IDC_MEDICAMENT, m_sMedicament);
	DDX_Text(pDX, IDC_NAME, m_sName);
	DDX_Text(pDX, IDC_PRICE, m_sPrice);
	DDX_Text(pDX, IDC_DIAGNOSE, m_nDiagnose);
	DDV_MinMaxUInt(pDX, m_nDiagnose, 0, 10000);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CPrice, CDialog)
	//{{AFX_MSG_MAP(CPrice)
	ON_EN_KILLFOCUS(IDC_NAME, OnKillfocusName)
	ON_EN_KILLFOCUS(IDC_CODE, OnKillfocusCode)
	ON_EN_KILLFOCUS(IDC_DIAGNOSE, OnKillfocusDiagnose)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CPrice message handlers

void CPrice::OnOK() 
{
	// 更新数据
	UpdateData(TRUE);

	// 打开就诊信息表
	try
	{
		// 构造SQL查询语句
		CString strSQL = "SELECT * FROM 划价记录";

		// 用构造的SQL语句打开记录集
		m_pRecordSet->Open(dbOpenDynaset, strSQL);

		// 滚动到最后一条记录
		if (m_pRecordSet->IsEOF() == FALSE)
			m_pRecordSet->MoveLast();

		// 准备添加新记录
		m_pRecordSet->AddNew();
	}
	catch (CDaoException* e)
	{
		AfxMessageBox(e->m_pErrorInfo->m_strDescription, MB_ICONEXCLAMATION);
		e->Delete();
		return;
	}

	// 得到并插入字段名
	CDaoFieldInfo m_fieldinfo;

	// 将对话框内容填写到数据库各字段
	for (int i = 1; i < m_pRecordSet->GetFieldCount(); i++)
	{    
		// 获取各字段信息
		m_pRecordSet->GetFieldInfo(i, m_fieldinfo);
		
		// 设置字段内容
		switch (i)
		{
		case 1:
			m_pRecordSet->SetFieldValue((LPCTSTR)m_fieldinfo.m_strName, (LPCTSTR)m_sPersonID);
			break;
		case 2:
			m_pRecordSet->SetFieldValue((LPCTSTR)m_fieldinfo.m_strName, (LPCTSTR)m_sMedicamentID);
			break;
		case 3:
			{
				CString sTemp;
				sTemp.Format("%d", m_nDiagnose);
				m_pRecordSet->SetFieldValue((LPCTSTR)m_fieldinfo.m_strName, (LPCTSTR)sTemp);
				break;
			}
		case 4:
			m_pRecordSet->SetFieldValue((LPCTSTR)m_fieldinfo.m_strName, (LPCTSTR)m_sPrice);
			break;
		}		
	}
	
	// 更新数据
	if (m_pRecordSet->CanUpdate() == TRUE)
		m_pRecordSet->Update();

	// 刷新
	if (m_pRecordSet->CanRestart() == TRUE)
		m_pRecordSet->Requery();
	
	// 关闭记录集
	if (m_pRecordSet->IsOpen())
		m_pRecordSet->Close();

	CDialog::OnOK();
}

void CPrice::OnKillfocusName() 
{
	// 更新数据
	UpdateData(TRUE);

	// 构造SQL查询语句
	CString strSQL = "SELECT * FROM 病人信息 WHERE 姓名 = '" + m_sName + "'";

	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* variant1 = LPCVARIANT(varValue);
			if (variant1->vt & VT_BYREF)
				return;
			m_sPersonID.Format("%d", variant1->lVal);

			m_pRecordSet->GetFieldValue(4, varValue);

			// 将得到的OLE变量转换为字符串变量
			const VARIANT* variant2 = LPCVARIANT(varValue);
			if (variant2->vt & VT_BYREF)
				return;
			m_sICCard.Format("%d", variant2->lVal);

			// 更新显示
			UpdateData(FALSE);
		}
		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;
	}
}

void CPrice::OnKillfocusCode() 
{
	// 更新数据
	UpdateData(TRUE);

	// 构造SQL查询语句
	CString strSQL = "SELECT * FROM 药剂信息 WHERE 助记码 = '" + m_sCode + "'";

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

			// 得到药品ID
			m_pRecordSet->GetFieldValue(0, varValue);
			const VARIANT* variant1 = LPCVARIANT(varValue);
			if (variant1->vt & VT_BYREF)
				return;
			m_sMedicamentID.Format("%d", variant1->lVal);

			// 得到药品名称
			m_pRecordSet->GetFieldValue(2, varValue);
			const VARIANT* variant2 = LPCVARIANT(varValue);
			if (variant2->vt & VT_BYREF)
				return;
			m_sMedicament = variant2->pcVal;

			// 得到单价
			m_pRecordSet->GetFieldValue(5, varValue);
			const VARIANT* variant3 = LPCVARIANT(varValue);
			m_varPrice.cyVal = variant3->cyVal;
			m_varPrice.vt = variant3->vt;
		
			// 更新显示
			UpdateData(FALSE);
		}
		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;
	}
}

void CPrice::OnKillfocusDiagnose() 
{
	if (m_sMedicamentID == "")
		return;

	// 更新数据
	UpdateData(TRUE);

	// 计算总价
	COleCurrency price(m_varPrice);
	price *= m_nDiagnose;
	m_sPrice = price.Format();
	
	// 更新显示
	UpdateData(FALSE);
}