VMSCommServer/SRC/VMSCommLib/CDS/CDSColorF.cpp

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

#pragma hdrstop

#include "CDSColorF.h"
#include "VMSCommLibF.h"

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

#pragma package(smart_init)

//---------------------------------------------------------------------------
TCDSColor::TCDSColor()
{
    Init();
}
//---------------------------------------------------------------------------

TCDSColor::~TCDSColor()
{
}
//---------------------------------------------------------------------------
void TCDSColor::Init()
{
    PRCN_DT      = "";
    CMTR_GRAD_CD = "0";
    SPED         = 0;
    TRVL_HH      = 0;
}
//---------------------------------------------------------------------------


//---------------------------------------------------------------------------
TCDSColorManager *CDSColorManager = NULL;
//---------------------------------------------------------------------------

TCDSColorManager::TCDSColorManager()
{
}
//---------------------------------------------------------------------------
TCDSColorManager::~TCDSColorManager()
{
    FLists.RemoveAll();
}
//---------------------------------------------------------------------------
int TCDSColorManager::LoadColorInfo(TADOConnection *ADbConn)
{
    String     sQry;
    TADOQuery *pADO = NULL;
    int        nSelCnt = 0;

    DDBSTART;

#if 0
    sQry = "SELECT A.VMS_CTLR_NMBR, B.VMS_IFSC_ID,    \r\n"
           "       B.DSPL_PRRT, C.AXIS_YN             \r\n"
           "  FROM TB_VMS_CTLR      A,                \r\n"
           "       TB_VMS_RLTN_IFSC B,                \r\n"
           "       TB_VMS_IFSC      C                 \r\n"
           " WHERE A.VMS_CTLR_NMBR = B.VMS_CTLR_NMBR  \r\n"
           "   AND B.VMS_IFSC_ID   = C.VMS_IFSC_ID    \r\n"
           "   AND C.USE_YN = 'Y'                     \r\n"
           "   AND A.DEL_YN = 'N'                     \r\n"
           " ORDER BY A.VMS_CTLR_NMBR, B.DSPL_PRRT    \r\n";

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

			SQLText(pADO, sQry, true);

			SQLOpen(pADO);
            for( ; !pADO->Eof; pADO->Next())
            {
                AnsiString VMS_CTLR_NMBR = pADO->FieldByName("VMS_CTLR_NMBR")->AsString.Trim();

				TVmsCtlr *pObj = VmsManager->FLists.Find(VMS_CTLR_NMBR);
                if (!pObj) continue;

                TVmsIfsc *pIfsc = new TVmsIfsc();
                pIfsc->VMS_IFSC_ID = pADO->FieldByName("VMS_IFSC_ID")->AsString;
                pIfsc->DSPL_PRRT   = pADO->FieldByName("DSPL_PRRT")->AsInteger;

                pObj->FIfscLists.Push(pIfsc->DSPL_PRRT, pIfsc);
                nSelCnt++;
            }
        }
        catch(EDatabaseError &E)
        {
            DBERROR(String(E.ClassName()), E.Message, sQry);
            return -1;
        }
        catch(Exception &e)
        {
            DBERROR(String(e.ClassName()), e.Message, sQry);
            return -1;
        }
    }
    __finally
    {
        SQLFree(pADO);
    }
#endif

    IDBSTOP(nSelCnt);
    return nSelCnt;
}
//---------------------------------------------------------------------------