financeinvestdlg.cpp

这是一个学生信息管理系统

// FinanceInvestDlg.cpp : 实现文件
//

#include "stdafx.h"
#include "SMS.h"
#include "FinanceInvestDlg.h"


// CFinanceInvestDlg 对话框

IMPLEMENT_DYNAMIC(CFinanceInvestDlg, CDialog)

CFinanceInvestDlg::CFinanceInvestDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CFinanceInvestDlg::IDD, pParent)
	, m_iInvestAmount(0)
	, m_pCashSet(&theApp.m_db )
	, m_pSet(&theApp.m_db )
{
	//显示窗口颜色
	m_backcolor=m_RGB_BkColor;
	m_brush.CreateSolidBrush(m_backcolor);
	m_bItemClick=false;
}

CFinanceInvestDlg::~CFinanceInvestDlg()
{
}

void CFinanceInvestDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	DDX_Text(pDX, IDC_INVEST_AMOUNT_STATIC, m_iInvestAmount);
	DDX_Control(pDX, IDC_FINANCE_INVEST_LIST, m_cInvestListCtrl);
	DDX_Control(pDX, IDC_FINANCE_INVEST_DELETE_BT, m_cDeleteBt);
	DDX_Control(pDX, IDC_FINANCE_INVEST_UPDATE_BT, m_cUpdateBt);
	DDX_Control(pDX, IDC_FINANCE_INVEST_PRINT_BT, m_cPrintBt);
}


BEGIN_MESSAGE_MAP(CFinanceInvestDlg, CDialog)
	ON_BN_CLICKED(IDC_FINANCE_INVEST_ALL_BT, &CFinanceInvestDlg::OnBnClickedFinanceInvestAllBt)
	ON_BN_CLICKED(IDC_INVEST_KIND_BT, &CFinanceInvestDlg::OnBnClickedInvestKindBt)
	ON_BN_CLICKED(IDC_FINANCE_INVEST_ADD_BT, &CFinanceInvestDlg::OnBnClickedFinanceInvestAddBt)
	ON_BN_CLICKED(IDC_FINANCE_INVEST_UPDATE_BT, &CFinanceInvestDlg::OnBnClickedFinanceInvestUpdateBt)
	ON_BN_CLICKED(IDC_FINANCE_INVEST_DELETE_BT, &CFinanceInvestDlg::OnBnClickedFinanceInvestDeleteBt)
	ON_BN_CLICKED(IDC_FINANCE_INVEST_SEARCH_BT, &CFinanceInvestDlg::OnBnClickedFinanceInvestSearchBt)
	ON_WM_QUERYDRAGICON()//打印
	ON_BN_CLICKED(IDC_FINANCE_INVEST_PRINT_BT, &CFinanceInvestDlg::OnBnClickedFinanceInvestPrintBt)
	ON_WM_CTLCOLOR()
	ON_NOTIFY(HDN_ITEMCLICK, 0, &CFinanceInvestDlg::OnHdnItemclickFinanceInvestList)
	ON_WM_CLOSE()
	ON_WM_CONTEXTMENU()
	ON_WM_TIMER()
	ON_COMMAND(ID_INVEST_ALL, &CFinanceInvestDlg::OnInvestAll)
	ON_COMMAND(ID_INVEST_KIND, &CFinanceInvestDlg::OnInvestKind)
	ON_COMMAND(ID_INVEST_ADD, &CFinanceInvestDlg::OnInvestAdd)
	ON_COMMAND(ID_INVEST_UPDATE, &CFinanceInvestDlg::OnInvestUpdate)
	ON_COMMAND(ID_INVEST_DELETE, &CFinanceInvestDlg::OnInvestDelete)
	ON_COMMAND(ID_INVEST_SEARCH, &CFinanceInvestDlg::OnInvestSearch)
	ON_COMMAND(ID_INVEST_PRINT, &CFinanceInvestDlg::OnInvestPrint)
    ON_UPDATE_COMMAND_UI(ID_INVEST_UPDATE, &CFinanceInvestDlg::OnUpdateInvestUpdate )
	ON_UPDATE_COMMAND_UI(ID_INVEST_DELETE, &CFinanceInvestDlg::OnUpdateInvestDelete )
	ON_UPDATE_COMMAND_UI(ID_INVEST_PRINT, &CFinanceInvestDlg::OnUpdateInvestPrint )
    ON_WM_INITMENUPOPUP()
END_MESSAGE_MAP()

// CFinanceInvestDlg 消息处理程序
void CFinanceInvestDlg::ViewAll()
{
	BeginWaitCursor();
	CString s;
	int Length;
	m_cInvestListCtrl.DeleteAllItems ();
	if(m_pSet.IsOpen ())
		m_pSet.Close ();
	m_pSet.Open (AFX_DB_USE_DEFAULT_TYPE,L"Select * from Invest order by iStartDate");
	m_pSet.m_strFilter .Empty ();
	int count;
	count=m_pSet.GetRecordCount ();
	if(count==0)//如果该数据表为空，则不用显示
	{
		EndWaitCursor();
		m_pSet.Close ();
		return ;
	}
	m_pSet.MoveFirst ();
	int i=0; 
	while (!m_pSet.IsEOF ())
	{
		m_cInvestListCtrl.InsertItem(i,(CString)m_pSet.m_iName ,0);
		m_cInvestListCtrl.SetItemText (i,1,(CString)m_pSet.m_iKind );
		s.Format (L"%d",m_pSet.m_iQuantity );
		m_cInvestListCtrl.SetItemText (i,2,s);
		s.Format (L"%f",m_pSet.m_iPrice );
		Length=s.GetLength ();
		s.Delete (Length-4,4);
	    m_cInvestListCtrl.SetItemText (i,3,s );
		s.Format (L"%f",m_pSet.m_iSum );
		Length=s.GetLength ();
		s.Delete (Length-4,4);
	    m_cInvestListCtrl.SetItemText (i,4,s );
		m_cInvestListCtrl.SetItemText (i,5,FormatDate(m_pSet.m_iStartDate  ));
		m_cInvestListCtrl.SetItemText (i,6,FormatDate(m_pSet.m_iEndDate));
		m_cInvestListCtrl.SetItemText (i,7,(CString)m_pSet.m_iRemark  );
        s.Format (L"%d",m_pSet.m_iId );
		m_cInvestListCtrl.SetItemText (i,8,s);
        i++;
		m_pSet.MoveNext ();
	}
	m_pSet.Close ();
	//现在在右边显示个数
	m_iInvestAmount=i;
	s.Format (L"%d",m_iInvestAmount);
	SetDlgItemText(IDC_INVEST_AMOUNT_STATIC,s);//显示
	EndWaitCursor();
}
void CFinanceInvestDlg::OnBnClickedFinanceInvestAllBt()
{
	// TODO: 在此添加控件通知处理程序代码
	ViewAll();
}

void CFinanceInvestDlg::Kind()
{
	CString s;
	int Length;
	int i=0;
    CFinanceInvestKindDlg dlg;
	if(dlg.DoModal ()==IDOK)
	{
		BeginWaitCursor();
		m_cInvestListCtrl.DeleteAllItems ();
	    if(m_pSet.IsOpen ())
		    m_pSet.Close ();
	    CString str;
	    str="Select * from Invest where iKind='";
	    str+=dlg.m_sKind ;
	    str+="' order by iStartDate";
	    m_pSet.Open (AFX_DB_USE_DEFAULT_TYPE,str);	    
		m_pSet.m_strFilter .Empty ();
	    m_pSet.Requery ();
	    if(m_pSet.IsEOF ())
	    {
	        m_iInvestAmount=i;
	        s.Format (L"%d",m_iInvestAmount);
	        SetDlgItemText(IDC_INVEST_AMOUNT_STATIC,s);//显示
		    MessageBox(L"\n不存在这样的记录！\n",L"提示",MB_ICONEXCLAMATION);
		    m_pSet.Close ();
			EndWaitCursor();
		    return ;
	    }
	    else
	    {
	        if(m_pSet.GetRecordCount ()==0)
		    {
				m_iInvestAmount=i;
				s.Format (L"%d",m_iInvestAmount);
				SetDlgItemText(IDC_INVEST_AMOUNT_STATIC,s);//显示
				MessageBox(L"\n不存在这样的记录！\n",L"提示",MB_ICONEXCLAMATION);
			    m_pSet.Close ();
				EndWaitCursor();
			    return ;
		    }
		    m_pSet.MoveFirst ();
	        while (!m_pSet.IsEOF ())
	        {  
				m_cInvestListCtrl.InsertItem(i,(CString)m_pSet.m_iName ,0);
				m_cInvestListCtrl.SetItemText (i,1,(CString)m_pSet.m_iKind );
				s.Format (L"%d",m_pSet.m_iQuantity );
				m_cInvestListCtrl.SetItemText (i,2,s);
				s.Format (L"%f",m_pSet.m_iPrice );
				Length=s.GetLength ();
				s.Delete (Length-4,4);
			    m_cInvestListCtrl.SetItemText (i,3,s );
				s.Format (L"%f",m_pSet.m_iSum );
				Length=s.GetLength ();
				s.Delete (Length-4,4);
			    m_cInvestListCtrl.SetItemText (i,4,s );
				m_cInvestListCtrl.SetItemText (i,5,FormatDate(m_pSet.m_iStartDate  ));
				m_cInvestListCtrl.SetItemText (i,6,FormatDate(m_pSet.m_iEndDate));
				m_cInvestListCtrl.SetItemText (i,7,(CString)m_pSet.m_iRemark  );
			    s.Format (L"%d",m_pSet.m_iId );
				m_cInvestListCtrl.SetItemText (i,8,s);     
				m_pSet.MoveNext ();
				i++;
	        }
	        m_pSet.Close ();
	       if(i==0)
	       {
				m_iInvestAmount=i;
				s.Format (L"%d",m_iInvestAmount);
				SetDlgItemText(IDC_INVEST_AMOUNT_STATIC,s);//显示
				MessageBox(L"\n不存在这样的记录！\n",L"提示",MB_ICONEXCLAMATION);
				m_pSet.Close ();
				EndWaitCursor();
				return ;
			}
	        //现在在右边显示个数
	        m_iInvestAmount=i;
	        s.Format (L"%d",m_iInvestAmount);
	        SetDlgItemText(IDC_INVEST_AMOUNT_STATIC,s);//显示
		}
		EndWaitCursor();
	}
}
void CFinanceInvestDlg::OnBnClickedInvestKindBt()
{
	// TODO: 在此添加控件通知处理程序代码
    Kind();
}

void CFinanceInvestDlg::Add()
{
	CString s;
	int Length;
	int Quantity;
	double Price;
	double Sum;
	CFinanceInvestAddDlg dlg;
	if(dlg.DoModal ()==IDOK)
	{
		if(!theApp.m_db.CanTransact ())
		{
			//虽然不支持事务处理的数据库很少，但是我强硬地不允许这种情况出现
			MessageBox(L"\n系统不支持事务处理，添加不成功！\n",L"错误", MB_ICONSTOP);
			return ;                                    
		}
		theApp.m_db.BeginTrans ();//开始事务处理
		TRY
		{
			//先处理投资表
	        m_pSet.Open (AFX_DB_USE_DEFAULT_TYPE,L"Select * from Invest order by iStartDate");
		    m_pSet.m_strFilter.Empty ();
			m_pSet.AddNew ();
			m_pSet.m_iName=dlg.m_sName;
			m_pSet.m_iKind =dlg.m_sKind ;
			m_pSet.m_iQuantity =dlg.m_iQuantity ;
			m_pSet.m_iPrice =dlg.m_dPrice ;
			Quantity=dlg.m_iQuantity ;
			Price=dlg.m_dPrice;
            Sum=Price*Quantity;
			m_pSet.m_iSum =Sum;
			m_pSet.m_iStartDate =dlg.m_tStartDate ;
			m_pSet.m_iEndDate =dlg.m_tEndDate ;
	        m_pSet.m_iRemark =dlg.m_sRemark ;
			m_pSet.Update ();
			m_pSet.MoveLast ();
		    m_pSet.Close ();
			//再处理现金表，默认的情况是：从现金中去投资
			double MoneyLast;
			if(m_pCashSet.IsOpen ())
				m_pCashSet.Close ();
			m_pCashSet.Open (AFX_DB_USE_DEFAULT_TYPE,L"Select * from Cash order by cDate ASC");
			m_pCashSet.m_strFilter .Empty ();
			if(m_pCashSet.GetRecordCount ()==0)
				MoneyLast=0;
			else
			{
				m_pCashSet.MoveLast ();
				MoneyLast=m_pCashSet.m_cAmount ;
			}
			MoneyLast-=Sum;
			m_pCashSet.AddNew ();
			m_pCashSet.m_cAmount =MoneyLast;
			m_pCashSet.m_cDate =CTime::GetCurrentTime();
			m_pCashSet.Update();
			m_pCashSet.MoveLast ();
			m_pCashSet.Close ();
            theApp.m_db.CommitTrans ();//添加成功了
		}
		CATCH_ALL(e)
		{
			theApp.m_db.Rollback ();
		    MessageBox(L"\n事务处理出错，添加失败！\n",L"错误", MB_ICONSTOP);
			return;
	    }
	    END_CATCH_ALL
		//添加成功了，就要在列表中显示出来
		m_cInvestListCtrl.InsertItem(0,dlg.m_sName ,0);
		m_cInvestListCtrl.SetItemText (0,1,dlg.m_sKind );
		s.Format (L"%d",dlg.m_iQuantity );
		m_cInvestListCtrl.SetItemText (0,2,s);
		s.Format (L"%f",dlg.m_dPrice );
		Length=s.GetLength ();
		s.Delete (Length-4,4);
	    m_cInvestListCtrl.SetItemText (0,3,s );
		s.Format (L"%f",Sum );
		Length=s.GetLength ();
		s.Delete (Length-4,4);
	    m_cInvestListCtrl.SetItemText (0,4,s );
		m_cInvestListCtrl.SetItemText (0,5,FormatDate(dlg.m_tStartDate ));
		m_cInvestListCtrl.SetItemText (0,6,FormatDate(dlg.m_tEndDate ));
		m_cInvestListCtrl.SetItemText (0,7,dlg.m_sRemark);
        s.Format (L"%d",m_pSet.m_iId );
		m_cInvestListCtrl.SetItemText (0,8,s); 
		//然后再在个数中加一,显示给用户
		m_iInvestAmount++;
		s.Format (L"%d",m_iInvestAmount);
		SetDlgItemText(IDC_INVEST_AMOUNT_STATIC,s);//显示
	}
}
void CFinanceInvestDlg::OnBnClickedFinanceInvestAddBt()
{
	// TODO: 在此添加控件通知处理程序代码
    Add();
} 

void CFinanceInvestDlg::Update ()
{
	CString s;
	int Length;
	int Quantity;
	double Price;
	double Sum;
	POSITION pos = m_cInvestListCtrl.GetFirstSelectedItemPosition();
    if (pos == NULL)
	{
		MessageBox(L"你没有选择要修改的投资\n请在列表中选择要修改的投资！",L"提示",MB_ICONEXCLAMATION);
		return ;//没有选择表项则不用做下面的事情
	}
    else
    {
		if(!theApp.m_db.CanTransact ())
		{
			//虽然不支持事务处理的数据库很少，但是我强硬地不允许这种情况出现
			MessageBox(L"\n系统不支持事务处理，修改不成功！\n",L"错误", MB_ICONSTOP);
			return ;                                    
		}
	    int nItem = m_cInvestListCtrl.GetNextSelectedItem(pos);//列表中的项目序号也即数据库中的编号
		//下面获取该表项的数据，用于在修改对话框中显示
		int Id=_ttol(m_cInvestListCtrl.GetItemText (nItem,8));
		if(m_pSet.IsOpen ())
			m_pSet.Close ();
		m_pSet.Open ();
		m_pSet.m_strFilter .Empty ();
		m_pSet.MoveFirst ();
		while(!m_pSet.IsEOF ())
		{
			if(m_pSet.m_iId ==Id)//说明找到了相应的那个字段
			{
				m_iFinanceInvest_Id=m_pSet.m_iId ;
				m_sFinanceInvest_Name=m_pSet.m_iName ;
				m_sFinanceInvest_Kind=m_pSet.m_iKind ;
				m_iFinanceInvest_Quantity=m_pSet.m_iQuantity ;
				m_dFinanceInvest_Price=m_pSet.m_iPrice ;
				m_tFinanceInvest_StartDate=m_pSet.m_iStartDate ;
				m_tFinanceInvest_EndDate=m_pSet.m_iEndDate ;
				m_sFinanceInvest_Remark=m_pSet.m_iRemark ;
				break;
			}
			m_pSet.MoveNext ();
		}
		m_pSet.Close ();//记得要关闭!
		//下面弹出修改对话框，初始化数据由上面部分提供
		CFinanceInvestUpdateDlg dlg;
		if(dlg.DoModal ()!=IDOK)
		{
			return ;//万一用户没有输入正确信息，则退出，不给修改
		}
		theApp.m_db.BeginTrans ();//开始事务处理
		TRY
		{
			//先修改投资表
	        m_pSet.Open (AFX_DB_USE_DEFAULT_TYPE,L"Select * from Invest order by iStartDate");
		    m_pSet.m_strFilter.Empty ();
			m_pSet.MoveFirst ();//刚开始移动到第一个位置
			while(!m_pSet.IsEOF ())
			{
				if(m_pSet.m_iId ==m_iFinanceInvest_Id)
				{
					m_pSet.Edit ();
					m_pSet.m_iName=dlg.m_sName;
					m_pSet.m_iKind =dlg.m_sKind ;
					m_pSet.m_iQuantity =dlg.m_iQuantity ;
					m_pSet.m_iPrice =dlg.m_dPrice ;
					Quantity=dlg.m_iQuantity ;
					Price=dlg.m_dPrice;
			        Sum=Price*Quantity;
					m_pSet.m_iSum =Sum;
					m_pSet.m_iStartDate =dlg.m_tStartDate ;
					m_pSet.m_iEndDate =dlg.m_tEndDate ;
			        m_pSet.m_iRemark =dlg.m_sRemark ;
			        m_pSet.Update ();
			        m_pSet.Requery ();
					m_pSet.MoveNext ();
					break;
				}
				m_pSet.MoveNext ();
			}
        m_pSet.Close ();
		//再处理现金表，默认的情况是：从现金中去投资
		double MoneyLast;
		if(m_pCashSet.IsOpen ())
			m_pCashSet.Close ();
		m_pCashSet.Open (AFX_DB_USE_DEFAULT_TYPE,L"Select * from Cash order by cDate ASC");
		m_pCashSet.m_strFilter .Empty ();
		if(m_pCashSet.GetRecordCount ()==0)
			MoneyLast=0;
		else
		{
			m_pCashSet.MoveLast ();
			MoneyLast=m_pCashSet.m_cAmount ;
		}
		//先要假设把投资出去的钱原封不动的拿回来
		MoneyLast+=m_dFinanceInvest_Price*m_iFinanceInvest_Quantity;
		//然后再减去这次修改后的投资额
		MoneyLast-=Sum;
		m_pCashSet.AddNew ();
		m_pCashSet.m_cAmount =MoneyLast;
		m_pCashSet.m_cDate =CTime::GetCurrentTime();
		m_pCashSet.Update();
		m_pCashSet.MoveLast ();
		m_pCashSet.Close ();
        theApp.m_db.CommitTrans ();//修改成功了
		}
		CATCH_ALL(e)
		{
			theApp.m_db.Rollback ();
		    MessageBox(L"\n事务处理出错，修改失败！\n",L"错误", MB_ICONSTOP);
			return;
	    }
	    END_CATCH_ALL
		//修改成功了，就要把新的在列表中显示出来，同时去掉旧的
		//先去掉旧的
		m_cInvestListCtrl.DeleteItem (nItem);
		//再添加新的
		m_cInvestListCtrl.InsertItem(nItem,dlg.m_sName ,0);
		m_cInvestListCtrl.SetItemText (nItem,1,dlg.m_sKind );
		s.Format (L"%d",dlg.m_iQuantity );
		m_cInvestListCtrl.SetItemText (nItem,2,s);
		s.Format (L"%f",dlg.m_dPrice );
		Length=s.GetLength ();
		s.Delete (Length-4,4);
	    m_cInvestListCtrl.SetItemText (nItem,3,s );
		s.Format (L"%f",Sum );
		Length=s.GetLength ();
		s.Delete (Length-4,4);
	    m_cInvestListCtrl.SetItemText (nItem,4,s );
		m_cInvestListCtrl.SetItemText (nItem,5,FormatDate(dlg.m_tStartDate ));
		m_cInvestListCtrl.SetItemText (nItem,6,FormatDate(dlg.m_tEndDate ));
		m_cInvestListCtrl.SetItemText (nItem,7,dlg.m_sRemark);
        s.Format (L"%d",m_iFinanceInvest_Id);
		m_cInvestListCtrl.SetItemText (nItem,8,s); 
	}
}
void CFinanceInvestDlg::OnBnClickedFinanceInvestUpdateBt()
{
	// TODO: 在此添加控件通知处理程序代码
    Update();
}

void CFinanceInvestDlg::Delete ()
{
	POSITION pos = m_cInvestListCtrl.GetFirstSelectedItemPosition();
    if (pos == NULL)
	{
		MessageBox(L"\n你没有选中任何一个投资，不可以删除！\n",L"提示",MB_ICONEXCLAMATION);
	}
    else
   {