?? excelaccessdlg.cpp
字號:
//////////////////////////////////////////////////////////////////////////////
//類名：CExcelAccessDlg
//功能：對Excel文件進行新建、讀寫、內部數據行、列、單元格進行
// 查詢，插入，替換等操作，對已有文件進行手工添加的也可以
// 正確讀取等的示例實現
//作者：徐景周(jingzhou_xu@163.net)
//組織：未來工作室(Future Studio)
//日期：2003.5.1
/////////////////////////////////////////////////////////////////////////////
#include "stdafx.h"
#include "ExcelAccess.h"
#include "ExcelAccessDlg.h"
#include "CSpreadSheet.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 };
CXPButton m_OK;
//}}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)
DDX_Control(pDX, IDOK, m_OK);
//}}AFX_DATA_MAP
}
BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
//{{AFX_MSG_MAP(CAboutDlg)
// No message handlers
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CExcelAccessDlg dialog
CExcelAccessDlg::CExcelAccessDlg(CWnd* pParent /*=NULL*/)
: CDialog(CExcelAccessDlg::IDD, pParent)
{
//{{AFX_DATA_INIT(CExcelAccessDlg)
m_strRow = _T("");
m_strColumn = _T("");
//}}AFX_DATA_INIT
// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}
void CExcelAccessDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CExcelAccessDlg)
DDX_Control(pDX, IDC_EDIT_ROW, m_edRow);
DDX_Control(pDX, IDC_EDIT_COLUMN, m_edColumn);
DDX_Control(pDX, IDOK, m_OK);
DDX_Control(pDX, IDCANCEL, m_Cancel);
DDX_Control(pDX, ID_WRITEEXCEL, m_Write);
DDX_Control(pDX, ID_QUERY, m_Query);
DDX_Control(pDX, ID_ABOUT, m_About);
DDX_Control(pDX, IDC_CHECK1, m_Check);
DDX_Control(pDX, IDC_LISTACCESS, m_AccessList);
DDX_Text(pDX, IDC_EDIT_ROW, m_strRow);
DDX_Text(pDX, IDC_EDIT_COLUMN, m_strColumn);
//}}AFX_DATA_MAP
}
BEGIN_MESSAGE_MAP(CExcelAccessDlg, CDialog)
//{{AFX_MSG_MAP(CExcelAccessDlg)
ON_WM_SYSCOMMAND()
ON_WM_PAINT()
ON_WM_QUERYDRAGICON()
ON_BN_CLICKED(ID_WRITEEXCEL, OnWriteexcel)
ON_BN_CLICKED(ID_QUERY, OnQuery)
ON_BN_CLICKED(ID_ABOUT, OnAbout)
ON_WM_CTLCOLOR()
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CExcelAccessDlg message handlers
//////////////////////////////////////////////////////////////////////////////
//名稱：OnInitDialog
//功能：初始化對話框
//作者：徐景周(jingzhou_xu@163.net)
//組織：未來工作室(Future Studio)
//日期：2003.5.1
/////////////////////////////////////////////////////////////////////////////
BOOL CExcelAccessDlg::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
// 創建陰影工具提示，并與相應提示控件聯系起來
m_tooltip.Create(this);
m_tooltip.AddTool(GetDlgItem(IDOK), _T("<b><ct=0x0000FF><al_c>讀取</b><br><ct=0x00AA00><hr=100%></ct><br>Excel表格數據"),IDI_PINFORMATION);
m_tooltip.AddTool(GetDlgItem(ID_WRITEEXCEL), _T("<b><ct=0x0000FF><al_c>寫入</b><br><ct=0x00AA00><hr=100%></ct><br>新建并寫入Excel表格數據"),IDI_PINFORMATION);
m_tooltip.AddTool(GetDlgItem(ID_ABOUT), _T("關于"));
m_tooltip.AddTool(GetDlgItem(IDCANCEL), _T("退出"));
m_tooltip.AddTool(GetDlgItem(ID_QUERY), _T("<b><ct=0x0000FF><al_c>查詢</b><br><ct=0x00AA00><hr=100%></ct><br>Excel表格中行、列、單元格數據"),IDI_PINFORMATION);
m_tooltip.AddTool(GetDlgItem(IDC_LISTACCESS), _T("<b><ct=0x0000FF><al_c>顯示</b><br><ct=0x00AA00><hr=100%></ct><br>Excel表格數據"),IDI_PINFORMATION);
m_tooltip.AddTool(GetDlgItem(IDC_CHECK1), _T("<b><ct=0x0000FF><al_c>轉換</b><br><ct=0x00AA00><hr=100%></ct><br>另存為其它文本格式文件"),IDI_PINFORMATION);
m_tooltip.AddTool(GetDlgItem(IDC_EDIT_ROW), _T("<b><ct=0x0000FF><al_c>行號</b><br><ct=0x00AA00><hr=100%></ct><br>查詢該行數據"),IDI_PINFORMATION);
m_tooltip.AddTool(GetDlgItem(IDC_EDIT_COLUMN), _T("<b><ct=0x0000FF><al_c>列號</b><br><ct=0x00AA00><hr=100%></ct><br>查詢該列數據"),IDI_PINFORMATION);
// 顯示圖標或位圖及字體屬性
m_tooltip.SetNotify();
m_tooltip.SetDefaultFont();
// 設置背景效果及漸變色
// m_tooltip.SetColor(CPPToolTip::PPTOOLTIP_COLOR_BK_BEGIN, RGB(255, 255, 255));
// m_tooltip.SetColor(CPPToolTip::PPTOOLTIP_COLOR_BK_MID,RGB(240, 247, 250));
// m_tooltip.SetColor(CPPToolTip::PPTOOLTIP_COLOR_BK_END, RGB(192, 192, 200));
// m_tooltip.SetEffectBk(14, 10);
m_tooltip.SetColor(CPPToolTip::PPTOOLTIP_COLOR_BK_BEGIN, RGB(255, 255, 223));
m_tooltip.SetColor(CPPToolTip::PPTOOLTIP_COLOR_BK_MID,RGB(192, 192, 172));
m_tooltip.SetColor(CPPToolTip::PPTOOLTIP_COLOR_BK_END, RGB(128, 128, 112));
m_tooltip.SetEffectBk(13, 10);
// 多行顯示提示信息
m_tooltip.SetBehaviour(PPTOOLTIP_MULTIPLE_SHOW);
// 程序初始啟動時，窗體位于最前方
SetWindowPos(&wndTopMost,0,0,0,0, SWP_NOMOVE | SWP_NOSIZE);
return TRUE; // return TRUE unless you set the focus to a control
}
void CExcelAccessDlg::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 CExcelAccessDlg::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 CExcelAccessDlg::OnQueryDragIcon()
{
return (HCURSOR) m_hIcon;
}
//////////////////////////////////////////////////////////////////////////////
//名稱：OnOK
//功能：讀取指定Excel文件內容
//作者：徐景周(jingzhou_xu@163.net)
//組織：未來工作室(Future Studio)
//日期：2003.5.1
///////////////////////////////////////////////////////////////////////
void CExcelAccessDlg::OnOK()
{
CSpreadSheet SS("c:\\Test.xls", "TestSheet");
CStringArray Rows, Column;
//清空列表框
m_AccessList.ResetContent();
for (int i = 1; i <= SS.GetTotalRows(); i++)
{
// 讀取一行
SS.ReadRow(Rows, i);
CString strContents = "";
for (int j = 1; j <= Rows.GetSize(); j++)
{
if(j == 1)
strContents = Rows.GetAt(j-1);
else
strContents = strContents + " --> " + Rows.GetAt(j-1);
}
m_AccessList.AddString(strContents);
}
}
//////////////////////////////////////////////////////////////////////////////
//名稱：OnWriteexcel
//功能：新建并寫入Excel文件內容
//作者：徐景周(jingzhou_xu@163.net)
//組織：未來工作室(Future Studio)
//日期：2003.5.1
///////////////////////////////////////////////////////////////////////
void CExcelAccessDlg::OnWriteexcel()
{
// 新建Excel文件名及路徑，TestSheet為內部表名
CSpreadSheet SS("c:\\Test.xls", "TestSheet");
CStringArray sampleArray, testRow;
SS.BeginTransaction();
// 加入標題
sampleArray.RemoveAll();
sampleArray.Add("姓名");
sampleArray.Add("年齡");
SS.AddHeaders(sampleArray);
// 加入數據
CString strName[] = {"徐景周","徐志慧","郭徽","牛英俊","朱小鵬"};
CString strAge[] = {"27","23","28","27","26"};
for(int i = 0; i < sizeof(strName)/sizeof(CString); i++)
{
sampleArray.RemoveAll();
sampleArray.Add(strName[i]);
sampleArray.Add(strAge[i]);
SS.AddRow(sampleArray);
}
// 初始化測試行數據，進行添加、插入及替換數據操作演示
for (int k = 1; k <= 2; k++)
{
testRow.Add("Test");
}
SS.AddRow(testRow); // 添加到尾部
SS.AddRow(testRow, 2); // 插入新行到第二行
SS.AddRow(testRow, 6, true); // 替換原第四行來新的內容
SS.Commit();
if(m_Check.GetCheck())
SS.Convert(";"); // 將原Excel文件轉換為用分號分隔的文本，并另存為同名文本文件
AfxMessageBox("文件寫入成功!");
}
//////////////////////////////////////////////////////////////////////////////
//名稱：OnQuery
//功能：查詢指定Excel文件中行號、列號內容
//作者：徐景周(jingzhou_xu@163.net)
//組織：未來工作室(Future Studio)
//日期：2003.5.1
///////////////////////////////////////////////////////////////////////
void CExcelAccessDlg::OnQuery()
{
CSpreadSheet SS("c:\\Test.xls", "TestSheet");
CStringArray Rows, Column;
CString tempString = "";
UpdateData();
if(m_strRow == "" && m_strColumn == "") // 查詢為空
{
AfxMessageBox("行號、列號不能同時為空!");
return;
}
else if(m_strRow == "" && m_strColumn != "") // 查詢指定列數據
{
int iColumn = atoi(m_strColumn);
int iCols = SS.GetTotalColumns();
if(iColumn > iCols) // 超出表范圍查詢時
{
CString str;
str.Format("表中總列數為: %d, ", iCols);
AfxMessageBox(str + " 查詢列數大于Excel表中總列數，請重新輸入!");
return;
}
// 讀取一列數據，并按行讀出
if(!SS.ReadColumn(Column, iColumn))
{
AfxMessageBox(SS.GetLastError());
return;
}
CString tmpStr;
for (int i = 0; i < Column.GetSize(); i++)
{
tmpStr.Format("行號: %d, 列號: %d ,內容: %s\n", i+1,iColumn,Column.GetAt(i));
tempString += tmpStr;
}
AfxMessageBox(tempString);
}
else if(m_strRow != "" && m_strColumn == "") // 查詢指定行數數據
{
int iRow = atoi(m_strRow);
int iRows = SS.GetTotalRows();
if(iRow > iRows) // 超出表范圍查詢時
{
CString str;
str.Format("表中總行數為: %d, ", iRows);
AfxMessageBox(str + " 查詢行數大于Excel表中總行數，請重新輸入!");
return;
}
// 讀取指定行數據
if(!SS.ReadRow(Rows, iRow))
{
AfxMessageBox(SS.GetLastError());
return;
}
CString tmpStr;
for (int i = 0; i < Rows.GetSize(); i++)
{
tmpStr.Format("行號: %d, 列號: %d ,內容: %s\n", iRow, i+1, Rows.GetAt(i));
tempString += tmpStr;
}
AfxMessageBox(tempString);
}
else if(m_strRow != "" && m_strColumn != "") // 查詢指定單元格數據
{
int iRow = atoi(m_strRow), iColumn = atoi(m_strColumn);
int iRows = SS.GetTotalRows(), iCols = SS.GetTotalColumns();
if(iColumn > iCols) // 超出表范圍查詢時
{
CString str;
str.Format("表中總列數為: %d, ", iCols);
AfxMessageBox(str + " 查詢列數大于Excel表中總列數，請重新輸入!");
return;
}
else if(iRow > iRows)
{
CString str;
str.Format("表中總行數為: %d, ", iRows);
AfxMessageBox(str + " 查詢行數大于Excel表中總行數，請重新輸入!");
return;
}
// 讀取指定行、列單元格數據
if(!SS.ReadCell(tempString, iColumn, iRow))
{
AfxMessageBox(SS.GetLastError());
return;
}
CString str;
str.Format("行號: %d, 列號: %d ,內容: %s", iRow,iColumn,tempString);
AfxMessageBox(str);
}
}
//////////////////////////////////////////////////////////////////////////////
//名稱：OnAbout
//功能：關于對話框
//作者：徐景周(jingzhou_xu@163.net)
//組織：未來工作室(Future Studio)
//日期：2003.5.1
///////////////////////////////////////////////////////////////////////
void CExcelAccessDlg::OnAbout()
{
CAboutDlg dlg;
dlg.DoModal();
}
//////////////////////////////////////////////////////////////////////////////
//名稱：OnCtlColor
//功能：設置各控件前景、背景色
//作者：徐景周(jingzhou_xu@163.net)
//組織：未來工作室(Future Studio)
//日期：2003.5.1
/////////////////////////////////////////////////////////////////////////////
HBRUSH CExcelAccessDlg::OnCtlColor(CDC* pDC, CWnd* pWnd, UINT nCtlColor)
{
HBRUSH hbr = CDialog::OnCtlColor(pDC, pWnd, nCtlColor);
if(nCtlColor==CTLCOLOR_LISTBOX)
{
//pDC->SetBkMode(TRANSPARENT);
pDC->SetTextColor(RGB(0,0,0));
pDC->SetBkColor(RGB(233,233,220));
HBRUSH b=CreateSolidBrush(RGB(233,233,220));
return b;
}
else if(nCtlColor==CTLCOLOR_SCROLLBAR)
{
}
else if(nCtlColor==CTLCOLOR_EDIT)
{
}
else if(nCtlColor==CTLCOLOR_STATIC)
{
}
else if(nCtlColor==CTLCOLOR_DLG)
{
}
return hbr;
}
//////////////////////////////////////////////////////////////////////////////
//名稱：PreTranslateMessage
//功能：陰影工具提示的消息傳遞
//作者：徐景周(jingzhou_xu@163.net)
//組織：未來工作室(Future Studio)
//日期：2003.5.1
/////////////////////////////////////////////////////////////////////////////
BOOL CExcelAccessDlg::PreTranslateMessage(MSG* pMsg)
{
// 為陰影工具提示加入鼠標事件傳遞
m_tooltip.RelayEvent(pMsg);
return CDialog::PreTranslateMessage(pMsg);
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -