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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > ActiveX/DCOM/ATL > 查看源码
DALMyBools.cpp
资源名称：code_and_note_of_COM.rar　[点击查看]
上传用户：weisheen
上传日期：2022-07-09
资源大小：19390k
文件大小：4k
源码类别：

ActiveX/DCOM/ATL

开发平台：

Visual C++

DALMyBools.cpp：源码内容
  1. // DALMyBools.cpp : Implementation of CDALMyBools
  2. #include "stdafx.h"
  3. #include "BooksDAL.h"
  4. #include "DALMyBools.h"
  6. /////////////////////////////////////////////////////////////////////////////
  7. // CDALMyBools
  9. STDMETHODIMP CDALMyBools::InterfaceSupportsErrorInfo(REFIID riid)
  10. {
  11. static const IID* arr[] = 
  12. {
  13. &IID_IDALMyBools
  14. };
  15. for (int i=0; i < sizeof(arr) / sizeof(arr[0]); i++)
  16. {
  17. if (InlineIsEqualGUID(*arr[i],riid))
  18. return S_OK;
  19. }
  20. return S_FALSE;
  21. }
  23. STDMETHODIMP CDALMyBools::GetBookByIsbn(UINT bookisbn, DTOBook **mybook)
  24. {
  25. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  26. // TODO: Add your implementation code here
  27. _ConnectionPtr conn=this->GetMyConn();//自定义的连接函数
  28. *mybook=(DTOBook*)::CoTaskMemAlloc(sizeof(DTOBook));//开辟空间
  29. _CommandPtr sqlobj;
  30. sqlobj.CreateInstance(__uuidof(Command));//生成实例
  31. sqlobj->CommandText=(_bstr_t)this->m_sqlQueryById;//在构造函数那初始化了
  32. sqlobj->CommandType=adCmdText;
  33. sqlobj->ActiveConnection=conn;
  34. _ParameterPtr para1=sqlobj->CreateParameter("id",adInteger,adParamInput,4);
  35. para1->Value=_variant_t((long)bookisbn);
  36. sqlobj->Parameters->Append(para1);
  37. _RecordsetPtr data=sqlobj->Execute(NULL,NULL,adCmdText);
  38. if(!data->adEOF)
  39. {
  40. (*mybook)->BookIsnb=(UINT)(long)(data->GetCollect("bookisnb"));
  41. _variant_t vtname=data->GetCollect("bookname");
  42. (*mybook)->BookName=::SysAllocString(vtname.bstrVal);
  43. _variant_t vtauthor=data->GetCollect("bookauthor");
  44. (*mybook)->BookName=::SysAllocString(vtauthor.bstrVal);
  45. }
  46. return S_OK;
  47. }
  49. STDMETHODIMP CDALMyBools::QueryAllBook(DTOBook **allBook)
  50. {
  51. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  53. // TODO: Add your implementation code here
  55. return S_OK;
  56. }
  58. STDMETHODIMP CDALMyBools::SaveBook(DTOBook *bookdata, UINT *pResult)
  59. {
  60. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  62. // TODO: Add your implementation code here
  64. return S_OK;
  65. }
  67. STDMETHODIMP CDALMyBools::DeleteBookById(UINT id, UINT *iResult)
  68. {
  69. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  71. // TODO: Add your implementation code here
  73. return S_OK;
  74. }
  76. STDMETHODIMP CDALMyBools::Update(DTOBook *Book, UINT *iResult)
  77. {
  78. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  80. // TODO: Add your implementation code here
  82. return S_OK;
  83. }
  87. STDMETHODIMP CDALMyBools::get_UID(BSTR *pVal)
  88. {
  89. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  91. // TODO: Add your implementation code here
  93. return S_OK;
  94. }
  96. STDMETHODIMP CDALMyBools::put_UID(BSTR newVal)
  97. {
  98. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  100. // TODO: Add your implementation code here
  101. this->m_UID=CString(newVal);
  102. ::SysFreeString(newVal);
  103. return S_OK;
  104. }
  106. STDMETHODIMP CDALMyBools::get_PWD(BSTR *pVal)
  107. {
  108. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  110. // TODO: Add your implementation code here
  112. return S_OK;
  113. }
  115. STDMETHODIMP CDALMyBools::put_PWD(BSTR newVal)
  116. {
  117. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  119. // TODO: Add your implementation code here
  120. this->m_PWD=CString(newVal);
  121. ::SysFreeString(newVal);
  123. return S_OK;
  124. }
  126. STDMETHODIMP CDALMyBools::get_DataSource(BSTR *pVal)
  127. {
  128. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  130. // TODO: Add your implementation code here
  132. return S_OK;
  133. }
  135. STDMETHODIMP CDALMyBools::put_DataSource(BSTR newVal)
  136. {
  137. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  139. // TODO: Add your implementation code here
  140. this->m_DataSource=CString(newVal);
  141. ::SysFreeString(newVal);
  142. return S_OK;
  143. }
  145. _ConnectionPtr CDALMyBools::GetMyConn()
  146. {
  147. CString strFormat="Provider=OraOLEDB.Oracle.1;User Id=%s;Data Source=%s";
  148. CString str;
  149. str.Format(strFormat,this->m_UID,this->m_DataSource);
  150. _ConnectionPtr mytools;
  151. mytools.CreateInstance(__uuidof(Connection));
  152. mytools->Open(_bstr_t(str),"",_bstr_t(this->m_PWD),-1);
  153. return mytools;
  154. }