//--------------------------------------------------------------------------- #include #include "ITSSkinF.h" #include "ITSUtilF.h" #include "ITSDbF.h" #include "AppGlobalF.h" #include "WindowMsgF.h" #include "ITSLangTransF.h" #include "ITS_OPLibF.h" #pragma hdrstop #include "TAS00201F.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" TTAS00201 *TAS00201 = NULL; //--------------------------------------------------------------------------- __fastcall TTAS00201::TTAS00201(TComponent* Owner, HWND hHandle, String AAtrdId, String AAtrdNm, String AQryDay, String APtrnWeek, String APtrnWeekName) : TForm(Owner) { LangTrans->Translate(this, ITSDb_GetConnection()); ITSSkin_Load(this); CMM_LoadForm(g_sFormsDir, this); FParent = hHandle; FAtrdId = AAtrdId; FAtrdNm = AAtrdNm; FQryDay = AQryDay; FPtrnWeek = APtrnWeek; FPtrnWeekName = APtrnWeekName; } //--------------------------------------------------------------------------- __fastcall TTAS00201::~TTAS00201(void) { } //-------------------------------------------------------------------------- void __fastcall TTAS00201::FormInit() { ADOQry->Connection = ITSDb_GetConnection(); m_pGDC = TvList->DataController; TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<교통패턴분석 정보>"; LblSearch->Caption = FrmLang->lblQryCond->Caption + FAtrdNm + " " + FQryDay + " " + FPtrnWeekName; } //--------------------------------------------------------------------------- void __fastcall TTAS00201::FormShow(TObject *Sender) { FormInit(); Refresh(); TmrShow->Enabled = true; } //--------------------------------------------------------------------------- void __fastcall TTAS00201::CommClose() { CMM_SaveForm(g_sFormsDir, this); //TAS00201 = NULL; } //--------------------------------------------------------------------------- void __fastcall TTAS00201::TmrShowTimer(TObject *Sender) { TmrShow->Enabled = false; Application->ProcessMessages(); SelHistory(); } //--------------------------------------------------------------------------- void __fastcall TTAS00201::ChkExpandClick(TObject *Sender) { CMM_ExpandCollapseChk(TvList, ChkExpand->Checked); } //--------------------------------------------------------------------------- void __fastcall TTAS00201::SelHistory() { TSqlCursor sqlCrs; String sQry; TADOQuery *pADO = ADOQry; sQry = "SELECT L.*, M.*, DECODE(L.DRCT_CD, '0', '상행', '하행') AS DRCT_CD_NM \r\n" " FROM (SELECT X.ATRD_ID, X.ATRD_NM, X.DRCT_CD, X.DRCT_NM, \r\n" " Y.ROAD_ORD, Y.IFSC_ORD, Y.IFSC_ID, Y.IFSC_NM, Y.STRT_NM, Y.END_NM, Y.SECT_LNGT \r\n" " FROM TB_ATRD X, \r\n" " (SELECT A.ATRD_ID, A.ORD AS ROAD_ORD, A.ROAD_ID, B.IFSC_ID, B.ORD AS IFSC_ORD, \r\n" " C.IFSC_NM, C.STRT_NM, C.END_NM, C.SECT_LNGT \r\n" " FROM TB_ATRD_RLTN_ROAD A, TB_ROAD_RLTN_IFSC B, TB_IFSC C \r\n" " WHERE A.ROAD_ID = B.ROAD_ID \r\n" " AND B.IFSC_ID = C.IFSC_ID \r\n" " AND A.ATRD_ID IN (SELECT ATRD_ID FROM TB_ATRD WHERE TRIM(ATRD_NM) = :p01) \r\n" " ) Y \r\n" " WHERE X.ATRD_ID = Y.ATRD_ID \r\n" " AND X.ATRD_ID IN (SELECT ATRD_ID FROM TB_ATRD WHERE TRIM(ATRD_NM) = :p02) \r\n" " ) L, \r\n" " (SELECT IFSC_ID AS IFSC_ID_H, \r\n" " SUM(DECODE(STAT_HM, '0000', DECODE(SPED, NULL, 0, SPED), 0)) AS S00, \r\n" " MAX(DECODE(STAT_HM, '0000', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G00, \r\n" " SUM(DECODE(STAT_HM, '0100', DECODE(SPED, NULL, 0, SPED), 0)) AS S01, \r\n" " MAX(DECODE(STAT_HM, '0100', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G01, \r\n" " SUM(DECODE(STAT_HM, '0200', DECODE(SPED, NULL, 0, SPED), 0)) AS S02, \r\n" " MAX(DECODE(STAT_HM, '0200', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G02, \r\n" " SUM(DECODE(STAT_HM, '0300', DECODE(SPED, NULL, 0, SPED), 0)) AS S03, \r\n" " MAX(DECODE(STAT_HM, '0300', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G03, \r\n" " SUM(DECODE(STAT_HM, '0400', DECODE(SPED, NULL, 0, SPED), 0)) AS S04, \r\n" " MAX(DECODE(STAT_HM, '0400', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G04, \r\n" " SUM(DECODE(STAT_HM, '0500', DECODE(SPED, NULL, 0, SPED), 0)) AS S05, \r\n" " MAX(DECODE(STAT_HM, '0500', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G05, \r\n" " SUM(DECODE(STAT_HM, '0600', DECODE(SPED, NULL, 0, SPED), 0)) AS S06, \r\n" " MAX(DECODE(STAT_HM, '0600', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G06, \r\n" " SUM(DECODE(STAT_HM, '0700', DECODE(SPED, NULL, 0, SPED), 0)) AS S07, \r\n" " MAX(DECODE(STAT_HM, '0700', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G07, \r\n" " SUM(DECODE(STAT_HM, '0800', DECODE(SPED, NULL, 0, SPED), 0)) AS S08, \r\n" " MAX(DECODE(STAT_HM, '0800', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G08, \r\n" " SUM(DECODE(STAT_HM, '0900', DECODE(SPED, NULL, 0, SPED), 0)) AS S09, \r\n" " MAX(DECODE(STAT_HM, '0900', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G09, \r\n" " SUM(DECODE(STAT_HM, '1000', DECODE(SPED, NULL, 0, SPED), 0)) AS S10, \r\n" " MAX(DECODE(STAT_HM, '1000', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G10, \r\n" " SUM(DECODE(STAT_HM, '1100', DECODE(SPED, NULL, 0, SPED), 0)) AS S11, \r\n" " MAX(DECODE(STAT_HM, '1100', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G11, \r\n" " SUM(DECODE(STAT_HM, '1200', DECODE(SPED, NULL, 0, SPED), 0)) AS S12, \r\n" " MAX(DECODE(STAT_HM, '1200', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G12, \r\n" " SUM(DECODE(STAT_HM, '1300', DECODE(SPED, NULL, 0, SPED), 0)) AS S13, \r\n" " MAX(DECODE(STAT_HM, '1300', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G13, \r\n" " SUM(DECODE(STAT_HM, '1400', DECODE(SPED, NULL, 0, SPED), 0)) AS S14, \r\n" " MAX(DECODE(STAT_HM, '1400', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G14, \r\n" " SUM(DECODE(STAT_HM, '1500', DECODE(SPED, NULL, 0, SPED), 0)) AS S15, \r\n" " MAX(DECODE(STAT_HM, '1500', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G15, \r\n" " SUM(DECODE(STAT_HM, '1600', DECODE(SPED, NULL, 0, SPED), 0)) AS S16, \r\n" " MAX(DECODE(STAT_HM, '1600', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G16, \r\n" " SUM(DECODE(STAT_HM, '1700', DECODE(SPED, NULL, 0, SPED), 0)) AS S17, \r\n" " MAX(DECODE(STAT_HM, '1700', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G17, \r\n" " SUM(DECODE(STAT_HM, '1800', DECODE(SPED, NULL, 0, SPED), 0)) AS S18, \r\n" " MAX(DECODE(STAT_HM, '1800', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G18, \r\n" " SUM(DECODE(STAT_HM, '1900', DECODE(SPED, NULL, 0, SPED), 0)) AS S19, \r\n" " MAX(DECODE(STAT_HM, '1900', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G19, \r\n" " SUM(DECODE(STAT_HM, '2000', DECODE(SPED, NULL, 0, SPED), 0)) AS S20, \r\n" " MAX(DECODE(STAT_HM, '2000', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G20, \r\n" " SUM(DECODE(STAT_HM, '2100', DECODE(SPED, NULL, 0, SPED), 0)) AS S21, \r\n" " MAX(DECODE(STAT_HM, '2100', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G21, \r\n" " SUM(DECODE(STAT_HM, '2200', DECODE(SPED, NULL, 0, SPED), 0)) AS S22, \r\n" " MAX(DECODE(STAT_HM, '2200', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G22, \r\n" " SUM(DECODE(STAT_HM, '2300', DECODE(SPED, NULL, 0, SPED), 0)) AS S23, \r\n" " MAX(DECODE(STAT_HM, '2300', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G23 \r\n" " FROM ( \r\n" " SELECT A.IFSC_ID, A.STAT_HM, A.SPED, A.TRVL_HH, \r\n" " NVL(B.CMTR_GRAD_CD, 'LTC0') AS GRAD \r\n" " FROM TB_IFSC_HH_PTRN A, \r\n" " TB_SECT_GRAD_STUP B, \r\n" " TB_IFSC C \r\n" " WHERE A.STAT_YM = :p03 \r\n" " AND A.DAY_TYPE_CD = :p04 \r\n" " AND A.IFSC_ID IN (SELECT B.IFSC_ID AS IFSC_ID \r\n" " FROM TB_ATRD_RLTN_ROAD A, TB_ROAD_RLTN_IFSC B, TB_IFSC C \r\n" " WHERE A.ROAD_ID = B.ROAD_ID \r\n" " AND B.IFSC_ID = C.IFSC_ID \r\n" " AND A.ATRD_ID IN (SELECT ATRD_ID \r\n" " FROM TB_ATRD WHERE TRIM(ATRD_NM) = :p05) \r\n" " GROUP BY B.IFSC_ID) \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" " ) \r\n" " GROUP BY IFSC_ID \r\n" " ) M \r\n" " WHERE L.IFSC_ID = M.IFSC_ID_H(+) \r\n" " ORDER BY L.ATRD_ID, L.DRCT_CD, L.ROAD_ORD, L.IFSC_ORD \r\n"; try { ITSDb_SQLText(pADO, sQry); ITSDb_SQLBind(pADO, "p01", FAtrdNm); ITSDb_SQLBind(pADO, "p02", FAtrdNm); ITSDb_SQLBind(pADO, "p03", FQryDay); ITSDb_SQLBind(pADO, "p04", FPtrnWeek); ITSDb_SQLBind(pADO, "p05", FAtrdNm); ITSDb_SQLOpen(pADO); DspHistory(); } 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 TTAS00201::DspHistory() { TADOQuery *pADO = ADOQry; m_pGDC = TvList->DataController; try { CMM_ClearGridTableView(TvList); int nRow = 0; int nDataCnt = 0; try { TvList->BeginUpdate(lsimImmediate); nDataCnt = pADO->RecordCount; m_pGDC->RecordCount = nDataCnt; for( ; !pADO->Eof; pADO->Next(), nRow++) { m_pGDC->Values[nRow][Col01->Index] = pADO->FieldByName("ATRD_NM")->AsString; m_pGDC->Values[nRow][Col02->Index] = pADO->FieldByName("DRCT_CD_NM")->AsString; m_pGDC->Values[nRow][Col03->Index] = pADO->FieldByName("STRT_NM")->AsString + " → " + pADO->FieldByName("END_NM")->AsString; String sSped, sGrad; int nIdxSped, nIdxGrad; nIdxSped = ColSped->Index; nIdxGrad = ColGrad->Index; for (int ii = 0; ii < 24; ii++) { sSped.printf(L"S%02d", ii); sGrad.printf(L"G%02d", ii); m_pGDC->Values[nRow][nIdxSped++] = pADO->FieldByName(sSped)->AsString; m_pGDC->Values[nRow][nIdxGrad++] = pADO->FieldByName(sGrad)->AsString; } } } __finally { if (pADO) { pADO->Close(); } TvList->EndUpdate(); //CxList->SetFocus(); DrawChart(FAtrdNm + " " + FQryDay + " " + FPtrnWeekName); 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) { ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2); DBERRORMSG(Caption, String(E.ClassName()), E.Message, pADO->SQL->Text); 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, pADO->SQL->Text); throw Exception(String(e.ClassName()) + e.Message); } } //--------------------------------------------------------------------------- void __fastcall TTAS00201::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 = Col02->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 TTAS00201::OnMessage(TMessage &Msg) { switch (Msg.Msg) { case WM_PARAM_DATABASE: if (WP_DB_SELECT_OK == Msg.WParam) { //ShowMessage("Select Ok"); } break; } } //--------------------------------------------------------------------------- void __fastcall TTAS00201::BtnExlSaveClick(TObject *Sender) { TcxGrid *pGrid = CxList; TcxGridTableView *pView = TvList; String sTitle= Caption;//"교통패턴분석"; CMM_ExportToExcelFile(sTitle, pGrid, pView, this); } //--------------------------------------------------------------------------- void __fastcall TTAS00201::FormClose(TObject *Sender, TCloseAction &Action) { POST_MSG(FParent, WM_SUBFORM_CLOSE, 0, 0); CommClose(); //TAS00201 = NULL; } //--------------------------------------------------------------------------- void __fastcall TTAS00201::FormDestroy(TObject *Sender) { CommClose(); } //--------------------------------------------------------------------------- void __fastcall TTAS00201::FormCreate(TObject *Sender) { m_pFrmChart = new TPlugInChart(this); m_pFrmChart->Parent = PnlChart; m_pFrmChart->SetChartInfo("", "시간", "패턴속도"); m_pFrmChart->Show(); } //--------------------------------------------------------------------------- void __fastcall TTAS00201::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(...) { } } //---------------------------------------------------------------------------