add_sup.cpp

库存管理系统

// ADD_SUP.cpp : implementation file
//

#include "stdafx.h"
#include "库存管理系统.h"
#include "ADD_SUP.h"

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

/////////////////////////////////////////////////////////////////////////////
// CADD_SUP dialog


CADD_SUP::CADD_SUP(CWnd* pParent /*=NULL*/)
	: CDialog(CADD_SUP::IDD, pParent)
{
	//{{AFX_DATA_INIT(CADD_SUP)
	m_address = _T("");
	m_credit = _T("");
	m_name = _T("");
	m_no = _T("");
	m_phoneno = _T("");
	m_relation = _T("");
	m_youbian = _T("");
	_Conn = ((CMyApp *)AfxGetApp())->m_nConnection;
	//}}AFX_DATA_INIT
}


void CADD_SUP::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CADD_SUP)
	DDX_Text(pDX, IDC_ADDRESS, m_address);
	DDX_Text(pDX, IDC_CREDIT, m_credit);
	DDX_Text(pDX, IDC_NAME, m_name);
	DDX_Text(pDX, IDC_SUPNO, m_no);
	DDX_Text(pDX, IDC_PHONENO, m_phoneno);
	DDX_Text(pDX, IDC_RELATION, m_relation);
	DDX_Text(pDX, IDC_YOUBIAN, m_youbian);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CADD_SUP, CDialog)
	//{{AFX_MSG_MAP(CADD_SUP)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CADD_SUP message handlers

void CADD_SUP::OnOK() 
{
	// TODO: Add extra validation here
	UpdateData(TRUE);
	if(m_no == _T("")||
		m_name == _T("")||
		m_address == _T("")||
		m_credit == _T("")||
		m_relation == _T("")||
		m_youbian == _T("")||
		m_phoneno == _T(""))
	{
		MessageBox("信息不完整,请填满应填信息","warning");
		return;
	}
	else if(m_credit=="C" || 
		m_credit=="B" || 
		m_credit=="A" || 
		m_credit=="AA" ||
		m_credit=="AAA")
	{//插入新用户
		try
	{
		_RecordsetPtr pRecord;
		pRecord.CreateInstance("ADODB.Recordset");
		CString sql;
		sql.Format("select * from 客户 where 客户号 = '%s",m_no);
		sql+="'";
		 pRecord->Open(_variant_t(sql),_variant_t((IDispatch *)_Conn,true),
		 adOpenStatic,adLockPessimistic,adCmdText);
		 if(pRecord->GetRecordCount()!=0)
		 {MessageBox("已存在该客户号,请重新输入","warning");
		 m_no="";
		 UpdateData(FALSE);
		 return;
		 }
		 else 
			 if(MessageBox("确定保存?","wraning",MB_YESNO|MB_ICONQUESTION) == 6)
		 {
			 _CommandPtr _Comm;
			 _Comm.CreateInstance("ADODB.Command");
			 _Comm->ActiveConnection = _Conn;
			 CString la;
			 la="insert into 客户(客户号,客户名,地址,信誉度,联系人,邮编,电话) values ('"+m_no+"','"+m_name+"','"+m_address+"','"+m_credit+"','"+m_relation+"','"+m_youbian+"','"+m_phoneno+"');";
			 _Comm->CommandText=_bstr_t(la);
			 _Comm->Execute(NULL,NULL,adCmdText);
			 
			MessageBox("保存成功");
			m_address = _T("");
			m_credit = _T("");
			m_name = _T("");
			m_no = _T("");
			m_phoneno = _T("");
			m_relation = _T("");
			m_youbian = _T("");
			UpdateData(FALSE);
			return;
		 }
		 
	}
		catch(_com_error &e)
		{	::AfxMessageBox( e.Description());			
		}

	}	
	else
	{	
		MessageBox("信誉度必需填AAA,AA,A,B,C","warning");
		return;
	}
}