// ADOTestDlg.cpp : implementation file
//

#include "stdafx.h"
#include "ADOTest.h"
#include "ADOTestDlg.h"

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

/////////////////////////////////////////////////////////////////////////////
// CAboutDlg dialog used for App About
class CAboutDlg : public CDialog
{
public:
	CAboutDlg();

// Dialog Data
	//{{AFX_DATA(CAboutDlg)
	enum { IDD = IDD_ABOUTBOX };
	//}}AFX_DATA

	// ClassWizard generated virtual function overrides
	//{{AFX_VIRTUAL(CAboutDlg)
	protected:
	virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
	//}}AFX_VIRTUAL

// Implementation
protected:
	//{{AFX_MSG(CAboutDlg)
	//}}AFX_MSG
	DECLARE_MESSAGE_MAP()
};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
	//{{AFX_DATA_INIT(CAboutDlg)
	//}}AFX_DATA_INIT
}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CAboutDlg)
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
	//{{AFX_MSG_MAP(CAboutDlg)
		// No message handlers
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CADOTestDlg dialog

CADOTestDlg::CADOTestDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CADOTestDlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CADOTestDlg)
	//}}AFX_DATA_INIT
	// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CADOTestDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CADOTestDlg)
	DDX_Control(pDX, IDC_EDIT1, m_Edit);
	DDX_Control(pDX, IDC_LIST1, m_List);
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CADOTestDlg, CDialog)
	//{{AFX_MSG_MAP(CADOTestDlg)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	ON_BN_CLICKED(IDC_EXECUTE, OnExecute)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CADOTestDlg message handlers

BOOL CADOTestDlg::OnInitDialog()
{
	CDialog::OnInitDialog();

	// Add "About..." menu item to system menu.

	// IDM_ABOUTBOX must be in the system command range.
	ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
	ASSERT(IDM_ABOUTBOX < 0xF000);

	CMenu* pSysMenu = GetSystemMenu(FALSE);
	if (pSysMenu != NULL)
	{
		CString strAboutMenu;
		strAboutMenu.LoadString(IDS_ABOUTBOX);
		if (!strAboutMenu.IsEmpty())
		{
			pSysMenu->AppendMenu(MF_SEPARATOR);
			pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
		}
	}

	// Set the icon for this dialog.  The framework does this automatically
	//  when the application's main window is not a dialog
	SetIcon(m_hIcon, TRUE);			// Set big icon
	SetIcon(m_hIcon, FALSE);		// Set small icon
	
	// TODO: Add extra initialization here
	m_Db.Open("Company");
	m_set.m_pDatabase=&m_Db;
	ShowTable();
	return TRUE;  // return TRUE  unless you set the focus to a control
}

void CADOTestDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
	if ((nID & 0xFFF0) == IDM_ABOUTBOX)
	{
		CAboutDlg dlgAbout;
		dlgAbout.DoModal();
	}
	else
	{
		CDialog::OnSysCommand(nID, lParam);
	}
}

// If you add a minimize button to your dialog, you will need the code below
//  to draw the icon.  For MFC applications using the document/view model,
//  this is automatically done for you by the framework.

void CADOTestDlg::OnPaint() 
{
	if (IsIconic())
	{
		CPaintDC dc(this); // device context for painting

		SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);

		// Center icon in client rectangle
		int cxIcon = GetSystemMetrics(SM_CXICON);
		int cyIcon = GetSystemMetrics(SM_CYICON);
		CRect rect;
		GetClientRect(&rect);
		int x = (rect.Width() - cxIcon + 1) / 2;
		int y = (rect.Height() - cyIcon + 1) / 2;

		// Draw the icon
		dc.DrawIcon(x, y, m_hIcon);
	}
	else
	{
		CDialog::OnPaint();
	}
}

// The system calls this to obtain the cursor to display while the user drags
//  the minimized window.
HCURSOR CADOTestDlg::OnQueryDragIcon()
{
	return (HCURSOR) m_hIcon;
}

CString CADOTestDlg::GetVariantString(_variant_t var)
{
	CString str;
	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 CADOTestDlg::ShowTable(LPCTSTR lpszSQL)
{
	if(!m_Db.IsOpen())
	{
		AfxMessageBox("數據庫沒有打開！");
	}

	if(m_set.IsOpen())
	{
		m_set.Close();
	}

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

	m_set.Open(lpszSQL);

	//1. 添加列：
	short i,j;
	short nFields;
	CString str;
    LV_COLUMN lc;
    lc.mask = LVCF_FMT | LVCF_WIDTH |
    	          LVCF_TEXT | LVCF_SUBITEM;
	nFields=m_set.GetFieldCount();
	for(i=0;i<nFields;i++)
	{
		str=m_set.GetFieldName(i);
	    lc.iSubItem = i;
		lc.fmt = LVCFMT_CENTER;
	    lc.cx = str.GetLength()*10+16;
	    lc.pszText=str.GetBuffer(str.GetLength());
	    m_List.InsertColumn(i, &lc);
	}
	//2. 添加行：
	LV_ITEM Item;
	i=0;
	if(m_set.IsEOF())
	{
		AfxMessageBox("當前視圖沒有記錄！");
		return;
	}

	m_set.MoveFirst();
	i=0;
	j=0;
	while(m_set.IsEOF()==0)
	{
		Item.mask=LVIF_TEXT;
		//第i 行：
	    Item.iItem=i;

		//第一列：
   	    Item.iSubItem=0;
		_variant_t vars;
		vars=m_set.GetFieldValue(0);
		str=GetVariantString(vars);
		Item.pszText=str.GetBuffer(str.GetLength());
	    m_List.InsertItem(&Item);
		//其它各列：
		for(j=1;j<nFields;j++)
		{
			//獲取數據:
			vars.Clear();
			vars=m_set.GetFieldValue(j);
			m_List.SetItemText(i,j,(_bstr_t) vars);
		}

		m_set.MoveNext();
		i++;//計數器；
    }
	m_List.SetRedraw();
	if(m_set.IsOpen())
	{
		m_set.Close();
	}
}

void CADOTestDlg::Close()
{
	if(m_Db.IsOpen())
	{
		m_Db.Close();
	}
	if(m_set.IsOpen())
	{
		m_set.Close();
	}
}

int CADOTestDlg::DoModal() 
{
	// TODO: Add your specialized code here and/or call the base class
	int re=CDialog::DoModal();
	Close();
	return re;
}

void CADOTestDlg::OnExecute() 
{
	// TODO: Add your control notification handler code here
	if(!m_Db.IsOpen())
	{
		return;
	}
	CString sql;
	m_Edit.GetWindowText(sql);
	sql.MakeUpper();
	if(sql.Find("SELECT")!=-1)
	{
		ShowTable(sql);
	}
	else
	{
		m_Db.Execute(sql);
	}
}