/**************************************************************************** * @source : * @description : **************************************************************************** * DATE AUTHOR DESCRIPTION * -------------------------------------------------------------------------- * 2016/07/10 shjung 최초작성 * ****************************************************************************/ //--------------------------------------------------------------------------- #include #include "ITSSkinF.h" #include "ITSUtilF.h" #include "AppGlobalF.h" #include "ITSLangTransF.h" #pragma hdrstop #include "VMSM500MF.h" #include "VMSM510MF.h" #include "VMSM520MF.h" #include "VMSM530MF.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 link "VmsDesignerF" #pragma link "cxColorComboBox" #pragma link "cxCalc" #pragma resource "*.dfm" TVMSM500M *VMSM500M = NULL; //--------------------------------------------------------------------------- __fastcall TVMSM500M::TVMSM500M(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; PgEdit->ActivePage = TsEdit; APP_InitDisplayColor(); //BtnSaveImgFile->Caption = "Save form image"; //BtnSaveImgFile->Hint = "Save the form as an image file."; MyUseManager = new TVmsObjUseManager(); } //--------------------------------------------------------------------------- /* * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다.. * Form과 DataModule class를 delete시킨다. * arguments * * return * void */ void __fastcall TVMSM500M::CommClose() { try { if (MyUseManager) { delete MyUseManager; MyUseManager = NULL; } if (m_pEdtDesigner) { delete m_pEdtDesigner; m_pEdtDesigner = NULL; } //if (m_pDesigner) //{ // delete m_pDesigner; // m_pDesigner = NULL; //} APP_DelVmsSizeCombo(CbSizeType); SAFE_DELETE(MyVmsObjTypeManager); ClearSymbloList(); SAFE_DELETE(FListSymb); CMM_SaveForm(g_sFormsDir, this); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::FormCreate(TObject *Sender) { MyVmsObjTypeManager = new TVmsObjTypeManager(); m_pEdtDesigner = new TVmsFormDesigner(PnlEditForm); //m_pDesigner = new TVmsFormDesigner(PnlForm); } //--------------------------------------------------------------------------- /* * Form을 보여줄때 호출되는 event 메서드이다. * arguments * Sender : event handler 객체 * return * void */ void __fastcall TVMSM500M::FormShow(TObject *Sender) { Refresh(); FormInit(); ChangeEditMode(1); TmrShow->Enabled = true; } //--------------------------------------------------------------------------- /* * form 초기화 * * arguments * * return * void */ void __fastcall TVMSM500M::FormInit() { //TvList->OptionsView->NoDataToDisplayInfoText = "<등록되어 있는 폼 정보가 없습니다>"; MyVmsObjTypeManager->LoadFromDb(); m_pEdtDesigner->ApplicationHandle = (long)Handle; //VMS사이즈 APP_FillVmsSizeType(CbSizeType, "VUTN", false); //폼색상 CbFormColor->Items->Clear(); CbFormColor->Items->AddObject("", (TObject*)clBlack); CbFormColor->Items->AddObject("", (TObject*)clRed); CbFormColor->Items->AddObject("", (TObject*)clLime); CbFormColor->Items->AddObject("", (TObject*)clYellow); CbFormColor->ItemIndex = 0; //폼유형 FillVmsFormType(CbFormKind); //표출방법 FillVmsFormDispMode(CbFormDispMode); //표출방향 FillVmsFormDispDir(CbFormDispDir); FormObjectInit(); FNewDb = false; } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::FormObjectInit() { //TvObjList->OptionsView->NoDataToDisplayInfoText = "<등록되어 있는 객체 정보가 없습니다>"; m_bEdit = false; PnlEdtBack->Left = 6; PnlEdtBack->Top = 4; PnlRePreview->Left = 6; PnlRePreview->Top = 4; ReForm->Left = 6; ReForm->Top = 4; //객체배경색상 CbBkColor->Items->Clear(); CbBkColor->Items->AddObject("", (TObject*)clBlack); CbBkColor->Items->AddObject("", (TObject*)clRed); CbBkColor->Items->AddObject("", (TObject*)clLime); CbBkColor->Items->AddObject("", (TObject*)clYellow); CbBkColor->ItemIndex = 0; //문자열색상 CbFontColor->Items->Clear(); CbFontColor->Items->AddObject("", (TObject*)clBlack); CbFontColor->Items->AddObject("", (TObject*)clRed); CbFontColor->Items->AddObject("", (TObject*)clLime); CbFontColor->Items->AddObject("", (TObject*)clYellow); CbFontColor->ItemIndex = 0; //직접입력 문자열색상 CbFontColorRe->Items->Clear(); CbFontColorRe->Items->AddObject("", (TObject*)clBlack); CbFontColorRe->Items->AddObject("", (TObject*)clRed); CbFontColorRe->Items->AddObject("", (TObject*)clLime); CbFontColorRe->Items->AddObject("", (TObject*)clYellow); CbFontColorRe->ItemIndex = 0; //VMS Font FillVmsFont(CbFontName); CbFontName->ItemIndex = 0; FillVmsFont(CbFontNameRe); CbFontNameRe->ItemIndex = 0; } //--------------------------------------------------------------------------- /* * Form이 Show되고 난 후 최초 1회 수행되는 타이머 이벤트 * arguments * Sender : event handler 객체 * return * void */ void __fastcall TVMSM500M::TmrShowTimer(TObject *Sender) { TmrShow->Enabled = false; } //--------------------------------------------------------------------------- /* * Close 버튼 클릭 이벤트 핸들러 * arguments * Sender : event handler 객체 * return * void */ void __fastcall TVMSM500M::BtnCloseClick(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::FormClose(TObject *Sender, TCloseAction &Action) { CommClose(); VMSM500M = NULL; Action = caFree; } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::FormCloseQuery(TObject *Sender, bool &CanClose) { if (FUpdate) { VComm_VmsFormUpdate(); POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0); } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnEditClick(TObject *Sender) { if (BtnEdit->Caption == FrmLang->lblEdit->Caption)//"편집") { ChangeEditMode(0); FNewDb = false; } else { String sId = EdFormId->Text; ChangeEditMode(1); if (CMM_FindGridData(TvList->DataController, sId, Col01->Index) >= 0) { CMM_SetGridRow(CxList, TvList, sId, Col01->Index); DisplayInfo(); } } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::ChangeEditMode(int AEdit) { bool bEnabled = false; CbFormKind->Enabled = false; switch(AEdit) { case 0: //편집버튼클릭 { BtnEdit->Enabled = true; BtnInsert->Enabled = false; BtnDelete->Enabled = false; BtnCopyAdd->Enabled = false; BtnSave->Enabled = true; BtnEdit->Caption = FrmLang->lblCancel->Caption;//"취소"; BtnEdit->Hint = FrmLang->lblCancel->Hint;//데이터 편집 취소"; EditMode = true; } break; case 1: //편집[취소]버튼클릭 { FormClear(); //화면을 모두 지운다. BtnEdit->Enabled = false; BtnInsert->Enabled = true; BtnDelete->Enabled = false; BtnCopyAdd->Enabled = false; BtnSave->Enabled = false; BtnEdit->Caption = FrmLang->lblEdit->Caption;//"편집"; BtnEdit->Hint = FrmLang->lblEdit->Hint;//데이터 편집"; //bEnabled = true; EditMode = false; } break; case 2: //추가 { BtnEdit->Enabled = true; BtnInsert->Enabled = false; BtnDelete->Enabled = false; BtnCopyAdd->Enabled = false; BtnSave->Enabled = true; BtnEdit->Caption = FrmLang->lblCancel->Caption;//"취소"; BtnEdit->Hint = FrmLang->lblCancel->Hint;//데이터 편집 취소"; EditMode = true; //CbFormKind->Enabled = true; } break; case 3: //수정모드 { BtnEdit->Enabled = true; BtnInsert->Enabled = true; BtnDelete->Enabled = true; BtnCopyAdd->Enabled = true; BtnSave->Enabled = false; BtnEdit->Caption = FrmLang->lblEdit->Caption;//"편집"; BtnEdit->Hint = FrmLang->lblEdit->Hint;//데이터 편집"; bEnabled = true; EditMode = false; } break; } BtnSaveImgFile->Enabled = false; if (ImgForm->Picture->Bitmap != NULL) { if (ImgForm->Picture->Bitmap->Height != 0) { BtnSaveImgFile->Enabled = true; } } if (AEdit == 0 || AEdit == 2) { PnlCmd->Enabled = true; GrpList->Enabled = false; } else { PnlCmd->Enabled = false; GrpList->Enabled = true; } ChangeEditModeObject(AEdit); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::ChangeEditModeObject(int AEdit) { } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnInsertClick(TObject *Sender) { int nFormId; if (!GetNextVmsFormId(nFormId)) { Application->MessageBox(lblText1->Caption.c_str(),//L"새로운 VMS 폼정보를 생성하지 못하였습니다.\r\n프로그램 종료후에 다시 시도해 보세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } TVMSM520M *pSelForm = new TVMSM520M(this); pSelForm->ShowModal(); String sFormType = pSelForm->EdNmbr->Text.Trim(); bool bSelected = pSelForm->m_bSelected; delete pSelForm; pSelForm = NULL; if (!bSelected) { return; } if (sFormType == "") { return; } FormClear(); EdFormId->Text = String(nFormId); ChangeEditMode(2); FNewDb = true; //폼유형을 설정 APP_SetCode(CbFormKind, sFormType); CbFormDispMode->ItemIndex = 0; CbFormDispDir->ItemIndex = 0; //폼유형에 맞게 기본 폼을 생성하자 switch(sFormType.ToIntDef(11)) { case 11:// ' 소통상황(1단) MakeDefTrafficForm(1); break; case 12:// ' 소통상황(2단) MakeDefTrafficForm(2); break; case 13:// ' 소통상황(3단) MakeDefTrafficForm(3); break; case 14:// ' 소통상황(4단) MakeDefTrafficForm(4); break; case 15:// ' 소통상황(도형식) break; case 16:// ' 정체소통상황 MakeDefTrafficForm(6); break; case 20:// ' 돌발문안 break; case 30:// ' 공사/행사문안 break; case 40:// ' 홍보문안 break; case 50:// ' 우회도로 break; default: APP_SetCode(CbFormKind, "11"); MakeDefTrafficForm(1); break; } } //--------------------------------------------------------------------------- bool __fastcall TVMSM500M::AddDefFormObject(String AFontName, int AFontSize, String AFontColor, int AObjType, String AText, int ASize, int APosX, int APosY) { TVmsFormObject *pObj; //1단 소통정보 pObj = m_pEdtDesigner->AddObject(odtText); if (!pObj) return false; pObj->EditMode = true; pObj->ObjKind = OBJKIND_TEXT; pObj->ObjSeq = m_pEdtDesigner->GetNewObjectSeq(); pObj->ObjType = String(AObjType); pObj->Text = AText; pObj->ObjSize = pObj->Text.Length();//ASize; //Pixel pObj->BkColorCode = "0"; //Balck, m_pEdtDesigner->BkColorCode; pObj->Blink = false; pObj->FontName = AFontName; pObj->FontNameCode = APP_GetCodeIdByName(CbFontName, AFontName); pObj->FontColorCode = AFontColor; //0:Black,1:Red,2:Green,3:Yellow pObj->FontSize = AFontSize; pObj->FontBold = true; pObj->TextAlign = 0; //(0:left, 1:right, 2:center pObj->SetPos(APosX, APosY); pObj->Show(); AddObjectToList(pObj, true); return true; } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::MakeDefTrafficForm(int ARows) { //0:Black,1:Red, 2:Green, 3:Yellow //0:left, 1:right, 2:center //1단 소통정보 if (g_AppCfg.sLang == "kr") { switch(ARows) { case 1: AddDefFormObject("굴림체", 18, "3", 12, "@시점명", 160, 16, 7); //시점명 AddDefFormObject("굴림체", 18, "3", 13, "@종점명", 160, 213, 7); //종점명 AddDefFormObject("굴림체", 18, "3", 14, "@소통상황", 112, 64, 35); //소통상황 AddDefFormObject("굴림체", 18, "2", 15, "@00분", 80, 213, 35); //통행시간 break; case 2: AddDefFormObject("굴림체", 16, "3", 0, "현위치", 100, 31, 7); //현위치 AddDefFormObject("굴림체", 16, "3", 13, "@종점명1", 100, 133, 7); //종점명1 AddDefFormObject("굴림체", 16, "3", 23, "@종점명2", 100, 265, 7); //종점명2 AddDefFormObject("굴림체", 16, "2", 15, "@01분", 80, 133, 35); //통행시간1 AddDefFormObject("굴림체", 16, "2", 25, "@02분", 80, 265, 35); //통행시간2 break; case 3: AddDefFormObject("굴림체", 16, "3", 0, "현재위치부터", 126, 7, 7); //현재위치부터 AddDefFormObject("굴림체", 16, "3", 13, "@종점명1", 85, 38, 50); //종점명1 AddDefFormObject("굴림체", 16, "2", 15, "@1분", 80, 161, 50); //통행시간1 AddDefFormObject("굴림체", 16, "3", 14, "@상황1", 53, 217, 50); //소통상황1 AddDefFormObject("굴림체", 16, "3", 23, "@종점명2", 85, 38, 82); //종점명2 AddDefFormObject("굴림체", 16, "2", 25, "@2분", 80, 161, 82); //통행시간2 AddDefFormObject("굴림체", 16, "3", 24, "@상황2", 53, 217, 82); //소통상황2 AddDefFormObject("굴림체", 16, "3", 33, "@종점명3", 85, 38, 117); //종점명3 AddDefFormObject("굴림체", 16, "2", 35, "@3분", 80, 161, 117); //통행시간3 AddDefFormObject("굴림체", 16, "3", 34, "@상황3", 53, 217, 117); //소통상황3 break; case 6: AddDefFormObject("굴림체", 18, "3", 18, "@지점명", 300, 18, 20); //지점명 AddDefFormObject("굴림체", 18, "3", 0, "주변", 126, 153, 20); //주변 AddDefFormObject("굴림체", 18, "1", 0, "정체 극심", 126, 222, 20); //정체극심 break; } } else { String sFontName = lblFontName->Caption; switch(ARows) { case 1: AddDefFormObject(sFontName, 18, "3", 12, "@StartName", 160, 16, 7); //@시점명 @StartName AddDefFormObject(sFontName, 18, "3", 13, "@EndName", 160, 213, 7); //@종점명 @EndName AddDefFormObject(sFontName, 18, "3", 14, "@Congest", 112, 64, 35); //@소통상황 @Congest AddDefFormObject(sFontName, 18, "2", 15, "@00Min", 80, 213, 35); //@통행시간 @00Min break; case 2: AddDefFormObject(sFontName, 16, "3", 0, "Location", 100, 31, 7); //현위치 Location AddDefFormObject(sFontName, 16, "3", 13, "@EndName1", 100, 133, 7); //종점명1 EndName1 AddDefFormObject(sFontName, 16, "3", 23, "@EndName2", 100, 265, 7); //종점명2 EndName2 AddDefFormObject(sFontName, 16, "2", 15, "@01Min", 80, 133, 35); //통행시간1 01Min AddDefFormObject(sFontName, 16, "2", 25, "@02Min", 80, 265, 35); //통행시간2 02Min break; case 3: AddDefFormObject(sFontName, 16, "3", 0, "From Location", 126, 7, 7); //현재위치부터 From Location AddDefFormObject(sFontName, 16, "3", 13, "@EndName1", 85, 38, 50); //종점명1 EndName1 AddDefFormObject(sFontName, 16, "2", 15, "@1Min", 80, 161, 50); //통행시간1 1Min AddDefFormObject(sFontName, 16, "3", 14, "@Congest1", 53, 217, 50); //소통상황1 Congest1 AddDefFormObject(sFontName, 16, "3", 23, "@EndName2", 85, 38, 82); //종점명2 EndName2 AddDefFormObject(sFontName, 16, "2", 25, "@2Min", 80, 161, 82); //통행시간2 2Min AddDefFormObject(sFontName, 16, "3", 24, "@Congest2", 53, 217, 82); //소통상황2 Congest2 AddDefFormObject(sFontName, 16, "3", 33, "@EndName3", 85, 38, 117); //종점명3 EndName3 AddDefFormObject(sFontName, 16, "2", 35, "@3Min", 80, 161, 117); //통행시간3 3Min AddDefFormObject(sFontName, 16, "3", 34, "@Congest3", 53, 217, 117); //소통상황3 Congest3 break; case 6: AddDefFormObject(sFontName, 18, "3", 18, "@SpotName", 300, 18, 20); //@지점명 @SpotName AddDefFormObject(sFontName, 18, "3", 0, "Around", 126, 153, 20); //주변 Around AddDefFormObject(sFontName, 18, "1", 0, "Congest Zam", 126, 222, 20); //정체극심 Congest Zam break; } } #if 0 (String AFontName, int AFontSize, String AFontColor, int AObjType, String AText, int ASize, int APosX, int APosY) #endif } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnDeleteClick(TObject *Sender) { int nIdx = TvList->DataController->FocusedRecordIndex; if (nIdx < 0) return; String sFormId = EdFormId->Text; if (sFormId.IsEmpty()) { Application->MessageBox(lblText2->Caption.c_str(),//L"VMS 폼 삭제\r\n삭제할 VMS 폼을 목록에서 선택하세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } if (!CheckVmsFormUse(sFormId)) return; String sMsg; sMsg = lblText3->Caption + ": " + sFormId;//"VMS 폼 ID: " + sFormId; sMsg+= "\r\n" + lblText4->Caption;//"선택하신 VMS 폼 정보를 삭제하시겠습니까?"; if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return; if (DelVmsForm(sFormId)) { FUpdate = true; Application->MessageBox(lblText5->Caption.c_str(),//L"VMS 폼 삭제\r\nVMS 폼정보를 삭제 하였습니다.", FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); FormClear(); ChangeEditMode(1); LoadVmsForm(); POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0); } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnSaveImgFileClick(TObject *Sender) { if (EdFormId->Text == "") return; SaveDialog->Title = FTitle; SaveDialog->InitialDir = ExtractFilePath(Application->ExeName); SaveDialog->Filter = "Bitmap image Files (*.bmp)|*.bmp"; SaveDialog->FileName = EdFormId->Text + ".bmp"; if (SaveDialog->Execute()) { try { String sFileName = SaveDialog->FileName; int iRet = sFileName.Pos(".bmp"); if (iRet == 0) { sFileName = SaveDialog->FileName + ".bmp"; } ImgForm->Picture->SaveToFile(sFileName); } catch (Exception &exception) { Application->ShowException(&exception); } } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::ClearSymbloList() { for(int ii = 0; ii < FListSymb->Count; ii++) { Graphics::TBitmap *bitmap = (Graphics::TBitmap *)FListSymb->Items[ii]; delete bitmap; } FListSymb->Clear(); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton, TShiftState AShift, bool &AHandled) { if (!ACellViewInfo) return; DisplayInfo(); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::TvListFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged) { if (!AFocusedRecord) return; DisplayInfo(); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::CbSizeTypePropertiesChange(TObject *Sender) { EdSizeType->Text = CbSizeType->Text; BtnSearchClick(NULL); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnSearchClick(TObject *Sender) { RefreshData(); EdFocus->SetFocus(); ChangeEditMode(1); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::RefreshData() { // 검색조건에 의한 링크 데이터 조회 FormClear(); LoadVmsForm(); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::FormClear() { FSelIdx = -1; ImgForm->Picture->Bitmap->FreeImage(); ImgForm->Picture->Bitmap = NULL; EdFormId->Clear(); EdFormName->Clear(); EdFormDesc->Clear(); CbFormKind->ItemIndex = 0; CbFormDispMode->ItemIndex = 1; CbFormDispDir->ItemIndex = 3; CbFormColor->ItemIndex = 0; FormObjectClear(); FNewDb = false; } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::FormObjectClear() { m_pEdtDesigner->Clear(); CMM_ClearGridTableView(TvObjList); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::DisplayInfo() { FormClear(); //m_pDesigner->Clear(); PgEdit->ActivePage = TsEdit; FSelIdx = TvList->DataController->FocusedRecordIndex; if( FSelIdx <= -1 ) return; DisplayFormInfo(FSelIdx); ChangeEditMode(3); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::DisplayFormInfo(int AIdx) { TcxGridDataController *pDc = TvList->DataController; if (AIdx < FListSymb->Count) { Graphics::TBitmap *bitmap = (Graphics::TBitmap*)FListSymb->Items[AIdx]; ImgForm->Picture->Bitmap->Assign(bitmap); } EdSizeType->Text = CbSizeType->Text; EdFormId->Text = VarToStr(pDc->Values[AIdx][Col01->Index]); EdFormName->Text = VarToStr(pDc->Values[AIdx][Col02->Index]); EdFormDesc->Text = VarToStr(pDc->Values[AIdx][Col03->Index]); CbFormColor->ItemIndex = VarToStr(pDc->Values[AIdx][Col08->Index]).ToIntDef(0); String sFormType = VarToStr(pDc->Values[AIdx][Col09->Index]); APP_SetCode(CbFormKind, sFormType); APP_SetCode(CbFormDispMode, VarToStr(pDc->Values[AIdx][Col06->Index])); APP_SetCode(CbFormDispDir, VarToStr(pDc->Values[AIdx][Col07->Index])); //m_pDesigner->BkColorCode = String(CbFormColor->ItemIndex); m_pEdtDesigner->BkColorCode = String(CbFormColor->ItemIndex); //LoadFormObjectInfo(EdFormId->Text, m_pDesigner, sFormType); LoadFormObjectInfo(EdFormId->Text, m_pEdtDesigner, sFormType); SelObjectListData(); MyUseManager->LoadFromDb(EdFormId->Text); } //--------------------------------------------------------------------------- String __fastcall TVMSM500M::FindObjectTypeName(String AFormType, String ATypeCd) { String sReturn = "--???--"; TVmsObjType *pObj = MyVmsObjTypeManager->FLists.Find(AFormType.ToIntDef(-1)); if (!pObj) return sReturn; TFormObjType *pType = pObj->FLists.Find(ATypeCd.ToIntDef(-1)); if (pType) sReturn = pType->NAME; return sReturn; } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::FnFormObjectSelected(TMessage &Msg) { #if 0 static long sLParam = -1; long cLParam = (long)Msg.LParam; if (sLParam == cLParam) { return; } sLParam = cLParam; #endif m_bEdit = true; try { ImgDesc99->Visible = false; Lbl99->Visible = false; Cb99->Visible = false; //Cb99->ItemIndex = 0; PnlIfsc->Visible = false; EdIfscId->Text = ""; TVmsFormObject *pObj = (TVmsFormObject *)Msg.LParam; if (!pObj) return; if (!pObj->Selected) return; EdObjSeq->Text = String(pObj->ObjSeq); if (pObj->ObjType.ToIntDef(0) == 91 || //@축통행시간(고정) pObj->ObjType.ToIntDef(0) == 92) //@축소통상황(고정) { PnlIfsc->Visible = true; EdIfscId->Text = pObj->Tag; } String sFormType = APP_GetCode(CbFormKind); if (sFormType == "15") { //도형식배경소통정보 if (pObj->ObjType.ToIntDef(0) == 0 || //문자열 pObj->ObjType.ToIntDef(0) == 1 || //심볼 pObj->ObjType.ToIntDef(0) == 2) //이미지 { ImgDesc99->Visible = true; Lbl99->Visible = true; Cb99->Visible = true; TNotifyEvent evt = Cb99->Properties->OnChange; Cb99->Properties->OnChange = NULL; APP_SetCode(Cb99, pObj->Tag); Cb99->Properties->OnChange = evt; } } EdObjId->Text = pObj->ObjId; ChkBlinking->Checked = pObj->Blink; CbBkColor->ItemIndex = pObj->BkColorCode.ToInt(); SeLeft->Value = pObj->GetLeft(); SeTop->Value = pObj->GetTop(); if (pObj->DrawType == odtText) { APP_SetCode(CbObjType, pObj->ObjType); APP_SetCode(CbFontName, pObj->FontNameCode); CbFontColor->ItemIndex = pObj->FontColorCode.ToInt(); SeFontSize->Value = pObj->FontSize; ChkFontBold->Checked = pObj->FontBold; CbTextAlign->ItemIndex = pObj->TextAlign; if (EdTextData->Text != pObj->Text) EdTextData->Text = pObj->Text; if (pObj->ObjType.ToIntDef(0) == 19) //소통정보(가변) { EdTextData->Properties->ReadOnly = true; } else { EdTextData->Properties->ReadOnly = false; } //CbTextType->Visible = true; //CbImageType->Visible= false; } else { APP_SetCode(CbObjType, pObj->ObjType); if (EdTextData->Text != pObj->Text) EdTextData->Text = pObj->Text; //CbTextType->Visible = false; //CbImageType->Visible= true; } TcxGridFocusedRecordChangedEvent evt = TvObjList->OnFocusedRecordChanged; TvObjList->OnFocusedRecordChanged = NULL; String sObjSeq = String(pObj->ObjSeq); CMM_SetGridRow(CxObjList, TvObjList, sObjSeq, ColSeq->Index); TvObjList->OnFocusedRecordChanged = evt; } catch(...) {} m_bEdit = false; } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::TvObjListFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged) { #if 0 if (AFocusedRecord == NULL) { return; } #endif ImgDesc99->Visible = false; Lbl99->Visible = false; Cb99->Visible = false; //Cb99->ItemIndex = 0; PnlIfsc->Visible = false; EdIfscId->Text = ""; if (TvObjList->ViewData->RecordCount <= 0) return; if (TvObjList->DataController->FocusedRowIndex < 0) return; TcxDataController *pGDC = TvObjList->DataController; int nIndex = pGDC->FocusedRecordIndex; String sObjSeq = pGDC->Values[nIndex][ColSeq->Index]; String sObjId = pGDC->Values[nIndex][ColId->Index]; EdObjSeq->Text = sObjSeq; //m_pEdtDesigner->SelectObject(sObjSeq.ToInt()); TVmsFormObject *pObj = m_pEdtDesigner->FindObject(sObjSeq.ToInt()); if (pObj) { if (pObj->ObjType.ToIntDef(0) == 91 || //@축통행시간(고정) pObj->ObjType.ToIntDef(0) == 92) //@축소통상황(고정) { PnlIfsc->Visible = true; EdIfscId->Text = pObj->Tag; } if (pObj->ObjType.ToIntDef(0) == 19) //소통정보(가변) { EdTextData->Properties->ReadOnly = true; } else { EdTextData->Properties->ReadOnly = false; } String sFormType = APP_GetCode(CbFormKind); if (sFormType == "15") { //도형식배경소통정보 if (pObj->ObjType.ToIntDef(0) == 0 || //문자열 pObj->ObjType.ToIntDef(0) == 1 || //심볼 pObj->ObjType.ToIntDef(0) == 2) //이미지 { ImgDesc99->Visible = true; Lbl99->Visible = true; Cb99->Visible = true; TNotifyEvent evt = Cb99->Properties->OnChange; Cb99->Properties->OnChange = NULL; APP_SetCode(Cb99, pObj->Tag); Cb99->Properties->OnChange = evt; } } } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::SelObjectListData() { CMM_ClearGridTableView(TvObjList); int nObjCnt = m_pEdtDesigner->GetObjectCount(); TVmsFormObject *pObj; for(int ii = 0; ii < nObjCnt; ii++) { pObj = m_pEdtDesigner->GetObject(ii); if (pObj) { AddObjectToList(pObj); } } if (TvObjList->DataController->RecordCount > 0) TvObjList->DataController->FocusedRecordIndex = 0; } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::AddObjectToList(TVmsFormObject *pObj, bool bSelect/*=false*/) { int nAddRow = -1; String sFormType = APP_GetCode(CbFormKind); TcxGridDataController *pGDC = TvObjList->DataController; try { TvObjList->BeginUpdate(); pGDC->BeginUpdate(); nAddRow = pGDC->AppendRecord(); pGDC->Values[nAddRow][ColSeq->Index] = String(pObj->ObjSeq); pGDC->Values[nAddRow][ColId->Index] = String(pObj->ObjId); pGDC->Values[nAddRow][ColType->Index] = FindObjectTypeName(sFormType, pObj->ObjType); pGDC->Values[nAddRow][ColData->Index] = pObj->Text; #if 0 if (pObj->ObjKind == OBJKIND_TEXT) { pGDC->Values[nAddRow][ColKind->Index] = "문자열"; pGDC->Values[nAddRow][ColType->Index] = "";//GetComboBoxCodeName(CbTextType, pObj->ObjType); pGDC->Values[nAddRow][ColData->Index] = pObj->Text; } else if (pObj->ObjKind == OBJKIND_IMAGE) { pGDC->Values[nAddRow][ColKind->Index] = "이미지"; pGDC->Values[nAddRow][ColType->Index] = "";//GetComboBoxCodeName(CbImageType, pObj->ObjType); pGDC->Values[nAddRow][ColData->Index] = pObj->Text; } else if (pObj->ObjKind == OBJKIND_IMAGEID) { pGDC->Values[nAddRow][ColKind->Index] = "이미지ID"; pGDC->Values[nAddRow][ColType->Index] = "";//GetComboBoxCodeName(CbImageType, pObj->ObjType); pGDC->Values[nAddRow][ColData->Index] = pObj->Text + " [" + pObj->ImageId + "]"; } #endif //pGDC->Values[nAddRow][ColX->Index] = String(pObj->GetLeft()); //pGDC->Values[nAddRow][ColY->Index] = String(pObj->GetTop()); pGDC->Values[nAddRow][ColIfscId->Index] = pObj->Tag; pGDC->Values[nAddRow][ColMem->Index] = (int)pObj; } __finally { pGDC->EndUpdate(); TvObjList->EndUpdate(); if (bSelect && pGDC->RecordCount > 0) if (nAddRow >= 0) pGDC->FocusedRecordIndex = nAddRow; } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnSortReClick(TObject *Sender) { TcxButton *pBtn = (TcxButton *)Sender; ReForm->Paragraph->Numbering = nsNone; ReForm->Paragraph->Alignment = (TAlignment)pBtn->Tag; } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnBoldReClick(TObject *Sender) { if (ReForm->SelAttributes->Style.Contains(fsBold)) ReForm->SelAttributes->Style = TFontStyles() >> fsBold; else ReForm->SelAttributes->Style = TFontStyles() << fsBold; } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::SeFontSizeRePropertiesChange(TObject *Sender) { if (((TcxSpinEdit*)Sender)->Value < ((TcxSpinEdit*)Sender)->Properties->MinValue) ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MinValue; else if(((TcxSpinEdit*)Sender)->Value > ((TcxSpinEdit*)Sender)->Properties->MaxValue && ((TcxSpinEdit*)Sender)->Properties->MaxValue) ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MaxValue; ReForm->SelAttributes->Size = ((TcxSpinEdit*)Sender)->Value; } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::CbFontColorReClick(TObject *Sender) { switch(CbFontColorRe->ItemIndex) { case 0 : ReForm->SelAttributes->Color = clBlack; break; case 1 : ReForm->SelAttributes->Color = clRed; break; case 2 : ReForm->SelAttributes->Color = clLime; break; case 3 : default: ReForm->SelAttributes->Color = clYellow; break; } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::CbFontNameReClick(TObject *Sender) { String sFontCode = APP_GetCode(CbFontNameRe); String sFontName = APP_GetCodeName(CbFontNameRe, sFontCode); ReForm->SelAttributes->Name = sFontName; } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::ReFormChange(TObject *Sender) { if (ChkAutoPreview->Checked) BtnPreviewClick(NULL); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::ChkAutoPreviewClick(TObject *Sender) { if (ChkAutoPreview->Checked) BtnPreviewClick(NULL); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnPreviewClick(TObject *Sender) { m_pEdtDesigner->PreviewDrawForm(ReForm, ReFormTemp, ImgEdtPreview); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnReApplyClick(TObject *Sender) { BtnPreviewClick(NULL); m_pEdtDesigner->AddDrawFormToVmsForm(ReForm, ImgEdtPreview); /* * 신규로 등록한 객체의 객체타입과 폰트코드를 업데이트 한다. */ CbVmsObjType->ItemIndex = 0; // For 고정문자열 String sObjType = APP_GetCode(CbVmsObjType); TVmsFormObject *pObj; int nObjCnt = m_pEdtDesigner->GetObjectCount(); for (int ii = 0; ii < nObjCnt; ii++) { pObj = m_pEdtDesigner->GetObject(ii); if (pObj->ObjType == "XXX" && pObj->FontNameCode == "XXX") { pObj->ObjType = sObjType; pObj->FontNameCode = APP_GetCodeIdByName(CbFontName, pObj->FontName); } } PgEdit->ActivePageIndex = 0; SelObjectListData(); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::CbFormKindPropertiesChange(TObject *Sender) { CbVmsObjType->Properties->Items->Clear(); CbObjType->Properties->Items->Clear(); String sFormType = APP_GetCode(CbFormKind); int nFormKind = sFormType.ToIntDef(0); TVmsObjType *pObj = MyVmsObjTypeManager->FLists.Find(nFormKind); if (!pObj) return; FOR_STL(TFormObjType*, pType, pObj->FLists) { String sType; sType.printf(L"%2d", pType->TYPE); sType = pType->TYPE; CbVmsObjType->Properties->Items->Add(" [" + sType + "] " + pType->NAME); CbObjType->Properties->Items->Add(" [" + sType + "] " + pType->NAME); } CbVmsObjType->ItemIndex = 0; CbObjType->ItemIndex = 0; //EdFocus->SetFocus(); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::CbFormColorClick(TObject *Sender) { m_pEdtDesigner->SetBkColor(String(CbFormColor->ItemIndex)); //m_pDesigner->BkColorCode = APP_GetCode(CbFormColor); //m_pEdtDesigner->BkColorCode = m_pDesigner->BkColorCode; } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnMoveClick(TObject *Sender) { if (m_bEdit) return; TcxButton *pBtn = (TcxButton *)Sender; switch(pBtn->Tag) { case 0: m_pEdtDesigner->StepMoveLeft(); break; case 1: m_pEdtDesigner->StepMoveRight(); break; case 2: m_pEdtDesigner->StepMoveUp(); break; case 3: m_pEdtDesigner->StepMoveDown(); break; } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnAlignClick(TObject *Sender) { if (m_bEdit) return; TcxButton *pBtn = (TcxButton *)Sender; if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return; switch(pBtn->Tag) { case 0: m_pEdtDesigner->SetLeftAlign(m_pEdtDesigner->GetLeftAlign()); break; case 1: m_pEdtDesigner->SetRightAlign(m_pEdtDesigner->GetRightAlign()); break; case 2: m_pEdtDesigner->SetTopAlign(m_pEdtDesigner->GetTopAlign()); break; case 3: m_pEdtDesigner->SetBottomAlign(m_pEdtDesigner->GetBottomAlign()); break; } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnCenterClick(TObject *Sender) { if (m_bEdit) return; TcxButton *pBtn = (TcxButton *)Sender; if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return; switch(pBtn->Tag) { case 0: m_pEdtDesigner->SetAlignWidthCenter(); break; case 1: m_pEdtDesigner->SetAlignHeightCenter(); break; } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::SePosPropertiesChange(TObject *Sender) { if (m_bEdit) return; if (((TcxSpinEdit*)Sender)->Value < ((TcxSpinEdit*)Sender)->Properties->MinValue) ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MinValue; else if(((TcxSpinEdit*)Sender)->Value > ((TcxSpinEdit*)Sender)->Properties->MaxValue && ((TcxSpinEdit*)Sender)->Properties->MaxValue) ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MaxValue; TcxSpinEdit *pPos = (TcxSpinEdit*)Sender; if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return; int nValue = pPos->Value; switch(pPos->Tag) { case 0: m_pEdtDesigner->MoveLeft(nValue); break; case 1: m_pEdtDesigner->MoveUp(nValue); break; } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::CbBkColorClick(TObject *Sender) { if (m_bEdit) return; //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return; m_pEdtDesigner->SetObjectBkColorCode(String(CbBkColor->ItemIndex)); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::ChkBlinkingClick(TObject *Sender) { if (m_bEdit) return; //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return; m_pEdtDesigner->SetObjectBlink(ChkBlinking->Checked); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::EdTextDataKeyPress(TObject *Sender, wchar_t &Key) { if (m_bEdit) return; if (Key == '\'') { Key = '`'; } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::EdTextDataPropertiesChange(TObject *Sender) { if (m_bEdit) return; //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return; m_pEdtDesigner->SetObejctText(EdTextData->Text); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::Button1Click(TObject *Sender) { TVmsFormObject *pObj; int nObjCnt = m_pEdtDesigner->GetObjectCount(); for (int ii = 0; ii < nObjCnt; ii++) { pObj = m_pEdtDesigner->GetObject(ii); if (!pObj->Selected) continue; if (pObj->ObjKind != OBJKIND_TEXT) continue; pObj->SetRuntimeText(Edit1->Text); } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::SeFontSizePropertiesChange(TObject *Sender) { if (m_bEdit) return; if (((TcxSpinEdit*)Sender)->Value < ((TcxSpinEdit*)Sender)->Properties->MinValue) ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MinValue; else if(((TcxSpinEdit*)Sender)->Value > ((TcxSpinEdit*)Sender)->Properties->MaxValue && ((TcxSpinEdit*)Sender)->Properties->MaxValue) ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MaxValue; //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return; int nFontSize = SeFontSize->Value; m_pEdtDesigner->SetObejctFontSize(nFontSize); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::CbFontNamePropertiesChange(TObject *Sender) { if (m_bEdit) return; //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return; String sFontCode = APP_GetCode(CbFontName); String sFontName = APP_GetCodeName(CbFontName, sFontCode); m_pEdtDesigner->SetObejctFontName(sFontName.Trim()); m_pEdtDesigner->SetObejctFontNameCode(sFontCode); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::CbFontColorClick(TObject *Sender) { if (m_bEdit) return; //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return; m_pEdtDesigner->SetObejctFontColorCode(String(CbFontColor->ItemIndex)); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::CbTextAlignPropertiesChange(TObject *Sender) { if (m_bEdit) return; //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return; m_pEdtDesigner->SetObejctTextAlign(CbTextAlign->ItemIndex); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::EdObjIdPropertiesChange(TObject *Sender) { if (m_bEdit) return; //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return; try { int nObjId; TryStrToInt(EdObjId->Text.Trim(), nObjId); m_pEdtDesigner->SetObejctId(nObjId); } catch(...) {} } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::ChkFontBoldClick(TObject *Sender) { if (m_bEdit) return; //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return; m_pEdtDesigner->SetObejctFontBold(ChkFontBold->Checked); } //--------------------------------------------------------------------------- bool __fastcall TVMSM500M::GetNextVmsImgeId(int &ANmbr) { String sQry; TADOQuery *pADO = NULL; sQry = "SELECT NVL(MAX(SYMBLIB_NMBR), 5999)+1 AS NEWID FROM TB_VMS_SYMB_LIB WHERE SYMBLIB_NMBR BETWEEN 6000 AND 6999 \r\n"; try { try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); pADO->SQL->Clear(); pADO->SQL->Text = sQry; pADO->Open(); ANmbr = pADO->FieldByName("NEWID")->AsInteger; return true; } catch(EDatabaseError &E) { DBERRORLOG("VMS Image ID Query", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORLOG("VMS Image ID Query", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } } return false; } //--------------------------------------------------------------------------- bool __fastcall TVMSM500M::InsertVmsImage(String ANmbr, String AExpl, String ATypeCd) { String sQry; TADOQuery *pADO = NULL; sQry = "INSERT INTO TB_VMS_SYMB_LIB(SYMBLIB_NMBR, RGST_DT, SYMB_EXPL, IMAG_DATA, VMS_TYPE_CD) \r\n" " VALUES(:p01, :p02, :p03, :p04, :p05) \r\n"; int nRowHeight = 0; TMemoryStream *dataStream = new TMemoryStream(); ImgEdtTemp->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); pADO->ExecSQL(); return true; } catch(EDatabaseError &E) { DBERRORMSG("VMS Iamge Update", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { DBERRORMSG("MS Iamge 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; } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::OpenBmpCanClose(TObject *Sender, bool &CanClose) { String sFName = OpenBmp->FileName; sFName = sFName.UpperCase(); if (sFName.SubString(sFName.Length()-2, 3) != "BMP") { Application->MessageBox(FrmLang->lblImage11->Caption.c_str(),//L"BMP 파일만 적용 가능합니다.", lblImage1->Caption.c_str(),//L"VMS 이미지 선택", MB_OK|MB_ICONWARNING|MB_APPLMODAL); return; } try { DWORD dwFileSize = ITSUtil_GetFileSize(sFName); if (dwFileSize <= 0) { Application->MessageBox(FrmLang->lblImage12->Caption.c_str(),//L"이미지 파일을 읽어 오는데 실패하였습니다.", lblImage1->Caption.c_str(),//L"VMS 이미지 선택", MB_OK|MB_ICONWARNING|MB_APPLMODAL); return; } if (dwFileSize > (1024 * 32)) // Max 32Kbytes { Application->MessageBox(FrmLang->lblImage13->Caption.c_str(),//L"이미지 파일의 최대 크기는 32KBytes를 넘을 수 없습니다.\r\n이미지 파일의 용량을 줄여 주세요.", lblImage1->Caption.c_str(),//L"VMS 이미지 선택", MB_OK|MB_ICONWARNING|MB_APPLMODAL); return; } ImgEdtTemp->Picture->Bitmap->FreeImage(); ImgEdtTemp->Picture->Bitmap = NULL; ImgEdtTemp->Picture->Bitmap->LoadFromFile(sFName); String sExpl = EdFormId->Text.Trim(); int nNmbr; if (!GetNextVmsImgeId(nNmbr)) { Application->MessageBox(FrmLang->lblImage4->Caption.c_str(),//L"새로운 VMS 이미지정보를 생성하지 못하였습니다.\r\n프로그램 종료후에 다시 시도해 보세요.", lblImage1->Caption.c_str(),//L"VMS 이미지 선택", MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } if (!InsertVmsImage(String(nNmbr), sExpl, "VMP0")) { Application->MessageBox(FrmLang->lblImage4->Caption.c_str(),//L"새로운 VMS 이미지정보를 저장하지 못하였습니다.\r\n프로그램 종료후에 다시 시도해 보세요.", lblImage1->Caption.c_str(),//L"VMS 이미지 선택", MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } TVmsFormObject *pObj = m_pEdtDesigner->AddObject(odtBmp); if (!pObj) return; int nNewObjSeq = m_pEdtDesigner->GetNewObjectSeq(); EdObjSeq->Text = String(nNewObjSeq); pObj->ObjSeq = nNewObjSeq; pObj->ObjKind = OBJKIND_IMAGE; // "1" pObj->ObjType = "2"; pObj->ObjSize = (int)dwFileSize; pObj->BkColorCode = m_pEdtDesigner->BkColorCode; pObj->Blink = false; pObj->Tag = "N"; pObj->SetBitmap(ImgEdtTemp->Picture->Bitmap); pObj->Text = lblFile1->Caption;//"파일이미지";//ExtractShortPathName(sFName).c_str(); pObj->ImageId = String(nNmbr); pObj->SetPos(0, 0); pObj->EditMode = true; pObj->Show(); AddObjectToList(pObj, true); } catch(...) { return; } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnAddTextClick(TObject *Sender) { if (CbVmsObjType->ItemIndex < 0) return; String sFormType = APP_GetCode(CbFormKind); String sObjType = APP_GetCode(CbVmsObjType); int nObjType = sObjType.ToIntDef(0); String sObjText = FindObjectTypeName(sFormType, sObjType); String sFontName = FrmLang->lblFontName->Caption;//"굴림체"; String sFontNameCode = "3"; String sFontColorCode = "2"; //Green String sFontSize = 18; bool bFontBold = true; switch(nObjType) { case 1: //이미지 심볼 case 3: //소통정보배경이미지 case 17: //@소통이미지1 case 27: //@소통이미지2 case 37: //@소통이미지3 case 47: //@소통이미지4 { TVMSM510M *pSelForm = new TVMSM510M(this); if (nObjType == 1 || nObjType == 3) { pSelForm->FImageType = nObjType; } else { pSelForm->FImageType = 2; } pSelForm->ShowModal(); if (!pSelForm->m_bSelected) { delete pSelForm; return; } TVmsFormObject *pObj = m_pEdtDesigner->AddObject(odtBmp); if (!pObj) return; int nNewObjSeq = m_pEdtDesigner->GetNewObjectSeq(); EdObjSeq->Text = String(nNewObjSeq); pObj->ObjSeq = nNewObjSeq; pObj->ObjKind = OBJKIND_IMAGEID; // "2" pObj->ObjType = sObjType; pObj->ObjSize = pSelForm->ImgPreView->Picture->Bitmap->Width * pSelForm->ImgPreView->Picture->Bitmap->Height; pObj->BkColorCode = m_pEdtDesigner->BkColorCode; pObj->Blink = false; pObj->Tag = "N"; pObj->Text = sObjText; pObj->ImageId = pSelForm->EdNmbr->Text; pObj->SetBitmap(pSelForm->ImgPreView->Picture->Bitmap); pObj->SetPos(0, 0); pObj->Show(); AddObjectToList(pObj, true); delete pSelForm; } break; case 2: //파일이미지 OpenBmp->FileName = ""; OpenBmp->Execute(); break; #if 0 case 17: //@방향이미지1 case 27: //@방향이미지2 case 37: //@방향이미지3 case 47: //@방향이미지4 { TVmsFormObject *pObj = m_pEdtDesigner->AddObject(odtBmp); if (!pObj) return; int nNewObjSeq = m_pEdtDesigner->GetNewObjectSeq(); EdObjSeq->Text = String(nNewObjSeq); pObj->ObjSeq = nNewObjSeq; pObj->ObjKind = OBJKIND_IMAGEID; // "2" pObj->ObjType = sObjType; pObj->ObjSize = ImgDir->Picture->Bitmap->Width * ImgDir->Picture->Bitmap->Height; pObj->BkColorCode = m_pEdtDesigner->BkColorCode; pObj->Blink = false; //pObj->Text = CbVmsObjType->Text; pObj->Text = sObjText; pObj->ImageId = "0"; pObj->SetBitmap(ImgDir->Picture->Bitmap); pObj->SetPos(0, 0); pObj->Show(); AddObjectToList(pObj, true); } break; #endif default: { TVmsFormObject *pObj = m_pEdtDesigner->AddObject(odtText); if (!pObj) return; int nNewObjSeq = m_pEdtDesigner->GetNewObjectSeq(); EdObjSeq->Text = String(nNewObjSeq); pObj->ObjSeq = nNewObjSeq; pObj->ObjType = sObjType; if (nObjType == 91 || nObjType == 92) //축통행시간,소통상황(고정) pObj->Tag = "0"; else pObj->Tag = "N"; pObj->TextAlign = 0; // left if (nObjType == 19) //소통정보(가변) { #ifdef ENG sObjText = "@Traffic Fast About 0 Min."; #else sObjText = "@소통원활 약 0 분"; #endif pObj->TextAlign = 2; // center EdTextData->Properties->ReadOnly = true; } else { EdTextData->Properties->ReadOnly = false; } pObj->ObjSize = sObjText.Length(); pObj->BkColorCode = m_pEdtDesigner->BkColorCode; pObj->Blink = false; pObj->Text = sObjText; pObj->EditMode = true; pObj->ObjKind = OBJKIND_TEXT; pObj->FontName = sFontName; pObj->FontNameCode = sFontNameCode; pObj->FontColorCode = sFontColorCode; pObj->FontSize = sFontSize.ToInt(); pObj->FontBold = bFontBold; pObj->SetPos(0, 0); pObj->Show(); AddObjectToList(pObj, true); } break; } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnObjDeleteClick(TObject *Sender) { if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return; String sMsgString; sMsgString = lblText6->Caption;//"선택한 객체 정보를 모두 삭제하시겠습니까?"; if (Application->MessageBox(sMsgString.c_str(), lblText7->Caption.c_str(),//L"객체 정보 삭제", MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) { return; } bool bUse = false; TVmsFormObject *pObj; int nObjCnt = m_pEdtDesigner->GetObjectCount(); for (int ii = nObjCnt-1; ii >= 0; ii--) { pObj = m_pEdtDesigner->GetObject(ii); if (pObj->Selected) { TVmsObjUse*pObjUse = MyUseManager->FLists.Find(pObj->ObjSeq); if (pObjUse) { bUse = true; continue; } m_pEdtDesigner->DelObject(ii); } } if (bUse) { Application->MessageBox(lblText8->Caption.c_str(),//L"VMS 폼 객체 삭제\r\nVMS 폼 객체 중 정보제공구간에 설정된 객체는 삭제할 수 없습니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); } SelObjectListData(); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::ColXGetDataText(TcxCustomGridTableItem *Sender, int ARecordIndex, UnicodeString &AText) { if (ARecordIndex < 0) return; try { int nMemPtr = (int)(TvObjList->DataController->Values[ARecordIndex][ColMem->Index]); TVmsFormObject *pObj = (TVmsFormObject*)nMemPtr; if (pObj) { AText = pObj->GetLeft(); } } catch(Exception &e) {} } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::ColYGetDataText(TcxCustomGridTableItem *Sender, int ARecordIndex, UnicodeString &AText) { if (ARecordIndex < 0) return; try { int nMemPtr = (int)(TvObjList->DataController->Values[ARecordIndex][ColMem->Index]); TVmsFormObject *pObj = (TVmsFormObject*)nMemPtr; if (pObj) { AText = pObj->GetTop(); } } catch(Exception &e) {} } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::CbVmsObjTypeClick(TObject *Sender) { if (BtnAddText->CanFocus()) { BtnAddText->SetFocus(); } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::EdIfscIdClick(TObject *Sender) { TVMSM530M *pSelForm = new TVMSM530M(this); pSelForm->EdNmbr->Text = EdIfscId->Text.Trim(); pSelForm->ShowModal(); String sIfscId = pSelForm->EdNmbr->Text.Trim(); bool bSelected = pSelForm->m_bSelected; delete pSelForm; pSelForm = NULL; if (!bSelected) { return; } if (sIfscId != "") { EdIfscId->Text = sIfscId; } UpdateObjectIfscId(); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnIfscEraseClick(TObject *Sender) { EdIfscId->Text = ""; UpdateObjectIfscId(); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::UpdateObjectIfscId() { TVmsFormObject *pObj; int nObjCnt = m_pEdtDesigner->GetObjectCount(); for (int ii = nObjCnt-1; ii >= 0; ii--) { pObj = m_pEdtDesigner->GetObject(ii); if (pObj->Selected) { if (pObj->ObjType.ToIntDef(0) == 91 || //@축통행시간(고정) pObj->ObjType.ToIntDef(0) == 92) //@축소통상황(고정) { pObj->Tag = EdIfscId->Text.Trim(); } } } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnCopyAddClick(TObject *Sender) { int nIdx = TvList->DataController->FocusedRecordIndex; if (nIdx < 0) return; String sFormName = InputBox(lblText9->Caption,//"폼명칭", lblText10->Caption,//"신규 폼명칭 입력하세요(60Byte).", lblText9->Caption);//"폼명칭" ); sFormName = sFormName.Trim(); if (sFormName == lblText9->Caption//"폼명칭" || sFormName == "") { return; } if (AnsiString(sFormName).Length() > 60) { Application->MessageBox(lblText11->Caption.c_str(),//L"폼명칭은 60Byte를 초과할 수 없습니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } String sFormId = EdFormId->Text; if (sFormId.IsEmpty()) { Application->MessageBox(lblText12->Caption.c_str(),//L"VMS 폼 복사 추가\r\n복사 추가할 VMS 폼을 목록에서 선택하세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } int nFormId; if (!GetNextVmsFormId(nFormId)) { Application->MessageBox(lblText1->Caption.c_str(),//L"새로운 VMS 폼정보를 생성하지 못하였습니다.\r\n프로그램 종료후에 다시 시도해 보세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } if (CopyFormAdd(sFormId, String(nFormId), sFormName)) { Application->MessageBox(lblText13->Caption.c_str(),//L"VMS 폼 복사 추가\r\nVMS 폼 정보를 복사 추가 하였습니다.", FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); FUpdate = true; LoadVmsForm(); CMM_SetGridRow(CxList, TvList, String(nFormId), Col01->Index); DisplayInfo(); POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0); VComm_VmsFormUpdate(); } } //--------------------------------------------------------------------------- bool __fastcall TVMSM500M::CopyFormAdd(String AOrgFormId, String ANewFormId, String AFormName) { bool bResult = false; String sQry; TADOQuery *pADO = NULL; try { try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); sQry = "INSERT INTO TB_VMS_FORM (VMS_FORM_ID, \r\n" " VMS_TYPE_CD, \r\n" " VMS_FORM_TYPE_CD, \r\n" " VMS_FORM_BCKG_HUE_CD, \r\n" " VMS_FORM_NM, \r\n" " VMS_FORM_EXPL, \r\n" " VMS_MSG_DSPL_DRCT_CD, \r\n" " SYMBLIB_NMBR, \r\n" " VMS_FORM_IMAG, \r\n" " VMS_MSG_DSPL_MTHD_CD, \r\n" " CCTV_MNGM_NMBR) \r\n" "SELECT :p01, \r\n" " VMS_TYPE_CD, \r\n" " VMS_FORM_TYPE_CD, \r\n" " VMS_FORM_BCKG_HUE_CD, \r\n" " :p02, \r\n" " VMS_FORM_EXPL, \r\n" " VMS_MSG_DSPL_DRCT_CD, \r\n" " SYMBLIB_NMBR, \r\n" " VMS_FORM_IMAG, \r\n" " VMS_MSG_DSPL_MTHD_CD, \r\n" " CCTV_MNGM_NMBR \r\n" " FROM TB_VMS_FORM \r\n" " WHERE VMS_FORM_ID = :p03 \r\n"; ITSDb_GetConnection()->BeginTrans(); ITSDb_SQLText(pADO, sQry); ITSDb_SQLBind(pADO, "p01", ANewFormId); ITSDb_SQLBind(pADO, "p02", AFormName); ITSDb_SQLBind(pADO, "p03", AOrgFormId); pADO->ExecSQL(); sQry = "INSERT INTO TB_VMS_FORM_OBJECT ( \r\n" " FORM_OBJECT_ID, \r\n" " VMS_FORM_ID, \r\n" " VMS_FORM_DSPL_ROW, \r\n" " VMS_FORM_DSPL_CLMN, \r\n" " VMS_FORM_OBJECT_TYPE_CD, \r\n" " VMS_FONT_TYPE_CD, \r\n" " VMS_FONT_HUE_CD, \r\n" " VMS_FONT_STYL_CD, \r\n" " VMS_FONT_SIZE, \r\n" " VMS_FONT_ALIGN, \r\n" " VMS_DSPL_TXT, \r\n" " VMS_DSPL_FIGR, \r\n" " VMS_DSPL_XCRDN, \r\n" " VMS_DSPL_YCRDN, \r\n" " VMS_DSPL_WIDTH, \r\n" " VMS_DSPL_HEIGHT, \r\n" " VMS_DSPL_BLINKING, \r\n" " VMS_DSPL_BKCOLOR, \r\n" " VMS_DSPL_SIZE, \r\n" " TRFC_FILL_CD, \r\n" " SYMBLIB_NMBR, \r\n" " VMS_IFSC_ID \r\n" " ) \r\n" " SELECT \r\n" " FORM_OBJECT_ID, \r\n" " :p01, \r\n" " VMS_FORM_DSPL_ROW, \r\n" " VMS_FORM_DSPL_CLMN, \r\n" " VMS_FORM_OBJECT_TYPE_CD, \r\n" " VMS_FONT_TYPE_CD, \r\n" " VMS_FONT_HUE_CD, \r\n" " VMS_FONT_STYL_CD, \r\n" " VMS_FONT_SIZE, \r\n" " VMS_FONT_ALIGN, \r\n" " VMS_DSPL_TXT, \r\n" " VMS_DSPL_FIGR, \r\n" " VMS_DSPL_XCRDN, \r\n" " VMS_DSPL_YCRDN, \r\n" " VMS_DSPL_WIDTH, \r\n" " VMS_DSPL_HEIGHT, \r\n" " VMS_DSPL_BLINKING, \r\n" " VMS_DSPL_BKCOLOR, \r\n" " VMS_DSPL_SIZE, \r\n" " TRFC_FILL_CD, \r\n" " SYMBLIB_NMBR, \r\n" " VMS_IFSC_ID \r\n" " FROM TB_VMS_FORM_OBJECT \r\n" " WHERE VMS_FORM_ID = :p02 \r\n"; ITSDb_SQLText(pADO, sQry); ITSDb_SQLBind(pADO, "p01", ANewFormId); ITSDb_SQLBind(pADO, "p02", AOrgFormId); pADO->ExecSQL(); ITSDb_GetConnection()->CommitTrans(); bResult = true; } catch(EDatabaseError &E) { ITSDb_GetConnection()->RollbackTrans(); DBERRORMSG("VMS Copy Add", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { ITSDb_GetConnection()->RollbackTrans(); DBERRORMSG("VMS Copy Add", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } } return bResult; } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnUpClick(TObject *Sender) { try { TvObjList->BeginUpdate(); int nCurIdx = TvObjList->DataController->FocusedRowIndex;//FocusedRecordIndex; if (nCurIdx <= 0) { return; } int nUpIdx = nCurIdx-1; try { String sVal1 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColSeq->Index]); String sVal2 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColId->Index]); String sVal3 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColType->Index]); String sVal4 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColData->Index]); String sVal5 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColIfscId->Index]); int sVal6 = (TvObjList->DataController->Values[nCurIdx][ColMem->Index]); TvObjList->DataController->Values[nCurIdx][ColSeq->Index] = TvObjList->DataController->Values[nUpIdx][ColSeq->Index]; TvObjList->DataController->Values[nCurIdx][ColId->Index] = TvObjList->DataController->Values[nUpIdx][ColId->Index]; TvObjList->DataController->Values[nCurIdx][ColType->Index] = TvObjList->DataController->Values[nUpIdx][ColType->Index]; TvObjList->DataController->Values[nCurIdx][ColData->Index] = TvObjList->DataController->Values[nUpIdx][ColData->Index]; TvObjList->DataController->Values[nCurIdx][ColIfscId->Index] = TvObjList->DataController->Values[nUpIdx][ColIfscId->Index]; TvObjList->DataController->Values[nCurIdx][ColMem->Index] = TvObjList->DataController->Values[nUpIdx][ColMem->Index]; TvObjList->DataController->Values[nUpIdx][ColSeq->Index] = sVal1; TvObjList->DataController->Values[nUpIdx][ColId->Index] = sVal2; TvObjList->DataController->Values[nUpIdx][ColType->Index] = sVal3; TvObjList->DataController->Values[nUpIdx][ColData->Index] = sVal4; TvObjList->DataController->Values[nUpIdx][ColIfscId->Index] = sVal5; TvObjList->DataController->Values[nUpIdx][ColMem->Index] = sVal6; TvObjList->Controller->ClearSelection(); TvObjList->Controller->FocusedRowIndex = nUpIdx; //TvObjList->Controller->FocusedRecordIndex = nUpIdx; TvObjList->ViewData->Records[nUpIdx]->Focused = true; TvObjList->ViewData->Records[nUpIdx]->Selected = true; CxObjList->SetFocus(); //TcxCustomGridRow* ARow = TvObjList->ViewData->Rows[TvObjList->DataController->FocusedRowIndex]; } catch(...) { } } __finally { TvObjList->EndUpdate(); } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnDownClick(TObject *Sender) { try { TvObjList->BeginUpdate(); int nCurIdx = TvObjList->DataController->FocusedRowIndex;//FocusedRecordIndex; //int nCurIdx = TvObjList->DataController->FocusedRecordIndex; if (nCurIdx < 0) { return; } if (nCurIdx == TvObjList->DataController->RecordCount-1) { return; } int nDnIdx = nCurIdx+1; try { String sVal1 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColSeq->Index]); String sVal2 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColId->Index]); String sVal3 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColType->Index]); String sVal4 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColData->Index]); String sVal5 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColIfscId->Index]); int sVal6 = (TvObjList->DataController->Values[nCurIdx][ColMem->Index]); TvObjList->DataController->Values[nCurIdx][ColSeq->Index] = TvObjList->DataController->Values[nDnIdx][ColSeq->Index]; TvObjList->DataController->Values[nCurIdx][ColId->Index] = TvObjList->DataController->Values[nDnIdx][ColId->Index]; TvObjList->DataController->Values[nCurIdx][ColType->Index] = TvObjList->DataController->Values[nDnIdx][ColType->Index]; TvObjList->DataController->Values[nCurIdx][ColData->Index] = TvObjList->DataController->Values[nDnIdx][ColData->Index]; TvObjList->DataController->Values[nCurIdx][ColIfscId->Index] = TvObjList->DataController->Values[nDnIdx][ColIfscId->Index]; TvObjList->DataController->Values[nCurIdx][ColMem->Index] = TvObjList->DataController->Values[nDnIdx][ColMem->Index]; TvObjList->DataController->Values[nDnIdx][ColSeq->Index] = sVal1; TvObjList->DataController->Values[nDnIdx][ColId->Index] = sVal2; TvObjList->DataController->Values[nDnIdx][ColType->Index] = sVal3; TvObjList->DataController->Values[nDnIdx][ColData->Index] = sVal4; TvObjList->DataController->Values[nDnIdx][ColIfscId->Index] = sVal5; TvObjList->DataController->Values[nDnIdx][ColMem->Index] = sVal6; TvObjList->Controller->ClearSelection(); TvObjList->Controller->FocusedRowIndex = nDnIdx; //TvObjList->Controller->FocusedRecordIndex = nDnIdx; TvObjList->ViewData->Records[nDnIdx]->Focused = true; TvObjList->ViewData->Records[nDnIdx]->Selected = true; CxObjList->SetFocus(); //TcxCustomGridRow* ARow = TvObjList->ViewData->Rows[TvObjList->DataController->FocusedRowIndex]; } catch(...) { } } __finally { TvObjList->EndUpdate(); } } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::BtnSaveClick(TObject *Sender) { if (EdFormId->Text.IsEmpty()) { Application->MessageBox(lblText14->Caption.c_str(),//L"VMS 폼 저장\r\nVMS 폼 ID를 입력하세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } if (EdFormName->Text.Trim().IsEmpty()) { Application->MessageBox(lblText15->Caption.c_str(),//L"VMS 폼 저장\r\nVMS 폼 이름을 입력하세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } String sFormId = EdFormId->Text; //String sVmsType = FVmsTypeCd; String sFormType = APP_GetCode(CbFormKind); String sFormColor = String(CbFormColor->ItemIndex); String sName = EdFormName->Text.Trim(); String sExpl = EdFormDesc->Text.Trim(); String sDispDir = APP_GetCode(CbFormDispDir); String sDispMode = APP_GetCode(CbFormDispMode); bool bResult = false; m_pEdtDesigner->GetVmsFormImage(ImgForm); bResult = SaveVmsForm(); if (!bResult) return; String sQry; TADOQuery *pADO = NULL; try { try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); sQry = "DELETE TB_VMS_FORM_OBJECT \r\n" " WHERE VMS_FORM_ID = :p01 \r\n"; ITSDb_SQLText(pADO, sQry); ITSDb_SQLBind(pADO, "p01", sFormId); pADO->ExecSQL(); sQry = "INSERT INTO TB_VMS_FORM_OBJECT ( \r\n" " FORM_OBJECT_ID, \r\n" //N NUMBER(5) N FORM OBJECT ID " VMS_FORM_ID, \r\n" //N NUMBER(5) N VMS FORM ID " VMS_FORM_DSPL_ROW, \r\n" //N NUMBER(2) Y VMS FORM 표출 행 " VMS_FORM_DSPL_CLMN, \r\n" //N NUMBER(2) Y VMS FORM 표출 칼럼 " VMS_FORM_OBJECT_TYPE_CD, \r\n" //N NUMBER(3) N VMS FORM OBJECT 유형 코드 " VMS_FONT_TYPE_CD, \r\n" //N NUMBER(3) N VMS 글꼴 유형 코드 " VMS_FONT_HUE_CD, \r\n" //N NUMBER(9) N VMS 글꼴 색상 코드 " VMS_FONT_STYL_CD, \r\n" //N NUMBER(3) Y VMS 글꼴 방식 코드 " VMS_FONT_SIZE, \r\n" //N NUMBER(3) Y 0 VMS 글꼴 크기 " VMS_FONT_ALIGN, \r\n" //N NUMBER(1) Y 0 VMS 표출 문자열정열방식(0:LEFT,1:RIGHT,2:CENTER) " VMS_DSPL_TXT, \r\n" //N VARCHAR2(200) Y VMS 표출 텍스트 " VMS_DSPL_FIGR, \r\n" //N BLOB Y VMS 표출 도형 " VMS_DSPL_XCRDN, \r\n" //N NUMBER(5) Y VMS 표출 X좌표 " VMS_DSPL_YCRDN, \r\n" //N NUMBER(5) Y VMS 표출 Y좌표 " VMS_DSPL_WIDTH, \r\n" //N NUMBER(5) Y 0 VMS 표출 넓이 " VMS_DSPL_HEIGHT, \r\n" //N NUMBER(5) Y 0 VMS 표출 높이 " VMS_DSPL_BLINKING, \r\n" //N NUMBER(1) Y 0 VMS 표출 점멸 여부(0:지속, 1:점멸) " VMS_DSPL_BKCOLOR, \r\n" //N NUMBER(1) Y 0 VMS 표출 배경색상코드 " VMS_DSPL_SIZE, \r\n" //N NUMBER(7) Y 0 VMS 표출 크기(문자:문자길이,이미지:이미지전체크기) " TRFC_FILL_CD, \r\n" //N CHAR(1) Y 'N' FILL-IN 메시지 여부 " SYMBLIB_NMBR, \r\n" //N NUMBER(4) N 0 심벌라이브러리 번호 " VMS_IFSC_ID \r\n" //N NUMBER(10) N 0 VMS 정보제공구간 ID " ) \r\n" " VALUES ( \r\n" " :p01, \r\n" //N NUMBER(5) N FORM OBJECT ID " :p02, \r\n" //N NUMBER(5) N VMS FORM ID " 0, \r\n" //N NUMBER(2) Y VMS FORM 표출 행 " 0, \r\n" //N NUMBER(2) Y VMS FORM 표출 칼럼 " :p05, \r\n" //N NUMBER(3) N VMS FORM OBJECT 유형 코드 " :p06, \r\n" //N NUMBER(3) N VMS 글꼴 유형 코드 " :p07, \r\n" //N NUMBER(9) N VMS 글꼴 색상 코드 " :p08, \r\n" //N NUMBER(3) Y VMS 글꼴 방식 코드 " :p09, \r\n" //N NUMBER(3) Y 0 VMS 글꼴 크기 " :p10, \r\n" //N NUMBER(1) Y 0 VMS 표출 문자열정열방식(0:LEFT,1:RIGHT,2:CENTER) " :p11, \r\n" //N VARCHAR2(200) Y VMS 표출 텍스트 " :p12, \r\n" //N BLOB Y VMS 표출 도형 " :p13, \r\n" //N NUMBER(5) Y VMS 표출 X좌표 " :p14, \r\n" //N NUMBER(5) Y VMS 표출 Y좌표 " :p15, \r\n" //N NUMBER(5) Y 0 VMS 표출 넓이 " :p16, \r\n" //N NUMBER(5) Y 0 VMS 표출 높이 " :p17, \r\n" //N NUMBER(1) Y 0 VMS 표출 점멸 여부(0:지속, 1:점멸) " :p18, \r\n" //N NUMBER(1) Y 0 VMS 표출 배경색상코드 " :p19, \r\n" //N NUMBER(7) Y 0 VMS 표출 크기(문자:문자길이,이미지:이미지전체크기) " :p23, \r\n" //N CHAR(1) Y 'N' FILL-IN 메시지 여부 " :p21, \r\n" //N NUMBER(4) N 0 심벌라이브러리 번호 " :p22 \r\n" //N NUMBER(10) N 0 VMS 정보제공구간 ID " ) \r\n"; ITSDb_SQLText(pADO, sQry); ITSDb_GetConnection()->BeginTrans(); TVmsFormObject *pObj; TcxGridDataController *pGDC = TvObjList->DataController; int nObjType; int nObjCnt = pGDC->RecordCount; for (int ii = 0; ii < nObjCnt; ii++) { String sObjSeq = VarToStr(pGDC->Values[ii][ColSeq->Index]); pObj = m_pEdtDesigner->FindObject(sObjSeq.ToInt()); if (!pObj) continue; nObjType = pObj->ObjType.ToIntDef(0); ITSDb_SQLBind(pADO, "p01", String(ii+1)); ITSDb_SQLBind(pADO, "p02", sFormId); //ITSDb_SQLBind(pADO, "p03", ); //ITSDb_SQLBind(pADO, "p04", ); ITSDb_SQLBind(pADO, "p05", pObj->ObjType); ITSDb_SQLBind(pADO, "p06", pObj->FontNameCode); ITSDb_SQLBind(pADO, "p07", pObj->FontColorCode); if (pObj->FontBold) ITSDb_SQLBind(pADO, "p08", "1"); else ITSDb_SQLBind(pADO, "p08", "0"); ITSDb_SQLBind(pADO, "p09", String(pObj->FontSize)); ITSDb_SQLBind(pADO, "p10", String(pObj->TextAlign)); ITSDb_SQLBind(pADO, "p11", pObj->Text); ITSDb_SQLBind(pADO, "p13", String(pObj->GetLeft())); ITSDb_SQLBind(pADO, "p14", String(pObj->GetTop())); ITSDb_SQLBind(pADO, "p15", String(pObj->GetWidth())); ITSDb_SQLBind(pADO, "p16", String(pObj->GetHeight())); if (pObj->Blink) ITSDb_SQLBind(pADO, "p17", "1"); else ITSDb_SQLBind(pADO, "p17", "0"); ITSDb_SQLBind(pADO, "p18", pObj->BkColorCode); ITSDb_SQLBind(pADO, "p19", String(pObj->ObjSize)); //ITSDb_SQLBind(pADO, "p20", ); ITSDb_SQLBind(pADO, "p21", pObj->ImageId); String sIfscId = ""; if (nObjType == 91 || nObjType == 92) { sIfscId = pObj->Tag; } ITSDb_SQLBind(pADO, "p22", sIfscId); String sFillIn = "N"; if (sFormType == "15") { if (nObjType == 0 || nObjType == 1 || nObjType == 2) { sFillIn = pObj->Tag; } } ITSDb_SQLBind(pADO, "p23", sFillIn); TMemoryStream *dataStream = NULL; TImage *pImg = pObj->GetImage(); dataStream = new TMemoryStream(); if (!pImg) { ImgNull->Picture->Bitmap->SaveToStream(dataStream); } else { pImg->Picture->Bitmap->SaveToStream(dataStream); } pADO->Parameters->ParamByName("p12")->LoadFromStream(dataStream, ftBlob); ITSDb_SQLExec(pADO); if (dataStream) delete dataStream; dataStream = NULL; } ITSDb_GetConnection()->CommitTrans(); bResult = true; } catch(EDatabaseError &E) { ITSDb_GetConnection()->RollbackTrans(); DBERRORMSG("VMS Form Object Save", String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { ITSDb_GetConnection()->RollbackTrans(); DBERRORMSG("VMS Form Object Save", String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } __finally { if (pADO) { pADO->Close(); delete pADO; } } if (bResult) { Application->MessageBox(lblText16->Caption.c_str(),//L"VMS 폼 정보 저장\r\nVMS 폼 정보를 저장 하였습니다.", FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); FUpdate = true; LoadVmsForm(); CMM_SetGridRow(CxList, TvList, sFormId, Col01->Index); DisplayInfo(); POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0); VComm_VmsFormUpdate(); } ReForm->Lines->Clear(); ReFormTemp->Lines->Clear(); } //--------------------------------------------------------------------------- void __fastcall TVMSM500M::Cb99PropertiesChange(TObject *Sender) { if (m_bEdit) return; #if 1 String sFormType = APP_GetCode(CbFormKind); if (sFormType == "15") { String sFillIn = APP_GetCode(Cb99); if (sFillIn == "") sFillIn = "N"; TVmsFormObject *pObj = m_pEdtDesigner->FindObject(EdObjSeq->Text.ToIntDef(-1), false); if (pObj) { int nObjType = pObj->ObjType.ToIntDef(-1); if (nObjType == 0 || nObjType == 1 || nObjType == 2) { pObj->Tag = sFillIn; } } } #endif } //---------------------------------------------------------------------------