//--------------------------------------------------------------------------- #include #include "ITSSkinF.h" #include "ITSUtilF.h" #include "ITSDbF.h" #include "AppGlobalF.h" #include "WindowMsgF.h" #include #include "ITSLangTransF.h" #include "ITS_OPLibF.h" #pragma hdrstop #include "TAS00501F.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "cxButtons" #pragma link "cxCheckBox" #pragma link "cxClasses" #pragma link "cxContainer" #pragma link "cxControls" #pragma link "cxCustomData" #pragma link "cxData" #pragma link "cxDataStorage" #pragma link "cxEdit" #pragma link "cxFilter" #pragma link "cxGraphics" #pragma link "cxGrid" #pragma link "cxGridBandedTableView" #pragma link "cxGridCustomTableView" #pragma link "cxGridCustomView" #pragma link "cxGridLevel" #pragma link "cxGridTableView" #pragma link "cxLabel" #pragma link "cxLookAndFeelPainters" #pragma link "cxLookAndFeels" #pragma link "cxSplitter" #pragma link "cxStyles" #pragma link "dxSkinBlack" #pragma link "dxSkinBlue" #pragma link "dxSkinsCore" #pragma link "dxSkinscxPCPainter" #pragma link "dxSkinMcSkin" #pragma resource "*.dfm" TTAS00501 *TAS00501 = NULL; //--------------------------------------------------------------------------- __fastcall TTAS00501::TTAS00501(TComponent* Owner, HWND hHandle, String AAtrdId, String AAtrdNm, String AAtrdId1, String AAtrdNm1, String AQryDay) : TForm(Owner) { LangTrans->Translate(this, ITSDb_GetConnection()); ITSSkin_Load(this); CMM_LoadForm(g_sFormsDir, this); FParent = hHandle; FAtrdId = AAtrdId; //IFSC_ID FAtrdNm = AAtrdNm; //IFSC_NM FAtrdId1 = AAtrdId1; //IFSC_ID FAtrdNm1 = AAtrdNm1; //IFSC_NM FQryDay = AQryDay; //특수일 FTrfManager = new TDetourTrfManager(); SetQueryDay(FQryDay); } //--------------------------------------------------------------------------- __fastcall TTAS00501::~TTAS00501(void) { } //-------------------------------------------------------------------------- void __fastcall TTAS00501::FormInit() { ADOQry->Connection = ITSDb_GetConnection(); m_pGDC = TvList->DataController; TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<우회도로분석 정보>"; LblSearch->Caption = FrmLang->lblQryCond->Caption + FAtrdId + "/" + FAtrdId1 + " [" + FQryDay + "]"; } //--------------------------------------------------------------------------- void __fastcall TTAS00501::FormShow(TObject *Sender) { FormInit(); Refresh(); TmrShow->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TTAS00501::CommClose() { try { delete FTrfManager; FTrfManager = NULL; } catch(Exception &e) { } CMM_SaveForm(g_sFormsDir, this); //TAS00501 = NULL; } //--------------------------------------------------------------------------- void __fastcall TTAS00501::TmrShowTimer(TObject *Sender) { TmrShow->Enabled = false; Application->ProcessMessages(); SelHistory1(); SelHistory2(); DspHistory(); } //--------------------------------------------------------------------------- void __fastcall TTAS00501::ChkExpandClick(TObject *Sender) { CMM_ExpandCollapseChk(TvList, ChkExpand->Checked); } //--------------------------------------------------------------------------- String __fastcall TTAS00501::GetDayWeek(TDateTime ADay) { System::Word week = DayOfWeek(ADay); //const days: array[1..7] of string = ('일','월','화','수','목','금','토'); String sWeek[8] = { "", "일", "월", "화", "수", "목", "금", "토" }; return " [" + sWeek[week] + "]"; } //--------------------------------------------------------------------------- void __fastcall TTAS00501::SetQueryDay(String ADay) { TDateTime dt, dtTemp; System::Word Year = (System::Word)ADay.SubString( 1, 4).ToIntDef(2018); System::Word Month = (System::Word)ADay.SubString( 5, 2).ToIntDef(1); System::Word Day = (System::Word)ADay.SubString( 7, 2).ToIntDef(1); dt = EncodeDate(Year, Month, Day); int nInc = -3; for (int ii = 0; ii < MAX_QRY_TERM; ii++) { FQryDayList[ii] = IncDay(dt, nInc++); TDetourTrf *pTrf = new TDetourTrf(); pTrf->dtQry = FQryDayList[ii]; pTrf->sQryDay = FQryDayList[ii].FormatString("YYYYMMDD"); pTrf->IFSC_ID = FAtrdId; FTrfManager->FLists.Push(pTrf->sQryDay, pTrf); TvList->Bands->Items[ii+1]->Caption = FQryDayList[ii].FormatString("YYYY-MM-DD") + GetDayWeek(FQryDayList[ii]); } } //--------------------------------------------------------------------------- void __fastcall TTAS00501::SelHistory1() { #if 0 #endif } //--------------------------------------------------------------------------- void __fastcall TTAS00501::SelHistory2() { TSqlCursor sqlCrs; String sQry; TADOQuery *pADO = ADOQry; sQry = "SELECT A.IFSC_ID, A.STAT_DT, \r\n" " SUBSTR(A.STAT_DT, 1,8) AS STAT_DD, SUBSTR(A.STAT_DT, 9,2) AS STAT_HH, \r\n" " A.SPED, A.TRVL_HH, \r\n" " NVL(B.CMTR_GRAD_CD, 'LTC0') AS GRAD \r\n" " FROM TB_IFSC_HH_STAT A, \r\n" " TB_SECT_GRAD_STUP B, \r\n" " TB_IFSC C \r\n" " WHERE A.STAT_DT BETWEEN :p01 AND :p02 \r\n" " AND A.IFSC_ID IN (:p03, :p04) \r\n" " AND A.IFSC_ID = C.IFSC_ID \r\n" " AND B.SECT_GRAD_CD = C.SECT_GRAD_CD \r\n" " AND (A.SPED >= B.LWST_TRVL_SPED AND A.SPED <= B.HGHS_TRVL_SPED) \r\n"; try { ITSDb_SQLText(pADO, sQry); ITSDb_SQLBind(pADO, "p01", FQryDayList[ 0].FormatString("YYYYMMDD") + "000000"); ITSDb_SQLBind(pADO, "p02", FQryDayList[MAX_QRY_TERM-1].FormatString("YYYYMMDD") + "235959"); ITSDb_SQLBind(pADO, "p03", FAtrdId); //IFSC_ID ITSDb_SQLBind(pADO, "p04", FAtrdId1); //IFSC_ID ITSDb_SQLOpen(pADO); int nIdx, nIfsc; TDetourTrf *pTrf; for( ; !pADO->Eof; pADO->Next()) { pTrf = FTrfManager->FLists.Find(pADO->FieldByName("STAT_DD")->AsString); if (pTrf == NULL) continue; nIdx = pADO->FieldByName("STAT_HH")->AsInteger; if (pADO->FieldByName("IFSC_ID")->AsString == FAtrdId) nIfsc = 0; else nIfsc = 1; pTrf->INFO[nIfsc][nIdx].SPED = pADO->FieldByName("SPED")->AsString.ToIntDef(0); pTrf->INFO[nIfsc][nIdx].GRAD = pADO->FieldByName("GRAD")->AsString; } pADO->Close(); } catch(EDatabaseError &E) { ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2); DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQry); throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2); DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQry); throw Exception(String(e.ClassName()) + e.Message); } } //--------------------------------------------------------------------------- void __fastcall TTAS00501::DspHistory() { m_pGDC = TvList->DataController; try { CMM_ClearGridTableView(TvList); int nRow1 = 0; int nDataCnt = 0; int ii; try { TvList->BeginUpdate(lsimImmediate); nDataCnt = FTrfManager->FLists.Size(); String sCaption; int nIdxSped, nIdxGrad; int nGap; for (ii = 0; ii < DAY_HOUR; ii++) { nRow1 = m_pGDC->AppendRecord(); sCaption.printf(L"%02d", ii); m_pGDC->Values[nRow1][Col03->Index] = sCaption; nIdxSped = ColSped->Index; nIdxGrad = ColGrad->Index; FOR_STL(TDetourTrf*, pObj, FTrfManager->FLists) { m_pGDC->Values[nRow1][nIdxSped++] = pObj->INFO[0][ii].SPED; m_pGDC->Values[nRow1][nIdxSped++] = pObj->INFO[1][ii].SPED; nGap = pObj->INFO[0][ii].SPED - pObj->INFO[1][ii].SPED; if (nGap < 0) { sCaption.printf(L"▼ %3d", nGap*-1); } else if (nGap > 0) { sCaption.printf(L"▲ %3d", nGap); } else { sCaption = "0"; } m_pGDC->Values[nRow1][nIdxSped++] = sCaption; m_pGDC->Values[nRow1][nIdxGrad++] = pObj->INFO[0][ii].GRAD; m_pGDC->Values[nRow1][nIdxGrad++] = pObj->INFO[1][ii].GRAD; m_pGDC->Values[nRow1][nIdxGrad++] = pObj->INFO[0][ii].GRAD; } } } __finally { TvList->EndUpdate(); //CxList->SetFocus(); //DrawChart(FAtrdNm + " [" + FQryDay + "]"); LblRecords->Caption = FormatFloat("##,##0", m_pGDC->RecordCount) + FrmLang->lblEA->Caption;//" 건"; String sEnd = FrmLang->lblQrySel->Caption + " [" + LblRecords->Caption + "]";//"데이터 " + LblRecords->Caption + " 이 조회 되었습니다."; Application->MessageBox(sEnd.c_str(), FrmLang->lblQryEnd->Caption.c_str(),//L"데이터 조회 완료", MB_OK|MB_ICONINFORMATION|MB_APPLMODAL); } } catch(EDatabaseError &E) { throw Exception(String(E.ClassName()) + E.Message); } catch(Exception &e) { throw Exception(String(e.ClassName()) + e.Message); } } //--------------------------------------------------------------------------- void __fastcall TTAS00501::DrawChart(String ATitle) { TcxGridBandedTableView *pView = NULL; String sAxisX, sAxisY; int nAxisY1, nAxisY2, nStColIdx, nEdColIdx, nTotColIdx; nEdColIdx = 0; nTotColIdx = -1; pView = TvList; nAxisY1 = Col03->Index; //특수일 nAxisY2 = Col04->Index; //구분(화면보이지 않음) nEdColIdx = TvListColumn29->Index; // 23시 nStColIdx = ColSped->Index; // 00시 /* * Chart draw */ try { m_pFrmChart->Clear(); if (pView->DataController->RecordCount == 0) { return; } m_pFrmChart->BeginDraw("", "", ""); m_pFrmChart->DrawChart5_1((TcxGridTableView *)pView, nAxisY1, nAxisY2, nStColIdx, nEdColIdx, nTotColIdx); m_pFrmChart->EndDraw(); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TTAS00501::OnMessage(TMessage &Msg) { switch (Msg.Msg) { case WM_PARAM_DATABASE: if (WP_DB_SELECT_OK == Msg.WParam) { //ShowMessage("Select Ok"); } break; } } //--------------------------------------------------------------------------- void __fastcall TTAS00501::BtnExlSaveClick(TObject *Sender) { TcxGrid *pGrid = CxList; TcxGridTableView *pView = TvList; String sTitle= Caption;//"우회도로분석"; CMM_ExportToExcelFile(sTitle, pGrid, pView, this); } //--------------------------------------------------------------------------- void __fastcall TTAS00501::FormClose(TObject *Sender, TCloseAction &Action) { POST_MSG(FParent, WM_SUBFORM_CLOSE, 0, 0); CommClose(); //TAS00501 = NULL; } //--------------------------------------------------------------------------- void __fastcall TTAS00501::FormDestroy(TObject *Sender) { CommClose(); } //--------------------------------------------------------------------------- void __fastcall TTAS00501::FormCreate(TObject *Sender) { m_pFrmChart = new TPlugInChart(this); m_pFrmChart->Parent = PnlChart; m_pFrmChart->SetChartInfo("", "시간", "속도"); m_pFrmChart->Show(); } //--------------------------------------------------------------------------- void __fastcall TTAS00501::ColSpedCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone) { TColor tColor = ACanvas->Brush->Color; TColor tFont = clBlack; try { if (!VarIsNull(AViewInfo->Value)) { String sSpd = AViewInfo->Value; if (sSpd == NULL || sSpd.IsEmpty() || sSpd == "0" || sSpd == "-") { tColor = clSilver; } else { String sGrad = AViewInfo->GridRecord->DisplayTexts[AViewInfo->Item->Index+24]; if (sGrad == "LTC1") tColor = clLime; else if (sGrad == "LTC2") tColor = clYellow; else if (sGrad == "LTC3") tColor = clRed; else tColor = clSilver; } } else { tColor = clSilver; } if (tColor == clSilver) tFont = tColor; ACanvas->Font->Color = tFont; ACanvas->SetBrushColor(tColor); } catch(...) { } } //--------------------------------------------------------------------------- void __fastcall TTAS00501::TvListDiffCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone) { TColor tColor = ACanvas->Brush->Color; TColor tFont = clBlack; try { if (!VarIsNull(AViewInfo->Value)) { String sTmp = AViewInfo->Value; int sVal = sTmp.ToIntDef(99999); if (sVal != 99999) { if (sVal > 2) { tColor = clRed; } else if (sVal < -2) { tColor = clFuchsia; } else { tColor = clLime; } } } ACanvas->Font->Color = tFont; ACanvas->SetBrushColor(tColor); } catch(...) { } } //---------------------------------------------------------------------------