CDSHolidayF.cpp 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112
  1. //---------------------------------------------------------------------------
  2. #pragma hdrstop
  3. #include "CDSHolidayF.h"
  4. #include "ITS_OPLibF.h"
  5. //---------------------------------------------------------------------------
  6. #pragma package(smart_init)
  7. TItsHoliday::TItsHoliday()
  8. {
  9. FCompleted = false;
  10. FEditMode = DB_INIT;
  11. FGridIndex = -1;
  12. DEL_YN = "N";
  13. //Clear();
  14. }
  15. //---------------------------------------------------------------------------
  16. void TItsHoliday::Clear()
  17. {
  18. YMD = ""; //VARCHAR2(8) N 년월일
  19. DAY_TYPE_CD = ""; //VARCHAR2(7) Y 요일 유형 코드
  20. LEGL_HLDY_NM = ""; //VARCHAR2(30) Y 공휴일 명
  21. RMRK = ""; //VARCHAR2(200) Y 비고
  22. DEL_YN = "N";
  23. }
  24. //---------------------------------------------------------------------------
  25. TItsHoliday::~TItsHoliday()
  26. {
  27. }
  28. //---------------------------------------------------------------------------
  29. //---------------------------------------------------------------------------
  30. TItsHolidayManager *ItsHolidayManager = NULL;
  31. //---------------------------------------------------------------------------
  32. /*
  33. * Holiday Manager
  34. */
  35. TItsHolidayManager::TItsHolidayManager()
  36. {
  37. }
  38. //---------------------------------------------------------------------------
  39. TItsHolidayManager::~TItsHolidayManager()
  40. {
  41. FLists.RemoveAll();
  42. }
  43. //---------------------------------------------------------------------------
  44. bool TItsHolidayManager::LoadFromDb(TADOConnection *ADbConn/*=NULL*/)
  45. {
  46. String sQry;
  47. TADOQuery *pADO = NULL;
  48. sQry = "SELECT YMD, DAY_TYPE_CD, LEGL_HLDY_NM, RMRK \r\n"
  49. " FROM TB_LEGL_HLDY_INFR \r\n";
  50. //" ORDER BY YMD, DAY_TYPE_CD, LEGL_HLDY_NM \r\n";
  51. try
  52. {
  53. FLists.RemoveAll();
  54. try
  55. {
  56. pADO = new TADOQuery(NULL);
  57. pADO->Close();
  58. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  59. pADO->SQL->Clear();
  60. pADO->SQL->Text = sQry;
  61. pADO->Prepared = true;
  62. pADO->Open();
  63. for( ; !pADO->Eof; pADO->Next())
  64. {
  65. TItsHoliday *pObj = new TItsHoliday();
  66. pObj->YMD = pADO->FieldByName("YMD")->AsString;
  67. pObj->DAY_TYPE_CD = pADO->FieldByName("DAY_TYPE_CD")->AsString;
  68. pObj->LEGL_HLDY_NM = pADO->FieldByName("LEGL_HLDY_NM")->AsString;
  69. pObj->RMRK = pADO->FieldByName("RMRK")->AsString;
  70. FLists.Push(pObj->YMD, pObj);
  71. pObj->Completed = true;
  72. pObj->DEL_YN = "N";
  73. }
  74. }
  75. catch(EDatabaseError &E)
  76. {
  77. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  78. DBERRORMSG("TItsHolidayManager::LoadFromDb", String(E.ClassName()), E.Message, sQry);
  79. throw Exception(String(E.ClassName()) + E.Message);
  80. }
  81. catch(Exception &e)
  82. {
  83. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  84. DBERRORMSG("TItsHolidayManager::LoadFromDb", String(e.ClassName()), e.Message, sQry);
  85. throw Exception(String(e.ClassName()) + e.Message);
  86. }
  87. }
  88. __finally
  89. {
  90. if (pADO)
  91. {
  92. pADO->Close();
  93. delete pADO;
  94. }
  95. }
  96. return true;
  97. }
  98. //---------------------------------------------------------------------------