IAN00101F.cpp 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352
  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 "IAN00101F.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. TIAN00101 *IAN00101 = NULL;
  43. //---------------------------------------------------------------------------
  44. __fastcall TIAN00101::TIAN00101(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 TIAN00101::~TIAN00101(void)
  86. {
  87. }
  88. //--------------------------------------------------------------------------
  89. void __fastcall TIAN00101::FormInit()
  90. {
  91. ADOQry->Connection = ITSDb_GetConnection();
  92. m_pGDC = TvList->DataController;
  93. TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<교통정보수집결과분석 정보>";
  94. //TvList->ViewInfo->GroupByBoxViewInfo->Text = "그룹핑할 필드의 헤더를 이곳으로 드래그 하세요";
  95. FRAMEChart1->FTitle = Caption;//"교통정보수집결과분석";
  96. FRAMEChart1->SetChartLegend(FrmLang->lblColTm->Caption, FrmLang->lblCnt->Caption);//""수집시각", "개수");
  97. FRAMEChart1->ChartValueDisplay(FRAMEChart1->ChkDisplayVal->Checked);
  98. FRAMEChart1->TvChart->ToolBox->CustomizeButton = true;
  99. FRAMEChart1->TvChart->Legend->Position = cppDefault;
  100. FRAMEChart1->TvChart->DiagramStackedBar->Enabled = true;
  101. FRAMEChart1->TvChart->DiagramStackedColumn->Enabled = true;
  102. FRAMEChart1->TvChart->DiagramStackedColumn->Active = true;
  103. LblSearch->Caption = FrmLang->lblQryCond->Caption + FStDateTime.SubString(1, 12) + " ~ " + FEdDateTime.SubString(1, 12);
  104. }
  105. //---------------------------------------------------------------------------
  106. void __fastcall TIAN00101::FormShow(TObject *Sender)
  107. {
  108. FormInit();
  109. Refresh();
  110. TmrShow->Enabled = true;
  111. }
  112. //---------------------------------------------------------------------------
  113. void __fastcall TIAN00101::CommClose()
  114. {
  115. CMM_SaveForm(g_sFormsDir, this);
  116. //IAN00101 = NULL;
  117. }
  118. //---------------------------------------------------------------------------
  119. void __fastcall TIAN00101::TmrShowTimer(TObject *Sender)
  120. {
  121. TmrShow->Enabled = false;
  122. Application->ProcessMessages();
  123. SelHistory();
  124. }
  125. //---------------------------------------------------------------------------
  126. void __fastcall TIAN00101::ChkExpandClick(TObject *Sender)
  127. {
  128. CMM_ExpandCollapseChk(TvList, ChkExpand->Checked);
  129. }
  130. //---------------------------------------------------------------------------
  131. void __fastcall TIAN00101::SelHistory()
  132. {
  133. TSqlCursor sqlCrs;
  134. String sQry;
  135. TADOQuery *pADO = ADOQry;
  136. #if 0
  137. sQry = "SELECT PRCN_DT, TO_DATE(PRCN_DT, 'YYYYMMDDHH24MISS') AS PRCN_DT2, \r\n"
  138. " SUM(OPER01) AS OPER01, SUM(UTIS01) AS UTIS01, \r\n"
  139. " SUM(UTIS02) AS UTIS02, SUM(UTIS26) AS UTIS26 \r\n"
  140. " FROM (SELECT PRCN_DT, \r\n"
  141. " DECODE(CLCT_SYST_CD, 'OPER01', CLCT_NUM, 0) AS OPER01, \r\n"
  142. " DECODE(CLCT_SYST_CD, 'UTIS01', CLCT_NUM, 0) AS UTIS01, \r\n"
  143. " DECODE(CLCT_SYST_CD, 'UTIS02', CLCT_NUM, 0) AS UTIS02, \r\n"
  144. " DECODE(CLCT_SYST_CD, 'UTIS26', CLCT_NUM, 0) AS UTIS26 \r\n"
  145. " FROM TB_CLCT_SYST_STTS_HS \r\n"
  146. " WHERE PRCN_DT BETWEEN :p01 \r\n"
  147. " AND :p02 \r\n"
  148. " AND CLCT_SYST_CD IN ('OPER01', 'UTIS01', 'UTIS02', 'UTIS26') \r\n"
  149. " ) \r\n"
  150. " GROUP BY PRCN_DT \r\n"
  151. " ORDER BY PRCN_DT \r\n";
  152. #endif
  153. int ii = 0;
  154. String sTemp;
  155. String sFetch = "";
  156. String sSubFetch = "";
  157. ii = 0;
  158. FOR_STL(TItsColSys*, pObj, ItsColSysManager->FLists)
  159. {
  160. if (pObj->USE_YN == "N") continue;
  161. sTemp = ", SUM(" + pObj->CLCT_SYST_CD + ") AS " + pObj->CLCT_SYST_CD + " \r\n";
  162. sFetch += sTemp;
  163. sTemp = ", DECODE(CLCT_SYST_CD, '" + pObj->CLCT_SYST_CD + "', CLCT_NUM, 0) AS " + pObj->CLCT_SYST_CD + " \r\n";
  164. sSubFetch += sTemp;
  165. ii++;
  166. if (ii >= MAX_COLSYS) break;
  167. }
  168. sQry = "SELECT PRCN_DT, TO_DATE(PRCN_DT, 'YYYYMMDDHH24MISS') AS PRCN_DT2 \r\n";
  169. sQry+= sFetch;
  170. sQry+= " FROM (SELECT PRCN_DT \r\n";
  171. sQry+= sSubFetch;
  172. sQry+= " FROM TB_CLCT_SYST_STTS_HS \r\n"
  173. " WHERE PRCN_DT BETWEEN :p01 \r\n"
  174. " AND :p02 \r\n"
  175. " ) \r\n"
  176. " GROUP BY PRCN_DT \r\n"
  177. " ORDER BY PRCN_DT \r\n";
  178. try
  179. {
  180. ITSDb_SQLText(pADO, sQry);
  181. ITSDb_SQLBind(pADO, "p01", FStDateTime);
  182. ITSDb_SQLBind(pADO, "p02", FEdDateTime);
  183. ITSDb_SQLOpen(pADO);
  184. DspHistory();
  185. }
  186. catch(EDatabaseError &E)
  187. {
  188. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  189. DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQry);
  190. throw Exception(String(E.ClassName()) + E.Message);
  191. }
  192. catch(Exception &exception)
  193. {
  194. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  195. DBERRORMSG(Caption, String(exception.ClassName()), exception.Message, sQry);
  196. throw Exception(String(exception.ClassName()) + exception.Message);
  197. }
  198. }
  199. //---------------------------------------------------------------------------
  200. void __fastcall TIAN00101::DspHistory()
  201. {
  202. TADOQuery *pADO = ADOQry;
  203. TcxGridChartView *TvChart = FRAMEChart1->TvChart;
  204. try
  205. {
  206. TvChart->ClearSeries();
  207. FRAMEChart1->ChartValueDisplay(FRAMEChart1->ChkDisplayVal->Checked);
  208. CMM_ClearGridTableView(TvList);
  209. int nRow = 0;
  210. int nDataCnt = 0;
  211. try {
  212. TvList->BeginUpdate();
  213. TvChart->BeginUpdate();
  214. nDataCnt = pADO->RecordCount;
  215. TvChart->DataController->RecordCount = nDataCnt;
  216. m_pGDC->RecordCount = nDataCnt;
  217. int ii = 0;
  218. FOR_STL(TItsColSys*, pObj, ItsColSysManager->FLists)
  219. {
  220. FChart[ii] = TvChart->CreateSeries();
  221. FChart[ii]->DataBinding->ValueType = "Integer";
  222. FChart[ii]->DisplayText = pObj->CLCT_SYST_NM;
  223. ii++;
  224. if (ii >= MAX_COLSYS) break;
  225. }
  226. for( ; !pADO->Eof; pADO->Next(), nRow++)
  227. {
  228. String sDbDate = pADO->FieldByName("PRCN_DT")->AsString;
  229. m_pGDC->Values[nRow][Column01->Index] = ITSUtil_FormatStr(sDbDate, STR_DATETIME); //가공시각
  230. int nTotal = 0;
  231. int nValue = 0;
  232. ii = 0;
  233. FOR_STL(TItsColSys*, pObj, ItsColSysManager->FLists)
  234. {
  235. nValue = pADO->FieldByName(pObj->CLCT_SYST_CD)->AsInteger;
  236. m_pGDC->Values[nRow][FColumn[ii]->Index] = nValue;
  237. FChart[ii]->Values[nRow] = nValue;
  238. nTotal += nValue;
  239. ii++;
  240. if (ii >= MAX_COLSYS) break;
  241. }
  242. m_pGDC->Values[nRow][Column02->Index] = nTotal;
  243. TvChart->Categories->Values[nRow] = pADO->FieldByName("PRCN_DT")->AsString.SubString(1,12);
  244. }
  245. }
  246. __finally
  247. {
  248. if (pADO)
  249. {
  250. pADO->Close();
  251. }
  252. TvChart->EndUpdate();
  253. TvList->EndUpdate();
  254. //CxList->SetFocus();
  255. LblRecords->Caption = FormatFloat("##,##0", m_pGDC->RecordCount) + FrmLang->lblEA->Caption;//" 건";
  256. String sEnd = FrmLang->lblQrySel->Caption + " [" + LblRecords->Caption + "]";//"데이터 " + LblRecords->Caption + " 이 조회 되었습니다.";
  257. Application->MessageBox(sEnd.c_str(),
  258. FrmLang->lblQryEnd->Caption.c_str(),//L"데이터 조회 완료",
  259. MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  260. }
  261. }
  262. catch(EDatabaseError &E)
  263. {
  264. DBERRORMSG(Caption, String(E.ClassName()), E.Message, pADO->SQL->Text);
  265. throw Exception(String(E.ClassName()) + E.Message);
  266. }
  267. catch(Exception &e)
  268. {
  269. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  270. DBERRORMSG(Caption, String(e.ClassName()), e.Message, pADO->SQL->Text);
  271. throw Exception(String(e.ClassName()) + e.Message);
  272. }
  273. }
  274. //---------------------------------------------------------------------------
  275. void __fastcall TIAN00101::OnMessage(TMessage &Msg)
  276. {
  277. switch (Msg.Msg)
  278. {
  279. case WM_PARAM_DATABASE:
  280. if (WP_DB_SELECT_OK == Msg.WParam)
  281. {
  282. //ShowMessage("Select Ok");
  283. }
  284. break;
  285. }
  286. }
  287. //---------------------------------------------------------------------------
  288. void __fastcall TIAN00101::BtnExlSaveClick(TObject *Sender)
  289. {
  290. TcxGrid *pGrid = CxList;
  291. TcxGridTableView *pView = TvList;
  292. String sTitle= Caption;//"교통정보수집결과분석";
  293. CMM_ExportToExcelFile(sTitle, pGrid, pView, this);
  294. }
  295. //---------------------------------------------------------------------------
  296. void __fastcall TIAN00101::FormClose(TObject *Sender, TCloseAction &Action)
  297. {
  298. POST_MSG(FParent, WM_SUBFORM_CLOSE, 0, 0);
  299. CommClose();
  300. //IAN00101 = NULL;
  301. }
  302. //---------------------------------------------------------------------------
  303. void __fastcall TIAN00101::FormDestroy(TObject *Sender)
  304. {
  305. CommClose();
  306. }
  307. //---------------------------------------------------------------------------