123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493 |
- //---------------------------------------------------------------------------
- #pragma hdrstop
- #include "CDSFacilityF.h"
- #include "ITS_OPLibF.h"
- //---------------------------------------------------------------------------
- #pragma package(smart_init)
- TItsRegFacility::TItsRegFacility()
- {
- UnRegisterd = "N";
- GridIndex = -1;
- Clear();
- }
- //---------------------------------------------------------------------------
- TItsRegFacility::~TItsRegFacility()
- {
- }
- //---------------------------------------------------------------------------
- void TItsRegFacility::Clear()
- {
- #if 0
- Type = "";
- Id = "";
- Name = "";
- DelYn = ""
- UnRegisterd = "N";
- #endif
- }
- //---------------------------------------------------------------------------
- TItsFacility::TItsFacility()
- {
- FCommStatus = "CMS2"; // 장비 통신상태값
- FDoorStatus = "CMS2"; // 장비 Door상태값
- GridIndex = -1; // 그리드 인덱스
- StatusGridIndex = -1;
- Deleted = "N";
- Clear();
- }
- //---------------------------------------------------------------------------
- void TItsFacility::Clear()
- {
- #if 0
- FCLT_ID = ""; // FCLT_ID VARCHAR(50 BYTE) NOT NULL, '시설물 ID';
- RFID_ID = ""; // RFID_ID VARCHAR(50 BYTE) NOT NULL, '시설물 ID';
- FCLT_TYPE = ""; // FCLT_TYPE VARCHAR(7 BYTE) NOT NULL, '시설물유형';
- FCLT_LCTN = ""; // FCLT_LCTN VARCHAR(100 BYTE), '시설물 위치';
- RSCE_YN = ""; // RSCE_YN CHAR(1 BYTE) DEFAULT 'N', '현장자산유무';
- MDL_NM = ""; // MDL_NM VARCHAR(30 BYTE), '모델명';
- USE_YEAR = ""; // USE_YEAR NUMBER(3), '사용년수';
- INWR_DT = ""; // INWR_DT VARCHAR(14 BYTE), '입고일시';
- OTWR_DT = ""; // OTWR_DT VARCHAR(14 BYTE), '출고일시';
- ISTL_DT = ""; // ISTL_DT VARCHAR(14 BYTE), '설치일시';
- TAKT_DT = ""; // TAKT_DT VARCHAR(14 BYTE), '반출일시';
- TAKT_RESN = ""; // TAKT_RESN VARCHAR(100 BYTE), '반출사유';
- TAKN_DT = ""; // TAKN_DT VARCHAR(14 BYTE), '반입일시';
- ABDN_DT = ""; // ABDN_DT VARCHAR(14 BYTE), '폐기일시';
- ADTN_NM = ""; // ADTN_NM VARCHAR(30 BYTE), '추가자명';
- ADTN_DT = ""; // ADTN_DT VARCHAR(14 BYTE), '추가일시';
- CHNG_NM = ""; // CHNG_NM VARCHAR(30 BYTE), '변경자명';
- CHNG_DT = ""; // CHNG_DT VARCHAR(14 BYTE), '변경일시';
- AMT = ""; // AMT NUMBER(15), '금액';
- DEL_YN = ""; // DEL_YN CHAR(1 BYTE) DEFAULT 'N', '삭제여부';
- ISTL_CMPY_ID = ""; // ISTL_CMPY_ID VARCHAR(30 BYTE), '설치업체ID';
- MNFC_CMPY_ID = ""; // PRDC_CMPY_ID VARCHAR(30 BYTE) '제조업체ID';
- ISTL_LCTN_ADDR = "";
- CommStatus = "CMS2"; // 장비 통신상태값
- DoorStatus = "CMS2"; // 장비 Door상태값
- GridIndex = -1; // 메인폼에 뿌려지는 그리드 인덱스
- #endif
- }
- //---------------------------------------------------------------------------
- TItsFacility::~TItsFacility()
- {
- }
- //---------------------------------------------------------------------------
- //---------------------------------------------------------------------------
- TItsFacilityManager *ItsFacilityManager = NULL;
- //---------------------------------------------------------------------------
- /*
- * Facility Manager
- */
- TItsFacilityManager::TItsFacilityManager()
- {
- }
- //---------------------------------------------------------------------------
- TItsFacilityManager::~TItsFacilityManager()
- {
- FRegLists.RemoveAll();
- ItsFacilityManager->FLists.RemoveAll();
- }
- //---------------------------------------------------------------------------
- void TItsFacilityManager::SetCenterId(String ACenterId)
- {
- CenterId = ACenterId;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFromDb(TADOConnection *ADbConn/*=NULL*/)
- {
- try
- {
- FLocalCctvCnt = 0;
- FRseLists.Lock();
- FAviLists.Lock();
- FBitLists.Lock();
- FSigLists.Lock();
- FSigDetLists.Lock();
- FPisLists.Lock();
- FPcsLists.Lock();
- FRegLists.Lock();
- ItsFacilityManager->FLists.Lock();
- FRseLists.RemoveAll();
- FAviLists.RemoveAll();
- FBitLists.RemoveAll();
- FSigLists.RemoveAll();
- FSigDetLists.RemoveAll();
- FPisLists.RemoveAll();
- FPcsLists.RemoveAll();
- FRegLists.RemoveAll();
- ItsFacilityManager->FLists.RemoveAll();
- }
- __finally
- {
- FRseLists.UnLock();
- FAviLists.UnLock();
- FBitLists.UnLock();
- FSigLists.UnLock();
- FSigDetLists.UnLock();
- FPisLists.UnLock();
- FPcsLists.UnLock();
- FRegLists.UnLock();
- ItsFacilityManager->FLists.UnLock();
- }
- LoadFacilityReg(ADbConn); // 시설물 개별 테이블 조회(ID, NAME 등)
- LoadFacilityMaster(ADbConn); // TB_FCLT_INFR
- LoadFacilityVds(ADbConn);
- LoadFacilityCctv(ADbConn);
- #ifdef USE_INCCCTV
- LoadFacilityIncCctv(ADbConn);
- #endif
- LoadFacilityVms(ADbConn);
- LoadFacilityWebCam(ADbConn);
- LoadFacilityCrsCam(ADbConn);
- LoadFacilityPark(ADbConn);
- #ifdef USE_RSE
- LoadFacilityRse(ADbConn);
- #endif
- #ifdef USE_AVI
- LoadFacilityAvi(ADbConn);
- #endif
- #ifdef USE_DSRC
- LoadFacilityDsrc(ADbConn);
- #endif
- #ifdef USE_BIT
- LoadFacilityBit(ADbConn);
- #endif
- #ifdef USE_SIG
- LoadFacilitySig(ADbConn);
- #endif
- #ifdef USE_SIGDET
- LoadFacilitySigDet(ADbConn);
- #endif
- #ifdef USE_PVMS
- LoadFacilityPvms(ADbConn);
- #endif
- #ifdef USE_PVDS
- LoadFacilityPvds(ADbConn);
- #endif
- LoadFacilityCross(ADbConn);
- LoadFacilitySgnlCtlr(ADbConn);
- CheckFacility();
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::CheckFacility()
- {
- try
- {
- ItsFacilityManager->FLists.Lock();
- FOR_STL(TItsFacility *, pFacility, ItsFacilityManager->FLists)
- {
- TItsRegFacility *pRegFacility = FRegLists.Find(pFacility->FCLT_TYPE + pFacility->FCLT_ID);
- if (!pRegFacility)
- {
- pFacility->Deleted = "Y";
- }
- }
- }
- __finally
- {
- ItsFacilityManager->FLists.UnLock();
- }
- try
- {
- FRegLists.Lock();
- FOR_STL(TItsRegFacility *, pRegFacility, FRegLists)
- {
- TItsFacility *pFacility = ItsFacilityManager->FLists.Find(pRegFacility->Id);
- if (!pFacility)
- {
- pRegFacility->UnRegisterd = "Y";
- }
- }
- }
- __finally
- {
- FRegLists.UnLock();
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityReg(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "SELECT '' AS FAC_TYPE, '' AS FAC_ID, '' AS FAC_NM, '' AS DEL_YN \r\n"
- " FROM DUAL \r\n"
- " WHERE 1 = 0 \r\n"
- #ifdef USE_CCTV
- #if 0
- "UNION \r\n"
- "SELECT 'CCTV' AS FAC_TYPE, CCTV_CTLR_ID AS FAC_ID, CCTV_NM AS FAC_NM, DEL_YN \r\n"
- " FROM TB_CCTV_CTLR \r\n"
- " WHERE DEL_YN = 'N' \r\n"
- #else
- "UNION \r\n"
- "SELECT 'CCTV' AS FAC_TYPE, CCTV_CTLR_ID AS FAC_ID, ISTL_LCTN_NM AS FAC_NM, DEL_YN \r\n"
- " FROM TB_CCTV_CTLR \r\n"
- " WHERE DEL_YN = 'N' \r\n"
- #endif
- #endif
- #ifdef USE_INCCCTV
- "UNION \r\n"
- "SELECT 'ICAM' AS FAC_TYPE, CCTV_CTLR_ID AS FAC_ID, ISTL_LCTN_NM AS FAC_NM, DEL_YN \r\n"
- " FROM VW_INC_CCTV_CTLR \r\n"
- " WHERE DEL_YN = 'N' \r\n"
- #endif
- #ifdef USE_VDS
- "UNION \r\n"
- "SELECT 'VDS' AS FAC_TYPE, VDS_CTLR_ID AS FAC_ID, VDS_NM AS FAC_N, DEL_YN \r\n"
- " FROM TB_VDS_CTLR \r\n"
- " WHERE DEL_YN = 'N' \r\n"
- #endif
- #ifdef USE_VMS
- "UNION \r\n"
- "SELECT 'VMS' AS FAC_TYPE, VMS_CTLR_ID AS FAC_ID, VMS_NM AS FAC_NM, DEL_YN \r\n"
- " FROM TB_VMS_CTLR \r\n"
- " WHERE DEL_YN = 'N' \r\n"
- #endif
- #ifdef USE_WCAM
- "UNION \r\n"
- "SELECT WCAM_TYPE_CD AS FAC_TYPE, WCAM_CTLR_ID AS FAC_ID, WCAM_NM AS FAC_NM, DEL_YN \r\n"
- " FROM TB_WCAM_CTLR \r\n"
- " WHERE DEL_YN = 'N' \r\n"
- #endif
- #ifdef USE_CCAM
- "UNION \r\n"
- "SELECT 'CCAM' AS FAC_TYPE, CCAM_CTLR_ID AS FAC_ID, CCAM_NM AS FAC_NM, DEL_YN \r\n"
- " FROM TB_CCAM_CTLR \r\n"
- " WHERE DEL_YN = 'N' \r\n"
- #endif
- #ifdef USE_AVI
- "UNION \r\n"
- "SELECT 'AVI' AS FAC_TYPE, AVI_ID AS FAC_ID, AVI_LCTN_NM AS FAC_NM, DEL_YN \r\n"
- " FROM TB_AVI_CTLR \r\n"
- " WHERE DEL_YN = 'N' \r\n"
- #endif
- #ifdef USE_DSRC
- "UNION \r\n"
- "SELECT 'DSRC' AS FAC_TYPE, RSE_ID AS FAC_ID, ISTL_LCTN_NM AS FAC_NM, DEL_YN \r\n"
- " FROM TB_RSE_MSTR \r\n"
- " WHERE DEL_YN = 'N' \r\n"
- #endif
- #ifdef USE_BIT
- "UNION \r\n"
- "SELECT 'BIT' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, FCLT_LCTN AS FAC_NM, 'N' AS DEL_YN \r\n"
- " FROM VW_BIT \r\n"
- #if 0
- "SELECT 'BIT' AS FAC_TYPE, TO_CHAR(A.BIT_ID) AS FAC_ID, B.STOP_NAME AS FAC_NM, \r\n"
- " 'N' AS DEL_YN \r\n"
- " FROM BIT A, BUSSTOP B \r\n"
- " WHERE 1=1 \r\n"
- " AND A.INSTALL_STOP_ID = B.STOP_ID \r\n"
- " AND B.USE_FLAG = '1' \r\n"
- #endif
- #endif
- #ifdef USE_SIG
- "UNION \r\n"
- "SELECT 'SIG' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, FCLT_LCTN AS FAC_NM, 'N' AS DEL_YN \r\n"
- " FROM VW_SIG_CTLR \r\n"
- #endif
- #ifdef USE_PVMS
- "UNION \r\n"
- "SELECT 'PVMS' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, FCLT_LCTN AS FAC_NM, 'N' AS DEL_YN \r\n"
- " FROM VW_PIS_VMS \r\n"
- #endif
- #ifdef USE_PVDS
- "UNION \r\n"
- "SELECT 'PVDS' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, FCLT_LCTN AS FAC_NM, 'N' AS DEL_YN \r\n"
- " FROM VW_PIS_CONT \r\n"
- #endif
- #ifdef USE_SIGDET
- "UNION \r\n"
- "SELECT 'LVD' AS FAC_TYPE, FCLT_ID AS FAC_ID, FCLT_LCTN AS FAC_NM, 'N' AS DEL_YN \r\n"
- " FROM VW_SIG_LVDS \r\n"
- #endif
- #ifdef USE_RSE
- "UNION \r\n"
- "SELECT 'RSE' AS FAC_TYPE, RSEID AS FAC_ID, LOCATION AS FAC_NM, 'N' AS DEL_YN \r\n"
- " FROM RSEMST \r\n"
- #endif
- #ifdef USE_PARK2
- "UNION \r\n"
- "SELECT 'PARK' AS FAC_TYPE, PRLT_CTLR_ID AS FAC_ID, PRLT_NM AS FAC_NM, DEL_YN \r\n"
- " FROM TB_PRLT_CTLR \r\n"
- " WHERE DEL_YN = 'N' \r\n"
- #endif
- #ifdef USE_PARK
- "UNION \r\n"
- "SELECT 'PARK' AS FAC_TYPE, prk_plce_manage_no AS FAC_ID, prk_plce_nm AS FAC_NM, 'N' AS DEL_YN \r\n"
- " FROM TB_PRK_PLCE \r\n"
- " WHERE pis_type != 'N' \r\n"
- #endif
- #ifdef USE_CROSS
- // 교차로교통량
- "UNION \r\n"
- "SELECT 'CRS' AS FAC_TYPE, CROSS_ID AS FAC_ID, NAME AS FAC_NM, 'N' AS DEL_YN \r\n"
- " FROM MST_CROSS \r\n"
- " WHERE DEL_YN = 'N' \r\n"
- // 교차로교통량 CCTV
- "UNION \r\n"
- "SELECT 'CRSCAM' AS FAC_TYPE, A.CAM_ID AS FAC_ID, A.NAME AS FAC_NM, 'N' AS DEL_YN \r\n"
- " FROM MST_CCAM A, MST_CROSS B \r\n"
- " WHERE A.DEL_YN = 'N' \r\n"
- " AND B.DEL_YN = 'N' \r\n"
- " AND A.CROSS_ID = B.CROSS_ID \r\n"
- #endif
- ;
- FRegLists.Lock();
- try
- {
- FRegLists.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())
- {
- TItsRegFacility *pRegFacility = new TItsRegFacility();
- pRegFacility->Type = pADO->FieldByName("FAC_TYPE")->AsString;
- pRegFacility->Id = pADO->FieldByName("FAC_ID")->AsString;
- pRegFacility->Name = pADO->FieldByName("FAC_NM")->AsString;
- pRegFacility->DelYn = pADO->FieldByName("DEL_YN")->AsString;
- pRegFacility->Name = StringReplace(pRegFacility->Name , "\"", "", TReplaceFlags() << rfReplaceAll);
- pRegFacility->GridIndex = -1;
- FRegLists.Push(pRegFacility->Type + pRegFacility->Id, pRegFacility);
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilityReg", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilityReg", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- FRegLists.UnLock();
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityMaster(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "SELECT * \r\n"
- " FROM TB_FCLT_INFR \r\n"
- " WHERE DEL_YN = 'N' \r\n";
- TFacilityStatus *pStatus;
- FListStatus.Lock();
- ItsFacilityManager->FLists.Lock();
- try
- {
- FListStatus.RemoveAll();
- ItsFacilityManager->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())
- {
- TItsFacility *pFacility = new TItsFacility();
- pFacility->FCLT_ID = pADO->FieldByName("FCLT_ID")->AsString;
- pFacility->RFID_ID = pADO->FieldByName("RFID_ID")->AsString;
- pFacility->FCLT_TYPE = pADO->FieldByName("FCLT_TYPE")->AsString;
- pFacility->FCLT_LCTN = pADO->FieldByName("FCLT_LCTN")->AsString;
- pFacility->RSCE_YN = pADO->FieldByName("RSCE_YN")->AsString;
- pFacility->MDL_NM = pADO->FieldByName("MDL_NM")->AsString;
- pFacility->USE_YEAR = pADO->FieldByName("USE_YEAR")->AsString;
- if (pFacility->USE_YEAR == "") pFacility->USE_YEAR = "0";
- pFacility->INWR_DT = pADO->FieldByName("INWR_DT")->AsString;
- pFacility->OTWR_DT = pADO->FieldByName("OTWR_DT")->AsString;
- pFacility->ISTL_DT = pADO->FieldByName("ISTL_DT")->AsString;
- pFacility->TAKT_DT = pADO->FieldByName("TAKT_DT")->AsString;
- pFacility->TAKT_RESN = pADO->FieldByName("TAKT_RESN")->AsString;
- pFacility->TAKN_DT = pADO->FieldByName("TAKN_DT")->AsString;
- pFacility->ABDN_DT = pADO->FieldByName("ABDN_DT")->AsString;
- pFacility->ADTN_NM = pADO->FieldByName("ADTN_NM")->AsString;
- pFacility->ADTN_DT = pADO->FieldByName("ADTN_DT")->AsString;
- pFacility->CHNG_NM = pADO->FieldByName("CHNG_NM")->AsString;
- pFacility->CHNG_DT = pADO->FieldByName("CHNG_DT")->AsString;
- pFacility->AMT = pADO->FieldByName("AMT")->AsString;
- pFacility->DEL_YN = pADO->FieldByName("DEL_YN")->AsString;
- pFacility->ISTL_CMPY_ID = pADO->FieldByName("ISTL_CMPY_ID")->AsString;
- pFacility->MNFC_CMPY_ID = pADO->FieldByName("MNFC_CMPY_ID")->AsString;
- pFacility->ISTL_LCTN_ADDR = pADO->FieldByName("ISTL_LCTN_ADDR")->AsString;
- pFacility->Sts00 = "-";
- pFacility->GridIndex = -1; // 메인폼에 뿌려지는 그리드 인덱스
- pFacility->StatusGridIndex = -1;
- pFacility->Object = NULL;
- ItsFacilityManager->FLists.Push(pFacility->FCLT_ID, pFacility);
- pFacility->Completed = true;
- String FCLT_TYPE = pFacility->FCLT_TYPE;
- if (FCLT_TYPE == "VDS" && pFacility->FCLT_ID.Pos("VDC"))
- {
- FCLT_TYPE = "CRSSVR";
- }
- pStatus = FListStatus.Find(FCLT_TYPE);
- if (!pStatus)
- {
- pStatus = new TFacilityStatus();
- pStatus->Type = FCLT_TYPE;
- pStatus->Total = 0;
- pStatus->Normal = 0;
- pStatus->Error = 0;
- pStatus->Module = 0;
- pStatus->Collect= 0;
- FListStatus.Push(FCLT_TYPE, pStatus);
- }
- pStatus->Total++; /* 전체 갯수를 증가 시킴 */
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilityMaster", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilityMaster", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- FListStatus.UnLock();
- ItsFacilityManager->FLists.UnLock();
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityWebCam(TADOConnection *ADbConn/*=NULL*/)
- {
- if (!WCamCtlrManager)
- {
- WCamCtlrManager = new TWCamCtlrManager();
- }
- #ifdef USE_WCAM
- TItsFacility *pFacility;
- WCamCtlrManager->LoadFromDb();
- FOR_STL(TWCamCtlr*, pObj, WCamCtlrManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
- if (!pFacility) continue;
- pFacility->Object = pObj;
- }
- #endif
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityCrsCam(TADOConnection *ADbConn/*=NULL*/)
- {
- if (!CCamCtlrManager)
- {
- CCamCtlrManager = new TCCamCtlrManager();
- }
- #ifdef USE_CCAM
- TItsFacility *pFacility;
- CCamCtlrManager->LoadFromDb();
- FOR_STL(TCCamCtlr*, pObj, CCamCtlrManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
- if (!pFacility) continue;
- pFacility->Object = pObj;
- pFacility->FCLT_KIND = pObj->TYPE_CD;
- }
- #endif
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityCctv(TADOConnection *ADbConn/*=NULL*/)
- {
- if (!CctvCtlrManager)
- {
- CctvCtlrManager = new TCctvCtlrManager();
- }
- #ifdef USE_CCTV
- CctvCtlrManager->LoadFromDb();
- FOR_STL(TCctvCtlr*, pObj, CctvCtlrManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- TItsFacility *pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
- if (pFacility) {
- pFacility->Object = pObj;
- pFacility->FCLT_KIND = pObj->TYPE_CD;
- }
- }
- #endif
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityIncCctv(TADOConnection *ADbConn/*=NULL*/)
- {
- if (!IncCctvCtlrManager)
- {
- IncCctvCtlrManager = new TIncCctvCtlrManager();
- }
- #ifdef USE_INCCCTV
- TItsFacility *pFacility;
- IncCctvCtlrManager->LoadFromDb();
- FOR_STL(TIncCctvCtlr*, pObj, IncCctvCtlrManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
- if (!pFacility) continue;
- pFacility->Object = pObj;
- pFacility->FCLT_KIND = pObj->TYPE_CD;
- }
- #endif
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityVms(TADOConnection *ADbConn/*=NULL*/)
- {
- if (!VmsCtlrManager)
- {
- VmsCtlrManager = new TVmsCtlrManager();
- }
- #if 0
- String msg = ItsFacilityManager->FLists.Size();
- String data = "";
- FOR_STL(TItsFacility*, pTemp, ItsFacilityManager->FLists) {
- data += (pTemp->FCLT_ID + ", ");
- }
- DBERRORMSG("TItsFacilityManager::LoadFacilityRse", "ClassName()", msg, data);
- #endif
- #ifdef USE_VMS
- TItsFacility *pFacility;
- VmsCtlrManager->LoadVmsSize();
- VmsCtlrManager->LoadFromDb();
- VmsCtlrManager->LoadVmsFormUsage();
- VmsCtlrManager->LoadIfscRltn();
- FOR_STL(TVmsCtlr*, pObj, VmsCtlrManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
- if (!pFacility) continue;
- pFacility->Object = pObj;
- pFacility->FCLT_KIND = pObj->TYPE_CD;
- }
- #if 0
- FOR_STL(TItsFacility*, pFacility, ItsFacilityManager->FLists) {
- if (pFacility->FCLT_TYPE != "VMS") continue;
- FOR_STL(TVmsCtlr*, pObj, VmsCtlrManager->FLists) {
- if (pObj->VMS_CTLR_ID == pFacility->FCLT_ID) {
- pFacility->Object = pObj;
- pFacility->FCLT_KIND = pObj->TYPE_CD;
- break;
- }
- }
- }
- #endif
- #endif
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityVds(TADOConnection *ADbConn/*=NULL*/)
- {
- if (!VdsCtlrManager)
- {
- VdsCtlrManager = new TVdsCtlrManager();
- }
- #ifdef USE_VDS
- TItsFacility *pFacility;
- VdsCtlrManager->LoadFromDb();
- VdsCtlrManager->LoadFromDtctDb();
- FOR_STL(TVdsCtlr*, pObj, VdsCtlrManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
- if (!pFacility) continue;
- pFacility->Object = pObj;
- pFacility->FCLT_KIND = pObj->TYPE_CD;
- }
- #endif
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityDsrc(TADOConnection *ADbConn/*=NULL*/)
- {
- if (!ItsDsrcManager)
- {
- ItsDsrcManager = new TItsDsrcManager();
- }
- #ifdef USE_DSRC
- TItsFacility *pFacility;
- ItsDsrcManager->LoadFromDb();
- ItsFacilityManager->FLists.Lock();
- FOR_STL(TItsDsrc*, pObj, ItsDsrcManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
- if (!pFacility) continue;
- pFacility->Object = pObj;
- pFacility->FCLT_KIND = pObj->TYPE_CD;
- }
- ItsFacilityManager->FLists.UnLock();
- #endif
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityRse(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- #ifndef USE_RSE
- return true;
- #endif
- sQry = "SELECT RSEID, \r\n"
- " INSTDT, \r\n"
- " CITYCD, \r\n"
- " REGIONCD, \r\n"
- " AREACD, \r\n"
- " RSEIP, \r\n"
- " (COORDX/10000000) COORDX, \r\n"
- " (COORDY/10000000) COORDY, \r\n"
- " RADIUS1, \r\n"
- " RADIUS2, \r\n"
- " COMPCD, \r\n"
- " LOCATION, \r\n"
- " RSECONFIGID, \r\n"
- " OBEPARAMID, \r\n"
- " PORT, \r\n"
- " BRIDGE, \r\n"
- " COMYN \r\n"
- " FROM RSEMST \r\n";
- //" ORDER BY RSEID \r\n";
- try
- {
- FRseLists.Lock();
- //FRseLists.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())
- {
- TItsRse *pObj = new TItsRse();
- pObj->RSEID = pADO->FieldByName("RSEID")->AsString;
- //pObj->INSTDT = pADO->FieldByName("INSTDT")->AsString;
- pObj->CITYCD = pADO->FieldByName("CITYCD")->AsString;
- pObj->REGIONCD = pADO->FieldByName("REGIONCD")->AsString;
- pObj->AREACD = pADO->FieldByName("AREACD")->AsString;
- pObj->RSEIP = pADO->FieldByName("RSEIP")->AsString;
- pObj->COORDX = pADO->FieldByName("COORDX")->AsString;
- pObj->COORDY = pADO->FieldByName("COORDY")->AsString;
- pObj->RADIUS1 = pADO->FieldByName("RADIUS1")->AsString;
- pObj->RADIUS2 = pADO->FieldByName("RADIUS2")->AsString;
- //pObj->COMPCD = pADO->FieldByName("COMPCD")->AsString;
- pObj->LOCATION = pADO->FieldByName("LOCATION")->AsString;
- //pObj->RSECONFIGID = pADO->FieldByName("RSECONFIGID")->AsString;
- //pObj->OBEPARAMID = pADO->FieldByName("OBEPARAMID")->AsString;
- //pObj->PORT = pADO->FieldByName("PORT")->AsString;
- //pObj->BRIDGE = pADO->FieldByName("BRIDGE")->AsString;
- pObj->COMYN = pADO->FieldByName("COMYN")->AsString;
- FRseLists.Push(pObj->RSEID, pObj);
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilityRse", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilityRse", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- FRseLists.UnLock();
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityAvi(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- #ifndef USE_AVI
- return true;
- #endif
- sQry = "SELECT AVI_CTLR_MNGM_NMBR, \r\n"
- " AVI_ID, \r\n"
- " LINK_ID, \r\n"
- " AVI_LCTN_NM, \r\n"
- " AVI_VALD_YN, \r\n"
- " AVI_CTLR_IP, \r\n"
- " AVI_CTLR_CMNC_PORT, \r\n"
- " AVI_MAIN_CTLR_YN, \r\n"
- " AVI_MNGM_LANE_NUM, \r\n"
- " AVI_CMRA_NUM, \r\n"
- " AVI_DTCT_NUM, \r\n"
- " AVI_DTCT_NM, \r\n"
- " AVI_CLCT_CYCL, \r\n"
- " AVI_LAMP_AUTO_YN, \r\n"
- " AVI_LAMP_ON_HMS, \r\n"
- " AVI_LAMP_OFF_HMS, \r\n"
- " AVI_LAMP_ON_YN, \r\n"
- " X_CRDN, \r\n"
- " Y_CRDN, \r\n"
- " RMRK, \r\n"
- " DEL_YN \r\n"
- " FROM TB_AVI_CTLR \r\n";
- //" ORDER BY AVI_CTLR_MNGM_NMBR \r\n";
- try
- {
- FAviLists.Lock();
- //FAviLists.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())
- {
- TItsAvi *pObj = new TItsAvi();
- pObj->AVI_CTLR_MNGM_NMBR= pADO->FieldByName("AVI_CTLR_MNGM_NMBR")->AsString;
- pObj->AVI_ID = pADO->FieldByName("AVI_ID")->AsString;
- pObj->LINK_ID = pADO->FieldByName("LINK_ID")->AsString;
- pObj->AVI_LCTN_NM = pADO->FieldByName("AVI_LCTN_NM")->AsString;
- pObj->AVI_VALD_YN = pADO->FieldByName("AVI_VALD_YN")->AsString;
- pObj->AVI_CTLR_IP = pADO->FieldByName("AVI_CTLR_IP")->AsString;
- pObj->AVI_CTLR_CMNC_PORT= pADO->FieldByName("AVI_CTLR_CMNC_PORT")->AsString;
- pObj->AVI_MAIN_CTLR_YN = pADO->FieldByName("AVI_MAIN_CTLR_YN")->AsString;
- pObj->AVI_MNGM_LANE_NUM = pADO->FieldByName("AVI_MNGM_LANE_NUM")->AsString;
- pObj->AVI_CMRA_NUM = pADO->FieldByName("AVI_CMRA_NUM")->AsString;
- pObj->AVI_DTCT_NUM = pADO->FieldByName("AVI_DTCT_NUM")->AsString;
- pObj->AVI_DTCT_NM = pADO->FieldByName("AVI_DTCT_NM")->AsString;
- pObj->AVI_CLCT_CYCL = pADO->FieldByName("AVI_CLCT_CYCL")->AsString;
- pObj->AVI_LAMP_AUTO_YN = pADO->FieldByName("AVI_LAMP_AUTO_YN")->AsString;
- pObj->AVI_LAMP_ON_HMS = pADO->FieldByName("AVI_LAMP_ON_HMS")->AsString;
- pObj->AVI_LAMP_OFF_HMS = pADO->FieldByName("AVI_LAMP_OFF_HMS")->AsString;
- pObj->AVI_LAMP_ON_YN = pADO->FieldByName("AVI_LAMP_ON_YN")->AsString;
- pObj->X_CRDN = pADO->FieldByName("X_CRDN")->AsString;
- pObj->Y_CRDN = pADO->FieldByName("Y_CRDN")->AsString;
- pObj->RMRK = pADO->FieldByName("RMRK")->AsString;
- pObj->DEL_YN = pADO->FieldByName("DEL_YN")->AsString;
- //FAviLists.Push(pObj->AVI_CTLR_MNGM_NMBR, pObj);
- FAviLists.Push(pObj->AVI_ID, pObj);
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilityAvi", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilityAvi", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- FAviLists.UnLock();
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityBit(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- #ifndef USE_BIT
- return true;
- #endif
- #if 0
- sQry = "SELECT A.BIT_ID, \r\n"
- " A.BIT_TYPE, \r\n"
- " A.FAN_MIN_TEMPERATURE, \r\n"
- " A.FAN_MAX_TEMPERATURE, \r\n"
- " A.HEATER_MIN_TEMPERATURE, \r\n"
- " A.HEATER_MAX_TEMPERATURE, \r\n"
- " A.INSTALL_STOP_ID, \r\n"
- " B.STOP_ID, \r\n"
- " B.SERVICE_ID, \r\n"
- " B.STOP_TYPE, \r\n"
- " B.STOP_NAME, \r\n"
- " B.STOP_SHORTNAME, \r\n"
- " B.STOP_EXPLAIN, \r\n"
- " B.LAT AS COORDY, \r\n"
- " B.LNG AS COORDX, \r\n"
- " B.LINK_ID, \r\n"
- " B.USE_FLAG \r\n"
- " FROM BIT A, BUSSTOP B \r\n"
- " WHERE 1=1 \r\n"
- " AND A.INSTALL_STOP_ID = B.STOP_ID \r\n"
- " AND B.USE_FLAG = '1' \r\n";
- #else
- sQry = "SELECT * FROM VW_BIT \r\n";
- #endif
- try
- {
- FBitLists.Lock();
- //FBitLists.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())
- {
- TItsBit *pObj = new TItsBit();
- pObj->FCLT_ID = pADO->FieldByName("FCLT_ID")->AsString;
- pObj->FCLT_LCTN = pADO->FieldByName("FCLT_LCTN")->AsString;
- pObj->BIT_ID = pADO->FieldByName("BIT_ID")->AsString;
- pObj->X_CRDN = pADO->FieldByName("X_CRDN")->AsString;
- pObj->Y_CRDN = pADO->FieldByName("Y_CRDN")->AsString;
- pObj->STOP_ID = pADO->FieldByName("STOP_ID")->AsString;
- #if 0
- pObj->BIT_TYPE = pADO->FieldByName("BIT_TYPE")->AsString;
- pObj->FAN_MIN_TEMPERATURE = pADO->FieldByName("FAN_MIN_TEMPERATURE")->AsInteger;
- pObj->FAN_MAX_TEMPERATURE = pADO->FieldByName("FAN_MAX_TEMPERATURE")->AsInteger;
- pObj->HEATER_MIN_TEMPERATURE = pADO->FieldByName("HEATER_MIN_TEMPERATURE")->AsInteger;
- pObj->HEATER_MAX_TEMPERATURE = pADO->FieldByName("HEATER_MAX_TEMPERATURE")->AsInteger;
- pObj->INSTALL_STOP_ID = pADO->FieldByName("INSTALL_STOP_ID")->AsString;
- pObj->SERVICE_ID = pADO->FieldByName("SERVICE_ID")->AsString;
- pObj->STOP_TYPE = pADO->FieldByName("STOP_TYPE")->AsString;
- pObj->STOP_NAME = pADO->FieldByName("STOP_NAME")->AsString;
- pObj->STOP_SHORTNAME = pADO->FieldByName("STOP_SHORTNAME")->AsString;
- #endif
- pObj->STOP_EXPLAIN = pADO->FieldByName("REMARK")->AsString;
- pObj->LINK_ID = pADO->FieldByName("LINK_ID")->AsString;
- pObj->DEL_YN = "N";
- FBitLists.Push(pObj->FCLT_ID, pObj);
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilityBit", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilityBit", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- FBitLists.UnLock();
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilitySig(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- #ifndef USE_SIG
- return true;
- #endif
- sQry = "SELECT * FROM VW_SIG_CTLR \r\n";
- try
- {
- FSigLists.Lock();
- //FSigLists.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())
- {
- TItsSig *pObj = new TItsSig();
- pObj->FCLT_ID = pADO->FieldByName("FCLT_ID")->AsString;
- pObj->FCLT_LCTN = pADO->FieldByName("FCLT_LCTN")->AsString;
- pObj->SIG_ID = pADO->FieldByName("FACIL_ID")->AsString;
- pObj->X_CRDN = pADO->FieldByName("X_CRDN")->AsString;
- pObj->Y_CRDN = pADO->FieldByName("Y_CRDN")->AsString;
- pObj->MDL_NM = pADO->FieldByName("MDL_NM")->AsString;
- pObj->DEL_YN = "N";
- FSigLists.Push(pObj->FCLT_ID, pObj);
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilitySig", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilitySig", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- FSigLists.UnLock();
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilitySigDet(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- #ifndef USE_SIGDET
- return true;
- #endif
- sQry = "SELECT * FROM VW_SIG_LVDS \r\n";
- try
- {
- FSigDetLists.Lock();
- //FSigDetLists.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())
- {
- TItsSigDet *pObj = new TItsSigDet();
- pObj->FCLT_ID = pADO->FieldByName("FCLT_ID")->AsString;
- pObj->FCLT_LCTN = pADO->FieldByName("FCLT_LCTN")->AsString;
- pObj->SDET_ID = pADO->FieldByName("FACIL_ID")->AsString;
- pObj->X_CRDN = pADO->FieldByName("X_CRDN")->AsString;
- pObj->Y_CRDN = pADO->FieldByName("Y_CRDN")->AsString;
- pObj->MDL_NM = pADO->FieldByName("MDL_NM")->AsString;
- pObj->SIG_ID = pADO->FieldByName("ASSETS_CODE")->AsString;
- pObj->DEL_YN = "N";
- FSigDetLists.Push(pObj->FCLT_ID, pObj);
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilitySigDet", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilitySigDet", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- FSigDetLists.UnLock();
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityPvms(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- #ifndef USE_PVMS
- return true;
- #endif
- sQry = "SELECT * FROM VW_PIS_VMS \r\n";
- try
- {
- FPisLists.Lock();
- //FPisLists.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())
- {
- TItsPis *pObj = new TItsPis();
- pObj->FCLT_ID = pADO->FieldByName("FCLT_ID")->AsString;
- pObj->FCLT_LCTN = pADO->FieldByName("FCLT_LCTN")->AsString;
- pObj->PIS_ID = pADO->FieldByName("FACIL_ID")->AsString;
- pObj->X_CRDN = pADO->FieldByName("X_CRDN")->AsString;
- pObj->Y_CRDN = pADO->FieldByName("Y_CRDN")->AsString;
- pObj->DEL_YN = "N";
- FPisLists.Push(pObj->FCLT_ID, pObj);
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilityPvms", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilityPvms", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- FPisLists.UnLock();
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityPvds(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- #ifndef USE_PVDS
- return true;
- #endif
- sQry = "SELECT * FROM VW_PIS_CONT \r\n";
- try
- {
- FPcsLists.Lock();
- //FPcsLists.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())
- {
- TItsPcs *pObj = new TItsPcs();
- pObj->FCLT_ID = pADO->FieldByName("FCLT_ID")->AsString;
- pObj->FCLT_LCTN = pADO->FieldByName("FCLT_LCTN")->AsString;
- pObj->PCS_ID = pADO->FieldByName("FACIL_ID")->AsString;
- pObj->X_CRDN = pADO->FieldByName("X_CRDN")->AsString;
- pObj->Y_CRDN = pADO->FieldByName("Y_CRDN")->AsString;
- pObj->DEL_YN = "N";
- FPcsLists.Push(pObj->FCLT_ID, pObj);
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilityPvds", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORMSG("TItsFacilityManager::LoadFacilityPvds", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- FPisLists.UnLock();
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityPark(TADOConnection *ADbConn/*=NULL*/)
- {
- if (!PrltCtlrManager)
- {
- PrltCtlrManager = new TPrltCtlrManager();
- }
- if (!PrkPlceManager)
- {
- PrkPlceManager = new TPrkPlceManager();
- }
- TItsFacility *pFacility;
- TFacilityStatus *pStatus = FListStatus.Find("PARK");
- if (pStatus)
- {
- pStatus->Total = 0;
- pStatus->Normal = 0;
- pStatus->Error = 0;
- pStatus->Module = 0;
- pStatus->Collect= 0;
- }
- #ifdef USE_PARK2
- PrltCtlrManager->LoadFromDb();
- FOR_STL(TPrltCtlr*, pObj, PrltCtlrManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->PRLT_CTLR_ID);
- if (!pFacility) continue;
- pFacility->Object = pObj;
- pFacility->FCLT_KIND = pObj->REAL_DATA_YN; //실시간주차정보제공여부
- //주차장중에 실시간정보를 수집하는 것만 상태정보 범례를 표출하자
- if (pObj->REAL_DATA_YN == "Y")
- {
- if (pStatus)
- {
- pStatus->Total++; /* 전체 갯수를 증가 시킴 */
- }
- }
- }
- #endif
- #ifdef USE_PARK
- PrkPlceManager->LoadFromDb();
- FOR_STL(TPrkPlce*, pObj, PrkPlceManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
- if (!pFacility) continue;
- pFacility->Object = pObj;
- pFacility->FCLT_KIND = 'Y'; //실시간주차정보제공여부
- //주차장중에 실시간정보를 수집하는 것만 상태정보 범례를 표출하자
- if (pStatus)
- {
- pStatus->Total++; /* 전체 갯수를 증가 시킴 */
- }
- }
- #endif
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityCross(TADOConnection *ADbConn/*=NULL*/)
- {
- if (!CrossManager)
- {
- CrossManager = new TCrossManager();
- }
- #ifdef USE_CROSS
- TItsFacility *pFacility;
- CrossManager->LoadFromDb();
- FOR_STL(TCross*, pObj, CrossManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_NMBR);
- if (!pFacility) continue;
- pFacility->Object = pObj;
- pFacility->FCLT_KIND = pObj->TYPE_CD;
- }
- FOR_STL(TCrossCam*, pObj, CrossManager->FCamLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_NMBR);
- if (!pFacility) continue;
- pFacility->Object = pObj;
- pFacility->FCLT_KIND = pObj->TYPE_CD;
- }
- #endif
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilitySgnlCtlr(TADOConnection *ADbConn/*=NULL*/)
- {
- if (!SgnlCtlrManager)
- {
- SgnlCtlrManager = new TSgnlCtlrManager();
- }
- #ifdef USE_SGNL_CTLR
- TItsFacility *pFacility;
- SgnlCtlrManager->LoadFromDb();
- #if 0
- FOR_STL(TCross*, pObj, CrossManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_NMBR);
- if (!pFacility) continue;
- pFacility->Object = pObj;
- pFacility->FCLT_KIND = pObj->TYPE_CD;
- }
- FOR_STL(TCrossCam*, pObj, CrossManager->FCamLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_NMBR);
- if (!pFacility) continue;
- pFacility->Object = pObj;
- pFacility->FCLT_KIND = pObj->TYPE_CD;
- }
- #endif
- #endif
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadFacilityStatusFromDb(TADOConnection *ADbConn/*=NULL*/)
- {
- bool bResult = true;
- String sQry;
- TADOQuery *pADO = NULL;
- sQry = "SELECT '' AS FAC_TYPE, '' AS FAC_ID, \r\n"
- " '' AS STTS_CD, '' AS DOOR_STTS_CD, \r\n"
- " DECODE('', 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
- " DECODE('', 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
- " NVL(NULL, 0) AS CBOX_TMPR, \r\n"
- " '' AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM DUAL \r\n"
- " WHERE 1 = 0 \r\n"
- #ifdef USE_CCTV
- #if 0
- "UNION \r\n"
- "SELECT 'CCTV' AS FAC_TYPE, B.CCTV_CTLR_ID AS FAC_ID, \r\n"
- " CONN_STTS_CD AS STTS_CD, 'CDS0' AS DOOR_STTS_CD, \r\n"
- " DECODE(CONN_STTS_CD, 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
- " '0' AS DOOR, \r\n"
- " 0 AS CBOX_TMPR, \r\n"
- " A.UPDT_DT AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM TB_CCTV_CTLR_STTS A, TB_CCTV_CTLR B \r\n"
- " WHERE A.CCTV_CTLR_NMBR = B.CCTV_CTLR_NMBR \r\n"
- " AND A.UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
- #else
- "UNION \r\n"
- "SELECT 'CCTV' AS FAC_TYPE, B.CCTV_CTLR_ID AS FAC_ID, \r\n"
- " CMNC_STTS_CD AS STTS_CD, CBOX_DOOR_STTS_CD AS DOOR_STTS_CD, \r\n"
- " DECODE(CMNC_STTS_CD, 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
- " DECODE(CBOX_DOOR_STTS_CD, 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
- " NVL(A.CBOX_TMPR, 0) AS CBOX_TMPR, \r\n"
- " A.UPDT_DT AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM TB_CCTV_STTS A, TB_CCTV_CTLR B \r\n"
- " WHERE A.CCTV_MNGM_NMBR = B.CCTV_MNGM_NMBR \r\n"
- " AND UPDT_DT >= TO_CHAR(SYSDATE-10/1440, 'YYYYMMDDHH24MISS') \r\n"
- #endif
- #endif
- #ifdef USE_INCCCTV
- "UNION \r\n"
- "SELECT 'ICAM' AS FAC_TYPE, B.CCTV_CTLR_ID AS FAC_ID, \r\n"
- " CMNC_STTS_CD AS STTS_CD, CBOX_DOOR_STTS_CD AS DOOR_STTS_CD, \r\n"
- " DECODE(CMNC_STTS_CD, 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
- " DECODE(CBOX_DOOR_STTS_CD, 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
- " NVL(A.CBOX_TMPR, 0) AS CBOX_TMPR, \r\n"
- " A.UPDT_DT AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM TB_CCTV_STTS A, VW_INC_CCTV_CTLR B \r\n"
- " WHERE A.CCTV_MNGM_NMBR = B.CCTV_MNGM_NMBR \r\n"
- " AND UPDT_DT >= TO_CHAR(SYSDATE-2/1440, 'YYYYMMDDHH24MISS') \r\n"
- #endif
- #ifdef USE_WCAM
- "UNION \r\n"
- "SELECT B.WCAM_TYPE_CD AS FAC_TYPE, B.WCAM_CTLR_ID AS FAC_ID, \r\n"
- " CMNC_STTS_CD AS STTS_CD, 'CDS0' AS DOOR_STTS_CD, \r\n"
- " DECODE(CMNC_STTS_CD, 'CMS0', '0', 'CMS1', '1', '0') AS COMM, \r\n"
- " '0' AS DOOR, 0 AS CBOX_TMPR, \r\n"
- " A.UPDT_DT AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM TB_WCAM_CTLR_STTS A, TB_WCAM_CTLR B \r\n"
- " WHERE A.WCAM_CTLR_NMBR = B.WCAM_CTLR_NMBR \r\n"
- " AND A.UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
- #endif
- #ifdef USE_CCAM
- "UNION \r\n"
- "SELECT 'CCAM' AS FAC_TYPE, B.CCAM_CTLR_ID AS FAC_ID, \r\n"
- " CMNC_STTS_CD AS STTS_CD, CBOX_DOOR_STTS_CD AS DOOR_STTS_CD, \r\n"
- " DECODE(CMNC_STTS_CD, 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
- " DECODE(CBOX_DOOR_STTS_CD, 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
- " NVL(A.CBOX_TMPR, 0) AS CBOX_TMPR, \r\n"
- " A.UPDT_DT AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM TB_CCAM_CTLR_STTS A, TB_CCAM_CTLR B \r\n"
- " WHERE A.UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
- " AND A.CCAM_CTLR_NMBR = B.CCAM_CTLR_NMBR \r\n"
- #endif
- #ifdef USE_VMS
- #if 1
- "UNION \r\n"
- "SELECT 'VMS' AS FAC_TYPE, B.VMS_CTLR_ID AS FAC_ID, \r\n"
- " CMNC_STTS_CD AS STTS_CD, CBOX_DOOR_STTS_CD AS DOOR_STTS_CD, \r\n"
- " DECODE(CMNC_STTS_CD, 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
- " DECODE(CBOX_DOOR_STTS_CD, 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
- " NVL(A.CBOX_TMPR, 0) AS CBOX_TMPR, \r\n"
- " A.UPDT_DT AS STS00, \r\n"
- " DECODE(A.PWER_STTS_CD, 'MOS0', '0', '1') AS STS01, \r\n"
- " DECODE(A.MODL_STTS_CD, 'MOS0', '0', '1') AS STS02, \r\n"
- " '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM TB_VMS_CTLR_STTS A, TB_VMS_CTLR B \r\n"
- " WHERE A.VMS_CTLR_NMBR = B.VMS_CTLR_NMBR \r\n"
- " AND A.UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
- #else
- "UNION \r\n"
- "SELECT 'VMS' AS FAC_TYPE, B.VMS_CTLR_ID AS FAC_ID, \r\n"
- " CONN_STTS_CD AS STTS_CD, CBOXDOOR_OPEN_STTS_CD AS DOOR_STTS_CD, \r\n"
- " DECODE(CONN_STTS_CD, 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
- " DECODE(CBOXDOOR_OPEN_STTS_CD, 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
- " NVL(A.CBOX_TMPR, 0) AS CBOX_TMPR, \r\n"
- " A.RGST_DT AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM TB_VMS_STTS_PRST A, TB_VMS_CTLR B \r\n"
- " WHERE A.VMS_CTLR_NMBR = B.VMS_CTLR_NMBR \r\n"
- " AND A.RGST_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
- #endif
- #endif
- #ifdef USE_VDS
- "UNION \r\n"
- "SELECT 'VDS' AS FAC_TYPE, B.VDS_CTLR_ID AS FAC_ID, \r\n"
- " CMNC_STTS_CD AS STTS_CD, CBOX_DOOR_STTS_CD AS DOOR_STTS_CD, \r\n"
- " DECODE(CMNC_STTS_CD, 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
- " DECODE(CBOX_DOOR_STTS_CD, 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
- " NVL(A.CBOX_TMPR, 0) AS CBOX_TMPR, \r\n"
- " A.UPDT_DT AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM TB_VDS_CTLR_STTS A, TB_VDS_CTLR B \r\n"
- " WHERE A.UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
- " AND A.VDS_CTLR_NMBR = B.VDS_CTLR_NMBR \r\n"
- #endif
- #ifdef USE_AVI
- "UNION \r\n"
- "SELECT 'AVI' AS FAC_TYPE, B.AVI_ID AS FAC_ID, \r\n"
- " CONN_STTS_CD AS STTS_CD, CBOX_DOOR_STTS_CD AS DOOR_STTS_CD, \r\n"
- " DECODE(CONN_STTS_CD, 'CMS0', '0', 'CMS1', '1', '2') AS COMM, \r\n"
- " DECODE(CBOX_DOOR_STTS_CD, 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
- " NVL(A.CBOX_TMPR, 0) AS CBOX_TMPR, \r\n"
- " A.UPDT_DT AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM TB_AVI_CTLR_STTS A, TB_AVI_CTLR B \r\n"
- " WHERE A.UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
- " AND A.AVI_CTLR_MNGM_NMBR = B.AVI_CTLR_MNGM_NMBR \r\n"
- #endif
- #ifdef USE_DSRC
- "UNION \r\n"
- "SELECT 'DSRC' AS FAC_TYPE, B.RSE_ID AS FAC_ID, \r\n"
- " DECODE(CMNC_STTS, '0', 'CMS0', 'CMS1') AS STTS_CD, \r\n"
- " DECODE(CNTL_DEVC_STTS, '0', 'CDS0', '4', 'CDS0', 'CDS1') AS DOOR_STTS_CD, \r\n"
- " DECODE(CMNC_STTS, '0', '0', '1') AS COMM, \r\n"
- " '0' AS DOOR, 0 AS CBOX_TMPR, \r\n"
- " A.CLCT_DT AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM TB_RSE_STTS_PNST A, TB_RSE_MSTR B \r\n"
- " WHERE A.CLCT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
- " AND A.ID = B.ID \r\n"
- #endif
- #ifdef USE_RSE
- "UNION \r\n"
- "SELECT 'RSE' AS FAC_TYPE, B.RSEID AS FAC_ID, \r\n"
- " 'CMS0' AS STTS_CD, 'CDS0' AS DOOR_STTS_CD, \r\n"
- " '0' AS COMM, '0' AS DOOR, 0 AS CBOX_TMPR, \r\n"
- " TO_CHAR(A.COLLDT, 'YYYYMMDDHH24MISS') AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM RSEOPSTATE A, RSEMST B \r\n"
- " WHERE B.RSEID = A.RSEID \r\n"
- " AND A.COLLDT > SYSDATE - 30/1440 \r\n"
- #endif
- #ifdef USE_BIT
- "UNION \r\n"
- "SELECT 'BIT' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, \r\n"
- " CONN_STATE AS STTS_CD, 'CDS0' AS DOOR_STTS_CD, \r\n"
- " DECODE(CONN_STATE, 'CMS0', '0', '1') AS COMM, \r\n"
- " '0' AS DOOR, 0 AS CBOX_TMPR, \r\n"
- " UPDATE_DT AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM VW_BIT_STATUS \r\n"
- #endif
- #ifdef USE_SIG
- "UNION \r\n"
- "SELECT 'SIG' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, \r\n"
- " CONN_STATE AS STTS_CD, DOOR_STATE AS DOOR_STTS_CD, \r\n"
- " DECODE(CONN_STATE, 'CMS0', '0', '1') AS COMM, \r\n"
- " DECODE(DOOR_STATE, 'CDS0', '0', 'CDS1', '1', '0') AS DOOR, \r\n"
- " 0 AS CBOX_TMPR, \r\n"
- " UPDATE_DT AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM VW_SIG_CTLR_STATUS \r\n"
- #endif
- #ifdef USE_SIGDET
- "UNION \r\n"
- "SELECT 'LVD' AS FAC_TYPE, FCLT_ID AS FAC_ID, \r\n"
- " DECODE(DISCONN_STATE, 'STS0', 'CMS0', 'CMS1') AS STTS_CD, \r\n"
- " 'CDS0' AS DOOR_STTS_CD, \r\n"
- " DECODE(DISCONN_STATE, 'STS0', '0', '1') AS COMM, \r\n"
- " '0' AS DOOR, 0 AS CBOX_TMPR \r\n"
- " FROM VW_SIG_LVDS_STATUS \r\n"
- #endif
- #ifdef USE_PVMS
- "UNION \r\n"
- "SELECT 'PVMS' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, \r\n"
- " DECODE(COMM_STATE, 0, 'CMS0', 'CMS1') AS STTS_CD, \r\n"
- " DECODE(DOOR_STATE, 0, 'CDS0', 'CDS1') AS DOOR_STTS_CD, \r\n"
- " DECODE(COMM_STATE, 0, '0', '1') AS COMM, '0' AS DOOR, \r\n"
- " 0 AS CBOX_TMPR, \r\n"
- " UPDATE_DT AS STS00, \r\n"
- " '0' AS STS01, \r\n"
- " TO_CHAR(POWER_STATE) AS STS02, \r\n"
- " TO_CHAR(MODULE_STATE) AS STS03, \r\n"
- " TO_CHAR(FAN_STATE) AS STS04, \r\n"
- " TO_CHAR(HEATER_STATE) AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM VW_PIS_VMS_STATUS \r\n"
- #endif
- #ifdef USE_PVDS
- "UNION \r\n"
- "SELECT 'PVMS' AS FAC_TYPE, TO_CHAR(FCLT_ID) AS FAC_ID, \r\n"
- " DECODE(COMM_STATE, '0', 'CMS0', 'CMS1') AS STTS_CD, \r\n"
- " 'CDS0' AS DOOR_STTS_CD, \r\n"
- " DECODE(COMM_STATE, '0', '0', '1') AS COMM, '0' AS DOOR, \r\n"
- " 0 AS CBOX_TMPR, \r\n"
- " UPDATE_DT AS STS00, \r\n"
- " TO_CHAR(CONT_STATE) AS STS01, \r\n"
- " '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM VW_PIS_CONT_STATUS \r\n"
- #endif
- #ifdef USE_PARK2
- "UNION \r\n"
- "SELECT 'PARK' AS FAC_TYPE, B.PRLT_CTLR_ID AS FAC_ID, \r\n"
- " DECODE(CMNC_STTS_CD, 'CMS0', 'CMS0', 'CMS1') AS STTS_CD, \r\n"
- " 'CDS0' AS DOOR_STTS_CD, \r\n"
- " DECODE(CMNC_STTS_CD, 'CMS0', '0', 'CMS1', '1', '0') AS COMM, \r\n"
- " '0' AS DOOR, \r\n"
- " 0 AS CBOX_TMPR, \r\n"
- " A.UPDT_DT AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM TB_PRLT_CTLR_STTS A, TB_PRLT_CTLR B \r\n"
- " WHERE A.UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
- " AND A.PRLT_CTLR_NMBR = B.PRLT_CTLR_NMBR \r\n"
- #endif
- #ifdef USE_PARK
- "UNION \r\n"
- "SELECT 'PARK' AS FAC_TYPE, B.prk_plce_manage_no AS FAC_ID, \r\n"
- " DECODE(CMNC_STTS_CD, 'CMS0', 'CMS0', 'CMS1') AS STTS_CD, \r\n"
- " 'CDS0' AS DOOR_STTS_CD, \r\n"
- " DECODE(CMNC_STTS_CD, 'CMS0', '0', 'CMS1', '1', '0') AS COMM, \r\n"
- " '0' AS DOOR, \r\n"
- " 0 AS CBOX_TMPR, \r\n"
- " A.UPDT_DT AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM TB_PRK_PLCE_STTS A, TB_PRK_PLCE B \r\n"
- " WHERE A.UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n"
- " AND A.prk_plce_nmbr = B.prk_plce_nmbr \r\n"
- #endif
- #ifdef USE_CROSS
- "UNION \r\n"
- "SELECT 'CRSCAM' AS FAC_TYPE, A.CAM_ID AS FAC_ID, \r\n"
- " DECODE(A.STATUS, 1, 'CMS0', 'CMS1') AS STTS_CD, \r\n"
- " 'CDS0' AS DOOR_STTS_CD, \r\n"
- " DECODE(A.STATUS, 1, '0', '1') AS COMM, \r\n"
- " '0' AS DOOR, 0 AS CBOX_TMPR, \r\n"
- " TO_CHAR(A.CAP_DATE, 'YYYYMMDDHH24MISS') AS STS00, \r\n"
- " '0' AS STS01, '0' AS STS02, '0' AS STS03, '0' AS STS04, '0' AS STS05, \r\n"
- " '0' AS STS06, '0' AS STS07, '0' AS STS08, '0' AS STS09, '0' AS STS10 \r\n"
- " FROM COL_CCAM_STATUS A \r\n"
- " WHERE A.CAP_DATE > SYSDATE - 10/1440 \r\n"
- #endif
- ;
- try
- {
- TItsFacility *pFacility = NULL;
- ItsFacilityManager->FLists.Lock();
- FOR_STL(TItsFacility*, pObj, ItsFacilityManager->FLists)
- {
- pObj->FCollCntBase = 0;
- pObj->FCollCntCurr = 0;
- //수집시간내에 조회되는것은 수집오류가 아니므로 초기에 수집오류로 설정
- if (pObj->FCLT_TYPE == "VDS" ||
- pObj->FCLT_TYPE == "AVI" ||
- pObj->FCLT_TYPE == "DSRC")
- {
- pObj->FCollError = true;
- //pObj->FCollError = false;
- }
- else
- {
- pObj->FCollError = false;
- }
- pObj->FComm = str_state_error;
- pObj->FDoor = str_state_normal;
- pObj->FCommStatus = "CMS1";
- pObj->FDoorStatus = "CDS0";
- #if 0
- if (pObj->FCLT_TYPE == "CCTV" ||
- pObj->FCLT_TYPE == "VMS" ||
- pObj->FCLT_TYPE == "VDS" ||
- pObj->FCLT_TYPE == "AVI")
- {
- pObj->FCBoxTmpr = "?";
- }
- else
- {
- pObj->FCBoxTmpr = "-";
- }
- #else
- pObj->FCBoxTmpr = 0;
- #endif
- #ifdef USE_CROSS
- // 교차로교통량 상태정보 정상으로 초기화 한다.(교차로교통량은 교차로위치를 표출하는 것이다.)
- if (pObj->FCLT_TYPE == "CRS") //교차로교통량
- {
- pObj->FComm = str_state_normal;
- pObj->FDoor = str_state_normal;
- pObj->FCommStatus = "CMS0";
- pObj->FDoorStatus = "CDS0";
- }
- #endif
- }
- //상태정보를 읽어오기전에 상태정보 통계데이터를 초기화한다.
- FOR_STL(TFacilityStatus*, pStatus, ItsFacilityManager->FListStatus)
- {
- //pStatus->Total = 0; 전체 수량은 초기화하지 않는다.
- pStatus->Normal = 0;
- pStatus->Error = 0;
- pStatus->Module = 0;
- pStatus->Collect= 0;
- }
- try
- {
- int nORD;
- 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();
- //int nRows = pADO->RecordCount;
- for( ; !pADO->Eof; pADO->Next())
- {
- String sId = pADO->FieldByName("FAC_ID")->AsString;
- pFacility = ItsFacilityManager->FLists.Find(sId);
- if (!pFacility) continue;
- pFacility->FCommStatus = pADO->FieldByName("STTS_CD")->AsString;
- pFacility->FDoorStatus = pADO->FieldByName("DOOR_STTS_CD")->AsString;
- pFacility->FComm = pADO->FieldByName("COMM")->AsString;
- pFacility->FDoor = pADO->FieldByName("DOOR")->AsString;
- pFacility->Sts00 = pADO->FieldByName("STS00")->AsString;
- pFacility->Sts01 = pADO->FieldByName("STS01")->AsString;
- pFacility->Sts02 = pADO->FieldByName("STS02")->AsString;
- pFacility->Sts03 = pADO->FieldByName("STS03")->AsString;
- pFacility->Sts04 = pADO->FieldByName("STS04")->AsString;
- pFacility->Sts05 = pADO->FieldByName("STS05")->AsString;
- pFacility->Sts06 = pADO->FieldByName("STS06")->AsString;
- pFacility->Sts07 = pADO->FieldByName("STS07")->AsString;
- pFacility->Sts08 = pADO->FieldByName("STS08")->AsString;
- pFacility->Sts09 = pADO->FieldByName("STS09")->AsString;
- pFacility->Sts10 = pADO->FieldByName("STS10")->AsString;
- //if (pFacility->FCLT_TYPE == "CCTV" ||
- // pFacility->FCLT_TYPE == "VMS" ||
- // pFacility->FCLT_TYPE == "VDS" ||
- // pFacility->FCLT_TYPE == "AVI")
- //{
- // pFacility->FCBoxTmpr = pADO->FieldByName("CBOX_TMPR")->AsString;
- //}
- pFacility->FCBoxTmpr = pADO->FieldByName("CBOX_TMPR")->AsInteger;
- if (pFacility->FComm == str_state_normal)
- {
- //통신이 정상인데 함체문이 열려있으면 모듈이상으로 처리
- #if 0
- if (pFacility->FDoor == "1")
- pFacility->FComm = str_state_module; //모듈이상(함체문 열림)
- #endif
- }
- }
- //수집데이터를 처리하구 수집오류=false로 설정함
- #ifdef USE_DSRC
- LoadDsrcCollectStatusFromDb(ADbConn);
- #endif
- #ifdef USE_VDS
- LoadVdsCollectStatusFromDb(ADbConn);
- #endif
- #ifdef USE_AVI
- LoadAviCollectStatusFromDb(ADbConn);
- #endif
- #ifdef USE_PARK
- LoadParkSensorStatusFromDb(ADbConn);
- #endif
- #ifdef USE_CROSS
- // 교차로교통량, 교차로교통량 CCTV의 상태정보를 참조하여 교차로교통량 상태정보를 업데이트 한다.
- // 교차로교통량 상태정보는 정상으로 초기화 하였다.
- if (CrossManager != NULL)
- {
- FOR_STL(TCross*, pObj, CrossManager->FLists)
- {
- FOR_STL(TCrossCam*, pCam, pObj->FLists)
- {
- pFacility = ItsFacilityManager->FLists.Find(pCam->CTLR_NMBR);
- if (pFacility && pFacility->FComm != str_state_normal)
- {
- TItsFacility *pTrfCross = ItsFacilityManager->FLists.Find(pObj->CTLR_NMBR);
- if (pTrfCross)
- {
- pTrfCross->FComm = str_state_error;
- }
- break;
- }
- }
- }
- }
- #endif
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORLOG("TItsFacilityManager::LoadFacilityStatusFromDb", String(E.ClassName()), E.Message, sQry);
- return false;
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORLOG("TItsFacilityManager::LoadFacilityStatusFromDb", String(exception.ClassName()), exception.Message, sQry);
- return false;
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- // 상태정보를 최종 체크한다.
- TFacilityStatus *pStatus;
- FOR_STL(TItsFacility*, pTmpObj, ItsFacilityManager->FLists)
- {
- String FCLT_TYPE = pTmpObj->FCLT_TYPE;
- #if 0
- if (FCLT_TYPE == "VDS" && pTmpObj->FCLT_KIND == "C")
- {
- FCLT_TYPE = "CRSSVR";
- }
- #endif
- pStatus = ItsFacilityManager->FListStatus.Find(FCLT_TYPE);
- if (!pStatus) continue;
- if (FCLT_TYPE == "PARK" && pTmpObj->FCLT_KIND == "N")
- {
- //주차장이면서 실시간정보를 제공하지않는경우 통신정상으로 설정
- pTmpObj->FComm = str_state_default;
- continue;
- }
- if (pTmpObj->FComm == str_state_error) pStatus->Error++;
- else if (pTmpObj->FComm == str_state_module) pStatus->Module++;
- else if (pTmpObj->FComm == str_state_sensor) pStatus->Module++;
- if (pTmpObj->FComm != str_state_error)
- {
- //통신이상이 아닌 경우 수집이상인 경우 수집이상 갯수를 증가시킨다.
- if (pTmpObj->FCollError)
- {
- pStatus->Collect++;
- pTmpObj->FComm = str_state_collect;
- }
- }
- }
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- //각각의 제어기에 대한 상태정보를 업데이트 한다.
- TItsFacility *pFacility;
- FOR_STL(TWCamCtlr*, pObj, WCamCtlrManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
- if (pFacility)
- {
- pObj->STATE.Comm = pFacility->FComm != str_state_error ? wcam_normal : wcam_error;
- }
- }
- FOR_STL(TCCamCtlr*, pObj, CCamCtlrManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
- if (pFacility)
- {
- pObj->STATE.Comm = pFacility->FComm != str_state_error ? ccam_normal : ccam_error;
- }
- }
- FOR_STL(TVdsCtlr*, pObj, VdsCtlrManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
- if (pFacility)
- {
- pObj->STATE.Comm = pFacility->FComm != str_state_error ? vds_normal : vds_error;
- }
- }
- FOR_STL(TVmsCtlr*, pObj, VmsCtlrManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
- if (pFacility)
- {
- pObj->STATE.Comm = pFacility->FComm != str_state_error ? vms_comm_normal : vms_comm_error;
- }
- }
- FOR_STL(TPrltCtlr*, pObj, PrltCtlrManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->PRLT_CTLR_ID);
- if (pFacility)
- {
- pObj->STATE.Comm = pFacility->FComm != str_state_error ? park_comm_normal : park_comm_error;
- }
- }
- FOR_STL(TPrkPlce*, pObj, PrkPlceManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
- if (pFacility)
- {
- pObj->STATE.Comm = pFacility->FComm != str_state_error ? park_comm_normal : park_comm_error;
- }
- }
- FOR_STL(TItsDsrc*, pObj, ItsDsrcManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
- if (pFacility)
- {
- pObj->STATE.Comm = pFacility->FComm != str_state_error ? dsrc_normal : dsrc_error;
- }
- }
- ItsFacilityManager->FLists.UnLock();
- }
- return bResult;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadDsrcCollectStatusFromDb(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- #ifndef USE_DSRC
- return true;
- #endif
- sQry = "SELECT DISTINCT B.RSE_ID \r\n"
- " FROM TB_RSE_OBU_CLCT_PNST A, \r\n"
- " TB_RSE_MSTR B \r\n"
- " WHERE A.CLCT_DT > TO_CHAR(SYSDATE-1/24, 'YYYYMMDDHH24MISS') \r\n"
- " AND A.ID = B.ID \r\n";
- try
- {
- TItsFacility *pFacility = NULL;
- try
- {
- int nORD;
- 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 sDsrcId = pADO->FieldByName("RSE_ID")->AsString;
- pFacility = ItsFacilityManager->FLists.Find(sDsrcId);
- if (!pFacility) continue;
- pFacility->FCollError = false;
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORLOG("TItsFacilityManager::LoadDsrcCollectStatusFromDb", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORLOG("TItsFacilityManager::LoadDsrcCollectStatusFromDb", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadVdsCollectStatusFromDb(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- #ifndef USE_VDS
- return true;
- #endif
- sQry = "SELECT DISTINCT C.VDS_CTLR_ID AS VDS_CTLR_ID \r\n"
- " FROM TB_VDS_DTCT_CLCT_PNST A, \r\n"
- " TB_VDS_DTCT B, \r\n"
- " TB_VDS_CTLR C \r\n"
- " WHERE A.CLCT_DT > TO_CHAR(SYSDATE-10/1440, 'YYYYMMDDHH24MISS') \r\n"
- " AND A.VDS_DTCT_NMBR = B.VDS_DTCT_NMBR \r\n"
- " AND B.VDS_CTLR_NMBR = C.VDS_CTLR_NMBR \r\n";
- try
- {
- TItsFacility *pFacility = NULL;
- try
- {
- int nORD;
- 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();
- pADO->First();
- for( ; !pADO->Eof; pADO->Next())
- {
- String sVdsId = pADO->FieldByName("VDS_CTLR_ID")->AsString;
- pFacility = ItsFacilityManager->FLists.Find(sVdsId);
- if (!pFacility) continue;
- pFacility->FCollError = false;
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORLOG("TItsFacilityManager::LoadVdsCollectStatusFromDb", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORLOG("TItsFacilityManager::LoadVdsCollectStatusFromDb", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadAviCollectStatusFromDb(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- #ifndef USE_AVI
- return true;
- #endif
- sQry = "SELECT A.AVI_CTLR_MNGM_NMBR, B.AVI_ID \r\n"
- " FROM TB_AVI_PASS_VHCL_PNST A, \r\n"
- " TB_AVI_CTLR B \r\n"
- " WHERE A.CRTN_DT > TO_CHAR(SYSDATE-1/24, 'YYYYMMDDHH24MISS') \r\n"
- " AND A.AVI_CTLR_MNGM_NMBR = B.AVI_CTLR_MNGM_NMBR \r\n";
- try
- {
- TItsFacility *pFacility = NULL;
- try
- {
- int nORD;
- 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();
- pADO->First();
- for( ; !pADO->Eof; pADO->Next())
- {
- String sAviId = pADO->FieldByName("AVI_ID")->AsString;
- pFacility = ItsFacilityManager->FLists.Find(sAviId);
- if (!pFacility) continue;
- pFacility->FCollError = false;
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORLOG("TItsFacilityManager::LoadAviCollectStatusFromDb", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORLOG("TItsFacilityManager::LoadAviCollectStatusFromDb", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadParkSensorStatusFromDb(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- #ifndef USE_PARK
- return true;
- #endif
- sQry = "SELECT A.PRK_PLCE_NMBR, A.PRK_PLCE_MANAGE_NO, A.CMNC_STTS_CD, DECODE(A.CMNC_STTS_CD, 0, NVL(B.SENSOR_STTS, 0), 0) AS SENSOR_STTS \r\n"
- " FROM (SELECT A.PRK_PLCE_NMBR, A.PRK_PLCE_MANAGE_NO, DECODE(NVL(B.CMNC_STTS_CD, 'CMS1'), 'CMS0', 0, 1) AS CMNC_STTS_CD \r\n"
- " FROM TB_PRK_PLCE A \r\n"
- " LEFT OUTER JOIN TB_PRK_PLCE_STTS B \r\n"
- " ON A.PRK_PLCE_NMBR = B.PRK_PLCE_NMBR \r\n"
- " AND A.DEL_YN = 'N') A \r\n"
- " LEFT OUTER JOIN (SELECT A.PRK_PLCE_NMBR, COUNT(1) AS SENSOR_STTS \r\n"
- " FROM TB_PRK_PLCE_DEV A, TB_PRK_PLCE_FLR_DEV B \r\n"
- " WHERE A.PRK_PLCE_NMBR = B.PRK_PLCE_NMBR \r\n"
- " AND A.DEVICE_ID = B.DEVICE_ID \r\n"
- " AND A.CONNECTED = 0 \r\n"
- " GROUP BY A.PRK_PLCE_NMBR) B \r\n"
- " ON A.PRK_PLCE_NMBR = B.PRK_PLCE_NMBR \r\n";
- try
- {
- TItsFacility *pFacility = NULL;
- try
- {
- int nORD;
- 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();
- pADO->First();
- for( ; !pADO->Eof; pADO->Next())
- {
- String sCtlrId = pADO->FieldByName("PRK_PLCE_MANAGE_NO")->AsString;
- int nSeosor = pADO->FieldByName("SENSOR_STTS")->AsInteger;
- //if (nSeosor > 0) continue;
- pFacility = ItsFacilityManager->FLists.Find(sCtlrId);
- if (!pFacility) continue;
- if (pFacility->FCommStatus == "CMS0") {
- pFacility->FCollError = (nSeosor == 0) ? false : true;
- if (pFacility->FCollError) {
- pFacility->FComm = str_state_sensor;
- }
- pFacility->FCollError = false;
- }
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORLOG("TItsFacilityManager::LoadParkSensorStatusFromDb", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORLOG("TItsFacilityManager::LoadParkSensorStatusFromDb", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadDsrcCollectStatusFromDb_OLD(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- #ifndef USE_DSRC
- return true;
- #endif
- sQry = "SELECT X.ID, X.RSE_ID, X.CLCT_ABNR_BASI, \r\n"
- " Y.STAT_DT, NVL(Y.CLCT_NUM, 0) AS CLCT_NUM \r\n"
- " FROM (SELECT M.ID, M.RSE_ID, M.CLCT_ABNR_BASI \r\n"
- " FROM TB_RSE_MSTR M \r\n"
- " WHERE M.DEL_YN <> 'Y' \r\n"
- " ) X, \r\n"
- " (SELECT P.ID, P.STAT_DT, P.CLCT_NUM \r\n"
- " FROM TB_RSE_OBU_CLCT_HH_PNST P \r\n"
- " WHERE P.STAT_DT >= TO_CHAR(SYSDATE-2/1440, 'YYYYMMDDHH24MISS') \r\n"
- " ) Y \r\n"
- " WHERE X.ID = Y.ID(+) \r\n";
- #if 0
- sQry = "SELECT X.ID, X.RSE_ID, X.CLCT_ABNR_BASI, \r\n"
- " Y.STAT_DT, NVL(Y.CLCT_NUM, 0) AS CLCT_NUM \r\n"
- " FROM (SELECT M.ID, M.RSE_ID, M.CLCT_ABNR_BASI \r\n"
- " FROM TB_RSE_MSTR M \r\n"
- " WHERE M.DEL_YN <> 'Y' \r\n"
- " ) X, \r\n"
- " (SELECT ID, STAT_DT, CLCT_NUM \r\n"
- " FROM TB_RSE_OBU_CLCT_HH_PNST \r\n"
- " WHERE (ID, STAT_DT) IN (SELECT P.ID, MAX(P.STAT_DT) \r\n"
- " FROM TB_RSE_OBU_CLCT_HH_PNST P \r\n"
- " WHERE P.STAT_DT >= TO_CHAR(SYSDATE-2/1440, 'YYYYMMDDHH24MISS') \r\n"
- " GROUP BY P.ID) \r\n"
- " ) Y \r\n"
- " WHERE X.ID = Y.ID(+) \r\n";
- #endif
- try
- {
- TItsFacility *pFacility = NULL;
- try
- {
- int nORD;
- 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();
- //int nRows = pADO->RecordCount;
- for( ; !pADO->Eof; pADO->Next())
- {
- String sId = pADO->FieldByName("RSE_ID")->AsString;
- pFacility = ItsFacilityManager->FLists.Find(sId);
- if (!pFacility) continue;
- pFacility->FCollCntBase = pADO->FieldByName("CLCT_ABNR_BASI")->AsInteger;
- pFacility->FCollCntCurr = pADO->FieldByName("CLCT_NUM")->AsInteger;
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORLOG("TItsFacilityManager::LoadDsrcCollectStatusFromDb_OLD", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORLOG("TItsFacilityManager::LoadDsrcCollectStatusFromDb_OLD", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- return true;
- }
- //---------------------------------------------------------------------------
- bool TItsFacilityManager::LoadAviCollectStatusFromDb_OLD(TADOConnection *ADbConn/*=NULL*/)
- {
- String sQry;
- TADOQuery *pADO = NULL;
- #ifndef USE_AVI
- return true;
- #endif
- sQry = "SELECT A.AVI_CTLR_MNGM_NMBR, A.AVI_ID, NVL(B.COLCNT, 0) AS COLCNT \r\n"
- " FROM TB_AVI_CTLR A, \r\n"
- " (SELECT AVI_CTLR_MNGM_NMBR, MAX(CRTN_DT) AS CRTN_DT, COUNT(1) AS COLCNT \r\n"
- " FROM TB_AVI_PASS_VHCL_PNST \r\n"
- " WHERE CRTN_DT >= TO_CHAR(SYSDATE-10/1440, 'YYYYMMDDHH24MISS') \r\n"
- " GROUP BY AVI_CTLR_MNGM_NMBR ) B \r\n"
- " WHERE A.DEL_YN = 'N' \r\n"
- " AND A.AVI_CTLR_MNGM_NMBR = B.AVI_CTLR_MNGM_NMBR(+) \r\n";
- try
- {
- TItsFacility *pFacility = NULL;
- try
- {
- int nORD;
- 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();
- pADO->First();
- String sAviId;
- int nColCnt;
- for( ; !pADO->Eof; pADO->Next())
- {
- sAviId = pADO->FieldByName("AVI_ID")->AsString;
- pFacility = ItsFacilityManager->FLists.Find(sAviId);
- if (!pFacility)
- {
- continue;
- }
- nColCnt = pADO->FieldByName("COLCNT")->AsInteger;
- if (nColCnt == 0)
- {
- if (pFacility->FComm != str_state_error)
- {
- pFacility->FCollError = true;
- }
- }
- }
- }
- catch(EDatabaseError &E)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORLOG("TItsFacilityManager::LoadAviCollectStatusFromDb_OLD", String(E.ClassName()), E.Message, sQry);
- throw Exception(String(E.ClassName()) + E.Message);
- }
- catch(Exception &exception)
- {
- ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
- DBERRORLOG("TItsFacilityManager::LoadAviCollectStatusFromDb_OLD", String(exception.ClassName()), exception.Message, sQry);
- throw Exception(String(exception.ClassName()) + exception.Message);
- }
- }
- __finally
- {
- if (pADO)
- {
- pADO->Close();
- delete pADO;
- }
- }
- return true;
- }
- //---------------------------------------------------------------------------
|