ITS_OP/VmsMsgFormMngr/SRC/FrmVmsMsgFormMngrSRCF.cpp

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

#pragma hdrstop

#include <vcl.h>
#include <IOUtils.hpp>
#include <jpeg.hpp>
#include <GIFimg.hpp>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "AppGlobalF.h"
#include "CDSVmsFormF.h"
#pragma hdrstop

#include "FrmVmsMsgFormMngrF.h"
#include "FrmVmsMsgFormMngrSRCF.h"

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

#pragma package(smart_init)

void __fastcall TFrmVmsMsgFormMngr::LoadFormObjectInfo(String AFormId, TVmsFormDesigner *ADesigner, String AFormType)
{
    FFormObjCellMap.RemoveAll();
    ADesigner->Clear();

    String     sQry;
    TADOQuery *pADO = NULL;

    String imageFilePath;
    String saveDirPath = TPath::GetTempPath() + "VMS-FORM\\";
    ForceDirectories(saveDirPath.c_str());

    sQry = "SELECT A.VMS_FORM_ID, A.VMS_FORM_OBJ_ID, A.SN AS OBJ_SEQ, A.VMS_FORM_OBJ_KIND,  \r\n"
           "       NVL(A.BACK_CLR, '00') AS BACK_CLR,                                       \r\n"
           "       A.FORM_OBJ_PSTN_X, A.FORM_OBJ_PSTN_Y, A.FORM_OBJ_BLNK_YN,                \r\n"
           "       NVL(A.FORM_OBJ_DSPL_WDTH, 0) AS FORM_OBJ_DSPL_WDTH,                      \r\n"
           "       NVL(A.FORM_OBJ_DSPL_HGHT, 0) AS FORM_OBJ_DSPL_HGHT,                      \r\n"
           "       DECODE(B.VMS_FORM_OBJ_ID, NULL, 0, 1) AS IS_CCTV_OBJ,                    \r\n"
           "       DECODE(C.VMS_FORM_OBJ_ID, NULL, 0, 1) AS IS_TEXT_OBJ,                    \r\n"
           "       DECODE(D.VMS_FORM_OBJ_ID, NULL, 0, 1) AS IS_SYMB_OBJ,                    \r\n"
           "       DECODE(E.VMS_FORM_OBJ_ID, NULL, 0, 1) AS IS_MOVE_OBJ,                    \r\n"
           "       B.CCTV_ID,                                                               \r\n"
           "       C.TXT_WDTH, C.TXT_HGHT, C.TXT_ALGN_MTHD,                                 \r\n"
           "       C.FONT_CLR, C.FONT_TYPE, C.FONT_SZ, NVL(C.FONT_THCK, 'N') AS FONT_THCK,  \r\n"
           "       C.VMS_TXT_ITEM_ID, C.DSPL_TXT,                                           \r\n"
           "       D.PICT_NM, D.PICT_WDTH, D.PICT_HGHT,                                     \r\n"
           "       D.PICT_DATA_SZ, D.PICT_DATA, D.PICT_TYPE,                                \r\n"
           "       E.MOV_NM, E.MOV_DATA_SZ, E.MOV_TYPE, E.THMB_IMG                          \r\n"
           "  FROM TB_VMS_FORM_VMS_FORM_OBJ A,                                              \r\n"
           "       TB_VMS_FORM_OBJ_CCTV B,                                                  \r\n"
           "       TB_VMS_FORM_OBJ_TXT  C,                                                  \r\n"
           "       TB_VMS_FORM_OBJ_PICT D,                                                  \r\n"
           "       TB_VMS_FORM_OBJ_MOV  E                                                   \r\n"
           " WHERE 1=1                                                                      \r\n"
           "   AND A.VMS_FORM_ID = :p01                                                     \r\n"
           "   AND A.VMS_FORM_OBJ_ID = B.VMS_FORM_OBJ_ID(+)                                 \r\n"
           "   AND A.VMS_FORM_OBJ_ID = C.VMS_FORM_OBJ_ID(+)                                 \r\n"
           "   AND A.VMS_FORM_OBJ_ID = D.VMS_FORM_OBJ_ID(+)                                 \r\n"
           "   AND A.VMS_FORM_OBJ_ID = E.VMS_FORM_OBJ_ID(+)                                 \r\n"
           " ORDER BY A.VMS_FORM_ID, A.SN                                                   \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;
            for( ; !pADO->Eof; pADO->Next())
            {
                String sFormId   = pADO->FieldByName("VMS_FORM_ID")->AsString;
                String sObjId    = pADO->FieldByName("VMS_FORM_OBJ_ID")->AsString;
                int    nObjSeq   = pADO->FieldByName("OBJ_SEQ")->AsInteger;
                String sObjKind  = pADO->FieldByName("VMS_FORM_OBJ_KIND")->AsString;
                String sBackClr  = pADO->FieldByName("BACK_CLR")->AsString;
                int    nPosX     = pADO->FieldByName("FORM_OBJ_PSTN_X")->AsInteger;
                int    nPosY     = pADO->FieldByName("FORM_OBJ_PSTN_Y")->AsInteger;
                bool   bBlinking = pADO->FieldByName("FORM_OBJ_BLNK_YN")->AsString == "N" ? false : true;
                int    nDsplWdth = pADO->FieldByName("FORM_OBJ_DSPL_WDTH")->AsInteger;
                int    nDsplHght = pADO->FieldByName("FORM_OBJ_DSPL_HGHT")->AsInteger;

                int    isCctvObj = pADO->FieldByName("IS_CCTV_OBJ")->AsInteger;
                int    isTextObj = pADO->FieldByName("IS_TEXT_OBJ")->AsInteger;
                int    isSymbObj = pADO->FieldByName("IS_SYMB_OBJ")->AsInteger;
                int    isMoveObj = pADO->FieldByName("IS_MOVE_OBJ")->AsInteger;

                int    nObjType = 0;
                int    nDsplSize = 0;
                String sDsplText = "";

                if (sObjKind == FORM_OBJ_KIND_FIGURE) {
                    TFormObjCell *pCell = new TFormObjCell();
                    pCell->OBJ_SEQ    = pADO->FieldByName("OBJ_SEQ")->AsInteger;
                    pCell->OBJ_ID     = pADO->FieldByName("VMS_FORM_OBJ_ID")->AsString;
                    pCell->OBJ_PSTN_X = pADO->FieldByName("FORM_OBJ_PSTN_X")->AsInteger;
                    pCell->OBJ_PSTN_Y = pADO->FieldByName("FORM_OBJ_PSTN_Y")->AsInteger;
                    FFormObjCellMap.Push(pCell->OBJ_SEQ, pCell);
                    continue;
                }

                if (sObjKind == FORM_OBJ_KIND_CCTV && isCctvObj == 1) {
                    sDsplText = pADO->FieldByName("CCTV_ID")->AsString;
                    //nDsplWdth = pADO->FieldByName("DSPL_WDTH")->AsInteger;
                    //nDsplHght = pADO->FieldByName("DSPL_HGHT")->AsInteger;

                    nDrawType = 1;  //이미지그리기
                    nObjType  = 2;  //이미지
                    nDsplSize = nDsplWdth * nDsplHght;
                }
                else
                if (sObjKind == FORM_OBJ_KIND_TEXT && isTextObj == 1) {
                    sDsplText = pADO->FieldByName("DSPL_TXT")->AsString;
                    nDsplWdth = pADO->FieldByName("TXT_WDTH")->AsInteger;
                    nDsplHght = pADO->FieldByName("TXT_HGHT")->AsInteger;
                    nDsplSize = sDsplText.Length();

                    nDrawType = 0;  //문자열그리기
                    nObjType  = 0;  //문자열
                }
                else
                if (sObjKind == FORM_OBJ_KIND_IMAGE && isSymbObj == 1) {
                    sDsplText       = pADO->FieldByName("PICT_NM")->AsString;
                    nDsplSize       = pADO->FieldByName("PICT_DATA_SZ")->AsInteger;
                    if (nDsplWdth <= 0 || nDsplHght <= 0) {
                        nDsplWdth = pADO->FieldByName("PICT_WDTH")->AsInteger;
                        nDsplHght = pADO->FieldByName("PICT_HGHT")->AsInteger;
                    }

                    nDrawType = 1;  //이미지그리기
                    nObjType  = 1;  //이미지심벌
                }
                else
                if (sObjKind == FORM_OBJ_KIND_MOVIE && isMoveObj == 1) {
                    sDsplText       = pADO->FieldByName("MOV_NM")->AsString;
                    nDsplSize       = pADO->FieldByName("MOV_DATA_SZ")->AsInteger;

                    nDrawType = 1;  //이미지그리기
                    nObjType  = 1;  //이미지심벌
                }
                else {
                    continue;
                }

                /////// 폼객체를 생성해서 추가한다.
                TVmsFormObject *pObj = ADesigner->AddObject((VmsObjectDrawType)nDrawType);
                if (!pObj) continue;

                pObj->ObjSeq      = nObjSeq;
                pObj->ObjId       = sObjId;
                pObj->ObjKind     = sObjKind;
                pObj->ObjType     = sObjKind;
                pObj->Tag         = 0;

                pObj->ObjSize     = nDsplSize;
                pObj->BkColorCode = sBackClr;
                pObj->Blink       = bBlinking;

                pObj->ImageId     = sObjId;
                pObj->Text        = sDsplText;
                pObj->RunText     = pObj->Text;

                pObj->SetPos(nPosX, nPosY);
                if (sObjKind == FORM_OBJ_KIND_TEXT && isTextObj == 1)    // 문자열
                {
                    String sTxtItemId = pADO->FieldByName("VMS_TXT_ITEM_ID")->AsString;
                    String sTxtAlgn  = pADO->FieldByName("TXT_ALGN_MTHD")->AsString;
                    String sFontClr  = pADO->FieldByName("FONT_CLR")->AsString;
                    String sFontType = pADO->FieldByName("FONT_TYPE")->AsString;
                    int    nFontSize = pADO->FieldByName("FONT_SZ")->AsInteger;
                    bool   bFontThck = pADO->FieldByName("FONT_THCK")->AsString == "N" ? false : true;

                    int nTextAlign = 0;
                    if (sTxtAlgn == "R") nTextAlign = 1;
                    if (sTxtAlgn == "C") nTextAlign = 2;

                    pObj->FillIn        = sTxtItemId;
                    pObj->FontNameCode  = sFontType;
                    TCDSFontName *pFontName = CDSFontManager->FFontNames.Find(pObj->FontNameCode);
                    if (pFontName != NULL) {
                        pObj->FontName = pFontName->VMS_FONT_NAME_NM;
                    }
                    else {
                        pObj->FontName     = "명조체";
                        pObj->FontNameCode = "00";
                    }
                    pObj->FontColorCode = sFontClr;
                    pObj->FontSize      = nFontSize;
                    pObj->FontBold      = bFontThck;
                    pObj->TextAlign     = nTextAlign;
                }
                else
                if (sObjKind == FORM_OBJ_KIND_IMAGE && isSymbObj == 1)
                {
                    if (pObj->ObjKind == OBJKIND_IMAGEID) {
                        if (pObj->Text.Trim() == "") {
                            pObj->Text = pObj->ImageId;
                        }
                    }

                    TMemoryStream *pictData = new TMemoryStream();
                    try {
                        String sPictType = pADO->FieldByName("PICT_TYPE")->AsString;
                        String sPictExt  = DbPictTypeToReal(sPictType);

                        if (pictData != NULL) {
                            pictData->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("PICT_DATA"), bmRead));
                            if (pictData && pictData->Size > 0) {

                                imageFilePath = saveDirPath + sObjId + "." + sPictExt;
                                pictData->SaveToFile(imageFilePath);
                                LoadingImage(pObj, imageFilePath, nDsplWdth, nDsplHght);

                                pObj->GetImage()->AutoSize= false;
                                pObj->GetImage()->Stretch = true;
                                pObj->GetImage()->Width  = nDsplWdth;
                                pObj->GetImage()->Height = nDsplHght;
                                pObj->SetSize(nDsplWdth, nDsplHght);
                                pObj->SetPos(nPosX, nPosY);
                            }
                        }
                    }
                    __finally {
                        SAFE_DELETE(pictData);
                    }
                }
                else
                if (sObjKind == FORM_OBJ_KIND_CCTV && isCctvObj == 1)
                {
                    if (pObj->ObjKind == OBJKIND_IMAGEID) {
                        if (pObj->Text.Trim() == "") {
                            pObj->Text = pObj->ImageId;
                        }
                    }
                    pObj->GetImage()->AutoSize= false;
                    pObj->GetImage()->Stretch = false;
                    pObj->GetImage()->Center = true;
                    pObj->GetImage()->Width  = nDsplWdth;
                    pObj->GetImage()->Height = nDsplHght;
                    pObj->GetImage()->Picture->Bitmap->Assign(ImgStream->Picture->Bitmap);
                    pObj->SetSize(nDsplWdth, nDsplHght);
                    pObj->SetPos(nPosX, nPosY);
                }
                else
                if (sObjKind == FORM_OBJ_KIND_MOVIE && isMoveObj == 1)
                {
                    if (pObj->ObjKind == OBJKIND_IMAGEID) {
                        if (pObj->Text.Trim() == "") {
                            pObj->Text = pObj->ImageId;
                        }
                    }

                    TMemoryStream *imagData = new TMemoryStream();
                    try {
                        String sPictExt = "bmp";

                        if (imagData != NULL) {
                            imagData->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("THMB_IMG"), bmRead));
                            if (imagData && imagData->Size > 0) {

                                imageFilePath = saveDirPath + sObjId + "." + sPictExt;
                                imagData->SaveToFile(imageFilePath);
                                LoadingImage(pObj, imageFilePath, nDsplWdth, nDsplHght);

                                pObj->GetImage()->AutoSize= false;
                                pObj->GetImage()->Stretch = true;
                                pObj->GetImage()->Width  = nDsplWdth;
                                pObj->GetImage()->Height = nDsplHght;
                                pObj->SetSize(nDsplWdth, nDsplHght);
                                pObj->SetPos(nPosX, nPosY);
                            }
                        }
                    }
                    __finally {
                        SAFE_DELETE(imagData);
                    }
                }

                pObj->Show();
                pObj->BringToFront();
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TFrmVmsMsgFormMngr::LoadFormObjectInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            DBERRORMSG("TFrmVmsMsgFormMngr::LoadFormObjectInfo", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::LoadVmsForm()
{
    FormClear();

    CMM_ClearGridTableView(TvList);
    ClearSymbloList();

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

    String sWhereQry = "";
    if (pVmsSizeType->TypeCd != "ALL") {
        sWhereQry += "   AND A.VMS_MODL_KIND = '" + pVmsSizeType->TypeCd + "' \r\n";
    }

    FVmsTypeCd = pVmsSizeType->TypeCd;
    FVmsWidth  = pVmsSizeType->Width;
    FVmsHeight = pVmsSizeType->Height;
    FVmsCols   = pVmsSizeType->Cols;
    FVmsRows   = pVmsSizeType->Rows;

    FIsLcsModl = pVmsSizeType->IsLcs;
    FVmsModlKind = FVmsTypeCd;

    SeLeft->Properties->MaxValue = FVmsWidth;
    SeTop->Properties->MaxValue = FVmsHeight;

    SeObjW->Properties->MaxValue = FVmsWidth;
    SeObjH->Properties->MaxValue = FVmsHeight;

    ImgForm->Width  = FVmsWidth;
    ImgForm->Height = FVmsHeight;
    ImgForm->Picture->Bitmap->Width  = FVmsWidth;
    ImgForm->Picture->Bitmap->Height = FVmsHeight;

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

        PnlRePreview->Width = FVmsWidth+4;
        PnlRePreview->Height= FVmsHeight+4;
        PnlRePreview->Color = clWhite;

        ImgEdtPreview->Left = 2;
        ImgEdtPreview->Top  = 2;
        ImgEdtPreview->Width = FVmsWidth;
        ImgEdtPreview->Height= FVmsHeight;
        ImgEdtPreview->Picture->Bitmap->Width = FVmsWidth;
        ImgEdtPreview->Picture->Bitmap->Height = FVmsHeight;
        m_pEdtDesigner->DrawPreviewModuleBack(ImgEdtPreview, clBlack, FVmsRows, FVmsCols);

#if 0
#if 0
        ReForm->Width = FVmsWidth+22+4;
        ReForm->Height= FVmsHeight+22+4;
#else
        ReForm->Width = FVmsWidth+4;
        ReForm->Height= FVmsHeight+4;
#endif
#endif

        ReForm->Color = clBlack;

        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();
    }

    String sVmsSizeNm = pVmsSizeType->TypeNm;

    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.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 = 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";
    sQry += sWhereQry;
    sQry +=" ORDER BY A.VMS_MODL_KIND, A.VMS_FORM_ID  \r\n";

    String sFirstFormId = "";
    try
    {
        int nRow;
        TcxDataController *pGDC = TvList->DataController;
        TvList->BeginUpdate();
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next())
            {
                nRow = pGDC->AppendRecord();
                String sVmsFormId = pADO->FieldByName("VMS_FORM_ID")->AsString;
                if (sFirstFormId == "") sFirstFormId = sVmsFormId;

                String DSPL_EFF = pADO->FieldByName("DSPL_EFF")->AsString;

                pGDC->Values[nRow][ColVMS_FORM_ID->Index]      = sVmsFormId;                                      //폼ID
                pGDC->Values[nRow][ColVMS_FORM_NM->Index]      = pADO->FieldByName("VMS_FORM_NM")->AsVariant;     //폼명칭
                pGDC->Values[nRow][ColVMS_FORM_TYPE_NM->Index] = pADO->FieldByName("FORM_TYPE_NM")->AsString;     //폼종류
                pGDC->Values[nRow][ColDSPL_EFF_NM->Index]      = pADO->FieldByName("DSPL_EFF_NM")->AsString;         //표출효과
                pGDC->Values[nRow][ColVMS_MODL_KIND_NM->Index] = pADO->FieldByName("VMS_MODL_KIND_NM")->AsString; //폼크기
                pGDC->Values[nRow][ColDSPL_HR->Index]          = pADO->FieldByName("DSPL_HR")->AsInteger;          //표출시간

                pGDC->Values[nRow][ColVMS_FORM_TYPE->Index] = pADO->FieldByName("VMS_FORM_TYPE")->AsString;    //폼종류코드-
                pGDC->Values[nRow][ColDSPL_EFF->Index]      = pADO->FieldByName("DSPL_EFF")->AsString;         //표출효과
                pGDC->Values[nRow][ColBACK_CLR->Index]      = pADO->FieldByName("BACK_CLR")->AsString;         //배경색코드-
                pGDC->Values[nRow][ColVMS_MODL_KIND->Index] = pADO->FieldByName("VMS_MODL_KIND")->AsString;    //폼크기코드-

#if 0
				Graphics::TBitmap *bitmap = new Graphics::TBitmap;
				try {
                    bitmap->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("VMS_FORM_IMAG"), bmRead));
				} catch(Exception &e) {
                    //throw Exception(String(e.ClassName()) + e.Message);
                }
                FListSymb->Add(bitmap);
#endif
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TFrmVmsMsgFormMngr::LoadVmsForm", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORMSG("TFrmVmsMsgFormMngr::LoadVmsForm", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        TvList->EndUpdate();
        if (TvList->DataController->RecordCount > 0)
        {
            //CMM_SetGridRow(CxList, TvList, sFirstFormId, ColVMS_FORM_ID->Index);
            //DisplayInfo();
        }
    }
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgFormMngr::SaveVmsForm(String AVALID_YN)
{
    String sQry;
    TADOQuery *pADO = NULL;

    String VMS_FORM_ID   = EdFormId->Text;
    String VMS_MODL_KIND = APP_GetCode(CbSizeType);    // FVmsTypeCd
    String VMS_FORM_TYPE = APP_GetCode(CbFormType);
    String VMS_FORM_NM   = EdFormName->Text.Trim();
    String DSPL_EFF      = APP_GetCode(CbFormDsplEff);
    int    DSPL_HR       = SeDsplHr->Value;
    String BACK_CLR      = CDSFontManager->GetBackColorCode(CbFormBkClr->ItemIndex);
    String OPER_ID       = g_AppCfg.OPER_ID;

   if (BACK_CLR == "0") BACK_CLR = "00";

    sQry = "MERGE INTO TB_VMS_FORM L                          \r\n"
           "USING (SELECT :p01 AS VMS_FORM_ID,                \r\n"
           "              :p02 AS VMS_MODL_KIND,              \r\n"
           "              :p03 AS VMS_FORM_TYPE,              \r\n"
           "              :p04 AS VMS_FORM_NM,                \r\n"
           "              :p05 AS DSPL_EFF,                   \r\n"
           "              :p06 AS DSPL_HR,                    \r\n"
           "              :p07 AS BACK_CLR,                   \r\n"
           "              :p08 AS OPER_ID                     \r\n"
           "         FROM DUAL) M                             \r\n"
           "        ON (L.VMS_FORM_ID = M.VMS_FORM_ID)        \r\n"
           "WHEN MATCHED THEN                                 \r\n"
           "   UPDATE SET L.VMS_MODL_KIND = M.VMS_MODL_KIND,  \r\n"
           "              L.VMS_FORM_TYPE = M.VMS_FORM_TYPE,  \r\n"
           "              L.VMS_FORM_NM   = M.VMS_FORM_NM,    \r\n"
           "              L.DSPL_EFF      = M.DSPL_EFF,       \r\n"
           "              L.DSPL_HR       = M.DSPL_HR,        \r\n"
           "              L.BACK_CLR      = M.BACK_CLR,       \r\n"
           "              L.CHNGR_ID      = M.OPER_ID,        \r\n"
           "              L.CHG_DT        = SYSDATE           \r\n"
           "WHEN NOT MATCHED THEN                             \r\n"
           "   INSERT (VMS_FORM_ID,                           \r\n"
           "           VMS_MODL_KIND,                         \r\n"
           "           VMS_FORM_TYPE,                         \r\n"
           "           VMS_FORM_NM,                           \r\n"
           "           DSPL_EFF,                              \r\n"
           "           DSPL_HR,                               \r\n"
           "           BACK_CLR,                              \r\n"
           "           RGSTR_ID,                              \r\n"
           "           REG_DT  )                              \r\n"
           "   VALUES (M.VMS_FORM_ID,                         \r\n"
           "           M.VMS_MODL_KIND,                       \r\n"
           "           M.VMS_FORM_TYPE,                       \r\n"
           "           M.VMS_FORM_NM,                         \r\n"
           "           M.DSPL_EFF,                            \r\n"
           "           M.DSPL_HR,                             \r\n"
           "           M.BACK_CLR,                            \r\n"
           "           M.OPER_ID,                             \r\n"
           "           SYSDATE )                              \r\n";


	TMemoryStream *dataStream = new TMemoryStream();
   	ImgForm->Picture->Bitmap->SaveToStream(dataStream);
    try {
        try {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);
            pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_ID;
            pADO->Parameters->ParamByName("p02")->Value = VMS_MODL_KIND;
            pADO->Parameters->ParamByName("p03")->Value = VMS_FORM_TYPE;
            pADO->Parameters->ParamByName("p04")->Value = VMS_FORM_NM;

            pADO->Parameters->ParamByName("p05")->DataType = ftString;
            pADO->Parameters->ParamByName("p05")->Value = DSPL_EFF;

            pADO->Parameters->ParamByName("p06")->Value = DSPL_HR;

            pADO->Parameters->ParamByName("p07")->DataType = ftString;
            pADO->Parameters->ParamByName("p07")->Value = BACK_CLR;

            pADO->Parameters->ParamByName("p08")->DataType = ftString;
            pADO->Parameters->ParamByName("p08")->Value = OPER_ID;
            ITSDb_SQLExec(pADO);

    sQry = "UPDATE TB_VMS_FORM         \r\n"
           "   SET VMS_FORM_IMG = :p02 \r\n"
           " WHERE VMS_FORM_ID  = :p01 \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", VMS_FORM_ID);
            if (dataStream->Size == 0) {
    		    ITSDb_SQLBind(pADO, "p01", "");
			}
            else {
    		    pADO->Parameters->ParamByName("p02")->LoadFromStream(dataStream, ftBlob);
            }
            ITSDb_SQLExec(pADO);

            return true;
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TFrmVmsMsgFormMngr::SaveVmsForm", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e)
        {
            DBERRORMSG("TFrmVmsMsgFormMngr::SaveVmsForm", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        if (dataStream) delete dataStream;
        dataStream = NULL;
    }
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgFormMngr::CheckVmsFormUse(String AFormId)
{
    String sQry;
    TADOQuery *pADO = NULL;

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

#if 0
    sQry = "SELECT VMS_FORM_ID, COUNT(1) AS CNT \r\n"
           "  FROM TB_VMS_DSPL_PLAN_MSG         \r\n"
           " WHERE VMS_FORM_ID = :p01           \r\n"
           " GROUP BY VMS_FORM_ID               \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AFormId);
            ITSDb_SQLOpen(pADO);
            for( ; !pADO->Eof; pADO->Next()) {
                if (pADO->FieldByName("CNT")->AsInteger > 0) {
                    String sMsg;
                    sMsg = "VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 [VMS표출계획메시지] 에서 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.";
                    Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
                    return false;
                }
            }
#endif

    sQry = "SELECT VMS_FORM_ID, COUNT(1) AS CNT \r\n"
           "  FROM TB_LCS_PROV_FORM             \r\n"
           " WHERE VMS_FORM_ID = :p01           \r\n"
           " GROUP BY VMS_FORM_ID               \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AFormId);
            ITSDb_SQLOpen(pADO);
            for( ; !pADO->Eof; pADO->Next()) {
                if (pADO->FieldByName("CNT")->AsInteger > 0) {
                    String sMsg;
                    sMsg = "VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 [LCS제공폼] 에서 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.";
                    Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
                    return false;
                }
            }

    sQry = "SELECT VMS_FORM_ID, COUNT(1) AS CNT \r\n"
           "  FROM TB_VMS_ONE_CLCK_FORM         \r\n"
           " WHERE VMS_FORM_ID = :p01           \r\n"
           " GROUP BY VMS_FORM_ID               \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AFormId);
            ITSDb_SQLOpen(pADO);
            for( ; !pADO->Eof; pADO->Next()) {
                if (pADO->FieldByName("CNT")->AsInteger > 0) {
                    String sMsg;
                    sMsg = "VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 [VMS원클릭폼] 에서 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.";
                    Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
                    return false;
                }
            }

    sQry = "SELECT VMS_FORM_ID, COUNT(1) AS CNT \r\n"
           "  FROM TB_VMS_INCD_RES_FORM         \r\n"
           " WHERE VMS_FORM_ID = :p01           \r\n"
           " GROUP BY VMS_FORM_ID               \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AFormId);
            ITSDb_SQLOpen(pADO);
            for( ; !pADO->Eof; pADO->Next()) {
                if (pADO->FieldByName("CNT")->AsInteger > 0) {
                    String sMsg;
                    sMsg = "VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 [VMS돌발상황대응메시지] 에서 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.";
                    Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
                    return false;
                }
            }

    sQry = "SELECT VMS_FORM_ID, COUNT(1) AS CNT \r\n"
           "  FROM TB_VMS_EMGNC_FORM            \r\n"
           " WHERE VMS_FORM_ID = :p01           \r\n"
           " GROUP BY VMS_FORM_ID               \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AFormId);
            ITSDb_SQLOpen(pADO);
            for( ; !pADO->Eof; pADO->Next()) {
                if (pADO->FieldByName("CNT")->AsInteger > 0) {
                    String sMsg;
                    sMsg = "VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 [VMS긴급메시지] 에서 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.";
                    Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
                    return false;
                }
            }

    sQry = "SELECT VMS_FORM_ID, COUNT(1) AS CNT \r\n"
           "  FROM TB_VMS_PUBRL_FORM            \r\n"
           " WHERE VMS_FORM_ID = :p01           \r\n"
           " GROUP BY VMS_FORM_ID               \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AFormId);
            ITSDb_SQLOpen(pADO);
            for( ; !pADO->Eof; pADO->Next()) {
                if (pADO->FieldByName("CNT")->AsInteger > 0) {
                    String sMsg;
                    sMsg = "VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 [VMS홍보메시지] 에서 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.";
                    Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
                    return false;
                }
            }

    sQry = "SELECT VMS_FORM_ID, COUNT(1) AS CNT \r\n"
           "  FROM TB_VMS_DFLT_FORM             \r\n"
           " WHERE VMS_FORM_ID = :p01           \r\n"
           " GROUP BY VMS_FORM_ID               \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AFormId);
            ITSDb_SQLOpen(pADO);
            for( ; !pADO->Eof; pADO->Next()) {
                if (pADO->FieldByName("CNT")->AsInteger > 0) {
                    String sMsg;
                    sMsg = "VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 [VMS기본폼구성] 에서 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.";
                    Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
                    return false;
                }
            }

    sQry = "SELECT VMS_FORM_ID, COUNT(1) AS CNT \r\n"
           "  FROM TB_VMS_SCNR_VMS_FORM         \r\n"
           " WHERE VMS_FORM_ID = :p01           \r\n"
           " GROUP BY VMS_FORM_ID               \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AFormId);
            ITSDb_SQLOpen(pADO);
            for( ; !pADO->Eof; pADO->Next()) {
                if (pADO->FieldByName("CNT")->AsInteger > 0) {
                    String sMsg;
                    sMsg = "VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 [VMS시나리오] 에서 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.";
                    Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
                    return false;
                }
            }

        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TFrmVmsMsgFormMngr::CheckVmsFormUse", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e) {
            DBERRORMSG("TFrmVmsMsgFormMngr::CheckVmsFormUse", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }
    return true;
}
//---------------------------------------------------------------------------
bool __fastcall TFrmVmsMsgFormMngr::DelVmsFormRltnTable(String AFormId)
{
    String sQry;
    TADOQuery *pADO = NULL;
    try {
        try {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

    sQry = "DELETE TB_VMS_FORM_OBJ_TXT                                  \r\n"
           " WHERE VMS_FORM_OBJ_ID IN (SELECT VMS_FORM_OBJ_ID           \r\n"
           "                            FROM TB_VMS_FORM_VMS_FORM_OBJ   \r\n"
           "                           WHERE VMS_FORM_ID = :p01)        \r\n";

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

    sQry = "DELETE TB_VMS_FORM_VMS_FORM_OBJ WHERE VMS_FORM_ID = :p01";

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

            return true;
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TFrmVmsMsgFormMngr::DelVmsFormRltnTable", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e) {
            DBERRORMSG("TFrmVmsMsgFormMngr::DelVmsFormRltnTable", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }
    return true;
}
//---------------------------------------------------------------------------
bool __fastcall TFrmVmsMsgFormMngr::DelVmsForm(String AFormId)
{
    String sQry;
    TADOQuery *pADO = NULL;

    if (!DelVmsFormRltnTable(AFormId)) {
        return false;
    }

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

    sQry = "DELETE TB_VMS_FORM WHERE VMS_FORM_ID = :p01";

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

            return true;
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TFrmVmsMsgFormMngr::DelVmsForm", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e) {
            DBERRORMSG("TFrmVmsMsgFormMngr::DelVmsForm", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }
    return true;
}
//---------------------------------------------------------------------------

String __fastcall TFrmVmsMsgFormMngr::GetNextVmsFormId(String AFormType)
{
    String sQry;
    TADOQuery *pADO = NULL;
    String result = AFormType + "-0000";
    sQry = "SELECT '" + AFormType + "-' || LPAD(NVL(MAX(SUBSTR(VMS_FORM_ID, -4)), '0000') + 1, 4, '0') AS NEWID FROM TB_VMS_FORM WHERE SUBSTR(VMS_FORM_ID,1,2)='" + AFormType + "-'";

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLOpen(pADO);

			pADO->Open();
            result = pADO->FieldByName("NEWID")->AsString;
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TFrmVmsMsgFormMngr::GetNextVmsFormId", String(E.ClassName()), E.Message, sQry);
            return result;
        }
        catch(Exception &e)
        {
            DBERRORMSG("TFrmVmsMsgFormMngr::GetNextVmsFormId", String(e.ClassName()), e.Message, sQry);
            return result;
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
    return result;
}
//---------------------------------------------------------------------------