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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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(GetIdPara(bookisbn,sqlobj));
  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)->BookAuthor=::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())
  70. // TODO: Add your implementation code here
  71. _ConnectionPtr conn=this->GetMyConn();
  73. _CommandPtr sqlobj;
  74. sqlobj.CreateInstance(__uuidof(Command));
  75. sqlobj->CommandText=(_bstr_t)this->m_sqlDelete;
  76. sqlobj->CommandType=adCmdText;
  77. sqlobj->ActiveConnection=conn;
  78. sqlobj->Parameters->Append(GetIdPara(id,sqlobj));
  79. VARIANT vResult;
  80. vResult.vt=VT_I4;
  81. try{
  82. sqlobj->Execute(&vResult,NULL,adCmdText);
  83. }
  84. catch(_com_error ex)
  85. {
  86. int i=0;
  87. i=i+1;
  88. }
  89. *iResult=vResult.lVal;
  90. return S_OK;
  91. }
  93. STDMETHODIMP CDALMyBools::Update(DTOBook *Book, UINT *iResult)
  94. {
  95. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  97. // TODO: Add your implementation code here
  98. return S_OK;
  99. }
  103. STDMETHODIMP CDALMyBools::get_UID(BSTR *pVal)
  104. {
  105. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  106. // TODO: Add your implementation code here
  107. return S_OK;
  108. }
  110. STDMETHODIMP CDALMyBools::put_UID(BSTR newVal)
  111. {
  112. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  113. // TODO: Add your implementation code here
  114. this->m_UID=CString(newVal);
  115. ::SysFreeString(newVal);
  116. return S_OK;
  117. }
  119. STDMETHODIMP CDALMyBools::get_PWD(BSTR *pVal)
  120. {
  121. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  122. // TODO: Add your implementation code here
  123. return S_OK;
  124. }
  126. STDMETHODIMP CDALMyBools::put_PWD(BSTR newVal)
  127. {
  128. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  130. // TODO: Add your implementation code here
  131. this->m_PWD=CString(newVal);
  132. ::SysFreeString(newVal);
  134. return S_OK;
  135. }
  137. STDMETHODIMP CDALMyBools::get_DataSource(BSTR *pVal)
  138. {
  139. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  141. // TODO: Add your implementation code here
  143. return S_OK;
  144. }
  146. STDMETHODIMP CDALMyBools::put_DataSource(BSTR newVal)
  147. {
  148. AFX_MANAGE_STATE(AfxGetStaticModuleState())
  150. // TODO: Add your implementation code here
  151. this->m_DataSource=CString(newVal);
  152. ::SysFreeString(newVal);
  153. return S_OK;
  154. }
  156. _ConnectionPtr CDALMyBools::GetMyConn()
  157. {
  158. CString strFormat="Provider=OraOLEDB.Oracle.1;User Id=%s;Data Source=%s";
  159. CString str;
  160. str.Format(strFormat,this->m_UID,this->m_DataSource);
  161. _ConnectionPtr mytools;
  162. mytools.CreateInstance(__uuidof(Connection));
  163. mytools->Open(_bstr_t(str),"",_bstr_t(this->m_PWD),-1);
  164. return mytools;
  165. }
  167. _ParameterPtr CDALMyBools::GetIdPara(UINT id,_CommandPtr sqlObj)
  168. {
  169. _ParameterPtr para1=sqlObj->CreateParameter("id",adInteger,adParamInput,4);
  170. para1->Value=_variant_t((long)id);
  171. return para1;
  172. }