//--------------------------------------------------------------------------- #include #include "ITSSkinF.h" #include "ITSUtilF.h" #include "AppGlobalF.h" #include "ITSLangTransF.h" #pragma hdrstop #include "VMSM520MF.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" TVMSM520M *VMSM520M = NULL; //--------------------------------------------------------------------------- __fastcall TVMSM520M::TVMSM520M(TComponent* Owner) : TForm(Owner) { LangTrans->Translate(this, ITSDb_GetConnection()); ITSSkin_Load(this); //CMM_LoadForm(g_sFormsDir, this); FUpdate= false; FTitle = Caption;//"VMS Æû À¯Çü ¼±ÅÃ"; FListSymb = new TList; EditMode = false; m_bSelected = false; TvList->OptionsView->DataRowHeight = 0; TvList->OptionsView->CellAutoHeight = true; TvList->OptionsView->Indicator = true; TvList->OptionsCustomize->ColumnMoving = false; TvList->OptionsCustomize->ColumnSorting = false; TvList->Columns[0]->Width = 60; TvList->Columns[0]->Options->HorzSizing = false; } //--------------------------------------------------------------------------- void __fastcall TVMSM520M::CommClose() { try { ClearSymbloList(); SAFE_DELETE(FListSymb); //CMM_SaveForm(g_sFormsDir, this); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TVMSM520M::FormShow(TObject *Sender) { Refresh(); FormInit(); TmrShow->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TVMSM520M::FormInit() { EdNmbr->Text = ""; ImgPreView->Picture->Bitmap->FreeImage(); ImgPreView->Picture->Bitmap = NULL; FillVmsFormType(); FNewDb = false; } //--------------------------------------------------------------------------- void __fastcall TVMSM520M::FillVmsFormType() { String sQry; TADOQuery *pADO = NULL; CMM_ClearGridTableView(TvList); sQry = "SELECT VMS_FORM_TYPE_CD AS CD, \r\n" " VMS_FORM_TYPE_NM AS NM, \r\n" " USE_YN \r\n" " FROM TB_VMS_FORM_TYPE \r\n" " ORDER BY CD ASC \r\n"; 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()) { String sUse = pADO->FieldByName("USE_YN")->AsString; if (sUse != "Y") continue; String sCd = pADO->FieldByName("CD")->AsString; String sNm = pADO->FieldByName("NM")->AsString; nRow = pGDC->AppendRecord(); pGDC->Values[nRow][ColLink1->Index] = sCd; pGDC->Values[nRow][ColLink3->Index] = sNm; } } catch(EDatabaseError &E) { DBERRORMSG("TVMSM520M::FillVmsFormType", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &exception) { DBERRORMSG("TVMSM520M::FillVmsFormType", String(exception.ClassName()), exception.Message, sQry); throw Exception(String(exception.ClassName()) + exception.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } TvList->EndUpdate(); } } //--------------------------------------------------------------------------- void __fastcall TVMSM520M::TmrShowTimer(TObject *Sender) { TmrShow->Enabled = false; } //--------------------------------------------------------------------------- void __fastcall TVMSM520M::BtnCloseClick(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TVMSM520M::FormClose(TObject *Sender, TCloseAction &Action) { CommClose(); VMSM520M = NULL; Action = caFree; } //--------------------------------------------------------------------------- void __fastcall TVMSM520M::FormCloseQuery(TObject *Sender, bool &CanClose) { // } //--------------------------------------------------------------------------- void __fastcall TVMSM520M::DisplayInfo() { //FormInit(); int nRow = TvList->DataController->FocusedRecordIndex; if( nRow <= -1 ) return; TcxGridDataController *pDc = TvList->DataController; nRow = pDc->FocusedRecordIndex; #if 0 if (nRow < FListSymb->Count) { Graphics::TBitmap *bitmap = (Graphics::TBitmap*)FListSymb->Items[nRow]; ImgPreView->Picture->Bitmap->Assign(bitmap); } #endif EdNmbr->Text = VarToStr(pDc->Values[nRow][ColLink1->Index]); } //--------------------------------------------------------------------------- void __fastcall TVMSM520M::ClearSymbloList() { for(int ii = 0; ii < FListSymb->Count; ii++) { Graphics::TBitmap *bitmap = (Graphics::TBitmap *)FListSymb->Items[ii]; delete bitmap; } FListSymb->Clear(); } //--------------------------------------------------------------------------- void __fastcall TVMSM520M::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton, TShiftState AShift, bool &AHandled) { if (!ACellViewInfo) return; DisplayInfo(); Sleep(200); BtnSelImageClick((TObject*)BtnSelImage); } //--------------------------------------------------------------------------- void __fastcall TVMSM520M::TvListFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged) { if (!AFocusedRecord) return; DisplayInfo(); } //--------------------------------------------------------------------------- void __fastcall TVMSM520M::BtnSelImageClick(TObject *Sender) { if (EdNmbr->Text == "") { Application->MessageBox(lblText1->Caption.c_str(),//L"VMS Æû À¯Çü ¼±ÅÃ\r\nVMS Æû À¯Çü ¸ñ·Ï¿¡¼­ ¼±ÅÃÇϼ¼¿ä.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } m_bSelected = true; Close(); } //---------------------------------------------------------------------------