ITS_OP/TEMP/VmsCommonLib - 복사본/CDS/CDSCodeF.cpp

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

#pragma hdrstop

#include "CDSCodeF.h"
#include "VmsCommonLibF.h"

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

#pragma package(smart_init)

TSysCode::TSysCode()
{
}
//---------------------------------------------------------------------------
TSysCode::TSysCode(String ACLSS_CD, String ACODE_NO, String ACD_NM)
{
    TSysCode(ACLSS_CD, ACODE_NO, ACD_NM, "");
    CLSS_CD  = ACLSS_CD;
    CODE_NO  = ACODE_NO;
    CD_NM    = ACD_NM;
    CD_VAL_1 = "";
    USE_YN   = "Y";
}
//---------------------------------------------------------------------------
TSysCode::TSysCode(String ACLSS_CD, String ACODE_NO, String ACD_NM, String ACD_VAL_1)
{
    CLSS_CD  = ACLSS_CD;
    CODE_NO  = ACODE_NO;
    CD_NM    = ACD_NM;
    CD_VAL_1 = ACD_VAL_1;
    USE_YN   = "Y";
}
//---------------------------------------------------------------------------
void TSysCode::Clear()
{
}
//---------------------------------------------------------------------------
TSysCode::~TSysCode()
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
TSysClssCode::TSysClssCode()
{
}
//---------------------------------------------------------------------------
TSysClssCode::TSysClssCode(String ACLSS_CD, String ACLSS_CD_NM)
{
    CLSS_CD = ACLSS_CD;
    CLSS_CD_NM = ACLSS_CD_NM;
}
//---------------------------------------------------------------------------
void TSysClssCode::Clear()
{
}
//---------------------------------------------------------------------------
TSysClssCode::~TSysClssCode()
{
    FLists.RemoveAll();
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
TSysCodeManager *SysCodeManager = NULL;
//---------------------------------------------------------------------------

/*
* Link Manager
*/
TSysCodeManager::TSysCodeManager()
{
}
//---------------------------------------------------------------------------
TSysCodeManager::~TSysCodeManager()
{
}
//---------------------------------------------------------------------------
bool TSysCodeManager::LoadFromDb(TADOConnection *ADbConn/*=NULL*/)
{
    FLists.RemoveAll();

    return (LoadSysClssCode(ADbConn) && LoadSysCode(ADbConn));
}
//---------------------------------------------------------------------------
bool TSysCodeManager::LoadSysClssCode(TADOConnection *ADbConn/*=NULL*/)
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT *                \r\n"
           "  FROM TB_SYS_CLSS_CD   \r\n";

    FLists.Lock();
    try
    {
        FLists.RemoveAll();

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

            pADO->Prepared = true;
			pADO->Open();
            for( ; !pADO->Eof; pADO->Next())
            {
				TSysClssCode *pCode = new TSysClssCode();

                pCode->CLSS_CD    = pADO->FieldByName("CLSS_CD")->AsString;
                pCode->CLSS_CD_NM = pADO->FieldByName("CLSS_CD_NM")->AsString;

				FLists.Push(pCode->CLSS_CD, pCode);
            }
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TSysCodeManager::LoadSysClssCode", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TSysCodeManager::LoadSysClssCode", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        FLists.UnLock();
    }

    return true;
}
//---------------------------------------------------------------------------
bool TSysCodeManager::LoadSysCode(TADOConnection *ADbConn/*=NULL*/)
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT *                \r\n"
           "  FROM TB_SYS_CD        \r\n"
           " WHERE USE_YN = 'Y'     \r\n";

    FLists.Lock();
    try
    {
        TSysClssCode *pClssCd = NULL;

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

            pADO->Prepared = true;
			pADO->Open();
            for( ; !pADO->Eof; pADO->Next())
            {
                String CLSS_CD = pADO->FieldByName("CLSS_CD")->AsString;
                pClssCd = SysCodeManager->FLists.Find(CLSS_CD);
                if (!pClssCd) continue;

				TSysCode *pSysCode = new TSysCode();

                pSysCode->CLSS_CD  = pADO->FieldByName("CLSS_CD")->AsString;    //	N	VARCHAR2(32)	N			분류코드
                pSysCode->CODE_NO  = pADO->FieldByName("CODE_NO")->AsString;    //	N	VARCHAR2(5)	    N			코드
                pSysCode->CD_NM    = pADO->FieldByName("CD_NM")->AsString;      //	N	VARCHAR2(50)	N			코드명
                pSysCode->CD_VAL_1 = pADO->FieldByName("CD_VAL_1")->AsString;   //	N	VARCHAR2(32)	Y			코드값1
                pSysCode->CD_VAL_2 = pADO->FieldByName("CD_VAL_2")->AsString;   //	N	VARCHAR2(32)	Y			코드값2
                pSysCode->CD_VAL_3 = pADO->FieldByName("CD_VAL_3")->AsString;   //	N	VARCHAR2(32)	Y			코드값3
                pSysCode->CD_VAL_4 = pADO->FieldByName("CD_VAL_4")->AsString;   //	N	VARCHAR2(32)	Y			코드값4
                pSysCode->CD_VAL_5 = pADO->FieldByName("CD_VAL_5")->AsString;   //	N	VARCHAR2(32)	Y			코드값5
                pSysCode->CD_VAL_6 = pADO->FieldByName("CD_VAL_6")->AsString;   //	N	VARCHAR2(32)	Y			코드값6
                pSysCode->CD_VAL_7 = pADO->FieldByName("CD_VAL_7")->AsString;   //	N	VARCHAR2(32)	Y			코드값7
                pSysCode->CD_VAL_8 = pADO->FieldByName("CD_VAL_8")->AsString;   //	N	VARCHAR2(32)	Y			코드값8
                pSysCode->CD_VAL_9 = pADO->FieldByName("CD_VAL_9")->AsString;   //	N	VARCHAR2(32)	Y			코드값9
                pSysCode->USE_YN   = pADO->FieldByName("USE_YN")->AsString;     //	N	CHAR(1)	        N			사용여부

                pClssCd->FLists.Push(pSysCode->CODE_NO, pSysCode);
            }
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TSysCodeManager::LoadSysCode", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &exception)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TSysCodeManager::LoadSysCode", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        FLists.UnLock();
    }

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

bool TSysCodeManager::LoadFromDbOffline(TSysCodeManager *ASysCodeManager)
{
    TSysClssCode *pCode;
    TSysCode     *pSysCode;

    //폼유형 "VMS_FORM_TYPE_CD");

    //표출방법"VMS_FORM_DSPL_EFF_CD");
    pCode = new TSysClssCode("VMS_FORM_DSPL_EFF_CD", "표출방법");
    pCode->FLists.Push("00", new TSysCode("FONT_KIND_CD", "00", "Shift-Up"));
    pCode->FLists.Push("01", new TSysCode("FONT_KIND_CD", "01", "Shift-Down"));
    pCode->FLists.Push("02", new TSysCode("FONT_KIND_CD", "02", "Shift-Left"));
    pCode->FLists.Push("03", new TSysCode("FONT_KIND_CD", "03", "Shift-Right"));
    pCode->FLists.Push("10", new TSysCode("FONT_KIND_CD", "10", "Scroll-Up"));
    pCode->FLists.Push("11", new TSysCode("FONT_KIND_CD", "11", "Scroll-Down"));
    pCode->FLists.Push("12", new TSysCode("FONT_KIND_CD", "12", "Scroll-Left"));
    pCode->FLists.Push("13", new TSysCode("FONT_KIND_CD", "13", "Scroll-Right"));
    pCode->FLists.Push("20", new TSysCode("FONT_KIND_CD", "20", "Wipe-Up"));
    pCode->FLists.Push("21", new TSysCode("FONT_KIND_CD", "21", "Wipe-Down"));
    pCode->FLists.Push("22", new TSysCode("FONT_KIND_CD", "22", "Wipe-Left"));
    pCode->FLists.Push("23", new TSysCode("FONT_KIND_CD", "23", "Wipe-Right"));
    pCode->FLists.Push("30", new TSysCode("FONT_KIND_CD", "30", "Curtain-Up"));
    pCode->FLists.Push("31", new TSysCode("FONT_KIND_CD", "31", "Curtain-Down"));
    pCode->FLists.Push("32", new TSysCode("FONT_KIND_CD", "32", "Curtain-Left"));
    pCode->FLists.Push("33", new TSysCode("FONT_KIND_CD", "33", "Curtain-Right"));
    pCode->FLists.Push("40", new TSysCode("FONT_KIND_CD", "40", "Trace-Up"));
    pCode->FLists.Push("41", new TSysCode("FONT_KIND_CD", "41", "Trace-Down"));
    pCode->FLists.Push("42", new TSysCode("FONT_KIND_CD", "42", "Trace-Left"));
    pCode->FLists.Push("43", new TSysCode("FONT_KIND_CD", "43", "Trace-Right"));
    pCode->FLists.Push("50", new TSysCode("FONT_KIND_CD", "50", "Blind-Up"));
    pCode->FLists.Push("51", new TSysCode("FONT_KIND_CD", "51", "Blind-Down"));
    pCode->FLists.Push("52", new TSysCode("FONT_KIND_CD", "52", "Blind-Left"));
    pCode->FLists.Push("53", new TSysCode("FONT_KIND_CD", "53", "Blind-Right"));
    pCode->FLists.Push("60", new TSysCode("FONT_KIND_CD", "60", "Flashing"));
    pCode->FLists.Push("70", new TSysCode("FONT_KIND_CD", "70", "Stationary"));
    ASysCodeManager->FLists.Push(pCode->CLSS_CD, pCode);

    //폼객체종류 "VMS_FORM_OBJ_KIND_CD");

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