/**************************************************************************** * @source : * @description : **************************************************************************** * DATE AUTHOR DESCRIPTION * -------------------------------------------------------------------------- * 2011/12/24 정승호 최초작성 * ****************************************************************************/ //--------------------------------------------------------------------------- #include #include "ITSSkinF.h" #include "ITSUtilF.h" #include "ITSDbF.h" #include "AppGlobalF.h" #include "WindowMsgF.h" #include "CDSFacilityF.h" #include "CommFlashF.h" #pragma hdrstop #include "VDSM000MF.h" #include "FrmMainF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "cxButtons" #pragma link "cxCalc" #pragma link "cxCheckBox" #pragma link "cxClasses" #pragma link "cxContainer" #pragma link "cxControls" #pragma link "cxCustomData" #pragma link "cxData" #pragma link "cxDataStorage" #pragma link "cxDropDownEdit" #pragma link "cxEdit" #pragma link "cxFilter" #pragma link "cxGraphics" #pragma link "cxGrid" #pragma link "cxGridCustomTableView" #pragma link "cxGridCustomView" #pragma link "cxGridLevel" #pragma link "cxGridTableView" #pragma link "cxLabel" #pragma link "cxLookAndFeelPainters" #pragma link "cxLookAndFeels" #pragma link "cxStyles" #pragma link "cxTextEdit" #pragma link "dxSkinBlack" #pragma link "dxSkinBlue" #pragma link "dxSkinCaramel" #pragma link "dxSkinCoffee" #pragma link "dxSkinDarkRoom" #pragma link "dxSkinDarkSide" #pragma link "dxSkinFoggy" #pragma link "dxSkinGlassOceans" #pragma link "dxSkiniMaginary" #pragma link "dxSkinLilian" #pragma link "dxSkinLiquidSky" #pragma link "dxSkinLondonLiquidSky" #pragma link "dxSkinMcSkin" #pragma link "dxSkinMoneyTwins" #pragma link "dxSkinOffice2007Black" #pragma link "dxSkinOffice2007Blue" #pragma link "dxSkinOffice2007Green" #pragma link "dxSkinOffice2007Pink" #pragma link "dxSkinOffice2007Silver" #pragma link "dxSkinOffice2010Black" #pragma link "dxSkinOffice2010Blue" #pragma link "dxSkinOffice2010Silver" #pragma link "dxSkinsCore" #pragma link "dxSkinscxPCPainter" #pragma link "dxSkinSeven" #pragma link "dxSkinSharp" #pragma link "dxSkinSilver" #pragma link "dxSkinStardust" #pragma link "cxGroupBox" #pragma link "cxGridBandedTableView" #pragma resource "*.dfm" TVDSM000M *VDSM000M = NULL; //--------------------------------------------------------------------------- __fastcall TVDSM000M::TVDSM000M(TComponent* Owner) : TForm(Owner) { ITSSkin_Load(this); CMM_LoadForm(g_sFormsDir, this); FTitle = "VDS-검지기 상태현황"; FFacilityType = ""; } //--------------------------------------------------------------------------- /* * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다.. * Form과 DataModule class를 delete시킨다. * arguments * * return * void */ void __fastcall TVDSM000M::CommClose() { try { CMM_SaveForm(g_sFormsDir, this); } catch(...) { } } //--------------------------------------------------------------------------- /* * Form을 보여줄때 호출되는 event 메서드이다. * arguments * Sender : event handler 객체 * return * void */ void __fastcall TVDSM000M::FormShow(TObject *Sender) { Refresh(); FormInit(); TmrShow->Enabled = true; } //--------------------------------------------------------------------------- /* * form 초기화 * * arguments * * return * void */ void __fastcall TVDSM000M::FormInit() { TvList->OptionsView->NoDataToDisplayInfoText = ""; } //--------------------------------------------------------------------------- /* * Form이 Show되고 난 후 최초 1회 수행되는 타이머 이벤트 * arguments * Sender : event handler 객체 * return * void */ void __fastcall TVDSM000M::TmrShowTimer(TObject *Sender) { TmrShow->Enabled = false; RefreshData(); } //--------------------------------------------------------------------------- /* * Search 버튼 클릭 이벤트 핸들러 * arguments * Sender : event handler 객체 * return * void */ void __fastcall TVDSM000M::BtnSearchClick(TObject *Sender) { BtnSearch->Enabled = false; TmrShow->Enabled = true; } //--------------------------------------------------------------------------- /* * Refresh Data Event Function * arguments * * return * void */ void __fastcall TVDSM000M::RefreshData() { BtnSearch->Enabled = false; UpdateFacility(); BtnSearch->Enabled = true; } //--------------------------------------------------------------------------- /* * Close 버튼 클릭 이벤트 핸들러 * arguments * Sender : event handler 객체 * return * void */ void __fastcall TVDSM000M::BtnCloseClick(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TVDSM000M::FormClose(TObject *Sender, TCloseAction &Action) { CommClose(); VDSM000M = NULL; Action = caFree; } //--------------------------------------------------------------------------- void __fastcall TVDSM000M::UpdateFacility() { String sQry; TADOQuery *pADO = NULL; sQry = #if 0 "SELECT A.CTLR_MNGM_NMBR, A.VDS_CTLR_ID, A.LCTN, \r\n" " B.DTCT_NMBR, B.VDS_DTCT_NM, B.ISTL_LANE, \r\n" " C.UPDT_DT, C.DTCT_FAIL_STTS, \r\n" " (SELECT CMMN_CD_KOR_NM \r\n" " FROM TB_CMMN_CD \r\n" " WHERE CMMN_CLSF_CD = 'ACD' \r\n" " AND CMMN_CD = B.DTCT_TYPE_CD) AS DTCT_TYPE_CD_NM, \r\n" " DECODE(TRIM(C.DTCT_FAIL_STTS), '0', '정상', \r\n" " '1', '점유오류', \r\n" " '2', '단선오류', \r\n" " '3', '발진오류', \r\n" " '4', '통신장애', '알수없음') AS STTS_NM \r\n" " \r\n" " FROM TB_VDS_CTLR A, \r\n" " TB_VDS_DTCT_MSTR B, \r\n" " (SELECT * \r\n" " FROM TB_VDS_DTCT_STTS_PNST \r\n" " WHERE UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n" " ) C \r\n" " WHERE A.DEL_YN = 'N' \r\n" " AND B.DEL_YN = 'N' \r\n" " AND A.CTLR_MNGM_NMBR = B.CTLR_MNGM_NMBR \r\n" " AND B.DTCT_NMBR = C.DTCT_NMBR(+) \r\n" " ORDER BY A.CTLR_MNGM_NMBR, B.DTCT_NMBR, B.ISTL_LANE \r\n"; #else "SELECT A.*, \r\n" " B.DTCT_NMBR, B.VDS_DTCT_NM, B.ISTL_LANE, \r\n" " C.UPDT_DT, C.DTCT_FAIL_STTS, \r\n" " (SELECT CMMN_CD_KOR_NM \r\n" " FROM TB_CMMN_CD \r\n" " WHERE CMMN_CLSF_CD = 'ACD' \r\n" " AND CMMN_CD = B.DTCT_TYPE_CD) AS DTCT_TYPE_CD_NM, \r\n" " DECODE(TRIM(C.DTCT_FAIL_STTS), '0', '정상', \r\n" " '1', '점유오류', \r\n" " '2', '단선오류', \r\n" " '3', '발진오류', \r\n" " '4', '통신장애', '알수없음') AS STTS_NM \r\n" " FROM (SELECT B.CTLR_MNGM_NMBR, B.VDS_CTLR_ID, B.LCTN, \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 (SELECT * \r\n" " FROM TB_VDS_CTLR_STTS \r\n" " WHERE UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n" " ) A, \r\n" " TB_VDS_CTLR B \r\n" " WHERE B.DEL_YN = 'N' \r\n" " AND A.CTLR_MNGM_NMBR(+) = B.CTLR_MNGM_NMBR \r\n" " ) A, \r\n" " TB_VDS_DTCT_MSTR B, \r\n" " (SELECT * \r\n" " FROM TB_VDS_DTCT_STTS_PNST \r\n" " WHERE UPDT_DT >= TO_CHAR(SYSDATE-5/1440, 'YYYYMMDDHH24MISS') \r\n" " ) C \r\n" " WHERE B.DEL_YN = 'N' \r\n" " AND A.CTLR_MNGM_NMBR = B.CTLR_MNGM_NMBR \r\n" " AND B.DTCT_NMBR = C.DTCT_NMBR(+) \r\n" " ORDER BY A.CTLR_MNGM_NMBR, B.DTCT_NMBR, B.ISTL_LANE \r\n"; #endif try { int nRow = 0; int nDataCnt = 0; TcxDataController *pGDC = TvList->DataController; try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); pADO->SQL->Clear(); pADO->SQL->Text = sQry; pADO->Open(); CMM_ClearGridTableView(TvList); TvList->BeginUpdate(); nDataCnt = pADO->RecordCount; pGDC->RecordCount = nDataCnt; for( ; !pADO->Eof; pADO->Next(), nRow++) { pGDC->Values[nRow][Col00->Index] = pADO->FieldByName("CTLR_MNGM_NMBR")->AsString; pGDC->Values[nRow][Col01->Index] = pADO->FieldByName("LCTN")->AsString; pGDC->Values[nRow][Col02->Index] = pADO->FieldByName("ISTL_LANE")->AsString; pGDC->Values[nRow][Col03->Index] = pADO->FieldByName("DTCT_TYPE_CD_NM")->AsString; pGDC->Values[nRow][Col04->Index] = pADO->FieldByName("DTCT_NMBR")->AsString; pGDC->Values[nRow][Col05->Index] = pADO->FieldByName("VDS_DTCT_NM")->AsString; pGDC->Values[nRow][Col06->Index] = pADO->FieldByName("UPDT_DT")->AsString; String sComm = pADO->FieldByName("COMM")->AsString; if (sComm == "0") { pGDC->Values[nRow][Col07->Index] = pADO->FieldByName("STTS_NM")->AsString; pGDC->Values[nRow][Col09->Index] = "정상"; } else { pGDC->Values[nRow][Col07->Index] = "알수없음"; pGDC->Values[nRow][Col09->Index] = "이상"; } } } catch(EDatabaseError &E) { ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2); DBERRORMSG("VDS-검지기상태정보조회", 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("VDS-검지기상태정보조회", String(exception.ClassName()), exception.Message, sQry); throw Exception(String(exception.ClassName()) + exception.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } TvList->EndUpdate(); } CMM_ExpandCollapseChk(TvList, ChkExpand->Checked); } //--------------------------------------------------------------------------- void __fastcall TVDSM000M::BtnExlSaveClick(TObject *Sender) { TcxGrid *pGrid = CxList; TcxGridTableView *pView = TvList; String sTitle= "VDS-검지기 상태현황"; CMM_ExportToExcelFile(sTitle, pGrid, pView, (TForm*)this); } //--------------------------------------------------------------------------- void __fastcall TVDSM000M::ChkExpandClick(TObject *Sender) { CMM_ExpandCollapseChk(TvList, ChkExpand->Checked); } //--------------------------------------------------------------------------- void __fastcall TVDSM000M::TvListDataControllerFilterChanged(TObject *Sender) { CMM_SetFilterLike(TvList); } //--------------------------------------------------------------------------- void __fastcall TVDSM000M::Col07CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone) { if( AViewInfo ) { if(AViewInfo->Text == "정상") { ACanvas->Canvas->Font->Color = clTeal; } else if(AViewInfo->Text == "통신장애") { ACanvas->Canvas->Font->Color = clRed; } else if(AViewInfo->Text == "알수없음") { ACanvas->Canvas->Font->Color = clGray; } else { ACanvas->Canvas->Font->Color = clFuchsia; } } } //--------------------------------------------------------------------------- void __fastcall TVDSM000M::Col09CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone) { if( AViewInfo ) { if(AViewInfo->Text == "정상") { ACanvas->Canvas->Font->Color = clTeal; } else { ACanvas->Canvas->Font->Color = clRed; } } } //---------------------------------------------------------------------------