ITS_OP/VMS0100M/VMS04002F.cpp

/****************************************************************************
 * @source      : 
 * @description : 
 ****************************************************************************
 * DATE         AUTHOR    DESCRIPTION
 * --------------------------------------------------------------------------
 * 2011/12/24   정승호    최초작성
 *
 ****************************************************************************/
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "VMS04002F.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxClasses"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxGroupBox"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxStyles"
#pragma link "cxTextEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma resource "*.dfm"
//TVMS04002 *VMS04002;
//---------------------------------------------------------------------------
__fastcall TVMS04002::TVMS04002(TComponent* Owner)
    : TPlugInForm(Owner)
{
    //종료 메시지를 메인윈도우로 전송하지 않는다.
    SendCloseMsg = false;

    m_sImageKind = "0";
    m_bSelected  = false;
    m_sImageId   = "0";           
    m_sImageName = "None";
    m_sImageDesc = "Desc";
    m_sVmsId     = "0";
    m_nImageSize = 0;

    ImgPreView->Picture->Bitmap->FreeImage();
    ImgPreView->Picture->Bitmap = NULL;
}
//---------------------------------------------------------------------------

/*
 * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다..
 * Form과 DataModule class를 delete시킨다.
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TVMS04002::CommClose()
{
    try
    {
        TvList->BeginUpdate();
        ADO->Close();
        TvList->EndUpdate();
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

/*
 * 화면 FormDestroy시 호출되는 Method
 * Form의 자원이 해제 되기 이전에 반드시 이 Method가 호출된다.
 * 그러므로 최종적으로 자원을 해제 하고자 한다면 이곳에서 처리하는게 확실함.
 *  parameter
 *      Sender : Event를 보낸 객체
 *  return
 *      None
 */
void __fastcall TVMS04002::FormDestroy(TObject *Sender)
{
    TPlugInForm::FormDestroy(Sender);    
}
//---------------------------------------------------------------------------

/*
 * Form이 메모리에서 생성될때 호출되는 생성자 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04002::FormCreate(TObject *Sender)
{
    //
}
//---------------------------------------------------------------------------

/*
 * Form을 보여줄때 호출되는 event 메서드이다.
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04002::FormShow(TObject *Sender)
{
    Refresh();
    FormInit();
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

/*
 * form 초기화
 *
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TVMS04002::FormInit()
{
    if (m_sImageKind == "0") ColVmsId->Visible = false;
    else                     ColVmsId->Visible = true;
    
	TvList->DataController->DataSource = DS;
    ADO->Connection = ITSDb_GetConnection();

    TvList->OptionsView->NoDataToDisplayInfoText = "<VMS 이미지 정보가 없습니다>";
}
//---------------------------------------------------------------------------

/*
 * Form을 Hide때 호출되는 event 메서드이다.
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04002::FormHide(TObject *Sender)
{
    //  
}
//---------------------------------------------------------------------------
/*
 * Form이 화면에 활성화 될때 호출되는 event 메서드이다.
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04002::FormActivate(TObject *Sender)
{
    // 
}
//---------------------------------------------------------------------------

/*
 * Form이 화면에서 비활성화 될때 호출되는 event 메서드이다.
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04002::FormDeactivate(TObject *Sender)
{
    // 
}
//---------------------------------------------------------------------------

/*
 * Form의 Skin 초기화 작업을 수행한다.
 *  arguments
 *      void
 *  return
 *      void
 */
void __fastcall TVMS04002::LoadLocalSkin()
{
    //
}
//---------------------------------------------------------------------------

/*
 * Form의 초기화 작업을 수행한다.
 *  arguments
 *      void
 *  return
 *      void
 */
bool __fastcall TVMS04002::Initialize()
{
    return true;
}
//---------------------------------------------------------------------------

/*
 * Form이 Show되고 난 후 최초 1회 수행되는 타이머 이벤트
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04002::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;
    BtnSearchClick((TObject*)BtnSearch);   
}
//---------------------------------------------------------------------------

/*
 * Refresh Data Event Function
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TVMS04002::RefreshData()
{
    // 검색조건에 의한 링크 데이터 조회
    try
    {
        TvList->BeginUpdate();
        SelListData();
	}
	__finally
	{
        TvList->EndUpdate();
	}
}
//---------------------------------------------------------------------------

void __fastcall TVMS04002::SelListData()
{
    String sQry;

    sQry = "SELECT DECODE(A.IMAGEKIND, '0', '일반이미지', '도형식 배경이미지') IMAGEKINDNM,"
           "       A.IMAGEKIND, A.IMAGETYPE, A.IMAGEID, A.IMAGENAME, A.IMAGEDESC,          "
           "       A.IMAGESIZE, A.IMAGEWIDTH, A.IMAGEHEIGHT, A.VMSID                       "
           "  FROM TB_MS_VMS_IMAGE A                                                       "
           " WHERE A.USEYN = 'Y'                                                           "
           "   AND A.IMAGEKIND = :p01                                                      "
           " ORDER BY A.IMAGEKIND, A.IMAGEID                                               ";

    try
    {
        ADO->Connection = ITSDb_GetConnection();
        ClearQry(ADO);
        SetQry(ADO, sQry);
        ParamBind(ADO, "p01", m_sImageKind);
        OpenQry(ADO);
    }
    catch(EDatabaseError &E)
    {
        throw Exception(String(E.ClassName()) + E.Message);
    }
    catch (Exception &exception)
    {
        throw Exception(String(exception.ClassName()) + exception.Message);
    }
    catch(...)
    {
        throw Exception("알수없는 오류가 발생하였습니다.");
    }
}
//---------------------------------------------------------------------------

/*
 * 그리드에서 선택된 CTV 데이터 조회
 *  arguments
 *      
 *  return
 *      void
 */
void __fastcall TVMS04002::DisplayListData()
{
    if (TvList->ViewData->RecordCount <= 0) return;
    if (TvList->DataController->FocusedRowIndex < 0) return;
    
    TQryCursor tt;
    
    try
    {
        m_sImageId = ADO->FieldByName("IMAGEID")->AsString;               
        m_sImageName = ADO->FieldByName("IMAGENAME")->AsString;
        m_sImageDesc = ADO->FieldByName("IMAGEDESC")->AsString;
        m_nImageSize = ADO->FieldByName("IMAGESIZE")->AsInteger;
        m_sVmsId = ADO->FieldByName("VMSID")->AsString;
        LoadVmsImage(m_sImageId);
    }
    catch(Exception &e)
    {
        Application->MessageBox((e.Message + " - " +__FILE__+ " - " +__LINE__).c_str(), Caption.c_str(), MB_OK);
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMS04002::LoadVmsImage(String sID)
{
	String sQry;
	bool bResult = false;

    sQry = "SELECT IMAGE FROM TB_MS_VMS_IMAGE"
           " WHERE IMAGEID = :pID            ";

    ClearQry();
    SetQry(sQry);
    ParamBind("pID",  sID);
    SelectQry();

    try
    {
        ADOQry->First();
        if (!ADOQry->IsEmpty() || !ADOQry->Eof)
        {
            TStream *pStream = NULL;
            pStream = ADOQry->CreateBlobStream(ADOQry->FieldByName("IMAGE"), bmRead);
            try
            {
                ImgPreView->Canvas->Lock();
                pStream->Position = 0;
                ImgPreView->Picture->Bitmap->LoadFromStream(pStream);
            }__finally{
                ImgPreView->Canvas->Unlock();
                if (pStream)
                    delete pStream;
            }
        }
        ADOQry->Close();
        BtnSelImage->Visible = true;
    }
    catch(...)
    {
        BtnSelImage->Visible = false;
    }
}
//---------------------------------------------------------------------------

/*
 * 리스트에서 목록을 선택한 경우
 *  arguments
 *       
 *  return
 *      void
 */
void __fastcall TVMS04002::TvListFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord,
          TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged)
{
    DisplayListData();    
}
//---------------------------------------------------------------------------

/*
 * Search 버튼 클릭 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04002::BtnSearchClick(TObject *Sender)
{
    RefreshData();    
    EdFocus->SetFocus();
}
//---------------------------------------------------------------------------

/*
 * Close 버튼 클릭 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04002::BtnCloseClick(TObject *Sender)
{
    Close();    
}
//---------------------------------------------------------------------------

/*
 * 저장 버튼 클릭 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04002::BtnSelImageClick(TObject *Sender)
{
    m_bSelected = true;
    Close();
}
//---------------------------------------------------------------------------