CDSHolidayF.cpp 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113
  1. //---------------------------------------------------------------------------
  2. #pragma hdrstop
  3. #include "CDSHolidayF.h"
  4. #include "ITSDbF.h"
  5. #include "AppGlobalF.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. TItsHoliday::TItsHoliday()
  9. {
  10. FCompleted = false;
  11. FEditMode = DB_INIT;
  12. FGridIndex = -1;
  13. DEL_YN = "N";
  14. //Clear();
  15. }
  16. //---------------------------------------------------------------------------
  17. void TItsHoliday::Clear()
  18. {
  19. YMD = ""; //VARCHAR2(8) N 년월일
  20. DAY_TYPE_CD = ""; //VARCHAR2(7) Y 요일 유형 코드
  21. LEGL_HLDY_NM = ""; //VARCHAR2(30) Y 공휴일 명
  22. RMRK = ""; //VARCHAR2(200) Y 비고
  23. DEL_YN = "N";
  24. }
  25. //---------------------------------------------------------------------------
  26. TItsHoliday::~TItsHoliday()
  27. {
  28. }
  29. //---------------------------------------------------------------------------
  30. //---------------------------------------------------------------------------
  31. TItsHolidayManager *ItsHolidayManager = NULL;
  32. //---------------------------------------------------------------------------
  33. /*
  34. * Holiday Manager
  35. */
  36. TItsHolidayManager::TItsHolidayManager()
  37. {
  38. }
  39. //---------------------------------------------------------------------------
  40. TItsHolidayManager::~TItsHolidayManager()
  41. {
  42. FLists.RemoveAll();
  43. }
  44. //---------------------------------------------------------------------------
  45. bool TItsHolidayManager::LoadFromDb(TADOConnection *ADbConn/*=NULL*/)
  46. {
  47. String sQry;
  48. TADOQuery *pADO = NULL;
  49. sQry = "SELECT YMD, DAY_TYPE_CD, LEGL_HLDY_NM, RMRK \r\n"
  50. " FROM TB_LEGL_HLDY_INFR \r\n";
  51. //" ORDER BY YMD, DAY_TYPE_CD, LEGL_HLDY_NM \r\n";
  52. try
  53. {
  54. FLists.RemoveAll();
  55. try
  56. {
  57. pADO = new TADOQuery(NULL);
  58. pADO->Close();
  59. pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
  60. pADO->SQL->Clear();
  61. pADO->SQL->Text = sQry;
  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. //---------------------------------------------------------------------------