CDSParkF.cpp 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104
  1. //---------------------------------------------------------------------------
  2. #pragma hdrstop
  3. #include "CDSParkF.h"
  4. #include "AppGlobalF.h"
  5. //---------------------------------------------------------------------------
  6. #pragma package(smart_init)
  7. //---------------------------------------------------------------------------
  8. void TCDSPark::Init()
  9. {
  10. }
  11. //---------------------------------------------------------------------------
  12. TCDSParkManager *CDSParkManager = NULL;
  13. //---------------------------------------------------------------------------
  14. /*
  15. * Manager
  16. */
  17. TCDSParkManager::TCDSParkManager()
  18. {
  19. }
  20. //---------------------------------------------------------------------------
  21. TCDSParkManager::~TCDSParkManager()
  22. {
  23. FLists.RemoveAll();
  24. }
  25. //---------------------------------------------------------------------------
  26. void TCDSParkManager::Init()
  27. {
  28. FOR_STL(TCDSPark*, pObj, FLists)
  29. {
  30. pObj->Init();
  31. }
  32. }
  33. //---------------------------------------------------------------------------
  34. bool TCDSParkManager::LoadFromDb(TADOConnection *ADbConn)
  35. {
  36. String sQry;
  37. TADOQuery *pADO = NULL;
  38. sQry = "SELECT * \r\n"
  39. " FROM TB_PRLT_CTLR \r\n"
  40. " WHERE DEL_YN = 'N' \r\n"
  41. " AND REAL_DATA_YN = 'Y' \r\n";
  42. FLists.Lock();
  43. try
  44. {
  45. try
  46. {
  47. pADO = new TADOQuery(NULL);
  48. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  49. pADO->SQL->Clear();
  50. pADO->SQL->Text = sQry;
  51. pADO->Prepared = true;
  52. pADO->Open();
  53. for( ; !pADO->Eof; pADO->Next())
  54. {
  55. String PRLT_CTLR_NMBR = pADO->FieldByName("PRLT_CTLR_NMBR")->AsString.Trim();
  56. TCDSPark *pObj = FLists.Find(PRLT_CTLR_NMBR);
  57. if (!pObj)
  58. {
  59. pObj = new TCDSPark();
  60. pObj->PRLT_CTLR_NMBR = PRLT_CTLR_NMBR;
  61. FLists.Push(pObj->PRLT_CTLR_NMBR, pObj);
  62. }
  63. pObj->PRLT_CTLR_ID = pADO->FieldByName("PRLT_CTLR_ID")->AsString.Trim();
  64. pObj->PRLT_NM = pADO->FieldByName("PRLT_NM")->AsString.Trim();
  65. pObj->REAL_DATA_YN = pADO->FieldByName("REAL_DATA_YN")->AsString.Trim();
  66. pObj->DEL_YN = pADO->FieldByName("DEL_YN")->AsString.Trim();
  67. }
  68. }
  69. catch(EDatabaseError &E)
  70. {
  71. DBERRORMSG("TCDSParkManager::LoadFromDb", String(E.ClassName()), E.Message, sQry);
  72. throw Exception(String(E.ClassName()) + E.Message);
  73. }
  74. catch(Exception &e)
  75. {
  76. DBERRORMSG("TCDSParkManager::LoadFromDb", String(e.ClassName()), e.Message, sQry);
  77. throw Exception(String(e.ClassName()) + e.Message);
  78. }
  79. }
  80. __finally
  81. {
  82. if (pADO)
  83. {
  84. pADO->Close();
  85. delete pADO;
  86. }
  87. FLists.UnLock();
  88. }
  89. return true;
  90. }
  91. //---------------------------------------------------------------------------