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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
ODBCRWExcelDlg.cpp
资源名称：ODBCRWExcel.rar　[点击查看]
上传用户：fdpbxz
上传日期：2022-07-13
资源大小：33k
文件大小：12k
源码类别：

数据库编程

开发平台：

Visual C++

ODBCRWExcelDlg.cpp：源码内容
  1. // ODBCRWExcelDlg.cpp : implementation file
  2. //
  4. #include "stdafx.h"
  5. #include "ODBCRWExcel.h"
  6. #include "ODBCRWExcelDlg.h"
  8. #ifdef _DEBUG
  9. #define new DEBUG_NEW
  10. #undef THIS_FILE
  11. static char THIS_FILE[] = __FILE__;
  12. #endif
  14. /////////////////////////////////////////////////////////////////////////////
  15. // CAboutDlg dialog used for App About
  17. class CAboutDlg : public CDialog
  18. {
  19. public:
  20. CAboutDlg();
  22. // Dialog Data
  23. //{{AFX_DATA(CAboutDlg)
  24. enum { IDD = IDD_ABOUTBOX };
  25. //}}AFX_DATA
  27. // ClassWizard generated virtual function overrides
  28. //{{AFX_VIRTUAL(CAboutDlg)
  29. protected:
  30. virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
  31. //}}AFX_VIRTUAL
  33. // Implementation
  34. protected:
  35. //{{AFX_MSG(CAboutDlg)
  36. //}}AFX_MSG
  37. DECLARE_MESSAGE_MAP()
  38. };
  40. CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
  41. {
  42. //{{AFX_DATA_INIT(CAboutDlg)
  43. //}}AFX_DATA_INIT
  44. }
  46. void CAboutDlg::DoDataExchange(CDataExchange* pDX)
  47. {
  48. CDialog::DoDataExchange(pDX);
  49. //{{AFX_DATA_MAP(CAboutDlg)
  50. //}}AFX_DATA_MAP
  51. }
  53. BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
  54. //{{AFX_MSG_MAP(CAboutDlg)
  55. // No message handlers
  56. //}}AFX_MSG_MAP
  57. END_MESSAGE_MAP()
  59. /////////////////////////////////////////////////////////////////////////////
  60. // CODBCRWExcelDlg dialog
  62. CODBCRWExcelDlg::CODBCRWExcelDlg(CWnd* pParent /*=NULL*/)
  63. : CDialog(CODBCRWExcelDlg::IDD, pParent)
  64. {
  65. //{{AFX_DATA_INIT(CODBCRWExcelDlg)
  66. m_csName = _T("");
  67. m_csAge = _T("");
  68. //}}AFX_DATA_INIT
  69. // Note that LoadIcon does not require a subsequent DestroyIcon in Win32
  70. m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
  72. m_csSex = _T("");
  73. m_csDatebaseFile = _T("");
  74. }
  76. void CODBCRWExcelDlg::DoDataExchange(CDataExchange* pDX)
  77. {
  78. CDialog::DoDataExchange(pDX);
  79. //{{AFX_DATA_MAP(CODBCRWExcelDlg)
  80. DDX_Control(pDX, IDC_COMBO_SEX, m_comboSex);
  81. DDX_Control(pDX, IDC_INFO_LIST, m_ListCtrlInfo);
  82. DDX_Text(pDX, IDC_EDIT_NAME, m_csName);
  83. DDX_Text(pDX, IDC_EDIT_AGE, m_csAge);
  84. //}}AFX_DATA_MAP
  85. }
  87. BEGIN_MESSAGE_MAP(CODBCRWExcelDlg, CDialog)
  88. //{{AFX_MSG_MAP(CODBCRWExcelDlg)
  89. ON_WM_SYSCOMMAND()
  90. ON_WM_PAINT()
  91. ON_WM_QUERYDRAGICON()
  92. ON_BN_CLICKED(IDC_BUTTON_READ_EXCEL, OnButtonReadExcel)
  93. ON_BN_CLICKED(IDC_BUTTON_WRITE_EXCEL, OnButtonWriteExcel)
  94. ON_BN_CLICKED(IDC_BUTTON_QUIT, OnButtonQuit)
  95. ON_BN_CLICKED(IDC_BUTTON_CLEAR_LIST, OnButtonClearList)
  96. ON_NOTIFY(NM_CLICK, IDC_INFO_LIST, OnClickInfoList)
  97. //}}AFX_MSG_MAP
  98. END_MESSAGE_MAP()
  100. /////////////////////////////////////////////////////////////////////////////
  101. // CODBCRWExcelDlg message handlers
  103. BOOL CODBCRWExcelDlg::OnInitDialog()
  104. {
  105. CDialog::OnInitDialog();
  107. // Add "About..." menu item to system menu.
  109. // IDM_ABOUTBOX must be in the system command range.
  110. ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
  111. ASSERT(IDM_ABOUTBOX < 0xF000);
  113. CMenu* pSysMenu = GetSystemMenu(FALSE);
  114. if (pSysMenu != NULL)
  115. {
  116. CString strAboutMenu;
  117. strAboutMenu.LoadString(IDS_ABOUTBOX);
  118. if (!strAboutMenu.IsEmpty())
  119. {
  120. pSysMenu->AppendMenu(MF_SEPARATOR);
  121. pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
  122. }
  123. }
  125. // Set the icon for this dialog.  The framework does this automatically
  126. //  when the application's main window is not a dialog
  127. SetIcon(m_hIcon, TRUE); // Set big icon
  128. SetIcon(m_hIcon, FALSE); // Set small icon
  130. // TODO: Add extra initialization here
  131. //初始化ListCtrl
  132. m_ListCtrlInfo.SetExtendedStyle( LVS_EX_GRIDLINES );
  133. m_ListCtrlInfo.SetExtendedStyle( m_ListCtrlInfo.GetExtendedStyle() | 
  134.                              LVS_EX_FULLROWSELECT );
  135. m_ListCtrlInfo.InsertColumn(0, "姓名", LVCFMT_CENTER, 185);
  136. m_ListCtrlInfo.InsertColumn(1, "性别", LVCFMT_CENTER, 120);
  137. m_ListCtrlInfo.InsertColumn(2, "年龄", LVCFMT_CENTER, 120);
  139. // 初始化下拉列表框
  140. m_comboSex.AddString("男");
  141. m_comboSex.AddString("女");
  142. m_comboSex.SetCurSel(0);
  144. // 若数据库表没有被创建，则将"读取"按钮和"列表"控件置为无效状态
  145. if (!IsCreatedTable())
  146. {
  147. GetDlgItem(IDC_BUTTON_READ_EXCEL)->EnableWindow(FALSE);
  148. GetDlgItem(IDC_INFO_LIST)->EnableWindow(FALSE);
  149. }
  151. return TRUE;  // return TRUE  unless you set the focus to a control
  152. }
  154. void CODBCRWExcelDlg::OnSysCommand(UINT nID, LPARAM lParam)
  155. {
  156. if ((nID & 0xFFF0) == IDM_ABOUTBOX)
  157. {
  158. CAboutDlg dlgAbout;
  159. dlgAbout.DoModal();
  160. }
  161. else
  162. {
  163. CDialog::OnSysCommand(nID, lParam);
  164. }
  165. }
  167. // If you add a minimize button to your dialog, you will need the code below
  168. //  to draw the icon.  For MFC applications using the document/view model,
  169. //  this is automatically done for you by the framework.
  171. void CODBCRWExcelDlg::OnPaint() 
  172. {
  173. if (IsIconic())
  174. {
  175. CPaintDC dc(this); // device context for painting
  177. SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);
  179. // Center icon in client rectangle
  180. int cxIcon = GetSystemMetrics(SM_CXICON);
  181. int cyIcon = GetSystemMetrics(SM_CYICON);
  182. CRect rect;
  183. GetClientRect(&rect);
  184. int x = (rect.Width() - cxIcon + 1) / 2;
  185. int y = (rect.Height() - cyIcon + 1) / 2;
  187. // Draw the icon
  188. dc.DrawIcon(x, y, m_hIcon);
  189. }
  190. else
  191. {
  192. CDialog::OnPaint();
  193. }
  194. }
  196. // The system calls this to obtain the cursor to display while the user drags
  197. //  the minimized window.
  198. HCURSOR CODBCRWExcelDlg::OnQueryDragIcon()
  199. {
  200. return (HCURSOR) m_hIcon;
  201. }
  203. void CODBCRWExcelDlg::OnButtonReadExcel() 
  204. {
  205. // TODO: Add your control notification handler code here
  206. CDatabase database;
  207.     CString csSql = _T("");
  208.     CString csName = _T("");
  209. CString csSex = _T("");
  210. CString csAge = _T("");
  211.     CString csDriver = _T("");
  212.     CString csDsn = _T("");
  213.                                     
  214. // 获取主程序所在路径
  215. // 获取数据库文件
  216. m_csDatebaseFile = GetDatabaseFile();
  218.     // 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)" 
  219.     csDriver = GetExcelDriver();
  220.     if (csDriver.IsEmpty())
  221.     {
  222.         // 没有发现Excel驱动
  223.         AfxMessageBox("没有安装Excel驱动!");
  224.         return;
  225.     }
  226.     
  227.     // 创建进行存取的字符串
  228.     csDsn.Format(_T("ODBC;DRIVER={%s};DSN='';DBQ=%s"), csDriver, m_csDatebaseFile);
  230.     TRY
  231.     {
  232.         // 打开数据库
  233.         database.Open(NULL, false, false, csDsn);
  234.         
  235.         CRecordset rs(&database);
  237.         // 设置读取的查询语句.
  238.         csSql = "SELECT Name, Sex, Age "       
  239.                "FROM ClassmateInfo " ;                
  240.                "ORDER BY Name ";
  241.     
  242.         // 执行查询语句
  243.         rs.Open(CRecordset::forwardOnly, csSql, CRecordset::readOnly);
  245. // 清空列表
  246. if (m_ListCtrlInfo.GetItemCount() !=0)
  247. {
  248. m_ListCtrlInfo.DeleteAllItems();
  249. }
  251.         // 获取查询结果
  252.         while (!rs.IsEOF())
  253.         {
  254.             // 读取Excel内部数值
  255.             rs.GetFieldValue("Name", csName);
  256. rs.GetFieldValue("Sex", csSex);
  257.             rs.GetFieldValue("Age", csAge);
  258. csAge = csAge.Mid(0,csAge.ReverseFind('.'));
  260. // 显示记录的内容
  261. m_ListCtrlInfo.InsertItem(0, _T(""));
  262. m_ListCtrlInfo.SetItemText(0, 0, csName);
  263. m_ListCtrlInfo.SetItemText(0, 1, csSex);
  264. m_ListCtrlInfo.SetItemText(0, 2, csAge);
  266.             // 移到下一条记录
  267.             rs.MoveNext();
  268.         }
  270. // 显示读Excel文件的信息
  271. GetDlgItem(IDC_STATIC_OPERATION_INFO)->SetWindowText(_T("Excel文件读取成功！"));
  273.         // 关闭数据库
  274.         database.Close();                             
  275.     }
  276.     CATCH(CDBException, e)
  277.     {
  278.         // 数据库操作产生异常
  279.         AfxMessageBox("数据库错误: " + e->m_strError);
  280.     }
  281.     END_CATCH;
  282. }
  284. void CODBCRWExcelDlg::OnButtonWriteExcel() 
  285. {
  286. // TODO: Add your control notification handler code here
  287. UpdateData();
  289. // 判决姓名是否为空
  290. if (m_csName.IsEmpty())
  291. {
  292. GetDlgItem(IDC_STATIC_OPERATION_INFO)->SetWindowText(_T("姓名不能为空!"));
  293. return;
  294. }
  296. // 判决年龄是否为空
  297. if (m_csAge.IsEmpty())
  298. {
  299. GetDlgItem(IDC_STATIC_OPERATION_INFO)->SetWindowText(_T("年龄不能为空!"));
  300. return;
  301. }
  303. CDatabase database;
  304. CString csDriver = "MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安装驱动 
  305. CString csSql = _T("");
  307. // 获取数据库文件
  308. m_csDatebaseFile = GetDatabaseFile();
  310. // 创建进行存取的字符串
  311. csSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB="%s";DBQ=%s",
  312.   csDriver, m_csDatebaseFile, m_csDatebaseFile);
  314. TRY
  315. {
  316. // 创建数据库 (Excel表格文件)
  317. if ( database.OpenEx(csSql,CDatabase::noOdbcDialog) )
  318. {
  319. // 判断表ClassmateInfo是否已经被创建，若否，则创建。
  320. if (!IsCreatedTable())
  321. {
  322. // 创建表结构(姓名、性别和年龄)
  323. csSql = "CREATE TABLE ClassmateInfo (Name TEXT,Sex TEXT,Age NUMBER)";
  324. database.ExecuteSQL(csSql);
  325. }  
  327. // 写入ini文件
  328. ::WritePrivateProfileString( "CreateTable", "IsCreated", "TRUE", "./CreateTable.ini" ); 
  330. // 获取性别
  331. int nCurSelSex = m_comboSex.GetCurSel();
  332. m_comboSex.GetLBText(nCurSelSex, m_csSex);
  334. // 插入数值
  335. csSql = "INSERT INTO ClassmateInfo (Name,Sex,Age) VALUES ('"+m_csName+"','"+m_csSex+"','"+m_csAge+"')";
  336. database.ExecuteSQL(csSql);
  337. }  
  339. // 关闭数据库
  340. database.Close();
  342. // 在列表控件中显示记录
  343. OnButtonReadExcel();
  345. // 显示写Excel文件的信息
  346. GetDlgItem(IDC_STATIC_OPERATION_INFO)->SetWindowText(_T("Excel文件写入成功！"));
  348. // 清空编辑框
  349. m_csName = _T("");
  350. m_csAge = _T("");
  351. UpdateData();
  353. GetDlgItem(IDC_BUTTON_READ_EXCEL)->EnableWindow(TRUE);
  354. GetDlgItem(IDC_INFO_LIST)->EnableWindow(TRUE);
  355. }
  356. CATCH_ALL(e)
  357. {
  358. AfxMessageBox("异常发生!");
  359. }
  360. END_CATCH_ALL;
  361. }
  363. CString CODBCRWExcelDlg::GetExcelDriver()
  364. {
  365.     char szBuf[2001];
  366.     WORD cbBufMax = 2000;
  367.     WORD cbBufOut;
  368.     char *pszBuf = szBuf;
  369.     CString csDriver =  _T("");
  371.     // 获取已安装驱动的名称
  372.     if (!SQLGetInstalledDrivers(szBuf, cbBufMax, &cbBufOut))
  373. {
  374.         return _T("");
  375. }
  376.     
  377.     // 检索已安装的驱动是否有Excel
  378.     do
  379.     {
  380.         if (strstr(pszBuf, "Excel") != 0)
  381.         {
  382.             // 发现驱动
  383.             csDriver = CString(pszBuf);
  384.             break;
  385.         }
  386.         pszBuf = strchr(pszBuf, '') + 1;
  387.     }
  388.     while (pszBuf[1] != '');
  390.     return csDriver;
  391. }
  393. BOOL CODBCRWExcelDlg::IsCreatedTable()
  394. {
  395. // 读取CreateTable.ini文件
  396. CString csCreateInfo = _T("");
  397. ::GetPrivateProfileString(_T("CreateTable"), _T("IsCreated"), _T(""), 
  398.                       csCreateInfo.GetBuffer(MAX_PATH), 
  399.   MAX_PATH, 
  400.   _T("./CreateTable.ini"));
  402. if (csCreateInfo.Compare(_T("TRUE")) != 0)
  403. {
  404. return FALSE;
  405. }
  407. return TRUE;
  408. }
  410. void CODBCRWExcelDlg::OnButtonQuit() 
  411. {
  412. // TODO: Add your control notification handler code here
  413. CDialog::OnCancel();
  414. }
  416. void CODBCRWExcelDlg::OnButtonClearList() 
  417. {
  418. // TODO: Add your control notification handler code here
  419. // 判断列表是否为空
  420. int nCount = m_ListCtrlInfo.GetItemCount();
  421. if (nCount == 0)
  422. {
  423. GetDlgItem(IDC_STATIC_OPERATION_INFO)->SetWindowText(_T("列表本来就是空的，点击清除没有意义!"));
  424. return;
  425. }
  427. // 清空列表
  428. m_ListCtrlInfo.DeleteAllItems();
  430. // 显示列表已经被清空的信息
  431. GetDlgItem(IDC_STATIC_OPERATION_INFO)->SetWindowText(_T("列表已经被清空!"));
  432. }
  434. void CODBCRWExcelDlg::OnClickInfoList(NMHDR* pNMHDR, LRESULT* pResult) 
  435. {
  436. // TODO: Add your control notification handler code here
  437. // 判断列表是否为空
  438. if (m_ListCtrlInfo.GetItemCount() == 0)
  439. {
  440. GetDlgItem(IDC_STATIC_OPERATION_INFO)->SetWindowText(_T("当前列表中没有数据!"));
  441. return;
  442. }
  444. // 取得第一条记录的位置
  445. POSITION pos = m_ListCtrlInfo.GetFirstSelectedItemPosition();
  446. if ( NULL == pos )
  447. {
  448. // 若没有选择记录，则给出提示
  449. GetDlgItem(IDC_STATIC_OPERATION_INFO)->SetWindowText(_T("你还没有选择一条记录，请选择!"));
  450. return;
  451. }
  453. while (pos)
  454. { 
  455. // 取得被选择记录的索引
  456. int nIndexInFieldList = m_ListCtrlInfo.GetNextSelectedItem(pos);
  458. // 高亮被的选择记录
  459. m_ListCtrlInfo.SetFocus();
  461. // 取得记录中的子项
  462. m_csName = m_ListCtrlInfo.GetItemText(nIndexInFieldList,0);
  463. m_csSex = m_ListCtrlInfo.GetItemText(nIndexInFieldList,1);
  464. m_csAge = m_ListCtrlInfo.GetItemText(nIndexInFieldList,2);
  465. }
  467. m_comboSex.SetWindowText(m_csSex);
  468. UpdateData(FALSE);
  470. *pResult = 0;
  471. }
  473. CString CODBCRWExcelDlg::GetDatabaseFile()
  474. {
  475. CString csPath = _T("");
  477. // 获取主程序所在路径
  478. GetModuleFileName(NULL,csPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);
  479. csPath.ReleaseBuffer ();
  480. int nPos = 0;
  481. nPos = csPath.ReverseFind ('\');
  482. csPath = csPath.Left (nPos);
  484. CString csDatebaseFile = csPath + "\PersonalInfo.xls"; // 要创建的Excel文件
  486. return csDatebaseFile;
  487. }