// SQL_DialogDlg.cpp : implementation file
//

#include  "stdafx.h" 
#include  "SQL_Dialog.h" 
#include  "SQL_DialogDlg.h" 

#include <sql.h>
#include <sqlext.h>
#include <odbcss.h>
#include <afxdb.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_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()

/////////////////////////////////////////////////////////////////////////////
// CSQL_DialogDlg dialog

CSQL_DialogDlg::CSQL_DialogDlg(CWnd* pParent  /*=NULL*/ )
	: CDialog(CSQL_DialogDlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CSQL_DialogDlg)
		// NOTE: the ClassWizard will add member initialization here
	//}}AFX_DATA_INIT
	// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CSQL_DialogDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CSQL_DialogDlg)
		// NOTE: the ClassWizard will add DDX and DDV calls here
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CSQL_DialogDlg, CDialog)
	//{{AFX_MSG_MAP(CSQL_DialogDlg)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	ON_BN_CLICKED(IDC_BUTTON1, OnButton1)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CSQL_DialogDlg message handlers

BOOL CSQL_DialogDlg::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
	
	return TRUE;  // return TRUE  unless you set the focus to a control
}

void CSQL_DialogDlg::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 CSQL_DialogDlg::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 CSQL_DialogDlg::OnQueryDragIcon()
{
	return (HCURSOR) m_hIcon;
}

void CSQL_DialogDlg::OnButton1() 
{
	// TODO: Add your control notification handler code here
    SQLHENV     henv = SQL_NULL_HENV;
    SQLHDBC     hdbc1 = SQL_NULL_HDBC;     
    SQLHSTMT    hstmt1 = SQL_NULL_HSTMT;
    RETCODE retcode;
    // SQLBindCol variables
%af_src_comm_1
    // Allocate the ODBC Environment and save handle.
    retcode = SQLAllocHandle (SQL_HANDLE_ENV, NULL, &henv);
    // Let ODBC know this is an ODBC 3.0 application.
    retcode = SQLSetEnvAttr(henv, SQL_ATTR_ODBC_VERSION, (SQLPOINTER) SQL_OV_ODBC3, SQL_IS_INTEGER);
    // Allocate an ODBC connection and connect.
    retcode = SQLAllocHandle(SQL_HANDLE_DBC, henv, &hdbc1);
    retcode = SQLConnect(hdbc1,
                (SQLCHAR*)"For_Test", SQL_NTS,    (SQLCHAR*)"sa", SQL_NTS,  (SQLCHAR*)"sql", SQL_NTS);
    // Allocate a statement handle.CashierSystemARS   For_Test
    retcode = SQLAllocHandle(SQL_HANDLE_STMT, hdbc1, &hstmt1);

    if ( retcode != SQL_SUCCESS )
    {
    }
    // Prepare and execute an SQL statement on the statement handle.
    // Uses a default result set because no cursor attributes are set.
    
SQLCHAR      szSalesPerson[15];
SDWORD    cbParm1=SQL_NTS;
SQLINTEGER    cbName;
    retcode = SQLBindParameter(hstmt1,1,SQL_PARAM_OUTPUT,SQL_C_CHAR,
            SQL_CHAR,15,0,szSalesPerson,0,&cbParm1);

    // Bind the output parameter to variable sParm2.
   

    retcode = SQLExecDirect(hstmt1,(SQLCHAR*)"EXEC YYY_ttt1  \'d:\\mssql7\\data\\\' ",SQL_NTS);
    if ( retcode == SQL_SUCCESS )
    {
        retcode = SQLFetch(hstmt1);
        retcode = SQLGetData(hstmt1, 1, SQL_C_CHAR, szSalesPerson, 15, &cbName);
        retcode = SQLFetch(hstmt1);
        retcode = SQLGetData(hstmt1, 1, SQL_C_CHAR, szSalesPerson, 15, &cbName);

        retcode = SQLMoreResults(hstmt1) ;
        retcode = SQLFetch(hstmt1);
        retcode = SQLGetData(hstmt1, 1, SQL_C_CHAR, szSalesPerson, 15, &cbName);

    }

//    retcode = SQLExecDirect(hstmt1,(SQLCHAR*)"EXEC cash_archive_22_create_z_db  \'d:\\mssql7\\data\\\' ",SQL_NTS);

//    retcode = SQLExecDirect(hstmt1,(SQLCHAR*)"EXEC cash_archive_22_create_z_db  \'d:\\mssql7\\data\\\'  ",SQL_NTS);

    SQLCHAR  SqlState[6 ], Msg[ 500 ];
	SQLINTEGER NativeError;
	SQLSMALLINT MsgLen;

	SQLGetDiagRec(SQL_HANDLE_STMT, hstmt1,  1 , SqlState, &NativeError,
			Msg, sizeof(Msg), &MsgLen);


    if ( retcode != SQL_SUCCESS )
    {
    }
    // Simplified result set processing. Bind one column and
    // then fetch until SQL_NO_DATA.

     /* Clean up. */ 

    SQLFreeHandle(SQL_HANDLE_STMT, hstmt1);
    SQLDisconnect(hdbc1);
    SQLFreeHandle(SQL_HANDLE_DBC, hdbc1);
}

void CSQL_DialogDlg::OnButton_()
{
 //   CDatabase db;
 //   db.Open (NULL);
  CListBox* pList1 = (CListBox*)GetDlgItem(IDC_LIST1);
  CListBox* pList2 = (CListBox*)GetDlgItem(IDC_LIST2);

  pList1->ResetContent();
  pList2->ResetContent();

    SQLHENV     henv = SQL_NULL_HENV;
    SQLHDBC     hdbc1 = SQL_NULL_HDBC;     
    SQLHSTMT    hstmt1 = SQL_NULL_HSTMT;

    RETCODE retcode;
    // SQLBindCol variables
 /*
    SQLCHAR        szCode[10];
    SQLCHAR        szName[50];
    SQLINTEGER    cbName;
*/ 
    // Allocate the ODBC Environment and save handle.
    retcode = SQLAllocHandle (SQL_HANDLE_ENV, NULL, &henv);

    // Let ODBC know this is an ODBC  3 . 0  application.
    retcode = SQLSetEnvAttr(henv, SQL_ATTR_ODBC_VERSION, (SQLPOINTER) SQL_OV_ODBC3, SQL_IS_INTEGER);

    // Allocate an ODBC connection and connect.
    retcode = SQLAllocHandle(SQL_HANDLE_DBC, henv, &hdbc1);

    retcode = SQLConnect(hdbc1,
                (SQLCHAR*)"CashierSystemARS ", SQL_NTS,    (SQLCHAR*)" sa ", SQL_NTS,  (SQLCHAR*)" sql ", SQL_NTS);

    // Allocate a statement handle.
    retcode = SQLAllocHandle(SQL_HANDLE_STMT, hdbc1, &hstmt1);

    if ( retcode != SQL_SUCCESS )
    {
    }
    // Prepare and execute an SQL statement on the statement handle.
    // Uses a default result set because no cursor attributes are set.
    
//    retcode = SQLPrepare(hstmt1,  (SQLCHAR*)" SELECT * FROM AcctType " , SQL_NTS);
//    retcode = SQLPrepare(hstmt1,  (SQLCHAR*)" {Call cash_archive_70_copy_db(?,?)} " , SQL_NTS);
   retcode = SQLPrepare(hstmt1,  (SQLCHAR*)" {Call YYY_ttt(?)} " , SQL_NTS);

    if ( retcode != SQL_SUCCESS )
    {
    }
			SQLCHAR szNewFilePATH[ 40  ];
            SQLCHAR tnWeeksToGoBack =  5 ;

			::strcpy( (char*)szNewFilePATH, "d:\\mssql7\\data\\" );

            SQLINTEGER cbBindPar;
	        cbBindPar = SQL_NTS;
			retcode = SQLBindParameter( hstmt1,  1 , SQL_PARAM_INPUT, 
 		 						 SQL_C_CHAR, SQL_CHAR,  41 ,
 								   0 , szNewFilePATH,  0 ,
 								  &cbBindPar );

    retcode = SQLExecute(hstmt1);

    SQLCHAR  SqlState[ 6 ], Msg[ 500 ];
	SQLINTEGER NativeError;
	SQLSMALLINT MsgLen;

	SQLGetDiagRec(SQL_HANDLE_STMT, hstmt1,  1 , SqlState, &NativeError,
			Msg, sizeof(Msg), &MsgLen);

    if ( retcode != SQL_SUCCESS )
    {
    }

    SQLFreeHandle(SQL_HANDLE_STMT, hstmt1);
    SQLDisconnect(hdbc1);
    SQLFreeHandle(SQL_HANDLE_DBC, hdbc1);

}