ITS_OP/VmsOprMain_XXXX/PLUGIN/VMSM600M/VMSM600MF.cpp

/****************************************************************************
 * @source      :
 * @description :
 ****************************************************************************
 * DATE         AUTHOR    DESCRIPTION
 * --------------------------------------------------------------------------
 * 2016/07/10   shjung    최초작성
 *
 ****************************************************************************/
//---------------------------------------------------------------------------

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

#include "VMSM600MF.h"
#include "VMSM610MF.h"
#include "VMSSEL0MF.h"
#include "VMSEDT0MF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxCalendar"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxDropDownEdit"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxGroupBox"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxMaskEdit"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "cxSpinEdit"
#pragma link "cxSplitter"
#pragma link "cxTextEdit"
#pragma link "cxTimeEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSilver"
#pragma link "dxSkinStardust"
#pragma link "cxRadioGroup"
#pragma link "cxClasses"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxFilter"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxStyles"
#pragma link "cxCheckBox"
#pragma link "cxImage"
#pragma link "cxButtonEdit"
#pragma link "cxBlobEdit"
#pragma link "cxColorComboBox"
#pragma link "cxCalc"
#pragma link "VmsDesignerF"
#pragma link "FRAME_VmsSchListF"
#pragma resource "*.dfm"

TVMSM600M *VMSM600M = NULL;
//---------------------------------------------------------------------------

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

    FUpdate= false;
    FTitle = Caption;//"VMS 자동 스케줄 관리";

	FListSymb = new TList;

    EditMode = false;

    APP_InitDisplayColor();

    PgVmsSch->Properties->ActivePage = TabTraffic;

    TabDeture->TabVisible = false;
    TabDeture->Visible = false;
    TabCongest->TabVisible = false;
    TabCongest->Visible = false;

    FRAMEVmsSchList1->PnlTop->Visible = false;
    FRAMEVmsSchList1->PnlBottom->Visible = false;

    FVmsHeight = 64;

    FListSch[0] = TvGrid1;
    FListSch[1] = TvGrid2;
    FListSch[2] = TvGrid3;
    FListSch[3] = TvGrid4;
    FListSch[4] = TvGrid5;
    FListSch[5] = NULL;
    FListSch[6] = NULL;
    FListSch[7] = TvGrid6;

    FListFrm[0] = TvForm1;
    FListFrm[1] = TvForm2;
    FListFrm[2] = TvForm3;
    FListFrm[3] = TvForm4;
    FListFrm[4] = TvForm5;
    FListFrm[5] = NULL;
    FListFrm[6] = NULL;
    FListFrm[7] = TvForm6;

    for (int ii = 0; ii < MAX_FORM_SCHED; ii++)
    {
        if (FListSch[ii]) InitTcxList(FListSch[ii]);
        if (FListFrm[ii]) InitTcxList(FListFrm[ii]);
    }

    //BtnSave->Caption = "Save Schedule";
    //BtnSave->Hint = "Save scheduled tasks for the currently selected VMS";
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::InitTcxList(TcxGridTableView *AView)
{
    AView->OptionsView->DataRowHeight  = 0;
    AView->OptionsView->CellAutoHeight = true;
    AView->OptionsView->Indicator      = false;

    AView->OptionsCustomize->ColumnMoving  = false;
    AView->OptionsCustomize->ColumnSorting = false;

    AView->Columns[0]->Width = 40;
    AView->Columns[0]->Options->HorzSizing = false;

    AView->Columns[1]->Width = 330;
}
//---------------------------------------------------------------------------

/*
 * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다..
 * Form과 DataModule class를 delete시킨다.
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TVMSM600M::CommClose()
{
    try
    {
        if (m_pEdtDesigner)
        {
            delete m_pEdtDesigner;
            m_pEdtDesigner = NULL;
        }

        APP_DelVmsSizeCombo(CbSizeType);

        ClearSymbloList();
        SAFE_DELETE(FListSymb);
        CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::FormCreate(TObject *Sender)
{
    m_pEdtDesigner = new TVmsFormDesigner(PnlEditForm);
}
//---------------------------------------------------------------------------

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

/*
 * form 초기화
 *
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TVMSM600M::FormInit()
{
    for (int ii = 0; ii < MAX_FORM_SCHED; ii++)
    {
        if (FListSch[ii]) FListSch[ii]->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoSchedule->Caption;//"<등록되어 있는 스케줄 정보가 없습니다>";
        if (FListFrm[ii]) FListFrm[ii]->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoForm->Caption;//"<등록되어 있는 폼 정보가 없습니다>";
    }

    //VMS사이즈
    APP_FillVmsSizeType(CbSizeType, "VUTN", false);

    VmsManager->LoadVmsFormUsage();
    FRAMEVmsSchList1->RefreshVmsFormUsage();

    FNewDb = false;
}
//---------------------------------------------------------------------------

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

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

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

void __fastcall TVMSM600M::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    if (FUpdate)
    {
        POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0);
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::ChangeEditMode(int AEdit)
{
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::ClearSymbloList()
{
	for(int ii = 0; ii < FListSymb->Count; ii++)
	{
		Graphics::TBitmap *bitmap = (Graphics::TBitmap *)FListSymb->Items[ii];
		delete bitmap;
	}
	FListSymb->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::FRAMEVmsSchList1TvListCellDblClick(TcxCustomGridTableView *Sender,
          TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton,
          TShiftState AShift, bool &AHandled)
{
	if (!ACellViewInfo) return;
    DisplayInfo();
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::FRAMEVmsSchList1TvListFocusedRecordChanged(TcxCustomGridTableView *Sender,
          TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord,
          bool ANewItemRecordFocusingChanged)
{
    if (!AFocusedRecord) return;
    DisplayInfo();
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::CbSizeTypePropertiesChange(TObject *Sender)
{
    BtnSearchClick(NULL);
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::BtnSearchClick(TObject *Sender)
{
    RefreshData();

    EdFocus->SetFocus();
    ChangeEditMode(1);
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::RefreshData()
{
    FormClear();

    TVmsSizeType *pVmsSizeType = APP_GetVmsSizeTypeObject(CbSizeType);
    if (pVmsSizeType == NULL) return;

    FVmsTypeCd = pVmsSizeType->TypeCd;
    FVmsWidth  = pVmsSizeType->Width;
    FVmsHeight = pVmsSizeType->Height;

    PnlEdtBack->Width = FVmsWidth+4;
    PnlEdtBack->Height= FVmsHeight+4;

    m_pEdtDesigner->Clear();
    m_pEdtDesigner->SizeType = FVmsTypeCd;
    m_pEdtDesigner->SetSize(FVmsWidth, FVmsHeight);
    m_pEdtDesigner->SetPos(0, 0);
    m_pEdtDesigner->BkColorCode = "0";//m_pDesigner->BkColorCode;

    m_pEdtDesigner->EditMode = true;
    m_pEdtDesigner->Show();

    FRAMEVmsSchList1->UpdateList(FVmsTypeCd);

    LoadVmsFormList(FVmsTypeCd);
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::FormClear()
{
    FSelIdx = -1;

    EdVmsNmbr->Clear();

    for (int ii = 0; ii < MAX_FORM_SCHED; ii++)
    {
        if (FListSch[ii]) CMM_ClearGridTableView(FListSch[ii]);
    }

    GrpSchedule->Caption = lblTitle->Caption;//"▶ 자동 스케줄 설정";
    TabTraffic->Caption = " " + FrmLang->lblSch1->Caption + "   ";
    TabDolbal->Caption  = " " + FrmLang->lblSch2->Caption + "   ";
    TabGongsa->Caption  = " " + FrmLang->lblSch3->Caption + "   ";
    TabHongbo->Caption  = " " + FrmLang->lblSch4->Caption + "   ";
    TabDeture->Caption  = " " + FrmLang->lblSch5->Caption + "   ";
    TabCongest->Caption = " " + FrmLang->lblSch6->Caption + "   ";

    FNewDb = false;
}
//---------------------------------------------------------------------------
void __fastcall TVMSM600M::DisplayInfo()
{
    FormClear();

    FSelIdx = CMM_GetRecordIndex(FRAMEVmsSchList1->TvList);
	if (FSelIdx < 0) return;

    TcxDataController *pGDC = FRAMEVmsSchList1->TvList->DataController;

    String sVmsNmbr = VarToStr(pGDC->Values[FSelIdx][FRAMEVmsSchList1->Column01->Index]);
    EdVmsNmbr->Text = sVmsNmbr;

    GrpSchedule->Caption = lblTitle->Caption + " (" + VarToStr(pGDC->Values[FSelIdx][FRAMEVmsSchList1->Column02->Index]) + ": " + VarToStr(pGDC->Values[FSelIdx][FRAMEVmsSchList1->Column03->Index]) + ")";

    LoadVmsScheduleInfo(sVmsNmbr);

    DrawTrafficScenarioForm();

    TVmsCtlr *pObj = VmsManager->FLists.Find(sVmsNmbr);
    if (pObj)
    {
        TabTraffic->Caption = " " + FrmLang->lblSch1->Caption + " - " + String(pObj->FormCnt[enFormTraffic][1]) + "/" + String(pObj->FormCnt[enFormTraffic][0]) + " ";
        TabDolbal->Caption  = " " + FrmLang->lblSch2->Caption + " - " + String(pObj->FormCnt[enFormDolbal][1]) + "/" + String(pObj->FormCnt[enFormDolbal][0]) + " ";
        TabGongsa->Caption  = " " + FrmLang->lblSch3->Caption + " - " + String(pObj->FormCnt[enFormGongsa][1]) + "/" + String(pObj->FormCnt[enFormGongsa][0]) + " ";
        TabHongbo->Caption  = " " + FrmLang->lblSch4->Caption + " - " + String(pObj->FormCnt[enFormHongbo][1]) + "/" + String(pObj->FormCnt[enFormHongbo][0]) + " ";
        TabDeture->Caption  = " " + FrmLang->lblSch5->Caption + " - " + String(pObj->FormCnt[enFormDeture][1]) + "/" + String(pObj->FormCnt[enFormDeture][0]) + " ";
        TabCongest->Caption = " " + FrmLang->lblSch6->Caption + " - " + String(pObj->FormCnt[enFormCongest][1]) + "/" + String(pObj->FormCnt[enFormCongest][0]) + " ";
    }

    ChangeEditMode(3);
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::TvFormCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift,
          bool &AHandled)
{
	if (!ACellViewInfo) return;

	int nRow = Sender->DataController->FocusedRecordIndex;
	if( nRow <= -1 )
		return;

    TcxButton *pBtn = NULL;
    switch(Sender->Tag)
    {
    case enFormTraffic: pBtn = BtnListAdd;  break;
    case enFormDolbal:  pBtn = BtnListAdd2; break;
    case enFormGongsa:  pBtn = BtnListAdd3; break;
    case enFormHongbo:  pBtn = BtnListAdd4; break;
    case enFormDeture:  pBtn = BtnListAdd5; break;
    case enFormCongest: pBtn = BtnListAdd6; break;
    default: return;
    }
    BtnListAddClick((TObject*)pBtn);
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::BtnListAddClick(TObject *Sender)
{
    String sUse = "N";
    String sTime= "4";

    TcxButton *pBtn = (TcxButton*)Sender;
    int nTag = pBtn->Tag;
    if (nTag < 0 || nTag >= MAX_FORM_SCHED) return;

    int nSelIdx = CMM_GetRecordIndex(FRAMEVmsSchList1->TvList);
	if (nSelIdx < 0) return;

    if (!FListFrm[nTag] || !FListSch[nTag]) return;

    TcxGridDataController *pDcFrm = FListFrm[nTag]->DataController;
    TcxGridDataController *pDcSch = FListSch[nTag]->DataController;

    int nFormIdx = CMM_GetRecordIndex(FListFrm[nTag]);
    if (nFormIdx < 0) return;

    if (nTag == enFormTraffic)
    {
        sUse = "N";
    }

    String sStrDate = "";
    String sEndDate = "";
    bool   bSelected= false;

    TVMSSEL0M *pSelDate = new TVMSSEL0M(this);

    pSelDate->FCurrDay = true;

    pSelDate->ShowModal();
    bSelected = pSelDate->FSelected;
    sStrDate  = pSelDate->FStrTime;
    sEndDate  = pSelDate->FEndTime;
    delete pSelDate;
    pSelDate = NULL;

    if (!bSelected) return;

    int nRow = pDcSch->AppendRecord();

    pDcSch->Values[nRow][0] = pDcFrm->Values[nFormIdx][0];
    pDcSch->Values[nRow][1] = pDcFrm->Values[nFormIdx][1];
    pDcSch->Values[nRow][3] = sTime;
    pDcSch->Values[nRow][4] = ITSUtil_FormatStr(sStrDate, STR_HHNN);;
    pDcSch->Values[nRow][5] = ITSUtil_FormatStr(sEndDate, STR_HHNN);;
    pDcSch->Values[nRow][6] = sUse;
    pDcSch->Values[nRow][7] = sStrDate;
    pDcSch->Values[nRow][8] = sEndDate;
    pDcSch->Values[nRow][15] = pDcFrm->Values[nFormIdx][2];
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::BtnListDeleteClick(TObject *Sender)
{
    TcxButton *pBtn = (TcxButton*)Sender;
    int nTag = pBtn->Tag;
    if (nTag >= MAX_FORM_SCHED) return;

    int nSelIdx = CMM_GetRecordIndex(FRAMEVmsSchList1->TvList);
	if (nSelIdx < 0) return;

    if (!FListSch[nTag]) return;

    TcxGridDataController *pDcSch = FListSch[nTag]->DataController;

    nSelIdx = CMM_GetRecordIndex(FListSch[nTag]);
    if (nSelIdx < 0) return;

	FListSch[nTag]->DataController->DeleteRecord(nSelIdx);
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::TvGridCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift,
          bool &AHandled)
{
	if (!ACellViewInfo) return;

	int nRow = Sender->DataController->FocusedRecordIndex;
	if( nRow <= -1 )
		return;

    TcxGridDataController *pGDC = (TcxGridDataController*)Sender->DataController;

    int nColIdx = ACellViewInfo->Item->Index;
    //ShowMessage(String(Sender->Tag) + "    " + String(nColIdx));

    String sFormId  = VarToStr(pGDC->Values[nRow][0]);
    String sStrDate = VarToStr(pGDC->Values[nRow][7]);
    String sEndDate = VarToStr(pGDC->Values[nRow][8]);
    if (nColIdx == 4 || nColIdx == 5)
    {
        //표출기간설정
        TVMSSEL0M *pSelDate = new TVMSSEL0M(this);
        pSelDate->FStrTime = sStrDate;
        pSelDate->FEndTime = sEndDate;

        pSelDate->ShowModal();
        bool bSelected = pSelDate->FSelected;
        sStrDate  = pSelDate->FStrTime;
        sEndDate  = pSelDate->FEndTime;
        delete pSelDate;
        pSelDate = NULL;

        if (bSelected)
        {
            pGDC->Values[nRow][4] = ITSUtil_FormatStr(sStrDate, STR_HHNN);;
            pGDC->Values[nRow][5] = ITSUtil_FormatStr(sEndDate, STR_HHNN);;
            pGDC->Values[nRow][7] = sStrDate;
            pGDC->Values[nRow][8] = sEndDate;
        }
        return;
    }

    if (Sender->Tag != enFormTraffic) return;

    if (VarToStr(pGDC->Values[nRow][15]).ToIntDef(0) == 15)
    {
        //도형식배경 소통정보 폼
        Application->MessageBox(FrmLang->lblSchErr1->Caption.c_str(),//L"VMS 교통정보 폼 구간 설정\r\n도형식 배경소통정보 폼은 폼관리 화면에서 설정 가능합니다.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    // 소통정보 폼 정보구간 설정

    TVMSM610M *pIfscFrm = new TVMSM610M(this);
    pIfscFrm->FVmsNmbr   = EdVmsNmbr->Text;
    pIfscFrm->FFormId    = sFormId;

    pIfscFrm->FVmsTypeCd = FVmsTypeCd;
    pIfscFrm->FVmsWidth  = FVmsWidth;
    pIfscFrm->FVmsHeight = FVmsHeight;

    pIfscFrm->FIfscId[0] = VarToStr(pGDC->Values[nRow][9]);
    pIfscFrm->FIfscId[1] = VarToStr(pGDC->Values[nRow][10]);
    pIfscFrm->FIfscId[2] = VarToStr(pGDC->Values[nRow][11]);
    pIfscFrm->FIfscId[3] = VarToStr(pGDC->Values[nRow][12]);

    pIfscFrm->FIfscId[4] = VarToStr(pGDC->Values[nRow][16]);
    pIfscFrm->FIfscId[5] = VarToStr(pGDC->Values[nRow][17]);
    pIfscFrm->FIfscId[6] = VarToStr(pGDC->Values[nRow][18]);
    pIfscFrm->FIfscId[7] = VarToStr(pGDC->Values[nRow][19]);

    //pIfscFrm->FVmsType   = VarToStr(pGDC->Values[nRow][13]).ToIntDef(0);
    pIfscFrm->FFormColor = VarToStr(pGDC->Values[nRow][14]);
    pIfscFrm->FFormType  = VarToStr(pGDC->Values[nRow][15]).ToIntDef(0);

    pIfscFrm->ShowModal();
    if (pIfscFrm->FSelected)
    {
        TStream	*pImgStream = new TMemoryStream();
        try
        {
            void    *p;
            Variant  v;
            pIfscFrm->ImgForm->Picture->Bitmap->SaveToStream(pImgStream);
            int aBound[]={0, pImgStream->Size - 1};
            v = VarArrayCreate(aBound, 1, varByte);
            p = VarArrayLock(v);
            pImgStream->Position = 0;
            pImgStream->Read(p, pImgStream->Size);
            VarArrayUnlock(v);
            pGDC->Values[nRow][1] = v;
        }
        __finally
        {
            SAFE_DELETE(pImgStream);
        }

        pGDC->Values[nRow][ 9] = pIfscFrm->FIfscId[0];
        pGDC->Values[nRow][10] = pIfscFrm->FIfscId[1];
        pGDC->Values[nRow][11] = pIfscFrm->FIfscId[2];
        pGDC->Values[nRow][12] = pIfscFrm->FIfscId[3];

        pGDC->Values[nRow][16] = pIfscFrm->FIfscId[4];
        pGDC->Values[nRow][17] = pIfscFrm->FIfscId[5];
        pGDC->Values[nRow][18] = pIfscFrm->FIfscId[6];
        pGDC->Values[nRow][19] = pIfscFrm->FIfscId[7];
    }

    delete pIfscFrm;
    pIfscFrm = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::BtnAllEditClick(TObject *Sender)
{
    TcxButton *pBtn = (TcxButton*)Sender;

    //등록되어 있는 스케줄 폼을 전체 VMS에 편집하는 기능
    int nTag = PgVmsSch->Properties->ActivePage->Tag;
    if (nTag < 0 || nTag >= MAX_FORM_SCHED)
    {
        Application->MessageBox(FrmLang->lblRegErr1->Caption.c_str(),//L"VMS 스케줄 일괄 관리\r\n알수 없는 스케줄 유형입니다.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    if (!FListSch[nTag]) return;

    TcxGridTableView      *pTvList = FListSch[nTag];
    TcxGridDataController *pGDC;
    String sMode = "E";

    if (pBtn->Tag == 1)
    {
        sMode = "A";    //추가
        pTvList = FListFrm[nTag];
    }
    if (!pTvList) return;

    pGDC = pTvList->DataController;

    int nFormIdx = CMM_GetRecordIndex(pTvList);
    if (nFormIdx < 0)
    {
        Application->MessageBox(FrmLang->lblRegErr1->Caption.c_str(),//L"VMS 스케줄 일괄 관리\r\n등록되어 있는 스케줄 폼을 목록에서 먼저 선택하세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    String sFormId = pGDC->Values[nFormIdx][0];

    TVmsSizeType *pVmsSizeType = APP_GetVmsSizeTypeObject(CbSizeType);
    if (pVmsSizeType == NULL)
    {
        Application->MessageBox(FrmLang->lblRegErr3->Caption.c_str(),//L"VMS 스케줄 일괄 관리\r\nVMS 유형을 알수 없습니다. VMS 크기 유형을 먼저 선택하세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }
    String sVmsType = pVmsSizeType->TypeCd;

    TVMSEDT0M *pFrmEdt = new TVMSEDT0M(this);

    pFrmEdt->FVmsTypeCd = sVmsType;
    pFrmEdt->FScheType  = String(nTag);
    pFrmEdt->FFormId    = sFormId;
    pFrmEdt->FMode      = sMode;
    pFrmEdt->FVmsNmbr   = "";
    pFrmEdt->ShowModal();

    bool bOk = pFrmEdt->FSelected;

    delete pFrmEdt;
    pFrmEdt = NULL;

    if (bOk)
    {
        DisplayInfo();
    }
    VmsManager->LoadVmsFormUsage();
    FRAMEVmsSchList1->RefreshVmsFormUsage();
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::BtnSaveClick(TObject *Sender)
{
    //작업한 스케줄 정보를 저장한다.
	if (EdVmsNmbr->Text.Trim().IsEmpty())
	{
        Application->MessageBox(lblErr2->Caption.c_str(),//L"VMS 자동 스케줄 관리\r\nVMS 목록에서 VMS를 먼저 선택한 후 작업을 진행하세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
	}

    bool bUpdate = true;
    String sVmsNmbr = EdVmsNmbr->Text.Trim();

    if (bUpdate)
    {
        String sMsg;
        sMsg = "VMS: " + sVmsNmbr;
        sMsg+= "\r\n" + lblErr3->Caption;//선택한 VMS의 자동 스케줄 정보를 저장하시겠습니까?";

        if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
    }

    try
    {
        ITSDb_GetConnection()->BeginTrans();

        DeleteVmsAutoScenario(sVmsNmbr);
        for (int ii = 0; ii < MAX_FORM_SCHED; ii++)
        {
            if (FListSch[ii])
            {
                //ShowMessage(String(ii) + "  " + String(FListSch[ii]->Tag));
                SaveVmsAutoScenario(sVmsNmbr, FListSch[ii]);
            }
        }
    }
    __finally
    {
        ITSDb_GetConnection()->CommitTrans();
    }

    Application->MessageBox(lblErr4->Caption.c_str(),//L"VMS 자동 스케줄 관리\r\nVMS 자동 스케줄 정보를 저장 하였습니다.",
                            FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

    VmsManager->LoadVmsFormUsage();
    FRAMEVmsSchList1->RefreshVmsFormUsage();

    CMM_SetGridRow(FRAMEVmsSchList1->CxList, FRAMEVmsSchList1->TvList, sVmsNmbr, FRAMEVmsSchList1->Column01->Index);
    DisplayInfo();
}
//---------------------------------------------------------------------------

bool __fastcall TVMSM600M::SaveVmsAutoScenario(String AVmsNmbr, TcxGridTableView *AListSch)
{
    bool       bResult = false;
    String     sQry;
    TADOQuery *pADO = NULL;

    TcxDataController *pGDC = AListSch->DataController;

    String sTypeCd = String(AListSch->Tag);

    sQry = "INSERT INTO TB_VMS_TRFC_INFR_DSPL_SCH (                     \r\n"
           "                                        VMS_CTLR_NMBR,      \r\n"
           "                                        TRFC_SITU_TYPE_CD,  \r\n"
           "                                        PHASE,              \r\n"
           "                                        VMS_FORM_ID,        \r\n"
           "                                        VMS_FORM_PRRT_CD,   \r\n"
           "                                        DSPL_HH,            \r\n"
           "                                        DSPL_STRT_HH,       \r\n"
           "                                        DSPL_END_HH,        \r\n"
           "                                        FRST_VMS_IFSC_ID,   \r\n"
           "                                        SECD_VMS_IFSC_ID,   \r\n"
           "                                        THIR_VMS_IFSC_ID,   \r\n"
           "                                        FOUR_VMS_IFSC_ID,   \r\n"
           "                                        FRST_IMG_IFSC_ID,   \r\n"
           "                                        SECD_IMG_IFSC_ID,   \r\n"
           "                                        THIR_IMG_IFSC_ID,   \r\n"
           "                                        FOUR_IMG_IFSC_ID,   \r\n"
           "                                        USE_YN              \r\n"
           "                                       )                    \r\n"
           "                                VALUES(                     \r\n"
           "                                      :p01, :p02, :p03,     \r\n"
           "                                      :p04, :p05, :p06,     \r\n"
           "                                      :p07, :p08, :p09,     \r\n"
           "                                      :p10, :p11, :p12,     \r\n"
           "                                      :p13, :p14, :p15,     \r\n"
           "                                      :p16,                 \r\n"
           "                                      :p17                  \r\n"
           "                                      )                     \r\n";

    try
    {
        AListSch->BeginUpdate();
        pGDC->BeginUpdate();
        int nRows = pGDC->RecordCount;

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

            ITSDb_SQLText(pADO, sQry);

            for (int ii = 0; ii < nRows; ii++)
            {
                String sFormId  = VarToStr(pGDC->Values[ii][0]);
                String sDispHH  = VarToStr(pGDC->Values[ii][3]);
                String sUseYn   = VarToStr(pGDC->Values[ii][6]);
                String sStrTime = VarToStr(pGDC->Values[ii][7]);
                String sEndTime = VarToStr(pGDC->Values[ii][8]);
                String sIfscId1 = VarToStr(pGDC->Values[ii][ 9]);
                String sIfscId2 = VarToStr(pGDC->Values[ii][10]);
                String sIfscId3 = VarToStr(pGDC->Values[ii][11]);
                String sIfscId4 = VarToStr(pGDC->Values[ii][12]);

                String sImgIfscId1 = VarToStr(pGDC->Values[ii][16]);
                String sImgIfscId2 = VarToStr(pGDC->Values[ii][17]);
                String sImgIfscId3 = VarToStr(pGDC->Values[ii][18]);
                String sImgIfscId4 = VarToStr(pGDC->Values[ii][19]);

                String sPrrtCd  = "";

                ITSDb_SQLBind(pADO, "p01", AVmsNmbr);
                ITSDb_SQLBind(pADO, "p02", sTypeCd);
                ITSDb_SQLBind(pADO, "p03", String(ii+1));

                ITSDb_SQLBind(pADO, "p04", sFormId);
                ITSDb_SQLBind(pADO, "p05", sPrrtCd);
                ITSDb_SQLBind(pADO, "p06", sDispHH);

                ITSDb_SQLBind(pADO, "p07", sStrTime);
                ITSDb_SQLBind(pADO, "p08", sEndTime);

                ITSDb_SQLBind(pADO, "p09", sIfscId1);
                ITSDb_SQLBind(pADO, "p10", sIfscId2);
                ITSDb_SQLBind(pADO, "p11", sIfscId3);
                ITSDb_SQLBind(pADO, "p12", sIfscId4);

                ITSDb_SQLBind(pADO, "p13", sImgIfscId1);
                ITSDb_SQLBind(pADO, "p14", sImgIfscId2);
                ITSDb_SQLBind(pADO, "p15", sImgIfscId3);
                ITSDb_SQLBind(pADO, "p16", sImgIfscId4);

                ITSDb_SQLBind(pADO, "p17", sUseYn);

                pADO->ExecSQL();
            }

            bResult = true;
        }
        catch(EDatabaseError &E)
        {
            ITSDb_GetConnection()->RollbackTrans();
            DBERRORMSG("VMS Auto Schedule Save", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            ITSDb_GetConnection()->RollbackTrans();
            DBERRORMSG("VMS Auto Schedule Save", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        pGDC->EndUpdate();
        AListSch->EndUpdate();
    }
    return bResult;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSM600M::DeleteVmsAutoScenario(String AVmsNmbr)
{
    bool       bResult = false;
    String     sQry;
    TADOQuery *pADO = NULL;

    sQry = "DELETE TB_VMS_TRFC_INFR_DSPL_SCH                           \r\n"
           " WHERE VMS_CTLR_NMBR = :p01                                \r\n"
           "   AND TRFC_SITU_TYPE_CD IN ('0', '1', '2', '3', '4', '7') \r\n";

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AVmsNmbr);
			pADO->ExecSQL();

            bResult = true;
        }
        catch(EDatabaseError &E)
        {
            ITSDb_GetConnection()->RollbackTrans();
            DBERRORMSG("VMS Auto Schedule Delete", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            ITSDb_GetConnection()->RollbackTrans();
            DBERRORMSG("VMS Auto Schedule Delete", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
    return bResult;
}
//---------------------------------------------------------------------------

void __fastcall TVMSM600M::DrawTrafficScenarioForm()
{
    TcxDataController *pGDC = TvGrid1->DataController;
    try
    {
        TvGrid1->BeginUpdate();
        pGDC->BeginUpdate();
        int nRows = pGDC->RecordCount;
        try
        {
            for (int ii = 0; ii < nRows; ii++)
            {
                String sFormId    = VarToStr(pGDC->Values[ii][0]);
                String sFormClr   = VarToStr(pGDC->Values[ii][14]);
                int    nFormType  = VarToStr(pGDC->Values[ii][15]).ToIntDef(0);

                FIfscId[0] = VarToStr(pGDC->Values[ii][9]);
                FIfscId[1] = VarToStr(pGDC->Values[ii][10]);
                FIfscId[2] = VarToStr(pGDC->Values[ii][11]);
                FIfscId[3] = VarToStr(pGDC->Values[ii][12]);

                FIfscId[4] = VarToStr(pGDC->Values[ii][16]);
                FIfscId[5] = VarToStr(pGDC->Values[ii][17]);
                FIfscId[6] = VarToStr(pGDC->Values[ii][18]);
                FIfscId[7] = VarToStr(pGDC->Values[ii][19]);

                switch(nFormType)
                {
                case 11:// '	소통상황(1단)
                case 12:// '	소통상황(2단)
                case 13:// '	소통상황(3단)
                case 14:// '	소통상황(4단)
                    if (LoadFormObjectInfo(sFormId, sFormClr, m_pEdtDesigner))
                    {
                        m_pEdtDesigner->GetVmsFormImage(ImgForm);
                        TStream	*pImgStream = new TMemoryStream();
                        try
                        {
                            void    *p;
                            Variant  v;
                            ImgForm->Picture->Bitmap->SaveToStream(pImgStream);
                            int aBound[]={0, pImgStream->Size - 1};
                            v = VarArrayCreate(aBound, 1, varByte);
                            p = VarArrayLock(v);
                            pImgStream->Position = 0;
                            pImgStream->Read(p, pImgStream->Size);
                            VarArrayUnlock(v);
                            pGDC->Values[ii][1] = v;
                        }
                        __finally
                        {
                            SAFE_DELETE(pImgStream);
                        }
                    }
                    break;
                }
            }
        }
        catch(Exception &e)
        {
        }
    }
    __finally
    {
        pGDC->EndUpdate();
        TvGrid1->EndUpdate();
    }
}
//---------------------------------------------------------------------------

bool __fastcall TVMSM600M::LoadFormObjectInfo(String AFormId, String ABkColor, TVmsFormDesigner *ADesigner)
{
    ADesigner->Clear();

    m_pEdtDesigner->BkColorCode = ABkColor;

    String     sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT A.*,                                       \r\n"
           "       C.VMS_FONT_SHPE_NM,                        \r\n"
           "       B.IMAG_DATA AS SYMB_IMG,                   \r\n"
           "       B.SYMB_EXPL AS SYMB_IMG_NM                 \r\n"
           "  FROM TB_VMS_FORM_OBJECT  A,                     \r\n"
           "       TB_VMS_SYMB_LIB     B,                     \r\n"
           "       TB_VMS_FONT_SHPE    C,                     \r\n"
           "       TB_VMS_FORM         D                      \r\n"
           " WHERE D.VMS_FORM_ID      = :p01                  \r\n"
           "   AND D.VMS_FORM_ID      = A.VMS_FORM_ID         \r\n"
           "   AND A.SYMBLIB_NMBR     = B.SYMBLIB_NMBR(+)     \r\n"
           "   AND A.VMS_FONT_TYPE_CD = C.VMS_FONT_SHPE_CD(+) \r\n"
           " ORDER BY A.FORM_OBJECT_ID ASC                    \r\n";

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

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

            int    nDrawType;
            String sObjKind;
            for( ; !pADO->Eof; pADO->Next())
            {
                int nFormId = pADO->FieldByName("VMS_FORM_ID")->AsInteger;
                int nObjId  = pADO->FieldByName("FORM_OBJECT_ID")->AsInteger;

                int nObjType = pADO->FieldByName("VMS_FORM_OBJECT_TYPE_CD")->AsInteger;
                if (nObjType ==  1 || //이미지 심볼
                    nObjType ==  2 || //소통정보이미지
                    nObjType ==  3 || //파일이미지
                    nObjType == 17 || //소통이미지1
                    nObjType == 27 || //소통이미지2
                    nObjType == 37 || //소통이미지3
                    nObjType == 47 )  //소통이미지4
                {
                    if (nObjType == 1) sObjKind = OBJKIND_IMAGEID;    //Image Id
                    else               sObjKind = OBJKIND_IMAGE;      //Image

                    nDrawType = 1;  //이미지그리기
                }
                else
                {
                    sObjKind  = OBJKIND_TEXT;  //문자열

                    nDrawType = 0;  //문자열그리기
                }

                //실재 맵핑된 구간의 정보를 표출하도록 한다.

                int    nBlinking = pADO->FieldByName("VMS_DSPL_BLINKING")->AsInteger;
                int    nPosX     = pADO->FieldByName("VMS_DSPL_XCRDN")->AsInteger;
                int    nPosY     = pADO->FieldByName("VMS_DSPL_YCRDN")->AsInteger;

                TVmsFormObject *pObj = ADesigner->AddObject((VmsObjectDrawType)nDrawType);
                if (!pObj) continue;

//11	, '	@구간명
//12	, '	@시점명
//13	, '	@종점명
//14	, '	@소통상황
//15	, '	@통행시간
//16	, '	@통행속도
//17	, '	@소통이미지
                pObj->Text = pADO->FieldByName("VMS_DSPL_TXT")->AsString.Trim();
                pObj->RunText = pObj->Text;

                String sIfscId = "";
                if (nObjType >= 11 && nObjType < 17)
                    sIfscId = FIfscId[0];
                else
                if (nObjType >= 21 && nObjType < 27)
                    sIfscId = FIfscId[1];
                else
                if (nObjType >= 31 && nObjType < 37)
                    sIfscId = FIfscId[2];
                else
                if (nObjType >= 41 && nObjType < 47)
                    sIfscId = FIfscId[3];

                switch(nObjType)
                {
                case 17: sIfscId = FIfscId[4]; break;
                case 27: sIfscId = FIfscId[5]; break;
                case 37: sIfscId = FIfscId[6]; break;
                case 47: sIfscId = FIfscId[7]; break;
                }

                if (sIfscId != "")
                {
                    TVmsIfsc *pIfscObj;
                    pIfscObj = VmsIfscManager->FLists.Find(sIfscId.ToIntDef(0));
                    if (pIfscObj)
                    {
                        switch(nObjType)
                        {
                        case 11: case 21: case 31: case 41:
                            pObj->RunText = pIfscObj->VMS_IFSC_NM;
                            break;
                        case 12: case 22: case 32: case 42:
                            pObj->RunText = pIfscObj->DSPL_STRT_NODE_NM;
                            break;
                        case 13: case 23: case 33: case 43:
                            pObj->RunText = pIfscObj->DSPL_END_NODE_NM;
                            break;
                        }
                    }
                }

                pObj->ObjSeq      = nObjId;
                pObj->ObjId       = nObjId;
                pObj->ObjKind     = sObjKind;
                pObj->Tag         = pADO->FieldByName("VMS_IFSC_ID")->AsString;
                pObj->ObjType     = pADO->FieldByName("VMS_FORM_OBJECT_TYPE_CD")->AsString;
                pObj->ObjSize     = pADO->FieldByName("VMS_DSPL_SIZE")->AsInteger;
                pObj->BkColorCode = pADO->FieldByName("VMS_DSPL_BKCOLOR")->AsString;
                pObj->Blink       = nBlinking == 1 ? true : false;

                pObj->ImageId     = pADO->FieldByName("SYMBLIB_NMBR")->AsString;

                if (pObj->ObjKind == OBJKIND_TEXT)    // 문자열
                {
                    int nFontBold       = pADO->FieldByName("VMS_FONT_STYL_CD")->AsInteger;

                    pObj->FontName      = pADO->FieldByName("VMS_FONT_SHPE_NM")->AsString;
                    pObj->FontNameCode  = pADO->FieldByName("VMS_FONT_TYPE_CD")->AsString;
                    pObj->FontColorCode = pADO->FieldByName("VMS_FONT_HUE_CD")->AsString;
                    pObj->FontSize      = pADO->FieldByName("VMS_FONT_SIZE")->AsInteger;
                    pObj->FontBold      = nFontBold == 1 ? true : false;
                    pObj->TextAlign     = pADO->FieldByName("VMS_FONT_ALIGN")->AsInteger;
                    pObj->SetSize(pADO->FieldByName("VMS_DSPL_WIDTH")->AsInteger, pADO->FieldByName("VMS_DSPL_HEIGHT")->AsInteger);
                    pObj->SetRuntimeText(pObj->RunText);
                }
                else //if (sObjKind == "1" || sObjKind == "2")    // 이미지(1), 이미지 ID(2)
                {
                    if (pObj->ObjKind == OBJKIND_IMAGEID)
                    {
                        pObj->Text = pADO->FieldByName("SYMBLIB_NMBR")->AsString;
                    }

                    TStream *pStream = NULL;
                    pStream = pADO->CreateBlobStream(pADO->FieldByName("VMS_DSPL_FIGR"), bmRead);

                    try
                    {
                        if (pStream && pStream->Size > 0)
                        {
                            Graphics::TBitmap *Bitmap = pObj->GetBitmap();
                            pStream->Position = 0;
                            Bitmap->LoadFromStream(pStream);
                            pObj->SetSize(Bitmap->Width, Bitmap->Height);
                        }
                    }
                    __finally
                    {
                        SAFE_DELETE(pStream);
                    }
                }

                pObj->SetPos(nPosX, nPosY);
                pObj->Show();
                pObj->BringToFront();

            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("VMS Object Query", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            DBERRORMSG("VMS Object Query", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
    return true;
}
//---------------------------------------------------------------------------