ITS_OP/SRC/ITS_OPLib/CDS/CDSAviF.cpp

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

#pragma hdrstop

#include "CDSAviF.h"
#include "ITSDbF.h"
#include "ITS_OPLibF.h"

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

#pragma package(smart_init)

TItsAviDtct::TItsAviDtct()
{
    DTCT_NMBR       = "";
    DTCT_NM         = "";
    CTLR_MNGM_NMBR  = "";
    DTCT_TYPE_CD    = "";
    ISTL_LANE       = "";
    USE_YN          = "";
    DEL_YN          = "";

    MAX_TFVL        = 0;
    MIN_TFVL        = 0;
    MAX_OCPY_RATE   = 0;
    MIN_OCPY_RATE   = 0;
    MIN_SPED        = 0;
    MAX_SPED        = 0;

    MEM_DEL         = "";
}
//---------------------------------------------------------------------------
TItsAviDtct::~TItsAviDtct()
{
}
//---------------------------------------------------------------------------

TItsAvi::TItsAvi()
{
	FCompleted = false;
    FEditMode  = DB_INIT;
	FGridIndex = -1;
	MEM_DEL    = "N";
    //Clear();
}
//---------------------------------------------------------------------------
void TItsAvi::Clear()
{
    AVI_CTLR_MNGM_NMBR  = "";
    AVI_ID              = "";
    LINK_ID             = "";
    AVI_LCTN_NM         = "";
    AVI_VALD_YN         = "";
    AVI_CTLR_IP         = "";
    AVI_CTLR_CMNC_PORT  = "";
    AVI_MAIN_CTLR_YN    = "";
    AVI_MNGM_LANE_NUM   = "";
    AVI_CMRA_NUM        = "";
    AVI_DTCT_NUM        = "";
    AVI_DTCT_NM         = "";
    AVI_CLCT_CYCL       = "";
    AVI_LAMP_AUTO_YN    = "";
    AVI_LAMP_ON_HMS     = "";
    AVI_LAMP_OFF_HMS    = "";
    AVI_LAMP_ON_YN      = "";
    X_CRDN              = "";
    Y_CRDN              = "";
    RMRK                = "";
    DEL_YN              = "";
    MEM_DEL             = "";
}
//---------------------------------------------------------------------------
TItsAvi::~TItsAvi()
{
}
//---------------------------------------------------------------------------

TItsAviSect::TItsAviSect()
{
	FCompleted = false;
    FEditMode  = DB_INIT;
	FGridIndex = -1;
	MEM_DEL    = "N";
    //Clear();
}
//---------------------------------------------------------------------------
void TItsAviSect::Clear()
{
    AVI_CTLR_MNGM_NMBR = "";
    ORD             = 0;

    AVI_SECT_NMBR   = "";
    STRT_SPOT_NM    = "";
    END_SPOT_NM     = "";
    AVI_SECT_NM     = "";
    AVI_SECT_DSTC   = "";
    SHRT_PASS_HH    = "";
    LNST_PASS_HH    = "";
    SPOT_NUM        = "";
    STND_DRFT_VAL   = "";
    MIN_SPED        = "";
    MAX_SPED        = "";
    SMTH_FCTR       = "";
    DEL_YN          = "";
    MEM_DEL         = "";
}
//---------------------------------------------------------------------------
TItsAviSect::~TItsAviSect()
{
}
//---------------------------------------------------------------------------

TItsAviLink::TItsAviLink()
{
	FCompleted = false;
    FEditMode  = DB_INIT;
	FGridIndex = -1;
	MEM_DEL    = "N";
    //Clear();
}
//---------------------------------------------------------------------------
void TItsAviLink::Clear()
{
    AVI_CTLR_MNGM_NMBR = "";
    AVI_SECT_NMBR   = "";
    LINK_ID         = "";
    ORD             = 0;
    MEM_DEL         = "";
}
//---------------------------------------------------------------------------
TItsAviLink::~TItsAviLink()
{
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
TItsAviManager *ItsAviManager = NULL;
//---------------------------------------------------------------------------

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

    sQry = "SELECT AVI_CTLR_MNGM_NMBR,   \r\n"
           "       AVI_ID,               \r\n"
           "       LINK_ID,              \r\n"
           "       AVI_LCTN_NM,          \r\n"
           "       AVI_VALD_YN,          \r\n"
           "       AVI_CTLR_IP,          \r\n"
           "       AVI_CTLR_CMNC_PORT,   \r\n"
           "       AVI_MAIN_CTLR_YN,     \r\n"
           "       AVI_MNGM_LANE_NUM,    \r\n"
           "       AVI_CMRA_NUM,         \r\n"
           "       AVI_DTCT_NUM,         \r\n"
           "       AVI_DTCT_NM,          \r\n"
           "       AVI_CLCT_CYCL,        \r\n"
           "       AVI_LAMP_AUTO_YN,     \r\n"
           "       AVI_LAMP_ON_HMS,      \r\n"
           "       AVI_LAMP_OFF_HMS,     \r\n"
           "       AVI_LAMP_ON_YN,       \r\n"
           "       X_CRDN,               \r\n"
           "       Y_CRDN,               \r\n"
           "       RMRK,                 \r\n"
           "       DEL_YN                \r\n"
           "  FROM TB_AVI_CTLR           \r\n";
           //" WHERE DEL_YN = 'N'          \r\n";
           //" ORDER BY AVI_CTLR_MNGM_NMBR \r\n";
    try
    {
        FLists.Lock();
        FLists.RemoveAll();
        FSectLists.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())
            {
				TItsAvi *pObj = new TItsAvi();

                pObj->AVI_CTLR_MNGM_NMBR= pADO->FieldByName("AVI_CTLR_MNGM_NMBR")->AsString;
                pObj->AVI_ID            = pADO->FieldByName("AVI_ID")->AsString;
                pObj->LINK_ID           = pADO->FieldByName("LINK_ID")->AsString;
                pObj->AVI_LCTN_NM       = pADO->FieldByName("AVI_LCTN_NM")->AsString;
                pObj->AVI_VALD_YN       = pADO->FieldByName("AVI_VALD_YN")->AsString;
                pObj->AVI_CTLR_IP       = pADO->FieldByName("AVI_CTLR_IP")->AsString;
                pObj->AVI_CTLR_CMNC_PORT= pADO->FieldByName("AVI_CTLR_CMNC_PORT")->AsString;
                pObj->AVI_MAIN_CTLR_YN  = pADO->FieldByName("AVI_MAIN_CTLR_YN")->AsString;
                pObj->AVI_MNGM_LANE_NUM = pADO->FieldByName("AVI_MNGM_LANE_NUM")->AsString;
                pObj->AVI_CMRA_NUM      = pADO->FieldByName("AVI_CMRA_NUM")->AsString;
                pObj->AVI_DTCT_NUM      = pADO->FieldByName("AVI_DTCT_NUM")->AsString;
                pObj->AVI_DTCT_NM       = pADO->FieldByName("AVI_DTCT_NM")->AsString;
                pObj->AVI_CLCT_CYCL     = pADO->FieldByName("AVI_CLCT_CYCL")->AsString;
                pObj->AVI_LAMP_AUTO_YN  = pADO->FieldByName("AVI_LAMP_AUTO_YN")->AsString;
                pObj->AVI_LAMP_ON_HMS   = pADO->FieldByName("AVI_LAMP_ON_HMS")->AsString;
                pObj->AVI_LAMP_OFF_HMS  = pADO->FieldByName("AVI_LAMP_OFF_HMS")->AsString;
                pObj->AVI_LAMP_ON_YN    = pADO->FieldByName("AVI_LAMP_ON_YN")->AsString;
                pObj->X_CRDN            = pADO->FieldByName("X_CRDN")->AsString;
                pObj->Y_CRDN            = pADO->FieldByName("Y_CRDN")->AsString;
                pObj->RMRK              = pADO->FieldByName("RMRK")->AsString;
                pObj->DEL_YN            = pADO->FieldByName("DEL_YN")->AsString;

				FLists.Push(pObj->AVI_CTLR_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("TItsAviManager::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("TItsAviManager::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;
}
//---------------------------------------------------------------------------

bool TItsAviManager::LoadFromDtctDb(TADOConnection *ADbConn/*=NULL*/)
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT *                 \r\n"
           "  FROM TB_AVI_DTCT_MSTR  \r\n";
           //" WHERE DEL_YN = 'N'      \r\n"
           //" ORDER BY AVI_CTLR_MNGM_NMBR, AVI_DTCT_NMBR      \r\n";
    try
    {
        TItsAvi *pAvi;
        FLists.Lock();
        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 CTLR_MNGM_NMBR = pADO->FieldByName("AVI_CTLR_MNGM_NMBR")->AsString;
                pAvi = FLists.Find(CTLR_MNGM_NMBR);
                if (!pAvi) continue;

				TItsAviDtct *pObj = new TItsAviDtct();

                pObj->CTLR_MNGM_NMBR = CTLR_MNGM_NMBR;
                pObj->DTCT_NMBR      = pADO->FieldByName("AVI_DTCT_NMBR")->AsString;
                pObj->DTCT_NM        = pADO->FieldByName("AVI_DTCT_NM")->AsString;
                pObj->DTCT_TYPE_CD   = pADO->FieldByName("DTCT_TYPE_CD")->AsString;
                pObj->ISTL_LANE      = pADO->FieldByName("ISTL_LANE")->AsString;
                pObj->USE_YN         = pADO->FieldByName("USE_YN")->AsString;
                pObj->DEL_YN         = pADO->FieldByName("DEL_YN")->AsString;

                pObj->MAX_TFVL       = pADO->FieldByName("MAX_TFVL")->AsInteger;
                pObj->MIN_TFVL       = pADO->FieldByName("MIN_TFVL")->AsInteger;
                pObj->MAX_OCPY_RATE  = pADO->FieldByName("MAX_OCPY_RATE")->AsFloat;
                pObj->MIN_OCPY_RATE  = pADO->FieldByName("MIN_OCPY_RATE")->AsFloat;
                pObj->MIN_SPED       = pADO->FieldByName("MIN_SPED")->AsInteger;
                pObj->MAX_SPED       = pADO->FieldByName("MAX_SPED")->AsInteger;

				pAvi->FDtctLists.Push(pObj->DTCT_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("TItsAviManager::LoadFromDtctDb", 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("TItsAviManager::LoadFromDtctDb", 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 TItsAviManager::LoadFromSectDb(TADOConnection *ADbConn/*=NULL*/)
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT A.AVI_CTLR_MNGM_NMBR,             \r\n"
           "       A.AVI_SECT_NMBR,                  \r\n"
           "       A.ORD,                            \r\n"
           "       B.AVI_SECT_NMBR,                  \r\n"
           "       B.STRT_SPOT_NM,                   \r\n"
           "       B.END_SPOT_NM,                    \r\n"
           "       B.AVI_SECT_NM,                    \r\n"
           "       B.AVI_SECT_DSTC,                  \r\n"
           "       B.SHRT_PASS_HH,                   \r\n"
           "       B.LNST_PASS_HH,                   \r\n"
           "       B.SPOT_NUM,                       \r\n"
           "       B.STND_DRFT_VAL,                  \r\n"
           "       B.MIN_SPED,                       \r\n"
           "       B.MAX_SPED,                       \r\n"
           "       B.SMTH_FCTR,                      \r\n"
           "       B.DEL_YN                          \r\n"
           "  FROM TB_AVI_SECT_CNFG A,               \r\n"
           "       TB_AVI_SECT_MSTR B                \r\n"
           " WHERE A.AVI_SECT_NMBR = B.AVI_SECT_NMBR \r\n"
           " ORDER BY A.AVI_CTLR_MNGM_NMBR, A.ORD    \r\n";
    try
    {
        TItsAvi *pAvi;
        FLists.Lock();
        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 AVI_CTLR_MNGM_NMBR = pADO->FieldByName("AVI_CTLR_MNGM_NMBR")->AsString;

				pAvi = FLists.Find(AVI_CTLR_MNGM_NMBR);
				if (!pAvi) continue;

				TItsAviSect *pObj = new TItsAviSect();

                pObj->AVI_CTLR_MNGM_NMBR = AVI_CTLR_MNGM_NMBR;
                pObj->ORD             = pADO->FieldByName("ORD")->AsInteger;

                pObj->AVI_SECT_NMBR   = pADO->FieldByName("AVI_SECT_NMBR")->AsString;
                pObj->STRT_SPOT_NM    = pADO->FieldByName("STRT_SPOT_NM")->AsString;
                pObj->END_SPOT_NM     = pADO->FieldByName("END_SPOT_NM")->AsString;
                pObj->AVI_SECT_NM     = pADO->FieldByName("AVI_SECT_NM")->AsString;
                pObj->AVI_SECT_DSTC   = pADO->FieldByName("AVI_SECT_DSTC")->AsString;
                pObj->SHRT_PASS_HH    = pADO->FieldByName("SHRT_PASS_HH")->AsString;
                pObj->LNST_PASS_HH    = pADO->FieldByName("LNST_PASS_HH")->AsString;
                pObj->SPOT_NUM        = pADO->FieldByName("SPOT_NUM")->AsString;
                pObj->STND_DRFT_VAL   = pADO->FieldByName("STND_DRFT_VAL")->AsString;
                pObj->MIN_SPED        = pADO->FieldByName("MIN_SPED")->AsString;
                pObj->MAX_SPED        = pADO->FieldByName("MAX_SPED")->AsString;
                pObj->SMTH_FCTR       = pADO->FieldByName("SMTH_FCTR")->AsString;
                pObj->DEL_YN          = pADO->FieldByName("DEL_YN")->AsString;

				pAvi->FSubLists.Push(pObj->AVI_SECT_NMBR, pObj);

                pObj->Completed = true;
                pObj->MEM_DEL   = "N";

                TItsAviSect *pTmpObj = FSectLists.Find(pObj->AVI_SECT_NMBR);
                if (!pTmpObj)
                {
                    TItsAviSect *pTmpObj = new TItsAviSect();

                    pTmpObj->AVI_CTLR_MNGM_NMBR = pObj->AVI_CTLR_MNGM_NMBR;
                    pTmpObj->ORD             = pObj->ORD;

                    pTmpObj->AVI_SECT_NMBR   = pObj->AVI_SECT_NMBR;
                    pTmpObj->STRT_SPOT_NM    = pObj->STRT_SPOT_NM;
                    pTmpObj->END_SPOT_NM     = pObj->END_SPOT_NM;
                    pTmpObj->AVI_SECT_NM     = pObj->AVI_SECT_NM;
                    pTmpObj->AVI_SECT_DSTC   = pObj->AVI_SECT_DSTC;
                    pTmpObj->SHRT_PASS_HH    = pObj->SHRT_PASS_HH;
                    pTmpObj->LNST_PASS_HH    = pObj->LNST_PASS_HH;
                    pTmpObj->SPOT_NUM        = pObj->SPOT_NUM;
                    pTmpObj->STND_DRFT_VAL   = pObj->STND_DRFT_VAL;
                    pTmpObj->MIN_SPED        = pObj->MIN_SPED;
                    pTmpObj->MAX_SPED        = pObj->MAX_SPED;
                    pTmpObj->SMTH_FCTR       = pObj->SMTH_FCTR;
                    pTmpObj->DEL_YN          = pObj->DEL_YN;

                    pTmpObj->Completed = true;
                    pTmpObj->MEM_DEL   = "N";

                    FSectLists.Push(pTmpObj->AVI_SECT_NMBR, pTmpObj);
                }

            }
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TItsAviManager::LoadFromSectDb", 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("TItsAviManager::LoadFromSectDb", 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 TItsAviManager::LoadFromSectLinkDb(TADOConnection *ADbConn/*=NULL*/)
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT A.AVI_CTLR_MNGM_NMBR,                           \r\n"
           "       A.AVI_SECT_NMBR,                                \r\n"
           "       B.LINK_ID,                                      \r\n"
           "       B.ORD                                           \r\n"
           "  FROM TB_AVI_SECT_CNFG A,                             \r\n"
           "       TB_AVI_SECT_LINK B                              \r\n"
           " WHERE A.AVI_SECT_NMBR = B.AVI_SECT_NMBR               \r\n"
           " ORDER BY A.AVI_CTLR_MNGM_NMBR, A.AVI_SECT_NMBR, B.ORD \r\n";
    try
    {
        TItsAvi     *pAvi;
        TItsAviSect *pAviSect;
        FLists.Lock();
        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 AVI_CTLR_MNGM_NMBR = pADO->FieldByName("AVI_CTLR_MNGM_NMBR")->AsString;
				pAvi = FLists.Find(AVI_CTLR_MNGM_NMBR);
				if (!pAvi) continue;

                String AVI_SECT_NMBR = pADO->FieldByName("AVI_SECT_NMBR")->AsString;
				pAviSect = pAvi->FSubLists.Find(AVI_SECT_NMBR);
				if (!pAviSect) continue;

				TItsAviLink *pObj = new TItsAviLink();

                pObj->AVI_CTLR_MNGM_NMBR = AVI_CTLR_MNGM_NMBR;
                pObj->AVI_SECT_NMBR      = AVI_SECT_NMBR;
                pObj->LINK_ID            = pADO->FieldByName("LINK_ID")->AsString;
                pObj->ORD                = pADO->FieldByName("ORD")->AsInteger;

				pAviSect->FLinkLists.Push(pObj->ORD, pObj);

                pObj->Completed = true;
                pObj->MEM_DEL   = "N";
            }
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TItsAviManager::LoadFromSectLinkDb", 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("TItsAviManager::LoadFromSectLinkDb", 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 TItsAviManager::GetNextAviId(String &ANewId, TADOConnection *ADbConn/*=NULL*/)
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT TO_NUMBER(CASE WHEN EXISTS (SELECT 1 FROM TB_AVI_CTLR)                          \r\n"
           "                             THEN (SELECT TRIM(MAX(TO_NUMBER(AVI_CTLR_MNGM_NMBR)) + 1) \r\n"
           "                                     FROM TB_AVI_CTLR)                                 \r\n"
           "                             ELSE '1' END) NEWID                                       \r\n"
           " FROM DUAL                                                                             \r\n";

    ANewId = "";
    try
    {
        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();
            ANewId = pADO->FieldByName("NEWID")->AsString;
            return true;
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TItsAviManager::GetNextAviId", 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("TItsAviManager::GetNextAviId", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
    return false;
}
//---------------------------------------------------------------------------

bool TItsAviManager::GetNextAviSectId(String &ANewId, TADOConnection *ADbConn/*=NULL*/)
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT TO_NUMBER(CASE WHEN EXISTS (SELECT 1 FROM TB_AVI_SECT_MSTR)                \r\n"
           "                             THEN (SELECT TRIM(MAX(TO_NUMBER(AVI_SECT_NMBR)) + 1) \r\n"
           "                                     FROM TB_AVI_SECT_MSTR)                       \r\n"
           "                             ELSE '1' END) NEWID                                  \r\n"
           " FROM DUAL                                                                        \r\n";

    ANewId = "";
    try
    {
        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();
            ANewId = pADO->FieldByName("NEWID")->AsString;
            return true;
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TItsAviManager::GetNextAviSectId", 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("TItsAviManager::GetNextAviSectId", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
    return false;
}
//---------------------------------------------------------------------------

bool TItsAviManager::DeleteAvi(TItsAvi *AObj, TADOConnection *ADbConn/*=NULL*/)
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "UPDATE TB_AVI_CTLR   \r\n"
           "   SET DEL_YN = 'Y'  \r\n"
           " WHERE ID = :p01     \r\n";
    try
    {
        FLists.Lock();
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;
			pADO->Parameters->ParamByName("p01")->Value = AObj->AVI_CTLR_MNGM_NMBR;
			pADO->ExecSQL();

        sQry = "DELETE TB_FCLT_INFR      \r\n"
               " WHERE FCLT_ID = :p01    \r\n";
               //"   AND FCLT_TYPE = 'AVI' \r\n";

			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;
			pADO->Parameters->ParamByName("p01")->Value = AObj->AVI_CTLR_MNGM_NMBR;
			pADO->ExecSQL();

            return true;
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TItsAviManager::DeleteAvi", 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("TItsAviManager::DeleteAvi", 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 TItsAviManager::UpdateAvi(TItsAvi *AObj, TADOConnection *ADbConn/*=NULL*/)
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "UPDATE TB_AVI_CTLR                 \r\n"
           "   SET AVI_ID              = :p02, \r\n"
           "       LINK_ID             = :p03, \r\n"
           "       AVI_LCTN_NM         = :p04, \r\n"
           "       AVI_VALD_YN         = :p05, \r\n"
           "       AVI_CTLR_IP         = :p06, \r\n"
           "       AVI_CTLR_CMNC_PORT  = :p07, \r\n"
           "       AVI_MAIN_CTLR_YN    = :p08, \r\n"
           "       AVI_MNGM_LANE_NUM   = :p09, \r\n"
           "       AVI_CMRA_NUM        = :p10, \r\n"
           "       AVI_DTCT_NUM        = :p11, \r\n"
           "       AVI_DTCT_NM         = :p12, \r\n"
           "       AVI_CLCT_CYCL       = :p13, \r\n"
           "       AVI_LAMP_AUTO_YN    = :p14, \r\n"
           "       AVI_LAMP_ON_HMS     = :p15, \r\n"
           "       AVI_LAMP_OFF_HMS    = :p16, \r\n"
           "       AVI_LAMP_ON_YN      = :p17, \r\n"
           "       X_CRDN              = :p18, \r\n"
           "       Y_CRDN              = :p19, \r\n"
           "       RMRK                = :p20, \r\n"
           "       DEL_YN              = :p21  \r\n"
           " WHERE AVI_CTLR_MNGM_NMBR  = :p01  \r\n";
    try
    {
        FLists.Lock();
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;

			pADO->Parameters->ParamByName("p01")->Value = AObj->AVI_CTLR_MNGM_NMBR;
			pADO->Parameters->ParamByName("p02")->Value = AObj->AVI_ID;
			pADO->Parameters->ParamByName("p03")->Value = AObj->LINK_ID;
			pADO->Parameters->ParamByName("p04")->Value = AObj->AVI_LCTN_NM;
			pADO->Parameters->ParamByName("p05")->Value = AObj->AVI_VALD_YN;
			pADO->Parameters->ParamByName("p06")->Value = AObj->AVI_CTLR_IP;
			pADO->Parameters->ParamByName("p07")->Value = AObj->AVI_CTLR_CMNC_PORT;
			pADO->Parameters->ParamByName("p08")->Value = AObj->AVI_MAIN_CTLR_YN;
			pADO->Parameters->ParamByName("p09")->Value = AObj->AVI_MNGM_LANE_NUM;
			pADO->Parameters->ParamByName("p10")->Value = AObj->AVI_CMRA_NUM;
			pADO->Parameters->ParamByName("p11")->Value = AObj->AVI_DTCT_NUM;
			pADO->Parameters->ParamByName("p12")->Value = AObj->AVI_DTCT_NM;
			pADO->Parameters->ParamByName("p13")->Value = AObj->AVI_CLCT_CYCL;
			pADO->Parameters->ParamByName("p14")->Value = AObj->AVI_LAMP_AUTO_YN;
			pADO->Parameters->ParamByName("p15")->Value = AObj->AVI_LAMP_ON_HMS;
			pADO->Parameters->ParamByName("p16")->Value = AObj->AVI_LAMP_OFF_HMS;
			pADO->Parameters->ParamByName("p17")->Value = AObj->AVI_LAMP_ON_YN;
			pADO->Parameters->ParamByName("p18")->Value = AObj->X_CRDN;
			pADO->Parameters->ParamByName("p19")->Value = AObj->Y_CRDN;
			pADO->Parameters->ParamByName("p20")->Value = AObj->RMRK;
			pADO->Parameters->ParamByName("p21")->Value = AObj->DEL_YN;

			pADO->ExecSQL();

        sQry = "UPDATE TB_FCLT_INFR       \r\n"
               "   SET FCLT_LCTN  = :p02  \r\n"
               " WHERE FCLT_ID    = :p01  \r\n";
               //"   AND FCLT_TYPE = 'AVI' \r\n";

			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;
			pADO->Parameters->ParamByName("p01")->Value = AObj->AVI_CTLR_MNGM_NMBR;
			pADO->Parameters->ParamByName("p02")->Value = AObj->AVI_LCTN_NM;
			pADO->ExecSQL();

            return true;
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TItsAviManager::UpdateAvi", 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("TItsAviManager::UpdateAvi", 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 TItsAviManager::InsertAvi(TItsAvi *AObj, TADOConnection *ADbConn/*=NULL*/)
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "INSERT INTO TB_AVI_CTLR(AVI_CTLR_MNGM_NMBR, AVI_ID, LINK_ID, AVI_LCTN_NM, AVI_VALD_YN, AVI_CTLR_IP,  \r\n"
           "                        AVI_CTLR_CMNC_PORT, AVI_MAIN_CTLR_YN, AVI_MNGM_LANE_NUM, AVI_CMRA_NUM,       \r\n"
           "                        AVI_DTCT_NUM, AVI_DTCT_NM, AVI_CLCT_CYCL, AVI_LAMP_AUTO_YN, AVI_LAMP_ON_HMS, \r\n"
           "                        AVI_LAMP_OFF_HMS, AVI_LAMP_ON_YN, X_CRDN, Y_CRDN, RMRK, DEL_YN )             \r\n"
           "                 VALUES(:p01,         :p02,   :p03,         :p04,        :p05,     :p06,             \r\n"
           "                        :p07,         :p08,   :p09,         :p10,                                    \r\n"
           "                        :p11,         :p12,   :p13,         :p14,        :p15,                       \r\n"
           "                        :p16,         :p17,   :p18,         :p19,        :p20,     :p21 )            \r\n";
    try
    {
        FLists.Lock();
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;

			pADO->Parameters->ParamByName("p01")->Value = AObj->AVI_CTLR_MNGM_NMBR;
			pADO->Parameters->ParamByName("p01")->Value = AObj->AVI_CTLR_MNGM_NMBR;
			pADO->Parameters->ParamByName("p02")->Value = AObj->AVI_ID;
			pADO->Parameters->ParamByName("p03")->Value = AObj->LINK_ID;
			pADO->Parameters->ParamByName("p04")->Value = AObj->AVI_LCTN_NM;
			pADO->Parameters->ParamByName("p05")->Value = AObj->AVI_VALD_YN;
			pADO->Parameters->ParamByName("p06")->Value = AObj->AVI_CTLR_IP;
			pADO->Parameters->ParamByName("p07")->Value = AObj->AVI_CTLR_CMNC_PORT;
			pADO->Parameters->ParamByName("p08")->Value = AObj->AVI_MAIN_CTLR_YN;
			pADO->Parameters->ParamByName("p09")->Value = AObj->AVI_MNGM_LANE_NUM;
			pADO->Parameters->ParamByName("p10")->Value = AObj->AVI_CMRA_NUM;
			pADO->Parameters->ParamByName("p11")->Value = AObj->AVI_DTCT_NUM;
			pADO->Parameters->ParamByName("p12")->Value = AObj->AVI_DTCT_NM;
			pADO->Parameters->ParamByName("p13")->Value = AObj->AVI_CLCT_CYCL;
			pADO->Parameters->ParamByName("p14")->Value = AObj->AVI_LAMP_AUTO_YN;
			pADO->Parameters->ParamByName("p15")->Value = AObj->AVI_LAMP_ON_HMS;
			pADO->Parameters->ParamByName("p16")->Value = AObj->AVI_LAMP_OFF_HMS;
			pADO->Parameters->ParamByName("p17")->Value = AObj->AVI_LAMP_ON_YN;
			pADO->Parameters->ParamByName("p18")->Value = AObj->X_CRDN;
			pADO->Parameters->ParamByName("p19")->Value = AObj->Y_CRDN;
			pADO->Parameters->ParamByName("p20")->Value = AObj->RMRK;
			pADO->Parameters->ParamByName("p21")->Value = AObj->DEL_YN;
			pADO->ExecSQL();

        sQry = "INSERT INTO TB_FCLT_INFR(FCLT_ID, FCLT_TYPE, FCLT_LCTN, RSCE_YN, DEL_YN, USE_YEAR, AMT) \r\n"
               "                  VALUES(:p01,    'AVI',     :p03,      'N',     'N',    '0',      '0') \r\n";

			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;
			pADO->Parameters->ParamByName("p01")->Value = AObj->AVI_CTLR_MNGM_NMBR;
			pADO->Parameters->ParamByName("p03")->Value = AObj->AVI_LCTN_NM;
			pADO->ExecSQL();

            return true;
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TItsAviManager::InsertAvi", 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("TItsAviManager::InsertAvi", 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 TItsAviManager::DeleteAviSectSubTable(TItsAviSect *AObj, TADOConnection *ADbConn/*=NULL*/)
{
    String sQry;
    TADOQuery *pADO = NULL;

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

        sQry = "DELETE TB_AVI_SECT_LINK     \r\n"
               " WHERE AVI_SECT_NMBR = :p01 \r\n";

			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;
			pADO->Parameters->ParamByName("p01")->Value = AObj->AVI_SECT_NMBR;
			pADO->ExecSQL();
            return true;
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TItsAviManager::DeleteAviSectSubTable", 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("TItsAviManager::DeleteAviSectSubTable", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }

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


bool TItsAviManager::DeleteAviSect(TItsAviSect *AObj, TADOConnection *ADbConn/*=NULL*/)
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "UPDATE TB_AVI_SECT_MSTR      \r\n"
           "   SET DEL_YN = 'Y'          \r\n"
           " WHERE AVI_SECT_NMBR = :p01  \r\n";
    try
    {
        DeleteAviSectSubTable(AObj, ADbConn);
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();
			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;
			pADO->Parameters->ParamByName("p01")->Value = AObj->AVI_SECT_NMBR;
			pADO->ExecSQL();


        sQry = "DELETE TB_AVI_SECT_CNFG          \r\n"
               " WHERE AVI_SECT_NMBR = :p01      \r\n"
               "   AND AVI_CTLR_MNGM_NMBR = :p02 \r\n";

			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;
			pADO->Parameters->ParamByName("p01")->Value = AObj->AVI_SECT_NMBR;
			pADO->Parameters->ParamByName("p02")->Value = AObj->AVI_CTLR_MNGM_NMBR;
			pADO->ExecSQL();

            return true;
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TItsAviManager::DeleteAviSect", 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("TItsAviManager::DeleteAviSect", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }

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

bool TItsAviManager::SaveAviSect(TItsAviSect *AObj, TADOConnection *ADbConn/*=NULL*/)
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "MERGE INTO TB_AVI_SECT_MSTR L                            \r\n"
           "USING (SELECT :p01 AS AVI_SECT_NMBR,                     \r\n"
           "              :p02 AS STRT_SPOT_NM,                      \r\n"
           "              :p03 AS END_SPOT_NM,                       \r\n"
           "              :p04 AS AVI_SECT_NM,                       \r\n"
           "              :p05 AS AVI_SECT_DSTC,                     \r\n"
           "              :p06 AS SHRT_PASS_HH,                      \r\n"
           "              :p07 AS LNST_PASS_HH,                      \r\n"
           "              :p08 AS SPOT_NUM,                          \r\n"
           "              :p09 AS STND_DRFT_VAL,                     \r\n"
           "              :p10 AS MIN_SPED,                          \r\n"
           "              :p11 AS MAX_SPED,                          \r\n"
           "              :p12 AS SMTH_FCTR,                         \r\n"
           "              :p13 AS DEL_YN                             \r\n"
           "         FROM DUAL) M                                    \r\n"
           "   ON (L.AVI_SECT_NMBR = M.AVI_SECT_NMBR)                \r\n"
           "WHEN MATCHED THEN                                        \r\n"
           "UPDATE SET STRT_SPOT_NM  = M.STRT_SPOT_NM,               \r\n"
           "           END_SPOT_NM   = M.END_SPOT_NM,                \r\n"
           "           AVI_SECT_NM   = M.AVI_SECT_NM,                \r\n"
           "           AVI_SECT_DSTC = M.AVI_SECT_DSTC,              \r\n"
           "           SHRT_PASS_HH  = M.SHRT_PASS_HH,               \r\n"
           "           LNST_PASS_HH  = M.LNST_PASS_HH,               \r\n"
           "           SPOT_NUM      = M.SPOT_NUM,                   \r\n"
           "           STND_DRFT_VAL = M.STND_DRFT_VAL,              \r\n"
           "           MIN_SPED      = M.MIN_SPED,                   \r\n"
           "           MAX_SPED      = M.MAX_SPED,                   \r\n"
           "           SMTH_FCTR     = M.SMTH_FCTR,                  \r\n"
           "           DEL_YN        = M.DEL_YN                      \r\n"
           "WHEN NOT MATCHED THEN                                    \r\n"
           "INSERT (AVI_SECT_NMBR, STRT_SPOT_NM, END_SPOT_NM,        \r\n"
           "        AVI_SECT_NM, AVI_SECT_DSTC, SHRT_PASS_HH,        \r\n"
           "        LNST_PASS_HH, SPOT_NUM, STND_DRFT_VAL,           \r\n"
           "        MIN_SPED, MAX_SPED, SMTH_FCTR, DEL_YN)           \r\n"
           "VALUES (M.AVI_SECT_NMBR, M.STRT_SPOT_NM, M.END_SPOT_NM,  \r\n"
           "        M.AVI_SECT_NM, M.AVI_SECT_DSTC, M.SHRT_PASS_HH,  \r\n"
           "        M.LNST_PASS_HH, M.SPOT_NUM, M.STND_DRFT_VAL,     \r\n"
           "        M.MIN_SPED, M.MAX_SPED, M.SMTH_FCTR, M.DEL_YN)   \r\n";

    try
    {
        //관련정보를 모두 삭제
        DeleteAviSectSubTable(AObj, ADbConn);
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = (NULL != ADbConn) ? ADbConn : ITSDb_GetConnection();

			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;
			pADO->Parameters->ParamByName("p01")->Value = AObj->AVI_SECT_NMBR;
			pADO->Parameters->ParamByName("p02")->Value = AObj->STRT_SPOT_NM;
			pADO->Parameters->ParamByName("p03")->Value = AObj->END_SPOT_NM;
			pADO->Parameters->ParamByName("p04")->Value = AObj->AVI_SECT_NM;
			pADO->Parameters->ParamByName("p05")->Value = AObj->AVI_SECT_DSTC;
			pADO->Parameters->ParamByName("p06")->Value = AObj->SHRT_PASS_HH;
			pADO->Parameters->ParamByName("p07")->Value = AObj->LNST_PASS_HH;
			pADO->Parameters->ParamByName("p08")->Value = AObj->SPOT_NUM;
			pADO->Parameters->ParamByName("p09")->Value = AObj->STND_DRFT_VAL;
			pADO->Parameters->ParamByName("p10")->Value = AObj->MIN_SPED;
			pADO->Parameters->ParamByName("p11")->Value = AObj->MAX_SPED;
			pADO->Parameters->ParamByName("p12")->Value = AObj->SMTH_FCTR;
			pADO->Parameters->ParamByName("p13")->Value = AObj->DEL_YN;
			pADO->ExecSQL();

    sQry = "MERGE INTO TB_AVI_SECT_CNFG L                         \r\n"
           "USING (SELECT :p01 AS AVI_CTLR_MNGM_NMBR,             \r\n"
           "              :p02 AS AVI_SECT_NMBR,                  \r\n"
           "              :p03 AS ORD                             \r\n"
           "         FROM DUAL) M                                 \r\n"
           "   ON (L.AVI_CTLR_MNGM_NMBR = M.AVI_CTLR_MNGM_NMBR    \r\n"
           "       AND L.AVI_SECT_NMBR = M.AVI_SECT_NMBR)         \r\n"
           "WHEN MATCHED THEN                                     \r\n"
           "UPDATE SET ORD  = M.ORD                               \r\n"
           "WHEN NOT MATCHED THEN                                 \r\n"
           "INSERT (  AVI_CTLR_MNGM_NMBR,   AVI_SECT_NMBR,   ORD) \r\n"
           "VALUES (M.AVI_CTLR_MNGM_NMBR, M.AVI_SECT_NMBR, M.ORD) \r\n";

			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;
			pADO->Parameters->ParamByName("p01")->Value = AObj->AVI_CTLR_MNGM_NMBR;
			pADO->Parameters->ParamByName("p02")->Value = AObj->AVI_SECT_NMBR;
			pADO->Parameters->ParamByName("p03")->Value = AObj->ORD;
			pADO->ExecSQL();

    //링크구성정보 입력
    sQry = "INSERT INTO TB_AVI_SECT_LINK (AVI_SECT_NMBR, LINK_ID, ORD) \r\n"
           "                      VALUES (:p01, :p02, :p03           ) \r\n";

			pADO->SQL->Clear();
			pADO->SQL->Text = sQry;
            FOR_STL(TItsAviLink *, pObj, AObj->FLinkLists)
            {
                pADO->Parameters->ParamByName("p01")->Value = AObj->AVI_SECT_NMBR;
                pADO->Parameters->ParamByName("p02")->Value = pObj->LINK_ID;
                pADO->Parameters->ParamByName("p03")->Value = pObj->ORD;
                pADO->ExecSQL();
            }
            return true;
        }
        catch(EDatabaseError &E)
        {
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG("TItsAviManager::SaveAviSect", 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("TItsAviManager::SaveAviSect", String(exception.ClassName()), exception.Message, sQry);
            throw Exception(String(exception.ClassName()) + exception.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }

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