ITS_OP/VmsModuleStts/SRC/FrmVmsModuleSttsF.cpp

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

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

#include "FrmVmsModuleSttsF.h"
#include "VMSVIEWMF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxGroupBox"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "cxSplitter"
#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 "cxClasses"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxFilter"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxStyles"
#pragma link "cxTextEdit"
#pragma link "cxGridCardView"
#pragma link "cxGridCustomLayoutView"
#pragma link "cxCheckBox"
#pragma link "cxDropDownEdit"
#pragma link "cxImage"
#pragma link "cxButtons"
#pragma link "FRAME_VmsMsgListF"
#pragma link "cxHint"
#pragma link "dxCustomHint"
#pragma link "dxScreenTip"
#pragma link "dxSkinsForm"
#pragma link "dxGDIPlusClasses"
#pragma resource "*.dfm"
TFrmVmsModuleStts *FrmVmsModuleStts = NULL;

//---------------------------------------------------------------------------
__fastcall TFrmVmsModuleStts::TFrmVmsModuleStts(TComponent* Owner)
    : TForm(Owner)
{
    //CMM_SetFormPosition(g_AppCfg.bSaveForm);

    ITSSkin_Initialize(Application, g_AppCfg.sLang);
    ITSSkin_Caption(false);
    ITSSkin_Load(this);
    //CMM_LoadForm(g_sFormsDir, this);

    SetColorScheme(g_AppCfg.sSkinName);

    FMonitoringType = enMonitoringModule;
    TsList01->TabVisible = false;

    //if (FormStyle != fsMDIChild) CMM_LoadForm(g_sFormsDir, this);

	FListForm = new TList;
    FSelVmsObj= NULL;
    FSelForm  = NULL;

    FReady = false;
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsModuleStts::SetColorScheme(String ASkinName)
{
    dxSkinController1->SkinName = ASkinName;
    dxSkinController1->Refresh();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::CommClose()
{
    try
    {
        ClearFormList();
        SAFE_DELETE(FListForm);

        //if (FormStyle != fsMDIChild) CMM_SaveForm(g_sFormsDir, this);

        ITSSkin_Term();
        //CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::ClearFormList()
{
    try
    {
        LockWindowUpdate(Handle);
        try
        {
            for(int ii = 0; ii < FListForm->Count; ii++)
            {
                TVMSBACKM *pForm = (TVMSBACKM*)FListForm->Items[ii];
                pForm->Hide();
                SAFE_DELETE(pForm);
            }
            FListForm->Clear();

            int nForms = PgFormTab->PageCount;
            for (int ii = 1; ii < nForms; ii++)
            {
                TcxTabSheet *pTmpSheet = PgFormTab->Pages[1];
                if (pTmpSheet) delete pTmpSheet;
            }
            PgFormTab->ActivePageIndex = 0;
        }
        catch(Exception &e)
        {
            TcxTabSheet *pTmpSheet = PgFormTab->Pages[1];
            if (pTmpSheet) delete pTmpSheet;
        }
    }
    __finally
    {
        LockWindowUpdate(0);
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::FormCreate(TObject *Sender)
{
#if 0
    InitDbLoading();
    InitMonitoringForm();
#endif
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsModuleStts::InitDbLoading()
{
    Application->ProcessMessages();
    if (!VmsCtlrManager) {
        VmsCtlrManager = new TVmsCtlrManager();
    }
    VmsCtlrManager->LoadVmsModlSize();
    VmsCtlrManager->LoadFromDb();
    VmsCtlrManager->LoadStatusFromDb();
    VmsCtlrManager->LoadModlSttsFromDb();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::CreateVmsMsgForm(int AWidth)
{
    FReady = false;

    ClearFormList();

    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT MONITORING_NM, MONITORING_SEQ, VMS_CTLR_ID  \r\n"
           "  FROM TB_VMS_MONITORING                           \r\n"
           " WHERE MONITORING_TYPE = :p01                      \r\n"
           " ORDER BY MONITORING_NM ASC, MONITORING_SEQ        \r\n";

    TcxTabSheet *pSheet = NULL;
    TVMSBACKM   *pScrForm = NULL;
    String       sOldName = "";
    int          nIndex   = 0;
    try
    {
        LockWindowUpdate(Handle);

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", String(FMonitoringType));
            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next())
            {
                String sScrName = pADO->FieldByName("MONITORING_NM")->AsString;
                String sScrSeq  = pADO->FieldByName("MONITORING_SEQ")->AsString;
                String sVmsNmbr = pADO->FieldByName("VMS_CTLR_ID")->AsString;
                if (sOldName != sScrName)
                {
                    //신규 화면목록 추가
                    pSheet = CMM_AddTabSheet(PgFormTab, "  " + sScrName + "  ");
                    if (!pSheet) continue;

                    TVMSBACKM *pNewForm = new TVMSBACKM(this, Handle, sScrName, nIndex++);
                    pNewForm->FMonitoringType = FMonitoringType;
                    pNewForm->Parent = pSheet;
                    pNewForm->Show();
                    pScrForm = pNewForm;
                    sOldName = sScrName;
                    FListForm->Add(pNewForm);
                }
                pScrForm->AddVmsForm(sVmsNmbr);
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TFrmVmsModuleStts::CreateVmsMsgForm", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORMSG("TFrmVmsModuleStts::CreateVmsMsgForm", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        if (PgFormTab->PageCount == 1)
            PgFormTab->ActivePageIndex = 0;
        else
            PgFormTab->ActivePageIndex = 1;
        LockWindowUpdate(0);
    }

    FReady = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::FormShow(TObject *Sender)
{
    Refresh();

#if 0
    InitDbLoading();
    InitMonitoringForm();

    CreateVmsMsgForm(VmsCtlrManager->FMaxWidth);

    if (PgFormTab->PageCount == 1)
        PgFormTab->ActivePageIndex = 0;
    else
        PgFormTab->ActivePageIndex = 1;

    Application->ProcessMessages();
#endif
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::FormActivate(TObject *Sender)
{
    ActivateForm(true);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::FormDeactivate(TObject *Sender)
{
    ActivateForm(false);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::LoadLocalSkin()
{
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;

    InitDbLoading();
    InitMonitoringForm();

    CreateVmsMsgForm(VmsCtlrManager->FMaxWidth);

    if (PgFormTab->PageCount == 1)
        PgFormTab->ActivePageIndex = 0;
    else
        PgFormTab->ActivePageIndex = 1;

    Application->ProcessMessages();

    ActivateForm(true);

    RecalFormPosition();
    TmrRefresh->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsModuleStts::RecalFormPosition()
{
    for(int ii = 0; ii < FListForm->Count; ii++)
    {
        TVMSBACKM *pForm = (TVMSBACKM*)FListForm->Items[ii];
        pForm->RecalFormPosition();
        pForm->Refresh();
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsModuleStts::FormClose(TObject *Sender, TCloseAction &Action)
{
    try {
        CommClose();

        FrmVmsModuleStts = NULL;
        Action = caFree;
    } catch(...) {}
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::RefreshVmsStatus()
{
    for(int ii = 0; ii < FListForm->Count; ii++)
    {
        TVMSBACKM *pForm = (TVMSBACKM*)FListForm->Items[ii];
        pForm->RefreshVmsStatus();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::BtnMonitoringMngrClick(TObject *Sender)
{
    TVMSVIEWM *pForm = new TVMSVIEWM(this);
    pForm->FMonitoringType = FMonitoringType;
    pForm->ShowModal();
    bool bUpdate = pForm->FUpdate;
    SAFE_DELETE(pForm);

    if (bUpdate)
    {
        if (FSelForm) FSelForm->SelectForm(false);
        FSelVmsObj = NULL;
        FSelForm   = NULL;

        CreateVmsMsgForm(VmsCtlrManager->FMaxWidth);

        try
        {
            LockWindowUpdate(Handle);
            for(int ii = 0; ii < FListForm->Count; ii++)
            {
                TVMSBACKM *pBackForm = (TVMSBACKM*)FListForm->Items[ii];
                pBackForm->RecalFormPosition();
            }
        }
        __finally
        {
            LockWindowUpdate(0);
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::InitMonitoringForm()
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT COUNT(1) AS CNT          \r\n"
           "  FROM TB_VMS_MONITORING        \r\n"
           " WHERE MONITORING_TYPE = :p01   \r\n";


    VmsCtlrManager->FLists.Lock();
    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", String(FMonitoringType));
            ITSDb_SQLOpen(pADO);
            int nFormCnt = pADO->FieldByName("CNT")->AsInteger;
            if (nFormCnt > 0) return;

    sQry = "INSERT INTO TB_VMS_MONITORING (     \r\n"
           "                MONITORING_TYPE,    \r\n"
           "                MONITORING_NM,      \r\n"
           "                MONITORING_SEQ,     \r\n"
           "                VMS_CTLR_ID,      \r\n"
           "                VIEW_MODE           \r\n"
           "                )                   \r\n"
           "  VALUES (                          \r\n"
           "                :p01,               \r\n"
           "                :p02,               \r\n"
           "                :p03,               \r\n"
           "                :p04,               \r\n"
           "                0                   \r\n"
           "                )                   \r\n";


            ITSDb_SQLText(pADO, sQry);

            int nFormSeq = 0;
            FOR_STL(TVmsCtlr*, pObj, VmsCtlrManager->FLists)
            {
                if (pObj->USE_YN != "Y") continue;

                String sFormName = "Default";
                ITSDb_SQLBind(pADO, "p01", String(FMonitoringType));
                ITSDb_SQLBind(pADO, "p02", sFormName);
                ITSDb_SQLBind(pADO, "p03", String(++nFormSeq));
                ITSDb_SQLBind(pADO, "p04", pObj->VMS_CTLR_ID);

                ITSDb_SQLExec(pADO);

                if (nFormSeq >= 16) break;
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TFrmVmsModuleStts::InitMonitoringForm", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORMSG("TFrmVmsModuleStts::InitMonitoringForm", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        VmsCtlrManager->FLists.UnLock();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::ActivateForm(bool AActivate)
{
    try
    {
        int nTabIndex = PgFormTab->ActivePageIndex;

        nTabIndex--;    //ActivePageIndex 으로 구간값은 숨어있는 탭을 포함한 인덱스
        for(int ii = 0; ii < FListForm->Count; ii++)
        {
            TVMSBACKM *pForm = (TVMSBACKM*)FListForm->Items[ii];
            if (AActivate)
            {
                if (ii == nTabIndex) pForm->Play = true;
                else                 pForm->Play = false;
            }
            else
            {
                //비활성이면 모든 화면 비활성으로
                pForm->Play = false;
            }
            if (pForm->Play) {
                pForm->RecalFormPosition();
            }
        }
    }
    catch(Exception &e)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::PgFormTabPageChanging(TObject *Sender, TcxTabSheet *NewPage, bool &AllowChange)
{
    if (!FReady) return;

    try
    {
        int nTabIndex = NewPage->TabIndex;  //숨어있는 탭을 제외한 인덱스
        for(int ii = 0; ii < FListForm->Count; ii++)
        {
            TVMSBACKM *pForm = (TVMSBACKM*)FListForm->Items[ii];
            if (nTabIndex == ii) pForm->Play = true;
            else                 pForm->Play = false;
        }
    }
    catch(Exception &e)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::TmrRefreshTimer(TObject *Sender)
{
    TmrRefresh->Enabled = false;
    if (TmrRefresh->Tag == 0) {
        // 상태
        VmsCtlrManager->LoadStatusFromDb();
        TmrRefresh->Tag = 1;
    }
    else {
        // 상태 모듈상태
        VmsCtlrManager->LoadStatusFromDb();
        VmsCtlrManager->LoadModlSttsFromDb();
        TmrRefresh->Tag = 0;
    }
    RefreshVmsStatus();
    TmrRefresh->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::BtnSearchClick(TObject *Sender)
{
    TmrRefresh->Enabled = false;
    BtnSearch->Enabled = false;

    VmsCtlrManager->LoadStatusFromDb();
    VmsCtlrManager->LoadModlSttsFromDb();
    RefreshVmsStatus();

    TmrCommand->Enabled = true;
    TmrRefresh->Enabled = true;
    EdFocus->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsModuleStts::TmrCommandTimer(TObject *Sender)
{
    TmrCommand->Enabled = false;
    BtnSearch->Enabled = true;
}
//---------------------------------------------------------------------------