//--------------------------------------------------------------------------- #pragma hdrstop #include "CDSVmsCtlrF.h" #include "ITSUtilF.h" #include "VmsCommonLibF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) //--------------------------------------------------------------------------- TVmsIfscRltn::TVmsIfscRltn() { } //--------------------------------------------------------------------------- TVmsIfscRltn::~TVmsIfscRltn() { } //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- TVmsEvspRltn::TVmsEvspRltn() { } //--------------------------------------------------------------------------- TVmsEvspRltn::~TVmsEvspRltn() { } //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- TVmsModlStts::TVmsModlStts() { } //--------------------------------------------------------------------------- TVmsModlStts::~TVmsModlStts() { } //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- TVmsMsg::TVmsMsg() { for (int ii = 0; ii < INT_VMS_MAX_FORM; ii++) { PHASE[ii].DSPL_PICT = NULL; } Init(); }; //--------------------------------------------------------------------------- TVmsMsg::~TVmsMsg() { for (int ii = 0; ii < INT_VMS_MAX_FORM; ii++) { if (PHASE[ii].DSPL_PICT) { PHASE[ii].DSPL_PICT->FreeImage(); PHASE[ii].DSPL_PICT->Assign(NULL); delete PHASE[ii].DSPL_PICT; PHASE[ii].DSPL_PICT = NULL; } } }; //--------------------------------------------------------------------------- void TVmsMsg::Init() { Total = 0; Curr = 0; OFFER_DT = "1999-01-01 00:00:00"; OFFER_YN = false; IsLoading= true; for (int ii = 0; ii < INT_VMS_MAX_FORM; ii++) { PHASE[ii].SN = ii+1; // N NUMBER(5) N 순번 PHASE[ii].PROV_DT_FMT = OFFER_DT; // N DATE N 제공일시 PHASE[ii].DSPL_HR = 4; // N NUMBER(3) N 표출시간 PHASE[ii].DSPL_EFF = ""; // N VARCHAR2(3) N 표출효과 PHASE[ii].BACK_CLR = ""; // N VARCHAR2(3) Y 배경색상 PHASE[ii].VMS_FORM_ID = ""; // N VARCHAR2(10) N VMS폼ID PHASE[ii].DSPL_CN = ""; // N VARCHAR2(256) N 표출내용 PHASE[ii].PROV_YN = "N"; // N CHAR(1) N 제공여부 PHASE[ii].OPER_MODE = ""; // N VARCHAR2(3) N 운영모드 PHASE[ii].VMS_FORM_TYPE = ""; // N VARCHAR2(3) N VMS폼유형 } }; //--------------------------------------------------------------------------- TVmsStts::TVmsStts(String AVMS_CTLR_ID) { VMS_CTLR_ID = AVMS_CTLR_ID; Init(); }; //--------------------------------------------------------------------------- TVmsStts::~TVmsStts() { }; //--------------------------------------------------------------------------- void TVmsStts::Init() { IsLoading = false; }; //--------------------------------------------------------------------------- TVmsPara::TVmsPara(String AVMS_CTLR_ID) { VMS_CTLR_ID = AVMS_CTLR_ID; Init(); }; //--------------------------------------------------------------------------- TVmsPara::~TVmsPara() { }; //--------------------------------------------------------------------------- void TVmsPara::Init() { CUR_LUMI = 40; // N NUMBER(3) Y 현재휘도 DAY_LUMI = 80; // N NUMBER(3) Y 주간휘도 NGHT_LUMI = 20; // N NUMBER(3) Y 야간휘도 CMNC_RTRY_NOCS = 3; // N NUMBER(3) Y 통신재시도횟수 BLNK_TM = 10; // N NUMBER(3) Y 점멸시간주기 ERR_MODL_RT = 10; // N NUMBER(3) Y 장애모듈비율 DFLT_SCNR_RUN_TM = 5; // N NUMBER(3) Y 디폴트시나리오동작시간 IsLoading = false; }; //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- TVmsCtlr::TVmsCtlr() { FVmsMsg = NULL; FVmsMsg = new TVmsMsg(); FVmsMsg->Init(); } //--------------------------------------------------------------------------- TVmsCtlr::~TVmsCtlr() { FIfscRltn.RemoveAll(); } //--------------------------------------------------------------------------- void TVmsCtlr::Lock() { //EnterCriticalSection(&FCS); } //--------------------------------------------------------------------------- void TVmsCtlr::UnLock() { //LeaveCriticalSection(&FCS); } //--------------------------------------------------------------------------- TLcsCtlr::TLcsCtlr() { FVmsMsg = NULL; FVmsMsg = new TVmsMsg(); FVmsMsg->Init(); } //--------------------------------------------------------------------------- TLcsCtlr::~TLcsCtlr() { } //--------------------------------------------------------------------------- void TLcsCtlr::Lock() { //EnterCriticalSection(&FCS); } //--------------------------------------------------------------------------- void TLcsCtlr::UnLock() { //LeaveCriticalSection(&FCS); } //--------------------------------------------------------------------------- TVmsModlSize::TVmsModlSize() { } //--------------------------------------------------------------------------- TVmsModlSize::~TVmsModlSize() { } //--------------------------------------------------------------------------- TVmsSize::TVmsSize() { } //--------------------------------------------------------------------------- //--------------------------------------------------------------------------- TVmsCtlrManager *VmsCtlrManager = NULL; //--------------------------------------------------------------------------- TVmsCtlrManager::TVmsCtlrManager() { FImgStream = NULL; } //--------------------------------------------------------------------------- TVmsCtlrManager::~TVmsCtlrManager() { FVmsSize.RemoveAll(); FLists.RemoveAll(); if (FImgStream) delete FImgStream; FImgStream = NULL; } //--------------------------------------------------------------------------- bool TVmsCtlrManager::LoadVmsModlSize(TADOConnection *ADbConn/*=NULL*/) { String sQry; TADOQuery *pADO = NULL; FVmsSize.Lock(); try { FVmsSize.RemoveAll(); } __finally { FVmsSize.UnLock(); } sQry = "SELECT T1.VMS_MODL_KIND, T1.VMS_MODL_KIND_NM, \r\n" " T1.VMS_MODL_COL * T1.MODL_PIXL_WDTH AS VMS_WDTH, \r\n" " T1.VMS_MODL_ROW * T1.MODL_PIXL_HGHT AS VMS_HGHT \r\n" " FROM TB_VMS_MODL_KIND T1 \r\n" " WHERE 1=1 \r\n" " AND T1.USE_YN = 'Y' \r\n" " ORDER BY T1.VMS_MODL_KIND \r\n"; FVmsSize.Lock(); try { 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()) { TVmsSize *pObj = new TVmsSize(); pObj->TypeCd = pADO->FieldByName("VMS_MODL_KIND")->AsString; pObj->TypeNm = pADO->FieldByName("VMS_MODL_KIND_NM")->AsString; pObj->Width = pADO->FieldByName("VMS_WDTH")->AsInteger; pObj->Height = pADO->FieldByName("VMS_HGHT")->AsInteger; FVmsSize.Push(pObj->TypeCd, pObj); } } catch(EDatabaseError &E) { DBERRORMSG("TVmsCtlrManager::LoadVmsModlSize", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORMSG("TVmsCtlrManager::LoadVmsModlSize", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } FVmsSize.UnLock(); } return true; } //--------------------------------------------------------------------------- bool TVmsCtlrManager::LoadFromDb(TADOConnection *ADbConn/*=NULL*/) { String sQry; TADOQuery *pADO = NULL; FMinWidth = 10000; FMinHeight= 10000; FMaxWidth = 0; FMaxHeight= 0; sQry = "SELECT T1.*, \r\n" " T2.VMS_MODL_KIND_NM, \r\n" " T2.VMS_MODL_COL, T2.MODL_PIXL_WDTH, \r\n" " T2.VMS_MODL_ROW, T2.MODL_PIXL_HGHT, T2.MODL_CLR, \r\n" " NVL(TRIM(T1.CMRA_IMG_ADDR), '-') AS VMS_RTSP_ADDR, \r\n" " T3.CMNC_IP AS VMS_CTLR_IP, \r\n" " NVL(T4.CD_NM, T1.VMS_TYPE || '-?-') AS VMS_TYPE_NM, \r\n" " NVL(T5.CD_NM, T1.OPER_MODE || '-?-') AS OPER_MODE_NM \r\n" " FROM TB_VMS_CTLR T1, TB_VMS_MODL_KIND T2, TB_FCLT T3, \r\n" " (SELECT * FROM TB_SYS_CD T4 WHERE T4.CLSS_CD = 'VMS_TYPE_CD') T4, \r\n" " (SELECT * FROM TB_SYS_CD T4 WHERE T4.CLSS_CD = 'VMS_OPER_MODE_CD') T5 \r\n" " WHERE 1=1 \r\n" " AND T1.USE_YN = 'Y' \r\n" " AND T1.VMS_MODL_KIND = T2.VMS_MODL_KIND \r\n" " AND T1.FCLT_ID = T3.FCLT_ID \r\n" " AND T1.VMS_TYPE = T4.CODE_NO(+) \r\n" " AND T1.OPER_MODE = T5.CODE_NO(+) \r\n" " ORDER BY VMS_CTLR_ID \r\n"; FLists.Lock(); try { 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()) { TVmsCtlr *pObj = new TVmsCtlr(); pObj->VMS_CTLR_ID = pADO->FieldByName("VMS_CTLR_ID")->AsString; //N VARCHAR2(10) N VMS제어기ID pObj->FCLT_ID = pADO->FieldByName("FCLT_ID")->AsString; //N VARCHAR2(10) N 시설물ID pObj->VMS_NM = pADO->FieldByName("VMS_NM")->AsString; //N VARCHAR2(32) N VMS명 pObj->VMS_TYPE = pADO->FieldByName("VMS_TYPE")->AsString; //N VARCHAR2(3) N VMS유형 pObj->STD_SECT_ID = pADO->FieldByName("STD_SECT_ID")->AsString; //N CHAR(10) N 표준구간ID pObj->INSTL_MILE = pADO->FieldByName("INSTL_MILE")->AsInteger; //N NUMBER(5) Y 설치이정 pObj->CRDN_X = pADO->FieldByName("CRDN_X")->AsFloat; //N NUMBER(13,10) N 좌표X pObj->CRDN_Y = pADO->FieldByName("CRDN_Y")->AsFloat; //N NUMBER(12,10) N 좌표Y pObj->VMS_MODL_KIND = pADO->FieldByName("VMS_MODL_KIND")->AsString; //N VARCHAR2(10) N VMS모듈종류 pObj->CMNC_PORT = pADO->FieldByName("CMNC_PORT")->AsInteger; //N NUMBER(5) N 통신포트 pObj->EQMT_NO = pADO->FieldByName("EQMT_NO")->AsInteger; //N NUMBER(3) N 장비번호 pObj->OPER_MODE = pADO->FieldByName("OPER_MODE")->AsString; //N VARCHAR2(3) N 운영모드 pObj->CMRA_IND = pADO->FieldByName("CMRA_IND")->AsString; //N CHAR(1) N 카메라유무 pObj->CMRA_IMG_ADDR = pADO->FieldByName("CMRA_IMG_ADDR")->AsString; //N VARCHAR2(128) Y 카메라영상주소 pObj->CMRA_LGIN_ID = pADO->FieldByName("CMRA_LGIN_ID")->AsString; //N VARCHAR2(32) Y 카메라로그인ID pObj->CMRA_LGIN_PW = pADO->FieldByName("CMRA_LGIN_PW")->AsString; //N VARCHAR2(32) Y 카메라로그인암호 pObj->VMS_SCNR_ID = pADO->FieldByName("VMS_SCNR_ID")->AsString; //N VARCHAR2(10) Y VMS시나리오ID pObj->VMS_ON_HM = pADO->FieldByName("VMS_ON_HM")->AsString; //N CHAR(4) Y VMS ON시분 pObj->VMS_OFF_HM = pADO->FieldByName("VMS_OFF_HM")->AsString; //N CHAR(4) Y VMS OFF시분 pObj->MAX_DSPL_FORM_CNT = pADO->FieldByName("MAX_DSPL_FORM_CNT")->AsInteger; //N NUMBER(2) N 최대표출폼수 pObj->LCS_CTLR_ID = pADO->FieldByName("LCS_CTLR_ID")->AsString.Trim(); //N VARCHAR2(10) Y LCS제어기ID pObj->USE_YN = pADO->FieldByName("USE_YN")->AsString; pObj->IsLcsUse = false; pObj->FLcsInfo = NULL; pObj->VMS_CTLR_IP = pADO->FieldByName("VMS_CTLR_IP")->AsString; pObj->WEB_CMRA_IP = ""; pObj->VMS_RTSP_ADDR = pADO->FieldByName("VMS_RTSP_ADDR")->AsString; if (pObj->VMS_RTSP_ADDR == "-") { pObj->VMS_RTSP_ADDR = ""; } pObj->VMS_TYPE_NM = pADO->FieldByName("VMS_TYPE_NM")->AsString; pObj->OPER_MODE_NM = pADO->FieldByName("OPER_MODE_NM")->AsString; pObj->FULL_STRM_SESN_NM = pObj->VMS_RTSP_ADDR; pObj->VMS_MODL_KIND_NM = pADO->FieldByName("VMS_MODL_KIND_NM")->AsString.Trim(); pObj->VMS_MODL_ROW = pADO->FieldByName("VMS_MODL_ROW")->AsInteger; pObj->VMS_MODL_COL = pADO->FieldByName("VMS_MODL_COL")->AsInteger; pObj->MODL_PIXL_WDTH = pADO->FieldByName("MODL_PIXL_WDTH")->AsInteger; pObj->MODL_PIXL_HGHT = pADO->FieldByName("MODL_PIXL_HGHT")->AsInteger; pObj->POWR_MODL_ROW = pObj->VMS_MODL_ROW;//pADO->FieldByName("POWR_ROW_NUM")->AsInteger; pObj->POWR_MODL_COL = pObj->VMS_MODL_COL;//pADO->FieldByName("POWR_COL_NUM")->AsInteger; pObj->MODL_CLR = pADO->FieldByName("MODL_CLR")->AsString.Trim(); pObj->WIDTH = pObj->VMS_MODL_COL * pObj->MODL_PIXL_WDTH; pObj->HEIGHT = pObj->VMS_MODL_ROW * pObj->MODL_PIXL_HGHT; if (pObj->WIDTH > FMaxWidth) FMaxWidth = pObj->WIDTH; if (pObj->WIDTH < FMinWidth) FMinWidth = pObj->WIDTH; if (pObj->HEIGHT > FMaxHeight) FMaxHeight = pObj->HEIGHT; if (pObj->HEIGHT < FMinHeight) FMinHeight = pObj->HEIGHT; pObj->Stts = new TVmsStts(pObj->VMS_CTLR_ID); pObj->Para = new TVmsPara(pObj->VMS_CTLR_ID); FLists.Push(pObj->VMS_CTLR_ID, pObj); } } catch(EDatabaseError &E) { DBERRORMSG("TVmsCtlrManager::LoadFromDb", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORMSG("TVmsCtlrManager::LoadFromDb", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } FLists.UnLock(); } return LcsLoadFromDb(ADbConn); } //--------------------------------------------------------------------------- bool TVmsCtlrManager::LcsLoadFromDb(TADOConnection *ADbConn/*=NULL*/) { String sQry; TADOQuery *pADO = NULL; sQry = "SELECT T1.*, \r\n" " T2.VMS_MODL_KIND_NM, \r\n" " T2.VMS_MODL_COL, T2.MODL_PIXL_WDTH, \r\n" " T2.VMS_MODL_ROW, T2.MODL_PIXL_HGHT, T2.MODL_CLR, \r\n" " T3.INSTL_PSTN AS LCS_NM, \r\n" " T4.VMS_CTLR_ID \r\n" " FROM TB_LCS_CTLR T1, TB_VMS_MODL_KIND T2, TB_FCLT T3, TB_VMS_CTLR T4 \r\n" " WHERE 1=1 \r\n" " AND T1.USE_YN = 'Y' \r\n" " AND T1.VMS_MODL_KIND = T2.VMS_MODL_KIND \r\n" " AND T1.FCLT_ID = T3.FCLT_ID \r\n" " AND T1.LCS_CTLR_ID = T4.LCS_CTLR_ID(+) \r\n" " ORDER BY T1.LCS_CTLR_ID \r\n"; FLcsLists.Lock(); try { FLcsLists.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()) { TLcsCtlr *pLcsObj = new TLcsCtlr(); pLcsObj->LCS_CTLR_ID = pADO->FieldByName("LCS_CTLR_ID")->AsString; //N VARCHAR2(10) N LCS제어기ID pLcsObj->FCLT_ID = pADO->FieldByName("FCLT_ID")->AsString; //N VARCHAR2(10) N 시설물ID pLcsObj->LCS_NM = pADO->FieldByName("LCS_NM")->AsString; //N VARCHAR2(32) N LCS명 pLcsObj->VMS_MODL_KIND = pADO->FieldByName("VMS_MODL_KIND")->AsString; //N VARCHAR2(10) N VMS모듈종류 pLcsObj->INSTL_LANE_CNT = pADO->FieldByName("INSTL_LANE_CNT")->AsString.ToIntDef(1); //N NUMBER(2) N 설치차로수 pLcsObj->USE_YN = pADO->FieldByName("USE_YN")->AsString; pLcsObj->VMS_MODL_ROW = pADO->FieldByName("VMS_MODL_ROW")->AsInteger; pLcsObj->VMS_MODL_COL = pADO->FieldByName("VMS_MODL_COL")->AsInteger; pLcsObj->MODL_PIXL_WDTH = pADO->FieldByName("MODL_PIXL_WDTH")->AsInteger; pLcsObj->MODL_PIXL_HGHT = pADO->FieldByName("MODL_PIXL_HGHT")->AsInteger; pLcsObj->POWR_MODL_ROW = pLcsObj->VMS_MODL_ROW; pLcsObj->POWR_MODL_COL = pLcsObj->VMS_MODL_COL; pLcsObj->MODL_CLR = pADO->FieldByName("MODL_CLR")->AsString.Trim(); pLcsObj->WIDTH = pLcsObj->VMS_MODL_COL * pLcsObj->MODL_PIXL_WDTH; pLcsObj->HEIGHT = pLcsObj->VMS_MODL_ROW * pLcsObj->MODL_PIXL_HGHT; FLcsLists.Push(pLcsObj->LCS_CTLR_ID, pLcsObj); String VMS_CTLR_ID = pADO->FieldByName("VMS_CTLR_ID")->AsString; TVmsCtlr *pVmsObj = FLists.Find(VMS_CTLR_ID); if (pVmsObj) { pVmsObj->IsLcsUse = true; pVmsObj->FLcsInfo = pLcsObj; } } } catch(EDatabaseError &E) { DBERRORMSG("TVmsCtlrManager::LcsLoadFromDb", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORMSG("TVmsCtlrManager::LcsLoadFromDb", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } FLcsLists.UnLock(); } return true; } //--------------------------------------------------------------------------- bool TVmsCtlrManager::LoadStatusFromDb(TADOConnection *ADbConn/*=NULL*/) { String sQry; TADOQuery *pADO = NULL; sQry = "SELECT T2.VMS_CTLR_ID, \r\n" " NVL(T1.LAST_DT, SYSDATE) AS LAST_DT, \r\n" " NVL(T1.RPRS_STTS, 'U') AS RPRS_STTS, \r\n" " NVL(T1.CMNC_STTS, 'U') AS CMNC_STTS, \r\n" " NVL(T1.PS_STTS, 'U') AS PS_STTS, \r\n" " NVL(T1.FAN_STTS, 'U') AS FAN_STTS, \r\n" " NVL(T1.HTER_STTS, 'U') AS HTER_STTS, \r\n" " NVL(T1.DOOR_STTS, 'U') AS DOOR_STTS, \r\n" " NVL(T1.RSET_YN, 'N') AS RSET_YN, \r\n" " NVL(T1.TEMP, 0) AS TEMP, \r\n" " NVL(T1.HUM, 0) AS HUM, \r\n" " NVL(T1.BOX_TEMP, 0) AS BOX_TEMP, \r\n" " T2.OPER_MODE, T2.VMS_SCNR_ID, T2.VMS_ON_HM, T2.VMS_OFF_HM, \r\n" " TO_CHAR(NVL(T1.LAST_DT, SYSDATE), 'YYYY-MM-DD HH24:MI:SS') AS LAST_DT_FMT \r\n" " FROM TB_VMS_CTLR_STTS_PRST T1, TB_VMS_CTLR T2 \r\n" " WHERE 1=1 \r\n" " AND T1.VMS_CTLR_ID(+) = T2.VMS_CTLR_ID \r\n"; FLists.Lock(); try { TVmsCtlr *pVmsCtlr = NULL; FOR_STL(TVmsCtlr*, pVms, FLists) { pVms->Stts->IsLoading = false; } 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 VMS_CTLR_ID = pADO->FieldByName("VMS_CTLR_ID")->AsString; pVmsCtlr = FLists.Find(VMS_CTLR_ID); if (pVmsCtlr == NULL) { continue; } TVmsStts* Stts = pVmsCtlr->Stts; pVmsCtlr->OPER_MODE = pADO->FieldByName("OPER_MODE")->AsString; //N VARCHAR2(3) N 운영모드 pVmsCtlr->VMS_SCNR_ID = pADO->FieldByName("VMS_SCNR_ID")->AsString; //N VARCHAR2(10) Y VMS시나리오ID pVmsCtlr->VMS_ON_HM = pADO->FieldByName("VMS_ON_HM")->AsString; //N CHAR(4) Y VMS ON시분 pVmsCtlr->VMS_OFF_HM = pADO->FieldByName("VMS_OFF_HM")->AsString; //N CHAR(4) Y VMS OFF시분 Stts->LAST_DT = pADO->FieldByName("LAST_DT")->AsString; // N DATE N 최종일시 Stts->LAST_DT_FMT = pADO->FieldByName("LAST_DT_FMT")->AsString; // N DATE N 최종일시 Stts->RPRS_STTS = pADO->FieldByName("RPRS_STTS")->AsString; // N VARCHAR2(3) N 대표상태 Stts->CMNC_STTS = pADO->FieldByName("CMNC_STTS")->AsString; // N VARCHAR2(3) Y 통신상태 Stts->PS_STTS = pADO->FieldByName("PS_STTS")->AsString; // N VARCHAR2(3) Y 전원상태 Stts->FAN_STTS = pADO->FieldByName("FAN_STTS")->AsString; // N VARCHAR2(3) Y 팬상태 Stts->HTER_STTS = pADO->FieldByName("HTER_STTS")->AsString; // N VARCHAR2(3) Y 히터상태 Stts->DOOR_STTS = pADO->FieldByName("DOOR_STTS")->AsString; // N VARCHAR2(3) Y 문상태 Stts->RSET_YN = pADO->FieldByName("RSET_YN")->AsString; // N CHAR(1) Y 재실행여부 Stts->TEMP = pADO->FieldByName("TEMP")->AsString.ToIntDef(0); // N NUMBER(3,1) Y 온도 Stts->HUM = pADO->FieldByName("HUM")->AsString.ToIntDef(0); // N NUMBER(3,1) Y 습도 Stts->BOX_TEMP = pADO->FieldByName("BOX_TEMP")->AsString.ToIntDef(0); // N NUMBER(3,1) Y 함체온도 Stts->IsLoading = true; } } catch(EDatabaseError &E) { DBERRORMSG("TVmsCtlrManager::LoadStatusFromDb", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORMSG("TVmsCtlrManager::LoadStatusFromDb", 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 TVmsCtlrManager::LoadModlSttsFromDb(TADOConnection *ADbConn/*=NULL*/) { String sQry; TADOQuery *pADO = NULL; sQry = "SELECT T1.VMS_CTLR_ID, \r\n" " T2.ROW_NO, \r\n" " T2.COL_NO, \r\n" " TO_CHAR(T2.LAST_DT, 'YYYY-MM-DD HH24:MI:SS') AS LAST_DT_FMT, \r\n" " T2.MODL_STTS \r\n" " FROM TB_VMS_CTLR T1, \r\n" " TB_VMS_MODL_STTS_PRST T2 \r\n" " WHERE 1=1 \r\n" " AND T1.VMS_CTLR_ID = T2.VMS_CTLR_ID \r\n" " ORDER BY T1.VMS_CTLR_ID \r\n"; try { TVmsCtlr *pVmsCtlr = NULL; FOR_STL(TVmsCtlr*, pVms, FLists) { pVms->FModlSttsLists.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 VMS_CTLR_ID = pADO->FieldByName("VMS_CTLR_ID")->AsString; pVmsCtlr = FLists.Find(VMS_CTLR_ID); if (pVmsCtlr == NULL) { continue; } TVmsModlStts* Stts = new TVmsModlStts(); Stts->VMS_CTLR_ID = VMS_CTLR_ID; // N VARCHAR2(10) N VMS제어기ID Stts->ROW_NO = pADO->FieldByName("ROW_NO")->AsInteger; // N NUMBER(2) N 행번호 Stts->COL_NO = pADO->FieldByName("COL_NO")->AsInteger; // N NUMBER(2) N 열번호 Stts->LAST_DT_FMT = pADO->FieldByName("LAST_DT_FMT")->AsString; // N DATE N 최종일시 Stts->MODL_STTS = pADO->FieldByName("MODL_STTS")->AsString; // N VARCHAR2(3) N 모듈상태 pVmsCtlr->FModlSttsLists.Push(pVmsCtlr->FModlSttsLists.Size(), Stts); } } catch(EDatabaseError &E) { DBERRORMSG("TVmsCtlrManager::LoadModlSttsFromDb", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORMSG("TVmsCtlrManager::LoadModlSttsFromDb", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } } return true; } //--------------------------------------------------------------------------- bool TVmsCtlrManager::LoadParaFromDb(TADOConnection *ADbConn/*=NULL*/) { String sQry; TADOQuery *pADO = NULL; sQry = "SELECT T1.*, T2.OPER_MODE, T2.VMS_SCNR_ID, T2.VMS_ON_HM, T2.VMS_OFF_HM, \r\n" " TO_CHAR(T1.LAST_DT, 'YYYY-MM-DD HH24:MI:SS') AS LAST_DT_FMT \r\n" " FROM TB_VMS_CTLR_PARA T1, TB_VMS_CTLR T2 \r\n" " WHERE T1.VMS_CTLR_ID = T2.VMS_CTLR_ID \r\n"; FLists.Lock(); try { TVmsCtlr *pVmsCtlr = NULL; FOR_STL(TVmsCtlr*, pVms, FLists) { pVms->Para->IsLoading = false; } 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 VMS_CTLR_ID = pADO->FieldByName("VMS_CTLR_ID")->AsString; pVmsCtlr = FLists.Find(VMS_CTLR_ID); if (pVmsCtlr == NULL) { continue; } TVmsPara* Para = pVmsCtlr->Para; pVmsCtlr->OPER_MODE = pADO->FieldByName("OPER_MODE")->AsString; //N VARCHAR2(3) N 운영모드 pVmsCtlr->VMS_SCNR_ID = pADO->FieldByName("VMS_SCNR_ID")->AsString; //N VARCHAR2(10) Y VMS시나리오ID pVmsCtlr->VMS_ON_HM = pADO->FieldByName("VMS_ON_HM")->AsString; //N CHAR(4) Y VMS ON시분 pVmsCtlr->VMS_OFF_HM = pADO->FieldByName("VMS_OFF_HM")->AsString; //N CHAR(4) Y VMS OFF시분 Para->LAST_DT = pADO->FieldByName("LAST_DT")->AsString; // N DATE N 최종일시 Para->LAST_DT_FMT = pADO->FieldByName("LAST_DT_FMT")->AsString; // N DATE N 최종일시 Para->LUMI_MODE = pADO->FieldByName("LUMI_MODE")->AsString.ToIntDef(0); // N VARCHAR2(3) Y 휘도모드 Para->CUR_LUMI = pADO->FieldByName("CUR_LUMI")->AsString.ToIntDef(0); // N NUMBER(3) Y 현재휘도 Para->DAY_LUMI = pADO->FieldByName("DAY_LUMI")->AsString.ToIntDef(0); // N NUMBER(3) Y 주간휘도 Para->NGHT_LUMI = pADO->FieldByName("NGHT_LUMI")->AsString.ToIntDef(0); // N NUMBER(3) Y 야간휘도 //Para->CMNC_RTRY_NOCS = pADO->FieldByName("CMNC_RTRY_NOCS")->AsString.ToIntDef(0); // N NUMBER(3) Y 통신재시도횟수 //Para->BLNK_TM = pADO->FieldByName("BLNK_TM")->AsString.ToIntDef(0); // N NUMBER(3) Y 점멸시간주기 Para->FAN_MODE = pADO->FieldByName("FAN_MODE")->AsString; // N VARCHAR2(3) Y 팬모드 Para->HTER_MODE = pADO->FieldByName("HTER_MODE")->AsString; // N VARCHAR2(3) Y 히터모드 Para->ERR_MODL_RT = pADO->FieldByName("ERR_MODL_RT")->AsString.ToIntDef(0); // N NUMBER(3) Y 장애모듈비율 Para->DFLT_SCNR_RUN_TM = pADO->FieldByName("DFLT_SCNR_RUN_TM")->AsString.ToIntDef(0); // N NUMBER(3) Y 디폴트시나리오동작시간 Para->IsLoading = true; } } catch(EDatabaseError &E) { DBERRORMSG("TVmsCtlrManager::LoadParaFromDb", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORMSG("TVmsCtlrManager::LoadParaFromDb", 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 TVmsCtlrManager::UpdateCtlrInfo(TVmsCtlr *AObj, TADOConnection *ADbConn/*=NULL*/) { String sQry; TADOQuery *pADO = NULL; sQry = "UPDATE TB_VMS_CTLR \r\n" " SET VMS_ON_HM = :p01, \r\n" " VMS_OFF_HM = :p02 \r\n" " WHERE USE_YN = 'Y' \r\n"; try { 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 = AObj->VMS_ON_HM; pADO->Parameters->ParamByName("p02")->Value = AObj->VMS_ON_HM; pADO->ExecSQL(); return true; } catch(EDatabaseError &E) { DBERRORMSG("TVmsCtlrManager::UpdateCtlrInfo", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORMSG("TVmsCtlrManager::UpdateCtlrInfo", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } } return true; } //--------------------------------------------------------------------------- bool TVmsCtlrManager::LoadVmsMsg(TADOConnection *ADbConn/*=NULL*/) { bool result = false; String sQry; TADOQuery *pADO = NULL; sQry = "SELECT T1.VMS_CTLR_ID AS CTLR_ID, \r\n" " T2.SN, \r\n" " TO_CHAR(T2.PROV_DT, 'YYYY-MM-DD HH24:MI:SS') AS PROV_DT_FMT, \r\n" " T2.DSPL_HR, T2.DSPL_EFF, T2.BACK_CLR, T2.VMS_FORM_ID, \r\n" " T2.DSPL_CN, T2.PROV_YN, \r\n" " T2.OPER_MODE, T2.VMS_FORM_TYPE, \r\n" " T2.DSPL_PICT \r\n" " FROM TB_VMS_CTLR T1, \r\n" " TB_VMS_DSPL_PRST T2 \r\n" " WHERE 1=1 \r\n" " AND T1.VMS_CTLR_ID = T2.VMS_CTLR_ID \r\n" " ORDER BY T1.VMS_CTLR_ID, T2.PROV_DT, T2.SN \r\n"; TVmsCtlr *pObj = NULL; String OLD_CTLR_ID = ""; int nPhase = 0; bool isOfferYn = true; FLists.Lock(); try { FOR_STL(TVmsCtlr*, pTmpObj, FLists) { pTmpObj->Lock(); pTmpObj->FVmsMsg->Init(); pTmpObj->UnLock(); } } __finally { FLists.UnLock(); } try { 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 CTLR_ID = pADO->FieldByName("CTLR_ID")->AsString; if (CTLR_ID != OLD_CTLR_ID) { if (pObj) { pObj->FVmsMsg->Total = nPhase; pObj->FVmsMsg->Curr = 0; pObj->FVmsMsg->IsLoading = false; pObj->FVmsMsg->OFFER_YN = isOfferYn; } pObj = FLists.Find(CTLR_ID); if (pObj) { nPhase = 0; isOfferYn = true; OLD_CTLR_ID = CTLR_ID; } else continue; } if (!pObj) continue; if (nPhase >= INT_VMS_MAX_FORM) continue; SAFE_DELETE(FImgStream); try { FImgStream = pADO->CreateBlobStream(pADO->FieldByName("DSPL_PICT"), bmRead); if (FImgStream && FImgStream->Size > 0) { if (!pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT) { pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT = new Graphics::TBitmap(); } pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT->FreeImage(); pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT->LoadFromStream(FImgStream); pObj->FVmsMsg->PHASE[nPhase].CTLR_ID = CTLR_ID; // N VARCHAR2(10) N VMS제어기ID pObj->FVmsMsg->PHASE[nPhase].SN = pADO->FieldByName("SN")->AsInteger; // N NUMBER(5) N 순번 pObj->FVmsMsg->PHASE[nPhase].PROV_DT_FMT = pADO->FieldByName("PROV_DT_FMT")->AsString; // N DATE N 제공일시 pObj->FVmsMsg->PHASE[nPhase].DSPL_HR = pADO->FieldByName("DSPL_HR")->AsInteger; // N NUMBER(3) N 표출시간 pObj->FVmsMsg->PHASE[nPhase].DSPL_EFF = pADO->FieldByName("DSPL_EFF")->AsString; // N VARCHAR2(3) N 표출효과 pObj->FVmsMsg->PHASE[nPhase].BACK_CLR = pADO->FieldByName("BACK_CLR")->AsString; // N VARCHAR2(3) Y 배경색상 pObj->FVmsMsg->PHASE[nPhase].VMS_FORM_ID = pADO->FieldByName("VMS_FORM_ID")->AsString; // N VARCHAR2(10) N VMS폼ID pObj->FVmsMsg->PHASE[nPhase].DSPL_CN = pADO->FieldByName("DSPL_CN")->AsString; // N VARCHAR2(256) N 표출내용 pObj->FVmsMsg->PHASE[nPhase].PROV_YN = pADO->FieldByName("PROV_YN")->AsString; // N CHAR(1) N 제공여부 pObj->FVmsMsg->PHASE[nPhase].OPER_MODE = pADO->FieldByName("OPER_MODE")->AsString; // N VARCHAR2(3) N 운영모드 pObj->FVmsMsg->PHASE[nPhase].VMS_FORM_TYPE = pADO->FieldByName("VMS_FORM_TYPE")->AsString; // N VARCHAR2(3) N VMS폼유형 if (pObj->FVmsMsg->PHASE[nPhase].DSPL_HR <= 0) pObj->FVmsMsg->PHASE[nPhase].DSPL_HR = 3; if (pObj->FVmsMsg->PHASE[nPhase].DSPL_HR >= 10) pObj->FVmsMsg->PHASE[nPhase].DSPL_HR = 10; pObj->FVmsMsg->OFFER_DT = pObj->FVmsMsg->PHASE[nPhase].PROV_DT_FMT; if (pObj->FVmsMsg->PHASE[nPhase].PROV_YN != "Y") { isOfferYn = false; } nPhase++; } } catch(Exception &e) { } } if (pObj) { pObj->FVmsMsg->IsLoading = false; pObj->FVmsMsg->Total = nPhase; pObj->FVmsMsg->Curr = 0; pObj->FVmsMsg->OFFER_YN = isOfferYn; } } catch(EDatabaseError &E) { DBERRORMSG("TVmsCtlrManager::LoadVmsMsg", String(E.ClassName()), E.Message, sQry); result = false; } catch(Exception &e) { DBERRORMSG("TVmsCtlrManager::LoadVmsMsg", String(e.ClassName()), e.Message, sQry); result = false; } } __finally { if (pADO) { pADO->Close(); delete pADO; } } result = LoadLcsMsg(ADbConn); return result; } //--------------------------------------------------------------------------- bool TVmsCtlrManager::LoadLcsMsg(TADOConnection *ADbConn/*=NULL*/) { bool result = false; String sQry; TADOQuery *pADO = NULL; sQry = "SELECT T1.LCS_CTLR_ID AS CTLR_ID, \r\n" " T2.SN, \r\n" " TO_CHAR(T2.PROV_DT, 'YYYY-MM-DD HH24:MI:SS') AS PROV_DT_FMT, \r\n" " T2.DSPL_HR, T2.DSPL_EFF, T2.BACK_CLR, T2.VMS_FORM_ID, \r\n" " T2.DSPL_CN, T2.PROV_YN, \r\n" " T2.DSPL_PICT \r\n" " FROM TB_LCS_CTLR T1, \r\n" " TB_LCS_DSPL_PRST T2 \r\n" " WHERE 1=1 \r\n" " AND T1.LCS_CTLR_ID = T2.LCS_CTLR_ID \r\n" " ORDER BY T1.LCS_CTLR_ID, T2.PROV_DT, T2.SN \r\n"; TLcsCtlr *pObj = NULL; String OLD_CTLR_ID = ""; int nPhase = 0; bool isOfferYn = true; FLcsLists.Lock(); try { FOR_STL(TLcsCtlr*, pTmpObj, FLcsLists) { pTmpObj->Lock(); pTmpObj->FVmsMsg->Init(); pTmpObj->UnLock(); } } __finally { FLcsLists.UnLock(); } try { 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 CTLR_ID = pADO->FieldByName("CTLR_ID")->AsString; if (CTLR_ID != OLD_CTLR_ID) { if (pObj) { pObj->FVmsMsg->Total = nPhase; pObj->FVmsMsg->Curr = 0; pObj->FVmsMsg->IsLoading = false; pObj->FVmsMsg->OFFER_YN = isOfferYn; } pObj = FLcsLists.Find(CTLR_ID); if (pObj) { nPhase = 0; isOfferYn = true; OLD_CTLR_ID = CTLR_ID; } else continue; } if (!pObj) continue; if (nPhase >= INT_VMS_MAX_FORM) continue; SAFE_DELETE(FImgStream); try { FImgStream = pADO->CreateBlobStream(pADO->FieldByName("DSPL_PICT"), bmRead); if (FImgStream && FImgStream->Size > 0) { if (!pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT) { pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT = new Graphics::TBitmap(); } pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT->FreeImage(); pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT->LoadFromStream(FImgStream); pObj->FVmsMsg->PHASE[nPhase].CTLR_ID = CTLR_ID; // N VARCHAR2(10) N VMS제어기ID pObj->FVmsMsg->PHASE[nPhase].SN = pADO->FieldByName("SN")->AsInteger; // N NUMBER(5) N 순번 pObj->FVmsMsg->PHASE[nPhase].PROV_DT_FMT = pADO->FieldByName("PROV_DT_FMT")->AsString; // N DATE N 제공일시 pObj->FVmsMsg->PHASE[nPhase].DSPL_HR = pADO->FieldByName("DSPL_HR")->AsInteger; // N NUMBER(3) N 표출시간 pObj->FVmsMsg->PHASE[nPhase].DSPL_EFF = pADO->FieldByName("DSPL_EFF")->AsString; // N VARCHAR2(3) N 표출효과 pObj->FVmsMsg->PHASE[nPhase].BACK_CLR = pADO->FieldByName("BACK_CLR")->AsString; // N VARCHAR2(3) Y 배경색상 pObj->FVmsMsg->PHASE[nPhase].VMS_FORM_ID = pADO->FieldByName("VMS_FORM_ID")->AsString; // N VARCHAR2(10) N VMS폼ID pObj->FVmsMsg->PHASE[nPhase].DSPL_CN = pADO->FieldByName("DSPL_CN")->AsString; // N VARCHAR2(256) N 표출내용 pObj->FVmsMsg->PHASE[nPhase].PROV_YN = pADO->FieldByName("PROV_YN")->AsString; // N CHAR(1) N 제공여부 if (pObj->FVmsMsg->PHASE[nPhase].DSPL_HR <= 0) pObj->FVmsMsg->PHASE[nPhase].DSPL_HR = 3; if (pObj->FVmsMsg->PHASE[nPhase].DSPL_HR >= 10) pObj->FVmsMsg->PHASE[nPhase].DSPL_HR = 10; pObj->FVmsMsg->OFFER_DT = pObj->FVmsMsg->PHASE[nPhase].PROV_DT_FMT; if (pObj->FVmsMsg->PHASE[nPhase].PROV_YN != "Y") { isOfferYn = false; } nPhase++; } } catch(Exception &e) { } } if (pObj) { pObj->FVmsMsg->IsLoading = false; pObj->FVmsMsg->Total = nPhase; pObj->FVmsMsg->Curr = 0; pObj->FVmsMsg->OFFER_YN = isOfferYn; } } catch(EDatabaseError &E) { DBERRORMSG("TVmsCtlrManager::LoadVmsMsg", String(E.ClassName()), E.Message, sQry); result = false; } catch(Exception &e) { DBERRORMSG("TVmsCtlrManager::LoadVmsMsg", String(e.ClassName()), e.Message, sQry); result = false; } } __finally { if (pADO) { pADO->Close(); delete pADO; } } return true; } //--------------------------------------------------------------------------- bool TVmsCtlrManager::LoadVmsPlanMsg(TADOConnection *ADbConn/*=NULL*/) { bool result = false; String sQry; TADOQuery *pADO = NULL; sQry = "SELECT T1.VMS_CTLR_ID AS CTLR_ID, \r\n" " T2.SN, \r\n" " TO_CHAR(T2.LAST_DT, 'YYYY-MM-DD HH24:MI:SS') AS PROV_DT_FMT, \r\n" " T2.DSPL_HR, T2.DSPL_EFF, T2.BACK_CLR, T2.VMS_FORM_ID, \r\n" " T2.DSPL_CN, 'Y' AS PROV_YN, \r\n" " T2.OPER_MODE, T2.VMS_FORM_TYPE, \r\n" " T2.DSPL_PICT \r\n" " FROM TB_VMS_CTLR T1, \r\n" " TB_VMS_DSPL_PLAN_MSG T2 \r\n" " WHERE 1=1 \r\n" " AND T1.VMS_CTLR_ID = T2.VMS_CTLR_ID \r\n" " ORDER BY T1.VMS_CTLR_ID, T2.LAST_DT, T2.SN \r\n"; TVmsCtlr *pObj = NULL; String OLD_CTLR_ID = ""; int nPhase = 0; bool isOfferYn = true; FLists.Lock(); try { FOR_STL(TVmsCtlr*, pTmpObj, FLists) { pTmpObj->Lock(); pTmpObj->FVmsMsg->Init(); pTmpObj->UnLock(); } } __finally { FLists.UnLock(); } try { 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 CTLR_ID = pADO->FieldByName("CTLR_ID")->AsString; if (CTLR_ID != OLD_CTLR_ID) { if (pObj) { pObj->FVmsMsg->Total = nPhase; pObj->FVmsMsg->Curr = 0; pObj->FVmsMsg->IsLoading = false; pObj->FVmsMsg->OFFER_YN = isOfferYn; } pObj = FLists.Find(CTLR_ID); if (pObj) { nPhase = 0; isOfferYn = true; OLD_CTLR_ID = CTLR_ID; } else continue; } if (!pObj) continue; if (nPhase >= INT_VMS_MAX_FORM) continue; SAFE_DELETE(FImgStream); try { FImgStream = pADO->CreateBlobStream(pADO->FieldByName("DSPL_PICT"), bmRead); if (FImgStream && FImgStream->Size > 0) { if (!pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT) { pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT = new Graphics::TBitmap(); } pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT->FreeImage(); pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT->LoadFromStream(FImgStream); pObj->FVmsMsg->PHASE[nPhase].CTLR_ID = CTLR_ID; // N VARCHAR2(10) N VMS제어기ID pObj->FVmsMsg->PHASE[nPhase].SN = pADO->FieldByName("SN")->AsInteger; // N NUMBER(5) N 순번 pObj->FVmsMsg->PHASE[nPhase].PROV_DT_FMT = pADO->FieldByName("PROV_DT_FMT")->AsString; // N DATE N 제공일시 pObj->FVmsMsg->PHASE[nPhase].DSPL_HR = pADO->FieldByName("DSPL_HR")->AsInteger; // N NUMBER(3) N 표출시간 pObj->FVmsMsg->PHASE[nPhase].DSPL_EFF = pADO->FieldByName("DSPL_EFF")->AsString; // N VARCHAR2(3) N 표출효과 pObj->FVmsMsg->PHASE[nPhase].BACK_CLR = pADO->FieldByName("BACK_CLR")->AsString; // N VARCHAR2(3) Y 배경색상 pObj->FVmsMsg->PHASE[nPhase].VMS_FORM_ID = pADO->FieldByName("VMS_FORM_ID")->AsString; // N VARCHAR2(10) N VMS폼ID pObj->FVmsMsg->PHASE[nPhase].DSPL_CN = pADO->FieldByName("DSPL_CN")->AsString; // N VARCHAR2(256) N 표출내용 pObj->FVmsMsg->PHASE[nPhase].PROV_YN = pADO->FieldByName("PROV_YN")->AsString; // N CHAR(1) N 제공여부 pObj->FVmsMsg->PHASE[nPhase].OPER_MODE = pADO->FieldByName("OPER_MODE")->AsString; // N VARCHAR2(3) N 운영모드 pObj->FVmsMsg->PHASE[nPhase].VMS_FORM_TYPE = pADO->FieldByName("VMS_FORM_TYPE")->AsString; // N VARCHAR2(3) N VMS폼유형 if (pObj->FVmsMsg->PHASE[nPhase].DSPL_HR <= 0) pObj->FVmsMsg->PHASE[nPhase].DSPL_HR = 3; if (pObj->FVmsMsg->PHASE[nPhase].DSPL_HR >= 10) pObj->FVmsMsg->PHASE[nPhase].DSPL_HR = 10; pObj->FVmsMsg->OFFER_DT = pObj->FVmsMsg->PHASE[nPhase].PROV_DT_FMT; if (pObj->FVmsMsg->PHASE[nPhase].PROV_YN != "Y") { isOfferYn = false; } nPhase++; } } catch(Exception &e) { } } if (pObj) { pObj->FVmsMsg->IsLoading = false; pObj->FVmsMsg->Total = nPhase; pObj->FVmsMsg->Curr = 0; pObj->FVmsMsg->OFFER_YN = isOfferYn; } } catch(EDatabaseError &E) { DBERRORMSG("TVmsCtlrManager::LoadVmsPlanMsg", String(E.ClassName()), E.Message, sQry); result = false; } catch(Exception &e) { DBERRORMSG("TVmsCtlrManager::LoadVmsPlanMsg", String(e.ClassName()), e.Message, sQry); result = false; } } __finally { if (pADO) { pADO->Close(); delete pADO; } } result = LoadLcsPlanMsg(ADbConn); return result; } //--------------------------------------------------------------------------- bool TVmsCtlrManager::LoadLcsPlanMsg(TADOConnection *ADbConn/*=NULL*/) { bool result = false; String sQry; TADOQuery *pADO = NULL; sQry = "SELECT T1.LCS_CTLR_ID AS CTLR_ID, \r\n" " T2.SN, \r\n" " TO_CHAR(T2.LAST_DT, 'YYYY-MM-DD HH24:MI:SS') AS PROV_DT_FMT, \r\n" " T2.DSPL_HR, T2.DSPL_EFF, T2.BACK_CLR, T2.VMS_FORM_ID, \r\n" " T2.DSPL_CN, 'Y' AS PROV_YN, \r\n" " T2.DSPL_PICT \r\n" " FROM TB_LCS_CTLR T1, \r\n" " TB_LCS_DSPL_PLAN_MSG T2 \r\n" " WHERE 1=1 \r\n" " AND T1.LCS_CTLR_ID = T2.LCS_CTLR_ID \r\n" " ORDER BY T1.LCS_CTLR_ID, T2.LAST_DT, T2.SN \r\n"; TLcsCtlr *pObj = NULL; String OLD_CTLR_ID = ""; int nPhase = 0; bool isOfferYn = true; FLcsLists.Lock(); try { FOR_STL(TLcsCtlr*, pTmpObj, FLcsLists) { pTmpObj->Lock(); pTmpObj->FVmsMsg->Init(); pTmpObj->UnLock(); } } __finally { FLcsLists.UnLock(); } try { 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 CTLR_ID = pADO->FieldByName("CTLR_ID")->AsString; if (CTLR_ID != OLD_CTLR_ID) { if (pObj) { pObj->FVmsMsg->Total = nPhase; pObj->FVmsMsg->Curr = 0; pObj->FVmsMsg->IsLoading = false; pObj->FVmsMsg->OFFER_YN = isOfferYn; } pObj = FLcsLists.Find(CTLR_ID); if (pObj) { nPhase = 0; isOfferYn = true; OLD_CTLR_ID = CTLR_ID; } else continue; } if (!pObj) continue; if (nPhase >= INT_VMS_MAX_FORM) continue; SAFE_DELETE(FImgStream); try { FImgStream = pADO->CreateBlobStream(pADO->FieldByName("DSPL_PICT"), bmRead); if (FImgStream && FImgStream->Size > 0) { if (!pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT) { pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT = new Graphics::TBitmap(); } pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT->FreeImage(); pObj->FVmsMsg->PHASE[nPhase].DSPL_PICT->LoadFromStream(FImgStream); pObj->FVmsMsg->PHASE[nPhase].CTLR_ID = CTLR_ID; // N VARCHAR2(10) N VMS제어기ID pObj->FVmsMsg->PHASE[nPhase].SN = pADO->FieldByName("SN")->AsInteger; // N NUMBER(5) N 순번 pObj->FVmsMsg->PHASE[nPhase].PROV_DT_FMT = pADO->FieldByName("PROV_DT_FMT")->AsString; // N DATE N 제공일시 pObj->FVmsMsg->PHASE[nPhase].DSPL_HR = pADO->FieldByName("DSPL_HR")->AsInteger; // N NUMBER(3) N 표출시간 pObj->FVmsMsg->PHASE[nPhase].DSPL_EFF = pADO->FieldByName("DSPL_EFF")->AsString; // N VARCHAR2(3) N 표출효과 pObj->FVmsMsg->PHASE[nPhase].BACK_CLR = pADO->FieldByName("BACK_CLR")->AsString; // N VARCHAR2(3) Y 배경색상 pObj->FVmsMsg->PHASE[nPhase].VMS_FORM_ID = pADO->FieldByName("VMS_FORM_ID")->AsString; // N VARCHAR2(10) N VMS폼ID pObj->FVmsMsg->PHASE[nPhase].DSPL_CN = pADO->FieldByName("DSPL_CN")->AsString; // N VARCHAR2(256) N 표출내용 pObj->FVmsMsg->PHASE[nPhase].PROV_YN = pADO->FieldByName("PROV_YN")->AsString; // N CHAR(1) N 제공여부 if (pObj->FVmsMsg->PHASE[nPhase].DSPL_HR <= 0) pObj->FVmsMsg->PHASE[nPhase].DSPL_HR = 3; if (pObj->FVmsMsg->PHASE[nPhase].DSPL_HR >= 10) pObj->FVmsMsg->PHASE[nPhase].DSPL_HR = 10; pObj->FVmsMsg->OFFER_DT = pObj->FVmsMsg->PHASE[nPhase].PROV_DT_FMT; if (pObj->FVmsMsg->PHASE[nPhase].PROV_YN != "Y") { isOfferYn = false; } nPhase++; } } catch(Exception &e) { } } if (pObj) { pObj->FVmsMsg->IsLoading = false; pObj->FVmsMsg->Total = nPhase; pObj->FVmsMsg->Curr = 0; pObj->FVmsMsg->OFFER_YN = isOfferYn; } } catch(EDatabaseError &E) { DBERRORMSG("TVmsCtlrManager::LoadLcsPlanMsg", String(E.ClassName()), E.Message, sQry); result = false; } catch(Exception &e) { DBERRORMSG("TVmsCtlrManager::LoadLcsPlanMsg", String(e.ClassName()), e.Message, sQry); result = false; } } __finally { if (pADO) { pADO->Close(); delete pADO; } } return true; } //--------------------------------------------------------------------------- bool TVmsCtlrManager::InsVmsControlHs(String ACtlDt, String AVmsNmbr, String ACtlType, String ACtlVal, String ACtlRes, String AUserId, TADOConnection *ADbConn/*=NULL*/) { String sQry; TADOQuery *pADO = NULL; sQry = "INSERT INTO TB_VMS_CTRL_HS( \r\n" " CTRL_DT, \r\n" " VMS_CTLR_ID, \r\n" " CTRL_TYPE, \r\n" " CTRL_VAL, \r\n" " CTRL_RESULT, \r\n" " USER_ID \r\n" " ) \r\n" " VALUES( \r\n" " :p01, \r\n" " :p02, \r\n" " :p03, \r\n" " :p04, \r\n" " :p05, \r\n" " :p06 \r\n" " ) \r\n"; try { 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 = ACtlDt; pADO->Parameters->ParamByName("p02")->Value = AVmsNmbr; pADO->Parameters->ParamByName("p03")->Value = ACtlType; pADO->Parameters->ParamByName("p04")->Value = ACtlVal; pADO->Parameters->ParamByName("p05")->Value = ACtlRes; pADO->Parameters->ParamByName("p06")->Value = AUserId; pADO->ExecSQL(); return true; } catch(EDatabaseError &E) { DBERRORMSG("TVmsCtlrManager::InsVmsControlHs", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORMSG("TVmsCtlrManager::InsVmsControlHs", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } } return true; } //---------------------------------------------------------------------------