PIS0020MF.cpp 7.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include "ITSSkinF.h"
  4. #include "ITSUtilF.h"
  5. #include "ITSDbF.h"
  6. #include "AppGlobalF.h"
  7. #pragma hdrstop
  8. #include "PIS0020MF.h"
  9. //---------------------------------------------------------------------------
  10. #pragma package(smart_init)
  11. #pragma link "cxButtons"
  12. #pragma link "cxClasses"
  13. #pragma link "cxContainer"
  14. #pragma link "cxControls"
  15. #pragma link "cxCustomData"
  16. #pragma link "cxData"
  17. #pragma link "cxDataStorage"
  18. #pragma link "cxEdit"
  19. #pragma link "cxFilter"
  20. #pragma link "cxGraphics"
  21. #pragma link "cxGrid"
  22. #pragma link "cxGridCustomTableView"
  23. #pragma link "cxGridCustomView"
  24. #pragma link "cxGridLevel"
  25. #pragma link "cxGridTableView"
  26. #pragma link "cxGroupBox"
  27. #pragma link "cxLabel"
  28. #pragma link "cxLookAndFeelPainters"
  29. #pragma link "cxLookAndFeels"
  30. #pragma link "cxStyles"
  31. #pragma link "dxSkinBlack"
  32. #pragma link "dxSkinBlue"
  33. #pragma link "dxSkinsCore"
  34. #pragma link "dxSkinscxPCPainter"
  35. #pragma resource "*.dfm"
  36. TPIS0020M *PIS0020M = NULL;
  37. //---------------------------------------------------------------------------
  38. __fastcall TPIS0020M::TPIS0020M(TComponent* Owner)
  39. : TForm(Owner)
  40. {
  41. ITSSkin_Load(this);
  42. CMM_LoadForm(g_sFormsDir, this);
  43. }
  44. //---------------------------------------------------------------------------
  45. /*
  46. * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다..
  47. * Form과 DataModule class를 delete시킨다.
  48. * arguments
  49. *
  50. * return
  51. * void
  52. */
  53. void __fastcall TPIS0020M::CommClose()
  54. {
  55. try
  56. {
  57. TmrQry->Enabled = false;
  58. CMM_SaveForm(g_sFormsDir, this);
  59. }
  60. catch(...)
  61. {
  62. }
  63. }
  64. //---------------------------------------------------------------------------
  65. /*
  66. * Form을 보여줄때 호출되는 event 메서드이다.
  67. * arguments
  68. * Sender : event handler 객체
  69. * return
  70. * void
  71. */
  72. void __fastcall TPIS0020M::FormShow(TObject *Sender)
  73. {
  74. Refresh();
  75. FormInit();
  76. TmrShow->Enabled = true;
  77. }
  78. //---------------------------------------------------------------------------
  79. /*
  80. * form 초기화
  81. *
  82. * arguments
  83. *
  84. * return
  85. * void
  86. */
  87. void __fastcall TPIS0020M::FormInit()
  88. {
  89. }
  90. //---------------------------------------------------------------------------
  91. /*
  92. * Form이 Show되고 난 후 최초 1회 수행되는 타이머 이벤트
  93. * arguments
  94. * Sender : event handler 객체
  95. * return
  96. * void
  97. */
  98. void __fastcall TPIS0020M::TmrShowTimer(TObject *Sender)
  99. {
  100. TmrShow->Enabled = false;
  101. TmrQry->Interval = 100;
  102. TmrQry->Enabled = true;
  103. }
  104. //---------------------------------------------------------------------------
  105. /*
  106. * Refresh Data Event Function
  107. * arguments
  108. *
  109. * return
  110. * void
  111. */
  112. void __fastcall TPIS0020M::RefreshData()
  113. {
  114. // 검색조건에 의한 링크 데이터 조회
  115. String sQry;
  116. TADOQuery *pADO = NULL;
  117. sQry = "SELECT A.CTLR_MNGM_NMBR, A.CTLR_MNGM_NM, \r\n"
  118. " B.FLOR_NMBR AS FLORID, B.FLOR_NM AS FLORNM, \r\n"
  119. " H.* \r\n"
  120. " FROM TB_PRLT_CTLR A, \r\n"
  121. " TB_PRLT_FLOR B, \r\n"
  122. " TB_PRLT_RT_INFR H \r\n"
  123. " WHERE A.CTLR_MNGM_NMBR = B.CTLR_MNGM_NMBR \r\n"
  124. " AND B.CTLR_MNGM_NMBR = H.CTLR_MNGM_NMBR \r\n"
  125. " AND B.FLOR_NMBR = H.FLOR_NMBR \r\n"
  126. " ORDER BY A.CTLR_MNGM_NMBR, B.FLOR_NMBR, H.UPDT_DT \r\n";
  127. CMM_ClearGridTableView(TvList);
  128. try
  129. {
  130. int nRow;
  131. TvList->BeginUpdate();
  132. try
  133. {
  134. int nORD;
  135. pADO = new TADOQuery(NULL);
  136. pADO->Close();
  137. pADO->Connection = ITSDb_GetConnection();
  138. pADO->SQL->Clear();
  139. pADO->SQL->Text = sQry;
  140. pADO->Open();
  141. for( ; !pADO->Eof; pADO->Next())
  142. {
  143. nRow = TvList->DataController->AppendRecord();
  144. TvList->DataController->Values[nRow][Col11->Index] = pADO->FieldByName("CTLR_MNGM_NMBR")->AsString;
  145. TvList->DataController->Values[nRow][Col12->Index] = pADO->FieldByName("CTLR_MNGM_NM")->AsString;
  146. TvList->DataController->Values[nRow][Col00->Index] = pADO->FieldByName("FLORID")->AsString;
  147. TvList->DataController->Values[nRow][Col01->Index] = pADO->FieldByName("FLORNM")->AsString;
  148. //TvList->DataController->Values[nRow][Col02->Index] = pADO->FieldByName("UPDT_DT")->AsString;
  149. TvList->DataController->Values[nRow][Col02->Index] = ITSUtil_StrToDateTime(pADO->FieldByName("UPDT_DT")->AsString).FormatString(STR_DATETIME);
  150. TvList->DataController->Values[nRow][Col03->Index] = pADO->FieldByName("GNRL_RMND_PRZN_NUM")->AsString;
  151. TvList->DataController->Values[nRow][Col04->Index] = pADO->FieldByName("LGVH_RMND_PRZN_NUM")->AsString;
  152. TvList->DataController->Values[nRow][Col05->Index] = pADO->FieldByName("HVVH_RMND_PRZN_NUM")->AsString;
  153. TvList->DataController->Values[nRow][Col06->Index] = pADO->FieldByName("EMVH_RMND_PRZN_NUM")->AsString;
  154. TvList->DataController->Values[nRow][Col07->Index] = pADO->FieldByName("HNDC_RMND_PRZN_NUM")->AsString;
  155. TvList->DataController->Values[nRow][Col08->Index] = pADO->FieldByName("WMON_RMND_PRZN_NUM")->AsString;
  156. TvList->DataController->Values[nRow][Col09->Index] = pADO->FieldByName("ETC_RMND_PRZN_NUM")->AsString;
  157. }
  158. }
  159. catch(EDatabaseError &E)
  160. {
  161. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  162. DBERRORMSG("주차현황조회", String(E.ClassName()), E.Message, sQry);
  163. throw Exception(String(E.ClassName()) + E.Message);
  164. }
  165. catch(Exception &exception)
  166. {
  167. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  168. DBERRORMSG("주차현황조회", String(exception.ClassName()), exception.Message, sQry);
  169. throw Exception(String(exception.ClassName()) + exception.Message);
  170. }
  171. }
  172. __finally
  173. {
  174. if (pADO)
  175. {
  176. pADO->Close();
  177. delete pADO;
  178. }
  179. TvList->EndUpdate();
  180. //cxGroupBox3->Caption = "▶ 주차정보";// (최종가공시각: " + FRAMETrafficLinkList1->FLastAnsTime + ")";
  181. }
  182. }
  183. //---------------------------------------------------------------------------
  184. /*
  185. * Close 버튼 클릭 이벤트 핸들러
  186. * arguments
  187. * Sender : event handler 객체
  188. * return
  189. * void
  190. */
  191. void __fastcall TPIS0020M::BtnCloseClick(TObject *Sender)
  192. {
  193. Close();
  194. }
  195. //---------------------------------------------------------------------------
  196. void __fastcall TPIS0020M::FormClose(TObject *Sender, TCloseAction &Action)
  197. {
  198. CommClose();
  199. PIS0020M = NULL;
  200. Action = caFree;
  201. }
  202. //---------------------------------------------------------------------------
  203. void __fastcall TPIS0020M::TmrQryTimer(TObject *Sender)
  204. {
  205. TmrQry->Enabled = false;
  206. RefreshData();
  207. TmrQry->Interval = 60 * 1000;
  208. TmrQry->Enabled = true;
  209. BtnSearch->Enabled = true;
  210. }
  211. //---------------------------------------------------------------------------
  212. void __fastcall TPIS0020M::BtnSearchClick(TObject *Sender)
  213. {
  214. Application->ProcessMessages();
  215. TSqlCursor sqlCrs((TControl*)BtnSearch);
  216. BtnSearch->Enabled = false;
  217. TmrQry->Interval = 100;
  218. TmrQry->Enabled = true;
  219. }
  220. //---------------------------------------------------------------------------