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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 百货/超市行业 > 查看源码
ADOConn.cpp
资源名称：chaoshiguanli.rar　[点击查看]
上传用户：jzscgs158
上传日期：2022-05-25
资源大小：8709k
文件大小：19k
源码类别：

百货/超市行业

开发平台：

Visual C++

ADOConn.cpp：源码内容
  1. #include "StdAfx.h"
  2. #include "ADOConn.h"
  3. //功能:构造函数
  4. //strData:数据库的名字
  5. CString CADOConn::GetAppPath()
  6. {
  7. char lpFileName[MAX_PATH];
  8. GetModuleFileName(AfxGetInstanceHandle(),lpFileName,MAX_PATH);
  10. CString strFileName = lpFileName;
  11. int nIndex = strFileName.ReverseFind ('\');
  13. CString strPath;
  15. if (nIndex > 0)
  16. strPath = strFileName.Left (nIndex);
  17. else
  18. strPath = "";
  19. return strPath;
  20. }
  21. CADOConn::CADOConn(CString strData)
  22. {
  23. CString strValue;
  24. strData.TrimLeft();
  25. strData.TrimRight();
  26. m_strData=_bstr_t(strData);
  27. strValue=strData.Right(3);
  28. if(strValue=="mdb") m_DataType=1;
  29. if(strValue=="xls") m_DataType=2;
  30. }
  31. CADOConn::CADOConn()
  32. {
  33. m_DataType=3;
  34. }
  35. //功能:析构函数
  36. CADOConn::~CADOConn()
  37. {
  39. }
  40. //功能:初始化数据库连接
  41. void  CADOConn::OnInitCADOConn()
  42. {
  43. // 初始化OLE/COM库环境
  44. ::CoInitialize(NULL);
  45.   try
  46. {
  47. //初始化指针
  48. m_pConnection=NULL;
  49. //初始化指针
  50. m_pRecordset=NULL;
  51. // 创建Connection对象
  52. m_pConnection.CreateInstance("ADODB.Connection");
  53. // 设置连接字符串，必须是BSTR型或者_bstr_t类型
  54. _bstr_t strConnect;
  55. switch(m_DataType)
  56. {
  57. case 1://ACCESS
  58. strConnect=_bstr_t("Provider=Microsoft.Jet.OLEDB.4.0;");
  59. strConnect=strConnect+_bstr_t("Data Source=");
  60. strConnect=strConnect+_bstr_t(GetAppPath())+_bstr_t("\");
  61. strConnect=strConnect+m_strData;
  62. break;
  63. case 2://EXCEL
  64. strConnect=_bstr_t("Provider=Microsoft.Jet.OLEDB.4.0;");
  65. strConnect=strConnect+_bstr_t("Data Source=");
  66. strConnect=strConnect+_bstr_t(GetAppPath())+_bstr_t("\");
  67. strConnect=strConnect+m_strData;
  68. strConnect=strConnect+";Extended Properties=Excel 8.0";
  69. break;
  70. case 3://SQLSERVER
  71. strConnect=_bstr_t("Provider=Microsoft.Jet.OLEDB.4.0;");
  72. strConnect=strConnect+_bstr_t("Data Source=D:\FECG\");
  73. strConnect=strConnect+";Extended Properties=Excel 8.0";
  74. break;
  75. }
  76. m_pConnection->Open(strConnect,_bstr_t(""),_bstr_t(""),adModeUnknown);
  77. }
  78. // 捕捉异常
  79. catch(_com_error e)
  80. {
  81. // 显示错误信息
  82. AfxMessageBox(e.Description());
  83. }
  84. ASSERT(m_pConnection != NULL);
  85. }
  86. //功能:执行查询
  87. //返回值:字段集的指针
  88. _RecordsetPtr&  CADOConn::GetRecordSet(CString strSQL)
  89. {
  91. try
  92. {
  93. // 连接数据库，如果Connection对象为空，则重新连接数据库
  94. if(m_pConnection==NULL)OnInitCADOConn();
  95. strSQL.TrimLeft();
  96. strSQL.TrimRight();
  97. // 创建记录集对象
  98. m_pRecordset.CreateInstance(__uuidof(Recordset));
  99. // 取得表中的记录
  100. m_pRecordset->Open(_bstr_t(strSQL),m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
  101. }
  102. // 捕捉异常
  103. catch(_com_error e)
  104. {
  105. // 显示错误信息
  106. AfxMessageBox(e.Description());
  107. }
  108. ASSERT(m_pRecordset!= NULL);
  109. // 返回记录集
  110. return m_pRecordset;
  111. }
  112. //功能:打开字符集
  113. //返回值:TRUE:成功 FALSE:失败
  114. BOOL CADOConn::Open(CString strSQL)
  115. {
  116. try
  117. {
  118. // 连接数据库，如果Connection对象为空，则重新连接数据库
  119. if(m_pConnection==NULL) OnInitCADOConn();
  120. strSQL.TrimLeft();
  121. strSQL.TrimRight();
  122. // 创建记录集对象
  123. m_pRecordset.CreateInstance(__uuidof(Recordset));
  124. // 取得表中的记录
  125. m_pRecordset->Open(_bstr_t(strSQL),m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
  126. }
  127. // 捕捉异常
  128. catch(_com_error e)
  129. {
  130. // 显示错误信息
  131. AfxMessageBox(e.Description());
  132. return FALSE;
  133. }
  134. // 返回记录集
  135. ASSERT(m_pRecordset!= NULL);
  136. return TRUE;
  137. }
  138. //功能:记录集移向开头
  139. //返回值:TRUE:成功 FALSE:失败
  140. BOOL CADOConn::MoveFirst()
  141. {
  142. if(m_pRecordset==NULL) 
  143. return FALSE;
  144. else
  145. {
  146. m_pRecordset->MoveFirst();
  147. return TRUE;
  148. }
  150. }
  151. //功能:记录集向下移动
  152. //返回值:TRUE:成功 FALSE:失败
  153. BOOL CADOConn::MoveNext()
  154. {
  155. if(m_pRecordset==NULL) 
  156. return FALSE;
  157. else
  158. {
  159. if (!m_pRecordset->adoEOF)
  160. {
  161. m_pRecordset->MoveNext();
  162. return TRUE;
  163. }
  164. else
  165. return FALSE;
  166. }
  168. }
  169. //功能:取得字段中的字符串
  170. //index:字段集中的索引
  171. //strSum:返回的字符的长度(<=实际:代表全部返回,>实际:左补空格)
  172. CString CADOConn::GetValueString(int index,int strSum)
  173. {
  174. _variant_t vValue;//var型返回值
  175. _variant_t vIndex;//索引
  176. CString strValue,strType,str;//strValue:初始返回值 strType:格式化字符串 str:最终返回值
  177. vIndex.vt=VT_I2;
  178. vIndex.iVal=index;
  179. vValue=m_pRecordset->Fields->GetItem(vIndex)->Value;
  180. switch(vValue.vt)
  181. {
  182. case VT_NULL:
  183. str="";
  184. break;
  185. case VT_ERROR:
  186. str="";
  187. break;
  188. case VT_EMPTY:
  189. str="";
  190. break;
  191. default:
  192. str=(LPCSTR)_bstr_t(vValue);
  193. }
  194. strType.Format("%d",strSum);
  195. strType="%"+strType+"s";
  196. strValue.Format(strType,str);
  197. return strValue;
  199. }
  200. //功能:取得字段中的字节型整数
  201. //index:字段集中的索引
  202. byte CADOConn::GetValueByte(int index)
  203. {
  204. _variant_t vValue;//var型返回值
  205. _variant_t vIndex;//索引
  206. byte bValue;//数值返回值
  207. vIndex.vt=VT_I2;
  208. vIndex.iVal=index;
  209. vValue=m_pRecordset->Fields->GetItem(vIndex)->Value;
  210. switch(vValue.vt)
  211. {
  212. case VT_NULL:
  213. bValue=0;
  214. break;
  215. case VT_ERROR:
  216. bValue=0;
  217. break;
  218. case VT_EMPTY:
  219. bValue=0;
  220. break;
  221. default:
  222. bValue=vValue.bVal;
  223. }
  224. return bValue;
  225. }
  226. //功能:取得字段中的字节型整数的字符串形式
  227. //index:字段集中的索引
  228. //strSum:返回的字符的长度(<=实际:代表全部返回,>实际:左补空格)
  229. CString CADOConn::GetValueByteStr (int index,int strSum)
  230. {
  231. _variant_t vValue;//var型返回值
  232. _variant_t vIndex;//索引
  233. byte bValue;//数值返回值
  234. CString strValue,strType;//strValue:字符串返回值 strType:格式化字符串
  235. vIndex.vt=VT_I2;
  236. vIndex.iVal=index;
  237. vValue=m_pRecordset->Fields->GetItem(vIndex)->Value;
  238. switch(vValue.vt)
  239. {
  240. case VT_NULL:
  241. bValue=0;
  242. break;
  243. case VT_ERROR:
  244. bValue=0;
  245. break;
  246. case VT_EMPTY:
  247. bValue=0;
  248. break;
  249. default:
  250. bValue=vValue.bVal;
  251. }
  252. strType.Format("%d",strSum);
  253. strType="%"+strType+"d";
  254. strValue.Format(strType,bValue);
  255. return strValue;
  256. }
  257. //功能:取得字段中的短整型整数
  258. //index:字段集中的索引
  259. int CADOConn::GetValueInt(int index)
  260. {
  261. _variant_t vValue;//var型返回值
  262. _variant_t vIndex;//索引
  263. int iValue;//数值返回值
  264. vIndex.vt=VT_I2;
  265. vIndex.iVal=index;
  266. vValue=m_pRecordset->Fields->GetItem(vIndex)->Value;
  267. switch(vValue.vt)
  268. {
  269. case VT_NULL:
  270. iValue=0;
  271. break;
  272. case VT_ERROR:
  273. iValue=0;
  274. break;
  275. case VT_EMPTY:
  276. iValue=0;
  277. break;
  278. default:
  279. iValue=vValue.iVal;
  280. }
  281. return iValue;
  282. }
  283. //功能:取得字段中的短整型整数的字符串形式
  284. //index:字段集中的索引
  285. //strSum:返回的字符的长度(<=实际:代表全部返回,>实际:左补空格)
  286. CString CADOConn::GetValueIntStr(int index,int strSum)
  287. {
  288. _variant_t vValue;//var型返回值
  289. _variant_t vIndex;//索引
  290. int iValue;//数值返回值
  291. CString strValue,strType;//strValue:字符串返回值 strType:格式化字符串
  292. vIndex.vt=VT_I2;
  293. vIndex.iVal=index;
  294. vValue=m_pRecordset->Fields->GetItem(vIndex)->Value;
  295. switch(vValue.vt)
  296. {
  297. case VT_NULL:
  298. iValue=0;
  299. break;
  300. case VT_ERROR:
  301. iValue=0;
  302. break;
  303. case VT_EMPTY:
  304. iValue=0;
  305. break;
  306. default:
  307. iValue=vValue.iVal;
  308. }
  309. strType.Format("%d",strSum);
  310. strType="%"+strType+"d";
  311. strValue.Format(strType,iValue);
  312. return strValue;
  313. }
  314. //功能:取得字段中的双精度浮点数
  315. //index:字段集中的索引
  316. double CADOConn::GetValueDouble(int index)
  317. {
  318. _variant_t vValue;//var型返回值
  319. _variant_t vIndex;//索引
  320. double dValue;//数值返回值
  321. vIndex.vt=VT_I2;
  322. vIndex.iVal=index;
  323. vValue=m_pRecordset->Fields->GetItem(vIndex)->Value;
  324. switch(vValue.vt)
  325. {
  326. case VT_NULL:
  327. dValue=0;
  328. break;
  329. case VT_ERROR:
  330. dValue=0;
  331. break;
  332. case VT_EMPTY:
  333. dValue=0;
  334. break;
  335. default:
  336. dValue=vValue.dblVal;
  337. }
  338. return dValue;
  339. }
  340. //功能:取得字段中的双精度浮点数的字符串形式
  341. //index:字段集中的索引
  342. //strLSum(整数部分):返回的整数部分的长度(<=实际:代表全部返回,>实际:左补空格)
  343. //strRSum(小数部分):返回的小数部分的长度(<=实际:代表全部返回,>实际:右补空格)
  344. CString CADOConn::GetValueDoubleStr(int index,int strLSum,int strRSum)
  345. {
  346. _variant_t vValue;//var型返回值
  347. _variant_t vIndex;//索引
  348. double dValue;//数值返回值
  349. CString strValue,strType;//strValue:字符串返回值 strType:格式化字符串
  350. vIndex.vt=VT_I2;
  351. vIndex.iVal=index;
  352. vValue=m_pRecordset->Fields->GetItem(vIndex)->Value;
  353. switch(vValue.vt)
  354. {
  355. case VT_NULL:
  356. dValue=0;
  357. break;
  358. case VT_ERROR:
  359. dValue=0;
  360. break;
  361. case VT_EMPTY:
  362. dValue=0;
  363. break;
  364. default:
  365. dValue=vValue.dblVal;
  366. }
  367. strType.Format("%d.%d",strLSum,strRSum);
  368. strType="%"+strType+"f";
  369. strValue.Format(strType,dValue);
  370. return strValue;
  371. }
  372. //功能:取得字段中的单精度浮点数
  373. //index:字段集中的索引
  374. float CADOConn::GetValueFloat(int index)
  375. {
  376. _variant_t vValue;//var型返回值
  377. _variant_t vIndex;//索引
  378. float fValue;//数值返回值
  379. vIndex.vt=VT_I2;
  380. vIndex.iVal=index;
  381. vValue=m_pRecordset->Fields->GetItem(vIndex)->Value;
  382. switch(vValue.vt)
  383. {
  384. case VT_NULL:
  385. fValue=0;
  386. break;
  387. case VT_ERROR:
  388. fValue=0;
  389. break;
  390. case VT_EMPTY:
  391. fValue=0;
  392. break;
  393. default:
  394. fValue=vValue.fltVal;
  395. }
  396. return fValue;
  397. }
  398. //功能:取得字段中的单精度浮点数的字符串形式
  399. //index:字段集中的索引
  400. //strLSum(整数部分):返回的整数部分的长度(<=实际:代表全部返回,>实际:左补空格)
  401. //strRSum(小数部分):返回的小数部分的长度(<=实际:代表全部返回,>实际:右补空格)
  402. CString CADOConn::GetValueFloatStr(int index,int strLSum,int strRSum)
  403. {
  404. _variant_t vValue;//var型返回值
  405. _variant_t vIndex;//索引
  406. float fValue;//数值返回值
  407. CString strValue,strType;//strValue:字符串返回值 strType:格式化字符串
  408. vIndex.vt=VT_I2;
  409. vIndex.iVal=index;
  410. vValue=m_pRecordset->Fields->GetItem(vIndex)->Value;
  411. switch(vValue.vt)
  412. {
  413. case VT_NULL:
  414. fValue=0;
  415. break;
  416. case VT_ERROR:
  417. fValue=0;
  418. break;
  419. case VT_EMPTY:
  420. fValue=0;
  421. break;
  422. default:
  423. fValue=vValue.fltVal;
  424. }
  425. strType.Format("%d.%d",strLSum,strRSum);
  426. strType="%"+strType+"f";
  427. strValue.Format(strType,fValue);
  428. return strValue;
  429. }
  430. //功能:取得字段中的长整型整数的字符串
  431. //index:字段集中的索引
  432. long CADOConn::GetValueLong(int index)
  433. {
  434. _variant_t vValue;//var型返回值
  435. _variant_t vIndex;//索引
  436. long lValue;//数值返回值
  437. vIndex.vt=VT_I2;
  438. vIndex.iVal=index;
  439. vValue=m_pRecordset->Fields->GetItem(vIndex)->Value;
  440. switch(vValue.vt)
  441. {
  442. case VT_NULL:
  443. lValue=0;
  444. break;
  445. case VT_ERROR:
  446. lValue=0;
  447. break;
  448. case VT_EMPTY:
  449. lValue=0;
  450. break;
  451. default:
  452. lValue=vValue.lVal;
  453. }
  454. return lValue;
  455. }
  456. //功能:取得字段中的长整型整数的字符串形式
  457. //index:字段集中的索引
  458. //strSum:返回的字符的长度(<=实际:代表全部返回,>实际:左补空格)
  459. CString CADOConn::GetValueLongStr(int index,int strSum)
  460. {
  461. _variant_t vValue;//var型返回值
  462. _variant_t vIndex;//索引
  463. long lValue;//数值返回值
  464. CString strValue,strType;//strValue:字符串返回值 strType:格式化字符串
  465. vIndex.vt=VT_I2;
  466. vIndex.iVal=index;
  467. vValue=m_pRecordset->Fields->GetItem(vIndex)->Value;
  468. switch(vValue.vt)
  469. {
  470. case VT_NULL:
  471. lValue=0;
  472. break;
  473. case VT_ERROR:
  474. lValue=0;
  475. break;
  476. case VT_EMPTY:
  477. lValue=0;
  478. break;
  479. default:
  480. lValue=vValue.lVal;
  481. }
  482. strType.Format("%d",strSum);
  483. strType="%"+strType+"d";
  484. strValue.Format(strType,lValue);
  485. return strValue;
  486. }
  487. //返回时间型值
  488. //数据库中存的格式为字符串(yyyy-mm-dd HH-MM-SS)
  489. CTime CADOConn::GetValueDate(int index)
  490. {
  491. _variant_t vValue;//var型返回值
  492. _variant_t vIndex;//索引
  493. CString strValue;//数值返回值
  494. vIndex.vt=VT_I2;
  495. vIndex.iVal=index;
  496. vValue=m_pRecordset->Fields->GetItem(vIndex)->Value;
  497. switch(vValue.vt)
  498. {
  499. case VT_NULL:
  500. strValue="1980-08-08";
  501. break;
  502. case VT_ERROR:
  503. strValue="1980-08-08";
  504. break;
  505. case VT_EMPTY:
  506. strValue="1980-08-08";
  507. break;
  508. default:
  509. strValue=(LPCSTR)_bstr_t(vValue);
  510. break;
  511. }
  512. CString strYear,strMonth,strDay,strHour,strMin,strSec;
  513. strYear=strValue.Mid(0,4);
  514. strMonth=strValue.Mid(5,2);
  515. strDay=strValue.Mid(8,2);
  516. if(strValue.GetLength()>10)
  517. {
  518. strHour=strValue.Mid(11,2);
  519. strMin=strValue.Mid(14,2);
  520. strSec=strValue.Mid(17,2);
  521. }
  522. else
  523. {
  524. strHour="0";
  525. strMin="0";
  526. strSec="0";
  527. }
  528. CTime TValue(atoi(strYear),atoi(strMonth),atoi(strDay),atoi(strHour),atoi(strMin),atoi(strSec));
  529. return TValue;
  530. }
  531. //返回时间型值的字符串
  532. //数据库中存的格式为字符串(yyyy-mm-dd HH-MM-SS)
  533. CString CADOConn::GetValueDateStr(int index,CString strType)
  534. {
  535. _variant_t vValue;//var型返回值
  536. _variant_t vIndex;//索引
  537. CString strValue="";//数值返回值
  538. vIndex.vt=VT_I2;
  539. vIndex.iVal=index;
  540. vValue=m_pRecordset->Fields->GetItem(vIndex)->Value;
  541. switch(vValue.vt)
  542. {
  543. case VT_NULL:
  544. strValue="1980-08-08";
  545. break;
  546. case VT_ERROR:
  547. strValue="1980-08-08";
  548. break;
  549. case VT_EMPTY:
  550. strValue="1980-08-08";
  551. break;
  552. default:
  553. strValue=(LPCSTR)_bstr_t(vValue);
  554. break;
  555. }
  556. CString strYear,strMonth,strDay,strHour,strMin,strSec;
  557. strYear=strValue.Mid(0,4);
  558. strMonth=strValue.Mid(5,2);
  559. strDay=strValue.Mid(8,2);
  560. if(strValue.GetLength()>10)
  561. {
  562. strHour=strValue.Mid(11,2);
  563. strMin=strValue.Mid(14,2);
  564. strSec=strValue.Mid(17,2);
  565. }
  566. else
  567. {
  568. strHour="0";
  569. strMin="0";
  570. strSec="0";
  571. }
  572. CTime TValue(atoi(strYear),atoi(strMonth),atoi(strDay),atoi(strHour),atoi(strMin),atoi(strSec));
  573. CString str=TValue.Format(strType);
  574. return str;
  575. }
  576. //功能:执行SQL语句(Insert Update delete)
  577. //strSQL:SQL语句
  578. //返回值:TRUE:成功 FALSE:失败
  579. BOOL CADOConn::ExecuteSQL(CString strSQL)
  580. {
  581. try
  582. {
  583. // 是否已经连接数据库
  584. if(m_pConnection == NULL) OnInitCADOConn();
  585. strSQL.TrimLeft();
  586. strSQL.TrimRight();
  587. m_pConnection->Execute(_bstr_t(strSQL),NULL,adCmdText);
  588. return TRUE;
  589. }
  590. catch(_com_error e)
  591. {
  592. AfxMessageBox(e.Description());
  593. return FALSE;
  594. }
  595. }
  596. //功能:退出连接
  597. void CADOConn::ExitConnect()
  598. {
  599. try
  600. {
  601. if (m_pRecordset !=NULL) m_pRecordset->Close();
  602. if (m_pConnection !=NULL) m_pConnection->Close();
  603. // 释放环境
  604. ::CoUninitialize();
  605. }
  606. catch (_com_error e) 
  607. {
  608. AfxMessageBox(e.Description());
  609. }
  610. }
  611. //功能:向一表中添加一行数据
  612. //strTable:表名
  613. //strSum:表中字段集的数目
  614. //pszText...:strSum个数据字符串
  615. //返回值:TRUE:成功 FALSE:错误
  616. BOOL CADOConn::AddItem(CString strTable,int strSum,LPCTSTR pszText, ... )
  617. {
  618. strTable.TrimLeft();
  619. strTable.TrimRight();
  620. CString strSQL="select * from "+strTable;
  621. CString strFirst=pszText;
  622. LPTSTR* arrpsz = new LPTSTR[strSum];//初始化一列表存放数据
  623. arrpsz[ 0 ] = new TCHAR[ lstrlen( pszText ) + 1 ];
  624. (void)lstrcpy( arrpsz[ 0 ], pszText );
  625.   va_list list;
  626. va_start( list, pszText );//向列表填充数据
  627. Open(strSQL);//字符集类型的查找
  628. strSQL="insert into "+strTable+" values(";
  629. int iType;
  630. iType=GetValueType(0);
  631. if (iType==ado_Field_Str||iType==ado_Field_Text||iType==ado_Field_Date)
  632. strSQL=strSQL+"'"+strFirst+"',";//字符型
  633. else
  634. {
  635. if(strFirst=="") strFirst="0";
  636. strSQL=strSQL+strFirst+",";//数字型
  637. }
  638. for( int iColumn = 1; iColumn <strSum; iColumn++ )
  639. {
  640. pszText = va_arg( list, LPCTSTR );
  641. ASSERT_VALID_STRING( pszText );
  642. iType=GetValueType(iColumn);
  643. if (iType==ado_Field_Str||iType==ado_Field_Text||iType==ado_Field_Date)
  644. strSQL=strSQL+"'"+pszText+"',";
  645. else
  646. {
  647. CString strValue=pszText;
  648. if(strValue=="") strValue="0";
  649. strSQL=strSQL+strValue+",";
  650. }
  651. arrpsz[ iColumn ] = new TCHAR[ lstrlen( pszText ) + 1 ];
  652. (void)lstrcpy( arrpsz[ iColumn ], pszText );
  653. }
  655. va_end( list );
  656. //开始执行
  657. strSQL=strSQL.Left(strSQL.GetLength()-1)+")";
  658. try
  659. {
  660. //执行插入操作
  661. m_pConnection->Execute(_bstr_t(strSQL),NULL,adCmdText);
  662. return TRUE;
  663. }
  664. catch(_com_error e)
  665. {
  666. AfxMessageBox(e.Description());
  667. return FALSE;
  668. }
  669. }
  670. //功能:返回索引为Index时的数据的类型
  671. //返回值:数据类型
  672. int CADOConn::GetValueType(int index)
  673. {
  674. _variant_t vIndex;
  675. int Tpye;
  676. vIndex.vt=VT_I2;
  677. vIndex.iVal=index;
  678. Tpye=m_pRecordset->Fields->GetItem(vIndex)->GetType();
  679. return Tpye;
  680. }
  681. //功能:判断字段集是否结束
  682. //返回值:TRUE:结束 FALSE:未结束
  683. BOOL CADOConn::adoEOF()
  684. {
  685. if(m_pRecordset->adoEOF)
  686. return TRUE;
  687. else
  688. return FALSE;
  689. }
  690. //功能:填充列表
  691. //listMain:列表指针 ColOpenEnd:代表展开多少列
  692. //返回值:TRUE:成功　FALSE:失败
  693. BOOL CADOConn::FillList(CListCtrl *listMain,int ColOpenEnd)
  694. {
  695. int i,iType,iRow=0,listWidth=0;//iType:字段集的数据类型 listWidth:列表中列的宽度
  696. long lMax=0;
  697. _variant_t vIndex;
  698. lMax=m_pRecordset->Fields->Count;
  699. vIndex.vt=VT_I2;
  700. listMain->SetExtendedStyle( LVS_EX_FULLROWSELECT);
  701. listMain->DeleteAllItems();
  702. for(i=0;i<100;i++)
  703. listMain->DeleteColumn(i);
  704. for(i=0;i<lMax;i++)
  705. {
  706. CString strTitle="";
  707. vIndex.iVal=i;
  708. strTitle=(LPCTSTR)m_pRecordset->Fields->GetItem(vIndex)->GetName();
  709. listMain->InsertColumn(i,strTitle,LVCFMT_CENTER,100,0);
  710. }
  711. if(!m_pRecordset->adoEOF)
  712. {
  713. MoveFirst();
  714. while (!m_pRecordset->adoEOF)
  715. {
  716. for (i=0;i<lMax;i++)
  717. {
  718. CString strValue="";
  719. vIndex.iVal=i;
  720. iType=m_pRecordset->Fields->GetItem(vIndex)->GetType();
  721. switch(iType)
  722. {
  723. case ado_Field_Str:
  724. case ado_Field_Text:
  725. strValue=GetValueString(i,0);
  726. break;
  727. case ado_Field_Long:
  728. strValue=GetValueLongStr(i,0);
  729. break;
  730. case ado_Field_Int:
  731. strValue=GetValueIntStr(i,0);
  732. break;
  733. case ado_Field_Float:
  734. strValue=GetValueFloatStr(i,0,2);
  735. break;
  736. case ado_Field_Double:
  737. strValue=GetValueDoubleStr(i,0,2);
  738. break;
  739. case ado_Field_Byte:
  740. strValue=GetValueByteStr(i,0);
  741. break;
  742. case ado_Field_Date:
  743. strValue=GetValueString(i,0);
  744. break;
  745. default:
  746. strValue="";
  747. break;
  748. }
  749. if(m_DataType==2)
  750. strValue=GetValueString(i,0);
  751. if(i==0)
  752. listMain->InsertItem(iRow,strValue,0);
  753. else
  754. listMain->SetItemText(iRow,i,strValue);
  755. }
  756. m_pRecordset->MoveNext();
  757. iRow=iRow+1;
  758. }
  759. //移向开头
  760. MoveFirst();
  761. }
  762. if(listMain->GetItemCount()>0)
  763. {
  764. if(ColOpenEnd>0)
  765. {
  766. for(int i=0;i<ColOpenEnd;i++)
  767. {
  768. listMain->SetColumnWidth(i,LVSCW_AUTOSIZE);
  769. listWidth=listMain->GetColumnWidth(i);
  770. listMain->SetColumnWidth(i,LVSCW_AUTOSIZE_USEHEADER);
  771. if(listWidth<listMain->GetColumnWidth(i))
  772. listMain->SetColumnWidth(i,LVSCW_AUTOSIZE_USEHEADER);
  773. }
  774. }
  775. else
  776. {
  777. listMain->SetColumnWidth(i,LVSCW_AUTOSIZE_USEHEADER);
  778. }
  780. }
  781. else
  782. {
  783. for(i=0;i<lMax;i++)
  784. {
  785. listMain->SetColumnWidth(i,LVSCW_AUTOSIZE_USEHEADER);
  786. listWidth=listWidth+listMain->GetColumnWidth(i);
  787. }
  788. RECT rectList;
  789. listMain->GetWindowRect(&rectList);
  790. if(listWidth<(rectList.right-rectList.left))
  791. {
  792. listWidth=(rectList.right-rectList.left-listWidth)/11;
  793. listMain->SetColumnWidth(i,listMain->GetColumnWidth(i)+listWidth);
  794. }
  795. }
  796. return TRUE;
  797. }
  798. //功能:初始化自动排列列表
  799. //CListCtrl:列表指针;colSum:列表中已经存在列数
  800. BOOL CADOConn::InitList(CListCtrl *listMain,int colSum)
  801. {
  802. int intWidth=0;
  803. int i;
  804. for(i=0;i<colSum;i++)
  805. {
  806. listMain->SetColumnWidth(i,LVSCW_AUTOSIZE_USEHEADER);
  807. intWidth=intWidth+listMain->GetColumnWidth(i);
  808. }
  809. RECT rectList;
  810. listMain->GetWindowRect(&rectList);
  811. if(intWidth<(rectList.right-rectList.left))
  812. {
  813. intWidth=(rectList.right-rectList.left-intWidth)/colSum;
  814. listMain->SetColumnWidth(i,listMain->GetColumnWidth(i)+intWidth);
  815. }
  816. return TRUE;
  817. }