userdatadlg.cpp

vc编程实现bp神经网络

// UserDataDlg.cpp : implementation file
//

#include "stdafx.h"
#include "optsoftware.h"
#include "UserDataDlg.h"
//#include "LinearRegressionFRMV.h"

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

CDaoDatabase m_Db;    //DAO数据库对象；
CDaoRecordset m_set;  //记录集对象；
//short m_Nt;           //表的数目；
CString tn;           //树状控件节点对应表名；

int VariInCnt=0, VariOutCnt=0;
int SampleStart=0,SampleEnd=0;
CString ModelName;
int nModelMethod;

/////////////////////////////////////////////////////////////////////////////
// CUserDataDlg dialog


CUserDataDlg::CUserDataDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CUserDataDlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CUserDataDlg)
	m_ModelName = _T("");
	m_RowEnd = 0;
	m_RowStart = 0;
	m_ColNum = 0;
	m_nModelMethod = -1;
	//}}AFX_DATA_INIT
}


void CUserDataDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CUserDataDlg)
	DDX_Control(pDX, IDC_VLIST1, m_VList);
	DDX_Control(pDX, IDC_USDATATREE, m_UsDataTree);
	DDX_Control(pDX, IDC_USDATALIST, m_UsDataList);
	DDX_Control(pDX, IDC_MODELVLIST, m_ModelVList);
	DDX_Text(pDX, IDC_EDT_MODELNAME, m_ModelName);
	DDX_Text(pDX, IDC_EDT_ROWEND, m_RowEnd);
	DDX_Text(pDX, IDC_EDT_ROWSTART, m_RowStart);
	DDX_Text(pDX, IDC_EDT_COLNUM, m_ColNum);
	DDX_CBIndex(pDX, IDC_COMBO_METHOD, m_nModelMethod);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CUserDataDlg, CDialog)
	//{{AFX_MSG_MAP(CUserDataDlg)
	ON_BN_CLICKED(IDC_BTN_BROWSE, OnBtnBrowse)
	ON_NOTIFY(NM_SETFOCUS, IDC_USDATATREE, OnSetfocusUsdatatree)
	ON_NOTIFY(TVN_SELCHANGED, IDC_USDATATREE, OnSelchangedUsdatatree)
	ON_BN_CLICKED(IDC_BTN_REFRESH, OnBtnRefresh)
	ON_BN_CLICKED(IDC_BTN_MVNEXT, OnBtnMvnext)
	ON_NOTIFY(NM_CLICK, IDC_VLIST1, OnClickVlist1)
	ON_NOTIFY(NM_CLICK, IDC_MODELVLIST, OnClickModelvlist)
	ON_NOTIFY(NM_CLICK, IDC_USDATALIST, OnClickUsdatalist)
	ON_BN_CLICKED(IDC_BTN_DELETE, OnBtnDelete)
	ON_BN_CLICKED(IDC_BTN_VDELETE, OnBtnVdelete)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CUserDataDlg message handlers

void CUserDataDlg::OnBtnBrowse() 
{
	// 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_UsDataTree.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_UsDataTree.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_UsDataTree.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_UsDataTree.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_UsDataList.DeleteAllItems();
			while(m_UsDataList.DeleteColumn(0));
			//(CButton *)GetDlgItem(IDC_EXECUTE)->EnableWindow(FALSE);
			//(CEdit *)GetDlgItem(IDC_EDIT1)->EnableWindow(FALSE);
			return;
		}
	}
}

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

void CUserDataDlg::OnSelchangedUsdatatree(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_UsDataTree.GetSelectedItem();
//	CString tn;
	//如果选择的是表名：
	if(m_UsDataTree.GetParentItem(hi)==m_hTr)
	{
		ShowTable(hi);
	}
	//如果选择的是数据库名：
    else if(hi==m_hTr)
	{
		ShowDatabaseInfo();
		return;
	}
	//如果选择的是字段名：
	else
	{
		ShowFieldInfo(hi);
		return;
	}
	*pResult = 0;
}

CString CUserDataDlg::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 CUserDataDlg::ShowDatabaseInfo()
{
		m_UsDataList.SetRedraw(FALSE);
		m_UsDataList.DeleteAllItems ();
		while(m_UsDataList.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 = 120;
		lc.iSubItem = 0;
		lc.pszText = "项目名称";
		m_UsDataList.InsertColumn(0, &lc);
		lc.pszText = "属性";
		m_UsDataList.InsertColumn(1, &lc);
	//2. 添加各个项目（各行）：
		LVITEM Item;
		CString Info;
		Item.mask=LVIF_TEXT;
		Item.iSubItem=0;

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

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

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

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

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

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

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

	phi=m_UsDataTree.GetParentItem(hi);
	//读取表名：
	tn=m_UsDataTree.GetItemText(phi);
	//读取字段名：
	fn=m_UsDataTree.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 = 120;
		lc.iSubItem = 0;
		lc.pszText = "项目名称";
		m_UsDataList.InsertColumn(0, &lc);
		lc.pszText = "属性";
		m_UsDataList.InsertColumn(1, &lc);
	//2. 添加各个项目（各行）：
		LVITEM Item;
		Item.mask=LVIF_TEXT;
		Item.iSubItem=0;

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

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

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

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