//--------------------------------------------------------------------------- #include #include "ITSSkinF.h" #include "ITSUtilF.h" #include "AppGlobalF.h" #include "CDSCodeF.h" #include "ITSLangTransF.h" #pragma hdrstop #include "IST0070MF.h" #include "IST00701F.h" #include "IST00702F.h" #include "IST00703F.h" #include "CDSRoadF.h" #include "CDSIfscF.h" #include "CDSLinkF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "FRAME_LinkListF" #pragma link "FRAME_RoadListF" #pragma link "cxButtons" #pragma link "cxCalendar" #pragma link "cxCheckBox" #pragma link "cxClasses" #pragma link "cxContainer" #pragma link "cxControls" #pragma link "cxCustomData" #pragma link "cxData" #pragma link "cxDataStorage" #pragma link "cxDropDownEdit" #pragma link "cxEdit" #pragma link "cxFilter" #pragma link "cxGraphics" #pragma link "cxGrid" #pragma link "cxGridCustomTableView" #pragma link "cxGridCustomView" #pragma link "cxGridLevel" #pragma link "cxGridTableView" #pragma link "cxGroupBox" #pragma link "cxLabel" #pragma link "cxLookAndFeelPainters" #pragma link "cxLookAndFeels" #pragma link "cxMaskEdit" #pragma link "cxPC" #pragma link "cxPCdxBarPopupMenu" #pragma link "cxSplitter" #pragma link "cxStyles" #pragma link "cxTextEdit" #pragma link "dxSkinBlack" #pragma link "dxSkinBlue" #pragma link "dxSkinsCore" #pragma link "dxSkinscxPCPainter" #pragma link "FRAME_IfscListF" #pragma resource "*.dfm" TIST0070M *IST0070M = NULL; //--------------------------------------------------------------------------- __fastcall TIST0070M::TIST0070M(TComponent* Owner) : TForm(Owner) { LangTrans->Translate(this, ITSDb_GetConnection()); ITSSkin_Load(this); CMM_LoadForm(g_sFormsDir, this); ColumnSel->Options->Filtering = false; FTitle = Caption;//"°£¼±µµ·Î ¼ÒÅëÁ¤º¸ Åë°è"; m_pFormList = new TList(); TsList01->TabVisible = false; MyItsAtrdManager = new TItsAtrdManager(); MyItsAtrdManager->LoadFromDb(); FRAMELinkList1->TvList->OptionsView->GroupByBox = false; FRAMELinkList1->PnlTop->Visible = false; FRAMELinkList1->PnlBottom->Visible = false; FRAMELinkList1->ColumnSeq->Visible = true; FRAMEIfscList1->TvList->OptionsView->GroupByBox = false; FRAMEIfscList1->PnlTop->Visible = false; FRAMEIfscList1->PnlBottom->Visible = false; FRAMEIfscList1->ColumnSeq->Visible = true; FRAMEIfscList1->Column02->Visible = false; FRAMEIfscList1->Column03->Visible = false; FRAMEIfscList1->Column09->Visible = false; FRAMEIfscList1->Column10->Visible = false; FRAMEIfscList1->Column08->Visible = false; FRAMEIfscList1->Column04->Visible = false; FRAMEIfscList1->Column05->Visible = false; FRAMERoadList1->TvList->OptionsView->GroupByBox = false; FRAMERoadList1->PnlTop->Visible = false; FRAMERoadList1->PnlBottom->Visible = false; FRAMERoadList1->ColumnSeq->Visible = true; FRAMERoadList1->Column02->Visible = false; FRAMERoadList1->Column03->Visible = false; PgLink->ActivePageIndex = 0; PgQry->ActivePageIndex = 0; PnlQry->Height = 190; FAtrdId = ""; CbAtrd->Properties->Items->Clear(); try { MyItsAtrdManager->FLists.Lock(); FOR_STL(TItsAtrd*, pObj, MyItsAtrdManager->FLists) { if (pObj->DEL_YN == "Y") continue; String sDir = (pObj->DRCT_CD.Trim() == "0") ? FrmLang->lblUp->Caption : FrmLang->lblDown->Caption;//String("»óÇà") : String("ÇÏÇà"); String sAtr = pObj->ATRD_NM; CbAtrd->Properties->Items->AddObject(sAtr + " [" + sDir + "]", (TObject*)pObj); } } __finally { MyItsAtrdManager->FLists.UnLock(); CbAtrd->ItemIndex = 0; } } //--------------------------------------------------------------------------- void __fastcall TIST0070M::CommClose() { try { for (int idx = m_pFormList->Count-1; idx >= 0; idx--) { m_pFormList->Delete(idx); } delete m_pFormList; if (MyItsAtrdManager) { delete MyItsAtrdManager; MyItsAtrdManager = NULL; } CMM_SaveForm(g_sFormsDir, this); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TIST0070M::FormShow(TObject *Sender) { Refresh(); FormInit(); TmrShow->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TIST0070M::FormInit() { CbStatType->ItemIndex = 0; TDateTime dtStart = Now()-1; TDateTime dtEnd = Now(); DtStDate->Date = dtStart; DtEdDate->Date = dtEnd; DtStTime->Date = dtStart; DtEdTime->Date = dtEnd; //DtStTime->Time = StrToDateTime("00:00"); //DtEdTime->Time = StrToDateTime("23:59"); //½Ã°£´ë °Ë»ö CbStatType1->ItemIndex = 0; dtStrDate1->DateTime = Now()-1; dtEndDate1->DateTime = Now();//-1; CbStrTm1->ItemIndex = 7; CbEndTm1->ItemIndex = 7; //ÁöÁ¤½Ã°¢ °Ë»ö CbStrTm2->ItemIndex = 7; CbEndTm2->ItemIndex = 7; InitQryList(); } //--------------------------------------------------------------------------- void __fastcall TIST0070M::InitQryList() { CMM_ClearGridTableView(TvList); int nRow = 0; try { TcxDataController *pGDC = TvList->DataController;; TvList->BeginUpdate(); for (int ii = 0; ii < MAX_QRY_LIST; ii++) { nRow = pGDC->AppendRecord(); pGDC->Values[nRow][ColumnSel->Index] = false; //¼±Åà pGDC->Values[nRow][Column00->Index] = "-"; //ÆíÁý pGDC->Values[nRow][Column01->Index] = (Now() - (MAX_QRY_LIST-ii)).FormatString("yyyy-MM-dd"); pGDC->Values[nRow][Column02->Index] = "07"; pGDC->Values[nRow][Column03->Index] = "07"; } } __finally { TvList->EndUpdate(); } } //--------------------------------------------------------------------------- void __fastcall TIST0070M::TmrShowTimer(TObject *Sender) { TmrShow->Enabled = false; } //--------------------------------------------------------------------------- void __fastcall TIST0070M::RefreshData() { // °Ë»öÁ¶°Ç¿¡ ÀÇÇÑ ¸µÅ© µ¥ÀÌÅÍ Á¶È¸ try { //SelListData(); } __finally { } } //--------------------------------------------------------------------------- void __fastcall TIST0070M::BtnCloseClick(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TIST0070M::OnSubFormClose(TMessage Msg) { int nActiveIdx = PgTab->ActivePageIndex; if (nActiveIdx <= 0) return; LockWindowUpdate(Handle); TcxTabSheet *pSheet = PgTab->ActivePage; if (pSheet) { delete pSheet; } nActiveIdx--; // ù¹øÂ° ÅÇÀº È­¸é¿¡ ¼û°ÜÁ® ÀÖ´Ù. m_pFormList->Delete(nActiveIdx); LockWindowUpdate(0); } //--------------------------------------------------------------------------- void __fastcall TIST0070M::PgTabDblClick(TObject *Sender) { TPoint APoint; APoint = PgTab->MouseDownPos; if (PgTab->IndexOfTabAt(APoint.x, APoint.y) != -1) POST_MSG(Handle, WM_SUBFORM_CLOSE, 0, 0); } //--------------------------------------------------------------------------- void __fastcall TIST0070M::FormClose(TObject *Sender, TCloseAction &Action) { CommClose(); IST0070M = NULL; Action = caFree; } //--------------------------------------------------------------------------- void __fastcall TIST0070M::CbStatTypePropertiesChange(TObject *Sender) { switch(CbStatType->ItemIndex) { case 0: //15ºÐ Åë°è case 1: //½Ã°£ Åë°è(1½Ã°£) DtStDate->Format = " yyyy³â MM¿ù ddÀÏ"; DtEdDate->Format = " yyyy³â MM¿ù ddÀÏ"; DtStTime->Visible = true; DtEdTime->Visible = true; break; case 2: //ÀÏ Åë°è(1ÀÏ) DtStDate->Format = " yyyy³â MM¿ù ddÀÏ"; DtEdDate->Format = " yyyy³â MM¿ù ddÀÏ"; DtStTime->Visible = false; DtEdTime->Visible = false; break; case 3: //¿ù Åë°è(1°³¿ù) DtStDate->Format = " yyyy³â MM¿ù"; DtEdDate->Format = " yyyy³â MM¿ù"; DtStTime->Visible = false; DtEdTime->Visible = false; break; case 4: //³â Åë°è(1³â) DtStDate->Format = " yyyy³â"; DtEdDate->Format = " yyyy³â"; DtStTime->Visible = false; DtEdTime->Visible = false; break; } } //--------------------------------------------------------------------------- void __fastcall TIST0070M::PgQryPageChanging(TObject *Sender, TcxTabSheet *NewPage, bool &AllowChange) { switch(NewPage->PageIndex) { case 0 : PnlQry->Height = 190; break; case 1 : PnlQry->Height = 220; break; case 2 : PnlQry->Height = 300; break; } } //--------------------------------------------------------------------------- void __fastcall TIST0070M::SearchTermLink(bool ALink/*=false*/) { TcxGrid *pCxList = NULL; TcxGridTableView *pTvList = NULL; int nIdCol = -1; if (PgLink->Properties->ActivePage->PageIndex == 0) { pCxList = FRAMELinkList1->CxList; pTvList = FRAMELinkList1->TvList; nIdCol = FRAMELinkList1->Column01->Index; FLinkLevel = 0; } else if (PgLink->Properties->ActivePage->PageIndex == 1) { pCxList = FRAMEIfscList1->CxList; pTvList = FRAMEIfscList1->TvList; nIdCol = FRAMEIfscList1->Column01->Index; FLinkLevel = 1; } else if (PgLink->Properties->ActivePage->PageIndex == 2) { pCxList = FRAMERoadList1->CxList; pTvList = FRAMERoadList1->TvList; nIdCol = FRAMERoadList1->Column01->Index; FLinkLevel = 2; } if (!pTvList) return; if (ALink) { TcxDataController *pGDC = pTvList->DataController; int nIndex = pGDC->FocusedRecordIndex; if( nIndex < 0 ) { Application->MessageBox(FrmLang->lblSelErr->Caption.c_str(),//L"¸µÅ©¸¦ ¸ÕÀú ¼±Åà Çϼ¼¿ä.", FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); ActiveControl = pCxList; return; } FLinkId = VarToStr(pGDC->Values[nIndex][nIdCol]); } else { if (FAtrdId == "") { Application->MessageBox(FrmLang->lblSelErr->Caption.c_str(),//L"°£¼±µµ·Î¸¦ ¸ÕÀú ¼±Åà Çϼ¼¿ä.", FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); ActiveControl = CbAtrd; return; } FLinkId = FAtrdId; } String sStTime, sEdTime, sTemp; switch(CbStatType->ItemIndex) { case 0: //15ºÐ Åë°è case 1: //½Ã°£ Åë°è(1½Ã°£) sStTime = DtStDate->Date.FormatString("yyyyMMdd") + DtStTime->Time.FormatString("hh"); sEdTime = DtEdDate->Date.FormatString("yyyyMMdd") + DtEdTime->Time.FormatString("hh"); FStTime = sStTime + "0000"; FEdTime = sEdTime + "5959"; break; case 2: //ÀÏ Åë°è(1ÀÏ) sStTime = DtStDate->Date.FormatString("yyyyMMdd"); sEdTime = DtEdDate->Date.FormatString("yyyyMMdd"); FStTime = sStTime + "000000"; FEdTime = sEdTime + "235959"; break; case 3: //¿ù Åë°è(1°³¿ù) sStTime = DtStDate->Date.FormatString("yyyyMM"); sEdTime = DtEdDate->Date.FormatString("yyyyMM"); sTemp.printf(L"%02d", ITSUtil_GetMonthLastDay(AnsiString(sEdTime).c_str())); FStTime = sStTime + "01000000"; FEdTime = sEdTime + sTemp + "235959"; break; case 4: //³â Åë°è(1³â) sStTime = DtStDate->Date.FormatString("yyyy"); sEdTime = DtEdDate->Date.FormatString("yyyy"); FStTime = sStTime + "0101000000"; FEdTime = sEdTime + "1231235959"; break; default: return; } if (sStTime > sEdTime) { Application->MessageBox(FrmLang->lblQryDtErr->Caption.c_str(),//L"°Ë»ö ½ÃÀ۽ð¢ÀÌ °Ë»ö Á¾·á½Ã°¢ º¸´Ù Å®´Ï´Ù.", FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); ActiveControl = DtStDate; return; } FStatType = CbStatType->ItemIndex; String sTitle; #if 0 sTitle.printf(L"%s - %s(%s~%s) %s ", PgLink->Properties->ActivePage->Caption.c_str(), CbStatType->Text.c_str(), sStTime.c_str(), sEdTime.c_str(), FLinkId.c_str()); #endif if (ALink) { sTitle.printf(L"%s-(%s) %s ", PgLink->Properties->ActivePage->Caption.c_str(), CbStatType->Text.c_str(), FLinkId.c_str()); } else { sTitle.printf(L"%s-(%s) %s ", PgLink->Properties->ActivePage->Caption.c_str(), CbStatType->Text.c_str(), FAtrdNm.c_str()); } try { Application->ProcessMessages(); LockWindowUpdate(Handle); TcxTabSheet *pSheet = CMM_AddTabSheet(PgTab, sTitle); if (!pSheet) return; IST00701 = new TIST00701(this, Handle, FLinkId, sStTime, sEdTime, FLinkLevel, FStatType, ALink); IST00701->Parent = pSheet; IST00701->Show(); PgTab->ActivePage = pSheet; pSheet = PgTab->ActivePage; m_pFormList->Add(IST00701); } __finally { LockWindowUpdate(0); } } //--------------------------------------------------------------------------- void __fastcall TIST0070M::SearchTimeLink(bool ALink/*=false*/) { TcxGrid *pCxList = NULL; TcxGridTableView *pTvList = NULL; int nIdCol = -1; if (PgLink->Properties->ActivePage->PageIndex == 0) { pCxList = FRAMELinkList1->CxList; pTvList = FRAMELinkList1->TvList; nIdCol = FRAMELinkList1->Column01->Index; FLinkLevel = 0; } else if (PgLink->Properties->ActivePage->PageIndex == 1) { pCxList = FRAMEIfscList1->CxList; pTvList = FRAMEIfscList1->TvList; nIdCol = FRAMEIfscList1->Column01->Index; FLinkLevel = 1; } else if (PgLink->Properties->ActivePage->PageIndex == 2) { pCxList = FRAMERoadList1->CxList; pTvList = FRAMERoadList1->TvList; nIdCol = FRAMERoadList1->Column01->Index; FLinkLevel = 2; } if (!pTvList) return; if (ALink) { TcxDataController *pGDC = pTvList->DataController; int nIndex = pGDC->FocusedRecordIndex; if( nIndex < 0 ) { Application->MessageBox(FrmLang->lblSelErr->Caption.c_str(),//L"¸µÅ©¸¦ ¸ÕÀú ¼±Åà Çϼ¼¿ä.", FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); ActiveControl = pCxList; return; } FLinkId = VarToStr(pGDC->Values[nIndex][nIdCol]); } else { if (FAtrdId == "") { Application->MessageBox(FrmLang->lblSelErr->Caption.c_str(),//L"°£¼±µµ·Î¸¦ ¸ÕÀú ¼±Åà Çϼ¼¿ä.", FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); ActiveControl = CbAtrd; return; } FLinkId = FAtrdId; } String sStTime, sEdTime, sTemp; switch(CbStatType->ItemIndex) { case 0: //15ºÐ Åë°è case 1: //½Ã°£ Åë°è(1½Ã°£) sStTime = dtStrDate1->DateTime.FormatString("yyyyMMdd"); sEdTime = dtEndDate1->DateTime.FormatString("yyyyMMdd"); FStTime = sStTime + "000000"; FEdTime = sEdTime + "235959"; break; default: return; } if (sStTime > sEdTime) { Application->MessageBox(FrmLang->lblQryDtErr->Caption.c_str(),//L"°Ë»ö ½ÃÀÛÀÏÀÌ °Ë»ö Á¾·áÀÏ º¸´Ù Å®´Ï´Ù.", FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); ActiveControl = dtStrDate1; return; } if (CbStrTm1->ItemIndex > CbEndTm1->ItemIndex) { Application->MessageBox(FrmLang->lblQryHourErr->Caption.c_str(),//L"½Ã°£´ë ½ÃÀ۽ð¢ÀÌ ½Ã°£´ë Á¾·á½Ã°¢ º¸´Ù Å®´Ï´Ù.", FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); ActiveControl = CbStrTm1; return; } FStTerm.printf(L"%02d0000", CbStrTm1->ItemIndex); FEdTerm.printf(L"%02d5959", CbEndTm1->ItemIndex); FStatType = CbStatType1->ItemIndex; String sTitle; #if 0 sTitle.printf(L"%s - %s(%s~%s) %s ", PgLink->Properties->ActivePage->Caption.c_str(), CbStatType1->Text.c_str(), sStTime.c_str(), sEdTime.c_str(), FLinkId.c_str()); #endif if (ALink) { sTitle.printf(L"%s-(%s) %s ", PgLink->Properties->ActivePage->Caption.c_str(), CbStatType->Text.c_str(), FLinkId.c_str()); } else { sTitle.printf(L"%s-(%s) %s ", PgLink->Properties->ActivePage->Caption.c_str(), CbStatType->Text.c_str(), FAtrdNm.c_str()); } try { Application->ProcessMessages(); LockWindowUpdate(Handle); TcxTabSheet *pSheet = CMM_AddTabSheet(PgTab, sTitle); if (!pSheet) return; IST00702 = new TIST00702(this, Handle, FLinkId, FStTime, FEdTime, FLinkLevel, FStatType, FStTerm, FEdTerm, ALink); IST00702->Parent = pSheet; IST00702->Show(); PgTab->ActivePage = pSheet; pSheet = PgTab->ActivePage; m_pFormList->Add(IST00702); } __finally { LockWindowUpdate(0); } } //--------------------------------------------------------------------------- void __fastcall TIST0070M::SearchSpotLink(bool ALink/*=false*/) { TcxGrid *pCxList = NULL; TcxGridTableView *pTvList = NULL; int nIdCol = -1; if (PgLink->Properties->ActivePage->PageIndex == 0) { pCxList = FRAMELinkList1->CxList; pTvList = FRAMELinkList1->TvList; nIdCol = FRAMELinkList1->Column01->Index; FLinkLevel = 0; } else if (PgLink->Properties->ActivePage->PageIndex == 1) { pCxList = FRAMEIfscList1->CxList; pTvList = FRAMEIfscList1->TvList; nIdCol = FRAMEIfscList1->Column01->Index; FLinkLevel = 1; } else if (PgLink->Properties->ActivePage->PageIndex == 2) { pCxList = FRAMERoadList1->CxList; pTvList = FRAMERoadList1->TvList; nIdCol = FRAMERoadList1->Column01->Index; FLinkLevel = 2; } if (!pTvList) return; if (ALink) { TcxDataController *pGDC = pTvList->DataController; int nIndex = pGDC->FocusedRecordIndex; if( nIndex < 0 ) { Application->MessageBox(FrmLang->lblSelErr->Caption.c_str(),//L"¸µÅ©¸¦ ¸ÕÀú ¼±Åà Çϼ¼¿ä.", FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); ActiveControl = pCxList; return; } FLinkId = VarToStr(pGDC->Values[nIndex][nIdCol]); } else { if (FAtrdId == "") { Application->MessageBox(FrmLang->lblSelErr->Caption.c_str(),//L"°£¼±µµ·Î¸¦ ¸ÕÀú ¼±Åà Çϼ¼¿ä.", FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); ActiveControl = CbAtrd; return; } FLinkId = FAtrdId; } int nSelects = CMM_GetCheckCount(TvList, ColumnSel->Index); if (0 == nSelects) { Application->MessageBox(FrmLang->lblSelNoDate->Caption.c_str(),//L"°Ë»ö ÁöÁ¤ÀÏÀ» ¼±ÅÃÇÏÁö ¾Ê¾Ò½À´Ï´Ù.", FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); ActiveControl = CxList; return; } bool bDateCheck = true; int nRowCnt = TvList->ViewData->RecordCount; for (int ii = 0; ii < nRowCnt; ii++) { TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii]; if (((bool)ARow->Values[ColumnSel->Index])) { try { if (VarIsNull(ARow->Values[Column01->Index])) { bDateCheck = false; break; } String sSelDay = ARow->Values[Column01->Index]; sSelDay = StringReplace(sSelDay, DateSeparator, "", TReplaceFlags() << rfReplaceAll); if (sSelDay.Length() != 8) { bDateCheck = false; break; } } catch(Exception &e) { } } } if (!bDateCheck) { Application->MessageBox(FrmLang->lblSelDtErr->Caption.c_str(),//L"°Ë»ö ÁöÁ¤ÀÏÀÇ ÀÏÀÚ°¡ ¿Ã¹Ù¸£Áö ¾Ê¾Ò½À´Ï´Ù.", FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); ActiveControl = CxList; return; } if (CbStrTm2->ItemIndex > CbEndTm2->ItemIndex) { Application->MessageBox(FrmLang->lblSelHourOver->Caption.c_str(),//L"½Ã°£´ë ½ÃÀ۽ð¢ÀÌ ½Ã°£´ë Á¾·á½Ã°¢ º¸´Ù Å®´Ï´Ù.", FTitle.c_str(), MB_OK|MB_ICONWARNING|MB_APPLMODAL); ActiveControl = CbStrTm1; return; } FStTerm.printf(L"%02d0000", CbStrTm2->ItemIndex); FEdTerm.printf(L"%02d5959", CbEndTm2->ItemIndex); FStatType = CbStatType2->ItemIndex; String sTitle; #if 0 sTitle.printf(L"%s - %s %s ", PgLink->Properties->ActivePage->Caption.c_str(), CbStatType2->Text.c_str(), FLinkId.c_str()); #endif if (ALink) { sTitle.printf(L"%s-(%s) %s ", PgLink->Properties->ActivePage->Caption.c_str(), CbStatType->Text.c_str(), FLinkId.c_str()); } else { sTitle.printf(L"%s-(%s) %s ", PgLink->Properties->ActivePage->Caption.c_str(), CbStatType->Text.c_str(), FAtrdNm.c_str()); } try { Application->ProcessMessages(); LockWindowUpdate(Handle); TcxTabSheet *pSheet = CMM_AddTabSheet(PgTab, sTitle); if (!pSheet) return; IST00703 = new TIST00703(this, Handle, FLinkId, FStTime, FEdTime, FLinkLevel, FStatType, FStTerm, FEdTerm, ALink); IST00703->FSelDayCnt = 0; int nRowCnt = TvList->ViewData->RecordCount; for (int ii = 0; ii < nRowCnt; ii++) { TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii]; if (((bool)ARow->Values[ColumnSel->Index])) { try { TDateTime dt = VarToDateTime(ARow->Values[Column01->Index]); String sSelDay = dt.FormatString("yyyyMMdd"); IST00703->FSelDay[IST00703->FSelDayCnt++] = sSelDay; } catch(Exception &e) { } } } IST00703->Parent = pSheet; IST00703->Show(); PgTab->ActivePage = pSheet; pSheet = PgTab->ActivePage; m_pFormList->Add(IST00702); } __finally { LockWindowUpdate(0); } } //--------------------------------------------------------------------------- void __fastcall TIST0070M::ClearAtrdList() { CMM_ClearGridTableView(FRAMELinkList1->TvList); CMM_ClearGridTableView(FRAMEIfscList1->TvList); CMM_ClearGridTableView(FRAMERoadList1->TvList); } //--------------------------------------------------------------------------- void __fastcall TIST0070M::FillAtrdList(String AAtrdId) { TItsAtrd *pAtrd = MyItsAtrdManager->FLists.Find(AAtrdId); if (!pAtrd) return; FOR_STL(TItsAtrdRoad*, pAtrdRoad, pAtrd->FRoads) { TItsRoad *pRoad = ItsRoadManager->FLists.Find(pAtrdRoad->ROAD_ID); if (!pRoad) continue; FRAMERoadList1->AddRoad(pRoad->ROAD_ID); std::map::iterator itPos; for(itPos = pRoad->FIfscs.begin(); itPos != pRoad->FIfscs.end(); ++itPos) { String sIfscId = itPos->second; TItsIfsc *pIfsc = ItsIfscManager->FLists.Find(sIfscId); if (!pIfsc) continue; FRAMEIfscList1->AddIfsc(pIfsc->IFSC_ID); std::map::iterator itPos2; for(itPos2 = pIfsc->FLinks.begin(); itPos2 != pIfsc->FLinks.end(); ++itPos2) { String sLinkId = itPos2->second; TItsLink *pLink = ItsLinkManager->FLists.Find(sLinkId); if (!pLink) continue; FRAMELinkList1->AddLink(pLink->LINK_ID); } } } } //--------------------------------------------------------------------------- void __fastcall TIST0070M::CbAtrdPropertiesChange(TObject *Sender) { ClearAtrdList(); int nIdx = CbAtrd->ItemIndex; if (nIdx < 0 || nIdx >= CbAtrd->Properties->Items->Count) { return; } TItsAtrd *pObj = (TItsAtrd*)CbAtrd->Properties->Items->Objects[CbAtrd->ItemIndex]; if (!pObj) return; FAtrdId = pObj->ATRD_ID; FAtrdNm = pObj->ATRD_NM; FillAtrdList(FAtrdId); } //--------------------------------------------------------------------------- void __fastcall TIST0070M::BtnSearch5Click(TObject *Sender) { if (PgQry->Properties->ActivePage->PageIndex == 0) { SearchTermLink(true); } else if (PgQry->Properties->ActivePage->PageIndex == 1) { SearchTimeLink(true); } else if (PgQry->Properties->ActivePage->PageIndex == 2) { SearchSpotLink(true); } } //--------------------------------------------------------------------------- void __fastcall TIST0070M::BtnSearchClick(TObject *Sender) { Application->ProcessMessages(); TSqlCursor sqlCrs((TControl*)BtnSearch); SearchTermLink(false); } //--------------------------------------------------------------------------- void __fastcall TIST0070M::BtnSearch1Click(TObject *Sender) { Application->ProcessMessages(); TSqlCursor sqlCrs((TControl*)BtnSearch1); SearchTimeLink(false); } //--------------------------------------------------------------------------- void __fastcall TIST0070M::BtnSearch2Click(TObject *Sender) { Application->ProcessMessages(); TSqlCursor sqlCrs((TControl*)BtnSearch2); SearchSpotLink(false); } //--------------------------------------------------------------------------- void __fastcall TIST0070M::PgTabCanCloseEx(TObject *Sender, int ATabIndex, bool &ACanClose) { int nActiveIdx = ATabIndex; if (nActiveIdx <= 0) return; nActiveIdx--; // ù¹øÂ° ÅÇÀº È­¸é¿¡ ¼û°ÜÁ® ÀÖ´Ù. m_pFormList->Delete(nActiveIdx); } //---------------------------------------------------------------------------