IHS00301F.cpp 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385
  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. #include "ITSLangTransF.h"
  9. #pragma hdrstop
  10. #include "IHS00301F.h"
  11. //---------------------------------------------------------------------------
  12. #pragma package(smart_init)
  13. #pragma link "FRAME_ChartF"
  14. #pragma link "cxButtons"
  15. #pragma link "cxCalc"
  16. #pragma link "cxCheckBox"
  17. #pragma link "cxClasses"
  18. #pragma link "cxContainer"
  19. #pragma link "cxControls"
  20. #pragma link "cxCustomData"
  21. #pragma link "cxData"
  22. #pragma link "cxDataStorage"
  23. #pragma link "cxEdit"
  24. #pragma link "cxFilter"
  25. #pragma link "cxGraphics"
  26. #pragma link "cxGrid"
  27. #pragma link "cxGridCustomTableView"
  28. #pragma link "cxGridCustomView"
  29. #pragma link "cxGridLevel"
  30. #pragma link "cxGridTableView"
  31. #pragma link "cxLookAndFeelPainters"
  32. #pragma link "cxLookAndFeels"
  33. #pragma link "cxSplitter"
  34. #pragma link "cxStyles"
  35. #pragma link "cxTextEdit"
  36. #pragma link "dxSkinBlack"
  37. #pragma link "dxSkinBlue"
  38. #pragma link "dxSkinsCore"
  39. #pragma link "dxSkinscxPCPainter"
  40. #pragma link "cxLabel"
  41. #pragma resource "*.dfm"
  42. TIHS00301 *IHS00301 = NULL;
  43. //---------------------------------------------------------------------------
  44. __fastcall TIHS00301::TIHS00301(TComponent* Owner, HWND hHandle, String sFrom, String sTo, String sIdList)
  45. : TForm(Owner)
  46. {
  47. LangTrans->Translate(this, ITSDb_GetConnection());
  48. ITSSkin_Load(this);
  49. CMM_LoadForm(g_sFormsDir, this);
  50. FParent = hHandle;
  51. FStDateTime = sFrom;
  52. FEdDateTime = sTo;
  53. FIdList = sIdList;
  54. FColumn[ 0] = Column03;
  55. FColumn[ 1] = Column04;
  56. FColumn[ 2] = Column05;
  57. FColumn[ 3] = Column06;
  58. FColumn[ 4] = Column07;
  59. FColumn[ 5] = Column08;
  60. FColumn[ 6] = Column09;
  61. FColumn[ 7] = Column10;
  62. FColumn[ 8] = Column11;
  63. FColumn[ 9] = Column12;
  64. FColumn[10] = Column13;
  65. FColumn[11] = Column14;
  66. FColumn[12] = Column15;
  67. FColumn[13] = Column16;
  68. FColumn[14] = Column17;
  69. int ii = 0;
  70. for (ii = 0; ii < MAX_COLSYS; ii++)
  71. {
  72. FChart[ii] = NULL;
  73. }
  74. ii = 0;
  75. FOR_STL(TItsColSys*, pObj, ItsColSysManager->FLists)
  76. {
  77. if (pObj->USE_YN == "N") continue;
  78. FColumn[ii]->Caption = pObj->CLCT_SYST_NM;
  79. FColumn[ii]->Visible = true;
  80. ii++;
  81. if (ii >= MAX_COLSYS) break;
  82. }
  83. }
  84. //---------------------------------------------------------------------------
  85. __fastcall TIHS00301::~TIHS00301(void)
  86. {
  87. }
  88. //--------------------------------------------------------------------------
  89. /*
  90. * form 초기화
  91. *
  92. * arguments
  93. *
  94. * return
  95. * void
  96. */
  97. void __fastcall TIHS00301::FormInit()
  98. {
  99. ADOQry->Connection = ITSDb_GetConnection();
  100. m_pGDC = TvList->DataController;
  101. TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<수집데이터 이력 정보>";
  102. //TvList->ViewInfo->GroupByBoxViewInfo->Text = "그룹핑할 필드의 헤더를 이곳으로 드래그 하세요";
  103. FRAMEChart1->FTitle = Caption;////"수집데이터 이력";
  104. FRAMEChart1->SetChartLegend(FrmLang->lblColTm->Caption, FrmLang->lblSpd->Caption);//""수집시각", "속도(km/h)");
  105. FRAMEChart1->ChartValueDisplay(FRAMEChart1->ChkDisplayVal->Checked);
  106. FRAMEChart1->TvChart->ToolBox->CustomizeButton = true;
  107. FRAMEChart1->TvChart->Legend->Position = cppDefault;
  108. LblSearch->Caption = FrmLang->lblQryCond->Caption + "[" + FIdList + "] " + FStDateTime.SubString(1, 12) + " ~ " + FEdDateTime.SubString(1, 12);
  109. }
  110. //---------------------------------------------------------------------------
  111. /*
  112. * form을 보여줄때 호출되는 event 메서드이다.
  113. * arguments
  114. * Sender : event handler 객체
  115. * return
  116. * void
  117. */
  118. void __fastcall TIHS00301::FormShow(TObject *Sender)
  119. {
  120. FormInit();
  121. Refresh();
  122. TmrShow->Enabled = true;
  123. }
  124. //---------------------------------------------------------------------------
  125. /*
  126. * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다..
  127. * Form과 DataModule class를 delete시킨다.
  128. * arguments
  129. *
  130. * return
  131. * void
  132. */
  133. void __fastcall TIHS00301::CommClose()
  134. {
  135. CMM_SaveForm(g_sFormsDir, this);
  136. //IHS00301 = NULL;
  137. }
  138. //---------------------------------------------------------------------------
  139. /*
  140. * 최초 1회 수행되는 타이머 이벤트
  141. * arguments
  142. * Sender : event handler 객체
  143. * return
  144. * void
  145. */
  146. void __fastcall TIHS00301::TmrShowTimer(TObject *Sender)
  147. {
  148. TmrShow->Enabled = false;
  149. Application->ProcessMessages();
  150. SelHistory();
  151. }
  152. //---------------------------------------------------------------------------
  153. void __fastcall TIHS00301::ChkExpandClick(TObject *Sender)
  154. {
  155. CMM_ExpandCollapseChk(TvList, ChkExpand->Checked);
  156. }
  157. //---------------------------------------------------------------------------
  158. /*
  159. * Refresh Data Event Function
  160. * arguments
  161. *
  162. * return
  163. * void
  164. */
  165. void __fastcall TIHS00301::SelHistory()
  166. {
  167. TSqlCursor sqlCrs;
  168. String sQry;
  169. TADOQuery *pADO = ADOQry;
  170. #if 0
  171. sQry = "SELECT A.LINK_ID, A.CLCT_SYST_CD, B.CLCT_SYST_NM, \r\n"
  172. " A.CLCT_SYST_CD, \r\n"
  173. " TO_DATE(A.PRCN_DT, 'YYYYMMDDHH24MISS') AS PRCN_DT2, \r\n"
  174. " A.PRCN_DT, A.SPED \r\n"
  175. " FROM TB_LINK_TRAF_CLCT_HS A, \r\n"
  176. " TB_CLCT_SYST_STUP B \r\n"
  177. " WHERE A.CLCT_SYST_CD = B.CLCT_SYST_CD \r\n"
  178. " AND B.USE_YN = 'Y' \r\n"
  179. " AND A.PRCN_DT BETWEEN :p01 \r\n"
  180. " AND :p02 \r\n"
  181. //" AND A.LINK_ID IN (" + FIdList + ") \r\n"
  182. " AND A.LINK_ID = :p03 \r\n"
  183. " ORDER BY A.PRCN_DT, A.LINK_ID \r\n";
  184. SELECT A.LINK_ID, A.PRCN_DT, TO_DATE(A.PRCN_DT, 'YYYYMMDDHH24MISS') AS PRCN_DT2,
  185. MAX(DECODE(A.CLCT_SYST_CD, 'UTIS28', A.SPED, 0)) AS UTIS28,
  186. MAX(DECODE(A.CLCT_SYST_CD, 'UTIS01', A.SPED, 0)) AS UTIS01,
  187. MAX(DECODE(A.CLCT_SYST_CD, 'UTIS02', A.SPED, 0)) AS UTIS02
  188. FROM TB_LINK_TRAF_CLCT_HS A
  189. WHERE A.PRCN_DT BETWEEN '20140723230000'
  190. AND '20140723230000'
  191. GROUP BY A.LINK_ID, A.PRCN_DT
  192. #endif
  193. int ii = 0;
  194. String sTemp;
  195. String sFetch = "";
  196. ii = 0;
  197. FOR_STL(TItsColSys*, pObj, ItsColSysManager->FLists)
  198. {
  199. if (pObj->USE_YN == "N") continue;
  200. sTemp = ", MAX(DECODE(A.CLCT_SYST_CD, '" + pObj->CLCT_SYST_CD + "', A.SPED, 0)) " + pObj->CLCT_SYST_CD + " \r\n";
  201. sFetch += sTemp;
  202. ii++;
  203. if (ii >= MAX_COLSYS) break;
  204. }
  205. sQry = "SELECT A.LINK_ID, A.PRCN_DT, TO_DATE(A.PRCN_DT, 'YYYYMMDDHH24MISS') AS PRCN_DT2 \r\n";
  206. sQry+= sFetch;
  207. sQry+= " FROM TB_LINK_TRAF_CLCT_HS A \r\n"
  208. " WHERE A.PRCN_DT BETWEEN :p01 \r\n"
  209. " AND :p02 \r\n"
  210. " AND A.LINK_ID = :p03 \r\n"
  211. " GROUP BY A.LINK_ID, A.PRCN_DT \r\n"
  212. " ORDER BY A.LINK_ID, A.PRCN_DT \r\n";
  213. try
  214. {
  215. ITSDb_SQLText(pADO, sQry);
  216. ITSDb_SQLBind(pADO, "p01", FStDateTime);
  217. ITSDb_SQLBind(pADO, "p02", FEdDateTime);
  218. ITSDb_SQLBind(pADO, "p03", FIdList);
  219. ITSDb_SQLOpen(pADO);
  220. DspHistory();
  221. }
  222. catch(EDatabaseError &E)
  223. {
  224. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  225. DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQry);
  226. throw Exception(String(E.ClassName()) + E.Message);
  227. }
  228. catch(Exception &exception)
  229. {
  230. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  231. DBERRORMSG(Caption, String(exception.ClassName()), exception.Message, sQry);
  232. throw Exception(String(exception.ClassName()) + exception.Message);
  233. }
  234. }
  235. //---------------------------------------------------------------------------
  236. void __fastcall TIHS00301::DspHistory()
  237. {
  238. TADOQuery *pADO = ADOQry;
  239. TcxGridChartView *TvChart = FRAMEChart1->TvChart;
  240. try
  241. {
  242. TvChart->ClearSeries();
  243. FRAMEChart1->ChartValueDisplay(FRAMEChart1->ChkDisplayVal->Checked);
  244. CMM_ClearGridTableView(TvList);
  245. int nRow = 0;
  246. int nDataCnt = 0;
  247. try
  248. {
  249. TvList->BeginUpdate();
  250. TvChart->BeginUpdate();
  251. nDataCnt = pADO->RecordCount;
  252. TvChart->DataController->RecordCount = nDataCnt;
  253. m_pGDC->RecordCount = nDataCnt;
  254. int ii = 0;
  255. FOR_STL(TItsColSys*, pObj, ItsColSysManager->FLists)
  256. {
  257. FChart[ii] = TvChart->CreateSeries();
  258. FChart[ii]->DataBinding->ValueType = "Integer";
  259. FChart[ii]->DisplayText = pObj->CLCT_SYST_NM;
  260. ii++;
  261. if (ii >= MAX_COLSYS) break;
  262. }
  263. int nValue = 0;
  264. for( ; !pADO->Eof; pADO->Next(), nRow++)
  265. {
  266. String sDbDate = pADO->FieldByName("PRCN_DT")->AsString;
  267. m_pGDC->Values[nRow][Column01->Index] = ITSUtil_FormatStr(sDbDate, STR_DATETIME);
  268. m_pGDC->Values[nRow][Column02->Index] = pADO->FieldByName("LINK_ID")->AsString;
  269. ii = 0;
  270. FOR_STL(TItsColSys*, pObj, ItsColSysManager->FLists)
  271. {
  272. nValue = pADO->FieldByName(pObj->CLCT_SYST_CD)->AsInteger;
  273. m_pGDC->Values[nRow][FColumn[ii]->Index] = nValue;
  274. FChart[ii]->Values[nRow] = nValue;
  275. ii++;
  276. if (ii >= MAX_COLSYS) break;
  277. }
  278. TvChart->Categories->Values[nRow] = pADO->FieldByName("PRCN_DT")->AsString.SubString(1,12);
  279. }
  280. }
  281. __finally
  282. {
  283. if (pADO)
  284. {
  285. pADO->Close();
  286. }
  287. TvChart->ToolBox->CustomizeButton = true;
  288. TvChart->Legend->Position = cppDefault;
  289. TvChart->EndUpdate();
  290. TvList->EndUpdate();
  291. //CxList->SetFocus();
  292. LblRecords->Caption = FormatFloat("##,##0", m_pGDC->RecordCount) + FrmLang->lblEA->Caption;//" 건";
  293. String sEnd = FrmLang->lblQrySel->Caption + " [" + LblRecords->Caption + "]";//"데이터 " + LblRecords->Caption + " 이 조회 되었습니다.";
  294. Application->MessageBox(sEnd.c_str(),
  295. FrmLang->lblQryEnd->Caption.c_str(),//L"데이터 조회 완료",
  296. MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  297. }
  298. }
  299. catch(EDatabaseError &E)
  300. {
  301. throw Exception(String(E.ClassName()) + E.Message);
  302. }
  303. catch(...)
  304. {
  305. throw Exception(FrmLang->lblDbErr->Caption);//"알수없는 오류가 발생하였습니다.");
  306. }
  307. }
  308. //---------------------------------------------------------------------------
  309. void __fastcall TIHS00301::OnMessage(TMessage &Msg)
  310. {
  311. switch (Msg.Msg)
  312. {
  313. case WM_PARAM_DATABASE:
  314. if (WP_DB_SELECT_OK == Msg.WParam)
  315. {
  316. //ShowMessage("Select Ok");
  317. }
  318. break;
  319. }
  320. }
  321. //---------------------------------------------------------------------------
  322. void __fastcall TIHS00301::BtnExlSaveClick(TObject *Sender)
  323. {
  324. TcxGrid *pGrid = CxList;
  325. TcxGridTableView *pView = TvList;
  326. String sTitle= Caption;//"수집데이터이력조회";
  327. CMM_ExportToExcelFile(sTitle, pGrid, pView, this);
  328. }
  329. //---------------------------------------------------------------------------
  330. void __fastcall TIHS00301::FormClose(TObject *Sender, TCloseAction &Action)
  331. {
  332. POST_MSG(FParent, WM_SUBFORM_CLOSE, 0, 0);
  333. CommClose();
  334. //IHS00301 = NULL;
  335. }
  336. //---------------------------------------------------------------------------
  337. void __fastcall TIHS00301::FormDestroy(TObject *Sender)
  338. {
  339. CommClose();
  340. }
  341. //---------------------------------------------------------------------------