CDSParkF.cpp 3.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105
  1. //---------------------------------------------------------------------------
  2. #pragma hdrstop
  3. #include "CDSParkF.h"
  4. #include "VmsCommonLibF.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 PRK_PLCE_NMBR, PRK_PLCE_MANAGE_NO, \r\n"
  39. " PRK_PLCE_NM, VMS_DSPL_NM, DEL_YN \r\n"
  40. " FROM TB_PRK_PLCE \r\n"
  41. " WHERE DEL_YN = 'N' \r\n"
  42. " AND PIS_TYPE != 'N' \r\n";
  43. FLists.Lock();
  44. try
  45. {
  46. try
  47. {
  48. pADO = new TADOQuery(NULL);
  49. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  50. pADO->SQL->Clear();
  51. pADO->SQL->Text = sQry;
  52. pADO->Prepared = true;
  53. pADO->Open();
  54. for( ; !pADO->Eof; pADO->Next())
  55. {
  56. String PRK_PLCE_NMBR = pADO->FieldByName("PRK_PLCE_NMBR")->AsString.Trim();
  57. TCDSPark *pObj = FLists.Find(PRK_PLCE_NMBR);
  58. if (!pObj)
  59. {
  60. pObj = new TCDSPark();
  61. pObj->PRK_PLCE_NMBR = PRK_PLCE_NMBR;
  62. FLists.Push(pObj->PRK_PLCE_NMBR, pObj);
  63. }
  64. pObj->PRK_PLCE_MANAGE_NO = pADO->FieldByName("PRK_PLCE_MANAGE_NO")->AsString.Trim();
  65. pObj->PRK_PLCE_NM = pADO->FieldByName("PRK_PLCE_NM")->AsString.Trim();
  66. pObj->VMS_DSPL_NM = pADO->FieldByName("VMS_DSPL_NM")->AsString.Trim();
  67. pObj->DEL_YN = pADO->FieldByName("DEL_YN")->AsString.Trim();
  68. }
  69. }
  70. catch(EDatabaseError &E)
  71. {
  72. DBERRORMSG("TCDSParkManager::LoadFromDb", String(E.ClassName()), E.Message, sQry);
  73. throw Exception(String(E.ClassName()) + E.Message);
  74. }
  75. catch(Exception &e)
  76. {
  77. DBERRORMSG("TCDSParkManager::LoadFromDb", String(e.ClassName()), e.Message, sQry);
  78. throw Exception(String(e.ClassName()) + e.Message);
  79. }
  80. }
  81. __finally
  82. {
  83. if (pADO)
  84. {
  85. pADO->Close();
  86. delete pADO;
  87. }
  88. FLists.UnLock();
  89. }
  90. return true;
  91. }
  92. //---------------------------------------------------------------------------