maindlg.cpp

自己帮家里人写的一个废品收购管理数据库系统

// MainDlg.cpp : implementation file
//

#include "stdafx.h"
#include "废品收购管理系统.h"
#include "MainDlg.h"

//#include "YongHuDlg.h"
#include "MiMaDlg.h"
#include "KeHuDlg.h"
#include "JiLuDlg.h"
#include "ChaZhaoBoss.h"
#include "ChaZhaoGS.h"
#include "WuPinAdd.h"
#include "WuPinDel.h"
#include "XiuGai.h"
//#include "TianJiaDlg.h"



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

/////////////////////////////////////////////////////////////////////////////
// CMainDlg dialog


CMainDlg::CMainDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CMainDlg::IDD, pParent)
{
	EnableAutomation();

	//{{AFX_DATA_INIT(CMainDlg)
	m_beizhu = _T("");
	m_dianhua = _T("");
	m_jilu = _T("");
	m_bianhao = 0;
	m_mingcheng2 = _T("");
	m_zongqian = 0;
	m_zongshu = 0;
	m_jls = 0;
	m_wpje = 0;
	m_zje = 0;
	m_dizhi = _T("");
	m_xingming2 = _T("");
	//}}AFX_DATA_INIT
}


void CMainDlg::OnFinalRelease()
{
	// When the last reference for an automation object is released
	// OnFinalRelease is called.  The base class will automatically
	// deletes the object.  Add additional cleanup required for your
	// object before calling the base class.

	CDialog::OnFinalRelease();
}

void CMainDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CMainDlg)
	DDX_Control(pDX, IDC_COMBO_WP, m_wp);
	DDX_Control(pDX, IDC_COMBO_XM, m_xingming1);
	DDX_Control(pDX, IDC_COMBO_MC, m_mingcheng1);
	DDX_Text(pDX, IDC_EDIT_BZ, m_beizhu);
	DDX_Text(pDX, IDC_EDIT_DH, m_dianhua);
	DDX_Text(pDX, IDC_EDIT_BIANHAO, m_bianhao);
	DDX_CBString(pDX, IDC_COMBO_MC, m_mingcheng2);
	DDX_Text(pDX, IDC_EDIT_ZQ, m_zongqian);
	DDX_Text(pDX, IDC_EDIT_ZS, m_zongshu);
	DDX_Control(pDX, IDC_REMOTEDATACTL1, m_rdc);
	DDX_Text(pDX, IDC_EDIT_JLS, m_jls);
	DDX_Text(pDX, IDC_EDIT_WPJE, m_wpje);
	DDX_Text(pDX, IDC_EDIT_ZJE, m_zje);
	DDX_Text(pDX, IDC_EDIT_DZ, m_dizhi);
	DDX_CBString(pDX, IDC_COMBO_XM, m_xingming2);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CMainDlg, CDialog)
	//{{AFX_MSG_MAP(CMainDlg)
	ON_BN_CLICKED(IDC_BUTTON_QUIT, OnButtonQuit)
	ON_COMMAND(ID_MIMA1, OnMima1)
	ON_COMMAND(ID_MIMA2, OnMima2)
	ON_COMMAND(ID_TIANJIA1, OnTianjia1)
	ON_COMMAND(ID_TIANJIA2, OnTianjia2)
	ON_COMMAND(ID_CHAZHAO1, OnChazhao1)
	ON_COMMAND(ID_CHAZHAO2, OnChazhao2)
	ON_COMMAND(ID_WUPIN1, OnWupin1)
	ON_CBN_SELCHANGE(IDC_COMBO_MC, OnSelchangeComboMc)
	ON_CBN_SELCHANGE(IDC_COMBO_XM, OnSelchangeComboXm)
	ON_CBN_SELCHANGE(IDC_COMBO_WP, OnSelchangeComboWp)
	ON_BN_CLICKED(IDC_BUTTON_UPDATE, OnButtonUpdate)
	ON_COMMAND(ID_SHANCHU1, OnShanchu1)
	ON_COMMAND(ID_WUPIN2, OnWupin2)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

BEGIN_DISPATCH_MAP(CMainDlg, CDialog)
	//{{AFX_DISPATCH_MAP(CMainDlg)
		// NOTE - the ClassWizard will add and remove mapping macros here.
	//}}AFX_DISPATCH_MAP
END_DISPATCH_MAP()

// Note: we add support for IID_IMainDlg to support typesafe binding
//  from VBA.  This IID must match the GUID that is attached to the 
//  dispinterface in the .ODL file.

// {EC46E534-8B99-4D0A-AB26-9B2086065C39}
static const IID IID_IMainDlg =
{ 0xec46e534, 0x8b99, 0x4d0a, { 0xab, 0x26, 0x9b, 0x20, 0x86, 0x6, 0x5c, 0x39 } };

BEGIN_INTERFACE_MAP(CMainDlg, CDialog)
	INTERFACE_PART(CMainDlg, IID_IMainDlg, Dispatch)
END_INTERFACE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CMainDlg message handlers

void CMainDlg::OnButtonQuit() 
{
	// TODO: Add your control notification handler code here
	OnOK();
}

void CMainDlg::OnMima1() 
{
	// TODO: Add your command handler code here
	CXiuGai XiuGai;
	XiuGai.DoModal();
	
}

void CMainDlg::OnMima2() 
{
	// TODO: Add your command handler code here
	CMiMaDlg MiMaDlg;
    MiMaDlg.DoModal();
	
}

void CMainDlg::OnTianjia1() 
{
	// TODO: Add your command handler code here
	CKeHuDlg KeHuDlg;
	if(IDOK==KeHuDlg.DoModal())
	{
		UpdateData(TRUE);
        CoInitialize(NULL);
	    _ConnectionPtr pCon(_uuidof(Connection));
	    _RecordsetPtr  pRec(_uuidof(Recordset));

	    pCon->ConnectionTimeout=5;
        pCon->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=废品交易数据库.mdb","","",adModeUnknown);
        CString strSQL;
		strSQL.Format("SELECT * FROM 客户信息表");	
	    pRec->Open(_bstr_t(strSQL),
			        _variant_t((IDispatch*)pCon,true),
					adOpenStatic,
					adLockOptimistic,
					adCmdText					
					);
		pRec->AddNew();
    	pRec->PutCollect("老板姓名",_variant_t(KeHuDlg.m_tjxm));
    	pRec->PutCollect("公司名称",_variant_t(KeHuDlg.m_tjmc));
        pRec->PutCollect("公司地址",_variant_t(KeHuDlg.m_tjdz));
        pRec->PutCollect("老板电话",_variant_t(KeHuDlg.m_tjdh));
        pRec->PutCollect("备注",_variant_t(KeHuDlg.m_tjbz));
    	pRec->Update();		
		pRec->Close();
	    pCon->Close();
	    pRec.Release();
	    pCon.Release();
	    CoUninitialize();
		///////更新其它组件
        OnButtonUpdate();

	}
	
}

void CMainDlg::OnTianjia2() 
{
	// TODO: Add your command handler code here
	CJiLuDlg JiLuDlg;
    //JiLuDlg.DoModal();
	UpdateData(TRUE);
	if(IDOK==JiLuDlg.DoModal())
	{
		CoInitialize(NULL);
	    _ConnectionPtr pCon(_uuidof(Connection));
	    _RecordsetPtr  pRec(_uuidof(Recordset));

	    pCon->ConnectionTimeout=5;
        pCon->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=废品交易数据库.mdb","","",adModeUnknown);
        CString strSQL;
		strSQL.Format("SELECT * FROM 交易记录表");	
	    pRec->Open(_bstr_t(strSQL),
			        _variant_t((IDispatch*)pCon,true),
					adOpenStatic,
					adLockOptimistic,
					adCmdText					
					);
		pRec->AddNew();
        pRec->PutCollect("公司编号",_variant_t((long)(m_bianhao)));
    	pRec->PutCollect("交易时间",_variant_t(JiLuDlg.m_tjsj));
    	pRec->PutCollect("交易地点",_variant_t(JiLuDlg.m_tjdd));
        pRec->PutCollect("交易物品",_variant_t(JiLuDlg.m_tjwp));
        pRec->PutCollect("经手人",_variant_t(JiLuDlg.m_tjjs));
        pRec->PutCollect("付款情况",_variant_t(JiLuDlg.m_tjfk));
		pRec->PutCollect("交易金额",_variant_t(JiLuDlg.m_tjje));
    	pRec->Update();		
		pRec->Close();
	    pCon->Close();
	    pRec.Release();
	    pCon.Release();
	    CoUninitialize();
		OnButtonUpdate();

	}
	

	
}

void CMainDlg::OnChazhao1() 
{
	// TODO: Add your command handler code here
	CChaZhaoBoss 	ChaZhaoBoss;
	UpdateData(TRUE);
	if(IDOK==ChaZhaoBoss.DoModal())
	{
		CoInitialize(NULL);
	    _ConnectionPtr pCon(_uuidof(Connection));
	    _RecordsetPtr  pRec(_uuidof(Recordset));

	    pCon->ConnectionTimeout=5;
        pCon->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=废品交易数据库.mdb","","",adModeUnknown);

	    CString strSQL;
	    strSQL.Format("SELECT * FROM 客户信息表 WHERE 老板姓名='"+ChaZhaoBoss.m_chazhaolb+"'");	
	    pRec->Open(_bstr_t(strSQL),
			        _variant_t((IDispatch*)pCon,true),
					adOpenStatic,
					adLockOptimistic,
					adCmdText					
					);
	    if(pRec->GetRecordCount()<=0)
		{
			MessageBox("无法找到指定客户!");
			ChaZhaoBoss.m_chazhaolb="";
		}
		else
		{
			_variant_t vField;
            vField=pRec->GetCollect("公司编号");
	        m_bianhao=vField.lVal;
			vField=pRec->GetCollect("公司名称");
			m_mingcheng2=vField.bstrVal;
			vField=pRec->GetCollect("公司地址");
			m_dizhi=vField.bstrVal;
			vField=pRec->GetCollect("老板姓名");
			m_xingming2=vField.bstrVal;
			vField=pRec->GetCollect("老板电话");
			m_dianhua=vField.bstrVal;
			vField=pRec->GetCollect("备注");
			m_beizhu=vField.bstrVal;	
			UpdateData(FALSE);
			pRec->Close();
			strSQL.Format("SELECT * FROM 交易记录表 WHERE 公司编号=%d",m_bianhao);
            m_rdc.SetSql(strSQL);
	        m_rdc.Refresh();
			long temp;
			temp=0;
	CString strtemp;
	pRec->Open(_bstr_t(strSQL),
			        _variant_t((IDispatch*)pCon,true),
					adOpenStatic,
					adLockOptimistic,
					adCmdText					
					);
	
	/////////单个客户初始化记录数
	m_jls=pRec->GetRecordCount();
	////////初始化单个客户总金额
	while(!pRec->adoEOF)
	{
	    vField=pRec->GetCollect("交易金额");
	    temp+=vField.lVal;
		pRec->MoveNext();
    }
	m_zje=temp;
	pRec->Close();
	
	temp=((CComboBox*)GetDlgItem(IDC_COMBO_WP))->GetCurSel();
    ((CComboBox*)GetDlgItem(IDC_COMBO_WP))->GetLBText(temp,strtemp);
	strSQL.Format("SELECT * FROM 交易记录表 WHERE 公司编号=%d AND 交易物品='"+strtemp+"'",m_bianhao);
    pRec->Open(_bstr_t(strSQL),
			        _variant_t((IDispatch*)pCon,true),
					adOpenStatic,
					adLockOptimistic,
					adCmdText					
					);
	temp=0;
    while(!pRec->adoEOF)
	{
	    vField=pRec->GetCollect("交易金额");
	    temp+=vField.lVal;
		pRec->MoveNext();
    }
	m_wpje=temp;
	
////////////////////////////////
    UpdateData(FALSE);
	
        pRec->Close();
	    pCon->Close();
	    pRec.Release();
	    pCon.Release();
	    CoUninitialize();
		}
	}
 
}

void CMainDlg::OnChazhao2() 
{
	// TODO: Add your command handler code here
    CChaZhaoGS 	CChaZhaoGS;
	CChaZhaoGS.DoModal();
	
}

void CMainDlg::OnWupin1() 
{
	// TODO: Add your command handler code here
	CWuPinAdd WuPinAdd;
	//JiLuDlg.DoModal();
	UpdateData(TRUE);
	if(IDOK==WuPinAdd.DoModal())
	{
		CoInitialize(NULL);
	    _ConnectionPtr pCon(_uuidof(Connection));
	    _RecordsetPtr  pRec(_uuidof(Recordset));

	    pCon->ConnectionTimeout=5;
        pCon->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=废品交易数据库.mdb","","",adModeUnknown);
        CString strSQL;
		strSQL.Format("SELECT * FROM 交易物品表");	
	    pRec->Open(_bstr_t(strSQL),
			        _variant_t((IDispatch*)pCon,true),
					adOpenStatic,
					adLockOptimistic,
					adCmdText					
					);
		pRec->AddNew();
        pRec->PutCollect("交易物品",_variant_t(WuPinAdd.m_tjwp));
    	pRec->Update();		
		pRec->Close();
	    pCon->Close();
	    pRec.Release();
	    pCon.Release();
	    CoUninitialize();

		OnButtonUpdate();
	}

	
}

BOOL CMainDlg::OnInitDialog() 
{
	CDialog::OnInitDialog();
	
	// TODO: Add extra initialization here
    CoInitialize(NULL);
	_ConnectionPtr pCon(_uuidof(Connection));
	_RecordsetPtr  pRec(_uuidof(Recordset));

	pCon->ConnectionTimeout=5;
    pCon->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=废品交易数据库.mdb","","",adModeUnknown);

	CString strSQL;
	//UpdateData(TRUE);
	///////////初始化交易物品组合框
	strSQL.Format("SELECT * FROM 交易物品表");	
	pRec->Open(_bstr_t(strSQL),
			        _variant_t((IDispatch*)pCon,true),
					adOpenStatic,
					adLockOptimistic,
					adCmdText					
					);

	while(!pRec->adoEOF)
	{
		((CComboBox*)GetDlgItem(IDC_COMBO_WP))->AddString(_bstr_t(pRec->GetCollect("交易物品")));
		pRec->MoveNext();
	}
	
	pRec->Close();
    ///////////////初始化客户信息框
	strSQL.Format("SELECT * FROM 客户信息表");	
	pRec->Open(_bstr_t(strSQL),
			        _variant_t((IDispatch*)pCon,true),
					adOpenStatic,
					adLockOptimistic,
					adCmdText					
					);
	
	while(!pRec->adoEOF)
	{
		((CComboBox*)GetDlgItem(IDC_COMBO_XM))->AddString(_bstr_t(pRec->GetCollect("老板姓名")));
		pRec->MoveNext();
	}
	pRec->MoveFirst();
	
	while(!pRec->adoEOF)
	{
		((CComboBox*)GetDlgItem(IDC_COMBO_MC))->AddString(_bstr_t(pRec->GetCollect("公司名称")));
		pRec->MoveNext();
	}
	pRec->MoveFirst();
	/*
	while(!pRec->adoEOF)
	{
		((CComboBox*)GetDlgItem(IDC_COMBO_DZ))->AddString(_bstr_t(pRec->GetCollect("公司地址")));
		pRec->MoveNext();
	}
	pRec->MoveFirst();
	*/
	_variant_t vField;
    vField=pRec->GetCollect("公司编号");
	m_bianhao=vField.lVal;
	//m_bianhao2=m_bianhao;
	//vField=pRec->GetCollect("公司名称");
	//m_mingcheng2=vField.bstrVal;
	vField=pRec->GetCollect("公司地址");
	m_dizhi=vField.bstrVal;
	//vField=pRec->GetCollect("老板姓名");
	//m_xingming2=vField.bstrVal;
	vField=pRec->GetCollect("老板电话");
	m_dianhua=vField.bstrVal;
	vField=pRec->GetCollect("备注");
	m_beizhu=vField.bstrVal;
	//////////初始化总金额框和总公司框
    long temp=pRec->GetRecordCount();
	CString strtemp;
	m_zongshu=temp;

	pRec->Close();
    strSQL.Format("SELECT * FROM 交易记录表");	
	pRec->Open(_bstr_t(strSQL),
			        _variant_t((IDispatch*)pCon,true),
					adOpenStatic,
					adLockOptimistic,
					adCmdText					
					);
	temp=0;
	while(!pRec->adoEOF)
	{
	    vField=pRec->GetCollect("交易金额");
	    temp+=vField.lVal;
		pRec->MoveNext();
    }
	m_zongqian=temp;
	pRec->Close();
	////////初始化交易记录框
	//strSQL.Format("SELECT 交易时间,交易地点,交易物品,经手人,交易金额,付款情况 FROM 交易记录表 WHERE 公司编号=%d",m_bianhao);
	strSQL.Format("SELECT * FROM 交易记录表 WHERE 公司编号=%d",m_bianhao);
    m_rdc.SetSql(strSQL);
	m_rdc.Refresh();

    pRec->Open(_bstr_t(strSQL),
			        _variant_t((IDispatch*)pCon,true),
					adOpenStatic,
					adLockOptimistic,
					adCmdText					
					);
	/////////单个客户初始化记录数
	m_jls=pRec->GetRecordCount();
	////////初始化单个客户总金额
	while(!pRec->adoEOF)
	{
	    vField=pRec->GetCollect("交易金额");
	    temp+=vField.lVal;
		pRec->MoveNext();
    }
	m_zje=temp;
	pRec->Close();
    ///////////////////初始化物品金额数
	((CComboBox*)GetDlgItem(IDC_COMBO_WP))->SetCurSel(0);
	temp=((CComboBox*)GetDlgItem(IDC_COMBO_WP))->GetCurSel();
    ((CComboBox*)GetDlgItem(IDC_COMBO_WP))->GetLBText(temp,strtemp);
	strSQL.Format("SELECT * FROM 交易记录表 WHERE 公司编号=%d AND 交易物品='"+strtemp+"'",m_bianhao);
    pRec->Open(_bstr_t(strSQL),
			        _variant_t((IDispatch*)pCon,true),
					adOpenStatic,
					adLockOptimistic,
					adCmdText					
					);