ITS_OP/VmsOprMain_ORG/PLUGIN/VMSM500M/VMSM500MSRCF.cpp

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


#pragma hdrstop

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

#include "VMSM500MF.h"
#include "VMSM500MSRCF.h"

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

#pragma package(smart_init)

//폼유형
void __fastcall TVMSM500M::FillVmsFormType(TcxComboBox *ACombo)
{
    String     sQry;
    TADOQuery *pADO = NULL;

    ACombo->Properties->Items->Clear();

    sQry = "SELECT VMS_FORM_TYPE_CD AS CD,   \r\n"
           "       VMS_FORM_TYPE_NM AS NM,   \r\n"
           "       EDTN_CD                   \r\n"
           "  FROM TB_VMS_FORM_TYPE          \r\n"
           " ORDER BY CD ASC                 \r\n";

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

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

            for( ; !pADO->Eof; pADO->Next())
            {
                String sUse = pADO->FieldByName("EDTN_CD")->AsString;
                if (sUse == "EDI2") continue;

                String sCd = pADO->FieldByName("CD")->AsString;
                String sNm = pADO->FieldByName("NM")->AsString;
    			ACombo->Properties->Items->Add(" [" + sCd + "] " + sNm);
            }
            ACombo->ItemIndex = 0;
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("FillVmsFormType", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            DBERRORMSG("FillVmsFormType", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
}
//---------------------------------------------------------------------------
//표출방법
void __fastcall TVMSM500M::FillVmsFormDispMode(TcxComboBox *ACombo)
{
    String     sQry;
    TADOQuery *pADO = NULL;

    ACombo->Properties->Items->Clear();

    sQry = "SELECT VMS_MSG_DSPL_MTHD_CD AS CD,   \r\n"
           "       VMS_MSG_DSPL_MTHD_NM AS NM,   \r\n"
           "       EDTN_CD                       \r\n"
           "  FROM TB_VMS_MSG_DSPL_MTHD          \r\n"
           " ORDER BY CD ASC                     \r\n";

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

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

            for( ; !pADO->Eof; pADO->Next())
            {
                String sUse = pADO->FieldByName("EDTN_CD")->AsString;
                if (sUse == "EDI2") continue;

                String sCd = pADO->FieldByName("CD")->AsString;
                String sNm = pADO->FieldByName("NM")->AsString;
    			ACombo->Properties->Items->Add(" [" + sCd + "] " + sNm);
            }
            ACombo->ItemIndex = 0;
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("FillVmsFormType", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            DBERRORMSG("FillVmsFormType", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
}
//---------------------------------------------------------------------------

//표출방향
void __fastcall TVMSM500M::FillVmsFormDispDir(TcxComboBox *ACombo)
{
    String     sQry;
    TADOQuery *pADO = NULL;

    ACombo->Properties->Items->Clear();

    sQry = "SELECT VMS_MSG_DSPL_DRCT_CD AS CD,   \r\n"
           "       VMS_MSG_DSPL_DRCT_NM AS NM,   \r\n"
           "       EDTN_CD                       \r\n"
           "  FROM TB_VMS_MSG_DSPL_DRCT          \r\n"
           " ORDER BY CD ASC                     \r\n";

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

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

            for( ; !pADO->Eof; pADO->Next())
            {
                String sUse = pADO->FieldByName("EDTN_CD")->AsString;
                if (sUse == "EDI2") continue;

                String sCd = pADO->FieldByName("CD")->AsString;
                String sNm = pADO->FieldByName("NM")->AsString;
    			ACombo->Properties->Items->Add(" [" + sCd + "] " + sNm);
            }
            ACombo->ItemIndex = 0;
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("FillVmsFormType", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            DBERRORMSG("FillVmsFormType", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
}
//---------------------------------------------------------------------------

//VMS Font
void __fastcall TVMSM500M::FillVmsFont(TcxComboBox *ACombo)
{
    String     sQry;
    TADOQuery *pADO = NULL;

    ACombo->Properties->Items->Clear();

    sQry = "SELECT VMS_FONT_SHPE_CD AS CD,   \r\n"
           "       VMS_FONT_SHPE_NM AS NM,   \r\n"
           "       EDTN_CD                   \r\n"
           "  FROM TB_VMS_FONT_SHPE          \r\n"
           " ORDER BY CD ASC                 \r\n";

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

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

            for( ; !pADO->Eof; pADO->Next())
            {
                String sUse = pADO->FieldByName("EDTN_CD")->AsString;
                if (sUse == "EDI2") continue;

                String sCd = pADO->FieldByName("CD")->AsString;
                String sNm = pADO->FieldByName("NM")->AsString;
    			ACombo->Properties->Items->Add(" [" + sCd + "] " + sNm);
            }
            ACombo->ItemIndex = 0;
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("FillVmsFormType", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            DBERRORMSG("FillVmsFormType", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSM500M::LoadFormObjectInfo(String AFormId, TVmsFormDesigner *ADesigner, String AFormType)
{
    ADesigner->Clear();

    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"
           " WHERE A.VMS_FORM_ID      = :p01                  \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";

#if 0
FORM_OBJECT_ID	        N	NUMBER(5)	    N			FORM OBJECT ID
VMS_FORM_ID	            N	NUMBER(5)	    N			VMS FORM ID
VMS_FORM_DSPL_ROW	    N	NUMBER(2)	    Y			VMS FORM 표출 행
VMS_FORM_DSPL_CLMN	    N	NUMBER(2)	    Y			VMS FORM 표출 칼럼
VMS_FORM_OBJECT_TYPE_CD	N	NUMBER(3)	    N			VMS FORM OBJECT 유형 코드
VMS_FONT_TYPE_CD	    N	NUMBER(3)	    N			VMS 글꼴 유형 코드
VMS_FONT_HUE_CD	        N	NUMBER(9)	    N			VMS 글꼴 색상 코드
VMS_FONT_STYL_CD	    N	NUMBER(3)	    Y			VMS 글꼴 방식 코드
VMS_FONT_SIZE	        N	NUMBER(3)	    Y	0		VMS 글꼴 크기
VMS_FONT_ALIGN	        N	NUMBER(1)	    Y	0		VMS 표출 문자열정열방식(0:LEFT,1:RIGHT,2:CENTER)
VMS_DSPL_TXT	        N	VARCHAR2(200)	Y			VMS 표출 텍스트
VMS_DSPL_FIGR	        N	BLOB	        Y			VMS 표출 도형
VMS_DSPL_XCRDN	        N	NUMBER(5)	    Y			VMS 표출 X좌표
VMS_DSPL_YCRDN	        N	NUMBER(5)	    Y			VMS 표출 Y좌표
VMS_DSPL_WIDTH	        N	NUMBER(5)	    Y	0		VMS 표출 넓이
VMS_DSPL_HEIGHT	        N	NUMBER(5)	    Y	0		VMS 표출 높이
VMS_DSPL_BLINKING	    N	NUMBER(1)	    Y	0		VMS 표출 점멸 여부(0:지속, 1:점멸)
VMS_DSPL_BKCOLOR	    N	NUMBER(1)	    Y	0		VMS 표출 배경색상코드
VMS_DSPL_SIZE	        N	NUMBER(7)	    Y	0		VMS 표출 크기(문자:문자길이,이미지:이미지전체크기)
TRFC_FILL_CD	        N	CHAR(1)	        Y	'N'		FILL-IN 메시지 여부
SYMBLIB_NMBR	        N	NUMBER(4)	    N	0		심벌라이브러리 번호
#endif
    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 == 3) sObjKind = OBJKIND_IMAGE;
                    else               sObjKind = OBJKIND_IMAGEID;

                    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;

                String sIfscId  = pADO->FieldByName("VMS_IFSC_ID")->AsString;
                String sFillCd  = pADO->FieldByName("TRFC_FILL_CD")->AsString;

                pObj->ObjSeq      = nObjId;
                pObj->ObjId       = nObjId;
                pObj->ObjKind     = sObjKind;

                pObj->Tag         = sIfscId;
                if (AFormType == "15")
                {
                    if (nObjType == 0 || nObjType == 1 || nObjType == 2)
                    {
                        pObj->Tag = sFillCd;
                    }
                }

                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;
                pObj->Text        = pADO->FieldByName("VMS_DSPL_TXT")->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;
                }
                else //if (sObjKind == "1" || sObjKind == "2")    // 이미지(1), 이미지 ID(2)
                {
                    if (pObj->ObjKind == OBJKIND_IMAGEID)
                    {
                        if (pObj->Text.Trim() == "")
                        {
                            pObj->Text = pObj->ImageId;
                        }
                    }

                    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 Form Object Query", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            DBERRORMSG("VMS Form Object Query", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
}
//---------------------------------------------------------------------------

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

    int nFocusedIdx = TvList->DataController->FocusedRecordIndex;
    CMM_ClearGridTableView(TvList);
    ClearSymbloList();

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

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

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

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

    {
        PnlBack->Left = 5;
        PnlBack->Top  = 5;
        PnlBack->Width = FVmsWidth+4;
        PnlBack->Height= FVmsHeight+4;

        //PnlFormPreview->Width  = pVmsSizeType->Width +4;
        //PnlFormPreview->Height = pVmsSizeType->Height+4;
        //m_pDesigner->Clear();
        //m_pDesigner->SizeType = FVmsTypeCd;
        //m_pDesigner->SetSize(FVmsWidth, FVmsHeight);
        //m_pDesigner->SetPos(0, 0);
        //m_pDesigner->BkColor = clBlack;
        //m_pDesigner->Show();
    }

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

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

        ImgEdtPreview->Left = 2;
        ImgEdtPreview->Top  = 2;
        ImgEdtPreview->Width = FVmsWidth;
        ImgEdtPreview->Height= FVmsHeight;

        ReForm->Width = FVmsWidth+22+4;
        ReForm->Height= FVmsHeight+22+4;
        ReForm->Color = clBlack;

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

    String sVmsSizeNm = pVmsSizeType->TypeNm;

    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT A.VMS_FORM_ID, A.VMS_FORM_NM, A.VMS_FORM_EXPL,      \r\n"
           "       A.VMS_FORM_TYPE_CD, A.VMS_TYPE_CD,                  \r\n"
           "       (SELECT CMMN_CD_KOR_NM                              \r\n"
           "          FROM TB_CMMN_CD                                  \r\n"
           "         WHERE CMMN_CD = A.VMS_TYPE_CD AND USE_YN = 'Y')   \r\n"
           "       AS VMS_SIZE_TYPE_NM,                                \r\n"
           "       (SELECT VMS_FORM_TYPE_NM                            \r\n"
           "          FROM TB_VMS_FORM_TYPE                            \r\n"
           "         WHERE EDTN_CD <> 'EDI2'                           \r\n"
           "           AND VMS_FORM_TYPE_CD = A.VMS_FORM_TYPE_CD)      \r\n"
           "       AS FORM_TYPE_NM,                                    \r\n"
           "       A.VMS_FORM_BCKG_HUE_CD,                             \r\n"
           "       A.VMS_MSG_DSPL_DRCT_CD,                             \r\n"
           "       A.VMS_MSG_DSPL_MTHD_CD,                             \r\n"
           "       A.VMS_FORM_IMAG                                     \r\n"
           "  FROM TB_VMS_FORM A                                       \r\n";
    sQry += sWhereQry;
    sQry +=" ORDER BY A.VMS_TYPE_CD DESC, A.VMS_FORM_ID ASC            \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_SQLBind(pADO, "p01", sVmsTypeCd);
            ITSDb_SQLOpen(pADO);

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

                pGDC->Values[nRow][Col01->Index] = sFormId;          //폼ID
                pGDC->Values[nRow][Col02->Index] = pADO->FieldByName("VMS_FORM_NM")->AsVariant;         //폼명칭
                pGDC->Values[nRow][Col03->Index] = pADO->FieldByName("VMS_FORM_EXPL")->AsString;        //폼설명
                pGDC->Values[nRow][Col04->Index] = pADO->FieldByName("FORM_TYPE_NM")->AsString;         //폼종류
                pGDC->Values[nRow][Col05->Index] = pADO->FieldByName("VMS_SIZE_TYPE_NM")->AsString;     //폼크기
                pGDC->Values[nRow][Col06->Index] = pADO->FieldByName("VMS_MSG_DSPL_MTHD_CD")->AsString;     //표출방법코드-
                pGDC->Values[nRow][Col07->Index] = pADO->FieldByName("VMS_MSG_DSPL_DRCT_CD")->AsString;     //표출방향코드-
                pGDC->Values[nRow][Col08->Index] = pADO->FieldByName("VMS_FORM_BCKG_HUE_CD")->AsString;     //배경색코드-
                pGDC->Values[nRow][Col09->Index] = pADO->FieldByName("VMS_FORM_TYPE_CD")->AsString;         //폼종류코드-
                pGDC->Values[nRow][Col10->Index] = pADO->FieldByName("VMS_TYPE_CD")->AsString;              //폼크기코드-

				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);
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("VMS Form Query", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORMSG("VMS Form Query", 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, Col01->Index);
            //DisplayInfo();
        }
    }
}
//---------------------------------------------------------------------------

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

    String sFormId    = EdFormId->Text;
    String sVmsType   = FVmsTypeCd;
    String sFormType  = APP_GetCode(CbFormKind);
    String sName      = EdFormName->Text.Trim();
    String sExpl      = EdFormDesc->Text.Trim();
    String sFormColor = String(CbFormColor->ItemIndex);
    String sDispDir   = APP_GetCode(CbFormDispDir);
    String sDispMode  = APP_GetCode(CbFormDispMode);

    sQry = "MERGE INTO TB_VMS_FORM L                                        \r\n"
           "USING (SELECT :p01 AS VMS_FORM_ID,                              \r\n"
           "              :p02 AS VMS_TYPE_CD,                              \r\n"
           "              :p03 AS VMS_FORM_TYPE_CD,                         \r\n"
           "              :p04 AS VMS_FORM_NM,                              \r\n"
           "              :p05 AS VMS_FORM_EXPL,                            \r\n"
           "              :p06 AS VMS_FORM_BCKG_HUE_CD,                     \r\n"
           "              :p07 AS VMS_MSG_DSPL_DRCT_CD,                     \r\n"
           "              :p08 AS VMS_MSG_DSPL_MTHD_CD                      \r\n"
           "         FROM DUAL) M                                           \r\n"
           "        ON (L.VMS_FORM_ID = M.VMS_FORM_ID)                      \r\n"
           "WHEN MATCHED                                                    \r\n"
           "THEN                                                            \r\n"
           "   UPDATE SET L.VMS_FORM_NM          = M.VMS_FORM_NM,           \r\n"
           "              L.VMS_FORM_EXPL        = M.VMS_FORM_EXPL,         \r\n"
           "              L.VMS_FORM_BCKG_HUE_CD = M.VMS_FORM_BCKG_HUE_CD,  \r\n"
           "              L.VMS_MSG_DSPL_DRCT_CD = M.VMS_MSG_DSPL_DRCT_CD,  \r\n"
           "              L.VMS_MSG_DSPL_MTHD_CD = M.VMS_MSG_DSPL_MTHD_CD   \r\n"
           "WHEN NOT MATCHED                                                \r\n"
           "THEN                                                            \r\n"
           "   INSERT (VMS_FORM_ID,                                         \r\n"
           "           VMS_TYPE_CD,                                         \r\n"
           "           VMS_FORM_TYPE_CD,                                    \r\n"
           "           VMS_FORM_NM,                                         \r\n"
           "           VMS_FORM_EXPL,                                       \r\n"
           "           VMS_FORM_BCKG_HUE_CD,                                \r\n"
           "           VMS_MSG_DSPL_DRCT_CD,                                \r\n"
           "           VMS_MSG_DSPL_MTHD_CD )                               \r\n"
           "   VALUES (M.VMS_FORM_ID,                                       \r\n"
           "           M.VMS_TYPE_CD,                                       \r\n"
           "           M.VMS_FORM_TYPE_CD,                                  \r\n"
           "           M.VMS_FORM_NM,                                       \r\n"
           "           M.VMS_FORM_EXPL,                                     \r\n"
           "           M.VMS_FORM_BCKG_HUE_CD,                              \r\n"
           "           M.VMS_MSG_DSPL_DRCT_CD,                              \r\n"
           "           M.VMS_MSG_DSPL_MTHD_CD )                             \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);

            ITSDb_SQLBind(pADO, "p01", sFormId);
            ITSDb_SQLBind(pADO, "p02", sVmsType);
            ITSDb_SQLBind(pADO, "p03", sFormType);
            ITSDb_SQLBind(pADO, "p04", sName);
            ITSDb_SQLBind(pADO, "p05", sExpl);
            ITSDb_SQLBind(pADO, "p06", sFormColor);
            ITSDb_SQLBind(pADO, "p07", sDispDir);
            ITSDb_SQLBind(pADO, "p08", sDispMode);
			ITSDb_SQLExec(pADO);

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

            ITSDb_SQLText(pADO, sQry);

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


            return true;
        }
        catch(EDatabaseError &E)
        {
            DBERRORLOG("VMS Form Save", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORLOG("VMS Form Save", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        if (dataStream) delete dataStream;
        dataStream = NULL;
    }

    return true;
}
//---------------------------------------------------------------------------

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

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

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AFormId);
            ITSDb_SQLOpen(pADO);
            if (pADO->FieldByName("CNT")->AsInteger > 0)
            {
                Application->MessageBox(L"VMS 폼 사용확인\r\n삭제할 VMS 폼 정보가 VMS 고정메시지 스케쥴에 사용되고 있습니다.\r\n먼저 해당 정보를 삭제해주시기 바랍니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
                return false;
            }
#endif

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AFormId);
            ITSDb_SQLOpen(pADO);
            if (pADO->FieldByName("CNT")->AsInteger > 0)
            {
                Application->MessageBox(MSG702, FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
                return false;
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("VMS Form Use Query", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORMSG("VMS Form Use Query", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSM500M::DelVmsForm(String AFormId)
{
    String sQry;
    TADOQuery *pADO = NULL;

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

    sQry = "DELETE TB_VMS_FORM_OBJECT   \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        \r\n"
           " WHERE VMS_FORM_ID = :p01 \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AFormId);
			pADO->ExecSQL();
            return true;
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("VMS Form Delete", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORMSG("VMS Form Delete", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TVMSM500M::GetNextVmsFormId(int &AFormId)
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT NVL(MAX(VMS_FORM_ID), 9999)+1 AS NEWID FROM TB_VMS_FORM \r\n";

    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();
			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;

			pADO->Open();
            AFormId = pADO->FieldByName("NEWID")->AsInteger;
            return true;
        }
        catch(EDatabaseError &E)
        {
            DBERRORLOG("VMS Form ID Query", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORLOG("VMS Form ID Query", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
    return false;
}
//---------------------------------------------------------------------------