maindlg.cpp

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

    while(!pRec->adoEOF)
	{
	    vField=pRec->GetCollect("交易金额");
	    temp+=vField.lVal;
		pRec->MoveNext();
    }
	m_wpje=temp;


////////////////////////////////
    //UpdateData(FALSE);
    //((CComboBox*)GetDlgItem(IDC_COMBO_WP))->SetCurSel(0);
	//((CComboBox*)GetDlgItem(IDC_COMBO_XM))->SetCurSel(0);
	//((CComboBox*)GetDlgItem(IDC_COMBO_DZ))->SetCurSel(0);
	//((CComboBox*)GetDlgItem(IDC_COMBO_MC))->SetCurSel(0);
	pRec->Close();
	pCon->Close();
	pRec.Release();
	pCon.Release();
	CoUninitialize();
	
	return TRUE;  // return TRUE unless you set the focus to a control
	              // EXCEPTION: OCX Property Pages should return FALSE
}






void CMainDlg::OnSelchangeComboMc() 
{
	// TODO: Add your control notification handler code 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);
	long temp;
	CString strtemp;
	_variant_t vField;
	///////////更新客户信息框
	temp=((CComboBox*)GetDlgItem(IDC_COMBO_MC))->GetCurSel();
    ((CComboBox*)GetDlgItem(IDC_COMBO_MC))->GetLBText(temp,strtemp);
	strSQL.Format("SELECT * FROM 客户信息表 WHERE 公司名称='"+strtemp+"'");
    pRec->Open(_bstr_t(strSQL),
			        _variant_t((IDispatch*)pCon,true),
					adOpenStatic,
					adLockOptimistic,
					adCmdText					
					);
    
    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;
	pRec->Close();
    /////////////////////更新金额信息框和交易记录框
	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();
	////////更新单个客户总金额
	temp=0;
	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);
    //((CComboBox*)GetDlgItem(IDC_COMBO_WP))->SetCurSel(0);
	//((CComboBox*)GetDlgItem(IDC_COMBO_XM))->SetCurSel(0);
	//((CComboBox*)GetDlgItem(IDC_COMBO_DZ))->SetCurSel(0);
	//((CComboBox*)GetDlgItem(IDC_COMBO_MC))->SetCurSel(0);
	pRec->Close();
	pCon->Close();
	pRec.Release();
	pCon.Release();
	CoUninitialize();
}

void CMainDlg::OnSelchangeComboXm() 
{
	// TODO: Add your control notification handler code 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);
	long temp;
	CString strtemp;
	_variant_t vField;
	///////////更新客户信息框
	temp=((CComboBox*)GetDlgItem(IDC_COMBO_XM))->GetCurSel();
    ((CComboBox*)GetDlgItem(IDC_COMBO_XM))->GetLBText(temp,strtemp);
	strSQL.Format("SELECT * FROM 客户信息表 WHERE 老板姓名='"+strtemp+"'");
    pRec->Open(_bstr_t(strSQL),
			        _variant_t((IDispatch*)pCon,true),
					adOpenStatic,
					adLockOptimistic,
					adCmdText					
					);
    
    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;
	pRec->Close();
    /////////////////////更新金额信息框和交易记录框
	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();
	////////更新单个客户总金额
	temp=0;
	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);
    //((CComboBox*)GetDlgItem(IDC_COMBO_WP))->SetCurSel(0);
	//((CComboBox*)GetDlgItem(IDC_COMBO_XM))->SetCurSel(0);
	//((CComboBox*)GetDlgItem(IDC_COMBO_DZ))->SetCurSel(0);
	//((CComboBox*)GetDlgItem(IDC_COMBO_MC))->SetCurSel(0);
	pRec->Close();
	pCon->Close();
	pRec.Release();
	pCon.Release();
	CoUninitialize();
	
}

void CMainDlg::OnSelchangeComboWp() 
{
	// TODO: Add your control notification handler code 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);
	long temp;
	CString strtemp;
	_variant_t vField;
	
	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);
    //((CComboBox*)GetDlgItem(IDC_COMBO_WP))->SetCurSel(0);
	//((CComboBox*)GetDlgItem(IDC_COMBO_XM))->SetCurSel(0);
	//((CComboBox*)GetDlgItem(IDC_COMBO_DZ))->SetCurSel(0);
	//((CComboBox*)GetDlgItem(IDC_COMBO_MC))->SetCurSel(0);
	pRec->Close();
	pCon->Close();
	pRec.Release();
	pCon.Release();
	CoUninitialize();
	
}



void CMainDlg::OnButtonUpdate() 
{
	// TODO: Add your control notification handler code her	
	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;
	//CString strtemp;
	//int temp;
    //long temp2;
	//_variant_t vField;
	_bstr_t bstrtemp;
	UpdateData(TRUE);
	strSQL.Format("UPDATE 客户信息表 SET 老板姓名='"+m_xingming2+"',公司名称='"+m_mingcheng2+"',公司地址='"+m_dizhi+"',老板电话='"+m_dianhua+"',备注='"+m_beizhu+"' WHERE 公司编号=%d",m_bianhao);
	bstrtemp=strSQL;
	pRec=pCon->Execute(bstrtemp,NULL,adCmdText);
///////////////////////////////////
	m_xingming1.ResetContent();
    m_mingcheng1.ResetContent();
	m_wp.ResetContent();
        
	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					
					);
    while(!pRec->adoEOF)
	{
	    vField=pRec->GetCollect("交易金额");
	    temp+=vField.lVal;
		pRec->MoveNext();
    }
	m_wpje=temp;
   	//OnInitDialog();
	////////////////////////////////
	MessageBox("修改资料成功!");
	pRec->Close();
  	pCon->Close();
	pRec.Release();
	pCon.Release();
	CoUninitialize();
	
	

	
}

void CMainDlg::OnShanchu1() 
{
	// TODO: Add your command handler code here
	if(IDYES==MessageBox("你确定要删除当前客户记录吗?","删除客户信息",MB_YESNO))
	{
		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;
	CString strtemp;
	//int temp;
    //long temp2;
	//_variant_t vField;
	_bstr_t bstrtemp;
	//UpdateData(TRUE);
    strSQL.Format("DELETE * FROM 客户信息表 WHERE 公司编号=%d",m_bianhao);
	bstrtemp=strSQL;
	pRec=pCon->Execute(bstrtemp,NULL,adCmdText);


	
	////////////////////////////////
  	//pCon->Close();
	pRec.Release();
	pCon.Release();
	CoUninitialize();
	OnButtonUpdate();

	}
}

void CMainDlg::OnWupin2() 
{
	// TODO: Add your command handler code here
	UpdateData(TRUE);
	CWuPinDel WuPinDel;

	if(IDOK==WuPinDel.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;
	CString strtemp;
	//int temp;
    //long temp2;
	//_variant_t vField;
	_bstr_t bstrtemp;
	//UpdateData(TRUE);
    strSQL.Format("DELETE * FROM 交易物品表 WHERE 交易物品='"+WuPinDel.m_wupindel+"'");
	bstrtemp=strSQL;
	pRec=pCon->Execute(bstrtemp,NULL,adCmdText);


	
	////////////////////////////////
  	//pCon->Close();
	pRec.Release();
	pCon.Release();
	CoUninitialize();
	OnButtonUpdate();

	}
	
}