//--------------------------------------------------------------------------- #include #include "ITSSkinF.h" #include "ITSUtilF.h" #include "ITSDbF.h" #include "AppGlobalF.h" #include "ITSLangTransF.h" #pragma hdrstop #include "VDSS020MF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "cxButtons" #pragma link "cxClasses" #pragma link "cxContainer" #pragma link "cxControls" #pragma link "cxCustomData" #pragma link "cxData" #pragma link "cxDataStorage" #pragma link "cxDBData" #pragma link "cxEdit" #pragma link "cxFilter" #pragma link "cxGraphics" #pragma link "cxGrid" #pragma link "cxGridBandedTableView" #pragma link "cxGridCustomTableView" #pragma link "cxGridCustomView" #pragma link "cxGridDBBandedTableView" #pragma link "cxGridLevel" #pragma link "cxGridTableView" #pragma link "cxLabel" #pragma link "cxLookAndFeelPainters" #pragma link "cxLookAndFeels" #pragma link "cxPC" #pragma link "cxPCdxBarPopupMenu" #pragma link "cxSpinEdit" #pragma link "cxSplitter" #pragma link "cxStyles" #pragma link "cxTextEdit" #pragma link "dxSkinBlack" #pragma link "dxSkinBlue" #pragma link "dxSkinsCore" #pragma link "dxSkinscxPCPainter" #pragma resource "*.dfm" TVDSS020M *VDSS020M = NULL; //--------------------------------------------------------------------------- __fastcall TVDSS020M::TVDSS020M(TComponent* Owner) : TForm(Owner) { LangTrans->Translate(this, ITSDb_GetConnection()); ITSSkin_Load(this); LoadLocalSkin(); CMM_LoadForm(g_sFormsDir, this); FTitle = Caption;//"VDS-검지기 교통량 통계"; LoadConfig(); m_sLinkLevel = "1"; MyItsAtrdManager = new TItsAtrdManager(); MyItsAtrdManager->LoadFromDb(); MyItsAtrdManager->LoadAtrdLength(); } //--------------------------------------------------------------------------- /* * 환경설정정보 로딩 * * arguments * * return * void */ void __fastcall TVDSS020M::LoadConfig() { m_sFooterRight = "";//GetConfigValue("APPLICATION", "REPORTRIGHT", ""); } //--------------------------------------------------------------------------- /* * 공통으로 처리되지 않는 스킨을 변경한다. * arguments * * return * void */ void __fastcall TVDSS020M::LoadLocalSkin() { /* * 스킨 변경 */ PgQuery->ParentColor = true; TsDay->ParentColor = true; TsMon->ParentColor = true; TsYear->ParentColor = true; } //--------------------------------------------------------------------------- /* * form이 메모리에서 생성될때 호출되는 생성자 이벤트 핸들러 * arguments * Sender : event handler 객체 * return * void */ void __fastcall TVDSS020M::FormCreate(TObject *Sender) { for (int ii = 0; ii < MAX_CHART; ii++) { m_pFrmChart[ii] = new TPlugInChart(this); switch(ii) { case 0: m_pFrmChart[ii]->Parent = PnlDayGraph; m_pFrmChart[ii]->SetChartInfo("", "시간", "교통량"); break; case 1: m_pFrmChart[ii]->Parent = PnlMonGraph; m_pFrmChart[ii]->SetChartInfo("", "일", "교통량"); break; case 2: m_pFrmChart[ii]->Parent = PnlYearGraph; m_pFrmChart[ii]->SetChartInfo("", "월", "교통량"); break; } m_pFrmChart[ii]->Show(); } PgList->HideTabs = true; } //--------------------------------------------------------------------------- /* * form을 보여줄때 호출되는 event 메서드이다. * arguments * Sender : event handler 객체 * return * void */ void __fastcall TVDSS020M::FormShow(TObject *Sender) { PgList->ActivePageIndex = 0; PgQuery->ActivePageIndex= 0; //DMMain->InsertListHeaderMenuItem(CxDay, (TcxGridDBTableView*)TvDay); // form 초기화 FormInit(); } //--------------------------------------------------------------------------- /* * form 초기화 * arguments * * return * void */ void __fastcall TVDSS020M::FormInit() { DtDay->Date = IncHour(Now(), -24); DtMon->Date = StartOfTheMonth(IncHour(Now(), -24*30)); DtYear->Date = IncHour(Now(), -24); DtStTime->Time = StrToDateTime("00:00"); DtEdTime->Time = StrToDateTime("23:59"); ADOD->Connection = ITSDb_GetConnection(); ADOM->Connection = ITSDb_GetConnection(); ADOY->Connection = ITSDb_GetConnection(); TvDay->DataController->DataSource = DSD; TvMon->DataController->DataSource = DSM; TvYear->DataController->DataSource = DSY; //FillStatComboBox(CbStatCfg, "IST0810M"); } //--------------------------------------------------------------------------- /* * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다.. * Form과 DataModule class를 delete시킨다. * arguments * * return * void */ void __fastcall TVDSS020M::CommClose() { try { CMM_SaveForm(g_sFormsDir, this); //DeleteStatComboBox(CbStatCfg); TvDay->BeginUpdate(); ADOD->Close(); TvDay->EndUpdate(); TvMon->BeginUpdate(); ADOM->Close(); TvMon->EndUpdate(); TvYear->BeginUpdate(); ADOY->Close(); TvYear->EndUpdate(); if (MyItsAtrdManager) { delete MyItsAtrdManager; MyItsAtrdManager = NULL; } } catch(...) { } } //--------------------------------------------------------------------------- /* * 화면이 로딩된 후 리스트 목록을 조회하도록 한다. * arguments * * return * void */ void __fastcall TVDSS020M::TmrRefreshTimer(TObject *Sender) { TmrRefresh->Enabled = false; } //--------------------------------------------------------------------------- /* * 통계구분 탭 변경시 발생하는 이벤트 핸들러 * arguments * * return * void */ void __fastcall TVDSS020M::PgQueryChange(TObject *Sender) { //Tab Change PgList->ActivePageIndex = PgQuery->ActivePageIndex; switch(PgQuery->ActivePageIndex) { case 0: DtDay->SetFocus(); break; case 1: DtMon->SetFocus(); break; case 2: DtYear->SetFocus(); break; default: break; } } //--------------------------------------------------------------------------- /* * Graph Button Click Event Handler * arguments * Sender : event handler 객체 * return * void */ void __fastcall TVDSS020M::BtnGraphClick(TObject *Sender) { // 차트를 다른 창에서 보여줘야 할 경우 Frm1121100_1F.cpp 내 소스 참조 } //--------------------------------------------------------------------------- /* * Print Button Click Event Handler * arguments * Sender : event handler 객체 * return * void */ void __fastcall TVDSS020M::BtnPrintClick(TObject *Sender) { TcxGrid *pGrid = NULL; TcxGridDBBandedTableView *pView = NULL; TLabel *LblQry= NULL; String sTitle; switch(PgQuery->ActivePageIndex) { case 0: pGrid = CxDay; pView = TvDay; LblQry = LblQryTm; break; case 1: pGrid = CxMon; pView = TvMon; LblQry = LblQryDay; break; case 2: pGrid = CxYear; pView = TvYear; LblQry = LblQryYear; break; default: return; } sTitle = LblRptTitle->Caption + "\r\n" + LblQry->Caption; if (pView->DataController->RecordCount == 0) { ShowMessage(FrmLang->lblPrintNoData->Caption);//"인쇄 할 데이터가 없습니다."); return; } //ComponentPrinterLink->OptionsView->Footers = true; //ComponentPrinterLink->OptionsView->GroupFooters = true; //ComponentPrinterLink->OptionsSize->AutoWidth = true; //CMM_PrintList(pGrid, sTitle, m_sFooterRight); pView->DataController->FocusedRecordIndex = 0; } //--------------------------------------------------------------------------- /* * Excel Button Click Event Handler * arguments * Sender : event handler 객체 * return * void */ void __fastcall TVDSS020M::BtnExlSaveClick(TObject *Sender) { TcxGrid *pGrid = NULL; TcxGridDBBandedTableView *pView = NULL; TLabel *LblQry= NULL; String sTitle; switch(PgQuery->ActivePageIndex) { case 0: pGrid = CxDay; pView = TvDay; LblQry = LblQryTm; break; case 1: pGrid = CxMon; pView = TvMon; LblQry = LblQryDay; break; case 2: pGrid = CxYear; pView = TvYear; LblQry = LblQryYear; break; default: return; } sTitle = LblRptTitle->Caption + LblQry->Caption; if (pView->DataController->RecordCount == 0) { ShowMessage(FrmLang->lblSaveNoData->Caption);//"저장 할 데이터가 없습니다."); return; } CMM_ExportToExcelFile(sTitle, pGrid, pView, this); } //--------------------------------------------------------------------------- /* * Refresh Button Click Event Handler * arguments * Sender : event handler 객체 * return * void */ void __fastcall TVDSS020M::BtnSearchClick(TObject *Sender) { Application->ProcessMessages(); TSqlCursor sqlCrs((TControl*)BtnSearch); m_sLinkLevel = CbLinkLevel->Text; Application->ProcessMessages(); RefreshData(); } //--------------------------------------------------------------------------- /* * Refresh Data Event Function * arguments * * return * void */ void __fastcall TVDSS020M::RefreshData() { TcxGridDBBandedTableView *pView = NULL; TLabel *LblQry= NULL; TLabel *LblRecords= NULL; WORD nYear, nMonth, nDay, nHour, nMin, nSec, nMSec; int nDispCols; String sBandText = ""; String sMsgTitle, sMsgString; TDateTimePicker *DtQryTm; int nStYear, nEdYear; switch(PgQuery->ActivePageIndex) { case 0: pView = TvDay; DtQryTm = DtDay; LblQry = LblQryTm; LblRecords = LblRecordsTm; sBandText = "(" + DtDay->Date.FormatString("yyyy년 mm월 dd일") + ")"; nDispCols = 24; if (StartOfTheDay(Now()) <= DtDay->DateTime) { DecodeTime(Now(), nHour, nMin, nSec, nMSec); if (nMin > 5) nDispCols = nHour; else nDispCols = nHour-1; } break; case 1: pView = TvMon; DtQryTm = DtMon; LblQry = LblQryDay; LblRecords = LblRecordsDay; sBandText = "(" + DtMon->Date.FormatString("yyyy년 mm월") + ")"; nDispCols = ITSUtil_GetMonthLastDay(AnsiString(DtMon->Date.FormatString("yyyymm")).c_str()); if (StartOfTheDay(Now()) <= EndOfTheMonth(DtMon->DateTime)) { DecodeDate(Now(), nYear, nMonth, nDay); if (nDay < nDispCols) nDispCols = nDay-1; } { String sStDateTime = DtStTime->Time.FormatString("hhnn"); String sEdDateTime = DtEdTime->Time.FormatString("hhnn"); if (sStDateTime > sEdDateTime) { Application->MessageBox(FrmLang->lblQryDtErr->Caption.c_str(),//L"검색 시작시각이 검색 종료시각 보다 큽니다.", FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); return; } } break; case 2: pView = TvYear; DtQryTm = DtYear; LblQry = LblQryYear; LblRecords = LblRecordsYear; sBandText = "(" + DtYear->Date.FormatString("yyyy년") + ")"; nDispCols = 12; if (Now().FormatString("yyyy") == DtYear->DateTime.FormatString("yyyy")) { DecodeDate(Now(), nYear, nMonth, nDay); nDispCols = nMonth; } break; default: return; } if (!pView) return; if (DtQryTm->DateTime.FormatString("yyyymmdd").ToInt() > Now().FormatString("yyyymmdd").ToInt()) { Application->MessageBox(FrmLang->lblCnfmStatTm->Caption.c_str(),//L"통계검색 시각 정보를 확인하세요.", FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); MessageDlg(sMsgString.c_str(), mtInformation, TMsgDlgButtons() << mbOK, NULL); DtQryTm->SetFocus(); nDispCols = 0; /* 리턴하지 않는 경우 모든 컬럼을 숨긴다. */ return; } LblQry->Caption = sBandText; CMM_ShowListColumn(pView, nDispCols); TWaitCursor crs; try { pView->BeginUpdate(); switch(PgQuery->ActivePageIndex) { case 0: DispDayStatistics(); break; case 1: DispMonthStatistics(); break; case 2: DispYearStatistics(); break; default: return; } } __finally { pView->EndUpdate(); //pView->ApplyBestFit(NULL, false, false); LblRecords->Caption = FormatFloat("##,##0", pView->DataController->RecordCount) + FrmLang->lblEA->Caption;//" 건"; String sEnd = FrmLang->lblQrySel->Caption + " [" + LblRecords->Caption + "]";//"데이터 " + LblRecords->Caption + " 이 조회 되었습니다."; Application->MessageBox(sEnd.c_str(), FrmLang->lblQryEnd->Caption.c_str(),//L"데이터 조회 완료", MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); } DrawChart(sBandText); } //--------------------------------------------------------------------------- /* * 조회한 데이터를 기준으로 차트를 그린다. * arguments * * return * void */ void __fastcall TVDSS020M::DrawChart(String sTitle) { TcxGridDBBandedTableView *pView = NULL; String sAxisX, sAxisY; int nAxisY1, nAxisY2, nAxisY3, nStColIdx, nEdColIdx, nTotColIdx; nAxisY3 = 0; nEdColIdx = 0; nTotColIdx = -1; switch(PgQuery->ActivePageIndex) { case 0: pView = TvDay; nAxisY1 = vDayColumnNo->Index; nAxisY2 = vDayColumnTot->Index; nAxisY3 = TvDayColumn1->Index; nEdColIdx = cxGridDBBandedColumn54->Index; nStColIdx = vDayColumnAvg->Index;//vDayColumn1->Index; break; case 1: pView = TvMon; nAxisY1 = vMonColumnNo->Index; nAxisY2 = vMonColumnTot->Index; nAxisY3 = TvMonColumn1->Index; nEdColIdx = vMonColumn31->Index; nStColIdx = vMonColumnAvg->Index;//vMonColumn1->Index; break; case 2: pView = TvYear; nAxisY1 = vYearColumnNo->Index; nAxisY2 = vYearColumnTot->Index; nAxisY3 = TvYearColumn1->Index; nEdColIdx = vYearColumn12->Index; nStColIdx = vYearColumnAvg->Index;//vYearColumn1->Index; break; default: return; } /* * Chart draw */ try { m_pFrmChart[PgQuery->ActivePageIndex]->Clear(); if (pView->DataController->RecordCount == 0) { //ShowMessage("표출 할 데이터가 없습니다."); return; } m_pFrmChart[PgQuery->ActivePageIndex]->BeginDraw("", "", ""); //m_pFrmChart[PgQuery->ActivePageIndex]->DrawChart4((TcxGridDBTableView *)pView, nAxisY1, nAxisY2, nStColIdx, nTotColIdx); m_pFrmChart[PgQuery->ActivePageIndex]->DrawChart6((TcxGridDBTableView *)pView, nAxisY1, nAxisY2, nAxisY3, nStColIdx, nEdColIdx, nTotColIdx); m_pFrmChart[PgQuery->ActivePageIndex]->EndDraw(); } catch(...) { } } //--------------------------------------------------------------------------- /* * 시간대별 일 통계 데이터 조회/출력 * arguments * * return * void */ void __fastcall TVDSS020M::DispDayStatistics() { String sQry; String sDD; String sFrom, sTo; String sTmp; int ii; sDD = DtDay->Date.FormatString("yyyyMMdd"); sFrom = sDD + "000000"; sTo = sDD + "235959"; sQry = "SELECT LY.CTLR_MNGM_NMBR, LY.VDS_CTLR_ID, LY.LCTN, LY.DTCT_NMBR, LY.ISTL_LANE, LY.VDS_DTCT_NM, \r\n" " LY.DTCT_TYPE_CD, LY.DTCT_TYPE_CD_NM, \r\n" " LX.TRFTYPE, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(TOTTFVL, 0, '-', TOTTFVL)) AS TOTTFVL, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(AVGTFVL, 0, '-', AVGTFVL)) AS AVGTFVL, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L00, NULL, '-', L00)) AS C00, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L01, NULL, '-', L01)) AS C01, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L02, NULL, '-', L02)) AS C02, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L03, NULL, '-', L03)) AS C03, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L04, NULL, '-', L04)) AS C04, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L05, NULL, '-', L05)) AS C05, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L06, NULL, '-', L06)) AS C06, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L07, NULL, '-', L07)) AS C07, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L08, NULL, '-', L08)) AS C08, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L09, NULL, '-', L09)) AS C09, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L10, NULL, '-', L10)) AS C10, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L11, NULL, '-', L11)) AS C11, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L12, NULL, '-', L12)) AS C12, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L13, NULL, '-', L13)) AS C13, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L14, NULL, '-', L14)) AS C14, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L15, NULL, '-', L15)) AS C15, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L16, NULL, '-', L16)) AS C16, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L17, NULL, '-', L17)) AS C17, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L18, NULL, '-', L18)) AS C18, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L19, NULL, '-', L19)) AS C19, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L20, NULL, '-', L20)) AS C20, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L21, NULL, '-', L21)) AS C21, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L22, NULL, '-', L22)) AS C22, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L23, NULL, '-', L23)) AS C23 \r\n" " FROM ( \r\n" " SELECT GROUPING(DTCT_NMBR) AS GROUPING_DTCT_NMBR, \r\n" " GROUPING(ISTL_LANE) AS GROUPING_ISTL_LANE, \r\n" " GROUPING(TRFTYPE) AS GROUPING_TRFTYPE, \r\n" " CASE WHEN GROUPING(DTCT_NMBR ) = 1 THEN '검지기' ELSE DTCT_NMBR END AS GROUP_DTCT_NMBR, \r\n" " CASE WHEN GROUPING(ISTL_LANE) = 1 THEN '차로' ELSE ISTL_LANE END AS GROUP_ISTL_LANE, \r\n" " CASE WHEN GROUPING(TRFTYPE) = 1 THEN '소계' ELSE TRFTYPE END AS GROUP_TRFTYPE, \r\n" " DTCT_NMBR, ISTL_LANE, TRFTYPE, \r\n" " SUM(TFVL) TOTTFVL, \r\n" " ROUND(AVG(TFVL), 0) AVGTFVL, \r\n" " SUM(DECODE(STATHOUR, '00', TFVL)) AS L00, \r\n" " SUM(DECODE(STATHOUR, '01', TFVL)) AS L01, \r\n" " SUM(DECODE(STATHOUR, '02', TFVL)) AS L02, \r\n" " SUM(DECODE(STATHOUR, '03', TFVL)) AS L03, \r\n" " SUM(DECODE(STATHOUR, '04', TFVL)) AS L04, \r\n" " SUM(DECODE(STATHOUR, '05', TFVL)) AS L05, \r\n" " SUM(DECODE(STATHOUR, '06', TFVL)) AS L06, \r\n" " SUM(DECODE(STATHOUR, '07', TFVL)) AS L07, \r\n" " SUM(DECODE(STATHOUR, '08', TFVL)) AS L08, \r\n" " SUM(DECODE(STATHOUR, '09', TFVL)) AS L09, \r\n" " SUM(DECODE(STATHOUR, '10', TFVL)) AS L10, \r\n" " SUM(DECODE(STATHOUR, '11', TFVL)) AS L11, \r\n" " SUM(DECODE(STATHOUR, '12', TFVL)) AS L12, \r\n" " SUM(DECODE(STATHOUR, '13', TFVL)) AS L13, \r\n" " SUM(DECODE(STATHOUR, '14', TFVL)) AS L14, \r\n" " SUM(DECODE(STATHOUR, '15', TFVL)) AS L15, \r\n" " SUM(DECODE(STATHOUR, '16', TFVL)) AS L16, \r\n" " SUM(DECODE(STATHOUR, '17', TFVL)) AS L17, \r\n" " SUM(DECODE(STATHOUR, '18', TFVL)) AS L18, \r\n" " SUM(DECODE(STATHOUR, '19', TFVL)) AS L19, \r\n" " SUM(DECODE(STATHOUR, '20', TFVL)) AS L20, \r\n" " SUM(DECODE(STATHOUR, '21', TFVL)) AS L21, \r\n" " SUM(DECODE(STATHOUR, '22', TFVL)) AS L22, \r\n" " SUM(DECODE(STATHOUR, '23', TFVL)) AS L23 \r\n" " FROM ( \r\n" " SELECT Y.DTCT_NMBR, Y.VDS_DTCT_NM, TO_CHAR(Y.ISTL_LANE) AS ISTL_LANE, \r\n" " X.TRFTYPE, X.STATHOUR, X.TFVL \r\n" " FROM (SELECT /*+ INDEX(A IX_VDS_DTCT_HH_STAT_PK) */ \r\n" " 'DTCT' AS TRFTYPE, \r\n" " A.DTCT_NMBR AS DTCT_NMBR, SUBSTR(A.STAT_DT, 9, 2) AS STATHOUR, \r\n" " A.TFVL AS TFVL \r\n" " FROM TB_VDS_DTCT_HH_STAT A \r\n" " WHERE 1=1 \r\n" " AND A.STAT_DT BETWEEN :p01 AND :p02 \r\n" " ) X, \r\n" " TB_VDS_DTCT_MSTR Y \r\n" " WHERE 1=1 \r\n" " AND Y.DEL_YN = 'N' \r\n" " AND Y.DTCT_NMBR = X.DTCT_NMBR \r\n" " ) \r\n" " GROUP BY ROLLUP (DTCT_NMBR, ISTL_LANE, TRFTYPE) \r\n" " HAVING GROUPING(TRFTYPE) = 0 \r\n" " ) LX, \r\n" " ( \r\n" " SELECT A.CTLR_MNGM_NMBR, A.VDS_CTLR_ID, A.LCTN, B.DTCT_NMBR, B.ISTL_LANE, B.VDS_DTCT_NM, \r\n" " B.DTCT_TYPE_CD, \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" " FROM TB_VDS_CTLR A, \r\n" " TB_VDS_DTCT_MSTR B \r\n" " WHERE 1=1 \r\n" " AND A.DEL_YN = 'N' \r\n" " AND B.DEL_YN = 'N' \r\n" " AND A.CTLR_MNGM_NMBR = B.CTLR_MNGM_NMBR \r\n" " ) LY \r\n" " WHERE LY.DTCT_NMBR = LX.DTCT_NMBR(+) \r\n" " ORDER BY LY.CTLR_MNGM_NMBR, LY.DTCT_TYPE_CD_NM, LY.ISTL_LANE, LY.DTCT_NMBR \r\n"; try { ITSDb_SQLText(ADOD, sQry); ITSDb_SQLBind(ADOD, "p01", sFrom); ITSDb_SQLBind(ADOD, "p02", sTo); ITSDb_SQLOpen(ADOD); ShowRecordCount(ADOD->RecordCount); } catch(EDatabaseError &E) { ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2); DBERRORMSG(Caption, 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(Caption, String(exception.ClassName()), exception.Message, sQry); throw Exception(String(exception.ClassName()) + exception.Message); } } //--------------------------------------------------------------------------- /* * 일별 월 통계 데이터 조회/출력 * arguments * * return * void */ void __fastcall TVDSS020M::DispMonthStatistics() { String sQry = ""; String sMM; String sFrom, sTo; String sTmp; int ii; sMM = DtMon->Date.FormatString("yyyyMM"); sFrom = sMM + "01000000"; sTo = sMM + "31235959"; String sStTm = DtStTime->Time.FormatString("hhnn"); String sEdTm = DtEdTime->Time.FormatString("hhnn"); sQry = "SELECT LY.CTLR_MNGM_NMBR, LY.VDS_CTLR_ID, LY.LCTN, LY.DTCT_NMBR, LY.ISTL_LANE, LY.VDS_DTCT_NM, \r\n" " LY.DTCT_TYPE_CD, LY.DTCT_TYPE_CD_NM, \r\n" " LX.TRFTYPE, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(TOTTFVL, 0, '-', TOTTFVL)) AS TOTTFVL, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(AVGTFVL, 0, '-', AVGTFVL)) AS AVGTFVLX, \r\n" " DECODE(NVL(L01,0)+NVL(L02,0)+NVL(L03,0)+NVL(L04,0)+NVL(L05,0)+NVL(L06,0)+NVL(L07,0)+ \r\n" " NVL(L08,0)+NVL(L09,0)+NVL(L10,0)+NVL(L11,0)+NVL(L12,0)+NVL(L13,0)+NVL(L14,0)+ \r\n" " NVL(L15,0)+NVL(L16,0)+NVL(L17,0)+NVL(L18,0)+NVL(L19,0)+NVL(L20,0)+NVL(L21,0)+ \r\n" " NVL(L22,0)+NVL(L23,0)+NVL(L24,0)+NVL(L25,0)+NVL(L26,0)+NVL(L27,0)+NVL(L28,0)+ \r\n" " NVL(L29,0)+NVL(L30,0)+NVL(L31,0), 0, '-', \r\n" " ROUND( \r\n" " (NVL(L01,0)+NVL(L02,0)+NVL(L03,0)+NVL(L04,0)+NVL(L05,0)+NVL(L06,0)+NVL(L07,0)+ \r\n" " NVL(L08,0)+NVL(L09,0)+NVL(L10,0)+NVL(L11,0)+NVL(L12,0)+NVL(L13,0)+NVL(L14,0)+ \r\n" " NVL(L15,0)+NVL(L16,0)+NVL(L17,0)+NVL(L18,0)+NVL(L19,0)+NVL(L20,0)+NVL(L21,0)+ \r\n" " NVL(L22,0)+NVL(L23,0)+NVL(L24,0)+NVL(L25,0)+NVL(L26,0)+NVL(L27,0)+NVL(L28,0)+ \r\n" " NVL(L29,0)+NVL(L30,0)+NVL(L31,0)) / \r\n" " (DECODE(L01,NULL,0,1)+DECODE(L02,NULL,0,1)+DECODE(L03,NULL,0,1)+ \r\n" " DECODE(L04,NULL,0,1)+DECODE(L05,NULL,0,1)+DECODE(L06,NULL,0,1)+ \r\n" " DECODE(L07,NULL,0,1)+DECODE(L08,NULL,0,1)+DECODE(L09,NULL,0,1)+ \r\n" " DECODE(L10,NULL,0,1)+DECODE(L11,NULL,0,1)+DECODE(L12,NULL,0,1)+ \r\n" " DECODE(L13,NULL,0,1)+DECODE(L14,NULL,0,1)+DECODE(L15,NULL,0,1)+ \r\n" " DECODE(L16,NULL,0,1)+DECODE(L17,NULL,0,1)+DECODE(L18,NULL,0,1)+ \r\n" " DECODE(L19,NULL,0,1)+DECODE(L20,NULL,0,1)+DECODE(L21,NULL,0,1)+ \r\n" " DECODE(L22,NULL,0,1)+DECODE(L23,NULL,0,1)+DECODE(L24,NULL,0,1)+ \r\n" " DECODE(L25,NULL,0,1)+DECODE(L26,NULL,0,1)+DECODE(L27,NULL,0,1)+ \r\n" " DECODE(L28,NULL,0,1)+DECODE(L29,NULL,0,1)+DECODE(L30,NULL,0,1)+ \r\n" " DECODE(L31,NULL,0,1)), 0)) AS AVGTFVL, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L01, NULL, '-', L01)) AS C01, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L02, NULL, '-', L02)) AS C02, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L03, NULL, '-', L03)) AS C03, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L04, NULL, '-', L04)) AS C04, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L05, NULL, '-', L05)) AS C05, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L06, NULL, '-', L06)) AS C06, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L07, NULL, '-', L07)) AS C07, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L08, NULL, '-', L08)) AS C08, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L09, NULL, '-', L09)) AS C09, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L10, NULL, '-', L10)) AS C10, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L11, NULL, '-', L11)) AS C11, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L12, NULL, '-', L12)) AS C12, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L13, NULL, '-', L13)) AS C13, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L14, NULL, '-', L14)) AS C14, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L15, NULL, '-', L15)) AS C15, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L16, NULL, '-', L16)) AS C16, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L17, NULL, '-', L17)) AS C17, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L18, NULL, '-', L18)) AS C18, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L19, NULL, '-', L19)) AS C19, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L20, NULL, '-', L20)) AS C20, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L21, NULL, '-', L21)) AS C21, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L22, NULL, '-', L22)) AS C22, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L23, NULL, '-', L23)) AS C23, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L24, NULL, '-', L24)) AS C24, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L25, NULL, '-', L25)) AS C25, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L26, NULL, '-', L26)) AS C26, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L27, NULL, '-', L27)) AS C27, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L28, NULL, '-', L28)) AS C28, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L29, NULL, '-', L29)) AS C29, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L30, NULL, '-', L30)) AS C30, \r\n" " DECODE(LX.DTCT_NMBR, NULL, '-', DECODE(L31, NULL, '-', L31)) AS C31 \r\n" " FROM ( \r\n" " SELECT GROUPING(DTCT_NMBR) AS GROUPING_DTCT_NMBR, \r\n" " GROUPING(ISTL_LANE) AS GROUPING_ISTL_LANE, \r\n" " GROUPING(TRFTYPE) AS GROUPING_TRFTYPE, \r\n" " CASE WHEN GROUPING(DTCT_NMBR ) = 1 THEN '검지기' ELSE DTCT_NMBR END AS GROUP_DTCT_NMBR, \r\n" " CASE WHEN GROUPING(ISTL_LANE) = 1 THEN '차로' ELSE ISTL_LANE END AS GROUP_ISTL_LANE, \r\n" " CASE WHEN GROUPING(TRFTYPE) = 1 THEN '소계' ELSE TRFTYPE END AS GROUP_TRFTYPE, \r\n" " DTCT_NMBR, ISTL_LANE, TRFTYPE, \r\n" " SUM(TFVL) TOTTFVL, \r\n" " ROUND(AVG(TFVL), 0) AVGTFVL, \r\n" " SUM(DECODE(STATDAY, '01', TFVL)) AS L01, \r\n" " SUM(DECODE(STATDAY, '02', TFVL)) AS L02, \r\n" " SUM(DECODE(STATDAY, '03', TFVL)) AS L03, \r\n" " SUM(DECODE(STATDAY, '04', TFVL)) AS L04, \r\n" " SUM(DECODE(STATDAY, '05', TFVL)) AS L05, \r\n" " SUM(DECODE(STATDAY, '06', TFVL)) AS L06, \r\n" " SUM(DECODE(STATDAY, '07', TFVL)) AS L07, \r\n" " SUM(DECODE(STATDAY, '08', TFVL)) AS L08, \r\n" " SUM(DECODE(STATDAY, '09', TFVL)) AS L09, \r\n" " SUM(DECODE(STATDAY, '10', TFVL)) AS L10, \r\n" " SUM(DECODE(STATDAY, '11', TFVL)) AS L11, \r\n" " SUM(DECODE(STATDAY, '12', TFVL)) AS L12, \r\n" " SUM(DECODE(STATDAY, '13', TFVL)) AS L13, \r\n" " SUM(DECODE(STATDAY, '14', TFVL)) AS L14, \r\n" " SUM(DECODE(STATDAY, '15', TFVL)) AS L15, \r\n" " SUM(DECODE(STATDAY, '16', TFVL)) AS L16, \r\n" " SUM(DECODE(STATDAY, '17', TFVL)) AS L17, \r\n" " SUM(DECODE(STATDAY, '18', TFVL)) AS L18, \r\n" " SUM(DECODE(STATDAY, '19', TFVL)) AS L19, \r\n" " SUM(DECODE(STATDAY, '20', TFVL)) AS L20, \r\n" " SUM(DECODE(STATDAY, '21', TFVL)) AS L21, \r\n" " SUM(DECODE(STATDAY, '22', TFVL)) AS L22, \r\n" " SUM(DECODE(STATDAY, '23', TFVL)) AS L23, \r\n" " SUM(DECODE(STATDAY, '24', TFVL)) AS L24, \r\n" " SUM(DECODE(STATDAY, '25', TFVL)) AS L25, \r\n" " SUM(DECODE(STATDAY, '26', TFVL)) AS L26, \r\n" " SUM(DECODE(STATDAY, '27', TFVL)) AS L27, \r\n" " SUM(DECODE(STATDAY, '28', TFVL)) AS L28, \r\n" " SUM(DECODE(STATDAY, '29', TFVL)) AS L29, \r\n" " SUM(DECODE(STATDAY, '30', TFVL)) AS L30, \r\n" " SUM(DECODE(STATDAY, '31', TFVL)) AS L31 \r\n" " FROM ( \r\n" " SELECT Y.DTCT_NMBR, Y.VDS_DTCT_NM, TO_CHAR(Y.ISTL_LANE) AS ISTL_LANE, \r\n" " X.TRFTYPE, X.STATDAY, X.TFVL \r\n" " FROM (SELECT /*+ INDEX(A IX_VDS_DTCT_HH_STAT_PK) */ \r\n" " 'DTCT' AS TRFTYPE, \r\n" " A.DTCT_NMBR AS DTCT_NMBR, SUBSTR(A.STAT_DT, 7, 2) AS STATDAY, \r\n" " A.TFVL AS TFVL \r\n" " FROM TB_VDS_DTCT_HH_STAT A \r\n" " WHERE 1=1 \r\n" " AND A.STAT_DT BETWEEN :p01 AND :p02 \r\n" " AND SUBSTR(A.STAT_DT, 9, 4) BETWEEN :p03 AND :p04 \r\n" " ) X, \r\n" " TB_VDS_DTCT_MSTR Y \r\n" " WHERE 1=1 \r\n" " AND Y.DEL_YN = 'N' \r\n" " AND Y.DTCT_NMBR = X.DTCT_NMBR \r\n" " ) \r\n" " GROUP BY ROLLUP (DTCT_NMBR, ISTL_LANE, TRFTYPE) \r\n" " HAVING GROUPING(TRFTYPE) = 0 \r\n" " ) LX, \r\n" " ( \r\n" " SELECT A.CTLR_MNGM_NMBR, A.VDS_CTLR_ID, A.LCTN, B.DTCT_NMBR, B.ISTL_LANE, B.VDS_DTCT_NM, \r\n" " B.DTCT_TYPE_CD, \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" " FROM TB_VDS_CTLR A, \r\n" " TB_VDS_DTCT_MSTR B \r\n" " WHERE 1=1 \r\n" " AND A.DEL_YN = 'N' \r\n" " AND B.DEL_YN = 'N' \r\n" " AND A.CTLR_MNGM_NMBR = B.CTLR_MNGM_NMBR \r\n" " ) LY \r\n" " WHERE LY.DTCT_NMBR = LX.DTCT_NMBR(+) \r\n" " ORDER BY LY.CTLR_MNGM_NMBR, LY.DTCT_TYPE_CD_NM, LY.ISTL_LANE, LY.DTCT_NMBR \r\n"; try { ITSDb_SQLText(ADOM, sQry); ITSDb_SQLBind(ADOM, "p01", sFrom); ITSDb_SQLBind(ADOM, "p02", sTo); ITSDb_SQLBind(ADOM, "p03", sStTm); ITSDb_SQLBind(ADOM, "p04", sEdTm); ITSDb_SQLOpen(ADOM); ShowRecordCount(ADOM->RecordCount); } catch(EDatabaseError &E) { ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2); DBERRORMSG(Caption, 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(Caption, String(exception.ClassName()), exception.Message, sQry); throw Exception(String(exception.ClassName()) + exception.Message); } } //--------------------------------------------------------------------------- /* * 월별 년 통계 데이터 조회/출력 * arguments * * return * void */ void __fastcall TVDSS020M::DispYearStatistics() { #if 0 String sQry = ""; String sYYYY; String sTmp; int ii; sYYYY = DtYear->Date.FormatString("yyyy"); String sQry1 = ""; sQry1 = "SELECT LY.ARTERYID, LY.ARTERYNAME, LY.DIRECTION, LY.DIRECTIONNAME, LY.ARTERYLENGTH, LX.TRFTYPE, \r\n" " DECODE(LX.ARTERYID, NULL, '-', DECODE(TTM, 0, '-', ROUND(TLL*3.6/TTM, 0))) AS ARTERYSPD, \r\n"; int nLoops = 13; for (ii = 1; ii < nLoops; ii++) { sTmp = ""; sTmp.printf(L" DECODE(LX.ARTERYID, NULL, '-', DECODE(T%02d, 0, '-', ROUND(L%02d*3.6/T%02d, 0))) AS C%02d ", ii, ii, ii, ii); if (ii == nLoops-1) sTmp += " \r\n"; else sTmp += ",\r\n"; sQry1 += sTmp; } String sQry2 = ""; sQry2 = " FROM (SELECT GROUPING(ARTERYID) AS GROUPING_ARTERYID, GROUPING(DIRECTION) AS GROUPING_DIRECTION, \r\n" " GROUPING(TRFTYPE) AS GROUPING_TRFTYPE, \r\n" " CASE WHEN GROUPING(ARTERYID ) = 1 THEN '도로' ELSE ARTERYID END AS GROUP_ARTERYID, \r\n" " CASE WHEN GROUPING(DIRECTION) = 1 THEN '방향' ELSE DIRECTION END AS GROUP_DIRECTION, \r\n" " CASE WHEN GROUPING(TRFTYPE) = 1 THEN '소계' ELSE TRFTYPE END AS GROUP_TRFTYPE, \r\n" " ARTERYID, DIRECTION, TRFTYPE, \r\n" " SUM(DECODE(TRVTM, NULL, 0, LINKLEN)) TLL, \r\n" " SUM(DECODE(TRVTM, NULL, 0, TRVTM )) TTM, \r\n"; for (ii = 0; ii < nLoops; ii++) { sTmp = ""; sTmp.printf(L" SUM(DECODE(STATMON, '%02d', DECODE(TRVTM, NULL, 0, TRVTM), 0)) AS T%02d, \r\n" " SUM(DECODE(STATMON, '%02d', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L%02d", ii, ii, ii, ii); if (ii == nLoops-1) sTmp += " \r\n"; else sTmp += ",\r\n"; sQry2 += sTmp; } String sQry3 = 0; sQry3 = " FROM ( \r\n"; int nBinds = 0; int nColCnt = CbStatCfg->Items->Count; for (ii = 0; ii < nColCnt; ii++) { TObjStat *pObj = (TObjStat *)GetStatObject(CbStatCfg, ii); if (NULL == pObj) continue; sTmp = ""; sTmp.printf(L" SELECT Y.ARTERYID, Y.ARTERYNAME, Y.DIRECTION, Y.ARTERYLEN, X.TRFTYPE, \r\n" " Y.LINKID, Y.LINKLEN, X.STATMON, X.SPD, X.TRVTM \r\n" " FROM (SELECT /*+ INDEX(A %s) */ \r\n" " '%s' AS TRFTYPE, \r\n" " A.LINKID, A.STATMON, A.AVGSPD AS SPD, A.AVGTRVTM AS TRVTM \r\n" " FROM %s A \r\n" " WHERE A.STATYEAR = :f%d) X, \r\n" " (SELECT A.ARTERYID, B.ARTERYNAME, A.DIRECTION, B.ARTERYTYPE, \r\n" " DECODE(A.DIRECTION, '0', B.UPLENGTH, B.DNLENGTH) AS ARTERYLEN, \r\n" " C.LENGTH AS LINKLEN, C.LINKID, A.LINKSEQ \r\n" " FROM TB_MP_ARTERY_LINK A, TB_MS_ARTERY B, TB_MS_LINK C \r\n" " WHERE A.LINKLEVEL = :l%d \r\n" " AND A.ARTERYID = B.ARTERYID \r\n" " AND B.IMPYN = 'Y' \r\n" " AND A.LINKID = C.LINKID) Y \r\n" " WHERE Y.LINKID = X.LINKID \r\n", pObj->m_sIdx[enStatMon].c_str(), pObj->m_sStatDesc.c_str(), pObj->m_sTbl[enStatMon].c_str(), nBinds, nBinds); sQry3 += sTmp; if (ii != (nColCnt-1)) { TObjStat *pObj = (TObjStat *)GetStatObject(CbStatCfg, ii+1); if (NULL != pObj) { sQry3 += " UNION ALL \r\n"; } } nBinds++; } String sQry4 = ""; sQry4 = " ) \r\n" " GROUP BY ROLLUP (ARTERYID, DIRECTION, TRFTYPE) \r\n" " HAVING GROUPING(TRFTYPE) = 0) LX, \r\n" " (SELECT ARTERYID, DIRECTION, DIRECTIONNAME, \r\n" " ARTERYNAME, ARTERYLENGTH, ARTERYTYPE \r\n" " FROM VW_MS_ARTERY ) LY \r\n" " WHERE LY.ARTERYID = LX.ARTERYID(+) \r\n" " AND LY.DIRECTION = LX.DIRECTION(+) \r\n" " ORDER BY LY.ARTERYNAME, LY.DIRECTION, LX.TRFTYPE \r\n"; sQry = sQry1 + sQry2 + sQry3 + sQry4; try { ITSDb_SQLText(ADOY, sQry); for (ii = 0; ii < nBinds; ii++) { sTmp = ""; sTmp.printf(L"f%d", ii); ITSDb_SQLBind(ADOY, sTmp, sYYYY); sTmp = ""; sTmp.printf(L"l%d", ii); ITSDb_SQLBind(ADOY, sTmp, m_sLinkLevel); } ITSDb_SQLOpen(ADOY); ShowRecordCount(ADOY->RecordCount); } catch(EDatabaseError &E) { ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2); DBERRORMSG(Caption, 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(Caption, String(exception.ClassName()), exception.Message, sQry); throw Exception(String(exception.ClassName()) + exception.Message); } #endif } //--------------------------------------------------------------------------- /* * 조회결과 데이터 건수 표출 * arguments * * return * void */ void __fastcall TVDSS020M::ShowRecordCount(int nRecCnt) { // } //--------------------------------------------------------------------------- /* * Summary Footer style set * arguments * * return * void */ void __fastcall TVDSS020M::TvListDataControllerSummaryFooterSummaryItemsSummary(TcxDataSummaryItems *ASender, TcxSummaryEventArguments &Arguments, TcxSummaryEventOutArguments &OutArguments) { CMM_SetSummaryItemKind(Arguments, OutArguments, 2, false, false); } //--------------------------------------------------------------------------- /* * Summary Footer style set * arguments * * return * void */ void __fastcall TVDSS020M::TvListDataControllerSummaryDefaultGroupSummaryItemsSummary(TcxDataSummaryItems *ASender, TcxSummaryEventArguments &Arguments, TcxSummaryEventOutArguments &OutArguments) { CMM_SetSummaryItemKind(Arguments, OutArguments, 1, false, false); } //--------------------------------------------------------------------------- /* * Close 버튼 클릭 이벤트 핸들러 * arguments * Sender : event handler 객체 * return * void */ void __fastcall TVDSS020M::BtnCloseClick(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TVDSS020M::vDayColumnCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone) { TColor tColor = ACanvas->Brush->Color; try { if (!VarIsNull(AViewInfo->Value)) { String sSpd = AViewInfo->Value; if (sSpd == NULL || sSpd.IsEmpty() || sSpd == "0" || sSpd == "-") { tColor = clFuchsia; } } else { tColor = clFuchsia; } ACanvas->Font->Color = clBlack; ACanvas->SetBrushColor(tColor); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TVDSS020M::FormClose(TObject *Sender, TCloseAction &Action) { CommClose(); VDSS020M = NULL; Action = caFree; } //---------------------------------------------------------------------------