/**************************************************************************** * @source : * @description : **************************************************************************** * DATE AUTHOR DESCRIPTION * -------------------------------------------------------------------------- * 2011/12/24 정승호 최초작성 * ****************************************************************************/ //--------------------------------------------------------------------------- #include #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 = ""; } //--------------------------------------------------------------------------- /* * 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(); } //---------------------------------------------------------------------------