123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660 |
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #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 "TAS00601F.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 "cxSpinEdit"
- #pragma link "cxSplitter"
- #pragma link "cxStyles"
- #pragma link "dxSkinBlack"
- #pragma link "dxSkinBlue"
- #pragma link "dxSkinsCore"
- #pragma link "dxSkinscxPCPainter"
- #pragma link "dxSkinMcSkin"
- #pragma resource "*.dfm"
- TTAS00601 *TAS00601 = NULL;
- //---------------------------------------------------------------------------
- __fastcall TTAS00601::TTAS00601(TComponent* Owner, HWND hHandle,
- String AStDay, String AEdDay, String AStHour, String AEdHour, String AWeek, String ADir, String AAtrdNm, int ATable, int AQryType)
- : TForm(Owner)
- {
- LangTrans->Translate(this, ITSDb_GetConnection());
- ITSSkin_Load(this);
- CMM_LoadForm(g_sFormsDir, this);
- FParent = hHandle;
- FStDay = AStDay;
- FEdDay = AEdDay;
- FStHour = AStHour;
- FEdHour = AEdHour;
- FWeek = AWeek;
- FDir = ADir;
- FAtrdNm = AAtrdNm;
- FTable = ATable;
- FQryType = AQryType;
- }
- //---------------------------------------------------------------------------
- __fastcall TTAS00601::~TTAS00601(void)
- {
- }
- //--------------------------------------------------------------------------
- void __fastcall TTAS00601::FormInit()
- {
- ADOQry->Connection = ITSDb_GetConnection();
- m_pGDC = TvList->DataController;
- TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<노선별속도분석 정보>";
- LblSearch->Caption = FrmLang->lblQryCond->Caption + FStDay + " ~ " + FEdDay;
- }
- //---------------------------------------------------------------------------
- void __fastcall TTAS00601::FormShow(TObject *Sender)
- {
- FormInit();
- Refresh();
- TmrShow->Enabled = true;
- }
- //---------------------------------------------------------------------------
- void __fastcall TTAS00601::CommClose()
- {
- CMM_SaveForm(g_sFormsDir, this);
- //TAS00601 = NULL;
- }
- //---------------------------------------------------------------------------
- void __fastcall TTAS00601::TmrShowTimer(TObject *Sender)
- {
- TmrShow->Enabled = false;
- Application->ProcessMessages();
- if (FTable == 0)
- {
- Col04->Visible = true;
- SelHistory1();
- }
- else
- if (FTable == 1)
- {
- Col04->Visible = false;
- SelHistory2();
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TTAS00601::ChkExpandClick(TObject *Sender)
- {
- CMM_ExpandCollapseChk(TvList, ChkExpand->Checked);
- }
- //---------------------------------------------------------------------------
- String __fastcall TTAS00601::GetDayWeekCode(String ADay)
- {
- TDateTime dt;
- 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);
- System::Word week = DayOfWeek(dt);
- //const days: array[1..7] of string = ('일','월','화','수','목','금','토');
- String sWeek[8] = { "", "DTW7", "DTW1", "DTW2", "DTW3", "DTW4", "DTW5", "DTW6" };
- return sWeek[week];
- }
- //---------------------------------------------------------------------------
- void __fastcall TTAS00601::SelHistory1()
- {
- TSqlCursor sqlCrs;
- String sQry;
- TADOQuery *pADO = ADOQry;
- String SQLAtrd = "";
- String SQLDrct = "";
- String SQLWeek = "";
- if (FAtrdNm != "")
- {
- SQLAtrd = " AND ATRD_NM IN (" + FAtrdNm + ") \r\n";
- }
- if (FDir != "")
- {
- SQLDrct = " AND DRCT_CD IN (" + FDir + ") \r\n";
- }
- if (FWeek != "")
- {
- SQLWeek = " AND A.DAY_TYPE_CD IN (" + FWeek + ") \r\n";
- }
- sQry = "SELECT Y.ATRD_NM, Y.DRCT_CD_NM, \r\n"
- " Y.IFSC_STRT_NM||' → '||Y.IFSC_END_NM AS IFSC_NM, \r\n"
- " Y.LINK_STRT_NM||' → '||Y.LINK_END_NM AS LINK_NM, \r\n"
- " X.* \r\n"
- " FROM (SELECT /*+ INDEX(A PK_TAS_LINK_SPED_HH) */ \r\n"
- " A.LINK_ID, \r\n"
- " ROUND(AVG(H00), 0) AS H00, \r\n"
- " ROUND(AVG(H01), 0) AS H01, \r\n"
- " ROUND(AVG(H02), 0) AS H02, \r\n"
- " ROUND(AVG(H03), 0) AS H03, \r\n"
- " ROUND(AVG(H04), 0) AS H04, \r\n"
- " ROUND(AVG(H05), 0) AS H05, \r\n"
- " ROUND(AVG(H06), 0) AS H06, \r\n"
- " ROUND(AVG(H07), 0) AS H07, \r\n"
- " ROUND(AVG(H08), 0) AS H08, \r\n"
- " ROUND(AVG(H09), 0) AS H09, \r\n"
- " ROUND(AVG(H10), 0) AS H10, \r\n"
- " ROUND(AVG(H11), 0) AS H11, \r\n"
- " ROUND(AVG(H12), 0) AS H12, \r\n"
- " ROUND(AVG(H13), 0) AS H13, \r\n"
- " ROUND(AVG(H14), 0) AS H14, \r\n"
- " ROUND(AVG(H15), 0) AS H15, \r\n"
- " ROUND(AVG(H16), 0) AS H16, \r\n"
- " ROUND(AVG(H17), 0) AS H17, \r\n"
- " ROUND(AVG(H18), 0) AS H18, \r\n"
- " ROUND(AVG(H19), 0) AS H19, \r\n"
- " ROUND(AVG(H20), 0) AS H20, \r\n"
- " ROUND(AVG(H21), 0) AS H21, \r\n"
- " ROUND(AVG(H22), 0) AS H22, \r\n"
- " ROUND(AVG(H23), 0) AS H23, \r\n"
- " ROUND(AVG(SPD), 0) AS SPD \r\n"
- " FROM TB_TAS_LINK_SPED_HH A \r\n"
- " WHERE A.STAT_DAY BETWEEN :p01 AND :p02 \r\n"
- " AND A.LINK_ID IN (SELECT DISTINCT LINK_ID AS LINK_ID \r\n"
- " FROM MV_ATRD_LINK \r\n"
- " WHERE 1=1 \r\n"
- + SQLAtrd + SQLDrct +
- " ) \r\n"
- + SQLWeek +
- " GROUP BY A.LINK_ID \r\n"
- " ) X, \r\n"
- " MV_ATRD_LINK Y \r\n"
- " WHERE 1=1 \r\n"
- " AND Y.LINK_ID = X.LINK_ID \r\n"
- + SQLAtrd + SQLDrct +
- " ORDER BY Y.ATRD_NM, Y.DRCT_CD_NM, Y.LINK_SEQ \r\n";
- m_pGDC = TvList->DataController;
- CMM_ClearGridTableView(TvList);
- int nRow = 0;
- int nIdxSped, ii;
- String colName;
- TvList->BeginUpdate(lsimImmediate);
- try
- {
- try
- {
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", FStDay);
- ITSDb_SQLBind(pADO, "p02", FEdDay);
- ITSDb_SQLOpen(pADO);
- for( ; !pADO->Eof; pADO->Next(), nRow++)
- {
- nRow = m_pGDC->AppendRecord();
- 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("IFSC_NM")->AsString;
- m_pGDC->Values[nRow][Col04->Index] = pADO->FieldByName("LINK_NM")->AsString;
- m_pGDC->Values[nRow][Col05->Index] = pADO->FieldByName("SPD")->AsString;
- nIdxSped = ColSped->Index;
- for (ii = 0; ii < DAY_HOUR; ii++)
- {
- colName.printf(L"h%02d", ii);
- m_pGDC->Values[nRow][nIdxSped] = pADO->FieldByName(colName)->AsInteger;
- nIdxSped++;
- }
- }
- 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);
- }
- }
- __finally
- {
- TvList->EndUpdate();
- 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);
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TTAS00601::SelHistory2()
- {
- TSqlCursor sqlCrs;
- String sQry;
- TADOQuery *pADO = ADOQry;
- String SQLAtrd = "";
- String SQLDrct = "";
- String SQLWeek = "";
- if (FAtrdNm != "")
- {
- SQLAtrd = " AND ATRD_NM IN (" + FAtrdNm + ") \r\n";
- }
- if (FDir != "")
- {
- SQLDrct = " AND DRCT_CD IN (" + FDir + ") \r\n";
- }
- if (FWeek != "")
- {
- SQLWeek = " AND A.DAY_TYPE_CD IN (" + FWeek + ") \r\n";
- }
- sQry = "SELECT Y.ATRD_NM, Y.DRCT_CD_NM, \r\n"
- " Y.IFSC_STRT_NM||' → '||Y.IFSC_END_NM AS IFSC_NM, \r\n"
- " Y.IFSC_STRT_NM||' → '||Y.IFSC_END_NM AS LINK_NM, \r\n"
- " X.* \r\n"
- " FROM (SELECT /*+ INDEX(A PK_TAS_IFSC_SPED_HH) */ \r\n"
- " A.IFSC_ID, \r\n"
- " ROUND(AVG(H00), 0) AS H00, \r\n"
- " ROUND(AVG(H01), 0) AS H01, \r\n"
- " ROUND(AVG(H02), 0) AS H02, \r\n"
- " ROUND(AVG(H03), 0) AS H03, \r\n"
- " ROUND(AVG(H04), 0) AS H04, \r\n"
- " ROUND(AVG(H05), 0) AS H05, \r\n"
- " ROUND(AVG(H06), 0) AS H06, \r\n"
- " ROUND(AVG(H07), 0) AS H07, \r\n"
- " ROUND(AVG(H08), 0) AS H08, \r\n"
- " ROUND(AVG(H09), 0) AS H09, \r\n"
- " ROUND(AVG(H10), 0) AS H10, \r\n"
- " ROUND(AVG(H11), 0) AS H11, \r\n"
- " ROUND(AVG(H12), 0) AS H12, \r\n"
- " ROUND(AVG(H13), 0) AS H13, \r\n"
- " ROUND(AVG(H14), 0) AS H14, \r\n"
- " ROUND(AVG(H15), 0) AS H15, \r\n"
- " ROUND(AVG(H16), 0) AS H16, \r\n"
- " ROUND(AVG(H17), 0) AS H17, \r\n"
- " ROUND(AVG(H18), 0) AS H18, \r\n"
- " ROUND(AVG(H19), 0) AS H19, \r\n"
- " ROUND(AVG(H20), 0) AS H20, \r\n"
- " ROUND(AVG(H21), 0) AS H21, \r\n"
- " ROUND(AVG(H22), 0) AS H22, \r\n"
- " ROUND(AVG(H23), 0) AS H23, \r\n"
- " ROUND(AVG(SPD), 0) AS SPD \r\n"
- " FROM TB_TAS_IFSC_SPED_HH A \r\n"
- " WHERE A.STAT_DAY BETWEEN :p01 AND :p02 \r\n"
- " AND A.IFSC_ID IN (SELECT DISTINCT IFSC_ID AS IFSC_ID \r\n"
- " FROM MV_ATRD_IFSC \r\n"
- " WHERE 1=1 \r\n"
- + SQLAtrd + SQLDrct +
- " ) \r\n"
- + SQLWeek +
- " GROUP BY A.IFSC_ID \r\n"
- " ) X, \r\n"
- " MV_ATRD_IFSC Y \r\n"
- " WHERE 1=1 \r\n"
- " AND Y.IFSC_ID = X.IFSC_ID \r\n"
- + SQLAtrd + SQLDrct +
- " ORDER BY Y.ATRD_NM, Y.DRCT_CD_NM, Y.IFSC_SEQ \r\n";
- m_pGDC = TvList->DataController;
- CMM_ClearGridTableView(TvList);
- int nRow = 0;
- int nIdxSped, ii;
- String colName;
- TvList->BeginUpdate(lsimImmediate);
- try
- {
- try
- {
- ITSDb_SQLText(pADO, sQry);
- ITSDb_SQLBind(pADO, "p01", FStDay);
- ITSDb_SQLBind(pADO, "p02", FEdDay);
- ITSDb_SQLOpen(pADO);
- for( ; !pADO->Eof; pADO->Next(), nRow++)
- {
- nRow = m_pGDC->AppendRecord();
- 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("IFSC_NM")->AsString;
- m_pGDC->Values[nRow][Col04->Index] = pADO->FieldByName("LINK_NM")->AsString;
- m_pGDC->Values[nRow][Col05->Index] = pADO->FieldByName("SPD")->AsString;
- nIdxSped = ColSped->Index;
- for (ii = 0; ii < DAY_HOUR; ii++)
- {
- colName.printf(L"h%02d", ii);
- m_pGDC->Values[nRow][nIdxSped] = pADO->FieldByName(colName)->AsInteger;
- nIdxSped++;
- }
- }
- 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);
- }
- }
- __finally
- {
- TvList->EndUpdate();
- 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);
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TTAS00601::DspHistory()
- {
- #if 0
- m_pGDC = TvList->DataController;
- try
- {
- CMM_ClearGridTableView(TvList);
- int nRow1 = 0;
- int nRow2 = 0;
- int nDataCnt = 0;
- int ii;
- try
- {
- TvList->BeginUpdate(lsimImmediate);
- nDataCnt = FAtrdManager->FLists.Size();
- int nIdxSped, nIdxGrad;
- FOR_STL(TAtrdInfo*, pObj, FAtrdManager->FLists)
- {
- nRow1 = m_pGDC->AppendRecord();
- nRow2 = m_pGDC->AppendRecord();
- m_pGDC->Values[nRow1][Col01->Index] = pObj->ATRD_NM;
- m_pGDC->Values[nRow1][Col02->Index] = pObj->DRCT_CD_NM;
- m_pGDC->Values[nRow1][Col03->Index] = pObj->STRT_NM + " → " + pObj->END_NM;
- m_pGDC->Values[nRow1][Col04->Index] = "현재";
- m_pGDC->Values[nRow2][Col01->Index] = pObj->ATRD_NM;
- m_pGDC->Values[nRow2][Col02->Index] = pObj->DRCT_CD_NM;
- m_pGDC->Values[nRow2][Col03->Index] = pObj->STRT_NM + " → " + pObj->END_NM;
- m_pGDC->Values[nRow2][Col04->Index] = "패턴";
- TIfscTrf *pTrf = FTrfManager->FLists.Find(pObj->IFSC_ID);
- if (pTrf == NULL)
- {
- continue;
- }
- nIdxSped = ColSped->Index;
- nIdxGrad = ColGrad->Index;
- for (ii = 0; ii < DAY_HOUR; ii++)
- {
- m_pGDC->Values[nRow1][nIdxSped] = pTrf->INFO[ii].C_SPED;
- m_pGDC->Values[nRow1][nIdxGrad] = pTrf->INFO[ii].C_GRAD;
- m_pGDC->Values[nRow2][nIdxSped] = pTrf->INFO[ii].P_SPED;
- m_pGDC->Values[nRow2][nIdxGrad] = pTrf->INFO[ii].P_GRAD;
- nIdxSped++;
- nIdxGrad++;
- }
- }
- }
- __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);
- }
- #endif
- }
- //---------------------------------------------------------------------------
- void __fastcall TTAS00601::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 TTAS00601::OnMessage(TMessage &Msg)
- {
- switch (Msg.Msg)
- {
- case WM_PARAM_DATABASE:
- if (WP_DB_SELECT_OK == Msg.WParam)
- {
- //ShowMessage("Select Ok");
- }
- break;
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TTAS00601::BtnExlSaveClick(TObject *Sender)
- {
- TcxGrid *pGrid = CxList;
- TcxGridTableView *pView = TvList;
- String sTitle= Caption;//"노선별속도분석";
- CMM_ExportToExcelFile(sTitle, pGrid, pView, this);
- }
- //---------------------------------------------------------------------------
- void __fastcall TTAS00601::FormClose(TObject *Sender, TCloseAction &Action)
- {
- POST_MSG(FParent, WM_SUBFORM_CLOSE, 0, 0);
- CommClose();
- //TAS00601 = NULL;
- }
- //---------------------------------------------------------------------------
- void __fastcall TTAS00601::FormDestroy(TObject *Sender)
- {
- CommClose();
- }
- //---------------------------------------------------------------------------
- void __fastcall TTAS00601::FormCreate(TObject *Sender)
- {
- m_pFrmChart = new TPlugInChart(this);
- m_pFrmChart->Parent = PnlChart;
- m_pFrmChart->SetChartInfo("", "시간", "속도");
- m_pFrmChart->Show();
- }
- //---------------------------------------------------------------------------
- void __fastcall TTAS00601::ColSpedCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas,
- TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone)
- {
- TColor tColor = ACanvas->Brush->Color;
- TColor tFont = clBlack;
- try
- {
- if (!VarIsNull(AViewInfo->Value))
- {
- int nSpd = AViewInfo->Value;
- if (nSpd == 0)
- {
- tFont = tColor;
- tColor = tFont;
- }
- else
- {
- if (nSpd <= 10)
- {
- tFont = clWhite;
- tColor = (TColor)0x333333;
- }
- else
- if (nSpd <= 20)
- {
- tFont = tFont;
- tColor = (TColor)0x575757;
- }
- else
- if (nSpd <= 30)
- {
- tFont = tFont;
- tColor = (TColor)0x7B7B7B;
- }
- else
- if (nSpd <= 40)
- {
- tFont = tFont;
- tColor = (TColor)0x9F9F9F;
- }
- else
- if (nSpd <= 50)
- {
- tFont = clBlue;
- tColor = (TColor)0xC3C3C3;
- }
- else
- if (nSpd <= 60)
- {
- tFont = clBlue;
- tColor = (TColor)0xE7E7E7;
- }
- else
- {
- tFont = clBlue;
- tColor = (TColor)0xF3F3F3;
- }
- }
- }
- else
- {
- tColor = clSilver;
- tFont = tColor;
- }
- ACanvas->Font->Color = tFont;
- ACanvas->SetBrushColor(tColor);
- }
- catch(...)
- {
- }
- }
- //---------------------------------------------------------------------------
|