ITS_OP/SRC/PLUGIN/12.BLACKBOX/BDS0020M/BDS0020MF.cpp

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

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

#include "BDS0020MF.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 "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxSpinEdit"
#pragma link "cxStyles"
#pragma link "cxTextEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma resource "*.dfm"

TBDS0020M *BDS0020M = NULL;
//---------------------------------------------------------------------------
__fastcall TBDS0020M::TBDS0020M(TComponent* Owner)
    : TForm(Owner)
{
    ITSSkin_Load(this);
    CMM_LoadForm(g_sFormsDir, this);
    Col16->Visible = false;
    Col16->VisibleForCustomization = false;
}
//---------------------------------------------------------------------------

/*
 * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다..
 * Form과 DataModule class를 delete시킨다.
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TBDS0020M::CommClose()
{
    try
    {
        TmrQry->Enabled = false;
        CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

/*
 * Form을 보여줄때 호출되는 event 메서드이다.
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TBDS0020M::FormShow(TObject *Sender)
{
    Refresh();
    FormInit();
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

/*
 * form 초기화
 *
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TBDS0020M::FormInit()
{
}
//---------------------------------------------------------------------------

/*
 * Form이 Show되고 난 후 최초 1회 수행되는 타이머 이벤트
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TBDS0020M::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;

    TmrQry->Interval = 100;
    TmrQry->Enabled = true;
}
//---------------------------------------------------------------------------

/*
 * Refresh Data Event Function
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TBDS0020M::RefreshData()
{
    // 검색조건에 의한 링크 데이터 조회
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT A.*,                                     \r\n"
           "       B.UPDT_DT,                               \r\n"
           "       B.TRMN_ID,                               \r\n"
           "       B.EVT_TYPE,                              \r\n"
           "       DECODE(B.EVT_TYPE, '1', '1.주기보고',    \r\n"
           "                          '2', '2.사용자전송',  \r\n"
           "                          '3', '3.긴급전송',    \r\n"
           "                          '---') AS EVT_DESC,   \r\n"
           "       B.X_CRDN,                                \r\n"
           "       B.Y_CRDN,                                \r\n"
           "       B.GPS_DRCT,                              \r\n"
           "       B.SPED,                                  \r\n"
           "       B.VHRN_MODE,                             \r\n"
           "       DECODE(B.VHRN_MODE, '1', '1.주행모드',   \r\n"
           "                           '2', '2.주차모드',   \r\n"
           "                           '---') AS VHRN_DESC, \r\n"
           "       B.TRMN_VER,                              \r\n"
           "       B.LINK_ID, C.ROAD_NAME                   \r\n"
           "  FROM TB_BDS_TRMN     A,                       \r\n"
           "       TB_BDS_RAW_PNST B,                       \r\n"
           "       TB_LINK         C                        \r\n"
           " WHERE A.BDS_MNGM_NMBR = B.BDS_MNGM_NMBR(+)     \r\n"
           "   AND B.LINK_ID = C.LINK_ID(+)                 \r\n"
           " ORDER BY B.UPDT_DT, A.BDS_MNGM_NMBR            \r\n";

    CMM_ClearGridTableView(TvList);

    try
    {
        int nRow;
        TvList->BeginUpdate();
        try
        {
            int nORD;

            pADO = new TADOQuery(NULL);
            pADO->Close();
            pADO->Connection = ITSDb_GetConnection();
            pADO->SQL->Clear();
            pADO->SQL->Text = sQry;

            pADO->Open();
            for( ; !pADO->Eof; pADO->Next())
            {
                nRow = TvList->DataController->AppendRecord();

                TvList->DataController->Values[nRow][Col00->Index] = pADO->FieldByName("BDS_MNGM_NMBR")->AsInteger;
                TvList->DataController->Values[nRow][Col01->Index] = pADO->FieldByName("OPNC_NMBR")->AsString;
                TvList->DataController->Values[nRow][Col02->Index] = pADO->FieldByName("MDM_NMBR")->AsString;
                TvList->DataController->Values[nRow][Col03->Index] = pADO->FieldByName("USIM_NMBR")->AsString;
                TvList->DataController->Values[nRow][Col04->Index] = pADO->FieldByName("VHCL_NMBR")->AsString;
                TvList->DataController->Values[nRow][Col05->Index] = pADO->FieldByName("OWNR_NM")->AsString;
                TvList->DataController->Values[nRow][Col06->Index] = pADO->FieldByName("PRCT_NM")->AsString;
                TvList->DataController->Values[nRow][Col07->Index] = ITSUtil_StrToDateTime(pADO->FieldByName("UPDT_DT")->AsString).FormatString(STR_DATETIME);
                TvList->DataController->Values[nRow][Col16->Index] = pADO->FieldByName("TRMN_ID")->AsString;
                TvList->DataController->Values[nRow][Col08->Index] = pADO->FieldByName("EVT_DESC")->AsString;
                TvList->DataController->Values[nRow][Col09->Index] = pADO->FieldByName("X_CRDN")->AsString;
                TvList->DataController->Values[nRow][Col10->Index] = pADO->FieldByName("Y_CRDN")->AsString;
                TvList->DataController->Values[nRow][Col11->Index] = pADO->FieldByName("GPS_DRCT")->AsString;
                TvList->DataController->Values[nRow][Col12->Index] = pADO->FieldByName("SPED")->AsString;
                TvList->DataController->Values[nRow][Col13->Index] = pADO->FieldByName("VHRN_DESC")->AsString;
                TvList->DataController->Values[nRow][Col14->Index] = pADO->FieldByName("TRMN_VER")->AsString;
                String LINK_ID = pADO->FieldByName("LINK_ID")->AsString;
                if (LINK_ID.Trim() == "0") LINK_ID = "";
                TvList->DataController->Values[nRow][Col20->Index] = LINK_ID;
                TvList->DataController->Values[nRow][Col21->Index] = pADO->FieldByName("ROAD_NAME")->AsString;
            }
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("블랙박스 원시현황 조회", 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("블랙박스 원시현황 조회", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        TvList->EndUpdate();
    }
}
//---------------------------------------------------------------------------

/*
 * Close 버튼 클릭 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TBDS0020M::BtnCloseClick(TObject *Sender)
{
    Close();    
}
//---------------------------------------------------------------------------

void __fastcall TBDS0020M::FormClose(TObject *Sender, TCloseAction &Action)
{
    CommClose();
    BDS0020M = NULL;
    Action = caFree;    
}
//---------------------------------------------------------------------------

void __fastcall TBDS0020M::TmrQryTimer(TObject *Sender)
{
    TmrQry->Enabled = false;

    RefreshData();

    TmrQry->Interval = 60 * 1000;
    TmrQry->Enabled = true;
    BtnSearch->Enabled = true;
}
//---------------------------------------------------------------------------

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

    BtnSearch->Enabled = false;
    TmrQry->Interval = 100;
    TmrQry->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TBDS0020M::TvListDataControllerFilterChanged(TObject *Sender)
{
    CMM_SetFilterLike(TvList);
}
//---------------------------------------------------------------------------