CDSAtmpF.cpp 3.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124
  1. //---------------------------------------------------------------------------
  2. #pragma hdrstop
  3. #include "CDSAtmpF.h"
  4. #include "VmsCommonLibF.h"
  5. //---------------------------------------------------------------------------
  6. #pragma package(smart_init)
  7. //---------------------------------------------------------------------------
  8. void TCDSAtmp::Init()
  9. {
  10. SUCCESS = false;
  11. MSRM_DT = "";
  12. MSRM_SYST_NM = "";
  13. SO2_VAL = "";
  14. CO_VAL = "";
  15. NO2_VAL = "";
  16. O3_VAL = "";
  17. PM10_VAL = "";
  18. PM10_24HH_VAL = "";
  19. PM25_VAL = "";
  20. PM25_24HH_VAL = "";
  21. INTG_ATMP_VAL = "";
  22. INTG_ATMP_GRAD = "";
  23. SO2_GRAD = "";
  24. CO_GRAD = "";
  25. O3_GRAD = "";
  26. NO2_GRAD = "";
  27. PM10_24HH_GRAD = "";
  28. PM25_24HH_GRAD = "";
  29. PM10_1HH_GRAD = "";
  30. PM25_1HH_GRAD = "";
  31. }
  32. //---------------------------------------------------------------------------
  33. TCDSAtmpManager *CDSAtmpManager = NULL;
  34. //---------------------------------------------------------------------------
  35. /*
  36. * Manager
  37. */
  38. TCDSAtmpManager::TCDSAtmpManager()
  39. {
  40. }
  41. //---------------------------------------------------------------------------
  42. TCDSAtmpManager::~TCDSAtmpManager()
  43. {
  44. FLists.RemoveAll();
  45. }
  46. //---------------------------------------------------------------------------
  47. void TCDSAtmpManager::Init()
  48. {
  49. FOR_STL(TCDSAtmp*, pObj, FLists)
  50. {
  51. pObj->Init();
  52. }
  53. }
  54. //---------------------------------------------------------------------------
  55. bool TCDSAtmpManager::LoadFromDb(TADOConnection *ADbConn)
  56. {
  57. String sQry;
  58. TADOQuery *pADO = NULL;
  59. sQry = "SELECT * \r\n"
  60. " FROM TB_ATMP_ENVR_MSRSTN \r\n";
  61. " WHERE CLCT_YN = 'Y' \r\n";
  62. FLists.Lock();
  63. try
  64. {
  65. try
  66. {
  67. pADO = new TADOQuery(NULL);
  68. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  69. pADO->SQL->Clear();
  70. pADO->SQL->Text = sQry;
  71. pADO->Prepared = true;
  72. pADO->Open();
  73. for( ; !pADO->Eof; pADO->Next())
  74. {
  75. String ATMP_STTN_NMBR = pADO->FieldByName("ATMP_ENVR_MSRSTN_NM")->AsString.Trim();
  76. TCDSAtmp *pObj = FLists.Find(ATMP_STTN_NMBR);
  77. if (!pObj)
  78. {
  79. pObj = new TCDSAtmp();
  80. pObj->ATMP_STTN_NMBR = ATMP_STTN_NMBR;
  81. FLists.Push(pObj->ATMP_STTN_NMBR, pObj);
  82. }
  83. pObj->ATMP_STTN_NM = pADO->FieldByName("ATMP_ENVR_MSRSTN_NM")->AsString.Trim();
  84. pObj->VMS_DISP_NM = pADO->FieldByName("ATMP_ENVR_MSRSTN_NM")->AsString.Trim();
  85. pObj->ATMP_STTN_ADDR = pADO->FieldByName("ATMP_ENVR_MSRSTN_NM")->AsString.Trim();
  86. pObj->DEL_YN = "N";//pADO->FieldByName("DEL_YN")->AsString.Trim();
  87. }
  88. }
  89. catch(EDatabaseError &E)
  90. {
  91. DBERRORMSG("TCDSAtmpManager::LoadFromDb", String(E.ClassName()), E.Message, sQry);
  92. throw Exception(String(E.ClassName()) + E.Message);
  93. }
  94. catch(Exception &e)
  95. {
  96. DBERRORMSG("TCDSAtmpManager::LoadFromDb", String(e.ClassName()), e.Message, sQry);
  97. throw Exception(String(e.ClassName()) + e.Message);
  98. }
  99. }
  100. __finally
  101. {
  102. if (pADO)
  103. {
  104. pADO->Close();
  105. delete pADO;
  106. }
  107. FLists.UnLock();
  108. }
  109. return true;
  110. }
  111. //---------------------------------------------------------------------------