ITS_OP/SRC/PLUGIN/01.TRAFFIC/ITS0030M/FrmIncidVmsInfoF.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 "WindowMsgF.h"

#include "FrmIncidVmsInfoF.h"
#include "FrmLinkGradeSetF.h"
#include "CDSNodeF.h"
#include "CDSLinkF.h"
#include "CDSIfscF.h"
#include "CDSRoadF.h"
#include "CDSTrafficGradeF.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 "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxGroupBox"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxStyles"
#pragma link "cxTextEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinMcSkin"
#pragma resource "*.dfm"
TFrmIncidVmsInfo *FrmIncidVmsInfo = NULL;
//---------------------------------------------------------------------------
__fastcall TFrmIncidVmsInfo::TFrmIncidVmsInfo(TComponent* Owner)
    : TForm(Owner)
{
    LangTrans->Translate(this, ITSDb_GetConnection());

Width = 474;
Height= 495;
int nHeight = Height;
int nWidth  = Width;

    ITSSkin_Load(this);
    CMM_LoadForm(g_sFormsDir, this);
Height = nHeight;
Width  = nWidth;

    Caption = " " + Caption;//" 돌발구간 VMS 정보";
    m_sLinkId    = "";

    TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<해당 구간에 VMS 정보가 없습니다>";

    FCodeRDR = ItsCodeManager->FLists.Find("RDR");	// 도로등급
}
//---------------------------------------------------------------------------

void __fastcall TFrmIncidVmsInfo::FormClose(TObject *Sender, TCloseAction &Action)
{
    try
    {
        CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...)
    {
    }
    Action = caFree;
    FrmIncidVmsInfo = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TFrmIncidVmsInfo::RefreshInfo()
{
    ShowIncidVmsInfo(m_sLinkId);
}
//---------------------------------------------------------------------------

void __fastcall TFrmIncidVmsInfo::ShowIncidVmsInfo(String ALinkId)
{
    m_sLinkId    = ALinkId;

    EdId->Text     = ALinkId;
    EdLevel->Text  = String(1);
    EdLength->Text = FormatFloat("##,##0", 0);

    EdStId->Text = "";
    EdEdId->Text = "";
    EdStName->Text = FrmLang->lblNoName->Caption;//"명칭없음";
    EdEdName->Text = FrmLang->lblNoName->Caption;//"명칭없음";

    EdRoadName->Text = "";
    EdRoadRank->Text = "";

    EdRoadRank->Visible = false;

    TItsNode *pNode;
    TItsLink *pLink;

    pLink = ItsLinkManager->FLists.Find(m_sLinkId);
    if (!pLink) return;

    EdStId->Text = pLink->F_NODE_ID;
    EdEdId->Text = pLink->T_NODE_ID;
    EdLength->Text = FormatFloat("##,##0", StrToFloat(pLink->LINK_LENG));

    pNode = ItsNodeManager->FLists.Find(pLink->F_NODE_ID);
    if (pNode) EdStName->Text = pNode->NODE_NAME.Trim();
    pNode = ItsNodeManager->FLists.Find(pLink->T_NODE_ID);
    if (pNode) EdEdName->Text = pNode->NODE_NAME.Trim();

    EdRoadName->Text = pLink->ROAD_NAME;

    String sRDR = "[" + pLink->ROAD_RANK + "] ";
    if (FCodeRDR)
    {
        TItsSubCode *pSubCode = FCodeRDR->FSubLists.Find(pLink->ROAD_RANK);
        if (pSubCode) sRDR = sRDR + pSubCode->CMMN_CD_KOR_NM;
    }
    EdRoadRank->Text = sRDR;

    //TItsTrafficLink *pTraf = ItsTrafficLinkManager->FList.Find(m_sLinkId);
    //if (pTraf)
    //{
    //}
    EdRoadRank->Visible = true;

    SelVmsInfo(ALinkId);
}
//---------------------------------------------------------------------------

void __fastcall TFrmIncidVmsInfo::SelVmsInfo(String ALinkId)
{
    String sQry;
    TADOQuery *pADO = NULL;

    CMM_ClearGridTableView(TvList);
    try
    {
        TvList->BeginUpdate();
        TcxDataController *pGDC = TvList->DataController;

        pADO = new TADOQuery(NULL);
        pADO->Close();
        pADO->Connection = ITSDb_GetConnection();

        try
        {
#if 0
//구간이 여러개 있기때문에 VMS가 중복으로 표출된다.
            sQry = "SELECT A.LINK_ID, A.IFSC_ID, B.VMS_IFSC_ID, C.VMS_CTLR_NMBR, \r\n"
                   "       D.VMS_CTLR_ID, D.VMS_NM                               \r\n"
//                   "  FROM TB_IFSC_RLTN_LINK      A,                             \r\n"
                   "  FROM TB_IFSC_LINK_RLTN      A,                             \r\n"
                   "       TB_VMS_IFSC_RLTN_IFSC  B,                             \r\n"
                   "       TB_VMS_IFSC_RLTN       C,                             \r\n"
                   "       TB_VMS_CTLR            D                              \r\n"
                   " WHERE A.IFSC_ID       = B.IFSC_ID                           \r\n"
                   "   AND C.VMS_IFSC_ID   = B.VMS_IFSC_ID                       \r\n"
                   "   AND C.VMS_CTLR_NMBR = D.VMS_CTLR_NMBR                     \r\n"
                   "   AND A.LINK_ID       = :p01                                \r\n"
                   " ORDER BY C.VMS_CTLR_NMBR                                    \r\n";
#else
            sQry = "SELECT VMS_CTLR_NMBR, VMS_CTLR_ID, VMS_NM                                   \r\n"
                   "  FROM TB_VMS_CTLR                                                          \r\n"
                   " WHERE VMS_CTLR_NMBR IN (SELECT DISTINCT C.VMS_CTLR_NMBR AS VMS_CTLR_NMBR   \r\n"
//                   "                          FROM TB_IFSC_RLTN_LINK      A,                    \r\n"
                   "                          FROM TB_IFSC_LINK_RLTN      A,                    \r\n"
//                   "                               TB_VMS_IFSC_RLTN_IFSC  B,                    \r\n"
                   "                               TB_VMS_LINK_IFSC       B,                    \r\n"
                   "                               TB_VMS_IFSC_RLTN       C                     \r\n"
                   "                         WHERE A.IFSC_ID       = B.IFSC_ID                  \r\n"
                   "                           AND C.VMS_IFSC_ID   = B.VMS_IFSC_ID              \r\n"
                   "                           AND A.LINK_ID       = :p01 )                     \r\n"
                   "   AND DEL_YN = 'N'                                                         \r\n"
                   " ORDER BY VMS_CTLR_NMBR                                                     \r\n";
#endif

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", ALinkId);
            ITSDb_SQLOpen(pADO);
            int nRow;
            for( ; !pADO->Eof; pADO->Next())
            {
                nRow = pGDC->AppendRecord();
                pGDC->Values[nRow][Column01->Index] = pADO->FieldByName("VMS_CTLR_NMBR")->AsString;
                pGDC->Values[nRow][Column12->Index] = pADO->FieldByName("VMS_CTLR_ID")->AsString;
                pGDC->Values[nRow][Column02->Index] = pADO->FieldByName("VMS_NM")->AsString;
            }
        }
        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);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        TvList->EndUpdate();
    }
}
//---------------------------------------------------------------------------

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