VmsCommServer/SRC/FRM/FrmVmsInfoF.cpp

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

#include <vcl.h>
#pragma hdrstop

#include "FrmVmsInfoF.h"
#include "FrmVmsLogF.h"
#include "FrmMainF.h"
#include "AppGlobalF.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmVmsInfo *FrmVmsInfo = NULL;


String VmsModuleType(TVmsCtlr *AObj)
{
    if (AObj->VmsType == "VUTN") return "문자식";
    return "도형식";
}
//---------------------------------------------------------------------------

String VmsOperMode(TVmsCtlr *AObj)
{
    if (AObj->OPER_MODE == "A") return "자동";
    return "고정";
}
//---------------------------------------------------------------------------

String VmsComm(TVmsCtlr *AObj)
{
    if (AObj->Client.Comm == state_open) return "정상";
    return "장애";
}
//---------------------------------------------------------------------------

String VmsModuleState(TVmsCtlr *AObj)
{
    if (AObj->Client.Comm != state_open) return "-";
    if (AObj->RSTATE.ModuleState == vms_normal) return "정상";
    return "장애";
}
//---------------------------------------------------------------------------

String VmsModulePower(TVmsCtlr *AObj)
{
    if (AObj->Client.Comm != state_open) return "-";
    if (AObj->RSTATE.ModulePowerStatus == vms_on) return "켜짐";
    return "꺼짐";
}
//---------------------------------------------------------------------------

String VmsModuleLuminance(TVmsCtlr *AObj)
{
    if (AObj->Client.Comm != state_open) return "-";
    int nLuminance = AObj->RSTATE.LuminanceStatus;
    return String(nLuminance);
}
//---------------------------------------------------------------------------

String VmsModuleDoor(TVmsCtlr *AObj)
{
    if (AObj->Client.Comm != state_open) return "-";
    if (AObj->RSTATE.DoorStatus == vms_open) return "열림";
    return "닫힘";
}
//---------------------------------------------------------------------------


String VmsModuleFan(TVmsCtlr *AObj)
{
    if (AObj->Client.Comm != state_open) return "-";
    if (AObj->RSTATE.FanStatus == vms_on) return "동작";
    return "정지";
}
//---------------------------------------------------------------------------


String VmsModuleHeater(TVmsCtlr *AObj)
{
    if (AObj->Client.Comm != state_open) return "-";
    if (AObj->RSTATE.HeaterStatus == vms_on) return "가동";
    return "중지";
}
//---------------------------------------------------------------------------


String VmsModuleTemp(TVmsCtlr *AObj)
{
    if (AObj->Client.Comm != state_open) return "-";
    int nTemp = AObj->RSTATE.BodyTemp;
    return String(nTemp);//+"℃";
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
__fastcall TFrmVmsInfo::TFrmVmsInfo(TComponent* Owner)
    : TForm(Owner)
{
	lvVmsInfo->Clear();
    lvVmsInfo->ViewStyle = vsReport;
    FViewMode = 0;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::UpdateVmsList()
{
    int          nRowIdx = 0;
	TListItem   *NewItem;
	lvVmsInfo->Items->BeginUpdate();
	lvVmsInfo->Clear();

    VmsIterator it;
    for(it=VmsManager->FLists.FMapObject.begin(); it != VmsManager->FLists.FMapObject.end(); ++it)
    {
        TVmsCtlr *pObj = (TVmsCtlr*)it->second;

        NewItem = lvVmsInfo->Items->Add();
        NewItem->Caption = pObj->VmsId;//String(ii+1);
        NewItem->ImageIndex = 0;
        NewItem->SubItems->Add(pObj->VmsNo);
        NewItem->SubItems->Add(pObj->VmsId);
        NewItem->SubItems->Add(pObj->Name);
        NewItem->SubItems->Add(pObj->IpAddress);
        NewItem->SubItems->Add("-");    //통신
        NewItem->SubItems->Add("-");    //모듈
        NewItem->SubItems->Add("-");    //전원
        NewItem->SubItems->Add("-");    //휘도

        NewItem->SubItems->Add("-");    //도어
        NewItem->SubItems->Add("-");    //팬
        NewItem->SubItems->Add("-");    //히터
        NewItem->SubItems->Add("-");    //온도
        NewItem->SubItems->Add("-");    //Connect
        NewItem->SubItems->Add("-");    //Disconnect
        NewItem->Data = (void*)pObj;
    }

	lvVmsInfo->Items->EndUpdate();

    VmsManager->Total  = VmsManager->Count;
    VmsManager->Error  = VmsManager->Count;
    VmsManager->Normal = 0;
    VmsManager->Module = 0;

    plTot->Caption = String(VmsManager->Count);
    plErr->Caption = String(VmsManager->Count);
    plNor->Caption = "0";
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::UpdateServerState(int AIdx)
{
    try
    {
        int ii, nCnt;
        int nErrCnt = 0;
        TListItem *NewItem;
        nCnt = lvVmsInfo->Items->Count;
        for(ii = 0; ii < nCnt; ii++)
        {
            NewItem = lvVmsInfo->Items->Item[ii];
            TVmsCtlr *pObj = (TVmsCtlr*)NewItem->Data;
            if (pObj)
            {
                if (pObj->Server.Status == process_run)
                    NewItem->ImageIndex = 1;
                else
                {
                    NewItem->ImageIndex = 0;
                    nErrCnt++;
                }
            }
            NewItem->SubItems->Strings[12] = pObj->ConnectTm;       //Connect
            NewItem->SubItems->Strings[13] = pObj->DisconnectTm;    //Disconnect
        }

        VmsManager->Error  = nErrCnt;
        VmsManager->Normal = nCnt-nErrCnt;
        plTot->Caption = String(nCnt);
        plErr->Caption = String(nErrCnt);
        plNor->Caption = String(nCnt-nErrCnt);
    }
    catch(Exception &e)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::UpdateClientState(int AIdx)
{
    try
    {
        int ii, nCnt;
        TListItem *NewItem;
        nCnt = lvVmsInfo->Items->Count;
        for(ii = 0; ii < nCnt; ii++)
        {
            NewItem = lvVmsInfo->Items->Item[ii];
            TVmsCtlr *pObj = (TVmsCtlr*)NewItem->Data;
            if (pObj)
            {
                if (pObj->Client.Status == process_run)
                {
                    if (pObj->Client.Comm == state_open)
                        NewItem->SubItems->Strings[4] = "정상";
                    else
                        NewItem->SubItems->Strings[4] = "-";
                }
                else
                {
                    NewItem->SubItems->Strings[4] = "오류";
                }
                NewItem->SubItems->Strings[ 5] = VmsModuleState(pObj);      //모듈
                NewItem->SubItems->Strings[ 6] = VmsModulePower(pObj);      //전원
                NewItem->SubItems->Strings[ 7] = VmsModuleLuminance(pObj);  //휘도

                NewItem->SubItems->Strings[ 8] = VmsModuleDoor(pObj);       //도어
                NewItem->SubItems->Strings[ 9] = VmsModuleFan(pObj);        //팬
                NewItem->SubItems->Strings[10] = VmsModuleHeater(pObj);     //히터
                NewItem->SubItems->Strings[11] = VmsModuleTemp(pObj);       //온도
            }
        }
    }
    catch(Exception &e)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::Image3DblClick(TObject *Sender)
{
    FViewMode++;
    lvVmsInfo->IconOptions->Arrangement = TIconArrangement::iaTop;
    switch(FViewMode)
    {
    case 1: lvVmsInfo->ViewStyle = vsIcon;
            break;
    case 2: lvVmsInfo->ViewStyle = vsList;
            break;
    case 3: lvVmsInfo->ViewStyle = vsReport;
            break;
    case 4: lvVmsInfo->IconOptions->Arrangement = TIconArrangement::iaLeft;
            lvVmsInfo->ViewStyle = vsSmallIcon;
            break;
    case 5: lvVmsInfo->ViewStyle = vsReport;
            FViewMode = 0;
            break;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsInfo::lvVmsInfoDblClick(TObject *Sender)
{
    int nIdx = lvVmsInfo->Selected->Index;

    TListItem *NewItem = lvVmsInfo->Items->Item[nIdx];
    TVmsCtlr *pObj = (TVmsCtlr*)NewItem->Data;
    if (!pObj) return;

    if (!FrmVmsLog->Showing)
    {
        FrmVmsLog->Top = FrmMain->Top;
        //FrmVmsLog->Left= FrmMain->Left+FrmMain->Width;
        FrmVmsLog->Show();
    }
    FrmVmsLog->DisplayVmsLog((int)pObj);
}
//---------------------------------------------------------------------------