ITS_OP/SRC/PLUGIN/04.STATISTICAL-ANALYSIS/IST0080M/IST0080MF.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "ITSDbF.h"
#include "AppGlobalF.h"
#include "ITSLangTransF.h"
#include "ITS_OPLibF.h"
#pragma hdrstop

#include "IST0080MF.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 link "dxSkinMcSkin"
#pragma resource "*.dfm"

TIST0080M *IST0080M = NULL;

//---------------------------------------------------------------------------
__fastcall TIST0080M::TIST0080M(TComponent* Owner)
	: TForm(Owner)
{
    LangTrans->Translate(this, ITSDb_GetConnection());
    ITSSkin_Load(this);
    LoadLocalSkin();
    CMM_LoadForm(g_sFormsDir, this);

    FTitle = Caption;//"간선도로 통계";

    LoadConfig();
    m_sLinkLevel = "1";

    MyItsAtrdManager = new TItsAtrdManager();
    MyItsAtrdManager->LoadFromDb();
    MyItsAtrdManager->LoadAtrdLength();
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::LoadConfig()
{
    m_sFooterRight = "";//GetConfigValue("APPLICATION", "REPORTRIGHT", "");
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::LoadLocalSkin()
{
    /*
    *  스킨 변경
    */
    PgQuery->ParentColor = true;
    TsDay->ParentColor = true;
    TsMon->ParentColor = true;
    TsYear->ParentColor = true;
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::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("", lblText1->Caption, lblText4->Caption);//"시간", "평균속도");
            break;
        case 1:
            m_pFrmChart[ii]->Parent = PnlMonGraph;
            m_pFrmChart[ii]->SetChartInfo("", lblText2->Caption, lblText4->Caption);//"일", "평균속도");
            break;
        case 2:
            m_pFrmChart[ii]->Parent = PnlYearGraph;
            m_pFrmChart[ii]->SetChartInfo("", lblText3->Caption, lblText4->Caption);//"월", "평균속도");
            break;
        }
        m_pFrmChart[ii]->Show();
    }

    PgList->HideTabs = true;
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::FormShow(TObject *Sender)
{
    PgList->ActivePageIndex = 0;
    PgQuery->ActivePageIndex= 0;

    //DMMain->InsertListHeaderMenuItem(CxDay, (TcxGridDBTableView*)TvDay);

    // form 초기화
    FormInit();
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::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 = NULL;
    TvMon->DataController->DataSource = NULL;
    TvYear->DataController->DataSource = NULL;

    TvDay->DataController->DataSource = DSD;
    TvMon->DataController->DataSource = DSM;
    TvYear->DataController->DataSource = DSY;

    //FillStatComboBox(CbStatCfg, "IST0810M");
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::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(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::TmrRefreshTimer(TObject *Sender)
{
	TmrRefresh->Enabled = false;
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::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;
    }
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::BtnGraphClick(TObject *Sender)
{
    // 차트를 다른 창에서 보여줘야 할 경우 Frm1121100_1F.cpp 내 소스 참조
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::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;
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::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);
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::BtnSearchClick(TObject *Sender)
{
    Application->ProcessMessages();
    TSqlCursor sqlCrs((TControl*)BtnSearch);

    m_sLinkLevel = CbLinkLevel->Text;
    Application->ProcessMessages();
	RefreshData();
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::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;//" 건";

        DrawChart(sBandText);

        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);
    }
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::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]->DrawChart5((TcxGridDBTableView *)pView, nAxisY1, nAxisY2, nAxisY3, nStColIdx, nEdColIdx, nTotColIdx);
        m_pFrmChart[PgQuery->ActivePageIndex]->EndDraw();
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::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.ARTERYID, LY.ARTERYNAME, LY.DIRECTION, LY.DIRECTIONNAME, LY.ARTERYLENGHT, LX.TRFTYPE,     \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(TTM, 0, '-', ROUND(TLL*3.6/TTM, 0))) AS ARTERYSPD,     \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T00, 0, '-', ROUND(L00*3.6/T00, 0))) AS C00,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T01, 0, '-', ROUND(L01*3.6/T01, 0))) AS C01,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T02, 0, '-', ROUND(L02*3.6/T02, 0))) AS C02,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T03, 0, '-', ROUND(L03*3.6/T03, 0))) AS C03,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T04, 0, '-', ROUND(L04*3.6/T04, 0))) AS C04,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T05, 0, '-', ROUND(L05*3.6/T05, 0))) AS C05,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T06, 0, '-', ROUND(L06*3.6/T06, 0))) AS C06,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T07, 0, '-', ROUND(L07*3.6/T07, 0))) AS C07,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T08, 0, '-', ROUND(L08*3.6/T08, 0))) AS C08,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T09, 0, '-', ROUND(L09*3.6/T09, 0))) AS C09,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T10, 0, '-', ROUND(L10*3.6/T10, 0))) AS C10,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T11, 0, '-', ROUND(L11*3.6/T11, 0))) AS C11,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T12, 0, '-', ROUND(L12*3.6/T12, 0))) AS C12,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T13, 0, '-', ROUND(L13*3.6/T13, 0))) AS C13,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T14, 0, '-', ROUND(L14*3.6/T14, 0))) AS C14,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T15, 0, '-', ROUND(L15*3.6/T15, 0))) AS C15,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T16, 0, '-', ROUND(L16*3.6/T16, 0))) AS C16,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T17, 0, '-', ROUND(L17*3.6/T17, 0))) AS C17,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T18, 0, '-', ROUND(L18*3.6/T18, 0))) AS C18,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T19, 0, '-', ROUND(L19*3.6/T19, 0))) AS C19,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T20, 0, '-', ROUND(L20*3.6/T20, 0))) AS C20,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T21, 0, '-', ROUND(L21*3.6/T21, 0))) AS C21,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T22, 0, '-', ROUND(L22*3.6/T22, 0))) AS C22,           \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T23, 0, '-', ROUND(L23*3.6/T23, 0))) AS C23            \r\n"
"  FROM (                                                                                            \r\n"
"SELECT GROUPING(ARTERYID)  AS GROUPING_ARTERYID,                                                    \r\n"
"               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"
"               SUM(DECODE(STATHOUR, '00', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T00,              \r\n"
"               SUM(DECODE(STATHOUR, '00', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L00,              \r\n"
"               SUM(DECODE(STATHOUR, '01', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T01,              \r\n"
"               SUM(DECODE(STATHOUR, '01', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L01,              \r\n"
"               SUM(DECODE(STATHOUR, '02', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T02,              \r\n"
"               SUM(DECODE(STATHOUR, '02', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L02,              \r\n"
"               SUM(DECODE(STATHOUR, '03', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T03,              \r\n"
"               SUM(DECODE(STATHOUR, '03', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L03,              \r\n"
"               SUM(DECODE(STATHOUR, '04', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T04,              \r\n"
"               SUM(DECODE(STATHOUR, '04', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L04,              \r\n"
"               SUM(DECODE(STATHOUR, '05', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T05,              \r\n"
"               SUM(DECODE(STATHOUR, '05', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L05,              \r\n"
"               SUM(DECODE(STATHOUR, '06', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T06,              \r\n"
"               SUM(DECODE(STATHOUR, '06', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L06,              \r\n"
"               SUM(DECODE(STATHOUR, '07', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T07,              \r\n"
"               SUM(DECODE(STATHOUR, '07', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L07,              \r\n"
"               SUM(DECODE(STATHOUR, '08', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T08,              \r\n"
"               SUM(DECODE(STATHOUR, '08', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L08,              \r\n"
"               SUM(DECODE(STATHOUR, '09', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T09,              \r\n"
"               SUM(DECODE(STATHOUR, '09', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L09,              \r\n"
"               SUM(DECODE(STATHOUR, '10', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T10,              \r\n"
"               SUM(DECODE(STATHOUR, '10', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L10,              \r\n"
"               SUM(DECODE(STATHOUR, '11', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T11,              \r\n"
"               SUM(DECODE(STATHOUR, '11', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L11,              \r\n"
"               SUM(DECODE(STATHOUR, '12', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T12,              \r\n"
"               SUM(DECODE(STATHOUR, '12', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L12,              \r\n"
"               SUM(DECODE(STATHOUR, '13', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T13,              \r\n"
"               SUM(DECODE(STATHOUR, '13', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L13,              \r\n"
"               SUM(DECODE(STATHOUR, '14', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T14,              \r\n"
"               SUM(DECODE(STATHOUR, '14', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L14,              \r\n"
"               SUM(DECODE(STATHOUR, '15', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T15,              \r\n"
"               SUM(DECODE(STATHOUR, '15', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L15,              \r\n"
"               SUM(DECODE(STATHOUR, '16', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T16,              \r\n"
"               SUM(DECODE(STATHOUR, '16', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L16,              \r\n"
"               SUM(DECODE(STATHOUR, '17', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T17,              \r\n"
"               SUM(DECODE(STATHOUR, '17', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L17,              \r\n"
"               SUM(DECODE(STATHOUR, '18', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T18,              \r\n"
"               SUM(DECODE(STATHOUR, '18', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L18,              \r\n"
"               SUM(DECODE(STATHOUR, '19', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T19,              \r\n"
"               SUM(DECODE(STATHOUR, '19', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L19,              \r\n"
"               SUM(DECODE(STATHOUR, '20', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T20,              \r\n"
"               SUM(DECODE(STATHOUR, '20', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L20,              \r\n"
"               SUM(DECODE(STATHOUR, '21', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T21,              \r\n"
"               SUM(DECODE(STATHOUR, '21', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L21,              \r\n"
"               SUM(DECODE(STATHOUR, '22', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T22,              \r\n"
"               SUM(DECODE(STATHOUR, '22', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L22,              \r\n"
"               SUM(DECODE(STATHOUR, '23', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T23,              \r\n"
"               SUM(DECODE(STATHOUR, '23', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L23               \r\n"
"          FROM (                                                                                    \r\n"
"SELECT Y.ARTERYID, Y.ARTERYNAME, Y.DIRECTION, Y.ARTERYLEN, X.TRFTYPE,                               \r\n"
"       Y.LINKID, Y.LINKLEN, X.STATHOUR, X.SPD, X.TRVTM                                              \r\n"
"  FROM (SELECT /*+ INDEX(A PK_ROAD_HH_STAT) */                                                      \r\n"
"               'FSN' AS TRFTYPE,                                                                    \r\n"
"               B.ATRD_ID AS ARTERYID, A.ROAD_ID AS LINKID, C.SECT_LNGT AS LINKLEN,                  \r\n"
"               SUBSTR(A.STAT_DT, 9, 2) AS STATHOUR, A.SPED AS SPD, A.TRVL_HH AS TRVTM               \r\n"
"          FROM TB_ROAD_HH_STAT A, TB_ATRD_RLTN_ROAD B, TB_ROAD C                                    \r\n"
"         WHERE 1=1                                                                                  \r\n"
"           AND A.STAT_DT BETWEEN :p01 AND :p02                                                      \r\n"
"           AND A.ROAD_ID = B.ROAD_ID                                                                \r\n"
"           AND B.ROAD_ID = C.ROAD_ID                                                                \r\n"
"       ) X,                                                                                         \r\n"
"       VW_ATRD_RLTN_ROAD Y                                                                          \r\n"
" WHERE Y.LINKID = X.LINKID                                                                          \r\n"
")                                                                                                   \r\n"
"          GROUP BY ROLLUP (ARTERYID, DIRECTION, TRFTYPE)                                            \r\n"
"         HAVING GROUPING(TRFTYPE) = 0) LX,                                                          \r\n"
"       VW_ATRD 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";

    try
    {
#if 1
        ITSDb_SQLText(ADOD, sQry, false);
        ADOD->CursorType = ctOpenForwardOnly;
        ADOD->LockType   = ltReadOnly;

        ITSDb_SQLBind(ADOD, "p01", sFrom);
        ITSDb_SQLBind(ADOD, "p02", sTo);

        ITSDb_SQLOpen(ADOD);

        ShowRecordCount(ADOD->RecordCount);
#else
        ADOD->Close();
        ADOD->SQL->Text = sQry;
        ADOD->CursorType = ctOpenForwardOnly;
        ADOD->LockType   = ltReadOnly;
        //ADOD->DisableControls();
        ADOD->Prepared = true;
        ADOD->Parameters->ParamByName("p01")->Value = sFrom;
        ADOD->Parameters->ParamByName("p02")->Value = sTo;
        ADOD->Open();
        ADOD->First();
#endif
    }
    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);
    }
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::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.ARTERYID, LY.ARTERYNAME, LY.DIRECTION, LY.DIRECTIONNAME, LY.ARTERYLENGHT, LX.TRFTYPE,      \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(TTM, 0, '-', ROUND(TLL*3.6/TTM, 0))) AS ARTERYSPD,      \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T01, 0, '-', ROUND(L01*3.6/T01, 0))) AS C01,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T02, 0, '-', ROUND(L02*3.6/T02, 0))) AS C02,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T03, 0, '-', ROUND(L03*3.6/T03, 0))) AS C03,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T04, 0, '-', ROUND(L04*3.6/T04, 0))) AS C04,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T05, 0, '-', ROUND(L05*3.6/T05, 0))) AS C05,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T06, 0, '-', ROUND(L06*3.6/T06, 0))) AS C06,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T07, 0, '-', ROUND(L07*3.6/T07, 0))) AS C07,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T08, 0, '-', ROUND(L08*3.6/T08, 0))) AS C08,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T09, 0, '-', ROUND(L09*3.6/T09, 0))) AS C09,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T10, 0, '-', ROUND(L10*3.6/T10, 0))) AS C10,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T11, 0, '-', ROUND(L11*3.6/T11, 0))) AS C11,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T12, 0, '-', ROUND(L12*3.6/T12, 0))) AS C12,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T13, 0, '-', ROUND(L13*3.6/T13, 0))) AS C13,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T14, 0, '-', ROUND(L14*3.6/T14, 0))) AS C14,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T15, 0, '-', ROUND(L15*3.6/T15, 0))) AS C15,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T16, 0, '-', ROUND(L16*3.6/T16, 0))) AS C16,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T17, 0, '-', ROUND(L17*3.6/T17, 0))) AS C17,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T18, 0, '-', ROUND(L18*3.6/T18, 0))) AS C18,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T19, 0, '-', ROUND(L19*3.6/T19, 0))) AS C19,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T20, 0, '-', ROUND(L20*3.6/T20, 0))) AS C20,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T21, 0, '-', ROUND(L21*3.6/T21, 0))) AS C21,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T22, 0, '-', ROUND(L22*3.6/T22, 0))) AS C22,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T23, 0, '-', ROUND(L23*3.6/T23, 0))) AS C23,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T24, 0, '-', ROUND(L24*3.6/T24, 0))) AS C24,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T25, 0, '-', ROUND(L25*3.6/T25, 0))) AS C25,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T26, 0, '-', ROUND(L26*3.6/T26, 0))) AS C26,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T27, 0, '-', ROUND(L27*3.6/T27, 0))) AS C27,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T28, 0, '-', ROUND(L28*3.6/T28, 0))) AS C28,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T29, 0, '-', ROUND(L29*3.6/T29, 0))) AS C29,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T30, 0, '-', ROUND(L30*3.6/T30, 0))) AS C30,            \r\n"
"       DECODE(LX.ARTERYID, NULL, '-', DECODE(T31, 0, '-', ROUND(L31*3.6/T31, 0))) AS C31             \r\n"
"  FROM (                                                                                             \r\n"
"SELECT GROUPING(ARTERYID)  AS GROUPING_ARTERYID,                                                     \r\n"
"               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"
"               SUM(DECODE(STATDAY, '01', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T01,                \r\n"
"               SUM(DECODE(STATDAY, '01', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L01,                \r\n"
"               SUM(DECODE(STATDAY, '02', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T02,                \r\n"
"               SUM(DECODE(STATDAY, '02', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L02,                \r\n"
"               SUM(DECODE(STATDAY, '03', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T03,                \r\n"
"               SUM(DECODE(STATDAY, '03', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L03,                \r\n"
"               SUM(DECODE(STATDAY, '04', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T04,                \r\n"
"               SUM(DECODE(STATDAY, '04', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L04,                \r\n"
"               SUM(DECODE(STATDAY, '05', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T05,                \r\n"
"               SUM(DECODE(STATDAY, '05', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L05,                \r\n"
"               SUM(DECODE(STATDAY, '06', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T06,                \r\n"
"               SUM(DECODE(STATDAY, '06', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L06,                \r\n"
"               SUM(DECODE(STATDAY, '07', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T07,                \r\n"
"               SUM(DECODE(STATDAY, '07', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L07,                \r\n"
"               SUM(DECODE(STATDAY, '08', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T08,                \r\n"
"               SUM(DECODE(STATDAY, '08', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L08,                \r\n"
"               SUM(DECODE(STATDAY, '09', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T09,                \r\n"
"               SUM(DECODE(STATDAY, '09', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L09,                \r\n"
"               SUM(DECODE(STATDAY, '10', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T10,                \r\n"
"               SUM(DECODE(STATDAY, '10', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L10,                \r\n"
"               SUM(DECODE(STATDAY, '11', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T11,                \r\n"
"               SUM(DECODE(STATDAY, '11', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L11,                \r\n"
"               SUM(DECODE(STATDAY, '12', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T12,                \r\n"
"               SUM(DECODE(STATDAY, '12', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L12,                \r\n"
"               SUM(DECODE(STATDAY, '13', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T13,                \r\n"
"               SUM(DECODE(STATDAY, '13', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L13,                \r\n"
"               SUM(DECODE(STATDAY, '14', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T14,                \r\n"
"               SUM(DECODE(STATDAY, '14', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L14,                \r\n"
"               SUM(DECODE(STATDAY, '15', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T15,                \r\n"
"               SUM(DECODE(STATDAY, '15', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L15,                \r\n"
"               SUM(DECODE(STATDAY, '16', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T16,                \r\n"
"               SUM(DECODE(STATDAY, '16', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L16,                \r\n"
"               SUM(DECODE(STATDAY, '17', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T17,                \r\n"
"               SUM(DECODE(STATDAY, '17', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L17,                \r\n"
"               SUM(DECODE(STATDAY, '18', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T18,                \r\n"
"               SUM(DECODE(STATDAY, '18', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L18,                \r\n"
"               SUM(DECODE(STATDAY, '19', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T19,                \r\n"
"               SUM(DECODE(STATDAY, '19', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L19,                \r\n"
"               SUM(DECODE(STATDAY, '20', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T20,                \r\n"
"               SUM(DECODE(STATDAY, '20', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L20,                \r\n"
"               SUM(DECODE(STATDAY, '21', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T21,                \r\n"
"               SUM(DECODE(STATDAY, '21', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L21,                \r\n"
"               SUM(DECODE(STATDAY, '22', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T22,                \r\n"
"               SUM(DECODE(STATDAY, '22', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L22,                \r\n"
"               SUM(DECODE(STATDAY, '23', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T23,                \r\n"
"               SUM(DECODE(STATDAY, '23', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L23,                \r\n"
"               SUM(DECODE(STATDAY, '24', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T24,                \r\n"
"               SUM(DECODE(STATDAY, '24', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L24,                \r\n"
"               SUM(DECODE(STATDAY, '25', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T25,                \r\n"
"               SUM(DECODE(STATDAY, '25', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L25,                \r\n"
"               SUM(DECODE(STATDAY, '26', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T26,                \r\n"
"               SUM(DECODE(STATDAY, '26', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L26,                \r\n"
"               SUM(DECODE(STATDAY, '27', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T27,                \r\n"
"               SUM(DECODE(STATDAY, '27', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L27,                \r\n"
"               SUM(DECODE(STATDAY, '28', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T28,                \r\n"
"               SUM(DECODE(STATDAY, '28', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L28,                \r\n"
"               SUM(DECODE(STATDAY, '29', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T29,                \r\n"
"               SUM(DECODE(STATDAY, '29', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L29,                \r\n"
"               SUM(DECODE(STATDAY, '30', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T30,                \r\n"
"               SUM(DECODE(STATDAY, '30', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L30,                \r\n"
"               SUM(DECODE(STATDAY, '31', DECODE(TRVTM, NULL, 0, TRVTM),   0)) AS T31,                \r\n"
"               SUM(DECODE(STATDAY, '31', DECODE(TRVTM, NULL, 0, LINKLEN), 0)) AS L31                 \r\n"
"          FROM (                                                                                     \r\n"
"SELECT Y.ARTERYID, Y.ARTERYNAME, Y.DIRECTION, Y.ARTERYLEN, X.TRFTYPE,                                \r\n"
"       Y.LINKID, Y.LINKLEN, X.STATDAY, X.SPD, X.TRVTM                                                \r\n"
"  FROM (SELECT /*+ INDEX(A PK_ROAD_15M_STAT) */                                                      \r\n"
"               'FSN' AS TRFTYPE,                                                                     \r\n"
"               B.ATRD_ID AS ARTERYID, A.ROAD_ID AS LINKID, C.SECT_LNGT AS LINKLEN,                   \r\n"
"               SUBSTR(A.STAT_DT, 7, 2) AS STATDAY, A.SPED AS SPD, A.TRVL_HH AS TRVTM                 \r\n"
"          FROM TB_ROAD_15M_STAT A, TB_ATRD_RLTN_ROAD B, TB_ROAD C                                    \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"
"           AND A.ROAD_ID = B.ROAD_ID                                                                 \r\n"
"           AND B.ROAD_ID = C.ROAD_ID                                                                 \r\n"
"       ) X,                                                                                          \r\n"
"       VW_ATRD_RLTN_ROAD Y                                                                           \r\n"
" WHERE Y.LINKID = X.LINKID                                                                           \r\n"
")                                                                                                    \r\n"
"          GROUP BY ROLLUP (ARTERYID, DIRECTION, TRFTYPE)                                             \r\n"
"         HAVING GROUPING(TRFTYPE) = 0) LX,                                                           \r\n"
"       VW_ATRD 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";

    try
    {
        ITSDb_SQLText(ADOM, sQry, false);
        ADOM->CursorType = ctOpenForwardOnly;
        ADOM->LockType   = ltReadOnly;

        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 &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);
    }
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::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, false);
        ADOY->CursorType = ctOpenForwardOnly;
        ADOY->LockType   = ltReadOnly;

        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 &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);
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::ShowRecordCount(int nRecCnt)
{
    //
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::TvListDataControllerSummaryFooterSummaryItemsSummary(TcxDataSummaryItems *ASender, TcxSummaryEventArguments &Arguments,
          TcxSummaryEventOutArguments &OutArguments)
{
    CMM_SetSummaryItemKind(Arguments, OutArguments, 2, false, false);
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::TvListDataControllerSummaryDefaultGroupSummaryItemsSummary(TcxDataSummaryItems *ASender, TcxSummaryEventArguments &Arguments,
          TcxSummaryEventOutArguments &OutArguments)
{
    CMM_SetSummaryItemKind(Arguments, OutArguments, 1, false, false);
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::BtnCloseClick(TObject *Sender)
{
    Close();    
}
//---------------------------------------------------------------------------

void __fastcall TIST0080M::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 TIST0080M::FormClose(TObject *Sender, TCloseAction &Action)
{
    CommClose();
    IST0080M = NULL;
    Action = caFree;
}
//---------------------------------------------------------------------------