//--------------------------------------------------------------------------- #include #include "ITSSkinF.h" #include "ITSUtilF.h" #include "AppGlobalF.h" #include "WindowMsgF.h" #include "CDSVmsIfscF.h" #include "CDSFontF.h" #include "CDSVmsFormF.h" #pragma hdrstop #include "FrmVmsLcsScheMngrF.h" #include "FrmVmsLcsSelTermF.h" #include "VMSEDT0MF.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 "cxColorComboBox" #pragma link "cxCalc" #pragma link "VmsDesignerF" #pragma link "FRAME_VmsSchListF" #pragma link "cxHint" #pragma link "dxCustomHint" #pragma link "dxScreenTip" #pragma link "dxSkinsForm" #pragma link "dxGDIPlusClasses" #pragma resource "*.dfm" TFrmVmsLcsScheMngr *FrmVmsLcsScheMngr = NULL; //--------------------------------------------------------------------------- __fastcall TFrmVmsLcsScheMngr::TFrmVmsLcsScheMngr(TComponent* Owner) : TForm(Owner) { //CMM_SetFormPosition(g_AppCfg.bSaveForm); ITSSkin_Initialize(Application, g_AppCfg.sLang); ITSSkin_Caption(false); ITSSkin_Load(this); //CMM_LoadForm(g_sFormsDir, this); SetColorScheme(g_AppCfg.sSkinName); FUpdate= false; FTitle = Caption; FListSymb = new TList; EditMode = false; FRAMEVmsSchList1->PnlTop->Visible = false; FRAMEVmsSchList1->PnlBottom->Visible = false; FRAMEVmsSchList1->Column11->Visible = true; FRAMEVmsSchList1->Column03->Visible = false; PgVmsSch->Properties->ActivePage = TsEdit; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::SetColorScheme(String ASkinName) { dxSkinController1->SkinName = ASkinName; dxSkinController1->Refresh(); PnlPreview->ParentColor = false; PnlPreview->Color = clBlack; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::CommClose() { try { #if 0 if (m_pEdtDesigner) { delete m_pEdtDesigner; m_pEdtDesigner = NULL; } #endif APP_DelVmsSizeCombo(CbSizeType); ClearSymbloList(); SAFE_DELETE(FListSymb); CComm_Terminate(); ITSSkin_Term(); //CMM_SaveForm(g_sFormsDir, this); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::FormCreate(TObject *Sender) { InitDbLoading(); //m_pEdtDesigner = new TVmsFormDesigner(PnlEditForm); //FOR_STL(TCDSFontColor*, pObj, CDSFontManager->FFontColors) { // m_pEdtDesigner->InitFontColor(pObj->VMS_FONT_COLR_CD, (TColor)pObj->VMS_FONT_COLR_VAL); //} } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::InitDbLoading() { Application->ProcessMessages(); if (!VmsCtlrManager) { VmsCtlrManager = new TVmsCtlrManager(); } VmsCtlrManager->LoadVmsModlSize(); VmsCtlrManager->LoadFromDb(); #if 0 if (SysCodeManager == NULL) { SysCodeManager = new TSysCodeManager(); } SysCodeManager->LoadFromDb(); if (!VmsTextItemManager) { VmsTextItemManager = new TVmsTextItemManager(); } VmsTextItemManager->LoadFromDb(); #endif if(!CDSFontManager) { CDSFontManager = new TCDSFontManager(); } CDSFontManager->LoadFontInfo(); if (!CenterCommManager) { CenterCommManager = new TCenterCommManager(); } CenterCommManager->LoadFromDb(g_AppCfg.PRCS_ID); FCommCtrlTarget = CenterCommManager->FLists.Find("22"); // VMS표출문안 등록 알림 } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::FormShow(TObject *Sender) { int nResult = CComm_Initialize((long)Handle, g_AppCfg.PRCS_ID, "P04010", 0); Refresh(); FormInit(); TmrShow->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::FormInit() { TNotifyEvent evt = CbSizeType->Properties->OnChange; CbSizeType->Properties->OnChange = NULL; APP_FillLcsSizeType(CbSizeType, false); CbSizeType->Properties->OnChange = evt; FNewDb = false; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::TmrShowTimer(TObject *Sender) { TmrShow->Enabled = false; CbSizeType->ItemIndex = -1; CbSizeType->ItemIndex = 0; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::BtnCloseClick(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::FormClose(TObject *Sender, TCloseAction &Action) { CommClose(); FrmVmsLcsScheMngr = NULL; Action = caFree; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::FormCloseQuery(TObject *Sender, bool &CanClose) { if (FUpdate) { //POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0); } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::ClearSymbloList() { FFormLists.RemoveAll(); for(int ii = 0; ii < FListSymb->Count; ii++) { Graphics::TBitmap *bitmap = (Graphics::TBitmap *)FListSymb->Items[ii]; delete bitmap; } FListSymb->Clear(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::FRAMEVmsSchList1TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton, TShiftState AShift, bool &AHandled) { if (!ACellViewInfo) return; DisplayInfo(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::FRAMEVmsSchList1TvListFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged) { if (!AFocusedRecord) return; DisplayInfo(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::CbSizeTypePropertiesChange(TObject *Sender) { if (CbSizeType->ItemIndex < 0) return; EdFocus->SetFocus(); BtnSearchClick(NULL); FRAMEVmsSchList1->CxList->SetFocus(); //TODO: LockWindowUpdate(GrpPreview->Handle); PnlPreview->Width = FVmsWidth; PnlPreview->Height= FVmsHeight; ImgPreview->Align = alNone; ImgPreview->Picture->Bitmap->Width = FVmsWidth; ImgPreview->Picture->Bitmap->Height= FVmsHeight; APP_ImageClear(ImgPreview->Canvas, 0, 0, ImgPreview->Width, ImgPreview->Height, clBlack); ImgPreview->Align = alClient; TvView->OptionsView->DataRowHeight = FVmsHeight; if (TvView->OptionsView->DataRowHeight < 48) { TvView->OptionsView->DataRowHeight = 48; } //TODO: LockWindowUpdate(0); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::BtnSearchClick(TObject *Sender) { RefreshData(); EdFocus->SetFocus(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::RefreshData() { FormClear(); TVmsSizeType *pVmsSizeType = APP_GetVmsSizeTypeObject(CbSizeType); if (pVmsSizeType == NULL) return; FVmsTypeCd = pVmsSizeType->TypeCd; FVmsWidth = pVmsSizeType->Width; FVmsHeight = pVmsSizeType->Height; #if 0 PnlEdtBack->Width = FVmsWidth+4; PnlEdtBack->Height= FVmsHeight+4; m_pEdtDesigner->Clear(); m_pEdtDesigner->SizeType = FVmsTypeCd; m_pEdtDesigner->SetSize(FVmsWidth, FVmsHeight); m_pEdtDesigner->SetPos(0, 0); m_pEdtDesigner->BkColorCode = "00"; m_pEdtDesigner->EditMode = true; m_pEdtDesigner->Show(); #endif FRAMEVmsSchList1->UpdateLcsList(FVmsTypeCd); LoadVmsFormList(FVmsTypeCd); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::FormClear() { FSelIdx = -1; EdVmsNmbr->Clear(); GrpSchedule->Caption = lblTitle->Caption;//"▶ 자동 스케줄 설정"; CMM_ClearGridTableView(TvSche); //TODO: LockWindowUpdate(GrpPreview->Handle); APP_ImageClear(ImgPreview->Canvas, 0, 0, ImgPreview->Width, ImgPreview->Height, clBlack); //TODO: LockWindowUpdate(0); FNewDb = false; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::DisplayInfo() { FormClear(); FSelIdx = CMM_GetRecordIndex(FRAMEVmsSchList1->TvList); if (FSelIdx < 0) return; TcxDataController *pGDC = FRAMEVmsSchList1->TvList->DataController; String sLcsCtlrId = VarToStr(pGDC->Values[FSelIdx][FRAMEVmsSchList1->Column11->Index]); EdVmsNmbr->Text = sLcsCtlrId; GrpSchedule->Caption = lblTitle->Caption + " (" + VarToStr(pGDC->Values[FSelIdx][FRAMEVmsSchList1->Column02->Index]) + ": " + sLcsCtlrId + ")"; LoadLcsScheduleInfo(sLcsCtlrId); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::BtnListAddClick(TObject *Sender) { int nSelIdx = CMM_GetRecordIndex(FRAMEVmsSchList1->TvList); if (nSelIdx < 0) return; TcxGridDataController *pDcFrm = TvForm->DataController; TcxGridDataController *pDcSch = TvSche->DataController; int nFormIdx = CMM_GetRecordIndex(TvForm); if (nFormIdx < 0) return; #if 0 TFrmVmsPubrSelTerm *pSelDate = new TFrmVmsPubrSelTerm(this); pSelDate->FStrTime = Now().FormatString("YYYYMMDDHHNN"); pSelDate->FEndTime = "209912312359"; pSelDate->FWeek = "1111111"; pSelDate->ShowModal(); bool bSelected = pSelDate->FSelected; String sStrDate = pSelDate->FStrTime; String sEndDate = pSelDate->FEndTime; String sWeek = pSelDate->FWeek; delete pSelDate; pSelDate = NULL; if (!bSelected) { return; } #endif int nRow = pDcSch->AppendRecord(); pDcSch->Values[nRow][Col00->Index] = VarToStr(pDcFrm->Values[nFormIdx][ColFrm00->Index]); //ID pDcSch->Values[nRow][Col02->Index] = VarToStr(pDcFrm->Values[nFormIdx][ColFrm02->Index]); //명칭 pDcSch->Values[nRow][Col03->Index] = VarToStr(pDcFrm->Values[nFormIdx][ColFrm03->Index]); //표출(초) pDcSch->Values[nRow][Col01->Index] = pDcFrm->Values[nFormIdx][ColFrm01->Index]; #if 0 pDcSch->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN); pDcSch->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN); pDcSch->Values[nRow][ColWeek1->Index] = sWeek; String sUse = "Y"; String sNowDate = Now().FormatString("YYYYMMDDHHNNSS"); if (sEndDate < sNowDate) { sUse = "N"; } pDcSch->Values[nRow][ColUse->Index] = sUse; #endif EditPreviewForm(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::BtnListDeleteClick(TObject *Sender) { int nSelIdx = CMM_GetRecordIndex(FRAMEVmsSchList1->TvList); if (nSelIdx < 0) return; #if 0 TcxGridDataController *pDcSch = TvSche->DataController; nSelIdx = CMM_GetRecordIndex(TvSche); if (nSelIdx < 0) return; TvSche->DataController->DeleteRecord(nSelIdx); #endif TcxGridTableView *pSrcList = TvSche; int nFocused = pSrcList->Controller->FocusedRecordIndex; int nSelRows = pSrcList->Controller->SelectedRowCount; if (nSelRows <= 0) { return; } try { TcxGridDataController *pGDC = pSrcList->DataController; pSrcList->BeginUpdate(); try { pSrcList->Controller->DeleteSelection(); int nDataCnt = pSrcList->DataController->RecordCount; if (nDataCnt <= nFocused) nFocused = nDataCnt - 1; pSrcList->Controller->ClearSelection(); } catch(...) { } } __finally { pSrcList->EndUpdate(); } EditPreviewForm(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::BtnSaveClick(TObject *Sender) { //작업한 스케줄 정보를 저장한다. if (EdVmsNmbr->Text.Trim().IsEmpty()) { Application->MessageBox(L"LCS 스케줄 관리\r\nLCS 목록에서 LCS를 먼저 선택한 후 작업을 진행하세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } bool bUpdate = true; String sLcsCtlrId = EdVmsNmbr->Text.Trim(); if (bUpdate) { String sMsg; sMsg = "LCS: " + sLcsCtlrId; sMsg+= "\r\n선택한 LCS 스케줄 정보를 저장하시겠습니까?"; if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return; } ITSDb_GetConnection()->BeginTrans(); if (!DeleteLcsScenario(sLcsCtlrId)) { ITSDb_GetConnection()->RollbackTrans(); return; } if (!SaveLcsScenario(sLcsCtlrId)) { ITSDb_GetConnection()->RollbackTrans(); return; } ITSDb_GetConnection()->CommitTrans(); if (FCommCtrlTarget != NULL) { FOR_STL(TCommInfo*, pCommInfo, FCommCtrlTarget->FLists) { int sendResult = CComm_VmsNotiRegDsplMsg(pCommInfo->SRVR_IP, pCommInfo->CMNC_PORT); if (VERR_NONE == sendResult) { } Sleep(200); } } Application->MessageBox(L"LCS 스케줄 관리\r\nLCS 스케줄 정보를 저장 하였습니다.", FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); CMM_SetGridRow(FRAMEVmsSchList1->CxList, FRAMEVmsSchList1->TvList, sLcsCtlrId, FRAMEVmsSchList1->Column11->Index); //DisplayInfo(); } //--------------------------------------------------------------------------- bool __fastcall TFrmVmsLcsScheMngr::SaveLcsScenario(String ALcsCtlrId) { String sQry; TADOQuery *pADO = NULL; TcxDataController *pGDC = TvSche->DataController; sQry = "INSERT INTO TB_LCS_PROV_FORM ( \r\n" " LCS_CTLR_ID, \r\n" " PROV_BGN_DT, \r\n" " PROV_SN, \r\n" " VMS_FORM_ID, \r\n" " RGSTR_ID, \r\n" " REG_DT ) \r\n" " VALUES ( \r\n" " :p01, \r\n" " SYSDATE, \r\n" " :p03, \r\n" " :p04, \r\n" " :p05, \r\n" " SYSDATE ) \r\n"; try { TvSche->BeginUpdate(); int nRows = pGDC->RecordCount; try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADO, sQry); for (int ii = 0; ii < nRows; ii++) { String LCS_CTLR_ID = ALcsCtlrId; int PROV_SN = ii+1; String VMS_FORM_ID = VarToStr(pGDC->Values[ii][Col00->Index]); pADO->Parameters->ParamByName("p01")->Value = LCS_CTLR_ID; pADO->Parameters->ParamByName("p03")->Value = PROV_SN; pADO->Parameters->ParamByName("p04")->Value = VMS_FORM_ID; pADO->Parameters->ParamByName("p05")->Value = g_AppCfg.OPER_ID; pADO->ExecSQL(); } } catch(EDatabaseError &E) { DBERRORMSG("TFrmVmsLcsScheMngr::SaveLcsScenario", String(E.ClassName()), E.Message, sQry); return false; } catch(Exception &e) { DBERRORMSG("TFrmVmsLcsScheMngr::SaveLcsScenario", String(e.ClassName()), e.Message, sQry); return false; } } __finally { if (pADO) { pADO->Close(); delete pADO; } TvSche->EndUpdate(); } return true; } //--------------------------------------------------------------------------- bool __fastcall TFrmVmsLcsScheMngr::DeleteLcsScenario(String ALcsCtlrId) { String sQry; TADOQuery *pADO = NULL; sQry = "DELETE TB_LCS_PROV_FORM \r\n" " WHERE 1=1 \r\n" " AND LCS_CTLR_ID = :p01 \r\n"; try { try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADO, sQry); ITSDb_SQLBind(pADO, "p01", ALcsCtlrId); pADO->ExecSQL(); } catch(EDatabaseError &E) { DBERRORMSG("TFrmVmsLcsScheMngr::DeleteLcsScenario", String(E.ClassName()), E.Message, sQry); return false; } catch(Exception &e) { DBERRORMSG("TFrmVmsLcsScheMngr::DeleteLcsScenario", String(e.ClassName()), e.Message, sQry); return false; } } __finally { if (pADO) { pADO->Close(); delete pADO; } } return true; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::EditPreviewForm() { CMM_ClearGridTableView(TvView); TcxDataController *pDcSch = TvSche->DataController; TcxDataController *pDcViw = TvView->DataController; try { TvSche->BeginUpdate(); TvView->BeginUpdate(); try { for(int nRowS = 0; nRowS < pDcSch->RecordCount; nRowS++) { int nRowV = pDcViw->AppendRecord(); pDcViw->Values[nRowV][ColView00->Index] = pDcSch->Values[nRowS][Col00->Index]; pDcViw->Values[nRowV][ColView02->Index] = pDcSch->Values[nRowS][Col02->Index]; pDcViw->Values[nRowV][ColView03->Index] = pDcSch->Values[nRowS][Col03->Index]; pDcViw->Values[nRowV][ColView01->Index] = pDcSch->Values[nRowS][Col01->Index]; } } catch(Exception &e) { } } __finally { TvSche->EndUpdate(); TvView->EndUpdate(); } } //--------------------------------------------------------------------------- bool __fastcall TFrmVmsLcsScheMngr::LoadLcsScheduleInfo(String ALcsCtlrId) { String sQry; TADOQuery *pADO = NULL; CMM_ClearGridTableView(TvSche); CMM_ClearGridTableView(TvView); TcxDataController *pDcSch = TvSche->DataController; TcxDataController *pDcViw = TvView->DataController; sQry = "SELECT A.LCS_CTLR_ID, ROWNUM AS SN, \r\n" " A.VMS_FORM_ID, B.VMS_FORM_NM, \r\n" " B.VMS_FORM_TYPE, B.DSPL_HR, \r\n" " B.VMS_FORM_IMG, \r\n" " A.PROV_BGN_DT, \r\n" " TO_CHAR(A.PROV_BGN_DT, 'YYYY-MM-DD HH24:MI:SS') AS PROV_BGN_DT_FMT, \r\n" " A.PROV_SN \r\n" " FROM TB_LCS_PROV_FORM A, \r\n" " TB_VMS_FORM B \r\n" " WHERE 1=1 \r\n" " AND A.LCS_CTLR_ID = :p01 \r\n" " AND A.VMS_FORM_ID = B.VMS_FORM_ID \r\n" " ORDER BY A.LCS_CTLR_ID, A.PROV_SN \r\n"; try { TvSche->BeginUpdate(); TvView->BeginUpdate(); int nRowS, nRowV; try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADO, sQry); ITSDb_SQLBind(pADO, "p01", ALcsCtlrId); ITSDb_SQLOpen(pADO); for( ; !pADO->Eof; pADO->Next()) { nRowS = pDcSch->AppendRecord(); pDcSch->Values[nRowS][Col00->Index] = pADO->FieldByName("VMS_FORM_ID")->AsString; pDcSch->Values[nRowS][Col02->Index] = pADO->FieldByName("VMS_FORM_NM")->AsString; pDcSch->Values[nRowS][Col03->Index] = pADO->FieldByName("DSPL_HR")->AsString; pDcSch->Values[nRowS][Col01->Index] = pADO->FieldByName("VMS_FORM_IMG")->AsVariant; nRowV = pDcViw->AppendRecord(); pDcViw->Values[nRowV][ColView00->Index] = pADO->FieldByName("VMS_FORM_ID")->AsString; pDcViw->Values[nRowV][ColView02->Index] = pADO->FieldByName("VMS_FORM_NM")->AsString; pDcViw->Values[nRowV][ColView03->Index] = pADO->FieldByName("DSPL_HR")->AsString; pDcViw->Values[nRowV][ColView01->Index] = pADO->FieldByName("VMS_FORM_IMG")->AsVariant; } } catch(EDatabaseError &E) { DBERRORMSG("TFrmVmsLcsScheMngr::LoadLcsScheduleInfo", String(E.ClassName()), E.Message, sQry); return false; } catch(Exception &e) { DBERRORMSG("TFrmVmsLcsScheMngr::LoadLcsScheduleInfo", String(e.ClassName()), e.Message, sQry); return false; } } __finally { if (pADO) { pADO->Close(); delete pADO; } TvView->OptionsView->DataRowHeight = FVmsHeight + 6; TvSche->EndUpdate(); TvView->EndUpdate(); } return true; } //--------------------------------------------------------------------------- bool __fastcall TFrmVmsLcsScheMngr::LoadVmsFormList(String AFormSizeCd) { ClearSymbloList(); CMM_ClearGridTableView(TvForm); String sQry; TADOQuery *pADO = NULL; sQry = "SELECT A.VMS_FORM_ID, A.VMS_MODL_KIND, A.VMS_FORM_TYPE, A.VMS_FORM_NM, \r\n" " A.VMS_FORM_IMG, \r\n" " A.DSPL_EFF, NVL(A.DSPL_HR, 0) AS DSPL_HR, A.BACK_CLR, \r\n" " NVL(B.FORM_TYPE_NM, A.VMS_FORM_TYPE) AS FORM_TYPE_NM, \r\n" " NVL(C.FORM_TYPE_NM, A.DSPL_EFF) AS DSPL_EFF_NM, \r\n" " NVL(D.VMS_MODL_KIND_NM, A.VMS_MODL_KIND) AS VMS_MODL_KIND_NM \r\n" " FROM TB_VMS_FORM A, \r\n" " (SELECT CODE_NO, CD_NM AS FORM_TYPE_NM \r\n" " FROM TB_SYS_CD \r\n" " WHERE CLSS_CD = 'VMS_FORM_TYPE_CD') B, \r\n" " (SELECT CODE_NO, CD_NM AS FORM_TYPE_NM \r\n" " FROM TB_SYS_CD \r\n" " WHERE CLSS_CD = 'VMS_FORM_DSPL_EFF_CD') C, \r\n" " TB_VMS_MODL_KIND D \r\n" " WHERE 1=1 \r\n" // " AND A.VMS_FORM_TYPE = 'P' \r\n" " AND A.VMS_FORM_TYPE = B.CODE_NO(+) \r\n" " AND A.DSPL_EFF = C.CODE_NO(+) \r\n" " AND A.VMS_MODL_KIND = D.VMS_MODL_KIND(+) \r\n" " AND A.VMS_MODL_KIND = :p01 \r\n" " ORDER BY A.VMS_MODL_KIND, A.VMS_FORM_ID \r\n"; try { TvForm->BeginUpdate(); TcxDataController *pGDC = TvForm->DataController; int nRow; try { pADO = new TADOQuery(NULL); pADO->Close(); pADO->Connection = ITSDb_GetConnection(); ITSDb_SQLText(pADO, sQry); ITSDb_SQLBind(pADO, "p01", AFormSizeCd); ITSDb_SQLOpen(pADO); for( ; !pADO->Eof; pADO->Next()) { nRow = pGDC->AppendRecord(); String VMS_FORM_ID = pADO->FieldByName("VMS_FORM_ID")->AsString; pGDC->Values[nRow][ColFrm00->Index] = VMS_FORM_ID; pGDC->Values[nRow][ColFrm02->Index] = pADO->FieldByName("VMS_FORM_NM")->AsString; pGDC->Values[nRow][ColFrm03->Index] = pADO->FieldByName("DSPL_HR")->AsString; pGDC->Values[nRow][ColFrm09->Index] = pADO->FieldByName("FORM_TYPE_NM")->AsString; pGDC->Values[nRow][ColFrm01->Index] = pADO->FieldByName("VMS_FORM_IMG")->AsVariant; TFormImage *pImage = new TFormImage(); pImage->formId = VMS_FORM_ID; pImage->bitmap = new Graphics::TBitmap; try { pImage->bitmap->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("VMS_FORM_IMG"), bmRead)); } catch(Exception &e) { delete pImage->bitmap; pImage->bitmap = NULL; } FFormLists.Push(pImage->formId, pImage); } } catch(EDatabaseError &E) { DBERRORMSG("TFrmVmsLcsScheMngr::LoadVmsFormList", String(E.ClassName()), E.Message, sQry); return false; } catch(Exception &e) { DBERRORMSG("TFrmVmsLcsScheMngr::LoadVmsFormList", String(e.ClassName()), e.Message, sQry); return false; } } __finally { if (pADO) { pADO->Close(); delete pADO; } TvForm->EndUpdate(); } return true; } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::cxGridColumn172CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone) { int nRecordIdx = AViewInfo->GridRecord->RecordIndex; if (nRecordIdx < 0) { return; } try { int nItemIdx = AViewInfo->Item->Index; if (VarIsNull(AViewInfo->GridRecord->DisplayTexts[nItemIdx])) return; String sEndDt = AViewInfo->GridRecord->DisplayTexts[nItemIdx]; if (sEndDt < Now().FormatString(STR_HHNN)) { ACanvas->Canvas->Brush->Color = clSilver; } } catch(Exception &e) { } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::BtnUpClick(TObject *Sender) { try { TvSche->BeginUpdate(); int nCurIdx = TvSche->DataController->FocusedRowIndex;//FocusedRecordIndex; if (nCurIdx <= 0) { return; } int nUpIdx = nCurIdx-1; try { int nCols = TvSche->ColumnCount; for (int ii = 0; ii < nCols; ii++) { Variant va = TvSche->DataController->Values[nCurIdx][ii]; TvSche->DataController->Values[nCurIdx][ii] = TvSche->DataController->Values[nUpIdx][ii]; TvSche->DataController->Values[nUpIdx][ii] = va; } TvSche->Controller->ClearSelection(); TvSche->Controller->FocusedRowIndex = nUpIdx; TvSche->ViewData->Records[nUpIdx]->Focused = true; TvSche->ViewData->Records[nUpIdx]->Selected = true; CxSche->SetFocus(); } catch(...) { } } __finally { TvSche->EndUpdate(); } EditPreviewForm(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::BtnDownClick(TObject *Sender) { try { TvSche->BeginUpdate(); int nCurIdx = TvSche->DataController->FocusedRowIndex;//FocusedRecordIndex; if (nCurIdx < 0) { return; } if (nCurIdx == TvSche->DataController->RecordCount-1) { return; } int nDnIdx = nCurIdx+1; try { int nCols = TvSche->ColumnCount; for (int ii = 0; ii < nCols; ii++) { Variant va = TvSche->DataController->Values[nCurIdx][ii]; TvSche->DataController->Values[nCurIdx][ii] = TvSche->DataController->Values[nDnIdx][ii]; TvSche->DataController->Values[nDnIdx][ii] = va; } TvSche->Controller->ClearSelection(); TvSche->Controller->FocusedRowIndex = nDnIdx; TvSche->ViewData->Records[nDnIdx]->Focused = true; TvSche->ViewData->Records[nDnIdx]->Selected = true; CxSche->SetFocus(); } catch(...) { } } __finally { TvSche->EndUpdate(); } EditPreviewForm(); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::TvScheFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged) { if (!AFocusedRecord) return; int nSelIdx = CMM_GetRecordIndex(TvSche); if (nSelIdx < 0) return; String sVmsFormId = VarToStr(TvSche->DataController->Values[nSelIdx][Col00->Index]); LoadPreviewForm(sVmsFormId); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::TvFormFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged) { if (!AFocusedRecord) return; int nSelIdx = CMM_GetRecordIndex(TvForm); if (nSelIdx < 0) return; String sVmsFormId = VarToStr(TvForm->DataController->Values[nSelIdx][ColFrm00->Index]); LoadPreviewForm(sVmsFormId); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::LoadPreviewForm(String AVmsFormId) { TFormImage *pImage = FFormLists.Find(AVmsFormId); //TODO: LockWindowUpdate(GrpPreview->Handle); if (pImage != NULL && pImage->bitmap != NULL) { ImgPreview->Picture->Bitmap->Assign(pImage->bitmap); } else { APP_ImageClear(ImgPreview->Canvas, 0, 0, ImgPreview->Width, ImgPreview->Height, clBlack); } //TODO: LockWindowUpdate(0); } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::ChkAutoWidthPropertiesChange(TObject *Sender) { try { //TODO: LockWindowUpdate(Handle); TvView->BeginUpdate(); if (ChkAutoWidth->Checked) { //TvView->OptionsView->DataRowHeight = 58; TvView->OptionsView->CellAutoHeight = false; } else { TvView->OptionsView->DataRowHeight = 0; TvView->OptionsView->CellAutoHeight = true; } TvView->OptionsView->ColumnAutoWidth = ChkAutoWidth->Checked; } __finally { TvView->EndUpdate(); //TODO: LockWindowUpdate(0); //BtnBestFit->Visible = !ChkAutoWidth->Checked; } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::BtnBestFitClick(TObject *Sender) { try { //TODO: LockWindowUpdate(Handle); TvView->BeginUpdate(); TvView->ApplyBestFit(NULL, false, false); TvView->EndUpdate(); } __finally { //TODO: LockWindowUpdate(0); } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::Col05CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone) { int nRecordIdx = AViewInfo->GridRecord->RecordIndex; if (nRecordIdx < 0) { return; } try { if (VarIsNull(AViewInfo->GridRecord->DisplayTexts[ColUse->Index])) return; String sUseYn = AViewInfo->GridRecord->DisplayTexts[ColUse->Index]; if (sUseYn == "N") { ACanvas->Canvas->Brush->Color = clRed; } } catch(Exception &e) { } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::TvScheCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton, TShiftState AShift, bool &AHandled) { if (!ACellViewInfo) return; int nRow = Sender->DataController->FocusedRecordIndex; if( nRow <= -1 ) return; TcxGridDataController *pGDC = (TcxGridDataController*)Sender->DataController; int nColIdx = ACellViewInfo->Item->Index; String sStrDate = VarToStr(pGDC->Values[nRow][Col04->Index]); String sEndDate = VarToStr(pGDC->Values[nRow][Col05->Index]); String sWeek = VarToStr(pGDC->Values[nRow][ColWeek1->Index]); if (nColIdx == Col04->Index || nColIdx == Col05->Index || nColIdx == ColWeek1->Index) { //표출기간설정 TFrmVmsLcsSelTerm *pSelDate = new TFrmVmsLcsSelTerm(this); pSelDate->FStrTime = sStrDate; pSelDate->FEndTime = sEndDate; pSelDate->FWeek = sWeek; pSelDate->ShowModal(); bool bSelected = pSelDate->FSelected; sStrDate = pSelDate->FStrTime; sEndDate = pSelDate->FEndTime; sWeek = pSelDate->FWeek; delete pSelDate; pSelDate = NULL; if (bSelected) { pGDC->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN); pGDC->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN); pGDC->Values[nRow][ColWeek1->Index] = sWeek; String sUse = "Y"; String sNowDate = Now().FormatString("YYYYMMDDHHNNSS"); if (sEndDate < sNowDate) { sUse = "N"; } pGDC->Values[nRow][ColUse->Index] = sUse; EditPreviewForm(); } return; } } //--------------------------------------------------------------------------- void __fastcall TFrmVmsLcsScheMngr::BtnAllEditClick(TObject *Sender) { TcxButton *pBtn = (TcxButton*)Sender; TcxGridTableView *pTvList = TvSche; TcxGridDataController *pGDC; String sMode = "E"; if (pBtn->Tag == 1) { sMode = "A"; //추가 pTvList = TvForm; } if (!pTvList) return; pGDC = pTvList->DataController; int nFormIdx = CMM_GetRecordIndex(pTvList); if (nFormIdx < 0) { Application->MessageBox(L"LCS 메시지 스케줄 일괄 관리\r\n등록되어 있는 스케줄 메시지을 목록에서 먼저 선택하세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } String sFormId; String sWeek; if (sMode == "A") { sFormId = VarToStr(pGDC->Values[nFormIdx][ColFrm00->Index]); sWeek = "1111111"; } else { sFormId = VarToStr(pGDC->Values[nFormIdx][Col00->Index]); sWeek = VarToStr(pGDC->Values[nFormIdx][ColWeek1->Index]); } TVmsSizeType *pVmsSizeType = APP_GetVmsSizeTypeObject(CbSizeType); if (pVmsSizeType == NULL) { Application->MessageBox(L"LCS 메시지 스케줄 일괄 관리\r\nVMS 모듈 유형을 알수 없습니다. VMS 모듈 유형을 먼저 선택하세요.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL); return; } String sVmsTypeCd = pVmsSizeType->TypeCd; TVMSEDT0M *pFrmEdt = new TVMSEDT0M(this); pFrmEdt->FVmsTypeCd = sVmsTypeCd; pFrmEdt->FScheType = SCHEDULE_LCS; pFrmEdt->FScheFormType = String(pBtn->Tag); pFrmEdt->FFormId = sFormId; pFrmEdt->FMode = sMode; pFrmEdt->FVmsNmbr = ""; pFrmEdt->FSymbLibNmbr = ""; pFrmEdt->FStreamAddr = ""; pFrmEdt->FWeek = sWeek; pFrmEdt->ShowModal(); bool bOk = pFrmEdt->FSelected; delete pFrmEdt; pFrmEdt = NULL; if (bOk) { DisplayInfo(); EditPreviewForm(); } } //---------------------------------------------------------------------------