123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402 |
- //---------------------------------------------------------------------------
- #pragma hdrstop
- #include "CDSFacilityFailF.h"
- #include "AppGlobalF.h"
- //---------------------------------------------------------------------------
- #pragma package(smart_init)
- TItsFacilityFail::TItsFacilityFail()
- {
- FGridIndex = -1;
- FEditMode = DB_INIT;
- ActionCnt = 0;
- }
- //---------------------------------------------------------------------------
- void TItsFacilityFail::Clear()
- {
- FAIL_HS_SEQ = ""; //"장애이력일련번호";
- OCRR_DT = ""; //"발생일시";
- RCPR_NM = ""; //"접수자명";
- ADTN_NM = ""; //"추가자명";
- ADTN_DT = ""; //"추가일시";
- CHNG_NM = ""; //"변경자명";
- CHNG_DT = ""; //"변경일시";
- FAIL_TYPE = ""; //"장애 유형";
- FAIL_CONT = ""; //"장애 내용";
- FCLT_ID = ""; //"시설물 ID";
- }
- //---------------------------------------------------------------------------
- TItsFacilityFail::~TItsFacilityFail()
- {
- FLists.RemoveAll();
- }
- //---------------------------------------------------------------------------
- //---------------------------------------------------------------------------
- TItsFacilityFailManager *ItsFacilityFailManager = NULL;
- //---------------------------------------------------------------------------
- /*
- * FacilityFail Manager
- */
- TItsFacilityFailManager::TItsFacilityFailManager()
- {
- }
- //---------------------------------------------------------------------------
- TItsFacilityFailManager::~TItsFacilityFailManager()
- {
- FLists.RemoveAll();
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityFailManager::LoadFromDb(TADOConnection *ADbConn/*=NULL*/)
- {
- FLists.RemoveAll();
- LoadFromDbFail(ADbConn);
- LoadFromDbFailAction(ADbConn);
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityFailManager::LoadFromDbFail(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "SELECT * \r\n"
- " FROM TB_FCLT_FAIL_HS \r\n";
- // " ORDER BY FAIL_HS_SEQ \r\n";
- try
- {
- FLists.Lock();
- //FLists.RemoveAll();
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
- pADO->SQL->Clear();
- pADO->SQL->Text = sQry;
- pADO->Prepared = true;
- pADO->Open();
- for( ; !pADO->Eof; pADO->Next())
- {
- TItsFacilityFail *pObj = new TItsFacilityFail();
- pObj->FAIL_HS_SEQ = pADO->FieldByName("FAIL_HS_SEQ")->AsString;
- pObj->OCRR_DT = pADO->FieldByName("OCRR_DT")->AsString;
- pObj->RCPR_NM = pADO->FieldByName("RCPR_NM")->AsString;
- pObj->ADTN_NM = pADO->FieldByName("ADTN_NM")->AsString;
- pObj->ADTN_DT = pADO->FieldByName("ADTN_DT")->AsString;
- pObj->CHNG_NM = pADO->FieldByName("CHNG_NM")->AsString;
- pObj->CHNG_DT = pADO->FieldByName("CHNG_DT")->AsString;
- pObj->FAIL_TYPE = pADO->FieldByName("FAIL_TYPE")->AsString;
- pObj->FAIL_CONT = pADO->FieldByName("FAIL_CONT")->AsString;
- pObj->FCLT_ID = pADO->FieldByName("FCLT_ID")->AsString;
- pObj->DEL_YN = "N";
- pObj->ActionCnt = 0;
- FLists.Push(pObj->FAIL_HS_SEQ, pObj);
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityFailManager::LoadFromDbFail", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityFailManager::LoadFromDbFail", String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- FLists.UnLock();
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityFailManager::LoadFromDbFailAction(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "SELECT * \r\n"
- " FROM TB_FCLT_FAIL_RPAR_HS \r\n";
- // " ORDER BY FAIL_HS_SEQ, CRTN_DT \r\n";
- try
- {
- ItsFacilityFailManager->FLists.Lock();
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
- pADO->SQL->Clear();
- pADO->SQL->Text = sQry;
- pADO->Prepared = true;
- pADO->Open();
- for( ; !pADO->Eof; pADO->Next())
- {
- String FAIL_HS_SEQ = pADO->FieldByName("FAIL_HS_SEQ")->AsString;
- TItsFacilityFail *pFail = ItsFacilityFailManager->FLists.Find(FAIL_HS_SEQ);
- if (!pFail) continue;
- TItsFacilityFailAction *pObj = new TItsFacilityFailAction();
- pObj->CRTN_DT = pADO->FieldByName("CRTN_DT")->AsString;
- pObj->FAIL_HS_SEQ = pADO->FieldByName("FAIL_HS_SEQ")->AsString;
- pObj->WRKR_NM = pADO->FieldByName("WRKR_NM")->AsString;
- pObj->WORK_CONT = pADO->FieldByName("WORK_CONT")->AsString;
- pObj->WORK_STRT_DT = pADO->FieldByName("WORK_STRT_DT")->AsString;
- pObj->WORK_END_DT = pADO->FieldByName("WORK_END_DT")->AsString;
- pObj->WORK_FINS_YN = pADO->FieldByName("WORK_FINS_YN")->AsString;
- pObj->ADTN_NM = pADO->FieldByName("ADTN_NM")->AsString;
- pObj->CHNG_NM = pADO->FieldByName("CHNG_NM")->AsString;
- pObj->CHNG_DT = pADO->FieldByName("CHNG_DT")->AsString;
- pObj->DEL_YN = "N";
- pFail->FLists.Push(pObj->CRTN_DT, pObj);
- pFail->ActionCnt++;
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityFailManager::LoadFromDbFailAction", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityFailManager::LoadFromDbFailAction", String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- ItsFacilityFailManager->FLists.UnLock();
- }
- return true;
- }
- //---------------------------------------------------------------------------
- TItsFacilityFailAction::TItsFacilityFailAction()
- {
- FGridIndex = -1;
- FEditMode = DB_INIT;
- }
- //---------------------------------------------------------------------------
- void TItsFacilityFailAction::Clear()
- {
- CRTN_DT = ""; //'생성 일시
- FAIL_HS_SEQ = ""; //'장애 이력 일련번호
- WRKR_NM = ""; //'작업자 명
- WORK_CONT = ""; //'작업 내용
- WORK_STRT_DT = ""; //'작업 시작 일시
- WORK_END_DT = ""; //'작업 종료 일시
- WORK_FINS_YN = ""; //'작업 완료 여부
- ADTN_NM = ""; //'추가자 명
- CHNG_NM = ""; //'변경자 명
- CHNG_DT = ""; //'변경 일시*/
- }
- //---------------------------------------------------------------------------
- TItsFacilityFailAction::~TItsFacilityFailAction()
- {
- }
- //---------------------------------------------------------------------------
- //---------------------------------------------------------------------------
- TItsFacilityFailActionManager *ItsFacilityFailActionManager = NULL;
- //---------------------------------------------------------------------------
- /*
- * FacilityFail Manager
- */
- TItsFacilityFailActionManager::TItsFacilityFailActionManager()
- {
- }
- //---------------------------------------------------------------------------
- TItsFacilityFailActionManager::~TItsFacilityFailActionManager()
- {
- FLists.RemoveAll();
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityFailActionManager::LoadFromDb(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "SELECT * \r\n"
- " FROM TB_FCLT_FAIL_RPAR_HS \r\n";
- // " ORDER BY FAIL_HS_SEQ, CRTN_DT \r\n";
- try
- {
- ItsFacilityFailManager->FLists.Lock();
- FLists.Lock();
- FDataCnt = 0;
- FLists.RemoveAll();
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
- pADO->SQL->Clear();
- pADO->SQL->Text = sQry;
- pADO->Prepared = true;
- pADO->Open();
- for( ; !pADO->Eof; pADO->Next())
- {
- String FAIL_HS_SEQ = pADO->FieldByName("FAIL_HS_SEQ")->AsString;
- TItsFacilityFail *pFail = ItsFacilityFailManager->FLists.Find(FAIL_HS_SEQ);
- if (!pFail) continue;
- TItsFacilityFailAction *pObj = new TItsFacilityFailAction();
- pObj->CRTN_DT = pADO->FieldByName("CRTN_DT")->AsString;
- pObj->FAIL_HS_SEQ = pADO->FieldByName("FAIL_HS_SEQ")->AsString;
- pObj->WRKR_NM = pADO->FieldByName("WRKR_NM")->AsString;
- pObj->WORK_CONT = pADO->FieldByName("WORK_CONT")->AsString;
- pObj->WORK_STRT_DT = pADO->FieldByName("WORK_STRT_DT")->AsString;
- pObj->WORK_END_DT = pADO->FieldByName("WORK_END_DT")->AsString;
- pObj->WORK_FINS_YN = pADO->FieldByName("WORK_FINS_YN")->AsString;
- pObj->ADTN_NM = pADO->FieldByName("ADTN_NM")->AsString;
- pObj->CHNG_NM = pADO->FieldByName("CHNG_NM")->AsString;
- pObj->CHNG_DT = pADO->FieldByName("CHNG_DT")->AsString;
- pObj->DEL_YN = "N";
- pFail->ActionCnt++;
- FLists.Push(String(FDataCnt++), pObj);
- pFail->FLists.Push(pObj->CRTN_DT, pObj);
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityFailActionManager::LoadFromDb", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityFailActionManager::LoadFromDb", String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- ItsFacilityFailManager->FLists.UnLock();
- FLists.UnLock();
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityFailActionManager::LoadFromDbFailAction(String AKeySeq, TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "SELECT * \r\n"
- " FROM TB_FCLT_FAIL_RPAR_HS \r\n"
- " WHERE FAIL_HS_SEQ = :p01 \r\n";
- // " ORDER BY FAIL_HS_SEQ, CRTN_DT \r\n";
- try
- {
- ItsFacilityFailManager->FLists.Lock();
- FLists.Lock();
- FDataCnt = 0;
- FLists.RemoveAll();
- try
- {
- pADO = new TADOQuery(NULL);
- pADO->Close();
- pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
- pADO->SQL->Clear();
- pADO->SQL->Text = sQry;
- pADO->Parameters->ParamByName("p01")->Value = AKeySeq;
- pADO->Prepared = true;
- pADO->Open();
- for( ; !pADO->Eof; pADO->Next())
- {
- String FAIL_HS_SEQ = pADO->FieldByName("FAIL_HS_SEQ")->AsString;
- TItsFacilityFail *pFail = ItsFacilityFailManager->FLists.Find(FAIL_HS_SEQ);
- if (!pFail) continue;
- TItsFacilityFailAction *pObj = new TItsFacilityFailAction();
- pObj->CRTN_DT = pADO->FieldByName("CRTN_DT")->AsString;
- pObj->FAIL_HS_SEQ = pADO->FieldByName("FAIL_HS_SEQ")->AsString;
- pObj->WRKR_NM = pADO->FieldByName("WRKR_NM")->AsString;
- pObj->WORK_CONT = pADO->FieldByName("WORK_CONT")->AsString;
- pObj->WORK_STRT_DT = pADO->FieldByName("WORK_STRT_DT")->AsString;
- pObj->WORK_END_DT = pADO->FieldByName("WORK_END_DT")->AsString;
- pObj->WORK_FINS_YN = pADO->FieldByName("WORK_FINS_YN")->AsString;
- pObj->ADTN_NM = pADO->FieldByName("ADTN_NM")->AsString;
- pObj->CHNG_NM = pADO->FieldByName("CHNG_NM")->AsString;
- pObj->CHNG_DT = pADO->FieldByName("CHNG_DT")->AsString;
- pObj->DEL_YN = "N";
- pFail->ActionCnt++;
- FLists.Push(String(FDataCnt++), pObj);
- pFail->FLists.Push(pObj->CRTN_DT, pObj);
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityFailActionManager::LoadFromDbFailAction", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &e)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityFailActionManager::LoadFromDbFailAction", String(e.ClassName()), e.Message, sQry);
- throw Exception(String(e.ClassName()) + e.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- ItsFacilityFailManager->FLists.UnLock();
- FLists.UnLock();
- }
- return true;
- }
- //---------------------------------------------------------------------------
|