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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > 其他数据库 > 查看源码
RWExcelDlg.cpp
资源名称：ODBCRWExcel.zip　[点击查看]
上传用户：xiuanze55
上传日期：2013-06-16
资源大小：85k
文件大小：11k
源码类别：

其他数据库

开发平台：

Visual C++

RWExcelDlg.cpp：源码内容
  1. //////////////////////////////////////////////////////////////////////////////
  2. //类名：CRWExcelDlg
  3. //功能：直接通过ODBC读、写Excel文件示例实现对话框
  4. //作者：徐景周(jingzhou_xu@163.net)
  5. //组织：未来工作室(Future Studio)
  6. //日期：2002.9.1
  7. /////////////////////////////////////////////////////////////////////////////
  9. #include "stdafx.h"
  10. #include "RWExcel.h"
  11. #include "RWExcelDlg.h"
  13. #ifdef _DEBUG
  14. #define new DEBUG_NEW
  15. #undef THIS_FILE
  16. static char THIS_FILE[] = __FILE__;
  17. #endif
  19. /////////////////////////////////////////////////////////////////////////////
  20. // CAboutDlg dialog used for App About
  22. class CAboutDlg : public CDialog
  23. {
  24. public:
  25. CAboutDlg();
  27. // Dialog Data
  28. //{{AFX_DATA(CAboutDlg)
  29. enum { IDD = IDD_ABOUTBOX };
  30. CPictureEx m_Flag; //GIF动态图像显示
  31. CHyperLink m_Mail; //超链接形式显示EMAIL
  32. CWBButton 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. virtual BOOL OnInitDialog();
  45. //}}AFX_MSG
  46. DECLARE_MESSAGE_MAP()
  47. };
  49. CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
  50. {
  51. //{{AFX_DATA_INIT(CAboutDlg)
  52. //}}AFX_DATA_INIT
  53. }
  55. void CAboutDlg::DoDataExchange(CDataExchange* pDX)
  56. {
  57. CDialog::DoDataExchange(pDX);
  58. //{{AFX_DATA_MAP(CAboutDlg)
  59. DDX_Control(pDX, IDC_FLAG, m_Flag);
  60. DDX_Control(pDX, IDC_STATIC_MAIL, m_Mail);
  61. DDX_Control(pDX, IDOK, m_OK);
  62. //}}AFX_DATA_MAP
  63. }
  65. BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
  66. //{{AFX_MSG_MAP(CAboutDlg)
  67. //}}AFX_MSG_MAP
  68. END_MESSAGE_MAP()
  70. //////////////////////////////////////////////////////////////////////////////
  71. //名称：OnInitDialog
  72. //功能：初始化"关于"对话框
  73. //作者：徐景周(jingzhou_xu@163.net)
  74. //组织：未来工作室(Future Studio)
  75. //日期：2001.12.1
  76. /////////////////////////////////////////////////////////////////////////////
  77. BOOL CAboutDlg::OnInitDialog() 
  78. {
  79. CDialog::OnInitDialog();
  81. //设置“关于”对话框的位图按钮显示
  82. m_OK.LoadBitmaps(IDB_BUTTON,5, 5, 5, 5, 4 );
  84. //加入EMAIL的超连接
  85.     m_Mail.SetURL(_T("mailto:jingzhou_xu@163.net"));
  86. m_Mail.SetUnderline(FALSE);
  88. //显示动态GIF图像logo
  89. if(m_Flag.Load(MAKEINTRESOURCE(IDR_FLAG),_T("GIF")))
  90. {
  91. m_Flag.SetBkColor(RGB(160,180,220));
  92. m_Flag.Draw();
  93. }
  95. return TRUE;  // return TRUE unless you set the focus to a control
  96.               // EXCEPTION: OCX Property Pages should return FALSE
  97. }
  99. /////////////////////////////////////////////////////////////////////////////
  100. // CRWExcelDlg dialog
  102. CRWExcelDlg::CRWExcelDlg(CWnd* pParent /*=NULL*/)
  103. : CDialog(CRWExcelDlg::IDD, pParent)
  104. {
  105. //{{AFX_DATA_INIT(CRWExcelDlg)
  106. //}}AFX_DATA_INIT
  107. // Note that LoadIcon does not require a subsequent DestroyIcon in Win32
  108. m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
  109. }
  111. void CRWExcelDlg::DoDataExchange(CDataExchange* pDX)
  112. {
  113. CDialog::DoDataExchange(pDX);
  114. //{{AFX_DATA_MAP(CRWExcelDlg)
  115. DDX_Control(pDX, IDC_ABOUT, m_About);
  116. DDX_Control(pDX, IDC_LISTEXCEL, m_ExcelList);
  117. DDX_Control(pDX, IDOK, m_OK);
  118. DDX_Control(pDX, IDC_WRITEEXCEL, m_Write);
  119. DDX_Control(pDX, IDC_READEXCEL, m_Read);
  120. //}}AFX_DATA_MAP
  121. }
  123. BEGIN_MESSAGE_MAP(CRWExcelDlg, CDialog)
  124. //{{AFX_MSG_MAP(CRWExcelDlg)
  125. ON_WM_SYSCOMMAND()
  126. ON_WM_PAINT()
  127. ON_WM_QUERYDRAGICON()
  128. ON_BN_CLICKED(IDC_READEXCEL, OnReadexcel)
  129. ON_BN_CLICKED(IDC_WRITEEXCEL, OnWriteexcel)
  130. ON_BN_CLICKED(IDC_ABOUT, OnAbout)
  131. //}}AFX_MSG_MAP
  132. END_MESSAGE_MAP()
  134. /////////////////////////////////////////////////////////////////////////////
  135. // CRWExcelDlg message handlers
  136. //////////////////////////////////////////////////////////////////////////////
  137. //名称：OnInitDialog
  138. //功能：初始化对话框
  139. //作者：徐景周(jingzhou_xu@163.net)
  140. //组织：未来工作室(Future Studio)
  141. //日期：2002.9.1
  142. /////////////////////////////////////////////////////////////////////////////
  143. BOOL CRWExcelDlg::OnInitDialog()
  144. {
  145. CDialog::OnInitDialog();
  147. // Add "About..." menu item to system menu.
  149. // IDM_ABOUTBOX must be in the system command range.
  150. ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
  151. ASSERT(IDM_ABOUTBOX < 0xF000);
  153. CMenu* pSysMenu = GetSystemMenu(FALSE);
  154. if (pSysMenu != NULL)
  155. {
  156. CString strAboutMenu;
  157. strAboutMenu.LoadString(IDS_ABOUTBOX);
  158. if (!strAboutMenu.IsEmpty())
  159. {
  160. pSysMenu->AppendMenu(MF_SEPARATOR);
  161. pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
  162. }
  163. }
  165. // Set the icon for this dialog.  The framework does this automatically
  166. //  when the application's main window is not a dialog
  167. SetIcon(m_hIcon, TRUE); // Set big icon
  168. SetIcon(m_hIcon, FALSE); // Set small icon
  170. //初始置窗体位于最顶层
  171. SetWindowPos(&wndTopMost, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE);
  173. //设置位图按钮显示
  174. m_OK.LoadBitmaps(IDB_BUTTON,5, 5, 5, 5, 4 );
  175. m_About.LoadBitmaps(IDB_BUTTON,5, 5, 5, 5, 4 );
  176. m_Write.LoadBitmaps(IDB_BUTTON,5, 5, 5, 5, 4 );
  177. m_Read.LoadBitmaps(IDB_BUTTON,5, 5, 5, 5, 4 );
  179. return TRUE;  // return TRUE  unless you set the focus to a control
  180. }
  182. void CRWExcelDlg::OnSysCommand(UINT nID, LPARAM lParam)
  183. {
  184. if ((nID & 0xFFF0) == IDM_ABOUTBOX)
  185. {
  186. CAboutDlg dlgAbout;
  187. dlgAbout.DoModal();
  188. }
  189. else
  190. {
  191. CDialog::OnSysCommand(nID, lParam);
  192. }
  193. }
  195. // If you add a minimize button to your dialog, you will need the code below
  196. //  to draw the icon.  For MFC applications using the document/view model,
  197. //  this is automatically done for you by the framework.
  199. void CRWExcelDlg::OnPaint() 
  200. {
  201. if (IsIconic())
  202. {
  203. CPaintDC dc(this); // device context for painting
  205. SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);
  207. // Center icon in client rectangle
  208. int cxIcon = GetSystemMetrics(SM_CXICON);
  209. int cyIcon = GetSystemMetrics(SM_CYICON);
  210. CRect rect;
  211. GetClientRect(&rect);
  212. int x = (rect.Width() - cxIcon + 1) / 2;
  213. int y = (rect.Height() - cyIcon + 1) / 2;
  215. // Draw the icon
  216. dc.DrawIcon(x, y, m_hIcon);
  217. }
  218. else
  219. {
  220. CDialog::OnPaint();
  221. }
  222. }
  224. // The system calls this to obtain the cursor to display while the user drags
  225. //  the minimized window.
  226. HCURSOR CRWExcelDlg::OnQueryDragIcon()
  227. {
  228. return (HCURSOR) m_hIcon;
  229. }
  231. //////////////////////////////////////////////////////////////////////////////
  232. //名称：OnReadexcel
  233. //功能：从Excel文件中读取相应数据并显示出来
  234. //作者：徐景周(jingzhou_xu@163.net)
  235. //组织：未来工作室(Future Studio)
  236. //日期：2002.9.1
  237. /////////////////////////////////////////////////////////////////////////////
  238. void CRWExcelDlg::OnReadexcel() 
  239. {
  240. CDatabase database;
  241.     CString sSql;
  242.     CString sItem1, sItem2;
  243.     CString sDriver;
  244.     CString sDsn;
  245.     CString sFile,sPath;
  247.                                     
  248. //获取主程序所在路径,存在sPath中
  249. GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);
  250. sPath.ReleaseBuffer ();
  251.     int nPos;
  252. nPos=sPath.ReverseFind ('\');
  253. sPath=sPath.Left (nPos);
  255. sFile = sPath + "\Demo.xls";  // 将被读取的Excel文件名
  257.     // 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)" 
  258.     sDriver = GetExcelDriver();
  259.     if (sDriver.IsEmpty())
  260.     {
  261.         // 没有发现Excel驱动
  262.         AfxMessageBox("没有安装Excel驱动!");
  263.         return;
  264.     }
  265.     
  266.     // 创建进行存取的字符串
  267.     sDsn.Format("ODBC;DRIVER={%s};DSN='';DBQ=%s", sDriver, sFile);
  269.     TRY
  270.     {
  271.         // 打开数据库(既Excel文件)
  272.         database.Open(NULL, false, false, sDsn);
  273.         
  274.         CRecordset recset(&database);
  276.         // 设置读取的查询语句.
  277.         sSql = "SELECT Name, Age "       
  278.                "FROM Exceldemo " ;                
  279.                "ORDER BY Name ";
  280.     
  281.         // 执行查询语句
  282.         recset.Open(CRecordset::forwardOnly, sSql, CRecordset::readOnly);
  284.         // 获取查询结果
  285.         while (!recset.IsEOF())
  286.         {
  287.             //读取Excel内部数值
  288.             recset.GetFieldValue("Name", sItem1);
  289.             recset.GetFieldValue("Age", sItem2);
  291. //显示记取的内容
  292. m_ExcelList.AddString( sItem1 + " --> "+sItem2 );
  294.             // 移到下一行
  295.             recset.MoveNext();
  296.         }
  298.         // 关闭数据库
  299.         database.Close();
  300.                              
  301.     }
  302.     CATCH(CDBException, e)
  303.     {
  304.         // 数据库操作产生异常时...
  305.         AfxMessageBox("数据库错误: " + e->m_strError);
  306.     }
  307.     END_CATCH;
  310. }
  312. //////////////////////////////////////////////////////////////////////////////
  313. //名称：GetExcelDriver
  314. //功能：获取ODBC中Excel驱动
  315. //作者：徐景周(jingzhou_xu@163.net)
  316. //组织：未来工作室(Future Studio)
  317. //日期：2002.9.1
  318. /////////////////////////////////////////////////////////////////////////////
  319. CString CRWExcelDlg::GetExcelDriver()
  320. {
  321.     char szBuf[2001];
  322.     WORD cbBufMax = 2000;
  323.     WORD cbBufOut;
  324.     char *pszBuf = szBuf;
  325.     CString sDriver;
  327.     // 获取已安装驱动的名称(涵数在odbcinst.h里)
  328.     if (!SQLGetInstalledDrivers(szBuf, cbBufMax, &cbBufOut))
  329.         return "";
  330.     
  331.     // 检索已安装的驱动是否有Excel...
  332.     do
  333.     {
  334.         if (strstr(pszBuf, "Excel") != 0)
  335.         {
  336.             //发现 !
  337.             sDriver = CString(pszBuf);
  338.             break;
  339.         }
  340.         pszBuf = strchr(pszBuf, '') + 1;
  341.     }
  342.     while (pszBuf[1] != '');
  344.     return sDriver;
  345. }
  347. //////////////////////////////////////////////////////////////////////////////
  348. //名称：OnWriteexcel
  349. //功能：创建并写入数据到Excel文件中
  350. //作者：徐景周(jingzhou_xu@163.net)
  351. //组织：未来工作室(Future Studio)
  352. //日期：2002.9.1
  353. /////////////////////////////////////////////////////////////////////////////
  354. void CRWExcelDlg::OnWriteexcel() 
  355. {
  356.   CDatabase database;
  357.   CString sDriver = "MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安装驱动
  358.   CString sExcelFile,sPath; 
  359.   CString sSql;
  360.     
  361.   //获取主程序所在路径,存在sPath中
  362.   GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);
  363.   sPath.ReleaseBuffer ();
  364.   int nPos;
  365.   nPos=sPath.ReverseFind ('\');
  366.   sPath=sPath.Left (nPos);
  368.   sExcelFile = sPath + "\Demo.xls";  // 要建立的Excel文件
  370.   TRY
  371.   {
  372.     // 创建进行存取的字符串
  373.     sSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB="%s";DBQ=%s",sDriver, sExcelFile, sExcelFile);
  375.     // 创建数据库 (既Excel表格文件)
  376.     if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )
  377.     {
  378.       // 创建表结构(姓名、年龄)
  379.       sSql = "CREATE TABLE Exceldemo (Name TEXT,Age NUMBER)";
  380.       database.ExecuteSQL(sSql);
  382.       // 插入数值
  383.       sSql = "INSERT INTO Exceldemo (Name,Age) VALUES ('徐景周',26)";
  384.       database.ExecuteSQL(sSql);
  386.       sSql = "INSERT INTO Exceldemo (Name,Age) VALUES ('徐志慧',22)";
  387.       database.ExecuteSQL(sSql);
  389.       sSql = "INSERT INTO Exceldemo (Name,Age) VALUES ('郭徽',27)";
  390.       database.ExecuteSQL(sSql);
  391.     }      
  393.     // 关闭数据库
  394.     database.Close();
  396. AfxMessageBox("Excel文件写入成功！");
  397.   }
  398.   CATCH_ALL(e)
  399.   {
  400.     TRACE1("Excel驱动没有安装: %s",sDriver);
  401.   }
  402.   END_CATCH_ALL;
  404. }
  406. //////////////////////////////////////////////////////////////////////////////
  407. //名称：OnAbout
  408. //功能：弹出"关于"对话框
  409. //作者：徐景周(jingzhou_xu@163.net)
  410. //组织：未来工作室(Future Studio)
  411. //日期：2002.9.1
  412. /////////////////////////////////////////////////////////////////////////////
  413. void CRWExcelDlg::OnAbout() 
  414. {
  415. CAboutDlg AboutDlg;
  417. AboutDlg.DoModal();
  418. }