ITS_OP/COMMON/CDS/CDSOrganF.cpp

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


#pragma hdrstop

#include "CDSOrganF.h"
#include "ITSDbF.h"
#include "AppGlobalF.h"

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

#pragma package(smart_init)

TItsOrgan::TItsOrgan()
{
	FCompleted = false;
    FEditMode  = DB_INIT;
	FGridIndex = -1;
	MEM_DEL    = "N";
    //Clear();
}
//---------------------------------------------------------------------------
void TItsOrgan::Clear()
{
    CNCT_INTN_MNGM_NMBR = "";    //NUMBER(10)	N			연계 기관 관리 번호
    CNCT_INTN_NM        = "";           //VARCHAR2(50)	Y			연계 기관 명
    CNCT_INTN_TYPE_CD   = "";      //VARCHAR2(7)	Y			연계 기관 유형 코드
    CNCT_INTN_TEL       = "";          //VARCHAR2(128)	Y			연계 기관 전화번호
    CNCT_INTN_ADDR      = "";         //VARCHAR2(200)	Y			연계 기관 주소
    RMRK                = "";                   //VARCHAR2(600)	Y			비고
    FRST_REGR_NMBR      = "";         //VARCHAR2(20)	Y			최초 등록자 번호
    FRST_RGST_DT        = "";           //VARCHAR2(14)	Y			최초 등록 일시
    LAST_CRPR_NMBR      = "";         //VARCHAR2(20)	Y			최종 수정자 번호
    LAST_CRCT_DT        = "";           //VARCHAR2(14)	Y			최종 수정 일시
    DEL_YN              = "N";                 //CHAR(1)	Y	'N'		삭제 여부
}
//---------------------------------------------------------------------------
TItsOrgan::~TItsOrgan()
{
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
TItsOrganManager *ItsOrganManager = NULL;
//---------------------------------------------------------------------------

/*
* Organ Manager
*/
TItsOrganManager::TItsOrganManager()
{
}
//---------------------------------------------------------------------------
TItsOrganManager::~TItsOrganManager()
{
    FLists.RemoveAll();
}
//---------------------------------------------------------------------------
bool TItsOrganManager::LoadFromDb(TADOConnection *ADbConn/*=NULL*/)
{
    String sQry;
    TADOQuery *pADO = NULL;

#if 0
    sQry = "SELECT *                        \r\n"
           "  FROM TB_CNCT_INTN             \r\n";
           //" ORDER BY CNCT_INTN_MNGM_NMBR   \r\n";
#else
    sQry = "SELECT A.CNCT_INTN_MNGM_NMBR, A.CNCT_INTN_NM, A.CNCT_INTN_TYPE_CD,      \r\n"
           "       A.CNCT_INTN_TEL, A.CNCT_INTN_ADDR, A.RMRK,                       \r\n"
           "       A.FRST_REGR_NMBR, A.FRST_RGST_DT,                                \r\n"
           "       A.LAST_CRPR_NMBR, A.LAST_CRCT_DT, A.DEL_YN                       \r\n"
           "  FROM TB_CNCT_INTN A                                                   \r\n";
//           " ORDER BY A.CNCT_INTN_MNGM_NMBR                                         \r\n";
#endif
    try
    {
        FLists.Lock();
        FLists.RemoveAll();
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;

			pADO->Open();
            for( ; !pADO->Eof; pADO->Next())
            {
				TItsOrgan *pObj = new TItsOrgan();

                pObj->CNCT_INTN_MNGM_NMBR = pADO->FieldByName("CNCT_INTN_MNGM_NMBR")->AsString;    //NUMBER(10)	N			연계 기관 관리 번호
                pObj->CNCT_INTN_NM        = pADO->FieldByName("CNCT_INTN_NM")->AsString.Trim();           //VARCHAR2(50)	Y			연계 기관 명
                pObj->CNCT_INTN_TYPE_CD   = pADO->FieldByName("CNCT_INTN_TYPE_CD")->AsString;      //VARCHAR2(7)	Y			연계 기관 유형 코드
                pObj->CNCT_INTN_TEL       = pADO->FieldByName("CNCT_INTN_TEL")->AsString;          //VARCHAR2(128)	Y			연계 기관 전화번호
                pObj->CNCT_INTN_ADDR      = pADO->FieldByName("CNCT_INTN_ADDR")->AsString.Trim();         //VARCHAR2(200)	Y			연계 기관 주소
                pObj->RMRK                = pADO->FieldByName("RMRK")->AsString;                   //VARCHAR2(600)	Y			비고
                pObj->FRST_REGR_NMBR      = pADO->FieldByName("FRST_REGR_NMBR")->AsString;         //VARCHAR2(20)	Y			최초 등록자 번호
                pObj->FRST_RGST_DT        = pADO->FieldByName("FRST_RGST_DT")->AsString;           //VARCHAR2(14)	Y			최초 등록 일시
                pObj->LAST_CRPR_NMBR      = pADO->FieldByName("LAST_CRPR_NMBR")->AsString;         //VARCHAR2(20)	Y			최종 수정자 번호
                pObj->LAST_CRCT_DT        = pADO->FieldByName("LAST_CRCT_DT")->AsString;           //VARCHAR2(14)	Y			최종 수정 일시
                pObj->DEL_YN              = pADO->FieldByName("DEL_YN")->AsString;                 //CHAR(1)	Y	'N'		삭제 여부

				FLists.Push(pObj->CNCT_INTN_MNGM_NMBR, pObj);

                pObj->Completed = true;
                pObj->MEM_DEL   = "N";
            }
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TItsOrganManager::LoadFromDb", 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("TItsOrganManager::LoadFromDb", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        FLists.UnLock();
    }

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