ITS_OP/SRC/MAIN/FrmMainF.cpp

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

#include <vcl.h>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "ITSLangTransF.h"
#include "ITSMapF.h"
#pragma hdrstop

#include "FrmMainF.h"
#include "TThreadPollingF.h"
#include "FrmInitializeF.h"  // 프로그램 초기화화면
#include "FrmFacilityAlarmF.h"
#include "FrmIncidentAlarmF.h"

#define D_IDB0140M
#define D_WBH0010Mx
#define D_BLACKBOXx

//---------------------------------------------------------------------------
#include "ITS0000MF.h"  // 통합모니터링
#include "ITS0010MF.h"  // 현재소통정보
#include "ITS0020MF.h"  // 소통정보제보 관리
#include "ITS0030MF.h"  // 돌발상황정보 관리
#include "ITS0040MF.h"  // 반복정체구간관리
//#include "ITS0050MF.h"  // 반복정체구간관리(기상)
//---------------------------------------------------------------------------
#include "IFM0010MF.h"  // 시설물 정보관리
#include "IFM0020MF.h"  // 시설물 업체 관리
#include "IFM0030MF.h"  // 시설물 장애 관리
#include "IFM0040MF.h"  // 시설물장애 이력
#include "IFM0050MF.h"  // 시설물 장애코드 관리
//#include "IFM0050MF.h"  // 주차장 관리
#include "IFM0070MF.h"  // 시설물 정보출력
//---------------------------------------------------------------------------
#include "IDB0010MF.h"  // 노드
#include "IDB0020MF.h"  // 링크
#include "IDB0030MF.h"  // 서비스링크
#include "IDB0040MF.h"  // 도로
#include "IDB0050MF.h"  // 가공파라미터관리
#include "IDB0051MF.h"  // 가공파라미터관리
#include "IDB0060MF.h"  // 소통등급관리
#include "IDB0070MF.h"  // 휴일관리
#include "IDB0080MF.h"  // 운영코드 관리
#include "IDB0090MF.h"  // 운영자관리
#include "IDB0100MF.h"  // 서버/프로세스관리
#include "IDB0110MF.h"  // 기관관리
#include "IDB0120MF.h"  // 간선도로관리
#include "IDB0130MF.h"  // 운영자그룹 메뉴관리
#ifdef D_IDB0140M
    #include "IDB0140MF.h"  // 홈페이지 관리자
#endif
//---------------------------------------------------------------------------
#include "IHS0010MF.h"  // 운영자 접속이력
#include "IHS0020MF.h"  // 프로세스상태이력
#include "IHS0030MF.h"  // 수집데이터 이력조회
#include "IHS0040MF.h"  // 가공데이터 이력조회
#include "IHS0060MF.h"  // 수집데이터 이력분석
#include "IHS0070MF.h"  // 교차로 이력분석
//---------------------------------------------------------------------------
#include "IST0010MF.h"  // 인터넷 접속통계
#include "IST0020MF.h"  // CCTV 접속통계
#include "IST0030MF.h"  // 소통정보 통계
#include "IST0040MF.h"  // 돌발상황 통계
#include "IST0050MF.h"  // 시설물 통신단절통계
#include "IST0060MF.h"  // 프로세스 상태통계
#include "IST0070MF.h"  // 도로소통정보 통계
#include "IST0080MF.h"  // 도로소통정보 통계
#include "IRP0010MF.h"  // 보고서
//---------------------------------------------------------------------------
#include "IAN0010MF.h"  // 교통정보 수집결과 분석
#include "IAN0020MF.h"  // 교통정보 가공결과 분석
#include "IAN0030MF.h"  // 교통정보 제공결과 분석
#include "IAN0040MF.h"  // 소통정보 이력분석
#include "IAN0050MF.h"  // 패턴데이터 분석
#include "IAN0060MF.h"  // 반복정체구간 분석
//---------------------------------------------------------------------------
#include "CFG0000MF.h"  // 시스템 환경설정
//---------------------------------------------------------------------------

#ifdef USE_DSRC
    #include "DSRH010MF.h"  //DSRC 상태이력
    #include "DSRH020MF.h"  //DSRC 로그이력
    #include "DSRH030MF.h"  //DSRC 제어이력
    #include "DSRH040MF.h"  //DSRC 가공정보 이력조회
    #include "DSRH050MF.h"  //DSRC 제공정보 이력조회
    #include "DSRH060MF.h"  //DSRC OBU 수집 이력조회
    #include "DSRH070MF.h"  //DSRC OBU 수집 통계조회

    #include "DSRM010MF.h"  //DSRC 관리
    #include "DSRM020MF.h"  //DSRC 제어
    #include "DSRM030MF.h"  //DSRC 수집구간 설정
    #include "DSRM040MF.h"  //DSRC 제공구간 관리
    #include "DSRM050MF.h"  //DSRC 상태 모니터링
#endif
//---------------------------------------------------------------------------
#ifdef USE_VDS
    #include "VDSM000MF.h"  //VDS-검지기 상태 모니터링
    #include "VDSM100MF.h"  //VDS-제어기 관리
    #include "VDSM200MF.h"  //VDS-검지기 관리
    #include "VDSM300MF.h"  //VDS 제어
    #include "VDSM400MF.h"  //VDS-제어기 상태 모니터링

    #include "VDSH010MF.h"  //VDS-제어기 상태이력
    #include "VDSH020MF.h"  //VDS-제어기 이벤트이력
    #include "VDSH030MF.h"  //VDS-검지기 과거수집이력
    #include "VDSH040MF.h"  //VDS-검지기 원시수집이력
    #include "VDSH050MF.h"  //VDS-검지기 평활화이력
    #include "VDSH060MF.h"  //VDS-검지기 보정이력
    #include "VDSH070MF.h"  //VDS-검지기 상태이력
    #include "VDSH080MF.h"  //VDS-검지기 개별차량 이력

    #include "VDSS010MF.h"  //VDS-검지기 통계조회
    #include "VDSS020MF.h"  //VDS-검지기 통계조회
#endif
//---------------------------------------------------------------------------
#ifdef USE_AVI
    #include "AVIM010MF.h"  //AVI-제어기 관리
    #include "AVIM020MF.h"  //AVI-구간 관리

    #include "AVIH010MF.h"  //AVI-제어기 상태이력
    #include "AVIH020MF.h"  //AVI-제어기 차량인식이력
    #include "AVIH030MF.h"  //AVI-제어기 교통정보이력
    #include "AVIH040MF.h"  //AVI-제어기 차량통과이력
    #include "AVIH050MF.h"  //AVI-구간 매칭이력
    #include "AVIH060MF.h"  //AVI-구간 수집이력
    #include "AVIH070MF.h"  //AVI-구간 소통상황이력
    #include "AVIH080MF.h"  //AVI 지점 원시수집 이력

    #include "AVIS010MF.h"  //AVI-구간 소통상황통계
    #include "AVIS020MF.h"  //AVI-검지기 소통상황통계
#endif
//---------------------------------------------------------------------------
#ifdef USE_PARK2
    #include "PIS0010MF.h"  //주차장관리
    #include "PIS0020MF.h"  //주차장실시간정보
    #include "PISH010MF.h"  //주차장실시간정보이력
    #include "PISH020MF.h"  //주차장상태이력
    #include "PIS0030MF.h"  //주차장제어
#endif
#ifdef USE_PARK
    #include "PRK0010MF.h"  //주차장관리
    #include "PRK0020MF.h"  //주차장실시간정보
    #include "PRK0040MF.h"  //주차장층별이미지관리
    #include "PRK0050MF.h"  //주차장층별실시간 정보
    #include "PRK0060MF.h"  //주차장 운영 정보 관리
    #include "PRKH010MF.h"  //주차장실시간정보이력
    #include "PRKH020MF.h"  //주차장상태이력
#endif
//---------------------------------------------------------------------------
#ifdef D_BLACKBOX
    #include "BDS0010MF.h"
    #include "BDS0020MF.h"
    #include "BDSH010MF.h"
    #include "BDSH020MF.h"
#endif
//---------------------------------------------------------------------------
#ifdef USE_WCAM
    #include "WCAM100MF.h"  //웹카메라 관리
    #include "WCAM010MF.h"  //웹카메라 상태모니터링
    //#include "WCAM020MF.h"  //웹카메라 제어
    #include "WCAMH10MF.h"  //웹카메라 상태이력 조회
#endif
//---------------------------------------------------------------------------
#ifdef USE_CCAM
    #include "CCAM100MF.h"  //교차로감시카메라 관리
    #include "CCAM010MF.h"  //교차로감시카메라 상태모니터링
    //#include "CCAM020MF.h"  //교차로감시카메라 제어
    #include "CCAMH10MF.h"  //교차로감시카메라 상태이력 조회
#endif
//---------------------------------------------------------------------------
#ifdef USE_CCTV
    #include "CTVM100MF.h"  //CCTV 관리
    #include "CTVM010MF.h"  //CCTV 상태모니터링
    #include "CTVM200MF.h"  //CCTV 대체이미지
#endif
//---------------------------------------------------------------------------
#ifdef USE_VMS
    #include "VMSM010MF.h"  //VMS 상태모니터링
#endif

#ifdef USE_VDS
    #include "TAS0080MF.h"
    #include "TAS0090MF.h"
#endif
//---------------------------------------------------------------------------
#ifdef D_WBH0010M
    #include "WBH0010MF.h"      //홈페이지 관리자 이력조회
#endif

#ifdef USE_CROSS
    #include "CRSM000MF.h"
    #include "CRSM100MF.h"
    #include "CRSM200MF.h"
#endif

#ifdef USE_EVSP
    #include "EVSP000MF.h"
    #include "EVSP100MF.h"
    #include "EVSP200MF.h"
    #include "EVSP300MF.h"
    #include "EVSPH10MF.h"
    #include "EVSPH20MF.h"
#endif

//---------------------------------------------------------------------------
#include "ITS_OPLibF.h"
//---------------------------------------------------------------------------

#pragma package(smart_init)
#pragma link "cxClasses"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxHint"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "dxBar"
#pragma link "dxCustomHint"
#pragma link "dxRibbon"
#pragma link "dxRibbonGallery"
#pragma link "dxRibbonSkins"
#pragma link "dxRibbonStatusBar"
#pragma link "dxScreenTip"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinChooserGallery"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinsdxBarPainter"
#pragma link "dxSkinsdxRibbonPainter"
#pragma link "dxSkinsForm"
#pragma link "dxStatusBar"
#pragma link "dxTabbedMDI"
#pragma link "dxSkinMcSkin"
#pragma resource "*.dfm"

TFrmMain *FrmMain = NULL;

#define MAX_EXEPROGRAM  31
ST_RUNPROGRAM  g_RunProgram[MAX_EXEPROGRAM] = {
/* 0*/  {"", "", ""},
/* 1*/  {"TFrmCctvOprMain",     "CctvOprMain.exe",      "CCTV운영관리"},
        {"TFrmCctvCamViewer",   "CctvCamViewer.exe",    "CCTV영상모니터링"},
        {"TfrmCctvLog",         "CctvLog.exe",          "CCTV상태이력"},
        {"", "", ""},

        /* VMS */
/* 5*/  {"TFrmVmsOprMain",      "VmsOprMain.exe",       "VMS운영관리"},
        {"TFrmVmsLogStts",      "VmsLogStts.exe",       "VMS상태이력조회"},
        {"TFrmVmsLogDspl",      "VmsLogDspl.exe",       "VMS제공이력조회"},
        {"TFrmVmsLogCtrl",      "VmsLogCtrl.exe",       "VMS제어이력조회"},
        {"TFrmVmsLogDnld",      "VmsLogDnld.exe",       "VMS다운로드이력조회"},
/*10*/  {"", "", ""},

        /* Web Camera */
/*11*/  {"TFrmWebCamViewer",    "WebCamViewer.exe",     "WEB카메라영상모니터링"},

/*12*/  {"TfrmVdsStatistics",   "VmsMsgLog.exe",        "VDS통계"},
        {"TfrmLinkDSRC",        "DsrcSect.exe",         "DSRC구간설정"},

        //VDS
        {"TfrmVdsMaster",       "VdsMgr.exe",           "VDS 제어기 관리"},
        {"TfrmVdsDetector",     "VdsDetector.exe",      "VDS 검지기 관리"},
        {"TfrmVdsCtrl",         "VdsCtrl.exe",          "VDS 제어"},
        //AVI
        {"TfrmAviMaster",       "AviMgr.exe",           "AVI 제어기 관리"},
        {"TfrmAviDetector",     "AviDetector.exe",      "AVI 검지기 관리"},
        {"TfrmAviLink",         "AviLink.exe",          "AVI 구간 관리"},
        {"TfrmAviControl",      "AviCtrl.exe",          "AVI 제어"},
        //VMS ADD Form
        {"TFrmVmsLogCtl",       "VmsLogCtl.exe",        "VMS제어이력조회"},
        {"TFrmVmsLogDnld",      "VmsLogDnld.exe",       "VMS다운로드이력조회"},

        /* CROSS Camera */
/*23*/  {"TFrmCrsCamViewer",    "CrsCamViewer.exe",     "교차로감시카메라영상모니터링"},

        //ETC
/*24*/  {"TFrmWebCamCtrl",      "WebCamCtrl.exe",       "웹카메라제어"},
        {"", "", ""},
};

#define FORMSHOW(x)     if (x) \
                        { \
                            try { \
                            ShowWindow(x->Handle, SW_RESTORE); \
                            x->BringToFront(); \
                            } catch(...) {} \
                        } \
                        else \
                        { \
                            Application->CreateForm(__classid(T##x), &x); \
                            if (x) x->Show(); \
                        }
//---------------------------------------------------------------------------

class TdxMyBarControl : public TdxBarControl
{
__published:
	__property OnMouseMove;
	__property OnMouseEnter;
	__property OnMouseLeave;
public:
	__fastcall virtual TdxMyBarControl(Classes::TComponent* AOwner) : TdxBarControl(AOwner){};
};
//---------------------------------------------------------------------------
LONG __stdcall HelperExceptionFilter(struct _EXCEPTION_POINTERS * pContext)
{
    LONG  lRet  = EXCEPTION_EXECUTE_HANDLER;
    DWORD dwRet = ERROR_SUCCESS;

	__try
	{
        Application->NormalizeTopMosts();


        if (g_sLang == "kr")
        {
            Application->MessageBox(L"시스템에서 알수없는 오류가 발생했습니다.\r\n프로그램을 다시 기동해 주세요.",
                                    L"시스템 오류", MB_OK|MB_ICONERROR|MB_APPLMODAL);
        }
        else
        {
            Application->MessageBox(L"The system encountered an unknown error.\r\nPlease re-start the program.",
                                    L"System error", MB_OK|MB_ICONERROR|MB_APPLMODAL);
        }

        Application->RestoreTopMosts();
        //TerminateProcess(GetCurrentProcess(), 0);
	}
	__finally
	{
		if(ERROR_SUCCESS != dwRet)
		{
			lRet = EXCEPTION_CONTINUE_SEARCH;
		}
		exit(0);
	}
	return lRet;
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::OnMenuMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
    ::SetCursor(Screen->Cursors[crHandPoint]);
}
//---------------------------------------------------------------------------
__fastcall TFrmMain::TFrmMain(TComponent* Owner)
    : TdxCustomRibbonForm(Owner)//TdxCustomRibbonForm(Owner)//TForm(Owner)
{
    //::CoInitialize(NULL);
    Caption = g_AppCfg.sTitle;

    Application->OnException = OnAppException;
    LangTrans->Translate(this, ITSDb_GetConnection());
    ITSSkin_Initialize(Application, g_sLang, true, true);

	TmrOnShow->Enabled = false;
    TmrAppState->Enabled = false;
    FLogoutTick = 0;

    g_AppCfg.lMainWinHandle = (long)Handle;
    StartJobThread();
    while(!PostJobMessage(WM_THREAD, WP_PING)) ;

    String sCaption = "";
    ReadConfigInfo(g_AppCfg.sConfigFile, "APPLICATION", "CAPTION", sCaption);
    ITSSkin_Caption(sCaption == "1" ? true : false);

    //탭메뉴비활성
    TabCrsCam->Visible = false;
    //TabTrafficAnalysisSupport->Visible = false;
    BarTrafficAnalysisSupport1->Visible = false;
    BarTrafficAnalysisSupport2->Visible = false;
    NTAS0010M->Visible   = ivNever; //혼잡지도 분석
    NTAS0040M->Visible   = ivNever; //교통분석지원 - 특수일 분석
    NTAS0030M->Visible   = ivNever; //간선도로 속도분석

#ifndef USE_VDS
    BarVdsAnalysis->Visible = false;
#endif

    //NVDSH080M->Visible = ivNever;     //VDS개별차량이력조회

    TabBlackBox->Visible = false;   //BlackBox
    TabAvi->Visible      = false;
#ifndef USE_DSRC
    TabDsrc->Visible     = false;
#endif
    TabSms->Visible      = false;   //SMD

    //주차장
//#ifdef USE_PARK
//    TabParking->Visible  = true;
//    NPIS0030M->Visible = ivNever;
//#else
//    TabParking->Visible  = false;
//#endif
#ifdef USE_PARK
    TabParking->Visible  = true;
    NPIS0030M->Visible = ivNever;
#else
    TabParking->Visible  = false;
#endif

NEVSP000M->Visible = ivNever;

    //VMS
    //BarVms2->Visible = false;
    //RVMSH300M->Visible = ivNever;   //VMS 제어이력(R)
    RVMSH400M->Visible = ivNever;   //VMS 다운로드이력(R)

    //NCCTV100M->Visible = ivNever;   //CCTV 관리
    //NCCTVR10R->Visible = ivNever;   //CCTV 영상 모니터링
    //RCCTVH10M->Visible = ivNever;   //CCTV 상태이력
    //NCCTV010M->Visible = ivNever;   //CCTV 상태 모니터링
    NCCTV020M->Visible = ivNever;   //CCTV 제어

    //NWCAM100M->Visible = ivNever;
    //NWCAMH10M->Visible = ivNever;

    BarCctv2->Visible = false;
    BarCctv3->Visible = false;
    BarCctv4->Visible = true;

    //NIDB0110M->Visible = ivNever;   //연계기관 관리

    BarConfig4->Visible = false;    //스킨
    //BarCrsCam4->Visible = false;
    //NWCAM010M->Visible  = ivNever;

    //웹카메라 제어
    //NWCAM020M->Visible = ivNever;
    //BarWebCam4->Visible = false;

    // 메뉴비활성
#ifndef D_IDB0140M
    NIDB0140M->Visible = ivNever;
#endif
#ifndef D_WBH0010M
    NWBH0010M->Visible = ivNever;
#endif

    //구미시
    TabTrafficAnalysisSupport->Visible = false; //교통정보분석지원 탭

    NIHS0060M->Visible = ivNever;   //이력조회 - 수집데이터분석
    NIHS0070M->Visible = ivNever;   //이력조회 - 교차로 교통량 분석
    NIDB0140M->Visible = ivNever;   //기초데이터관리 - 홈페이지관리자관리
    NIST0070M->Visible = ivNever;   //통계-분석 - 간선도로 소통정보 통계
    NIST0080M->Visible = ivNever;   //통계-분석 - 간선도로 통계


    //환경설정
    NCFG0001M->Visible = ivNever;   //지도 레이어설정
    //통계-분석
    NIST0010M->Visible = ivNever;   //인터넷접속 통계
    NIST0020M->Visible = ivNever;   //CCTV접속 통계
    //NIAN0040M->Visible = ivNever;   //소통정보이력 분석 - 남양주(교통정보분석지원 메뉴에서 대체)
    //시설물관리
    NIFM0040M->Visible = ivNever;   //시설물장애 이력
    NIFM0050M->Visible = ivNever;   //시설물 장애코드 관리
    //AVI
    RAVIC010M->Visible = ivNever;   //AVI 제어[R]
    //VMS
    //RVMSH300M->Visible = ivNever;   //VMS 제어이력(R)
    RVMSH400M->Visible = ivNever;   //VMS 다운로드이력(R)
    //주차장
    //NPIS0030M->Visible = ivNever;   //주차장 제어
    NITS0050M->Visible = ivNever;   //반복정체관리(기상)

    //NIAN0060M->Visible = ivNever;   //반복정체구간 분석 ==> 실제 반복정체구간 분석이 아님(????)

#ifdef USE_EVSP
    TabEvsp->Visible = true;
#else
    TabEvsp->Visible = false;
#endif
    //Ribon config
    Ribbon->ShowTabGroups = true;   // 메뉴탭 show/hide
    Ribbon->QuickAccessToolbar->Visible = false;
    //Ribbon->ApplicationButton->Visible = false;
    Ribbon->SupportNonClientDrawing = true;
    Ribbon->EnableTabAero = true;

    //Active Tab set
    TabTraffic->Active = true;

    SetColorScheme(g_AppCfg.sSkinName);

    CMM_SetFormPosition(g_AppCfg.bSaveForm);
    CMM_LoadForm(g_sFormsDir, this);

#if 1
    int nCompnentCnt = this->ComponentCount;
    for (int ii = 0; ii < nCompnentCnt; ii++)
    {
        String sClassName = this->Components[ii]->ClassName();
        if(sClassName == "TdxBar")
        {
            TdxBar *pMenuGrp = (TdxBar *)this->Components[ii];
            if (pMenuGrp->Visible == false) continue;
            static_cast<TdxMyBarControl *>(pMenuGrp->Control)->OnMouseMove = OnMenuMouseMove;
        }
    }
#endif

    APP_InitDisplayColor();
	//ITSSkin_Menu(this);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::FormCreate(TObject *Sender)
{
    /* 레지스터리 등록 IE 최신버전 */
    String sExeName = ExtractFileName(Application->ExeName);
    ITSMap_Init(sExeName);
    //SetUnhandledExceptionFilter(HelperExceptionFilter);

    Application->ShowMainForm = false;

    try {
        Application->Icon->LoadFromResourceName(((unsigned int)HInstance), "MAINICON");
    } catch(...) { ShowMessage("LoadFromResourceName failed"); }

    WindowState = wsMaximized;

    // 종료조건이 있는경우..
    //Application->Terminate();
    //return;

    Application->ShowMainForm = true;
    Application->OnHint       = OnAppHint;

    ImgAlarm->Visible = false;
    ImgAlarmNormal->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TFrmMain::FormShow(TObject *Sender)
{
    Application->ProcessMessages();
    g_AppCfg.lMainWinHandle = (long)Handle;

    /*
    *  프로그램 초기화 작업
    */
    InitStatusBar();

	if (g_pLOGIN)
    {
        GetUserMenuRight(g_pLOGIN->sUserId, g_pLOGIN->sUserRightId);
    }

	TmrOnShow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::TmrOnShowTimer(TObject *Sender)
{
	TmrOnShow->Enabled = false;
	Application->ProcessMessages();

    TFrmInitialize *FrmInitialize = new TFrmInitialize(this);
    FrmInitialize->FThreadId = g_AppCfg.thr.dwThreadId;
    FrmInitialize->ShowModal();

    //폴링작업 객체 초기화
    FPollTraffic00.Cycle  = (60*1000*2)+ 5; // 링크소통정보(전체)
    FPollTraffic05.Cycle  = (60*1000*5)+ 0; // UTIS운영정보
    FPollDatabase.Cycle   = (60*1000*5)+ 3; // 데이터베이스상태정보

    FPollStatus01.Cycle   = (60*1000*1)+ 1; // 시설물상태정보
    FPollStatus02.Cycle   = (60*1000*5)+ 3; // 프로세스상태정보
    FPollStatus03.Cycle   = (60*1000*1)+ 5; // 돌발정보

    FPollEvent01.Cycle    = (60*1000*1)+ 1;  // 블랙박스이벤트
    FPollVilgFrcs.Cycle   = (120*1000*10)+1;  // 기상정보

    FPollTraffic00.IsPolling = true; // 링크소통정보(전체)
#ifdef USE_UTIS
    FPollTraffic05.IsPolling = true; // UTIS운영정보
#else
    FPollTraffic05.IsPolling = false; // UTIS운영정보
#endif

    FPollDatabase.IsPolling  = false; // 데이터베이스상태정보
    FPollStatus01.IsPolling  = true; // 시설물상태정보
    FPollStatus02.IsPolling  = true; // 프로세스상태정보
    FPollStatus03.IsPolling  = true; // 돌발정보

    FPollEvent01.IsPolling  = false; // 블랙박스이벤트
#ifdef USE_VILG
    FPollVilgFrcs.IsPolling = true;  // 기상정보
#else
    FPollVilgFrcs.IsPolling = false;  // 기상정보
#endif

    //내부통신 초기화 시작...
    TItsProcess *pPrcs = ItsProcessManager->FLists.Find(g_AppCfg.sProcessId);
    if (!pPrcs)
    {
        if (g_sLang == "kr")
        {
            Application->MessageBox(L"통신프로세스를 초기화 하지 못하였습니다.\r\n환경설정에서 시스템ID를 확인하세요.\r\n프로그램을 종료합니다.",
                                    L"프로그램 통신오류_1", MB_OK|MB_ICONERROR|MB_APPLMODAL);
        }
        else
        {
            Application->MessageBox(L"Failed to initialize communication process.\r\nPlease check your system ID in preferences.\r\nExit the program.",
                                    L"Program communication error_1", MB_OK|MB_ICONERROR|MB_APPLMODAL);
        }
        g_AppCfg.bAppClose = true;
        Close();
        return;
    }

    int nPort = pPrcs->PRGM_PORT.ToIntDef(4602);
    int nResult = CComm_Initialize((long)Handle, g_AppCfg.sProcessId, "UOT", nPort, g_AppCfg.sLogDay);
    if (VERR_NONE != nResult)
    {
        if (g_sLang == "kr")
        {
            Application->MessageBox(L"통신프로세스를 초기화 하지 못하였습니다.\r\n환경설정에서 시스템ID를 확인하세요.\r\n프로그램을 종료합니다.",
                                    L"프로그램 통신오류_2", MB_OK|MB_ICONERROR|MB_APPLMODAL);
        }
        else
        {
            Application->MessageBox(L"Failed to initialize communication process.\r\nPlease check your system ID in preferences.\r\nExit the program.",
                                    L"Program communication error_2", MB_OK|MB_ICONERROR|MB_APPLMODAL);
        }
        g_AppCfg.bAppClose = true;
        Close();
        return;
    }
    FOR_STL(TItsProcess*, pObj, ItsProcessManager->FLists)
    {
        if (pObj->DEL_YN == "Y") continue;
        AnsiString sProcessId = AnsiString(pObj->SYST_ID);
        AnsiString sSystemTp  = AnsiString(pObj->SYST_TYPE);
        AnsiString sIpAddress = AnsiString(pObj->SYST_IP_1);
        AnsiString sUdpPort   = AnsiString(pObj->PRGM_PORT);
        if (CComm_AddProcess(sProcessId, sSystemTp, sIpAddress, sUdpPort) >= 0)
        {
            if ("UOT" == sSystemTp)
            {
                nPort = sUdpPort.ToIntDef(0);
                CComm_AddProcess(sProcessId, sSystemTp, sIpAddress, AnsiString(nPort+1));
            }
        }
    }
    if (VERR_NONE != CComm_Open())
    {
        if (g_sLang == "kr")
        {
            Application->MessageBox(L"통신프로세스를 초기화 하지 못하였습니다.\r\n환경설정에서 시스템ID를 확인하세요.\r\n프로그램을 종료합니다.",
                                    L"프로그램 통신오류_3", MB_OK|MB_ICONERROR|MB_APPLMODAL);
        }
        else
        {
            Application->MessageBox(L"Failed to initialize communication process.\r\nPlease check your system ID in preferences.\r\nExit the program.",
                                    L"Program communication error_3", MB_OK|MB_ICONERROR|MB_APPLMODAL);
        }
        g_AppCfg.bAppClose = true;
        Close();
        return;
    }
    //내부통신 초기화 끝...

    ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbComm]->PanelStyle)->ImageIndex = 8;

	Application->ProcessMessages();

    ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbDb]->PanelStyle)->ImageIndex = ITSDb_IsOpen() ? 8 : 7;

    //TODO NITS0000MClick((TObject *)NITS0000M);    //메인화면을 프로그램 기동과 동시에 호출하는 경우

#if 0
    if (g_AppCfg.AutoLogout.LogoutExit)
    {
        Application->MessageBox(L"이전 프로그램은 자동로그아웃으로 종료되었습니다.\r\n프로그램을 실행합니다.",
                                L"프로그램 실행정보", MB_OK|MB_ICONQUESTION|MB_APPLMODAL);
    }
#endif
    g_AppCfg.AutoLogout.LogoutExit = false;

    TmrAppState->Enabled = true;
    TmrPolling->Enabled = true;
    TmrDbCheck->Enabled = true;
}
//---------------------------------------------------------------------------

bool  __fastcall TFrmMain::StartJobThread()
{
    TThreadPolling *pPollingThread = new TThreadPolling(false);
    if (pPollingThread)
    {
        pPollingThread->OnTerminate = OnPollingThreadDone;
        g_AppCfg.thr.pThread    = (TThread *)pPollingThread;
        g_AppCfg.thr.dwThreadId = pPollingThread->ThreadID;
        g_AppCfg.thr.nHandle    = pPollingThread->Handle;
        //pPollingThread->Resume();
        return true;
    }
    return false;
}
//---------------------------------------------------------------------------

void  __fastcall TFrmMain::TerminateJobThread()
{
    if (g_AppCfg.thr.bRunning)
    {
        PostJobMessage(WM_THREAD, WM_QUIT);
    }

    Sleep(500);
    try
    {
        if (g_AppCfg.thr.bRunning)
        {
            TThreadPolling *pThread = (TThreadPolling *)g_AppCfg.thr.pThread;
            pThread->Terminate();
            //pThread->WaitFor();
        }
        g_AppCfg.thr.pThread    = NULL;
        g_AppCfg.thr.dwThreadId = 0;
        g_AppCfg.thr.nHandle    = 0;
        g_AppCfg.thr.bRunning   = false;
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    // 폼이 닫히기 전에 수행해야 할 모뮬 기술
    // 프로그램 종료를 사용자가 확인할 수 있도록...
	if (!g_AppCfg.bAppClose)
    {
        String strMsg;
        strMsg = "";
        strMsg = "[ " + g_AppCfg.sTitle + " ]\r\n\n";
        strMsg+= FrmLang->cxLabel1->Caption;

		if(Application->MessageBox(strMsg.c_str(),
                                   FrmLang->cxLabel2->Caption.c_str(),
                                   MB_YESNO|MB_ICONQUESTION) == IDYES)
        {
            /*
            *  화면관련 작업을 못하도록 여기에 코드를 적자...
            */
            CloseAllWindow();

            ITSDb_ApplicationTerm();
			g_AppCfg.bAppClose = true;
        }
        CanClose = false;
	}
}
//---------------------------------------------------------------------------

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

void __fastcall TFrmMain::CommClose()
{
    try
    {
        CComm_Close();

        //CloseAllWindow();

        ITSSkin_Term();

        CMM_SaveForm(g_sFormsDir, this);

        WriteConfigInfo(g_AppCfg.sConfigFile, "MAP", "MAPTYPE", String(g_GisInfo.mapType));
        WriteConfigInfo(g_AppCfg.sConfigFile, "APPLICATION", "LOGDAY", Now().FormatString("dd"));

        ::CoUninitialize();
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::CloseAllWindow()
{
    int ii;

    // 실행시킨 프로그램을 종료시킨다.
#if 0
    for (ii = 0; ii < MAX_EXEPROGRAM; ii++)
    {
        if (g_RunProgram[ii].AClassName == "")
            continue;

        TermItsProgram(g_RunProgram[ii].AClassName, "");
    }
#endif

    //실행중인 화면을 종료 시킨다.
    try {
        int nForms = Screen->FormCount;
        for (ii = nForms-1; ii >= 0; ii--)
        {
            if (Screen->Forms[ii] != this)
            {
                if (::IsWindow(Screen->Forms[ii]->Handle))
                {
                    String sFormName = Screen->Forms[ii]->Name;
                    if (sFormName.Pos("ITSSkin")) continue;
                    if (sFormName.Pos("FrmSkin")) continue;
                    if (sFormName.Pos("FrmLang")) continue;
                    if (sFormName.Pos("PlugInChart")) continue;
                    //if (sFormName.SubString(1, 11) == "PlugInChart") continue;

                    if (Screen->Forms[ii]->Owner == this ||
                        Screen->Forms[ii]->Owner == Application)
                    {
                        //Screen->Forms[ii]->Close();
                        PostMessage(Screen->Forms[ii]->Handle, WM_CLOSE, 0, 0);
                        //Application->ProcessMessages();
                        try {
                        WaitForSingleObject(Screen->Forms[ii]->Handle, 1000);
                        }catch(Exception &e) {}
                    }
                }
                Application->ProcessMessages();
            }
        }
    } catch(...) {}
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::TmrAppStateTimer(TObject *Sender)
{
    /*
    *  타이머가 1초간격으로 응용프로그램의 상태를 체크하고
    * 응용프로그램의 상태를 주기적으로 체크하여 필요한 조치를 수행한다.
    */
	if (g_AppCfg.bAppClose)
    {
        TmrAppState->Enabled = false;
        TmrPolling->Enabled = false;
        TmrDbCheck->Enabled = false;

        UserLogout(); // 로그아웃

        TerminateJobThread();

        ITSDb_Close();
        Close();                // 응용프로그램 종료
    }
    else
    {
        TmrAppState->Enabled = false;
        UpdateStatusBar();
        //UpdateCommStatus();

        if (g_AppCfg.AutoLogout.Enabled)
        {
            FLogoutTick++;
            if (FLogoutTick > (g_AppCfg.AutoLogout.IntervalMin*60))
            {
                //자동로그아웃처리
                g_AppCfg.bAppClose = true;
                g_AppCfg.AutoLogout.LogoutExit = true;
            }
        }
        TmrAppState->Enabled = true;
	}
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::UpdateCommStatus()
{
static bool bStatus = false;
#if 0
    if (CenterThreadMonitoring(true))
    {
        ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbComm]->PanelStyle)->ImageIndex = 7;
    }
    else
#endif
    {
        ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbComm]->PanelStyle)->ImageIndex = bStatus ? 8 : 7;
        bStatus = !bStatus;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::UpdateStatusBar()
{
    try
    {
        dxStatusBar->Panels->Items[isbTime]->Text = Now().FormatString(STR_DATETIME);
#if 0
        if (ITSDb_IsOpen())
        {
            if (((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbDb]->PanelStyle)->ImageIndex != 8)
                ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbDb]->PanelStyle)->ImageIndex = 8;
        }
        else
        {
            if (((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbDb]->PanelStyle)->ImageIndex != 7)
                ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbDb]->PanelStyle)->ImageIndex = 7;
        }
#endif
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::DebugMsg(String AMsg)
{
    dxStatusBar->Panels->Items[isbMsg]->Text = " " + AMsg;
    dxStatusBar->Panels->Items[isbMsg]->StatusBarControl->Refresh();
    TmrDebugHide->Enabled = false;
    TmrDebugHide->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::TmrDebugHideTimer(TObject *Sender)
{
    dxStatusBar->Panels->Items[isbMsg]->Text = "";
    dxStatusBar->Panels->Items[isbMsg]->StatusBarControl->Refresh();
    TmrDebugHide->Enabled = false;
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::InitStatusBar()
{
    try
    {
        dxStatusBar->Panels->Items[isbGisPos]->Text = "";
        dxStatusBar->Panels->Items[isbTime]->Text = Now().FormatString(STR_DATETIME);

        if (g_pLOGIN)
        {
            String sUserName = g_pLOGIN->sUserName.Trim();
            if (sUserName == "") sUserName = g_pLOGIN->sUserId;
            dxStatusBar->Panels->Items[isbUser]->Text = sUserName;
            ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbUser]->PanelStyle)->ImageIndex = 9;
        }
        else
        {
            //dxStatusBar->Panels->Items[isbUser]->Text = g_pLOGIN->sUserName;// = "로그인 X";
            ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbUser]->PanelStyle)->ImageIndex = 9;
        }

        //dxStatusBar->Panels->Items[isbScale]->Visible = false;
        //dxStatusBar->Panels->Items[isbPos]->Visible = false;
        dxStatusBar->Panels->Items[isbHint]->Text = "";
        dxStatusBar->Panels->Items[isbMsg]->Text = "";
        //dxStatusBar->Panels->Items[isbDb]->Text = "DB";
        //dxStatusBar->Panels->Items[isbComm]->Text = "통신";

        UpdateStatusBar();
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

bool __fastcall TFrmMain::GetUserMenuRight(String AUserId, String AUserRight)
{
    String sQry;
    TADOQuery *pADO = NULL;
    try
    {
        sQry = "SELECT OPERSYST_MENU_ID                  \r\n"
               "  FROM TB_GROP_MENU_ATHR                 \r\n"
               " WHERE ATHR_YN = 'N'                     \r\n"
               "   AND GROP_ID = (SELECT GROP_ID         \r\n"
               "                    FROM TB_USER_INFR    \r\n"
               "                   WHERE USER_ID = :p01) \r\n";

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AUserId);
            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next())
            {
                String sMenuId = pADO->FieldByName("OPERSYST_MENU_ID")->AsString;

                try
                {
                    int nCompnentCnt = this->ComponentCount;
                    for (int ii = 0; ii < nCompnentCnt; ii++)
                    {
                        String sClassName = this->Components[ii]->ClassName();
                        if(sClassName == "TdxBarLargeButton")
                        {
                            TdxBarLargeButton *pMenu = (TdxBarLargeButton *)this->Components[ii];
                            if (pMenu->Name == sMenuId)
                            {
                                pMenu->Enabled = false;
                                break;
                            }
                        }
                    }
                }
                catch(...)
                {
                }
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORLOG("TFrmMain::GetUserMenuRight", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORLOG("TFrmMain::GetUserMenuRight", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
	}
	__finally
	{
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
	}
    return true;
}
//---------------------------------------------------------------------------

HWND __fastcall TFrmMain::FindChildWindow(String sFormName)
{
    int nFormCnt = Screen->FormCount;
    for (int ii = 0; ii < nFormCnt; ii++)
    {
        TForm *pForm = Screen->Forms[ii];
        String sTmpFormName = pForm->Name.SubString(1, sFormName.Length());
        if (sTmpFormName == sFormName)
        {
            return pForm->Handle;
        }
    }

    return NULL;
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::OnSkinClick(TObject *Sender)
{
    TdxBarButton *pMenu = (TdxBarButton*)Sender;
    try {
        dxSkinController1->SkinName = pMenu->Caption;
        dxSkinController1->Refresh();
        //ITSSkin_SetName(dxSkinController1->SkinName);
    } catch(...) {}

}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::TmrPollingTimer(TObject *Sender)
{
    TmrPolling->Enabled = false;

    DWORD dwTick = GetTickCount();

    UpdateThreadStatus(true);   //작업스레드 실행 확인

    // 링크소통정보(전체)
    if (FPollTraffic00.IsPolling && FPollTraffic00.IsPollingTime(dwTick))
    {
        SetProcessWorkingSetSize(GetCurrentProcess(), -1, -1);
        FPollTraffic00.Polling = dwTick;
        PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_TRAFFIC);
        DebugMsg(FrmLang->cxLabel3->Caption + FrmLang->cxLabelReq->Caption);
    }

    // 데이터베이스 상태
    if (FPollDatabase.IsPolling && FPollDatabase.IsPollingTime(dwTick))
    {
        FPollDatabase.Polling = dwTick;
        PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_DATABASE_STTS);
        DebugMsg(FrmLang->cxLabel25->Caption + FrmLang->cxLabelReq->Caption);
    }

    // 시설물상태정보
    if (FPollStatus01.IsPolling && FPollStatus01.IsPollingTime(dwTick))
    {
        FPollStatus01.Polling = dwTick;
        PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_FACILITY_STTS);
        DebugMsg(FrmLang->cxLabel8->Caption + FrmLang->cxLabelReq->Caption);
    }

    // 프로세스상태정보
    if (FPollStatus02.IsPolling && FPollStatus02.IsPollingTime(dwTick))
    {
        FPollStatus02.Polling = dwTick;
        PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_PROCESS_STTS);
        DebugMsg(FrmLang->cxLabel9->Caption + FrmLang->cxLabelReq->Caption);
    }

    // 돌발정보
    if (FPollStatus03.IsPolling && FPollStatus03.IsPollingTime(dwTick))
    {
        FPollStatus03.Polling = dwTick;
        PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_INCIDENT);
        DebugMsg(FrmLang->cxLabel10->Caption + FrmLang->cxLabelReq->Caption);
    }

    // UTIS운영정보
    if (FPollTraffic05.IsPolling && FPollTraffic05.IsPollingTime(dwTick))
    {
        FPollTraffic05.Polling = dwTick;
        DebugMsg(FrmLang->cxLabel18->Caption + FrmLang->cxLabelReq->Caption);   //UTIS운영정보 조회, Database 운영정보조회
        PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_05);
    }

    // 블랙박스이벤트
    if (FPollEvent01.IsPolling && FPollEvent01.IsPollingTime(dwTick))
    {
        FPollEvent01.Polling = dwTick;
        //PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_16);
        DebugMsg(FrmLang->cxLabel11->Caption + FrmLang->cxLabelReq->Caption);
    }

    if (FPollVilgFrcs.IsPolling && FPollVilgFrcs.IsPollingTime(dwTick))
    {
        FPollVilgFrcs.Polling = dwTick;
        PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_WEATHER);
        DebugMsg(FrmLang->cxLabel12->Caption + FrmLang->cxLabelReq->Caption);
    }

    if (Now().FormatString("nn") == "13")
    {
        // 매시 10분에 기상정보를 저장하니까 13분에 디비에서 읽자
        String sCurrTm = Now().FormatString("hh");
    }

    if (!g_AppCfg.bAppClose) TmrPolling->Enabled = true;
}
//---------------------------------------------------------------------------

bool  __fastcall TFrmMain::PostJobMessage(UINT nMsg, int WParam/*=0*/, int LParam/*=0*/)
{
    int nRes;

    String sMsg;
    sMsg.printf(L"PostJobMessage: Msg: %02X, WParam: %02X, LParam: %02X", nMsg, WParam, LParam);
    DebugMsg(sMsg);

    if (g_AppCfg.thr.dwThreadId)
    {
        for (int ii = 0; ii < 3; ii++)
        {
            if (PostThreadMessageW(g_AppCfg.thr.dwThreadId, nMsg, WParam, LParam))
            {
                nRes = 0;
                return true;
            }
            else
            {
                nRes = GetLastError();
                if (ERROR_INVALID_THREAD_ID == nRes)
                {
                    Sleep(500);
                    continue;
                }
            }
        }
    }
    return false;
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NITS0000MClick(TObject *Sender)
{
    FORMSHOW(ITS0000M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NITS0010MClick(TObject *Sender)
{
    FORMSHOW(ITS0010M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NITS0020MClick(TObject *Sender)
{
    FORMSHOW(ITS0020M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NITS0030MClick(TObject *Sender)
{
    FORMSHOW(ITS0030M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NITS0040MClick(TObject *Sender)
{
    FORMSHOW(ITS0040M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIDB0010MClick(TObject *Sender)
{
    FORMSHOW(IDB0010M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIDB0020MClick(TObject *Sender)
{
    FORMSHOW(IDB0020M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIDB0030MClick(TObject *Sender)
{
    FORMSHOW(IDB0030M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIDB0040MClick(TObject *Sender)
{
    FORMSHOW(IDB0040M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIDB0120MClick(TObject *Sender)
{
    FORMSHOW(IDB0120M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIDB0130MClick(TObject *Sender)
{
    FORMSHOW(IDB0130M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIDB0050MClick(TObject *Sender)
{
    FORMSHOW(IDB0050M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIDB0060MClick(TObject *Sender)
{
    FORMSHOW(IDB0060M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIDB0070MClick(TObject *Sender)
{
    FORMSHOW(IDB0070M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIDB0080MClick(TObject *Sender)
{
    FORMSHOW(IDB0080M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIDB0090MClick(TObject *Sender)
{
    FORMSHOW(IDB0090M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIDB0110MClick(TObject *Sender)
{
    FORMSHOW(IDB0110M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIDB0100MClick(TObject *Sender)
{
    FORMSHOW(IDB0100M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NCFG0000MClick(TObject *Sender)
{
    String sIniFile = ChangeFileExt(ExtractFileName(Application->ExeName), ".ini");
    CFG0000M = new TCFG0000M(this);
    CFG0000M->IniFile = sIniFile;
    CFG0000M->ShowModal();
    delete CFG0000M;
    CFG0000M = NULL;

    if (NITS0000M->Enabled)
    {
        HWND hWnd = FindChildWindow("ITS0000M");
        if (hWnd) POST_MSG(hWnd, WM_MAINFORM, WP_DB_SELECT_OK, LP_MSG_FACILITY_STTS);
    }

    ShowFacilityStatus();
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NCFG0001MClick(TObject *Sender)
{
#if 0
    try {
        if (ITS00MAP)
        {
            ITS00MAP->ShowLayerEditForm();
        }
        else
        {
            Application->MessageBox(L"지도레이어 설정은 메인화면이 실행되어 있을때 설정할 수 있습니다.\r\n메인화면을 먼저 실행하세요.",
                                    L"지도레이어 설정", MB_OK|MB_ICONWARNING|MB_APPLMODAL);
        }
    } catch(...) {}
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::dxSkinChooserGalleryItem1SkinChanged(TObject *Sender, const UnicodeString ASkinName)
{
    g_AppCfg.sSkinName = ASkinName;

    WriteConfigInfo(g_AppCfg.sConfigFile, "APPLICATION", "SKINNAME", g_AppCfg.sSkinName);

    SetColorScheme(ASkinName);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::SetColorScheme(String ASkinName)
{
    Ribbon->ColorSchemeName = ASkinName;

    dxSkinController1->SkinName = ASkinName;
    dxSkinController1->Refresh();

    dxTabbedMDIManager1->LookAndFeel->SkinName = ASkinName;
    dxStatusBar->Invalidate();
    //Panel1->Color = Ribbon->ColorScheme->GetPartColor(rfspRibbonForm);

    //Ribbon.ColorSchemeName := AName;
    //SkinChooserSelectSkinName(AName);
    //Panel1.Color := Ribbon.ColorScheme.GetPartColor(rfspRibbonForm);
    //dxStatusBar.Invalidate;
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::ExecuteItsProgram(String AClassName, String AExeName, String AOption)
{
	HWND hExeForm = FindWindow(AClassName.c_str(), NULL);
	if (hExeForm)
	{
		SetWindowPos(hExeForm, HWND_TOP, 0, 0, 0, 0, SWP_SHOWWINDOW | SWP_NOSIZE | SWP_NOMOVE);
        ShowWindow(hExeForm, SW_RESTORE);
	}
	else
	{
        String sExeName = "";
        String sExeParam= "";
        //if (!ReadConfigInfo(g_AppCfg.sConfigFile, "PROGRAM", AOption, sExeName))
        {
            if (g_AppCfg.sAppPath == "")
            {
                sExeName = AExeName;
            }
            else
            {
                sExeName = g_AppCfg.sAppPath + "\\" + AExeName;
            }
            sExeParam = g_pLOGIN->sUserId;
        }
		ShellExecute(Handle, NULL, sExeName.c_str(), sExeParam.c_str(), NULL, SW_SHOWNORMAL);
	}
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::TermItsProgram(String AClassName, String AExeName)
{
	HWND hExeForm = FindWindow(AClassName.c_str(), NULL);
	if (hExeForm)
	{
        POST_MSG(hExeForm, WM_CLOSE, 0, 0);
	}
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIFM0010MClick(TObject *Sender)
{
    FORMSHOW(IFM0010M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIFM0020MClick(TObject *Sender)
{
    FORMSHOW(IFM0020M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIFM0030MClick(TObject *Sender)
{
    FORMSHOW(IFM0030M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::OnRunProgramClick(TObject *Sender)
{
#if 0
    TdxBarLargeButton *pButton = (TdxBarLargeButton*)Sender;
    int nIdx = pButton->Tag;

    if (nIdx < 0 || nIdx >= MAX_EXEPROGRAM)  return;
    if (g_RunProgram[nIdx].AClassName == "") return;

    ExecuteItsProgram(g_RunProgram[nIdx].AClassName, g_RunProgram[nIdx].AExeName, g_RunProgram[nIdx].AOption);
#else
    ExecuteItsProgram("TFrmWebCamCtrl", "WebCamCtrl.exe", "웹카메라제어");
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIHS0010MClick(TObject *Sender)
{
    FORMSHOW(IHS0010M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIHS0020MClick(TObject *Sender)
{
    FORMSHOW(IHS0020M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIHS0030MClick(TObject *Sender)
{
    FORMSHOW(IHS0030M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIHS0040MClick(TObject *Sender)
{
    FORMSHOW(IHS0040M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIAN0010MClick(TObject *Sender)
{
    FORMSHOW(IAN0010M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIAN0020MClick(TObject *Sender)
{
    FORMSHOW(IAN0020M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIAN0030MClick(TObject *Sender)
{
    FORMSHOW(IAN0030M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIAN0040MClick(TObject *Sender)
{
    FORMSHOW(IAN0040M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIAN0050MClick(TObject *Sender)
{
    FORMSHOW(IAN0050M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIAN0060MClick(TObject *Sender)
{
    FORMSHOW(IAN0060M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIST0010MClick(TObject *Sender)
{
    FORMSHOW(IST0010M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIST0020MClick(TObject *Sender)
{
    FORMSHOW(IST0020M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIST0030MClick(TObject *Sender)
{
    FORMSHOW(IST0030M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIST0070MClick(TObject *Sender)
{
    FORMSHOW(IST0070M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIST0080MClick(TObject *Sender)
{
    FORMSHOW(IST0080M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIST0040MClick(TObject *Sender)
{
    FORMSHOW(IST0040M);
}
//---------------------------------------------------------------------------

/*
 * 시설물 통신단절통계화면 호출
 */
void __fastcall TFrmMain::NIST0050MClick(TObject *Sender)
{
    FORMSHOW(IST0050M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIST0060MClick(TObject *Sender)
{
    FORMSHOW(IST0060M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIRP0010MClick(TObject *Sender)
{
    FORMSHOW(IRP0010M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::OnAppHint(TObject *Sender)
{
    dxStatusBar->Panels->Items[isbHint]->Text = " " + Application->Hint;
    dxStatusBar->Panels->Items[isbHint]->StatusBarControl->Refresh();
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::OnAppException(TObject *Sender, Exception *exception)
{
	if (g_AppCfg.bAppClose)
    {
        ITSDb_Close();
        Close();                // 응용프로그램 종료
    }

    String sClassName = (NULL != Sender)        ? Sender->ClassName() : String("Unknown_Class");
    String sErrMsg    = (NULL != exception)     ? exception->Message  : String("Unknown_Error");
    String sError     = sClassName + " : " + sErrMsg;

    //Application->ShowException(&exception);

    if (sError.Pos("ORA") || sError.Pos("TBR"))
    {
        ITSDb_Close();
    }
    else
    {
        Application->NormalizeTopMosts();
        Application->MessageBox(sError.c_str(), L"System Error", MB_OK|MB_ICONERROR|MB_APPLMODAL);
        Application->RestoreTopMosts();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::UpdateThreadStatus(bool ARequest, bool APing/*=true*/)
{
return;
    try
    {
        if (APing) if (ARequest) PostJobMessage(WM_THREAD, WP_PING);
        ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbStatus]->PanelStyle)->ImageIndex =  ARequest ? 7 : 8;
        dxStatusBar->Panels->Items[isbDb]->StatusBarControl->Refresh();
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::UpdateDbStatus(bool ASelect)
{
    try
    {
        ((TdxStatusBarTextPanelStyle*)dxStatusBar->Panels->Items[isbDb]->PanelStyle)->ImageIndex =  ASelect ? 7 : 8;
        dxStatusBar->Panels->Items[isbDb]->StatusBarControl->Refresh();
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::ApplicationEvents1Message(tagMSG &Msg, bool &Handled)
{
    switch(Msg.message)
    {
    case WM_THREAD:
        switch(Msg.wParam)
        {
        case WP_PING:
            UpdateThreadStatus(false);  //스레드 핑 확인
            break;
        case WP_PARAM_TRAFFIC:
            break;
        case WP_DB_SELECT_START:
            UpdateDbStatus(true);
            break;
        case WP_DB_SELECT_OK:
        case WP_DB_SELECT_ERROR:
        case WP_DB_SELECT_CANCEL:
            UpdateDbStatus(false);
            if (Msg.wParam == WP_DB_SELECT_OK)
            {
                OnRefreshMessage(Msg.wParam, Msg.lParam);
            }
            else
            {
                DebugMsg(FrmLang->cxLabel13->Caption);
            }
            break;
        }
        break;
    case WM_DATABASE_REFRESH:
        OnDatabaseMessage(Msg.wParam, Msg.lParam);
        break;
    case WM_PLUGINFORM:
        OnRefreshMessage(Msg.wParam, Msg.lParam);
        break;
    case WM_MOUSEMOVE:
        FLogoutTick = 0;
        break;
    case WM_KEYDOWN:
        FLogoutTick = 0;
        if (Msg.wParam == VK_F5)
        {
            Handled = true;
        }
        break;
    case WM_KEYUP:
        FLogoutTick = 0;
        break;
    case WM_USER+0xF4:
        if (Msg.wParam == 0xB2)
        {
            ITSDb_Close();
            DebugMsg(FrmLang->cxLabel14->Caption);
        }
        break;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::ApplicationEvents1ShortCut(TWMKey &Msg, bool &Handled)
{
    if (Msg.CharCode == VK_F2)
    {
        NTAS0030MClick((TObject*)NTAS0030M);
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::OnRefreshMessage(WPARAM AWParam, LPARAM ALParam)
{
    HWND hWnd;

    // 폴링 스레드에서 데이터베이스 작업 완료후 응답 메시지 처리
    if (AWParam == WP_DB_SELECT_OK)
    {
        DWORD dwTick = GetTickCount();
        switch(ALParam)
        {
        case LP_MSG_TRAFFIC:        DebugMsg(FrmLang->cxLabel3->Caption  + FrmLang->cxLabelRes->Caption); FPollTraffic00.Polling = dwTick; break;
        case LP_MSG_DATABASE_STTS:  DebugMsg(FrmLang->cxLabel25->Caption + FrmLang->cxLabelRes->Caption); FPollDatabase.Polling  = dwTick; break;

        case LP_MSG_FACILITY_STTS:  DebugMsg(FrmLang->cxLabel8->Caption  + FrmLang->cxLabelRes->Caption); FPollStatus01.Polling  = dwTick; break;
        case LP_MSG_PROCESS_STTS:   DebugMsg(FrmLang->cxLabel9->Caption  + FrmLang->cxLabelRes->Caption); FPollStatus02.Polling  = dwTick; break;
        case LP_MSG_INCIDENT:       DebugMsg(FrmLang->cxLabel10->Caption + FrmLang->cxLabelRes->Caption); FPollStatus03.Polling  = dwTick; break;
        case LP_MSG_16: DebugMsg(FrmLang->cxLabel11->Caption + FrmLang->cxLabelRes->Caption); FPollEvent01.Polling   = dwTick; break;
        case LP_MSG_WEATHER:        DebugMsg(FrmLang->cxLabel12->Caption + FrmLang->cxLabelRes->Caption); FPollVilgFrcs.Polling  = dwTick; break;
        case LP_MSG_05: DebugMsg(FrmLang->cxLabel18->Caption + FrmLang->cxLabelRes->Caption); FPollTraffic05.Polling = dwTick; break;

        case LP_MSG_09: DebugMsg(FrmLang->cxLabel15->Caption + FrmLang->cxLabelRes->Caption);  break;  //프로세스정보 재로딩
        case LP_MSG_14: DebugMsg(FrmLang->cxLabel16->Caption + FrmLang->cxLabelRes->Caption);  break;  //시설물정보 재로딩
        }

        if (NITS0000M->Enabled)
        {
            hWnd = FindChildWindow("ITS0000M");
            if (hWnd) POST_MSG(hWnd, WM_MAINFORM, AWParam, ALParam);
        }

        if (ALParam == LP_MSG_FACILITY_STTS && NVDSM300M->Enabled)
        {
            hWnd = FindChildWindow("VDSM300M");
            if (hWnd) POST_MSG(hWnd, WM_MAINFORM, AWParam, ALParam);
        }

        if (ALParam == LP_MSG_FACILITY_STTS)
        {
            //시설물 상태정보 업데이트
            ShowFacilityStatus();
        }
        else
        if (ALParam == LP_MSG_INCIDENT)
        {
            //돌발발생정보
            //ShowAutoIncidentInfo();
        }
    }
    else
    if (AWParam == WP_MSG_15)
    {
        if (LP_MSG_15 == ALParam)
        {
            DebugMsg("GIS Link Select");
            if (NITS0000M->Enabled)
            {
                hWnd = FindChildWindow("ITS0000M");
                if (hWnd) POST_MSG(hWnd, WM_MAINFORM, AWParam, ALParam);
            }
        }
    }
    else
    {
        LOGERROR("DB Thread failed: %02X[%02X]", ALParam, AWParam);
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::OnDatabaseMessage(WPARAM AWParam, LPARAM ALParam)
{
    HWND hWnd;

    switch(AWParam)
    {
    case WP_MSG_01: //소통등급변경
    case WP_MSG_02: //돌발정보변경(오보/등록/해제)
        if (NITS0000M->Enabled)
        {
            hWnd = FindChildWindow("ITS0000M");
            if (hWnd) POST_MSG(hWnd, WM_MAINFORM, AWParam, ALParam);
        }
        break;
    case WP_MSG_03: //시설물 정보 변경
        DebugMsg(FrmLang->cxLabel16->Caption + FrmLang->cxLabelReq->Caption);
        PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_14);
        //hWnd = FindChildWindow("ITS0000M");
        //if (hWnd) POST_MSG(hWnd, WM_MAINFORM, AWParam, ALParam);
        break;
    case WP_MSG_04: // IDB0070M-휴일정보
    case WP_MSG_05: // FrmLinkGradeSet-구간등급변경
    case WP_MSG_06: // IDB0060M - 소통등급
    case WP_MSG_07: // IDB0050M -교통파라미터
        //CComm_NodeLinkChangeReq();
        break;
    case WP_MSG_09: // IDB0100M
        DebugMsg(FrmLang->cxLabel12->Caption + FrmLang->cxLabelReq->Caption);
        PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_09); //작업스레드에서 읽어 처리하도록 한다.

        break;
    case WP_MSG_14: // DSRM010M -DSRC 관리
        PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_14); //작업스레드에서 읽어 처리하도록 한다.
        break;
    default:
        LOGERROR("Unknown Database Msg: %02X[%02X]", ALParam, AWParam);
        break;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::OnUdpDataRecvMessage(TMessage &Msg)
{
    int             nResult;
    IPC_MSG_DATA   *RcvData = (IPC_MSG_DATA*)Msg.LParam;
    INT_SENDER     *Sender  = &RcvData->Sender;
    INT_PACKET     *Pkt     = &RcvData->Pkt;
    INT_HEAD       *head    = &Pkt->head;
    INT_DATA       *data    = &Pkt->data;
    char           *pData   = &Pkt->data.Data[0];
    BYTE            OpCode  = head->OpCode;

    LOGINFO("*** OPR Client Req: %s.%d", CComm_ulong2ip(Sender->IP), Sender->Port);

    HWND hWnd;

    bool   bFacility;
    String sMsg      = "";
    String sCtrlNmbr = "";
    TItsFacility *pFacility;
    WPARAM AWParam;
    LPARAM ALParam;

    switch(OpCode)
    {
    case INT_OP_PG_STATE_RES:
        {
            DebugMsg(FrmLang->cxLabel19->Caption);
            INT_PG_STATE_RES *ARes = (INT_PG_STATE_RES*)pData;

            String CommStatus;
            bFacility = false;
            for (int ii = 0; ii < ARes->Count && ii < INT_MAX_PG_STATE; ii++)
            {
                String SYST_ID;
                switch(ARes->Unit[ii].Type)
                {
                case INT_ID_TRAFFIC_SERVER: SYST_ID = "UTP01";  break;
                case INT_ID_VDS_SERVER:     SYST_ID = "VDS01";  break;
                case INT_ID_DSRC_SERVER:    SYST_ID = "DSRC01"; break;
                case INT_ID_VMS_SERVER:     SYST_ID = "VMS01";  break;
                case INT_ID_WCAM_SERVER:    SYST_ID = "WCAM01"; break;
                case INT_ID_CCAM_SERVER:    SYST_ID = "CCAM01"; break;
                case INT_ID_EXT01_SERVER:   SYST_ID = "EXT01";  break;
                case INT_ID_EXT02_SERVER:   SYST_ID = "EXT02";  break;
                default: continue;
                }
                TItsProcess *pObj = ItsProcessManager->FLists.Find(SYST_ID);
                if (pObj)
                {
                    CommStatus = ARes->Unit[ii].Action == 0x00 ? "1" : "0";

                    if (pObj->CommStatus != CommStatus) bFacility = true;

                    pObj->CommStatus = CommStatus;
                }
            }
            if (bFacility) OnRefreshMessage(WP_DB_SELECT_OK, LP_MSG_PROCESS_STTS);
        }
        break;
    case INT_OP_VMS_STATE_RES:
        {
            INT_VMS_STATE_RES *ARes = (INT_VMS_STATE_RES*)pData;

            sMsg = "";
            sMsg.printf(FrmLang->cxLabel20->Caption.c_str(), ARes->Count);
            DebugMsg(sMsg);

            bFacility = false;
            for (int ii = 0; ii < ARes->Count && ii < INT_VMS_MAX_STATE; ii++)
            {
                sMsg = "";
                INT_VMS_STATE *pVms = &ARes->Unit[ii];
                sCtrlNmbr = String(pVms->VMS_CTLR_NMBR);
                TVmsCtlr *pObj = VmsCtlrManager->FLists.Find(sCtrlNmbr);
                if (pObj)
                {
                    if (pObj->STATE.Comm != pVms->Comm) bFacility = true;

                    memcpy(&pObj->STATE, pVms, sizeof(INT_VMS_STATE));

                    if      (pObj->STATE.OprMode == 'A') pObj->OPER_MODE = "A";
                    else if (pObj->STATE.OprMode == 'B') pObj->OPER_MODE = "B";
                    else                                 pObj->OPER_MODE = "F";

                    pObj->CheckRunState();

                    if (pObj->STATE.Comm != vms_comm_normal)
                    {
                        pObj->VmsMsg->OFFER_YN = false;
                    }

                    pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
                    if (pFacility)
                    {
                        pFacility->FComm = pObj->STATE.Comm == vms_comm_normal ? state_normal : state_error;
                    }
                }
                else
                {
                    sMsg.printf(L"INT_OP_VMS_STATE_RES VMS not found: %s", sCtrlNmbr.c_str());
                    DebugMsg(sMsg);
                }
            }
            if (bFacility) OnRefreshMessage(WP_DB_SELECT_OK, LP_MSG_FACILITY_STTS);
        }
        break;
    case INT_OP_VDS_STATE_RES:
        {
            INT_VDS_STATE_RES *ARes = (INT_VDS_STATE_RES*)pData;

            sMsg = "";
            sMsg.printf(FrmLang->cxLabel26->Caption.c_str(), ARes->Count);
            DebugMsg(sMsg);

            bFacility = false;
            for (int ii = 0; ii < ARes->Count && ii < INT_VDS_MAX_STATE; ii++)
            {
                sMsg = "";
                INT_VDS_STATE *pVds = &ARes->Unit[ii];
                sCtrlNmbr = String(pVds->VDS_CTLR_NMBR);
                TVdsCtlr *pObj = VdsCtlrManager->FLists.Find(sCtrlNmbr);
                if (pObj)
                {
                    if (pObj->STATE.Comm != pVds->Comm) bFacility = true;

                    memcpy(&pObj->STATE, pVds, sizeof(INT_VDS_STATE));

                    pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
                    if (pFacility)
                    {
                        pFacility->FComm = pObj->STATE.Comm == vds_normal ? state_normal : state_error;
                    }
                }
                else
                {
                    sMsg.printf(L"INT_OP_VDS_STATE_RES VDS not found: %s", sCtrlNmbr.c_str());
                    DebugMsg(sMsg);
                }
            }
            if (bFacility) OnRefreshMessage(WP_DB_SELECT_OK, LP_MSG_FACILITY_STTS);
        }
        break;
    case INT_OP_DSRC_STATE_RES:
        {
            INT_DSRC_STATE_RES *ARes = (INT_DSRC_STATE_RES*)pData;

            sMsg = "";
            sMsg.printf(FrmLang->cxLabel28->Caption.c_str(), ARes->Count);
            DebugMsg(sMsg);

            bFacility = false;
            for (int ii = 0; ii < ARes->Count && ii < INT_DSRC_MAX_STATE; ii++)
            {
                sMsg = "";
                INT_DSRC_STATE *pDsrc = &ARes->Unit[ii];
                sCtrlNmbr = String(pDsrc->DSRC_CTLR_NMBR);
                TItsDsrc *pObj = ItsDsrcManager->FLists.Find(sCtrlNmbr);
                if (pObj)
                {
                    if (pObj->STATE.Comm != pDsrc->Comm) bFacility = true;

                    memcpy(&pObj->STATE, pDsrc, sizeof(INT_DSRC_STATE));

                    pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
                    if (pFacility)
                    {
                        pFacility->FComm = pObj->STATE.Comm == dsrc_normal ? state_normal : state_error;
                    }
                }
                else
                {
                    sMsg.printf(L"INT_OP_DSRC_STATE_RES DSRC not found: %s", sCtrlNmbr.c_str());
                    DebugMsg(sMsg);
                }
            }
            if (bFacility) OnRefreshMessage(WP_DB_SELECT_OK, LP_MSG_FACILITY_STTS);
        }
        break;
    case INT_OP_WCAM_STATE_RES:
        {
            INT_WCAM_STATE_RES *ARes = (INT_WCAM_STATE_RES*)pData;

            sMsg = "";
            sMsg.printf(FrmLang->cxLabel27->Caption.c_str(), ARes->Count);
            DebugMsg(sMsg);

            bFacility = false;
            for (int ii = 0; ii < ARes->Count && ii < INT_WCAM_MAX_STATE; ii++)
            {
                sMsg = "";
                INT_WCAM_STATE *pCam = &ARes->Unit[ii];
                sCtrlNmbr = String(pCam->WCAM_CTLR_NMBR);
                TWCamCtlr *pObj = WCamCtlrManager->FLists.Find(sCtrlNmbr);
                if (pObj)
                {
                    if (pObj->STATE.Comm != pCam->Comm) bFacility = true;

                    memcpy(&pObj->STATE, pCam, sizeof(INT_WCAM_STATE));

                    pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
                    if (pFacility)
                    {
                        pFacility->FComm = pObj->STATE.Comm == wcam_normal ? state_normal : state_error;
                    }
                }
                else
                {
                    sMsg.printf(L"INT_OP_WCAM_STATE_RES WCAM not found: %s", sCtrlNmbr.c_str());
                    DebugMsg(sMsg);
                }
            }
            if (bFacility) OnRefreshMessage(WP_DB_SELECT_OK, LP_MSG_FACILITY_STTS);
        }
        break;
    case INT_OP_CCAM_STATE_RES:
        {
            INT_CCAM_STATE_RES *ARes = (INT_CCAM_STATE_RES*)pData;

            sMsg = "";
            sMsg.printf(FrmLang->cxLabel27->Caption.c_str(), ARes->Count);
            DebugMsg(sMsg);

            bFacility = false;
            for (int ii = 0; ii < ARes->Count && ii < INT_CCAM_MAX_STATE; ii++)
            {
                sMsg = "";
                INT_CCAM_STATE *pCam = &ARes->Unit[ii];
                sCtrlNmbr = pCam->CCAM_CTLR_NMBR;
                TCCamCtlr *pObj = CCamCtlrManager->FLists.Find(sCtrlNmbr);
                if (pObj)
                {
                    if (pObj->STATE.Comm != pCam->Comm) bFacility = true;

                    memcpy(&pObj->STATE, pCam, sizeof(INT_CCAM_STATE));

                    pFacility = ItsFacilityManager->FLists.Find(pObj->CTLR_ID);
                    if (pFacility)
                    {
                        pFacility->FComm = pObj->STATE.Comm == ccam_normal ? state_normal : state_error;
                    }
                }
                else
                {
                    sMsg.printf(L"INT_OP_CCAM_STATE_RES WCAM not found: %s", sCtrlNmbr.c_str());
                    DebugMsg(sMsg);
                }
            }
            if (bFacility) OnRefreshMessage(WP_DB_SELECT_OK, LP_MSG_FACILITY_STTS);
        }
        break;
    case INT_OP_VMS_FORM_SAVE:
        {
            //FPollVmsMsg.Reset();    //VMS메시지 조회 타이머 리셋
            char szDateTime[INT_VMS_MAX_DATETIME+1];
            INT_VMS_FORM_SAVE_REQ *AReq = (INT_VMS_FORM_SAVE_REQ*)pData;
            sprintf(szDateTime, "%.*s", INT_VMS_MAX_DATETIME, (char*)AReq->Date);
            String sDateTime = String(szDateTime);
            sMsg = "";
            sMsg.printf(L"*** VMS 폼생성 완료 메시지 수신: %s", sDateTime.c_str());
            DebugMsg(sMsg);
            //OnRefreshMessage(WP_DB_SELECT_OK, LP_MSG_VMS_DSPLMSG);
            //VMS다운로드한 결과를 받아서 새로운 VMS스케쥴을 표출하도록 한다.
        }
        break;
    case INT_OP_VMS_FORM_DOWNLOAD:
        {
            OnRefreshMessage(WP_DB_SELECT_OK, LP_MSG_VMS_DSPLMSG);
#if 0
            char szDateTime[INT_VMS_MAX_DATETIME+1];
            char szVmsNmbr[INT_VMS_MAX_ID+1];
            INT_VMS_FORM_DOWNLOAD_REQ *AReq = (INT_VMS_FORM_DOWNLOAD_REQ*)pData;

            sMsg.printf(L"*** VMS 폼 다운로드 메시지 수신: %d EA", AReq->Count);
            DebugMsg(sMsg);

            for (int ii = 0; ii < AReq->Count && ii < INT_VMS_MAX_FORM_DOWNLOAD; ii++)
            {
                sMsg = "";

                INT_VMS_FORM_DOWNLOAD *pVms = &AReq->Unit[ii];
                sprintf(szVmsNmbr, "%.*s", INT_VMS_MAX_ID, (char*)pVms->VmsId);
                sprintf(szDateTime, "%.*s", INT_VMS_MAX_DATETIME, (char*)pVms->Date);

                sCtrlNmbr = String(szVmsNmbr);
                String sDateTime = String(szDateTime);

                TVmsCtlr *pObj = VmsManager->FLists.Find(sCtrlNmbr);
                if (pObj)
                {
                    bool bDnLd = (pVms->Result == vms_download_succ) ? true : false;
                    String sResult = bDnLd ? "Succ" : "Fail";

                    pObj->VmsMsg->OFFER_DT = sDateTime;
                    pObj->VmsMsg->OFFER_YN = bDnLd;

                    for (int kk = 0; kk < pObj->VmsMsg->Total && kk < INT_VMS_MAX_FORM; kk++)
                    {
                        pObj->VmsMsg->PHASE[kk].DNLD_YN = bDnLd ? "Y" : "N";
                    }

                    //sMsg.printf(L"*** ===> VMS Msg download: %s, %s", pObj->VMS_CTLR_ID.c_str(), sResult.c_str());
                    //DebugMsg(sMsg);
                }
                else
                {
                    sMsg.printf(L"*** INT_OP_VMS_FORM_DOWNLOAD VMS not found: %s", sCtrlNmbr.c_str());
                    DebugMsg(sMsg);
                }
            }
#endif
        }
        break;
    case INT_OP_TRAFFIC_CHANGE:       	/* 0x01, 교통정보가공완료 */
        {
            DebugMsg("Traffic Changed");
            FPollTraffic00.Reset(); // 링크소통정보(전체)
        }
        break;
    case INT_OP_NODELINK_CHANGE:    /* 0x10, 노드링크 기반 정보 변경 */
        {
            DebugMsg("Node Link DB Changed");
            //휴일정보
            //구간등급변경
            //소통등급
            //교통파라미터
            /*
            *  기존에는 처리하는것이 없었음.
            *  ---> 심심할때 처리하자
            */
        }
        break;
    case INT_OP_FACILITY_CHANGE:    /* 0x12, 시설물 기반 정보 변경 */
        {
            //CCTV, VMS관련기본정보
            DebugMsg(FrmLang->cxLabel17->Caption);
            PostJobMessage(WM_THREAD, WP_PARAM_TRAFFIC, LP_MSG_14);
        }
        break;
    case INT_OP_VDS_STOP_IMAGE_RES: /* VDS 정지영상 요청 응답 */
        {
            DebugMsg("VDS Stop Image response");
            INT_VDS_STOP_IMAGE_RES *ARes = (INT_VDS_STOP_IMAGE_RES*)pData;
            hWnd = FindChildWindow("VDSM300M");
            if (hWnd) POST_MSG(hWnd, WM_MAINFORM, INT_OP_VDS_STOP_IMAGE_RES, Msg.LParam);
        }
        break;
    case INT_OP_DSRC_CONTROL_RES: /* DSRC Control 요청 응답 */
        {
            DebugMsg("DSRC Control response");
            INT_DSRC_CONTROL_RES *ARes = (INT_DSRC_CONTROL_RES*)pData;
            hWnd = FindChildWindow("DSRM020M");
            if (hWnd) POST_MSG(hWnd, WM_MAINFORM, INT_OP_DSRC_CONTROL_RES, Msg.LParam);
        }
        break;
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmMain::OnPollingThreadDone(TObject *Sender)
{
    LOGINFO("Polling thead terminated");
    g_AppCfg.thr.bRunning = false;
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::ShowFacilityStatus()
{
//    HWND hWnd = FindChildWindow("ITS0000M");
//    if (hWnd) POST_MSG(hWnd, WM_MAINFORM, AWParam, ALParam);
    bool bShow = false;
    try
    {
        try
        {
            ItsFacilityManager->FLists.Lock();
            FOR_STL(TItsFacility*, pFacility, ItsFacilityManager->FLists)
            {
                if (pFacility->DEL_YN == "Y") continue;

#if 0
                if (pFacility->FCLT_TYPE == "DSRC")
                {
                    if (pFacility->FCollCntBase > pFacility->FCollCntCurr)
                    {
                        bShow = true;
                        break;
                    }
                }
#endif

                if (pFacility->FComm != str_state_normal)
                {
                    bShow = true;
                    break;
                }
                else
                {
                    if (pFacility->FDoor != str_state_normal)
                    {
                        bShow = true;
                        break;
                    }
                    if (pFacility->FCBoxTmpr > g_AppCfg.Temp.AlarmValue)
                    {
                        bShow = true;
                        break;
                    }

                    if (pFacility->FCLT_TYPE == "VMS")
                    {
                        if (pFacility->Sts01 != str_state_normal || pFacility->Sts02 != str_state_normal)
                        {
                            bShow = true;
                            break;
                        }
                    }
                    if (pFacility->FCLT_TYPE == "VDS")
                    {
                        if (pFacility->FCollError)
                        {
                            bShow = true;
                            break;
                        }
                    }
                }
            }
        }
        __finally
        {
            ItsFacilityManager->FLists.UnLock();
        }
    }
    catch(...)
    {
    }

    if (!bShow)
    {
        LblAlarm->Style->Font->Color = clBlack;
        //LblAlarm->Caption = "알람정보";
        LblAlarm->Caption = FrmLang->cxLabel21->Caption;
        ImgAlarm->Visible = false;
        ImgAlarmNormal->Visible = true;
        try {
            if (ImgAlarm->Picture->Graphic->ClassName() == "TGIFImage")
                ((TGIFImage *)ImgAlarm->Picture->Graphic)->Animate = false;
        } catch(...) {}
        return;
    }

    ImgAlarmNormal->Visible = false;
    ImgAlarm->Visible = true;
    try {
        if (ImgAlarm->Picture->Graphic->ClassName() == "TGIFImage")
            ((TGIFImage *)ImgAlarm->Picture->Graphic)->Animate = true;
    } catch(...) {}
    //LblAlarm->Caption = "알람발생";
    LblAlarm->Caption = FrmLang->cxLabel22->Caption;
    LblAlarm->Style->Font->Color = clRed;

    if (!g_AppCfg.Alarm.Enabled) return;
    if (!g_AppCfg.Alarm.Window) return;


    try
    {
        if (FrmFacilityAlarm == NULL)
        {
            FrmFacilityAlarm = new TFrmFacilityAlarm(Application);
        }
        FrmFacilityAlarm->Show();
        FrmFacilityAlarm->ShowFacilityAlarm();
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::ShowAutoIncidentInfo()
{
//    HWND hWnd = FindChildWindow("ITS0000M");
//    if (hWnd) POST_MSG(hWnd, WM_MAINFORM, AWParam, ALParam);

    if (!g_AppCfg.Incident.Enabled) return;

    bool bShow = false;
    try
    {
        try
        {
            ItsIncidentManager->FAutoLists.Lock();

            if (ItsIncidentManager->FAutoLists.Size() > 0)
            {
                bShow = true;
            }
        }
        __finally
        {
            ItsIncidentManager->FAutoLists.UnLock();
        }
    }
    catch(...)
    {
    }

    if (!bShow) return;

    try
    {
        if (FrmIncidentAlarm == NULL)
        {
            FrmIncidentAlarm = new TFrmIncidentAlarm(Application);
        }
        FrmIncidentAlarm->Show();
        FrmIncidentAlarm->ShowIncidentAlarm();
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NDSRH010MClick(TObject *Sender)
{
#ifdef USE_DSRC
    FORMSHOW(DSRH010M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NDSRH020MClick(TObject *Sender)
{
#ifdef USE_DSRC
    FORMSHOW(DSRH020M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NDSRH030MClick(TObject *Sender)
{
#ifdef USE_DSRC
    FORMSHOW(DSRH030M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NDSRH040MClick(TObject *Sender)
{
#ifdef USE_DSRC
    FORMSHOW(DSRH040M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NDSRH050MClick(TObject *Sender)
{
#ifdef USE_DSRC
    FORMSHOW(DSRH050M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NDSRH060MClick(TObject *Sender)
{
#ifdef USE_DSRC
    FORMSHOW(DSRH060M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NDSRH070MClick(TObject *Sender)
{
#ifdef USE_DSRC
    FORMSHOW(DSRH070M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NDSRM010MClick(TObject *Sender)
{
#ifdef USE_DSRC
    FORMSHOW(DSRM010M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NDSRM020MClick(TObject *Sender)
{
#ifdef USE_DSRC
    FORMSHOW(DSRM020M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NDSRM030MClick(TObject *Sender)
{
#ifdef USE_DSRC
    FORMSHOW(DSRM030M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NDSRM040MClick(TObject *Sender)
{
#ifdef USE_DSRC
    FORMSHOW(DSRM040M);
#endif
}
//---------------------------------------------------------------------------
void __fastcall TFrmMain::NDSRM050MClick(TObject *Sender)
{
#ifdef USE_DSRC
    FORMSHOW(DSRM050M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVDSH010MClick(TObject *Sender)
{
    FORMSHOW(VDSH010M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVDSH020MxClick(TObject *Sender)
{
    FORMSHOW(VDSH020M);
}
//---------------------------------------------------------------------------

/*
 * VDS-검지기 과거수집이력화면 호출
 */
void __fastcall TFrmMain::NVDSH030MxClick(TObject *Sender)
{
    FORMSHOW(VDSH030M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVDSH040MClick(TObject *Sender)
{
    FORMSHOW(VDSH040M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVDSH050MxClick(TObject *Sender)
{
    FORMSHOW(VDSH050M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVDSS010MClick(TObject *Sender)
{
    FORMSHOW(VDSS010M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVDSS020MClick(TObject *Sender)
{
    FORMSHOW(VDSS020M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NAVIM010MClick(TObject *Sender)
{
#ifdef USE_AVI
    FORMSHOW(AVIM010M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NAVIM020MClick(TObject *Sender)
{
#ifdef USE_AVI
    FORMSHOW(AVIM020M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NAVIH010MClick(TObject *Sender)
{
#ifdef USE_AVI
    FORMSHOW(AVIH010M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NAVIH020MxClick(TObject *Sender)
{
#ifdef USE_AVI
    FORMSHOW(AVIH020M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NAVIH030MxClick(TObject *Sender)
{
#ifdef USE_AVI
    FORMSHOW(AVIH030M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NAVIH040MClick(TObject *Sender)
{
#ifdef USE_AVI
    FORMSHOW(AVIH040M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NAVIH050MClick(TObject *Sender)
{
#ifdef USE_AVI
    FORMSHOW(AVIH050M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NAVIH060MClick(TObject *Sender)
{
#ifdef USE_AVI
    FORMSHOW(AVIH060M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NAVIH070MClick(TObject *Sender)
{
#ifdef USE_AVI
    FORMSHOW(AVIH070M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NAVIS010MClick(TObject *Sender)
{
#ifdef USE_AVI
    FORMSHOW(AVIS010M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NAVIS020MClick(TObject *Sender)
{
#ifdef USE_AVI
    FORMSHOW(AVIS020M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NSMS0010MClick(TObject *Sender)
{
    //FORMSHOW(SMS0010M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NSMS0020MClick(TObject *Sender)
{
    //FORMSHOW(SMS0020M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NSMS0030MClick(TObject *Sender)
{
    //FORMSHOW(SMS0030M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIFM0040MClick(TObject *Sender)
{
    FORMSHOW(IFM0040M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIFM0050MClick(TObject *Sender)
{
    FORMSHOW(IFM0050M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NPIS0010MClick(TObject *Sender)
{
#ifdef USE_PARK2
    FORMSHOW(PIS0010M);
#endif
#ifdef USE_PARK
    FORMSHOW(PRK0010M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NPIS0030MClick(TObject *Sender)
{
#ifdef USE_PARK2
    FORMSHOW(PIS0030M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NPIS0020MClick(TObject *Sender)
{
#ifdef USE_PARK2
    FORMSHOW(PIS0020M);
#endif
#ifdef USE_PARK
    FORMSHOW(PRK0020M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NPIS0050MClick(TObject *Sender)
{
#ifdef USE_PARK
    FORMSHOW(PRK0050M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NPIS0060MClick(TObject *Sender)
{
#ifdef USE_PARK
    FORMSHOW(PRK0060M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NPIS0040MClick(TObject *Sender)
{
#ifdef USE_PARK
    FORMSHOW(PRK0040M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NPISH010MClick(TObject *Sender)
{
#ifdef USE_PARK2
    FORMSHOW(PISH010M);
#endif
#ifdef USE_PARK
    FORMSHOW(PRKH010M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NPISH020MClick(TObject *Sender)
{
#ifdef USE_PARK2
    FORMSHOW(PISH020M);
#endif
#ifdef USE_PARK
    FORMSHOW(PRKH020M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::OnAlarmDblClick(TObject *Sender)
{
    try
    {
#if 0
//TODO
if (FrmIncidentAlarm == NULL)
{
    FrmIncidentAlarm = new TFrmIncidentAlarm(Application);
}
FrmIncidentAlarm->Show();
FrmIncidentAlarm->ShowIncidentAlarm();
#endif
        if (FrmFacilityAlarm == NULL)
        {
            FrmFacilityAlarm = new TFrmFacilityAlarm(Application);
        }
        FrmFacilityAlarm->Show();
        FrmFacilityAlarm->ShowFacilityAlarm();
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIHS0060MClick(TObject *Sender)
{
    FORMSHOW(IHS0060M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIHS0070MClick(TObject *Sender)
{
    FORMSHOW(IHS0070M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::TmrDbCheckTimer(TObject *Sender)
{
    TmrDbCheck->Enabled = false;

    if (ITSDb_IsOpen() == false)
    {
        //DebugMsg("데이터베이스 연결 오류....");
        DebugMsg(FrmLang->cxLabel23->Caption);
        UpdateDbStatus(true);
        if (DbConnect())
        {
            if (ITSDb_Open())
            {
                UpdateDbStatus(false);
                //DebugMsg("데이터베이스 재연결 성공....");
                DebugMsg(FrmLang->cxLabel24->Caption);
            }
        }
        TmrDbCheck->Interval = 10000;
    }
    else
    {
        if (IsDbAlive())
        {
            TmrDbCheck->Interval = 10000;
        }
        else
        {
            TmrDbCheck->Interval = 5000;
        }
    }
    TmrDbCheck->Enabled = true;
}
//---------------------------------------------------------------------------
bool __fastcall TFrmMain::DbConnect()
{
    TADOConnection *m_pConnection = new TADOConnection(NULL);
    try
    {
        try
        {
            m_pConnection->ConnectionString	= ITSDb_GetConnStr();
            m_pConnection->KeepConnection	= true;
            m_pConnection->LoginPrompt		= false;
            m_pConnection->Open();
            m_pConnection->Close();
        }
        catch(EDatabaseError &E)
        {
            return false;
        }
        catch (Exception &e)
        {
            return false;
        }
        catch (...)
        {
            return false;
        }
    }
    __finally
    {
        SAFE_DELETE(m_pConnection);
    }

    return true;
}
//---------------------------------------------------------------------------
bool __fastcall TFrmMain::IsDbAlive()
{
    String     sQry;
    TADOQuery *pADO = NULL;
    try
    {
        sQry = "SELECT TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS') AS CURDATE FROM DUAL";

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

			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;
            pADO->Prepared = true;
			pADO->Open();

            for( ; !pADO->Eof; pADO->Next())
            {
                String sCurrDate = pADO->FieldByName("CURDATE")->AsString;
            }
        }
        catch (Exception &exception)
        {
            ITSDb_Close();
            return false;
        }
	}
	__finally
	{
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
	}
    return true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NBDS0010MClick(TObject *Sender)
{
#ifdef D_BLACKBOX
    FORMSHOW(BDS0010M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NBDS0020MClick(TObject *Sender)
{
#ifdef D_BLACKBOX
    FORMSHOW(BDS0020M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NBDH0010MClick(TObject *Sender)
{
#ifdef D_BLACKBOX
    FORMSHOW(BDSH010M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NBDH0020MClick(TObject *Sender)
{
#ifdef D_BLACKBOX
    FORMSHOW(BDSH020M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NTAS0010MClick(TObject *Sender)
{
    //FORMSHOW(TAS0010M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NTAS0020MClick(TObject *Sender)
{
    //FORMSHOW(TAS0020M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NTAS0030MClick(TObject *Sender)
{
    //FORMSHOW(TAS0030M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NTAS0040MClick(TObject *Sender)
{
    //FORMSHOW(TAS0040M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NTAS0050MClick(TObject *Sender)
{
    //FORMSHOW(TAS0050M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NTAS0060MClick(TObject *Sender)
{
    //FORMSHOW(TAS0060M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NTAS0070MClick(TObject *Sender)
{
    //FORMSHOW(TAS0070M);
}
//---------------------------------------------------------------------------
void __fastcall TFrmMain::NTAS0080MClick(TObject *Sender)
{
    //FORMSHOW(TAS0080M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NTAS0090MClick(TObject *Sender)
{
    //FORMSHOW(TAS0090M);
}
//---------------------------------------------------------------------------


void __fastcall TFrmMain::NWBH0010MClick(TObject *Sender)
{
#ifdef D_WBH0010M
    FORMSHOW(WBH0010M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NAVIH080MClick(TObject *Sender)
{
#ifdef USE_AVI
    FORMSHOW(AVIH080M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIDB0140MClick(TObject *Sender)
{
#ifdef D_IDB0140M
    FORMSHOW(IDB0140M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NITS0050MClick(TObject *Sender)
{
//    FORMSHOW(ITS0050M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVDSM100MClick(TObject *Sender)
{
#ifdef USE_VDS
    FORMSHOW(VDSM100M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVDSM020MClick(TObject *Sender)
{
#ifdef USE_VDS
    FORMSHOW(VDSM200M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NWCAM100MClick(TObject *Sender)
{
#ifdef USE_WCAM
    FORMSHOW(WCAM100M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NWCAM010MClick(TObject *Sender)
{
#ifdef USE_WCAM
    FORMSHOW(WCAM010M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVDSM000MClick(TObject *Sender)
{
#ifdef USE_VDS
    FORMSHOW(VDSM000M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVDSM400MClick(TObject *Sender)
{
#ifdef USE_VDS
    FORMSHOW(VDSM400M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVDSH070MClick(TObject *Sender)
{
#ifdef USE_VDS
    FORMSHOW(VDSH070M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVDSH080MClick(TObject *Sender)
{
#ifdef USE_VDS
    FORMSHOW(VDSH080M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NWCAMH10MClick(TObject *Sender)
{
#ifdef USE_WCAM
    FORMSHOW(WCAMH10M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVDSM300MClick(TObject *Sender)
{
#ifdef USE_VDS
    FORMSHOW(VDSM300M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NCCAM100MClick(TObject *Sender)
{
#ifdef USE_CCAM
    FORMSHOW(CCAM100M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NCCAMH10MClick(TObject *Sender)
{
#ifdef USE_CCAM
    FORMSHOW(CCAMH10M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NCCAM020MClick(TObject *Sender)
{
#ifdef USE_CCAM
    //FORMSHOW(CCAM020M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NTST0000MClick(TObject *Sender)
{
#if 0
    String sExeName = "Project1.exe";
    String sParam   = "\"" + g_pLOGIN->sUserId + "\" \"" + g_pLOGIN->sUserId + "\"";
    //ShellExecute(NULL,"open", "C:\\myprocess.exe", "\"my argument 1 containing spaces\" \"my argument 2\"","C:\\",SW_SHOWNORMAL);

    ShellExecute(Handle, NULL, sExeName.c_str(), sParam.c_str(), NULL, SW_SHOWNORMAL);
#endif

#include <stdio.h>
    AnsiString sQry1 = "INSERT INTO TB_OPERSYST_MENU VALUES('%s', '%02d.%s', 'N', 1, '');\n";
    AnsiString sQry2 = "INSERT INTO TB_OPERSYST_MENU VALUES('%s', '%s', 'N', 2, '%s');\n";
    AnsiString sMenuFile = g_sAppDir + "Menu.TXT";
    FILE      *pFileMenu = NULL;
    pFileMenu = fopen(sMenuFile.c_str(), "w+");
    if (pFileMenu == NULL)
    {
        ShowMessage("메뉴파일을 생성하지 못하였습니다.");
        return;
    }

    int nMenuCnt = 1;
    int nMenuTabs = Ribbon->Tabs->Count;
    for (int ii = 0; ii < nMenuTabs; ii++)
    {
        TdxRibbonTab *pTab = Ribbon->Tabs->Items[ii];
        if (pTab->Visible == false) continue;

        AnsiString sMainName = pTab->Name;
        AnsiString sMainCap  = pTab->Caption;
        fprintf(pFileMenu, sQry1.c_str(), sMainName.c_str(), nMenuCnt++, sMainCap.c_str());

        int nSubMenus = pTab->Groups->Count;
        for (int jj = 0; jj < nSubMenus; jj++)
        {
            TdxRibbonTabGroup *pGroup = pTab->Groups->Items[jj];
            TdxBar *pBar = pGroup->ToolBar;
            if (pBar == NULL)
            {
                continue;
            }
            if (pBar->Visible == false) continue;

            int nMenus = pBar->ItemLinks->Count;
            for (int kk = 0; kk < nMenus; kk++)
            {
                TdxBarItemLink *pItemLink = pBar->ItemLinks->Items[kk];
                TdxBarLargeButton *pMenuBtn = (TdxBarLargeButton*)pItemLink->Item;
                if (pMenuBtn->Visible != ivAlways) continue;

                AnsiString sMenuName = pMenuBtn->Name;
                AnsiString sMenuCap  = pMenuBtn->Caption;
                fprintf(pFileMenu, sQry2.c_str(), sMenuName.c_str(), sMenuCap.c_str(), sMainName.c_str());
            }
        }
    }

    fclose(pFileMenu);
    pFileMenu = NULL;
#if 0
                    for (int ii = 0; ii < nCompnentCnt; ii++)
                    {
                        String sClassName = this->Components[ii]->ClassName();
                        if(sClassName == "TdxBarLargeButton")
                        {
                            TdxBarLargeButton *pMenu = (TdxBarLargeButton *)this->Components[ii];
                            if (pMenu->Name == sMenuId)
                            {
                                pMenu->Enabled = false;
                                break;
                            }
                        }
                    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::FormDblClick(TObject *Sender)
{
    NTST0000MClick((TObject*)NTST0000M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVMSR000RClick(TObject *Sender)
{
    ExecuteItsProgram("TFrmVmsOprMain", "VmsOprMain.exe", "VMS관리");
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVMS0400MClick(TObject *Sender)
{
    ExecuteItsProgram("TFrmVmsCamViewer", "VmsCamViewer.exe", "VMS영상모니터링");
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::RVMSH100MClick(TObject *Sender)
{
    ExecuteItsProgram("TFrmVmsLogStts", "VmsLogStts.exe", "VMS상태이력");
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::RVMSH200MClick(TObject *Sender)
{
    ExecuteItsProgram("TFrmVmsLogDspl", "VmsLogDspl.exe", "VMS표출이력");
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::RVMSH300MClick(TObject *Sender)
{
    ExecuteItsProgram("TFrmVmsLogCtrl", "VmsLogCtrl.exe", "VMS제어이력");
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NCCTV100MClick(TObject *Sender)
{
    //ExecuteItsProgram("TfrmCctv", "CctvMgr.exe", "CCTV관리");
#ifdef USE_CCTV
    FORMSHOW(CTVM100M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NCCTV200MClick(TObject *Sender)
{
#ifdef USE_CCTV
    FORMSHOW(CTVM200M);
#endif
}
//---------------------------------------------------------------------------
void __fastcall TFrmMain::NCCTVR10RClick(TObject *Sender)
{
    ExecuteItsProgram("TfrmCptnMgr", "CctvOpt.exe", "CCTV제어");
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::RCCTVH10MClick(TObject *Sender)
{
    ExecuteItsProgram("TFrmCctvLogStts", "CctvLogStts.exe", "CCTV상태이력");
    //ExecuteItsProgram("TfrmCctvLog", "CctvLog.exe", "CCTV상태이력");
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NCCTV010MClick(TObject *Sender)
{
#ifdef USE_CCTV
    FORMSHOW(CTVM010M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NWCAM020MClick(TObject *Sender)
{
    ExecuteItsProgram("TFrmWebCamCtrl", "WebCamCtrl.exe", "웹카메라제어");
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NWCAMR10RClick(TObject *Sender)
{
    ExecuteItsProgram("TFrmWebCamViewer", "WebCamViewer.exe", "웹카메라영상모니터링");
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NVMSM010MClick(TObject *Sender)
{
#ifdef USE_VMS
    FORMSHOW(VMSM010M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NIFM0070MClick(TObject *Sender)
{
    FORMSHOW(IFM0070M);
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NCRSM100MClick(TObject *Sender)
{
    //교차로교통량 관리
#ifdef USE_CROSS
    FORMSHOW(CRSM100M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NCRSM200MClick(TObject *Sender)
{
    //교차로교통량 CCTV관리
#ifdef USE_CROSS
    FORMSHOW(CRSM200M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NCRSM000MClick(TObject *Sender)
{
    //교차로교통량 CCTV상태 모니터링
#ifdef USE_CROSS
    FORMSHOW(CRSM000M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NCRSH100MClick(TObject *Sender)
{
#ifdef USE_CROSS
    ExecuteItsProgram("TFrmCrsTrafVolLog", "CrsTrafVolLog.exe", "교차로교통량통계이력");
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NCRSH200MClick(TObject *Sender)
{
#ifdef USE_CROSS
    ExecuteItsProgram("TFrmCrsTrafVolDir", "CrsTrafVolDir.exe", "교차로교통량방향별통계");
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NCRSE000MClick(TObject *Sender)
{
#ifdef USE_CROSS
    String sExeName = "";
    String sClsName = "";
    String sOptions = "";
    ReadConfigInfo(g_AppCfg.sConfigFile, "CROSS_VOL", "PATH", sExeName);
    ReadConfigInfo(g_AppCfg.sConfigFile, "CROSS_VOL", "CLASS", sClsName);
    ReadConfigInfo(g_AppCfg.sConfigFile, "CROSS_VOL", "OPTIONS", sOptions);

    if (!FileExists(sExeName))
    {
        ShowMessage(sExeName);
        Application->MessageBox(L"교차로교통량 프로그램을 찾을수 없습니다.\r\n환경설정파일에서 설정정보를 확인하십시요.",
                                L"교차로교통량 프로그램 실행 오류",
                                MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

	HWND hExeForm = FindWindow(sClsName.c_str(), NULL);
	if (hExeForm)
	{
		SetWindowPos(hExeForm, HWND_TOP, 0, 0, 0, 0, SWP_SHOWWINDOW | SWP_NOSIZE | SWP_NOMOVE);
        ShowWindow(hExeForm, SW_RESTORE);
        //SetForegroundWindow(hExeForm);
    }
	else
	{
		ShellExecute(Handle, NULL, sExeName.c_str(), sOptions.c_str(), NULL, SW_SHOWNORMAL);
	}
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NEVSP100MClick(TObject *Sender)
{
#ifdef USE_EVSP
    FORMSHOW(EVSP100M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NEVSP200MClick(TObject *Sender)
{
#ifdef USE_EVSP
    FORMSHOW(EVSP200M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NEVSP300MClick(TObject *Sender)
{
#ifdef USE_EVSP
    FORMSHOW(EVSP300M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NEVSPH10MClick(TObject *Sender)
{
#ifdef USE_EVSP
    FORMSHOW(EVSPH10M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NEVSPH20MClick(TObject *Sender)
{
#ifdef USE_EVSP
    FORMSHOW(EVSPH20M);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmMain::NEVSP000MClick(TObject *Sender)
{
#ifdef USE_EVSP
    FORMSHOW(EVSP000M);
#endif
}
//---------------------------------------------------------------------------