//--------------------------------------------------------------------------- #include #include "ITSSkinF.h" #include "ITSUtilF.h" #include "AppGlobalF.h" #include "ITSLangTransF.h" #pragma hdrstop #include "VMSM400MF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "cxButtons" #pragma link "cxCalendar" #pragma link "cxContainer" #pragma link "cxControls" #pragma link "cxDropDownEdit" #pragma link "cxEdit" #pragma link "cxGraphics" #pragma link "cxGroupBox" #pragma link "cxLabel" #pragma link "cxLookAndFeelPainters" #pragma link "cxLookAndFeels" #pragma link "cxMaskEdit" #pragma link "cxPC" #pragma link "cxPCdxBarPopupMenu" #pragma link "cxSpinEdit" #pragma link "cxSplitter" #pragma link "cxTextEdit" #pragma link "cxTimeEdit" #pragma link "dxSkinBlack" #pragma link "dxSkinBlue" #pragma link "dxSkinCaramel" #pragma link "dxSkinCoffee" #pragma link "dxSkinDarkRoom" #pragma link "dxSkinDarkSide" #pragma link "dxSkinFoggy" #pragma link "dxSkinGlassOceans" #pragma link "dxSkiniMaginary" #pragma link "dxSkinLilian" #pragma link "dxSkinLiquidSky" #pragma link "dxSkinLondonLiquidSky" #pragma link "dxSkinMcSkin" #pragma link "dxSkinMoneyTwins" #pragma link "dxSkinOffice2007Black" #pragma link "dxSkinOffice2007Blue" #pragma link "dxSkinOffice2007Green" #pragma link "dxSkinOffice2007Pink" #pragma link "dxSkinOffice2007Silver" #pragma link "dxSkinOffice2010Black" #pragma link "dxSkinOffice2010Blue" #pragma link "dxSkinOffice2010Silver" #pragma link "dxSkinsCore" #pragma link "dxSkinscxPCPainter" #pragma link "dxSkinSeven" #pragma link "dxSkinSharp" #pragma link "dxSkinSilver" #pragma link "dxSkinStardust" #pragma link "cxRadioGroup" #pragma link "cxClasses" #pragma link "cxCustomData" #pragma link "cxData" #pragma link "cxDataStorage" #pragma link "cxDBData" #pragma link "cxFilter" #pragma link "cxGrid" #pragma link "cxGridCustomTableView" #pragma link "cxGridCustomView" #pragma link "cxGridDBTableView" #pragma link "cxGridLevel" #pragma link "cxGridTableView" #pragma link "cxStyles" #pragma link "cxCheckBox" #pragma link "cxImage" #pragma link "cxButtonEdit" #pragma link "cxBlobEdit" #pragma resource "*.dfm" TVMSM400M *VMSM400M = NULL; //--------------------------------------------------------------------------- __fastcall TVMSM400M::TVMSM400M(TComponent* Owner) : TForm(Owner) { LangTrans->Translate(this, ITSDb_GetConnection()); ITSSkin_Load(this); PnlVmsList->Visible = false; cxSplitter2->Visible = false; PnlSymbol->Align = alClient; CMM_LoadForm(g_sFormsDir, this); FUpdate= false; FTitle = Caption;//"VMS 심볼이미지 관리"; //FRAMEVmsList1->Column02->Visible = false; FRAMEVmsList1->PnlTop->Visible = true; FRAMEVmsList1->PnlBottom->Visible = false; FRAMEVmsList1->ColumnSel->Visible = true; m_pGDC = FRAMEVmsList1->TvList->DataController; FListSymb = new TList; EditMode = false; FIsUpdate = false; TvList->OptionsView->DataRowHeight = 0; TvList->OptionsView->CellAutoHeight = true; TvList->OptionsView->Indicator = false; TvList->OptionsCustomize->ColumnMoving = false; TvList->OptionsCustomize->ColumnSorting = false; TvList->Columns[0]->Width = 60; TvList->Columns[0]->Options->HorzSizing = false; TNotifyEvent evt = CbType->Properties->OnChange; CbType->Properties->OnChange = NULL; CbType->Properties->Items->Clear(); CbType->Properties->Items->Add(" 일반 이미지"); CbType->Properties->Items->Add(" 대기환경등급 이미지"); CbType->ItemIndex = 0; CbType->Properties->OnChange = evt; //BtnSaveImgFile->Caption = "Save as image file"; //BtnSaveImgFile->Hint = "Save as image file"; } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::CommClose() { try { ClearSymbloList(); SAFE_DELETE(FListSymb); CMM_SaveForm(g_sFormsDir, this); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::FormShow(TObject *Sender) { lblImgSize->Caption = ""; Refresh(); FormInit(); ChangeEditMode(1); TmrShow->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::FormInit() { EdNmbr->Text = ""; EdExpl->Text = ""; EdImageFileName->Text = ""; lblImgSize->Caption = ""; ImgPreView->Picture->Bitmap->FreeImage(); ImgPreView->Picture->Bitmap = NULL; ImgTemp->Picture->Bitmap->FreeImage(); ImgTemp->Picture->Bitmap = NULL; FNewDb = false; } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::TmrShowTimer(TObject *Sender) { TmrShow->Enabled = false; FRAMEVmsList1->UpdateList(); LoadImageSymbol(); } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::BtnCloseClick(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::FormClose(TObject *Sender, TCloseAction &Action) { CommClose(); VMSM400M = NULL; Action = caFree; } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::FormCloseQuery(TObject *Sender, bool &CanClose) { if (FUpdate) { POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0); } FRAMEVmsList1->OnCloseQuery(CanClose); } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::DisplayInfo() { FormInit(); int nRow = TvList->DataController->FocusedRecordIndex; if( nRow <= -1 ) return; TcxGridDataController *pDc = TvList->DataController; nRow = pDc->FocusedRecordIndex; if (nRow < FListSymb->Count) { Graphics::TBitmap *bitmap = (Graphics::TBitmap*)FListSymb->Items[nRow]; ImgPreView->Picture->Bitmap->Assign(bitmap); ImgTemp->Picture->Bitmap->Assign(bitmap); FOldWidth = bitmap->Width; FOldHeight = bitmap->Height; lblImgSize->Caption = String(bitmap->Width) + " * " + String(bitmap->Height); } EdNmbr->Text = VarToStr(pDc->Values[nRow][ColLink1->Index]); EdExpl->Text = VarToStr(pDc->Values[nRow][ColLink3->Index]); EdVmsCd->Text = VarToStr(pDc->Values[nRow][ColLink4->Index]); if (EdVmsCd->Text == "SBT0") CbType->ItemIndex = 0; else if (EdVmsCd->Text == "SBT4") CbType->ItemIndex = 1; ChangeEditMode(3); } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::BtnEditClick(TObject *Sender) { if (BtnEdit->Caption == FrmLang->lblEdit->Caption)//"편집") { ChangeEditMode(0); FNewDb = false; } else { String sId = EdNmbr->Text; ChangeEditMode(1); if (CMM_FindGridData(TvList->DataController, sId, ColLink1->Index) >= 0) { CMM_SetGridRow(CxList, TvList, sId, ColLink1->Index); DisplayInfo(); } } } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::ChangeEditMode(int AEdit) { FImageUpdate = false; bool bEnabled = false; switch(AEdit) { case 0: //편집버튼클릭 { BtnEdit->Enabled = true; BtnInsert->Enabled = false; BtnDelete->Enabled = false; BtnSave->Enabled = true; BtnEdit->Caption = FrmLang->lblCancel->Caption;//"취소"; BtnEdit->Hint = FrmLang->lblCancel->Hint;//데이터 편집 취소"; EditMode = true; EdImageFileName->Enabled = FIsUpdate; } break; case 1: //편집[취소]버튼클릭 { FormInit(); //화면을 모두 지운다. BtnEdit->Enabled = false; BtnInsert->Enabled = true; BtnDelete->Enabled = false; BtnSave->Enabled = false; BtnEdit->Caption = FrmLang->lblEdit->Caption;//"편집"; BtnEdit->Hint = FrmLang->lblEdit->Hint;//데이터 편집"; //bEnabled = true; EditMode = false; EdImageFileName->Enabled = false; } break; case 2: //추가 { BtnEdit->Enabled = true; BtnInsert->Enabled = false; BtnDelete->Enabled = false; BtnSave->Enabled = true; BtnEdit->Caption = FrmLang->lblCancel->Caption;//"취소"; BtnEdit->Hint = FrmLang->lblCancel->Hint;//데이터 편집 취소"; EditMode = true; EdImageFileName->Enabled = true; } break; case 3: //수정모드 { BtnEdit->Enabled = true; BtnInsert->Enabled = true; BtnDelete->Enabled = true; BtnSave->Enabled = false; BtnEdit->Caption = FrmLang->lblEdit->Caption;//"편집"; BtnEdit->Hint = FrmLang->lblEdit->Hint;//데이터 편집"; bEnabled = true; EditMode = false; EdImageFileName->Enabled = FIsUpdate; } break; } BtnDownload->Enabled = false; BtnSaveImgFile->Enabled = false; if (ImgPreView->Picture->Bitmap != NULL) { if (ImgPreView->Picture->Bitmap->Height != 0) { BtnSaveImgFile->Enabled = true; BtnDownload->Enabled = true; } } if (AEdit == 0 || AEdit == 2) { GrpList->Enabled = false; PnlCmd->Enabled = true; } else { GrpList->Enabled = true; PnlCmd->Enabled = false; } //PnlEdit->Enabled = EditMode; } //--------------------------------------------------------------------------- bool __fastcall TVMSM400M::UpdateVmsImage(String ANmbr, String AExpl, String ATypeCd) { String sQry; TADOQuery *pADO = NULL; sQry = "UPDATE TB_VMS_SYMB_LIB \r\n" " SET RGST_DT = TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS'), \r\n" " SYMB_EXPL = :p02, \r\n" " IMAG_DATA = :p03, \r\n" " SYMB_TYPE = :p04, \r\n" " UPDT_DT = TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS') \r\n" " WHERE SYMB_LIB_NMBR = :p01 \r\n"; TMemoryStream *dataStream = new TMemoryStream(); //ImgPreView->Picture->Bitmap->SaveToStream(dataStream); ImgTemp->Picture->Bitmap->SaveToStream(dataStream); try { try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADO, sQry); ITSDb_SQLBind(pADO, "p01", ANmbr); ITSDb_SQLBind(pADO, "p02", AExpl); pADO->Parameters->ParamByName("p03")->LoadFromStream(dataStream, ftBlob); ITSDb_SQLBind(pADO, "p04", ATypeCd); pADO->ExecSQL(); if (FImageUpdate) { sQry = "UPDATE TB_VMS_FORM_OBJECT \r\n" " SET VMS_DSPL_FIGR = :p03 \r\n" " WHERE SYMB_LIB_NMBR = :p01 \r\n"; ITSDb_SQLText(pADO, sQry); ITSDb_SQLBind(pADO, "p01", ANmbr); pADO->Parameters->ParamByName("p03")->LoadFromStream(dataStream, ftBlob); pADO->ExecSQL(); //통신서버가 항상 폼정보를 내려보내도록 업데이트시각을 업데이트한다. sQry = "UPDATE TB_VMS_FORM \r\n" " SET UPDT_DT = TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS') \r\n" " WHERE VMS_FORM_ID IN (SELECT VMS_FORM_ID \r\n" " FROM TB_VMS_FORM_OBJECT \r\n" " WHERE SYMB_LIB_NMBR = :p01 \r\n" " GROUP BY VMS_FORM_ID) \r\n"; ITSDb_SQLText(pADO, sQry); ITSDb_SQLBind(pADO, "p01", ANmbr); pADO->ExecSQL(); //폼이미지를 새로생성 FrmLang->UpdateVmsFormImage(ANmbr, FOldWidth, FOldHeight, FNewWidth, FNewHeight); POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0); CComm_VmsFormUpdate(); } return true; } catch(EDatabaseError &E) { DBERRORMSG("VMS Symbol Update", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORMSG("VMS Symbol Update", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } if (dataStream) delete dataStream; dataStream = NULL; } return true; } //--------------------------------------------------------------------------- bool __fastcall TVMSM400M::InsertVmsImage(String ANmbr, String AExpl, String AFileName, String ATypeCd) { String sQry; TADOQuery *pADO = NULL; sQry = "INSERT INTO TB_VMS_SYMB_LIB(SYMB_LIB_NMBR, RGST_DT, SYMB_EXPL, IMAG_DATA, SYMB_FILE_NM, SYMB_TYPE, AVI_DATA, IMAG_SIZE, UPDT_DT, DEL_YN) \r\n" " VALUES(:p01, :p02, :p03, :p04, NULL, :p05, NULL, :p06, :p07, 'N' ) \r\n"; TMemoryStream *dataStream = new TMemoryStream(); //ImgPreView->Picture->Bitmap->SaveToStream(dataStream); ImgTemp->Picture->Bitmap->SaveToStream(dataStream); try { try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADO, sQry); ITSDb_SQLBind(pADO, "p01", ANmbr); ITSDb_SQLBind(pADO, "p02", Now().FormatString("yyyymmddhhnnss")); ITSDb_SQLBind(pADO, "p03", AExpl); pADO->Parameters->ParamByName("p04")->LoadFromStream(dataStream, ftBlob); ITSDb_SQLBind(pADO, "p05", ATypeCd); ITSDb_SQLBind(pADO, "p06", FFileSize); ITSDb_SQLBind(pADO, "p07", Now().FormatString("yyyymmddhhnnss")); pADO->ExecSQL(); return true; } catch(EDatabaseError &E) { DBERRORMSG("TVMSM400M::InsertVmsImage", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORMSG("TVMSM400M::InsertVmsImage", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } if (dataStream) delete dataStream; dataStream = NULL; } return true; } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::BtnSaveClick(TObject *Sender) { if (EdNmbr->Text.IsEmpty()) { Application->MessageBox(FrmLang->lblImage1->Caption.c_str(),//L"VMS 이미지정보 저장\r\n이미지 번호를 입력하세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } if (EdExpl->Text.Trim().IsEmpty()) { Application->MessageBox(FrmLang->lblImage2->Caption.c_str(),//L"VMS 이미지정보 저장\r\n이미지 설명을 입력하세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } bool bResult = false; String sSymbType = "SBT0"; switch(CbType->ItemIndex) { case 1: sSymbType = "SBT4"; break; default: sSymbType = "SBT0"; break; } String sNmbr = EdNmbr->Text; String sExpl = EdExpl->Text.Trim(); if (!FNewDb) { bResult = UpdateVmsImage(sNmbr, sExpl, sSymbType); } else { if (EdImageFileName->Text.Trim().IsEmpty()) { Application->MessageBox(FrmLang->lblImage3->Caption.c_str(),//L"VMS 이미지정보 저장\r\n이미지를 선택하셔야 합니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } bResult = InsertVmsImage(sNmbr, sExpl, "", sSymbType); } if (bResult) { Application->MessageBox(lblText1->Caption.c_str(),//L"VMS 이미지정보 저장\r\nVMS 이미지정보를 저장 하였습니다.", FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); FUpdate = true; LoadImageSymbol(); CMM_SetGridRow(CxList, TvList, sNmbr, ColLink1->Index); DisplayInfo(); CComm_VmsImageSymbolUpdate(); // VMS서버로 이미지가 업데이트 되었음을 알린다. POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0); } } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::BtnInsertClick(TObject *Sender) { FormInit(); //신규아이디를 얻어와서 화면을 초기화한다. int nNmbr; if (!FrmLang->GetNextVmsImgeId(nNmbr, 6000, 6999)) { Application->MessageBox(FrmLang->lblImage4->Caption.c_str(),//L"새로운 VMS 이미지정보를 생성하지 못하였습니다.\r\n프로그램 종료후에 다시 시도해 보세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } EdNmbr->Text = String(nNmbr); ChangeEditMode(2); FNewDb = true; EdImageFileNameClick((TObject *)EdImageFileName); } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::BtnDeleteClick(TObject *Sender) { int nIdx = TvList->DataController->FocusedRecordIndex; if (nIdx < 0) return; String sId = EdNmbr->Text; if (sId.IsEmpty()) { Application->MessageBox(FrmLang->lblImage6->Caption.c_str(),//L"삭제할 VMS 이미지를 목록에서 선택하세요.\r\n목록에서 더블클릭하여 선택합니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } if (FrmLang->CheckImageUseCount(sId) > 0) { Application->MessageBox(FrmLang->lblImage5->Caption.c_str(),//L"삭제할 이미지가 VMS 폼에서 사용되고 있습니다.\r\n먼저 해당 폼에서 삭제해주시기 바랍니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } String sMsg; sMsg = FrmLang->lblImage7->Caption + ": " + sId;//"VMS이미지번호: " + sId; sMsg+= "\r\n" + FrmLang->lblImage8->Caption;//"선택하신 VMS 이미지 정보를 삭제하시겠습니까?"; if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return; if (FrmLang->DelVmsImage(sId, false)) { FUpdate = true; Application->MessageBox(FrmLang->lblImage9->Caption.c_str(),//L"VMS 이미지정보삭제\r\nVMS 이미지정보를 삭제 하였습니다.", FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); FormInit(); ChangeEditMode(1); LoadImageSymbol(); POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0); } } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::BtnSaveImgFileClick(TObject *Sender) { SaveDialog->Title = FTitle; SaveDialog->InitialDir = ExtractFilePath(Application->ExeName); SaveDialog->Filter = "Bitmap image Files (*.bmp)|*.bmp"; SaveDialog->FileName = EdNmbr->Text + ".bmp"; if (SaveDialog->Execute()) { try { String sFileName = SaveDialog->FileName; int iRet = sFileName.Pos(".bmp"); if (iRet == 0) { sFileName = SaveDialog->FileName + ".bmp"; } //ImgPreView->Picture->SaveToFile(sFileName); ImgTemp->Picture->SaveToFile(sFileName); } catch (Exception &exception) { Application->ShowException(&exception); } } } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::EdImageFileNameClick(TObject *Sender) { OpenBmp->Title = FTitle; OpenBmp->FileName = ""; OpenBmp->Execute(); } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::OpenBmpCanClose(TObject *Sender, bool &CanClose) { String sFName = OpenBmp->FileName; //sFName = sFName.UpperCase(); String sFilePath = ExtractFilePath(sFName); String sFileName = ExtractFileName(sFName); String sFileExt = ExtractFileExt(sFName); if (sFileExt.UpperCase() != ".BMP") { if (!APP_CheckBmpFile(sFName, sFName)) { Application->MessageBox(L"이미지 파일을 읽어오는데 실패하였습니다", L"이미지 파일 읽기 실패", MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } sFileExt = ExtractFileExt(sFName); } String sMsgTitle, sMsgString; sMsgTitle = FrmLang->lblImage10->Caption;//"VMS 이미지 선택"; sFName = sFName.UpperCase(); if (sFName.SubString(sFName.Length()-2, 3) != "BMP") { sMsgString = FrmLang->lblImage11->Caption;//"BMP 파일만 적용 가능합니다."; Application->MessageBox(sMsgString.c_str(), sMsgTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); return; } try { FFileSize = ITSUtil_GetFileSize(sFName); if (FFileSize <= 0) { sMsgString = FrmLang->lblImage12->Caption;//"이미지 파일을 읽어 오는데 실패하였습니다."; Application->MessageBox(sMsgString.c_str(), sMsgTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); return; } #if 0 if (FFileSize > (1024 * 32)) // Max 32Kbytes { sMsgString = FrmLang->lblImage13->Caption;//"이미지 파일의 최대 크기는 32KBytes를 넘을 수 없습니다.\r\n이미지 파일의 용량을 줄여 주세요."; Application->MessageBox(sMsgString.c_str(), sMsgTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); return; } #endif //EdImageSize->Text = String(dwFileSize);//GetFileSize(sFName)); EdImageFileName->Text = sFName; ImgPreView->Picture->Bitmap->FreeImage(); ImgPreView->Picture->Bitmap = NULL; ImgPreView->Picture->Bitmap->LoadFromFile(sFName); lblImgSize->Caption = String(ImgPreView->Picture->Bitmap->Width) + " * " + String(ImgPreView->Picture->Bitmap->Height); ImgTemp->Picture->Bitmap->FreeImage(); ImgTemp->Picture->Bitmap = NULL; ImgTemp->Picture->Bitmap->LoadFromFile(sFName); FNewWidth = ImgTemp->Picture->Bitmap->Width; FNewHeight = ImgTemp->Picture->Bitmap->Height; FImageUpdate = true; } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::ClearSymbloList() { for(int ii = 0; ii < FListSymb->Count; ii++) { Graphics::TBitmap *bitmap = (Graphics::TBitmap *)FListSymb->Items[ii]; delete bitmap; } FListSymb->Clear(); } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::LoadImageSymbol() { FormInit(); CMM_ClearGridTableView(TvList); ClearSymbloList(); String sQry; TADOQuery *pADO = NULL; sQry = "SELECT SYMB_LIB_NMBR, \r\n" " IMAG_DATA, \r\n" " SYMB_EXPL, SYMB_FILE_NM, SYMB_TYPE \r\n" " FROM TB_VMS_SYMB_LIB \r\n" " WHERE SYMB_LIB_NMBR BETWEEN 6000 AND 6999 \r\n" " AND DEL_YN = 'N' \r\n" " ORDER BY SYMB_LIB_NMBR \r\n"; int nRowHeight = 0; try { int nRow; TcxDataController *pGDC = TvList->DataController; TvList->BeginUpdate(); try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADO, sQry); ITSDb_SQLOpen(pADO); for( ; !pADO->Eof; pADO->Next()) { nRow = pGDC->AppendRecord(); pGDC->Values[nRow][ColLink1->Index] = pADO->FieldByName("SYMB_LIB_NMBR")->AsString; pGDC->Values[nRow][ColLink2->Index] = pADO->FieldByName("IMAG_DATA")->AsVariant; pGDC->Values[nRow][ColLink3->Index] = pADO->FieldByName("SYMB_EXPL")->AsString; pGDC->Values[nRow][ColLink4->Index] = pADO->FieldByName("SYMB_TYPE")->AsString; Graphics::TBitmap *bitmap = new Graphics::TBitmap; bitmap->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("IMAG_DATA"), bmRead)); FListSymb->Add(bitmap); if (bitmap->Height+2 > nRowHeight) nRowHeight = bitmap->Height+3; } } catch(EDatabaseError &E) { DBERRORMSG("VMS Symbol Query", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORMSG("VMS Symbol Query", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } //TvList->OptionsView->DataRowHeight = nRowHeight; TvList->EndUpdate(); } } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton, TShiftState AShift, bool &AHandled) { if (!ACellViewInfo) return; DisplayInfo(); } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::ColLink2CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone) { #if 0 int nRow = AViewInfo->GridRecord->RecordIndex; if (nRow < 0) return; if (nRow >= FListSymb->Count) { return; } try { Graphics::TBitmap *pBmp = (Graphics::TBitmap*)FListSymb->Items[nRow]; TRect rc; TRect rcOrg = AViewInfo->Bounds; int nH = ( (rcOrg.Bottom - rcOrg.Top) - pBmp->Height ) / 2; rc.Top = rcOrg.Top + nH+1; rc.Bottom = rcOrg.Bottom - nH+1; rc.Left = rcOrg.Left + 1; rc.Right = rc.Left + pBmp->Width; ACanvas->Canvas->StretchDraw(rc, pBmp); ADone = true; } catch(Exception &e) { } #endif } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::BtnDownloadClick(TObject *Sender) { if (EdNmbr->Text.IsEmpty()) { Application->MessageBox(lblText2->Caption.c_str(),//L"VMS 이미지 제어기 다운로드\r\n이미지를 선택 하세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } int nSelects = CMM_GetCheckCount(FRAMEVmsList1->TvList, FRAMEVmsList1->ColumnSel->Index); if (0 == nSelects) { Application->MessageBox(lblText3->Caption.c_str(),//L"VMS 이미지 제어기 다운로드\r\n다운로드할 VMS 제어기를 선택 하세요.", FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); return; } String sNmbr = EdNmbr->Text; String sMsg; sMsg = FrmLang->lblImage7->Caption + ": " + sNmbr;//"VMS이미지번호: " + sNmbr; sMsg+= "\r\n" + lblText4->Caption;//"선택하신 VMS 이미지 정보를 선택한 VMS 제어기로 다운로드 하시겠습니까?"; if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return; String sUserId = g_pLOGIN->sUserId; String sRgstDt = Now().FormatString("yyyymmddhhnnss"); String sQry; TADOQuery *pADO = NULL; sQry = "INSERT INTO TB_VMS_DOWNLOAD ( \r\n" " RGST_DT, \r\n" " VMS_CTLR_NMBR, \r\n" " FILETYPE, \r\n" " FILEID, \r\n" " USER_ID) \r\n" " VALUES ( \r\n" " :p01, \r\n" " :p02, \r\n" " :p03, \r\n" " :p04, \r\n" " :p05 ) \r\n"; try { try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADO, sQry); ITSDb_GetConnection()->BeginTrans(); int nRowCnt = FRAMEVmsList1->TvList->ViewData->RecordCount; for (int ii = 0; ii < nRowCnt; ii++) { TcxCustomGridRow* ARow = FRAMEVmsList1->TvList->ViewData->Rows[ii]; if (((bool)ARow->Values[FRAMEVmsList1->ColumnSel->Index])) { String sVmsNmbr = VarToStr(ARow->Values[FRAMEVmsList1->Column01->Index]); ITSDb_SQLBind(pADO, "p01", sRgstDt); ITSDb_SQLBind(pADO, "p02", sVmsNmbr); ITSDb_SQLBind(pADO, "p03", "1"); ITSDb_SQLBind(pADO, "p04", sNmbr); ITSDb_SQLBind(pADO, "p05", sUserId); ITSDb_SQLExec(pADO); } } ITSDb_GetConnection()->CommitTrans(); } catch(EDatabaseError &E) { ITSDb_GetConnection()->RollbackTrans(); DBERRORMSG("VMS image download", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { ITSDb_GetConnection()->RollbackTrans(); DBERRORMSG("VMS image download", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } } #if 0 sMsg = "VMS 이미지 제어기 다운로드\r\n" "VMS 이미지를 제어기로 다운로드 요청하였습니다.\r\n" "VMS 제어기 통신상태에 따라 다운로드가 원활하게 진행되지 않을 수 있습니다."; #else sMsg = lblText5->Caption; #endif Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); //FRAMEVmsList1->BtnAllSelectClick((TObject*)FRAMEVmsList1->BtnAllClear); } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::TvListFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged) { if (!AFocusedRecord) return; DisplayInfo(); } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::CbTypePropertiesChange(TObject *Sender) { if (CbType->ItemIndex == 0) { if (LblDesc->Visible) LblDesc->Visible = false; } else { if (LblDesc->Visible == false) LblDesc->Visible = true; } } //--------------------------------------------------------------------------- void __fastcall TVMSM400M::PnlMenuDblClick(TObject *Sender) { FIsUpdate = true; } //---------------------------------------------------------------------------