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