ITS_OP/VmsMsgDfltMngr/SRC/FrmVmsMsgDfltMngrF.cpp

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

#include <vcl.h>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "AppGlobalF.h"
#include "WindowMsgF.h"
#include "CDSVmsIfscF.h"
#include "CDSFontF.h"
#include "CDSVmsFormF.h"
#pragma hdrstop

#include "FrmVmsMsgDfltMngrF.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 link "cxHint"
#pragma link "dxCustomHint"
#pragma link "dxScreenTip"
#pragma link "dxSkinsForm"
#pragma link "dxGDIPlusClasses"
#pragma resource "*.dfm"

TFrmVmsMsgDfltMngr *FrmVmsMsgDfltMngr = NULL;
//---------------------------------------------------------------------------

__fastcall TFrmVmsMsgDfltMngr::TFrmVmsMsgDfltMngr(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);

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

	FListSymb = new TList;

    EditMode = false;

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

    PgVmsSch->Properties->ActivePage = TsEdit;
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgDfltMngr::SetColorScheme(String ASkinName)
{
    dxSkinController1->SkinName = ASkinName;
    dxSkinController1->Refresh();
    PnlPreview->ParentColor = false;
    PnlPreview->Color = clBlack;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgDfltMngr::CommClose()
{
    try {
#if 0
        if (m_pEdtDesigner) {
            delete m_pEdtDesigner;
            m_pEdtDesigner = NULL;
        }
#endif

        APP_DelVmsSizeCombo(CbSizeType);

        ClearSymbloList();
        SAFE_DELETE(FListSymb);

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

void __fastcall TFrmVmsMsgDfltMngr::FormCreate(TObject *Sender)
{
    InitDbLoading();

    //m_pEdtDesigner = new TVmsFormDesigner(PnlEditForm);
    //FOR_STL(TCDSFontColor*, pObj, CDSFontManager->FFontColors) {
    //    m_pEdtDesigner->InitFontColor(pObj->VMS_FONT_COLR_CD, (TColor)pObj->VMS_FONT_COLR_VAL);
    //}
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgDfltMngr::InitDbLoading()
{
    Application->ProcessMessages();
    if (!VmsCtlrManager) {
        VmsCtlrManager = new TVmsCtlrManager();
    }
    VmsCtlrManager->LoadVmsModlSize();
    VmsCtlrManager->LoadFromDb();

#if 0
    if (SysCodeManager == NULL) {
        SysCodeManager = new TSysCodeManager();
    }
    SysCodeManager->LoadFromDb();

    if (!VmsTextItemManager) {
        VmsTextItemManager = new TVmsTextItemManager();
    }
    VmsTextItemManager->LoadFromDb();
#endif
    if(!CDSFontManager) {
        CDSFontManager = new TCDSFontManager();
    }
    CDSFontManager->LoadFontInfo();

    if (!CenterCommManager) {
        CenterCommManager = new TCenterCommManager();
    }
    CenterCommManager->LoadFromDb(g_AppCfg.PRCS_ID);
    FCommCtrlTarget = CenterCommManager->FLists.Find("23"); // VMS디폴트문안 등록 알림
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgDfltMngr::FormShow(TObject *Sender)
{
    int nResult = CComm_Initialize((long)Handle, g_AppCfg.PRCS_ID, "P04010", 0);
    Refresh();
    FormInit();
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgDfltMngr::FormInit()
{
    TNotifyEvent evt = CbSizeType->Properties->OnChange;
    CbSizeType->Properties->OnChange = NULL;
    APP_FillVmsSizeType(CbSizeType, false);
    CbSizeType->Properties->OnChange = evt;

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

void __fastcall TFrmVmsMsgDfltMngr::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;
    CbSizeType->ItemIndex = -1;
    CbSizeType->ItemIndex = 0;
}
//---------------------------------------------------------------------------

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

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

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

void __fastcall TFrmVmsMsgDfltMngr::ClearSymbloList()
{
    FFormLists.RemoveAll();

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

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

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

void __fastcall TFrmVmsMsgDfltMngr::CbSizeTypePropertiesChange(TObject *Sender)
{
    if (CbSizeType->ItemIndex < 0) return;

    EdFocus->SetFocus();
    BtnSearchClick(NULL);
    FRAMEVmsSchList1->CxList->SetFocus();

    LockWindowUpdate(PnlPreview->Handle);
    PnlPreview->Width = FVmsWidth+4;
    PnlPreview->Height= FVmsHeight+4;
    ImgPreview->Align = alNone;
    ImgPreview->Picture->Bitmap->Width = FVmsWidth;
    ImgPreview->Picture->Bitmap->Height= FVmsHeight;
    APP_ImageClear(ImgPreview->Canvas, 0, 0, ImgPreview->Width, ImgPreview->Height, clBlack);
    ImgPreview->Align = alClient;

    TvView->OptionsView->DataRowHeight = FVmsHeight;
    if (TvView->OptionsView->DataRowHeight < 48) {
        TvView->OptionsView->DataRowHeight = 48;
    }
    if (TvView->OptionsView->DataRowHeight > 144) {
        TvView->OptionsView->DataRowHeight = 144;
    }

    LockWindowUpdate(0);
}
//---------------------------------------------------------------------------

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

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

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

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

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

#if 0
    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 = "00";

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

    FRAMEVmsSchList1->UpdateList(FVmsTypeCd);

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

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

    EdVmsNmbr->Clear();

    GrpSchedule->Caption = lblTitle->Caption;//"▶ 자동 스케줄 설정";

    CMM_ClearGridTableView(TvSche);

    LockWindowUpdate(GrpPreview->Handle);
    APP_ImageClear(ImgPreview->Canvas, 0, 0, ImgPreview->Width, ImgPreview->Height, clBlack);
    LockWindowUpdate(0);

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

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

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

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

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

    LoadVmsScheduleInfo(sVmsCtlrId);
}
//---------------------------------------------------------------------------

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

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

    TcxGridDataController *pDcFrm = TvForm->DataController;
    TcxGridDataController *pDcSch = TvSche->DataController;

    int nFormIdx = CMM_GetRecordIndex(TvForm);
    if (nFormIdx < 0) return;

    int nRow = pDcSch->AppendRecord();

    pDcSch->Values[nRow][Col00->Index] = VarToStr(pDcFrm->Values[nFormIdx][ColFrm00->Index]);  //ID
    pDcSch->Values[nRow][Col02->Index] = VarToStr(pDcFrm->Values[nFormIdx][ColFrm02->Index]);  //명칭
    pDcSch->Values[nRow][Col03->Index] = VarToStr(pDcFrm->Values[nFormIdx][ColFrm03->Index]);  //표출(초)
    pDcSch->Values[nRow][Col01->Index] = pDcFrm->Values[nFormIdx][ColFrm01->Index];            //이미지데이터임

    EditPreviewForm();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgDfltMngr::BtnListDeleteClick(TObject *Sender)
{
    int nSelIdx = CMM_GetRecordIndex(FRAMEVmsSchList1->TvList);
	if (nSelIdx < 0) return;

#if 0
    TcxGridDataController *pDcSch = TvSche->DataController;

    nSelIdx = CMM_GetRecordIndex(TvSche);
    if (nSelIdx < 0) return;

	TvSche->DataController->DeleteRecord(nSelIdx);
#endif
    TcxGridTableView *pSrcList = TvSche;
    int nFocused = pSrcList->Controller->FocusedRecordIndex;

    int nSelRows = pSrcList->Controller->SelectedRowCount;
    if (nSelRows <= 0) {
        return;
    }

    try {
        TcxGridDataController *pGDC = pSrcList->DataController;
        pSrcList->BeginUpdate();
        try {
            pSrcList->Controller->DeleteSelection();

            int nDataCnt = pSrcList->DataController->RecordCount;
            if (nDataCnt <= nFocused)
                nFocused = nDataCnt - 1;

            pSrcList->Controller->ClearSelection();
        }
        catch(...) {
        }
    }
    __finally {
        pSrcList->EndUpdate();
    }

    EditPreviewForm();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgDfltMngr::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 sVmsCtlrId = EdVmsNmbr->Text.Trim();

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

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

    ITSDb_GetConnection()->BeginTrans();
    if (!DeleteVmsScenario(sVmsCtlrId)) {
        ITSDb_GetConnection()->RollbackTrans();
        return;
    }
    if (!SaveVmsScenario(sVmsCtlrId)) {
        ITSDb_GetConnection()->RollbackTrans();
        return;
    }
    ITSDb_GetConnection()->CommitTrans();

    if (FCommCtrlTarget != NULL) {
        FOR_STL(TCommInfo*, pCommInfo, FCommCtrlTarget->FLists) {
            int sendResult = CComm_VmsNotiRegDfltMsg(pCommInfo->SRVR_IP, pCommInfo->CMNC_PORT, sVmsCtlrId);
            if (VERR_NONE == sendResult) {
            }
        }
    }

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

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

bool __fastcall TFrmVmsMsgDfltMngr::SaveVmsScenario(String AVmsCtlrId)
{
    String     sQry;
    TADOQuery *pADO = NULL;

    TcxDataController *pGDC = TvSche->DataController;

    sQry = "INSERT INTO TB_VMS_DFLT_FORM (       \r\n"
           "            VMS_CTLR_ID,             \r\n"
           "            SN,                      \r\n"
           "            VMS_FORM_ID,             \r\n"
           "            DSPL_IMG,                \r\n"
           "            DSPL_IMG_SZ,             \r\n"
           "            DFLT_FORM_GRPHC_PCKT,    \r\n"
           "            DFLT_FORM_GRPHC_PCKT_SZ, \r\n"
           "            RGSTR_ID,                \r\n"
           "            REG_DT,                  \r\n"
           "            CTL_RSLT,                \r\n"
           "            RES_DT )                 \r\n"
           "   VALUES (                          \r\n"
           "           :p01,                     \r\n"
           "           :p02,                     \r\n"
           "           :p03,                     \r\n"
           "           :p04,                     \r\n"
           "           :p05,                     \r\n"
           "           NULL,                     \r\n"
           "           NULL,                     \r\n"
           "           :p08,                     \r\n"
           "           SYSDATE,                  \r\n"
           "           NULL,                     \r\n"
           "           NULL )                    \r\n";

    try {
        TvSche->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 VMS_CTLR_ID = AVmsCtlrId;
                int    SN          = ii+1;
                String VMS_FORM_ID = VarToStr(pGDC->Values[ii][Col00->Index]);
                int    DSPL_IMG_SZ = 0;
                String RGSTR_ID    = g_AppCfg.OPER_ID;

                TMemoryStream *dataStream = new TMemoryStream();
                TFormImage *pImage = FFormLists.Find(VMS_FORM_ID);
                if (pImage != NULL && pImage->bitmap != NULL) {
                    pImage->bitmap->SaveToStream(dataStream);
                    DSPL_IMG_SZ = dataStream->Size;
                }

                pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
                pADO->Parameters->ParamByName("p02")->Value = SN;
                pADO->Parameters->ParamByName("p03")->Value = VMS_FORM_ID;
                if (DSPL_IMG_SZ > 0) {
                    pADO->Parameters->ParamByName("p04")->LoadFromStream(dataStream, ftBlob);
                }
                else {
                    pADO->Parameters->ParamByName("p04")->Value = "";
                }
                pADO->Parameters->ParamByName("p05")->Value = DSPL_IMG_SZ;
                pADO->Parameters->ParamByName("p08")->Value = RGSTR_ID;
                pADO->ExecSQL();

                SAFE_DELETE(dataStream);
            }
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TFrmVmsMsgDfltMngr::SaveVmsScenario", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e) {
            DBERRORMSG("TFrmVmsMsgDfltMngr::SaveVmsScenario", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
        TvSche->EndUpdate();
    }
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgDfltMngr::DeleteVmsScenario(String AVmsCtlrId)
{
    String     sQry;
    TADOQuery *pADO = NULL;

    sQry = "DELETE TB_VMS_DFLT_FORM     \r\n"
           " WHERE 1=1                  \r\n"
           "   AND VMS_CTLR_ID = :p01   \r\n";

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AVmsCtlrId);
			pADO->ExecSQL();
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TFrmVmsMsgDfltMngr::DeleteVmsScenario", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e) {
            DBERRORMSG("TFrmVmsMsgDfltMngr::DeleteVmsScenario", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }
    return true;
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgDfltMngr::EditPreviewForm()
{
    CMM_ClearGridTableView(TvView);

    TcxDataController *pDcSch = TvSche->DataController;
    TcxDataController *pDcViw = TvView->DataController;

    try {
        TvSche->BeginUpdate();
        TvView->BeginUpdate();

        try {
            for(int nRowS = 0; nRowS < pDcSch->RecordCount; nRowS++) {
                int nRowV = pDcViw->AppendRecord();

                pDcViw->Values[nRowV][ColView00->Index] = pDcSch->Values[nRowS][Col00->Index];
                pDcViw->Values[nRowV][ColView02->Index] = pDcSch->Values[nRowS][Col02->Index];
                pDcViw->Values[nRowV][ColView03->Index] = pDcSch->Values[nRowS][Col03->Index];

                pDcViw->Values[nRowV][ColView01->Index] = pDcSch->Values[nRowS][Col01->Index];
            }
        }
        catch(Exception &e) {
        }
    }
    __finally {
        TvSche->EndUpdate();
        TvView->EndUpdate();
    }
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgDfltMngr::LoadVmsScheduleInfo(String AVmsCtlrId)
{
    String     sQry;
    TADOQuery *pADO = NULL;

    CMM_ClearGridTableView(TvSche);
    CMM_ClearGridTableView(TvView);

    TcxDataController *pDcSch = TvSche->DataController;
    TcxDataController *pDcViw = TvView->DataController;

    sQry = "SELECT A.VMS_CTLR_ID, A.SN,             \r\n"
           "       A.VMS_FORM_ID, B.VMS_FORM_NM,    \r\n"
           "       B.VMS_FORM_TYPE, B.DSPL_HR,      \r\n"
           "       B.VMS_FORM_IMG,                  \r\n"
           "       A.DSPL_IMG, A.DSPL_IMG_SZ,       \r\n"
           "       A.DFLT_FORM_GRPHC_PCKT,          \r\n"
           "       A.DFLT_FORM_GRPHC_PCKT_SZ,       \r\n"
           "       A.CTL_RSLT, A.RES_DT             \r\n"
           "  FROM TB_VMS_DFLT_FORM A,              \r\n"
           "       TB_VMS_FORM B                    \r\n"
           " WHERE 1=1                              \r\n"
           "   AND A.VMS_CTLR_ID = :p01             \r\n"
           "   AND A.VMS_FORM_ID = B.VMS_FORM_ID    \r\n"
           " ORDER BY A.VMS_CTLR_ID, A.SN           \r\n";

    try {
        TvSche->BeginUpdate();
        TvView->BeginUpdate();

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

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

            for( ; !pADO->Eof; pADO->Next()) {
                int nRowS = pDcSch->AppendRecord();
                int nRowV = pDcViw->AppendRecord();

                pDcSch->Values[nRowS][Col00->Index] = pADO->FieldByName("VMS_FORM_ID")->AsString;
                pDcSch->Values[nRowS][Col02->Index] = pADO->FieldByName("VMS_FORM_NM")->AsString;
                pDcSch->Values[nRowS][Col03->Index] = pADO->FieldByName("DSPL_HR")->AsString;
                pDcSch->Values[nRowS][Col01->Index] = pADO->FieldByName("VMS_FORM_IMG")->AsVariant;

                pDcViw->Values[nRowV][ColView00->Index] = pADO->FieldByName("VMS_FORM_ID")->AsString;
                pDcViw->Values[nRowV][ColView02->Index] = pADO->FieldByName("VMS_FORM_NM")->AsString;
                pDcViw->Values[nRowV][ColView03->Index] = pADO->FieldByName("DSPL_HR")->AsString;

                pDcViw->Values[nRowV][ColView01->Index] = pADO->FieldByName("VMS_FORM_IMG")->AsVariant;
            }
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TFrmVmsMsgDfltMngr::LoadVmsScheduleInfo", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e) {
            DBERRORMSG("TFrmVmsMsgDfltMngr::LoadVmsScheduleInfo", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
        TvSche->EndUpdate();
        TvView->EndUpdate();
    }
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgDfltMngr::LoadVmsFormList(String AFormSizeCd)
{
    ClearSymbloList();
    CMM_ClearGridTableView(TvForm);

    String sQry;
    TADOQuery *pADO = NULL;

    // 홍보폼만 조회
    sQry = "SELECT A.VMS_FORM_ID, A.VMS_MODL_KIND, A.VMS_FORM_TYPE, A.VMS_FORM_NM,  \r\n"
           "       A.VMS_FORM_IMG,                                                  \r\n"
           "       A.DSPL_EFF, NVL(A.DSPL_HR, 0) AS DSPL_HR, A.BACK_CLR,            \r\n"
           "       NVL(B.FORM_TYPE_NM, A.VMS_FORM_TYPE) AS FORM_TYPE_NM,            \r\n"
           "       NVL(C.FORM_TYPE_NM, A.DSPL_EFF) AS DSPL_EFF_NM,                  \r\n"
           "       NVL(D.VMS_MODL_KIND_NM, A.VMS_MODL_KIND) AS VMS_MODL_KIND_NM     \r\n"
           "  FROM TB_VMS_FORM A,                                                   \r\n"
           "       (SELECT CODE_NO, CD_NM AS FORM_TYPE_NM                           \r\n"
           "          FROM TB_SYS_CD                                                \r\n"
           "         WHERE CLSS_CD = 'VMS_FORM_TYPE_CD') B,                         \r\n"
           "       (SELECT CODE_NO, CD_NM AS FORM_TYPE_NM                           \r\n"
           "          FROM TB_SYS_CD                                                \r\n"
           "         WHERE CLSS_CD = 'VMS_FORM_DSPL_EFF_CD') C,                     \r\n"
           "       TB_VMS_MODL_KIND D                                               \r\n"
           " WHERE 1=1                                                              \r\n"
           "   AND A.VMS_FORM_TYPE = 'P'                                            \r\n"
           "   AND A.VMS_FORM_TYPE = B.CODE_NO(+)                                   \r\n"
           "   AND A.DSPL_EFF      = C.CODE_NO(+)                                   \r\n"
           "   AND A.VMS_MODL_KIND = D.VMS_MODL_KIND(+)                             \r\n"
           "   AND A.VMS_MODL_KIND = :p01                                           \r\n"
           " ORDER BY A.VMS_MODL_KIND, A.VMS_FORM_ID                                \r\n";

    try {
        TvForm->BeginUpdate();
        TcxDataController *pGDC = TvForm->DataController;
        int nRow;

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

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

            for( ; !pADO->Eof; pADO->Next()) {
                nRow = pGDC->AppendRecord();

                String VMS_FORM_ID = pADO->FieldByName("VMS_FORM_ID")->AsString;
                pGDC->Values[nRow][ColFrm00->Index] = VMS_FORM_ID;
                pGDC->Values[nRow][ColFrm02->Index] = pADO->FieldByName("VMS_FORM_NM")->AsString;
                pGDC->Values[nRow][ColFrm03->Index] = pADO->FieldByName("DSPL_HR")->AsString;
                pGDC->Values[nRow][ColFrm09->Index] = pADO->FieldByName("FORM_TYPE_NM")->AsString;
                pGDC->Values[nRow][ColFrm01->Index] = pADO->FieldByName("VMS_FORM_IMG")->AsVariant;

                TFormImage *pImage = new TFormImage();
                pImage->formId = VMS_FORM_ID;
                pImage->bitmap = new Graphics::TBitmap;
                try {
                    pImage->bitmap->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("VMS_FORM_IMG"), bmRead));
                }
                catch(Exception &e) {
                    delete pImage->bitmap;
                    pImage->bitmap = NULL;
                }
                FFormLists.Push(pImage->formId, pImage);
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TFrmVmsMsgDfltMngr::LoadVmsFormList", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e)
        {
            DBERRORMSG("TFrmVmsMsgDfltMngr::LoadVmsFormList", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
        TvForm->EndUpdate();
    }
    return true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgDfltMngr::cxGridColumn172CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone)
{
    int nRecordIdx = AViewInfo->GridRecord->RecordIndex;
    if (nRecordIdx < 0) {
        return;
    }

    try {
        int nItemIdx = AViewInfo->Item->Index;
    	if (VarIsNull(AViewInfo->GridRecord->DisplayTexts[nItemIdx])) return;

        String sEndDt = AViewInfo->GridRecord->DisplayTexts[nItemIdx];
        if (sEndDt < Now().FormatString(STR_HHNN)) {
            ACanvas->Canvas->Brush->Color = clSilver;
        }
    }
    catch(Exception &e) {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgDfltMngr::BtnUpClick(TObject *Sender)
{
    try {
        TvSche->BeginUpdate();

        int nCurIdx = TvSche->DataController->FocusedRowIndex;//FocusedRecordIndex;
        if (nCurIdx <= 0) {
            return;
        }

        int nUpIdx = nCurIdx-1;

        try {
            int nCols = TvSche->ColumnCount;
            for (int ii = 0; ii < nCols; ii++) {
                Variant va = TvSche->DataController->Values[nCurIdx][ii];
                TvSche->DataController->Values[nCurIdx][ii] = TvSche->DataController->Values[nUpIdx][ii];
                TvSche->DataController->Values[nUpIdx][ii]  = va;
            }

            TvSche->Controller->ClearSelection();
            TvSche->Controller->FocusedRowIndex = nUpIdx;
            TvSche->ViewData->Records[nUpIdx]->Focused = true;
            TvSche->ViewData->Records[nUpIdx]->Selected = true;
            CxSche->SetFocus();
        }
        catch(...) {
        }
    }
    __finally {
        TvSche->EndUpdate();
    }

    EditPreviewForm();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgDfltMngr::BtnDownClick(TObject *Sender)
{
    try {
        TvSche->BeginUpdate();

        int nCurIdx = TvSche->DataController->FocusedRowIndex;//FocusedRecordIndex;
        if (nCurIdx < 0) {
            return;
        }
        if (nCurIdx == TvSche->DataController->RecordCount-1) {
            return;
        }

        int nDnIdx = nCurIdx+1;

        try {
            int nCols = TvSche->ColumnCount;
            for (int ii = 0; ii < nCols; ii++) {
                Variant va = TvSche->DataController->Values[nCurIdx][ii];
                TvSche->DataController->Values[nCurIdx][ii] = TvSche->DataController->Values[nDnIdx][ii];
                TvSche->DataController->Values[nDnIdx][ii]  = va;
            }

            TvSche->Controller->ClearSelection();
            TvSche->Controller->FocusedRowIndex = nDnIdx;
            TvSche->ViewData->Records[nDnIdx]->Focused = true;
            TvSche->ViewData->Records[nDnIdx]->Selected = true;
            CxSche->SetFocus();
        }
        catch(...) {
        }
    }
    __finally {
        TvSche->EndUpdate();
    }

    EditPreviewForm();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgDfltMngr::TvScheFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord,
          TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged)
{
    if (!AFocusedRecord) return;
    int nSelIdx = CMM_GetRecordIndex(TvSche);
	if (nSelIdx < 0) return;
    String sVmsFormId = VarToStr(TvSche->DataController->Values[nSelIdx][Col00->Index]);
    LoadPreviewForm(sVmsFormId);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgDfltMngr::TvFormFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord,
          TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged)
{
    if (!AFocusedRecord) return;
    int nSelIdx = CMM_GetRecordIndex(TvForm);
	if (nSelIdx < 0) return;
    String sVmsFormId = VarToStr(TvForm->DataController->Values[nSelIdx][ColFrm00->Index]);
    LoadPreviewForm(sVmsFormId);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgDfltMngr::LoadPreviewForm(String AVmsFormId)
{
    TFormImage *pImage = FFormLists.Find(AVmsFormId);
    LockWindowUpdate(GrpPreview->Handle);
    if (pImage != NULL && pImage->bitmap != NULL) {
        ImgPreview->Picture->Bitmap->Assign(pImage->bitmap);
    }
    else {
        APP_ImageClear(ImgPreview->Canvas, 0, 0, ImgPreview->Width, ImgPreview->Height, clBlack);
    }
    LockWindowUpdate(0);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgDfltMngr::ChkAutoWidthPropertiesChange(TObject *Sender)
{
    try
    {
        LockWindowUpdate(Handle);
        TvView->BeginUpdate();
        if (ChkAutoWidth->Checked) {
            //TvView->OptionsView->DataRowHeight  = 58;
            TvView->OptionsView->CellAutoHeight = false;
        }
        else {
            TvView->OptionsView->DataRowHeight  = 0;
            TvView->OptionsView->CellAutoHeight = true;
        }
        TvView->OptionsView->ColumnAutoWidth = ChkAutoWidth->Checked;
    }
    __finally
    {
        TvView->EndUpdate();
        LockWindowUpdate(0);
        //BtnBestFit->Visible = !ChkAutoWidth->Checked;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgDfltMngr::BtnBestFitClick(TObject *Sender)
{
    try {
        LockWindowUpdate(Handle);
        TvView->BeginUpdate();
        TvView->ApplyBestFit(NULL, false, false);
        TvView->EndUpdate();
    }
    __finally {
        LockWindowUpdate(0);
    }
}
//---------------------------------------------------------------------------