report1dlg.cpp

用VC和SQL Server开发的固定资产管理系统

// Report1Dlg.cpp : implementation file
//

#include "stdafx.h"
#include "AssetsMan.h"
#include "Report1Dlg.h"
#include "Excel9.h" 
#include "COMDEF.H"
#include "_recordset.h"
#include "columns.h"
#include "column.h"

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

/////////////////////////////////////////////////////////////////////////////
// CReport1Dlg dialog


CReport1Dlg::CReport1Dlg(CWnd* pParent /*=NULL*/)
	: CDialog(CReport1Dlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CReport1Dlg)
		// NOTE: the ClassWizard will add member initialization here
	//}}AFX_DATA_INIT
}


void CReport1Dlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CReport1Dlg)
	DDX_Control(pDX, IDC_ADODC1, m_adodc);
	DDX_Control(pDX, IDC_DATAGRID1, m_DataGrid);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CReport1Dlg, CDialog)
	//{{AFX_MSG_MAP(CReport1Dlg)
	ON_BN_CLICKED(IDC_TOEXCEL_BUTTON, OnToexcelButton)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CReport1Dlg message handlers

BOOL CReport1Dlg::OnInitDialog() 
{
	CDialog::OnInitDialog();
	
	CString cSource;
	cSource = "SELECT DeptName AS 部门名称, CountAid AS 固定资产数量,";
	cSource += " SumOrgPrice AS 总价值, SumLastPrice AS 当前价值, SumDisPrice AS 已折旧价值";
	cSource += " FROM v_Report1";
	//设置数据源
	m_adodc.SetRecordSource(cSource);
	m_adodc.Refresh();

	return TRUE;  // return TRUE unless you set the focus to a control
	              // EXCEPTION: OCX Property Pages should return FALSE
}

void CReport1Dlg::OnToexcelButton() 
{
	//定义操作Excel必要的对象
	COleVariant VOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    _Application objApp;
	Workbooks objBooks;
	_Workbook objBook;
	Worksheets objSheets;
	_Worksheet objSheet;
	Range objRange;	
	//创建Excel对象
	objApp.CreateDispatch("Excel.Application");
	objBooks=objApp.GetWorkbooks();	//返回工作簿对象
	// 打开指定Excel文件
	objBook.AttachDispatch(objBooks.Add(_variant_t("C:\\Report1.xls")));
	objSheets=objBook.GetSheets();
	// 定义第一个Sheet为对象
	objSheet=objSheets.GetItem((_variant_t)short(1));
	objRange.AttachDispatch(objSheet.GetCells(),true); 
	// 取得结果集中记录个数，列数
	int ss,nn;
	double dTotal;
	dTotal = 0;
	CString cc;
	// 得到结果集中记录个数
	nn = m_adodc.GetRecordset().GetRecordCount();
	// 定义列对象并取得列的个数
	CColumns cls;
	cls = m_DataGrid.GetColumns();
	ss = cls.GetCount();
	// 双层循环取得所有数据放入Excel表中
	for(int i=0;i<nn;i++)
	{
		// 设定数据所在行
		m_DataGrid.SetRow(i);
		for(int j=0;j<ss;j++)
		{
			// 设定数据所在列
			m_DataGrid.SetCol(j);
			// 取得指定列的值
			cc = m_DataGrid.GetText();
			// 计算原值
			if(j==9)
				dTotal = dTotal + atoi(cc);
			// 把列值放入Excel指定单元格
			objRange.SetItem(_variant_t((long)(i+2)),_variant_t((long)(j+1)),_variant_t(cc)); 
		}
	}
	// 设置Excel为可见
	objApp.SetVisible(true);
	// 释放句柄
	objRange.ReleaseDispatch();
	objSheet.ReleaseDispatch();
	objSheets.ReleaseDispatch();
	objBook.ReleaseDispatch();
	objBooks.ReleaseDispatch();
	objApp.ReleaseDispatch();	
}