// DLost.cpp : implementation file
//

#include "stdafx.h"
#include "gdzc.h"
#include "DLost.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
#include "externDllHeader.h"
/////////////////////////////////////////////////////////////////////////////
// CDLost dialog


CDLost::CDLost(CWnd* pParent /*=NULL*/)
	: CDialog(CDLost::IDD, pParent)
{
	//{{AFX_DATA_INIT(CDLost)
		// NOTE: the ClassWizard will add member initialization here
	//}}AFX_DATA_INIT
}


void CDLost::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CDLost)
	DDX_Control(pDX, IDC_COMLOST, m_ComLost);
	DDX_Control(pDX, IDC_STAID2, m_StaID);
	DDX_Control(pDX, IDC_STACAPTION2, m_StaCaption);
	DDX_Control(pDX, IDC_EDTUNIT, m_EdtUnit);
	DDX_Control(pDX, IDC_EDTSPEC, m_EdtSpec);
	DDX_Control(pDX, IDC_EDTOUTPUT, m_EdtOutPut);
	DDX_Control(pDX, IDC_EDTNAME, m_EdtName);
	DDX_Control(pDX, IDC_EDTMEM, m_EdtMem);
	DDX_Control(pDX, IDC_EDTINPUT, m_EdtInput);
	DDX_Control(pDX, IDC_DTDATE, m_DtDate);
	DDX_Control(pDX, IDC_BUTSURE, m_ButSure);
	DDX_Control(pDX, IDC_BUTEXIT, m_ButExit);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CDLost, CDialog)
	//{{AFX_MSG_MAP(CDLost)
	ON_BN_CLICKED(IDC_BUTSURE, OnButsure)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CDLost message handlers

void CDLost::OnOK() 
{
	// TODO: Add extra validation here
	
	//CDialog::OnOK();
}

void CDLost::SetID(CString sID)
{
	this->m_sID=sID;
}

void CDLost::Display(CString sID)
{
	RxRecordset DspRst;
	CString sSQL;
	sSQL.Format("SELECT * FROM 固定資產(chǎn)信息視圖 WHERE 編號='%s'",sID);
	DspRst.Open(sSQL,adCmdText);
	CString sName,sSpec,sUnit;
	sName=DspRst.GetFieldValue("名稱");
	sSpec=DspRst.GetFieldValue("規(guī)格型號");
	sUnit=DspRst.GetFieldValue("單位");
	this->m_EdtName.SetWindowText(sName);
	this->m_EdtSpec.SetWindowText(sSpec);
	this->m_EdtUnit.SetWindowText(sUnit);

}

BOOL CDLost::OnInitDialog() 
{
	CDialog::OnInitDialog();
	CString LostID;
	LostID=ado.AutoNumber("固定資產(chǎn)減少表","編號","JS",2);
	this->m_StaID.SetWindowText(LostID);
	rst.Open("減少方式表");

	this->m_ComLost.SetRecordset(rst,"名稱");
	this->Display(m_sID);	
	return TRUE;  // return TRUE unless you set the focus to a control
	              // EXCEPTION: OCX Property Pages should return FALSE
}

void CDLost::OnButsure() 
{
	CString sSQL,sLost,sLostID,sInput,sOutput,sMem,sDate;
	if(MessageBox("確定要減少此固定資產(chǎn)嗎？","系統(tǒng)提示",MB_OKCANCEL|MB_ICONQUESTION)!=1)	
		return;
	m_ComLost.GetWindowText(sLost);
	sLostID=ado.FieldToOtherField("減少方式表","方式",sLost,"編號",1);
	m_EdtInput.GetWindowText(sInput);
	m_EdtOutPut.GetWindowText(sOutput);
	m_EdtMem.GetWindowText(sMem);
	CTime tDate;
	this->m_DtDate.GetTime(tDate);
	sDate=CTimeToCString(tDate);
	sSQL.Format("UPDATE 固定資產(chǎn)信息表 SET 減少否=1 WHERE 編號='%s'",m_sID);
	rst.Open(sSQL,adCmdText);
	sSQL.Format("INSERT INTO 固定資產(chǎn)減少表 VALUES ('%s',%s,%s,%s,'%s','%s')",m_sID,sLostID,sInput,sOutput,sMem,sDate);
	rst.Open(sSQL,adCmdText);
	MessageBox("固定資產(chǎn)減少成功！","確定",MB_OK|MB_ICONINFORMATION);
	this->OnCancel();

}