forecastdlg.cpp

vc编程实现bp神经网络

// ForecastDlg.cpp : implementation file
//

#include "stdafx.h"
#include "optsoftware.h"
#include "ForecastDlg.h"
#include "UserDataDlg.h"

#include "VcPlot.h"
#include "VcAxis.h"
#include "VcValueScale.h"
#include "VcSeriesCollection.h"
#include "VcSeries.h"
#include "VcPen.h"
#include "VcCategoryScale.h"
#include "VcColor.h"
#include "VcDataGrid.h"
#include "VcBackdrop.h"
#include "VcFill.h"
#include "VcBrush.h"
#include "VcDataPoints.h"
#include "VcDataPoint.h"
#include "VcDataPointLabel.h"
#include "VcAxisTitle.h"

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

/////////////////////////////////////////////////////////////////////////////
// CForecastDlg dialog


CForecastDlg::CForecastDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CForecastDlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CForecastDlg)
	m_ColStart = 0;
	m_ColEnd = 0;
	m_Check = FALSE;
	m_ResultCol = 0;
	//}}AFX_DATA_INIT
	m_pMemDC=new CDC;
	m_pBitmap=new CBitmap;
	Pen[0].CreatePen(PS_SOLID,2,RGB(0,0,0));//黑色边界线
	Pen[1].CreatePen(PS_SOLID,1,RGB(192,192,192));//浅灰色背景线
	Pen[2].CreatePen(PS_SOLID,1,RGB(128,128,128));//深灰色背景分隔线
	Pen[3].CreatePen(PS_SOLID,2,RGB(255,0,0));//Red粗 曲线画笔
	Pen[4].CreatePen(PS_SOLID,2,RGB(0,0,255));//Blue 粗曲线画笔
	Pen[5].CreatePen(PS_SOLID,1,RGB(255,0,0));//Red细 曲线画笔
	Pen[6].CreatePen(PS_SOLID,1,RGB(0,0,255));//Blue 细曲线画笔
    Pen[7].CreatePen(PS_SOLID,1,RGB(145,0,0));//熟料曲线画笔
	Pen[8].CreatePen(PS_SOLID,2,RGB(0,255,0));//生料曲线画笔
	
	LoadTag=false;
	ForecastTag=false;
	if (m_set.IsOpen())
		m_set.Close();
}


void CForecastDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CForecastDlg)
	DDX_Control(pDX, IDC_FORECASTLIST, m_ForecastList);
	DDX_Control(pDX, IDC_TREE1, m_Tree1);
	DDX_Control(pDX, IDC_LIST1, m_List1);
	DDX_Text(pDX, IDC_COLSTART, m_ColStart);
	DDX_Text(pDX, IDC_COLEND, m_ColEnd);
	DDX_Check(pDX, IDC_RESULTCHECK, m_Check);
	DDX_Text(pDX, IDC_RESULTCOL, m_ResultCol);
	DDX_Control(pDX, IDC_MSCHART, m_Chart);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CForecastDlg, CDialog)
	//{{AFX_MSG_MAP(CForecastDlg)
	ON_BN_CLICKED(IDC_BROWSE, OnBrowse)
	ON_NOTIFY(TVN_SELCHANGED, IDC_TREE1, OnSelchangedTree1)
	ON_NOTIFY(NM_SETFOCUS, IDC_TREE1, OnSetfocusTree1)
	ON_BN_CLICKED(IDC_BROWSEMODEL, OnBrowsemodel)
	ON_WM_CANCELMODE()
	ON_BN_CLICKED(IDC_RESULTCHECK, OnResultcheck)
	ON_WM_CAPTURECHANGED()
	ON_BN_CLICKED(IDC_CURVE, OnCurve)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CForecastDlg message handlers

void CForecastDlg::OnBrowse() 
{
	// TODO: Add your control notification handler code here
	int i;
	HTREEITEM hi;
	CFileDialog fd(TRUE,NULL,NULL,
		           OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT,
				   "Microsoft Access Database(*.mdb)|"
				   "*.mdb|All Files(*.*)|*.*||"
				   );

	if(fd.DoModal()==IDOK)
	{
		CString fn;
		fn=fd.GetPathName();
		if(m_Db.IsOpen())
		{
			m_Db.Close();
			m_Tree1.DeleteAllItems();
			m_hTr=0;
//			(CButton *)GetDlgItem(IDC_EXECUTE)->EnableWindow(FALSE);
//			(CEdit *)GetDlgItem(IDC_EDIT1)->EnableWindow(FALSE);
		}
		try
		{
	 		m_Db.Open(fn);
			CString nDb;
			nDb=m_Db.GetName();
			m_hTr=m_Tree1.InsertItem(nDb);
			m_Nt=m_Db.GetTableDefCount();
			if(m_Nt!=0)
			{
				CDaoTableDefInfo tinfo;
				CDaoTableDef td(&m_Db);
				CDaoFieldInfo fi;
				for(i=0;i<m_Nt;i++)
				{
					m_Db.GetTableDefInfo(i,tinfo);
					if (tinfo.m_lAttributes&dbSystemObject)
					{
						continue;
					}
					hi=m_Tree1.InsertItem(tinfo.m_strName,m_hTr);
					//读取每一个表的字段信息：
					td.Open(tinfo.m_strName);
					short nFields = td.GetFieldCount();
					for(short i=0;i<nFields;i++)
					{
						td.GetFieldInfo(i,fi);
						m_Tree1.InsertItem(fi.m_strName,hi);
					}
					td.Close();
				}
			}
			ShowDatabaseInfo();
//			(CButton *)GetDlgItem(IDC_EXECUTE)->EnableWindow(TRUE);
//			(CEdit *)GetDlgItem(IDC_EDIT1)->EnableWindow(TRUE);
		}
		catch(CDaoException* e)
		{
			AfxMessageBox(e->m_pErrorInfo->m_strDescription,
				          MB_ICONEXCLAMATION);
			e->Delete();
			if(m_Db.IsOpen())
			{
				m_Db.Close();
			}
			m_List1.DeleteAllItems();
			while(m_List1.DeleteColumn(0));
//			(CButton *)GetDlgItem(IDC_EXECUTE)->EnableWindow(FALSE);
//			(CEdit *)GetDlgItem(IDC_EDIT1)->EnableWindow(FALSE);
			return;
		}
	}
	
}

void CForecastDlg::ShowDatabaseInfo()
{
		m_List1.SetRedraw(FALSE);
		m_List1.DeleteAllItems ();
		while(m_List1.DeleteColumn(0));

		CDaoDatabaseInfo di;
		m_Db.m_pWorkspace->GetDatabaseInfo(0,di);
	//1. 添加列：
		LV_COLUMN lc;
		lc.mask = LVCF_FMT | LVCF_WIDTH |
				  LVCF_TEXT | LVCF_SUBITEM;
		lc.fmt = LVCFMT_CENTER;
		lc.cx = 90;
		lc.iSubItem = 0;
		lc.pszText = "项目名称";
		m_List1.InsertColumn(0, &lc);
		lc.pszText = "属性";
		m_List1.InsertColumn(1, &lc);
	//2. 添加各个项目（各行）：
		LVITEM Item;
		CString Info;
		Item.mask=LVIF_TEXT;
		Item.iSubItem=0;

		Item.iItem=0;
		Item.pszText=_T("数据库名称：");
		m_List1.InsertItem(&Item);

		Item.iItem=1;
		Item.pszText=_T("是否可写：");
		m_List1.InsertItem(&Item);
		Item.iItem=2;
		Item.pszText=_T("是否允许事务处理：");
		m_List1.InsertItem(&Item);

	//3. 设置各个子项的字符串：
		Info=di.m_strName;
		m_List1.SetItemText(0,1,Info);

		if(di.m_bUpdatable)
		{
			Info="可写";
		}
		else
		{
			Info="只读";
		}
		m_List1.SetItemText(1,1,Info);

		if(di.m_bTransactions)
		{
			Info="允许";
		}
		else
		{
			Info="不允许";
		}
		m_List1.SetItemText(2,1,Info);
		m_List1.SetRedraw();
		m_List1.Invalidate();
}

void CForecastDlg::ShowTable(HTREEITEM hi)
{
	//读取表名：
	int i;
//	CString tn;
    tn=m_Tree1.GetItemText(hi);
	m_List1.SetRedraw(FALSE);
	m_List1.DeleteAllItems ();
    while(m_List1.DeleteColumn(0));

	CDaoTableDef td(&m_Db);
	CDaoFieldInfo fi;
	td.Open(tn);
	if(m_set.IsOpen())
		m_set.Close();
	m_set.Open(&td);
//1. 添加列：
	LV_COLUMN lc;
	lc.mask = LVCF_FMT | LVCF_WIDTH |
		      LVCF_TEXT | LVCF_SUBITEM;
	lc.fmt = LVCFMT_CENTER;
	lc.cx = 90;
	lc.iSubItem = 0;
	for(i=0;i<m_set.GetFieldCount();i++)
	{
		m_set.GetFieldInfo(i,fi);
		lc.pszText = fi.m_strName.GetBuffer(fi.m_strName.GetLength());
		m_List1.InsertColumn(i, &lc);
	}

//2. 添加各个项目（各行）：
	LVITEM Item;
	CString str;
	long nItem;
	COleVariant var;
	m_set.MoveFirst();
	nItem=0;
	while(!m_set.IsEOF())
	{
		Item.mask=LVIF_TEXT;
		Item.iItem=nItem;
		Item.iSubItem=0;
		m_set.GetFieldValue(0,var);
		str=GetVariantString(var);
		Item.pszText=str.GetBuffer(str.GetLength());
		m_List1.InsertItem(&Item);
		for(i=1;i<m_set.GetFieldCount();i++)
		{
//3. 设置各个子项的字符串：
			m_set.GetFieldValue(i,var);
			str=GetVariantString(var);
			m_List1.SetItemText(nItem,i,str);
		}
		m_set.MoveNext();
		nItem++;
	}
	m_set.Close();
	m_List1.SetRedraw();
	m_List1.Invalidate();
}

void CForecastDlg::ShowFieldInfo(HTREEITEM hi)
{
	CString fn;
//	int i;
	HTREEITEM phi;

	m_List1.SetRedraw(FALSE);
	m_List1.DeleteAllItems ();
	while(m_List1.DeleteColumn(0));

	phi=m_Tree1.GetParentItem(hi);
	//读取表名：
	tn=m_Tree1.GetItemText(phi);
	//读取字段名：
	fn=m_Tree1.GetItemText(hi);

	CDaoTableDef td(&m_Db);
	td.Open(tn);
	try
	{
		m_set.Open(&td);
		CDaoFieldInfo fi;//字段信息；
		m_set.GetFieldInfo(fn,fi);
	//1. 添加列：
		LV_COLUMN lc;
		lc.mask = LVCF_FMT | LVCF_WIDTH |
				  LVCF_TEXT | LVCF_SUBITEM;
		lc.fmt = LVCFMT_CENTER;
		lc.cx = 90;
		lc.iSubItem = 0;
		lc.pszText = "项目名称";
		m_List1.InsertColumn(0, &lc);
		lc.pszText = "属性";
		m_List1.InsertColumn(1, &lc);
	//2. 添加各个项目（各行）：
		LVITEM Item;
		Item.mask=LVIF_TEXT;
		Item.iSubItem=0;

		Item.iItem=0;
		Item.pszText=_T("字段名称：");
		m_List1.InsertItem(&Item);

		Item.iItem=1;
		Item.pszText=_T("字段数据类型：");
		m_List1.InsertItem(&Item);

		Item.iItem=2;
		Item.pszText=_T("字段所占字节数：");
		m_List1.InsertItem(&Item);

		Item.iItem=3;
		Item.pszText=_T("字段属性：");
		m_List1.InsertItem(&Item);
	//3. 设置各个子项的字符串：
		m_List1.SetItemText(0,1,fi.m_strName.GetBuffer(fi.m_strName.GetLength()));
		switch(fi.m_nType)
		{
			case dbBoolean:
			{
				m_List1.SetItemText(1,1,"BOOL");
				m_List1.SetItemText(2,1,"1");
				break;
			}
			case dbByte:
			{
				m_List1.SetItemText(1,1,"BYTE");
				m_List1.SetItemText(2,1,"1");
				break;
			}
			case dbInteger:
			{
				m_List1.SetItemText(1,1,"short");
				m_List1.SetItemText(2,1,"2");
				break;
			}
			case dbLong:
			{
				m_List1.SetItemText(1,1,"long");
				m_List1.SetItemText(2,1,"4");
				break;
			}
			case dbCurrency:
			{
				m_List1.SetItemText(1,1,"COleCurrency");
				m_List1.SetItemText(2,1,"8");
				break;
			}
			case dbSingle:
			{
				m_List1.SetItemText(1,1,"float");
				m_List1.SetItemText(2,1,"4");
				break;
			}
			case dbDouble:
			{
				m_List1.SetItemText(1,1,"double");
				m_List1.SetItemText(2,1,"8");
				break;
			}
			case dbDate:
			{
				m_List1.SetItemText(1,1,"COleDateTime");
				m_List1.SetItemText(2,1,"8");
				break;
			}
			case dbText:
			{
				m_List1.SetItemText(1,1,"CString");
				m_List1.SetItemText(2,1,"1-255");
				break;
			}
			case dbLongBinary:
			{
				m_List1.SetItemText(1,1,"CByteArray");
				m_List1.SetItemText(2,1,"0");
				break;
			}
			case dbMemo:
			{
				m_List1.SetItemText(1,1,"CString");
				m_List1.SetItemText(2,1,"0");
				break;
			}
			case dbGUID:
			{
				m_List1.SetItemText(1,1,"GUID");
				m_List1.SetItemText(2,1,"16");
				break;
			}
		}
		CString Info="";
		if(fi.m_lAttributes&dbFixedField)
		{
			Info+="dbFixedField ";
		}
		if(fi.m_lAttributes&dbVariableField)
		{
			Info+="dbVariableField ";
		}
		if(fi.m_lAttributes&dbAutoIncrField)
		{
			Info+="dbAutoIncrField ";
		}
		if(fi.m_lAttributes&dbUpdatableField)
		{
			Info+="dbUpdatableField ";
		}
		if(fi.m_lAttributes&dbDescending)
		{
			Info+="dbDescending ";
		}
		m_List1.SetItemText(3,1,Info);
		m_List1.SetRedraw();
		m_List1.Invalidate();
		m_set.Close();
		td.Close();
	}
	catch(CDaoException* e)
	{
		AfxMessageBox(e->m_pErrorInfo->m_strDescription,
			          MB_ICONEXCLAMATION);
		e->Delete();
		if(m_set.IsOpen())
		{
			m_set.Close();
		}
		if(td.IsOpen())
		{
			td.Close();
		}
		return;
	}
}

CString CForecastDlg::GetVariantString(COleVariant var)
{
	CString str;
	switch(var.vt)
	{
	case VT_BSTR:
		str=(LPCTSTR)var.bstrVal;
		break;
	case VT_I2:
		str.Format("%d",(int)var.iVal);
		break;
	case VT_I4:
		str.Format("%d",var.lVal);
		break;
	case VT_R4:
		str.Format("%10.5f",(double)var.fltVal);
		break;
	case VT_R8:
		str.Format("%10.5f",var.dblVal);
		break;
	case VT_CY:
		str=COleCurrency(var).Format();
		break;
	case VT_DATE:
		str=COleDateTime(var).Format();
		break;
	case VT_BOOL:
		str=(var.boolVal==0)?"FALSE":"TRUE";
		break;
	case VT_NULL:
		str="----";
		break;
	default:
		str.Format("Unknown type %d",var.vt);
		TRACE("Unknown type %d",var.vt);
	}
	return str;
}

void CForecastDlg::OnSelchangedTree1(NMHDR* pNMHDR, LRESULT* pResult) 
{
	NM_TREEVIEW* pNMTreeView = (NM_TREEVIEW*)pNMHDR;
	// TODO: Add your control notification handler code here
	if(!m_Db.IsOpen())
	{
		return;
	}

	HTREEITEM hi=m_Tree1.GetSelectedItem();
//	CString tn;
	//如果选择的是表名：
	if(m_Tree1.GetParentItem(hi)==m_hTr)
	{
		ShowTable(hi);
	}
	//如果选择的是数据库名：
    else if(hi==m_hTr)
	{
		ShowDatabaseInfo();
		return;
	}
	//如果选择的是字段名：
	else
	{
		ShowFieldInfo(hi);
		return;
	}
	*pResult = 0;
}

void CForecastDlg::OnSetfocusTree1(NMHDR* pNMHDR, LRESULT* pResult) 
{
	// TODO: Add your control notification handler code here
	if(!m_Db.IsOpen())
	{
		return;
	}
	HTREEITEM hi=m_Tree1.GetSelectedItem();
	//如果选择的是表名：
	if(m_Tree1.GetParentItem(hi)==m_hTr)
	{
		ShowTable(hi);
	}
	//如果选择的是数据库名：
    else if(hi==m_hTr)
	{
		ShowDatabaseInfo();
		return;
	}
	//如果选择的是字段名：
	else
	{
		ShowFieldInfo(hi);
		return;
	}
	*pResult = 0;
}

void CForecastDlg::OnBrowsemodel() 
{
	// TODO: Add your control notification handler code here
    static char BASED_CODE szFilter[] = TEXT("文本文件(*.txt)|*.txt|All Files (*.*)|*.*||");
	static char BASED_CODE lpszDefExt[] = TEXT("txt");
	CString m_strModel;
	//Create the dialog to select the demo data file to load the data
	CFileDialog dlg(TRUE,
		            lpszDefExt,
					NULL,
					OFN_READONLY		| 
					OFN_FILEMUSTEXIST   |
					OFN_PATHMUSTEXIST,
					szFilter,
					this);

	if(dlg.DoModal () == IDOK)
	{