IHS00401F.cpp 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include "ITSSkinF.h"
  4. #include "ITSUtilF.h"
  5. #include "ITSDbF.h"
  6. #include "AppGlobalF.h"
  7. #include "WindowMsgF.h"
  8. #pragma hdrstop
  9. #include "IHS00401F.h"
  10. //---------------------------------------------------------------------------
  11. #pragma package(smart_init)
  12. #pragma link "cxButtons"
  13. #pragma link "cxCalc"
  14. #pragma link "cxCheckBox"
  15. #pragma link "cxClasses"
  16. #pragma link "cxContainer"
  17. #pragma link "cxControls"
  18. #pragma link "cxCustomData"
  19. #pragma link "cxData"
  20. #pragma link "cxDataStorage"
  21. #pragma link "cxEdit"
  22. #pragma link "cxFilter"
  23. #pragma link "cxGraphics"
  24. #pragma link "cxGrid"
  25. #pragma link "cxGridCustomTableView"
  26. #pragma link "cxGridCustomView"
  27. #pragma link "cxGridLevel"
  28. #pragma link "cxGridTableView"
  29. #pragma link "cxLookAndFeelPainters"
  30. #pragma link "cxLookAndFeels"
  31. #pragma link "cxSplitter"
  32. #pragma link "cxStyles"
  33. #pragma link "cxTextEdit"
  34. #pragma link "dxSkinBlack"
  35. #pragma link "dxSkinBlue"
  36. #pragma link "dxSkinCaramel"
  37. #pragma link "dxSkinCoffee"
  38. #pragma link "dxSkinDarkRoom"
  39. #pragma link "dxSkinDarkSide"
  40. #pragma link "dxSkinFoggy"
  41. #pragma link "dxSkinGlassOceans"
  42. #pragma link "dxSkiniMaginary"
  43. #pragma link "dxSkinLilian"
  44. #pragma link "dxSkinLiquidSky"
  45. #pragma link "dxSkinLondonLiquidSky"
  46. #pragma link "dxSkinMcSkin"
  47. #pragma link "dxSkinMoneyTwins"
  48. #pragma link "dxSkinOffice2007Black"
  49. #pragma link "dxSkinOffice2007Blue"
  50. #pragma link "dxSkinOffice2007Green"
  51. #pragma link "dxSkinOffice2007Pink"
  52. #pragma link "dxSkinOffice2007Silver"
  53. #pragma link "dxSkinOffice2010Black"
  54. #pragma link "dxSkinOffice2010Blue"
  55. #pragma link "dxSkinOffice2010Silver"
  56. #pragma link "dxSkinsCore"
  57. #pragma link "dxSkinscxPCPainter"
  58. #pragma link "dxSkinSeven"
  59. #pragma link "dxSkinSharp"
  60. #pragma link "dxSkinSilver"
  61. #pragma link "dxSkinStardust"
  62. #pragma link "FRAME_ChartF"
  63. #pragma resource "*.dfm"
  64. TIHS00401 *IHS00401 = NULL;
  65. //---------------------------------------------------------------------------
  66. __fastcall TIHS00401::TIHS00401(TComponent* Owner, HWND hHandle, String sFrom, String sTo, String sIdList)
  67. : TForm(Owner)
  68. {
  69. ITSSkin_Load(this);
  70. CMM_LoadForm(g_sFormsDir, this);
  71. FParent = hHandle;
  72. FStDateTime = sFrom;
  73. FEdDateTime = sTo;
  74. FIdList = sIdList;
  75. }
  76. //---------------------------------------------------------------------------
  77. __fastcall TIHS00401::~TIHS00401(void)
  78. {
  79. }
  80. //--------------------------------------------------------------------------
  81. /*
  82. * form 초기화
  83. *
  84. * arguments
  85. *
  86. * return
  87. * void
  88. */
  89. void __fastcall TIHS00401::FormInit()
  90. {
  91. ADOQry->Connection = ITSDb_GetConnection();
  92. m_pGDC = TvList->DataController;
  93. TvList->OptionsView->NoDataToDisplayInfoText = "<가공데이터 이력 정보>";
  94. //TvList->ViewInfo->GroupByBoxViewInfo->Text = "그룹핑할 필드의 헤더를 이곳으로 드래그 하세요";
  95. FRAMEChart1->FTitle = "가공데이터 이력";
  96. //FRAMEChart1->SetChartLegend("가공시각", "속도(Km)");
  97. FRAMEChart1->SetChartLegend("가공시각", "속도(km/h)");
  98. FRAMEChart1->ChartValueDisplay(FRAMEChart1->ChkDisplayVal->Checked);
  99. FRAMEChart1->TvChart->ToolBox->CustomizeButton = true;
  100. FRAMEChart1->TvChart->Legend->Position = cppDefault;
  101. LblSearch->Caption = "검색조건: " + FStDateTime.SubString(1, 10) + " ~ " + FEdDateTime.SubString(1, 10);
  102. }
  103. //---------------------------------------------------------------------------
  104. /*
  105. * form을 보여줄때 호출되는 event 메서드이다.
  106. * arguments
  107. * Sender : event handler 객체
  108. * return
  109. * void
  110. */
  111. void __fastcall TIHS00401::FormShow(TObject *Sender)
  112. {
  113. FormInit();
  114. Refresh();
  115. TmrShow->Enabled = true;
  116. }
  117. //---------------------------------------------------------------------------
  118. /*
  119. * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다..
  120. * Form과 DataModule class를 delete시킨다.
  121. * arguments
  122. *
  123. * return
  124. * void
  125. */
  126. void __fastcall TIHS00401::CommClose()
  127. {
  128. CMM_SaveForm(g_sFormsDir, this);
  129. //IHS00401 = NULL;
  130. }
  131. //---------------------------------------------------------------------------
  132. /*
  133. * 최초 1회 수행되는 타이머 이벤트
  134. * arguments
  135. * Sender : event handler 객체
  136. * return
  137. * void
  138. */
  139. void __fastcall TIHS00401::TmrShowTimer(TObject *Sender)
  140. {
  141. TmrShow->Enabled = false;
  142. SelHistory();
  143. }
  144. //---------------------------------------------------------------------------
  145. void __fastcall TIHS00401::ChkExpandClick(TObject *Sender)
  146. {
  147. CMM_ExpandCollapseChk(TvList, ChkExpand->Checked);
  148. }
  149. //---------------------------------------------------------------------------
  150. /*
  151. * Refresh Data Event Function
  152. * arguments
  153. *
  154. * return
  155. * void
  156. */
  157. void __fastcall TIHS00401::SelHistory()
  158. {
  159. TSqlCursor sqlCrs;
  160. String sQry;
  161. TADOQuery *pADO = ADOQry;
  162. sQry = "SELECT A.LINK_ID, A.PRCN_DT, A.TFVL, A.SPED, A.OCPY_RATE, A.TRVL_HH, \r\n"
  163. " TO_DATE(A.PRCN_DT, 'YYYYMMDDHH24MISS') AS PRCN_DT2, \r\n"
  164. " B.CMMN_CD_KOR_NM CMTR_GRAD_CD, \r\n"
  165. " DECODE(A.MISS_YN, 'Y', '결측', 'N', '측정', '-' ) MISS_YN, \r\n"
  166. " A.PRCN_SPED, A.SMTH_SPED, \r\n"
  167. " A.ADJS_SPED, A.PTRN_SPED, NVL(C.CMMN_CD_KOR_NM, '-') PRCN_SORC, \r\n"
  168. " NVL(D.CMMN_CD_KOR_NM, '-') ADJS_SORC, A.DATA_NUM \r\n"
  169. " FROM TB_LINK_TRAF_HS A, \r\n"
  170. " (SELECT CMMN_CD, CMMN_CD_KOR_NM \r\n"
  171. " FROM TB_CMMN_CD \r\n"
  172. " WHERE CMMN_CLSF_CD = 'LTC' \r\n"
  173. " ) B, \r\n"
  174. " (SELECT CMMN_CD, CMMN_CD_KOR_NM \r\n"
  175. " FROM TB_CMMN_CD \r\n"
  176. " WHERE CMMN_CLSF_CD = 'CST' \r\n"
  177. " ) C, \r\n"
  178. " (SELECT CMMN_CD, CMMN_CD_KOR_NM \r\n"
  179. " FROM TB_CMMN_CD \r\n"
  180. " WHERE CMMN_CLSF_CD = 'MCS' \r\n"
  181. " ) D \r\n"
  182. " WHERE A.CMTR_GRAD_CD = B.CMMN_CD \r\n"
  183. " AND A.PRCN_SORC = C.CMMN_CD(+) \r\n"
  184. " AND A.ADJS_SORC = D.CMMN_CD(+) \r\n"
  185. " AND A.PRCN_DT BETWEEN :p01 \r\n"
  186. " AND :p02 \r\n"
  187. // " AND A.LINK_ID IN (" + FIdList + ") \r\n"
  188. " AND A.LINK_ID = :p03 \r\n"
  189. " ORDER BY A.PRCN_DT, A.LINK_ID \r\n";
  190. try
  191. {
  192. ITSDb_SQLText(pADO, sQry);
  193. ITSDb_SQLBind(pADO, "p01", FStDateTime);
  194. ITSDb_SQLBind(pADO, "p02", FEdDateTime);
  195. ITSDb_SQLBind(pADO, "p03", FIdList);
  196. ITSDb_SQLOpen(pADO);
  197. DspHistory();
  198. }
  199. catch(EDatabaseError &E)
  200. {
  201. throw Exception(String(E.ClassName()) + E.Message);
  202. }
  203. catch(...)
  204. {
  205. throw Exception("알수없는 오류가 발생하였습니다.");
  206. }
  207. }
  208. //---------------------------------------------------------------------------
  209. void __fastcall TIHS00401::DspHistory()
  210. {
  211. TADOQuery *pADO = ADOQry;
  212. TcxGridChartView *TvChart = FRAMEChart1->TvChart;
  213. try
  214. {
  215. TcxGridChartSeries *pChart1 = NULL;
  216. TcxGridChartSeries *pChart2 = NULL;
  217. TcxGridChartSeries *pChart3 = NULL;
  218. TcxGridChartSeries *pChart4 = NULL;
  219. TcxGridChartSeries *pChart5 = NULL;
  220. TcxGridChartSeries *pChart6 = NULL;
  221. TvChart->ClearSeries();
  222. FRAMEChart1->ChartValueDisplay(FRAMEChart1->ChkDisplayVal->Checked);
  223. CMM_ClearGridTableView(TvList);
  224. int nRow = 0;
  225. int nDataCnt = 0;
  226. try {
  227. TvList->BeginUpdate();
  228. TvChart->BeginUpdate();
  229. nDataCnt = pADO->RecordCount;
  230. TvChart->DataController->RecordCount = nDataCnt;
  231. m_pGDC->RecordCount = nDataCnt;
  232. pChart1 = TvChart->CreateSeries();
  233. pChart1->DataBinding->ValueType = "Integer";
  234. pChart1->DisplayText = "속도";
  235. pChart2 = TvChart->CreateSeries();
  236. pChart2->DataBinding->ValueType = "Integer";
  237. pChart2->DisplayText = "가공속도";
  238. pChart3 = TvChart->CreateSeries();
  239. pChart3->DataBinding->ValueType = "Integer";
  240. pChart3->DisplayText = "평활화속도";
  241. pChart4 = TvChart->CreateSeries();
  242. pChart4->DataBinding->ValueType = "Integer";
  243. pChart4->DisplayText = "보정속도";
  244. pChart5 = TvChart->CreateSeries();
  245. pChart5->DataBinding->ValueType = "Integer";
  246. pChart5->DisplayText = "패턴속도";
  247. for( ; !pADO->Eof; pADO->Next(), nRow++)
  248. {
  249. //m_pGDC->Values[nRow][Column01->Index] = pADO->FieldByName("PRCN_DT2")->AsDateTime.DateTimeString(); //가공시각
  250. m_pGDC->Values[nRow][Column01->Index] = pADO->FieldByName("PRCN_DT2")->AsDateTime.FormatString(STR_DATETIME); //가공시각
  251. m_pGDC->Values[nRow][Column02->Index] = pADO->FieldByName("LINK_ID")->AsString; //링크아이디
  252. m_pGDC->Values[nRow][Column13->Index] = pADO->FieldByName("TFVL")->AsInteger; //교통량
  253. m_pGDC->Values[nRow][Column03->Index] = pADO->FieldByName("SPED")->AsInteger; //속도
  254. m_pGDC->Values[nRow][Column14->Index] = pADO->FieldByName("OCPY_RATE")->AsFloat; //점유율
  255. m_pGDC->Values[nRow][Column15->Index] = pADO->FieldByName("TRVL_HH")->AsInteger; //통행시간
  256. m_pGDC->Values[nRow][Column04->Index] = pADO->FieldByName("CMTR_GRAD_CD")->AsString; //소통등급
  257. m_pGDC->Values[nRow][Column05->Index] = pADO->FieldByName("MISS_YN")->AsString; //결측여부
  258. m_pGDC->Values[nRow][Column06->Index] = pADO->FieldByName("PRCN_SPED")->AsInteger; //가공속도
  259. m_pGDC->Values[nRow][Column07->Index] = pADO->FieldByName("SMTH_SPED")->AsInteger; //평활화속도
  260. m_pGDC->Values[nRow][Column08->Index] = pADO->FieldByName("ADJS_SPED")->AsInteger; //보정속도
  261. m_pGDC->Values[nRow][Column09->Index] = pADO->FieldByName("PTRN_SPED")->AsInteger; //패턴속도
  262. m_pGDC->Values[nRow][Column10->Index] = pADO->FieldByName("PRCN_SORC")->AsString; //수집원
  263. m_pGDC->Values[nRow][Column11->Index] = pADO->FieldByName("ADJS_SORC")->AsString; //보정소스
  264. m_pGDC->Values[nRow][Column12->Index] = pADO->FieldByName("DATA_NUM")->AsInteger; //데이터갯수
  265. pChart1->Values[nRow] = m_pGDC->Values[nRow][Column03->Index];
  266. pChart2->Values[nRow] = m_pGDC->Values[nRow][Column06->Index];
  267. pChart3->Values[nRow] = m_pGDC->Values[nRow][Column07->Index];
  268. pChart4->Values[nRow] = m_pGDC->Values[nRow][Column08->Index];
  269. pChart5->Values[nRow] = m_pGDC->Values[nRow][Column09->Index];
  270. TvChart->Categories->Values[nRow] = pADO->FieldByName("PRCN_DT")->AsString.SubString(1,12);
  271. }
  272. }
  273. __finally
  274. {
  275. if (pADO)
  276. {
  277. pADO->Close();
  278. }
  279. TvChart->ToolBox->CustomizeButton = true;
  280. TvChart->Legend->Position = cppDefault;
  281. TvChart->EndUpdate();
  282. TvList->EndUpdate();
  283. //CxList->SetFocus();
  284. LblRecords->Caption = FormatFloat("##,##0", m_pGDC->RecordCount) + " 건";
  285. }
  286. }
  287. catch(EDatabaseError &E)
  288. {
  289. throw Exception(String(E.ClassName()) + E.Message);
  290. }
  291. catch(...)
  292. {
  293. throw Exception("알수없는 오류가 발생하였습니다.");
  294. }
  295. }
  296. //---------------------------------------------------------------------------
  297. void __fastcall TIHS00401::OnMessage(TMessage &Msg)
  298. {
  299. switch (Msg.Msg)
  300. {
  301. case WM_PARAM_DATABASE:
  302. if (WP_DB_SELECT_OK == Msg.WParam)
  303. {
  304. //ShowMessage("Select Ok");
  305. }
  306. break;
  307. }
  308. }
  309. //---------------------------------------------------------------------------
  310. void __fastcall TIHS00401::BtnExlSaveClick(TObject *Sender)
  311. {
  312. TcxGrid *pGrid = CxList;
  313. TcxGridTableView *pView = TvList;
  314. String sTitle = "데이터수집이력";
  315. CMM_ExportToExcelFile(sTitle, pGrid, pView, this);
  316. }
  317. //---------------------------------------------------------------------------
  318. void __fastcall TIHS00401::FormClose(TObject *Sender, TCloseAction &Action)
  319. {
  320. POST_MSG(FParent, WM_SUBFORM_CLOSE, 0, 0);
  321. CommClose();
  322. //IHS00401 = NULL;
  323. }
  324. //---------------------------------------------------------------------------
  325. void __fastcall TIHS00401::FormDestroy(TObject *Sender)
  326. {
  327. CommClose();
  328. }
  329. //---------------------------------------------------------------------------