ITS_OP/SRC/PLUGIN/13.TRAFFIC-ANALYSIS-SUPPORT/TAS0020M/TAS00201F.cpp

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

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

#include "TAS00201F.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxCheckBox"
#pragma link "cxClasses"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridBandedTableView"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxSplitter"
#pragma link "cxStyles"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinMcSkin"
#pragma resource "*.dfm"

TTAS00201 *TAS00201 = NULL;

//---------------------------------------------------------------------------
__fastcall TTAS00201::TTAS00201(TComponent* Owner, HWND hHandle,
                                String AAtrdId, String AAtrdNm, String AQryDay, String APtrnWeek, String APtrnWeekName)
    : TForm(Owner)
{           
    LangTrans->Translate(this, ITSDb_GetConnection());
    ITSSkin_Load(this);
    CMM_LoadForm(g_sFormsDir, this);

    FParent      = hHandle;

    FAtrdId       = AAtrdId;
    FAtrdNm       = AAtrdNm;
	FQryDay       = AQryDay;
    FPtrnWeek     = APtrnWeek;
    FPtrnWeekName = APtrnWeekName;
}
//---------------------------------------------------------------------------
__fastcall TTAS00201::~TTAS00201(void)
{
}
//--------------------------------------------------------------------------

void __fastcall TTAS00201::FormInit()
{
    ADOQry->Connection = ITSDb_GetConnection();
    m_pGDC = TvList->DataController;

    TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<교통패턴분석 정보>";

    LblSearch->Caption = FrmLang->lblQryCond->Caption + FAtrdNm + " " + FQryDay + " " + FPtrnWeekName;
}
//---------------------------------------------------------------------------

void __fastcall TTAS00201::FormShow(TObject *Sender)
{
    FormInit();
    Refresh();
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TTAS00201::CommClose()
{
    CMM_SaveForm(g_sFormsDir, this);
    //TAS00201 = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TTAS00201::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false; 
    Application->ProcessMessages();
    SelHistory();
}
//---------------------------------------------------------------------------

void __fastcall TTAS00201::ChkExpandClick(TObject *Sender)
{
    CMM_ExpandCollapseChk(TvList, ChkExpand->Checked);
}
//---------------------------------------------------------------------------

void __fastcall TTAS00201::SelHistory()
{
    TSqlCursor sqlCrs;

    String sQry;
    TADOQuery *pADO = ADOQry;

    sQry =
    "SELECT L.*, M.*, DECODE(L.DRCT_CD, '0', '상행', '하행') AS DRCT_CD_NM                                \r\n"
    "  FROM (SELECT X.ATRD_ID, X.ATRD_NM, X.DRCT_CD, X.DRCT_NM,                                           \r\n"
    "               Y.ROAD_ORD, Y.IFSC_ORD, Y.IFSC_ID, Y.IFSC_NM, Y.STRT_NM, Y.END_NM, Y.SECT_LNGT        \r\n"
    "          FROM TB_ATRD X,                                                                            \r\n"
    "               (SELECT A.ATRD_ID, A.ORD AS ROAD_ORD, A.ROAD_ID, B.IFSC_ID, B.ORD AS IFSC_ORD,        \r\n"
    "                       C.IFSC_NM, C.STRT_NM, C.END_NM, C.SECT_LNGT                                   \r\n"
    "                  FROM TB_ATRD_RLTN_ROAD A, TB_ROAD_RLTN_IFSC B, TB_IFSC C                           \r\n"
    "                 WHERE A.ROAD_ID = B.ROAD_ID                                                         \r\n"
    "                   AND B.IFSC_ID = C.IFSC_ID                                                         \r\n"
    "                   AND A.ATRD_ID IN (SELECT ATRD_ID FROM TB_ATRD WHERE TRIM(ATRD_NM) = :p01)         \r\n"
    "                ) Y                                                                                  \r\n"
    "         WHERE X.ATRD_ID = Y.ATRD_ID                                                                 \r\n"
    "           AND X.ATRD_ID IN (SELECT ATRD_ID FROM TB_ATRD WHERE TRIM(ATRD_NM) = :p02)                 \r\n"
    "       ) L,                                                                                          \r\n"
    "       (SELECT IFSC_ID AS IFSC_ID_H,                                                                 \r\n"
    "               SUM(DECODE(STAT_HM, '0000', DECODE(SPED, NULL,      0, SPED),      0)) AS S00,        \r\n"
    "               MAX(DECODE(STAT_HM, '0000', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G00,        \r\n"
    "               SUM(DECODE(STAT_HM, '0100', DECODE(SPED, NULL,      0, SPED),      0)) AS S01,        \r\n"
    "               MAX(DECODE(STAT_HM, '0100', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G01,        \r\n"
    "               SUM(DECODE(STAT_HM, '0200', DECODE(SPED, NULL,      0, SPED),      0)) AS S02,        \r\n"
    "               MAX(DECODE(STAT_HM, '0200', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G02,        \r\n"
    "               SUM(DECODE(STAT_HM, '0300', DECODE(SPED, NULL,      0, SPED),      0)) AS S03,        \r\n"
    "               MAX(DECODE(STAT_HM, '0300', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G03,        \r\n"
    "               SUM(DECODE(STAT_HM, '0400', DECODE(SPED, NULL,      0, SPED),      0)) AS S04,        \r\n"
    "               MAX(DECODE(STAT_HM, '0400', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G04,        \r\n"
    "               SUM(DECODE(STAT_HM, '0500', DECODE(SPED, NULL,      0, SPED),      0)) AS S05,        \r\n"
    "               MAX(DECODE(STAT_HM, '0500', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G05,        \r\n"
    "               SUM(DECODE(STAT_HM, '0600', DECODE(SPED, NULL,      0, SPED),      0)) AS S06,        \r\n"
    "               MAX(DECODE(STAT_HM, '0600', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G06,        \r\n"
    "               SUM(DECODE(STAT_HM, '0700', DECODE(SPED, NULL,      0, SPED),      0)) AS S07,        \r\n"
    "               MAX(DECODE(STAT_HM, '0700', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G07,        \r\n"
    "               SUM(DECODE(STAT_HM, '0800', DECODE(SPED, NULL,      0, SPED),      0)) AS S08,        \r\n"
    "               MAX(DECODE(STAT_HM, '0800', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G08,        \r\n"
    "               SUM(DECODE(STAT_HM, '0900', DECODE(SPED, NULL,      0, SPED),      0)) AS S09,        \r\n"
    "               MAX(DECODE(STAT_HM, '0900', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G09,        \r\n"
    "               SUM(DECODE(STAT_HM, '1000', DECODE(SPED, NULL,      0, SPED),      0)) AS S10,        \r\n"
    "               MAX(DECODE(STAT_HM, '1000', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G10,        \r\n"
    "               SUM(DECODE(STAT_HM, '1100', DECODE(SPED, NULL,      0, SPED),      0)) AS S11,        \r\n"
    "               MAX(DECODE(STAT_HM, '1100', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G11,        \r\n"
    "               SUM(DECODE(STAT_HM, '1200', DECODE(SPED, NULL,      0, SPED),      0)) AS S12,        \r\n"
    "               MAX(DECODE(STAT_HM, '1200', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G12,        \r\n"
    "               SUM(DECODE(STAT_HM, '1300', DECODE(SPED, NULL,      0, SPED),      0)) AS S13,        \r\n"
    "               MAX(DECODE(STAT_HM, '1300', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G13,        \r\n"
    "               SUM(DECODE(STAT_HM, '1400', DECODE(SPED, NULL,      0, SPED),      0)) AS S14,        \r\n"
    "               MAX(DECODE(STAT_HM, '1400', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G14,        \r\n"
    "               SUM(DECODE(STAT_HM, '1500', DECODE(SPED, NULL,      0, SPED),      0)) AS S15,        \r\n"
    "               MAX(DECODE(STAT_HM, '1500', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G15,        \r\n"
    "               SUM(DECODE(STAT_HM, '1600', DECODE(SPED, NULL,      0, SPED),      0)) AS S16,        \r\n"
    "               MAX(DECODE(STAT_HM, '1600', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G16,        \r\n"
    "               SUM(DECODE(STAT_HM, '1700', DECODE(SPED, NULL,      0, SPED),      0)) AS S17,        \r\n"
    "               MAX(DECODE(STAT_HM, '1700', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G17,        \r\n"
    "               SUM(DECODE(STAT_HM, '1800', DECODE(SPED, NULL,      0, SPED),      0)) AS S18,        \r\n"
    "               MAX(DECODE(STAT_HM, '1800', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G18,        \r\n"
    "               SUM(DECODE(STAT_HM, '1900', DECODE(SPED, NULL,      0, SPED),      0)) AS S19,        \r\n"
    "               MAX(DECODE(STAT_HM, '1900', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G19,        \r\n"
    "               SUM(DECODE(STAT_HM, '2000', DECODE(SPED, NULL,      0, SPED),      0)) AS S20,        \r\n"
    "               MAX(DECODE(STAT_HM, '2000', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G20,        \r\n"
    "               SUM(DECODE(STAT_HM, '2100', DECODE(SPED, NULL,      0, SPED),      0)) AS S21,        \r\n"
    "               MAX(DECODE(STAT_HM, '2100', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G21,        \r\n"
    "               SUM(DECODE(STAT_HM, '2200', DECODE(SPED, NULL,      0, SPED),      0)) AS S22,        \r\n"
    "               MAX(DECODE(STAT_HM, '2200', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G22,        \r\n"
    "               SUM(DECODE(STAT_HM, '2300', DECODE(SPED, NULL,      0, SPED),      0)) AS S23,        \r\n"
    "               MAX(DECODE(STAT_HM, '2300', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G23         \r\n"
    "          FROM (                                                                                     \r\n"
    "                SELECT A.IFSC_ID, A.STAT_HM, A.SPED, A.TRVL_HH,                                      \r\n"
    "                       NVL(B.CMTR_GRAD_CD, 'LTC0') AS GRAD                                           \r\n"
    "                  FROM TB_IFSC_HH_PTRN   A,                                                          \r\n"
    "                       TB_SECT_GRAD_STUP B,                                                          \r\n"
    "                       TB_IFSC           C                                                           \r\n"
    "                 WHERE A.STAT_YM     = :p03                                                          \r\n"
    "                   AND A.DAY_TYPE_CD = :p04                                                          \r\n"
    "                   AND A.IFSC_ID IN (SELECT B.IFSC_ID AS IFSC_ID                                     \r\n"
    "                                       FROM TB_ATRD_RLTN_ROAD A, TB_ROAD_RLTN_IFSC B, TB_IFSC C      \r\n"
    "                                      WHERE A.ROAD_ID = B.ROAD_ID                                    \r\n"
    "                                        AND B.IFSC_ID = C.IFSC_ID                                    \r\n"
    "                                        AND A.ATRD_ID  IN (SELECT ATRD_ID                            \r\n"
    "                                                            FROM TB_ATRD WHERE TRIM(ATRD_NM) = :p05) \r\n"
    "                                      GROUP BY B.IFSC_ID)                                            \r\n"
    "                   AND A.IFSC_ID      = C.IFSC_ID                                                    \r\n"
    "                   AND B.SECT_GRAD_CD = C.SECT_GRAD_CD                                               \r\n"
    "                   AND (A.SPED >= B.LWST_TRVL_SPED AND A.SPED <= B.HGHS_TRVL_SPED)                   \r\n"
    "               )                                                                                     \r\n"
    "         GROUP BY IFSC_ID                                                                            \r\n"
    "       ) M                                                                                           \r\n"
    " WHERE L.IFSC_ID = M.IFSC_ID_H(+)                                                                    \r\n"
    " ORDER BY L.ATRD_ID, L.DRCT_CD, L.ROAD_ORD, L.IFSC_ORD                                               \r\n";

    try
    {
        ITSDb_SQLText(pADO, sQry);
        ITSDb_SQLBind(pADO, "p01", FAtrdNm);
        ITSDb_SQLBind(pADO, "p02", FAtrdNm);
        ITSDb_SQLBind(pADO, "p03", FQryDay);
        ITSDb_SQLBind(pADO, "p04", FPtrnWeek);
        ITSDb_SQLBind(pADO, "p05", FAtrdNm);

        ITSDb_SQLOpen(pADO);

        DspHistory();
    }
    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 TTAS00201::DspHistory()
{
    TADOQuery *pADO = ADOQry;
    m_pGDC = TvList->DataController;

    try
    {
        CMM_ClearGridTableView(TvList);

        int nRow = 0;
        int nDataCnt = 0;
        try
        {
            TvList->BeginUpdate(lsimImmediate);

            nDataCnt = pADO->RecordCount;
            m_pGDC->RecordCount = nDataCnt;

            for( ; !pADO->Eof; pADO->Next(), nRow++)
            {
                m_pGDC->Values[nRow][Col01->Index] = pADO->FieldByName("ATRD_NM")->AsString;
                m_pGDC->Values[nRow][Col02->Index] = pADO->FieldByName("DRCT_CD_NM")->AsString;
                m_pGDC->Values[nRow][Col03->Index] = pADO->FieldByName("STRT_NM")->AsString + " → " + pADO->FieldByName("END_NM")->AsString;

                String sSped, sGrad;
                int nIdxSped, nIdxGrad;
                nIdxSped = ColSped->Index;
                nIdxGrad = ColGrad->Index;
                for (int ii = 0; ii < 24; ii++)
                {
                    sSped.printf(L"S%02d", ii);
                    sGrad.printf(L"G%02d", ii);

                    m_pGDC->Values[nRow][nIdxSped++] = pADO->FieldByName(sSped)->AsString;
                    m_pGDC->Values[nRow][nIdxGrad++] = pADO->FieldByName(sGrad)->AsString;
                }
            }
        }
        __finally
        {
            if (pADO)
            {
                pADO->Close();
            }

            TvList->EndUpdate();
            //CxList->SetFocus();

            DrawChart(FAtrdNm + " " + FQryDay + " " + FPtrnWeekName);

            LblRecords->Caption = FormatFloat("##,##0", m_pGDC->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);
        }
    }
    catch(EDatabaseError &E)
    {
        ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
        DBERRORMSG(Caption, String(E.ClassName()), E.Message, pADO->SQL->Text);
        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, pADO->SQL->Text);
        throw Exception(String(e.ClassName()) + e.Message);
    }
}
//---------------------------------------------------------------------------

void __fastcall TTAS00201::DrawChart(String ATitle)
{
    TcxGridBandedTableView *pView = NULL;
    String                  sAxisX, sAxisY;
    int   nAxisY1, nAxisY2, nStColIdx, nEdColIdx, nTotColIdx;

    nEdColIdx = 0;
    nTotColIdx = -1;

    pView   = TvList;
    nAxisY1 = Col03->Index;         //구간명
    nAxisY2 = Col02->Index;         //방향
    nEdColIdx = TvListColumn29->Index;  // 23시
    nStColIdx = ColSped->Index;         // 00시

    /*
    *  Chart draw
    */
    try
    {
        m_pFrmChart->Clear();
        if (pView->DataController->RecordCount == 0)
        {
            return;
        }

        m_pFrmChart->BeginDraw("", "", "");
        m_pFrmChart->DrawChart5_1((TcxGridTableView *)pView, nAxisY1, nAxisY2, nStColIdx, nEdColIdx, nTotColIdx);
        m_pFrmChart->EndDraw();
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TTAS00201::OnMessage(TMessage &Msg)
{
    switch (Msg.Msg)
    {
    case WM_PARAM_DATABASE:
        if (WP_DB_SELECT_OK == Msg.WParam)
        {
            //ShowMessage("Select Ok");
        }
        break;
    }
}
//---------------------------------------------------------------------------

void __fastcall TTAS00201::BtnExlSaveClick(TObject *Sender)
{
    TcxGrid          *pGrid = CxList;
    TcxGridTableView *pView = TvList;
    String            sTitle= Caption;//"교통패턴분석";

    CMM_ExportToExcelFile(sTitle, pGrid, pView, this);
}
//---------------------------------------------------------------------------

void __fastcall TTAS00201::FormClose(TObject *Sender, TCloseAction &Action)
{
    POST_MSG(FParent, WM_SUBFORM_CLOSE, 0, 0);
    CommClose();
    //TAS00201 = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TTAS00201::FormDestroy(TObject *Sender)
{
    CommClose();
}
//---------------------------------------------------------------------------

void __fastcall TTAS00201::FormCreate(TObject *Sender)
{
    m_pFrmChart = new TPlugInChart(this);
    m_pFrmChart->Parent = PnlChart;
    m_pFrmChart->SetChartInfo("", "시간", "패턴속도");
    m_pFrmChart->Show();
}
//---------------------------------------------------------------------------

void __fastcall TTAS00201::ColSpedCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas,
          TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone)
{
    TColor tColor = ACanvas->Brush->Color;
    TColor tFont  = clBlack;

    try
    {
        if (!VarIsNull(AViewInfo->Value))
        {
            String sSpd = AViewInfo->Value;
            if (sSpd == NULL || sSpd.IsEmpty() || sSpd == "0" || sSpd == "-")
            {
                tColor = clSilver;
            }
            else
            {
                String sGrad = AViewInfo->GridRecord->DisplayTexts[AViewInfo->Item->Index+24];
                if      (sGrad == "LTC1") tColor = clLime;
                else if (sGrad == "LTC2") tColor = clYellow;
                else if (sGrad == "LTC3") tColor = clRed;
                else                      tColor = clSilver;
            }
        }
        else
        {
            tColor = clSilver;
        }

        if (tColor == clSilver) tFont = tColor;
        ACanvas->Font->Color = tFont;
        ACanvas->SetBrushColor(tColor);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------