开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 文件操作 > 查看源码
ExcelAccessDlg.cpp
资源名称：VC++Excel.rar　[点击查看]
上传用户：jinq198
上传日期：2014-05-21
资源大小：111k
文件大小：14k
源码类别：

文件操作

开发平台：

Visual C++

ExcelAccessDlg.cpp：源码内容
  1. //////////////////////////////////////////////////////////////////////////////
  2. //类名：CExcelAccessDlg
  3. //功能：对Excel文件进行新建、读写、内部数据行、列、单元格进行
  4. //      查询，插入，替换等操作，对已有文件进行手工添加的也可以
  5. //      正确读取等的示例实现
  6. //作者：徐景周(jingzhou_xu@163.net)
  7. //组织：未来工作室(Future Studio)
  8. //日期：2003.5.1
  9. /////////////////////////////////////////////////////////////////////////////
  10. #include "stdafx.h"
  11. #include "ExcelAccess.h"
  12. #include "ExcelAccessDlg.h"
  13. #include "CSpreadSheet.h"
  15. #ifdef _DEBUG
  16. #define new DEBUG_NEW
  17. #undef THIS_FILE
  18. static char THIS_FILE[] = __FILE__;
  19. #endif
  21. /////////////////////////////////////////////////////////////////////////////
  22. // CAboutDlg dialog used for App About
  24. class CAboutDlg : public CDialog
  25. {
  26. public:
  27. CAboutDlg();
  29. // Dialog Data
  30. //{{AFX_DATA(CAboutDlg)
  31. enum { IDD = IDD_ABOUTBOX };
  32. CXPButton m_OK;
  33. //}}AFX_DATA
  35. // ClassWizard generated virtual function overrides
  36. //{{AFX_VIRTUAL(CAboutDlg)
  37. protected:
  38. virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
  39. //}}AFX_VIRTUAL
  41. // Implementation
  42. protected:
  43. //{{AFX_MSG(CAboutDlg)
  44. //}}AFX_MSG
  45. DECLARE_MESSAGE_MAP()
  46. };
  48. CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
  49. {
  50. //{{AFX_DATA_INIT(CAboutDlg)
  51. //}}AFX_DATA_INIT
  52. }
  54. void CAboutDlg::DoDataExchange(CDataExchange* pDX)
  55. {
  56. CDialog::DoDataExchange(pDX);
  57. //{{AFX_DATA_MAP(CAboutDlg)
  58. DDX_Control(pDX, IDOK, m_OK);
  59. //}}AFX_DATA_MAP
  60. }
  62. BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
  63. //{{AFX_MSG_MAP(CAboutDlg)
  64. // No message handlers
  65. //}}AFX_MSG_MAP
  66. END_MESSAGE_MAP()
  68. /////////////////////////////////////////////////////////////////////////////
  69. // CExcelAccessDlg dialog
  71. CExcelAccessDlg::CExcelAccessDlg(CWnd* pParent /*=NULL*/)
  72. : CDialog(CExcelAccessDlg::IDD, pParent)
  73. {
  74. //{{AFX_DATA_INIT(CExcelAccessDlg)
  75. m_strRow = _T("");
  76. m_strColumn = _T("");
  77. //}}AFX_DATA_INIT
  78. // Note that LoadIcon does not require a subsequent DestroyIcon in Win32
  79. m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
  80. }
  82. void CExcelAccessDlg::DoDataExchange(CDataExchange* pDX)
  83. {
  84. CDialog::DoDataExchange(pDX);
  85. //{{AFX_DATA_MAP(CExcelAccessDlg)
  86. DDX_Control(pDX, IDC_EDIT_ROW, m_edRow);
  87. DDX_Control(pDX, IDC_EDIT_COLUMN, m_edColumn);
  88. DDX_Control(pDX, IDOK, m_OK);
  89. DDX_Control(pDX, IDCANCEL, m_Cancel);
  90. DDX_Control(pDX, ID_WRITEEXCEL, m_Write);
  91. DDX_Control(pDX, ID_QUERY, m_Query);
  92. DDX_Control(pDX, ID_ABOUT, m_About);
  93. DDX_Control(pDX, IDC_CHECK1, m_Check);
  94. DDX_Control(pDX, IDC_LISTACCESS, m_AccessList);
  95. DDX_Text(pDX, IDC_EDIT_ROW, m_strRow);
  96. DDX_Text(pDX, IDC_EDIT_COLUMN, m_strColumn);
  97. //}}AFX_DATA_MAP
  98. }
  100. BEGIN_MESSAGE_MAP(CExcelAccessDlg, CDialog)
  101. //{{AFX_MSG_MAP(CExcelAccessDlg)
  102. ON_WM_SYSCOMMAND()
  103. ON_WM_PAINT()
  104. ON_WM_QUERYDRAGICON()
  105. ON_BN_CLICKED(ID_WRITEEXCEL, OnWriteexcel)
  106. ON_BN_CLICKED(ID_QUERY, OnQuery)
  107. ON_BN_CLICKED(ID_ABOUT, OnAbout)
  108. ON_WM_CTLCOLOR()
  109. //}}AFX_MSG_MAP
  110. END_MESSAGE_MAP()
  112. /////////////////////////////////////////////////////////////////////////////
  113. // CExcelAccessDlg message handlers
  114. //////////////////////////////////////////////////////////////////////////////
  115. //名称：OnInitDialog
  116. //功能：初始化对话框
  117. //作者：徐景周(jingzhou_xu@163.net)
  118. //组织：未来工作室(Future Studio)
  119. //日期：2003.5.1
  120. /////////////////////////////////////////////////////////////////////////////
  121. BOOL CExcelAccessDlg::OnInitDialog()
  122. {
  123. CDialog::OnInitDialog();
  125. // Add "About..." menu item to system menu.
  127. // IDM_ABOUTBOX must be in the system command range.
  128. ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
  129. ASSERT(IDM_ABOUTBOX < 0xF000);
  131. CMenu* pSysMenu = GetSystemMenu(FALSE);
  132. if (pSysMenu != NULL)
  133. {
  134. CString strAboutMenu;
  135. strAboutMenu.LoadString(IDS_ABOUTBOX);
  136. if (!strAboutMenu.IsEmpty())
  137. {
  138. pSysMenu->AppendMenu(MF_SEPARATOR);
  139. pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
  140. }
  141. }
  143. // Set the icon for this dialog.  The framework does this automatically
  144. //  when the application's main window is not a dialog
  145. SetIcon(m_hIcon, TRUE); // Set big icon
  146. SetIcon(m_hIcon, FALSE); // Set small icon
  148. // 创建阴影工具提示，并与相应提示控件联系起来
  149. m_tooltip.Create(this);
  150. m_tooltip.AddTool(GetDlgItem(IDOK), _T("<b><ct=0x0000FF><al_c>读取</b><br><ct=0x00AA00><hr=100%></ct><br>Excel表格数据"),IDI_PINFORMATION);
  151. m_tooltip.AddTool(GetDlgItem(ID_WRITEEXCEL), _T("<b><ct=0x0000FF><al_c>写入</b><br><ct=0x00AA00><hr=100%></ct><br>新建并写入Excel表格数据"),IDI_PINFORMATION);
  152. m_tooltip.AddTool(GetDlgItem(ID_ABOUT), _T("关于"));
  153. m_tooltip.AddTool(GetDlgItem(IDCANCEL), _T("退出"));
  154. m_tooltip.AddTool(GetDlgItem(ID_QUERY), _T("<b><ct=0x0000FF><al_c>查询</b><br><ct=0x00AA00><hr=100%></ct><br>Excel表格中行、列、单元格数据"),IDI_PINFORMATION);
  155. m_tooltip.AddTool(GetDlgItem(IDC_LISTACCESS), _T("<b><ct=0x0000FF><al_c>显示</b><br><ct=0x00AA00><hr=100%></ct><br>Excel表格数据"),IDI_PINFORMATION);
  156. m_tooltip.AddTool(GetDlgItem(IDC_CHECK1), _T("<b><ct=0x0000FF><al_c>转换</b><br><ct=0x00AA00><hr=100%></ct><br>另存为其它文本格式文件"),IDI_PINFORMATION);
  157. m_tooltip.AddTool(GetDlgItem(IDC_EDIT_ROW), _T("<b><ct=0x0000FF><al_c>行号</b><br><ct=0x00AA00><hr=100%></ct><br>查询该行数据"),IDI_PINFORMATION);
  158. m_tooltip.AddTool(GetDlgItem(IDC_EDIT_COLUMN), _T("<b><ct=0x0000FF><al_c>列号</b><br><ct=0x00AA00><hr=100%></ct><br>查询该列数据"),IDI_PINFORMATION);
  160. // 显示图标或位图及字体属性
  161. m_tooltip.SetNotify();
  162. m_tooltip.SetDefaultFont();
  164. // 设置背景效果及渐变色
  165. // m_tooltip.SetColor(CPPToolTip::PPTOOLTIP_COLOR_BK_BEGIN, RGB(255, 255, 255));
  166. // m_tooltip.SetColor(CPPToolTip::PPTOOLTIP_COLOR_BK_MID,RGB(240, 247, 250));
  167. // m_tooltip.SetColor(CPPToolTip::PPTOOLTIP_COLOR_BK_END, RGB(192, 192, 200));
  168. // m_tooltip.SetEffectBk(14, 10);
  169. m_tooltip.SetColor(CPPToolTip::PPTOOLTIP_COLOR_BK_BEGIN, RGB(255, 255, 223));
  170. m_tooltip.SetColor(CPPToolTip::PPTOOLTIP_COLOR_BK_MID,RGB(192, 192, 172));
  171. m_tooltip.SetColor(CPPToolTip::PPTOOLTIP_COLOR_BK_END, RGB(128, 128, 112));
  172. m_tooltip.SetEffectBk(13, 10);
  174. // 多行显示提示信息
  175. m_tooltip.SetBehaviour(PPTOOLTIP_MULTIPLE_SHOW);
  178. // 程序初始启动时，窗体位于最前方
  179. SetWindowPos(&wndTopMost,0,0,0,0, SWP_NOMOVE | SWP_NOSIZE);
  181. return TRUE;  // return TRUE  unless you set the focus to a control
  182. }
  184. void CExcelAccessDlg::OnSysCommand(UINT nID, LPARAM lParam)
  185. {
  186. if ((nID & 0xFFF0) == IDM_ABOUTBOX)
  187. {
  188. CAboutDlg dlgAbout;
  189. dlgAbout.DoModal();
  190. }
  191. else
  192. {
  193. CDialog::OnSysCommand(nID, lParam);
  194. }
  195. }
  197. // If you add a minimize button to your dialog, you will need the code below
  198. //  to draw the icon.  For MFC applications using the document/view model,
  199. //  this is automatically done for you by the framework.
  201. void CExcelAccessDlg::OnPaint() 
  202. {
  203. if (IsIconic())
  204. {
  205. CPaintDC dc(this); // device context for painting
  207. SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);
  209. // Center icon in client rectangle
  210. int cxIcon = GetSystemMetrics(SM_CXICON);
  211. int cyIcon = GetSystemMetrics(SM_CYICON);
  212. CRect rect;
  213. GetClientRect(&rect);
  214. int x = (rect.Width() - cxIcon + 1) / 2;
  215. int y = (rect.Height() - cyIcon + 1) / 2;
  217. // Draw the icon
  218. dc.DrawIcon(x, y, m_hIcon);
  219. }
  220. else
  221. {
  222. CDialog::OnPaint();
  223. }
  224. }
  226. // The system calls this to obtain the cursor to display while the user drags
  227. //  the minimized window.
  228. HCURSOR CExcelAccessDlg::OnQueryDragIcon()
  229. {
  230. return (HCURSOR) m_hIcon;
  231. }
  233. //////////////////////////////////////////////////////////////////////////////
  234. //名称：OnOK
  235. //功能：读取指定Excel文件内容
  236. //作者：徐景周(jingzhou_xu@163.net)
  237. //组织：未来工作室(Future Studio)
  238. //日期：2003.5.1
  239. ///////////////////////////////////////////////////////////////////////
  240. void CExcelAccessDlg::OnOK() 
  241. {
  242. CSpreadSheet SS("c:\Test.xls", "TestSheet");
  244. CStringArray Rows, Column;
  246. //清空列表框
  247. m_AccessList.ResetContent();
  248. for (int i = 1; i <= SS.GetTotalRows(); i++)
  249. {
  250. // 读取一行
  251. SS.ReadRow(Rows, i);
  252. CString strContents = "";
  253. for (int j = 1; j <= Rows.GetSize(); j++)
  254. {
  255. if(j == 1)
  256. strContents = Rows.GetAt(j-1);
  257. else
  258. strContents = strContents +  " --> " + Rows.GetAt(j-1);
  259. }
  261. m_AccessList.AddString(strContents);
  262. }
  263. }
  265. //////////////////////////////////////////////////////////////////////////////
  266. //名称：OnWriteexcel
  267. //功能：新建并写入Excel文件内容
  268. //作者：徐景周(jingzhou_xu@163.net)
  269. //组织：未来工作室(Future Studio)
  270. //日期：2003.5.1
  271. ///////////////////////////////////////////////////////////////////////
  272. void CExcelAccessDlg::OnWriteexcel() 
  273. {
  274. // 新建Excel文件名及路径，TestSheet为内部表名
  275. CSpreadSheet SS("c:\Test.xls", "TestSheet");
  277. CStringArray sampleArray, testRow;
  279. SS.BeginTransaction();
  281. // 加入标题
  282. sampleArray.RemoveAll();
  283. sampleArray.Add("姓名");
  284. sampleArray.Add("年龄");
  285. SS.AddHeaders(sampleArray);
  287. // 加入数据
  288. CString strName[] = {"徐景周","徐志慧","郭徽","牛英俊","朱小鹏"};
  289. CString strAge[]  = {"27","23","28","27","26"};
  290. for(int i = 0; i < sizeof(strName)/sizeof(CString); i++)
  291. {
  292. sampleArray.RemoveAll();
  293. sampleArray.Add(strName[i]);
  294. sampleArray.Add(strAge[i]);
  295. SS.AddRow(sampleArray);
  296. }
  298. // 初始化测试行数据，进行添加、插入及替换数据操作演示
  299. for (int k = 1; k <= 2; k++)
  300. {
  301. testRow.Add("Test");
  302. }
  304. SS.AddRow(testRow); // 添加到尾部
  305. SS.AddRow(testRow, 2); // 插入新行到第二行
  306. SS.AddRow(testRow, 6, true); // 替换原第四行来新的内容
  308. SS.Commit();
  310. if(m_Check.GetCheck())
  311. SS.Convert(";");            // 将原Excel文件转换为用分号分隔的文本，并另存为同名文本文件
  313. AfxMessageBox("文件写入成功!");
  314. }
  316. //////////////////////////////////////////////////////////////////////////////
  317. //名称：OnQuery
  318. //功能：查询指定Excel文件中行号、列号内容
  319. //作者：徐景周(jingzhou_xu@163.net)
  320. //组织：未来工作室(Future Studio)
  321. //日期：2003.5.1
  322. ///////////////////////////////////////////////////////////////////////
  323. void CExcelAccessDlg::OnQuery() 
  324. {
  325. CSpreadSheet SS("c:\Test.xls", "TestSheet");
  327. CStringArray Rows, Column;
  328. CString tempString = "";
  330. UpdateData();
  332. if(m_strRow == "" && m_strColumn == "")         // 查询为空
  333. {
  334. AfxMessageBox("行号、列号不能同时为空!");
  335. return;
  336. }    
  337. else if(m_strRow == "" && m_strColumn != "")    // 查询指定列数据
  338. {
  339. int iColumn = atoi(m_strColumn);
  340. int iCols = SS.GetTotalColumns();
  341. if(iColumn > iCols) // 超出表范围查询时
  342. {
  343. CString str;
  344. str.Format("表中总列数为: %d, ", iCols);
  345. AfxMessageBox(str + " 查询列数大于Excel表中总列数，请重新输入!");
  346. return;
  347. }
  349. // 读取一列数据，并按行读出
  350. if(!SS.ReadColumn(Column, iColumn))
  351. {
  352. AfxMessageBox(SS.GetLastError());
  353. return;
  354. }
  356. CString tmpStr;
  357. for (int i = 0; i < Column.GetSize(); i++)
  358. {
  359. tmpStr.Format("行号: %d, 列号: %d ,内容: %sn", i+1,iColumn,Column.GetAt(i));
  360. tempString += tmpStr;
  361. }
  363. AfxMessageBox(tempString);
  364. }
  365. else if(m_strRow != "" && m_strColumn == "")     // 查询指定行数数据
  366. {
  367. int iRow = atoi(m_strRow);
  368. int iRows = SS.GetTotalRows();
  370. if(iRow > iRows) // 超出表范围查询时
  371. {
  372. CString str;
  373. str.Format("表中总行数为: %d, ", iRows);
  374. AfxMessageBox(str + " 查询行数大于Excel表中总行数，请重新输入!");
  375. return;
  376. }
  378. // 读取指定行数据
  379. if(!SS.ReadRow(Rows, iRow))
  380. {
  381. AfxMessageBox(SS.GetLastError());
  382. return;
  383. }
  385. CString tmpStr;
  386. for (int i = 0; i < Rows.GetSize(); i++)
  387. {
  388. tmpStr.Format("行号: %d, 列号: %d ,内容: %sn", iRow, i+1, Rows.GetAt(i));
  389. tempString += tmpStr;
  390. }
  392. AfxMessageBox(tempString);
  393. }
  394. else if(m_strRow != "" && m_strColumn != "")     // 查询指定单元格数据
  395. {
  396. int iRow = atoi(m_strRow), iColumn = atoi(m_strColumn);
  397. int iRows = SS.GetTotalRows(), iCols = SS.GetTotalColumns(); 
  399. if(iColumn > iCols)                          // 超出表范围查询时
  400. {
  401. CString str;
  402. str.Format("表中总列数为: %d, ", iCols);
  403. AfxMessageBox(str + " 查询列数大于Excel表中总列数，请重新输入!");
  404. return;
  405. }
  406. else if(iRow > iRows)
  407. {
  408. CString str;
  409. str.Format("表中总行数为: %d, ", iRows);
  410. AfxMessageBox(str + " 查询行数大于Excel表中总行数，请重新输入!");
  411. return;
  412. }
  414. // 读取指定行、列单元格数据
  415. if(!SS.ReadCell(tempString, iColumn, iRow))
  416. {
  417. AfxMessageBox(SS.GetLastError());
  418. return;
  419. }
  421. CString str;
  422. str.Format("行号: %d, 列号: %d ,内容: %s", iRow,iColumn,tempString);
  423. AfxMessageBox(str);
  424. }
  426. }
  428. //////////////////////////////////////////////////////////////////////////////
  429. //名称：OnAbout
  430. //功能：关于对话框
  431. //作者：徐景周(jingzhou_xu@163.net)
  432. //组织：未来工作室(Future Studio)
  433. //日期：2003.5.1
  434. ///////////////////////////////////////////////////////////////////////
  435. void CExcelAccessDlg::OnAbout() 
  436. {
  437. CAboutDlg dlg;
  438. dlg.DoModal();
  439. }
  441. //////////////////////////////////////////////////////////////////////////////
  442. //名称：OnCtlColor
  443. //功能：设置各控件前景、背景色
  444. //作者：徐景周(jingzhou_xu@163.net)
  445. //组织：未来工作室(Future Studio)
  446. //日期：2003.5.1
  447. /////////////////////////////////////////////////////////////////////////////
  448. HBRUSH CExcelAccessDlg::OnCtlColor(CDC* pDC, CWnd* pWnd, UINT nCtlColor) 
  449. {
  450. HBRUSH hbr = CDialog::OnCtlColor(pDC, pWnd, nCtlColor);
  452. if(nCtlColor==CTLCOLOR_LISTBOX)
  453. {
  454. //pDC->SetBkMode(TRANSPARENT);
  455. pDC->SetTextColor(RGB(0,0,0));
  456. pDC->SetBkColor(RGB(233,233,220));
  457. HBRUSH b=CreateSolidBrush(RGB(233,233,220));
  458. return b;
  459. }
  460. else if(nCtlColor==CTLCOLOR_SCROLLBAR)
  461. {
  464. }
  465. else if(nCtlColor==CTLCOLOR_EDIT)
  466. {
  469. }
  470. else if(nCtlColor==CTLCOLOR_STATIC)
  471. {
  474. }
  475. else if(nCtlColor==CTLCOLOR_DLG)
  476. {
  479. }
  481. return hbr;
  482. }
  484. //////////////////////////////////////////////////////////////////////////////
  485. //名称：PreTranslateMessage
  486. //功能：阴影工具提示的消息传递
  487. //作者：徐景周(jingzhou_xu@163.net)
  488. //组织：未来工作室(Future Studio)
  489. //日期：2003.5.1
  490. /////////////////////////////////////////////////////////////////////////////
  491. BOOL CExcelAccessDlg::PreTranslateMessage(MSG* pMsg) 
  492. {
  493. // 为阴影工具提示加入鼠标事件传递
  494. m_tooltip.RelayEvent(pMsg);
  496. return CDialog::PreTranslateMessage(pMsg);
  497. }