IHS00401F.cpp 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495
  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 "IHS00401F.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. TIHS00401 *IHS00401 = NULL;
  43. //---------------------------------------------------------------------------
  44. __fastcall TIHS00401::TIHS00401(TComponent* Owner, HWND hHandle, String sFrom, String sTo, String sIdList, int ALinkLevel)
  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. FLinkLevel = ALinkLevel;
  55. }
  56. //---------------------------------------------------------------------------
  57. __fastcall TIHS00401::~TIHS00401(void)
  58. {
  59. }
  60. //--------------------------------------------------------------------------
  61. void __fastcall TIHS00401::FormInit()
  62. {
  63. ADOQry->Connection = ITSDb_GetConnection();
  64. m_pGDC = TvList->DataController;
  65. TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<가공데이터 이력 정보>";
  66. //TvList->ViewInfo->GroupByBoxViewInfo->Text = "그룹핑할 필드의 헤더를 이곳으로 드래그 하세요";
  67. FRAMEChart1->FTitle = Caption;//"가공데이터 이력";
  68. FRAMEChart1->SetChartLegend(FrmLang->lblPrcsTm->Caption, FrmLang->lblSpd->Caption);//"가공시각", "속도(km/h)");
  69. FRAMEChart1->ChartValueDisplay(FRAMEChart1->ChkDisplayVal->Checked);
  70. FRAMEChart1->TvChart->ToolBox->CustomizeButton = true;
  71. FRAMEChart1->TvChart->Legend->Position = cppDefault;
  72. LblSearch->Caption = FrmLang->lblQryCond->Caption + "[" + FIdList + "] " + FStDateTime.SubString(1, 12) + " ~ " + FEdDateTime.SubString(1, 12);
  73. if (FLinkLevel == 2 || FLinkLevel == 3)
  74. {
  75. Column05->Visible = false;
  76. Column06->Visible = false;
  77. Column07->Visible = false;
  78. Column08->Visible = false;
  79. Column10->Visible = false;
  80. Column11->Visible = false;
  81. }
  82. }
  83. //---------------------------------------------------------------------------
  84. void __fastcall TIHS00401::FormShow(TObject *Sender)
  85. {
  86. FormInit();
  87. Refresh();
  88. TmrShow->Enabled = true;
  89. }
  90. //---------------------------------------------------------------------------
  91. void __fastcall TIHS00401::CommClose()
  92. {
  93. CMM_SaveForm(g_sFormsDir, this);
  94. //IHS00401 = NULL;
  95. }
  96. //---------------------------------------------------------------------------
  97. void __fastcall TIHS00401::TmrShowTimer(TObject *Sender)
  98. {
  99. TmrShow->Enabled = false;
  100. Application->ProcessMessages();
  101. SelHistory();
  102. }
  103. //---------------------------------------------------------------------------
  104. void __fastcall TIHS00401::ChkExpandClick(TObject *Sender)
  105. {
  106. CMM_ExpandCollapseChk(TvList, ChkExpand->Checked);
  107. }
  108. //---------------------------------------------------------------------------
  109. void __fastcall TIHS00401::SelHistory()
  110. {
  111. TSqlCursor sqlCrs;
  112. String sQry;
  113. TADOQuery *pADO = ADOQry;
  114. if (FLinkLevel == 1)
  115. {
  116. sQry = "SELECT A.LINK_ID, A.PRCN_DT, A.TFVL, A.SPED, A.OCPY_RATE, A.TRVL_HH, \r\n"
  117. " TO_DATE(A.PRCN_DT, 'YYYYMMDDHH24MISS') AS PRCN_DT2, \r\n"
  118. " B.CMMN_CD_KOR_NM CMTR_GRAD_CD, \r\n"
  119. " DECODE(A.MISS_YN, 'Y', '결측', 'N', '측정', '-' ) MISS_YN, \r\n"
  120. " A.PRCN_SPED, A.SMTH_SPED, \r\n"
  121. " A.ADJS_SPED, A.PTRN_SPED, NVL(C.CMMN_CD_KOR_NM, '-') PRCN_SORC, \r\n"
  122. " NVL(D.CMMN_CD_KOR_NM, '-') ADJS_SORC, A.DATA_NUM \r\n"
  123. " FROM TB_LINK_TRAF_HS A, \r\n"
  124. " (SELECT CMMN_CD, CMMN_CD_KOR_NM \r\n"
  125. " FROM TB_CMMN_CD \r\n"
  126. " WHERE CMMN_CLSF_CD = 'LTC' \r\n"
  127. " ) B, \r\n"
  128. " (SELECT CMMN_CD, CMMN_CD_KOR_NM \r\n"
  129. " FROM TB_CMMN_CD \r\n"
  130. " WHERE CMMN_CLSF_CD = 'CST' \r\n"
  131. " ) C, \r\n"
  132. " (SELECT CMMN_CD, CMMN_CD_KOR_NM \r\n"
  133. " FROM TB_CMMN_CD \r\n"
  134. " WHERE CMMN_CLSF_CD = 'MCS' \r\n"
  135. " ) D \r\n"
  136. " WHERE A.CMTR_GRAD_CD = B.CMMN_CD \r\n"
  137. " AND A.PRCN_SORC = C.CMMN_CD(+) \r\n"
  138. " AND A.ADJS_SORC = D.CMMN_CD(+) \r\n"
  139. " AND A.PRCN_DT BETWEEN :p01 \r\n"
  140. " AND :p02 \r\n"
  141. " AND A.LINK_ID = :p03 \r\n"
  142. " ORDER BY A.PRCN_DT, A.LINK_ID \r\n";
  143. }
  144. else
  145. if (FLinkLevel == 2)
  146. {
  147. sQry = "SELECT A.IFSC_ID AS LINK_ID, A.PRCN_DT, A.TFVL, A.SPED, A.OCPY_RATE, A.TRVL_HH, \r\n"
  148. " TO_DATE(A.PRCN_DT, 'YYYYMMDDHH24MISS') AS PRCN_DT2, \r\n"
  149. " B.CMMN_CD_KOR_NM CMTR_GRAD_CD, A.PTRN_SPED, A.DATA_NUM \r\n"
  150. " FROM TB_IFSC_TRAF_HS A, \r\n"
  151. " (SELECT CMMN_CD, CMMN_CD_KOR_NM \r\n"
  152. " FROM TB_CMMN_CD \r\n"
  153. " WHERE CMMN_CLSF_CD = 'LTC' \r\n"
  154. " ) B \r\n"
  155. " WHERE A.CMTR_GRAD_CD = B.CMMN_CD \r\n"
  156. " AND A.PRCN_DT BETWEEN :p01 \r\n"
  157. " AND :p02 \r\n"
  158. " AND A.IFSC_ID = :p03 \r\n"
  159. " ORDER BY A.PRCN_DT, A.IFSC_ID \r\n";
  160. }
  161. else
  162. if (FLinkLevel == 3)
  163. {
  164. sQry = "SELECT A.ROAD_ID AS LINK_ID, A.PRCN_DT, A.TFVL, A.SPED, A.OCPY_RATE, A.TRVL_HH, \r\n"
  165. " TO_DATE(A.PRCN_DT, 'YYYYMMDDHH24MISS') AS PRCN_DT2, \r\n"
  166. " B.CMMN_CD_KOR_NM CMTR_GRAD_CD, A.PTRN_SPED, A.DATA_NUM \r\n"
  167. " FROM TB_ROAD_TRAF_HS A, \r\n"
  168. " (SELECT CMMN_CD, CMMN_CD_KOR_NM \r\n"
  169. " FROM TB_CMMN_CD \r\n"
  170. " WHERE CMMN_CLSF_CD = 'LTC' \r\n"
  171. " ) B \r\n"
  172. " WHERE A.CMTR_GRAD_CD = B.CMMN_CD \r\n"
  173. " AND A.PRCN_DT BETWEEN :p01 \r\n"
  174. " AND :p02 \r\n"
  175. " AND A.ROAD_ID = :p03 \r\n"
  176. " ORDER BY A.PRCN_DT, A.ROAD_ID \r\n";
  177. }
  178. else return ;
  179. try
  180. {
  181. ITSDb_SQLText(pADO, sQry);
  182. ITSDb_SQLBind(pADO, "p01", FStDateTime);
  183. ITSDb_SQLBind(pADO, "p02", FEdDateTime);
  184. ITSDb_SQLBind(pADO, "p03", FIdList);
  185. ITSDb_SQLOpen(pADO);
  186. if (FLinkLevel == 1)
  187. {
  188. DspHistory();
  189. }
  190. else
  191. if (FLinkLevel == 2)
  192. {
  193. DspHistory2();
  194. }
  195. else
  196. if (FLinkLevel == 3)
  197. {
  198. DspHistory2();
  199. }
  200. }
  201. catch(EDatabaseError &E)
  202. {
  203. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  204. DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQry);
  205. throw Exception(String(E.ClassName()) + E.Message);
  206. }
  207. catch(Exception &exception)
  208. {
  209. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  210. DBERRORMSG(Caption, String(exception.ClassName()), exception.Message, sQry);
  211. throw Exception(String(exception.ClassName()) + exception.Message);
  212. }
  213. }
  214. //---------------------------------------------------------------------------
  215. void __fastcall TIHS00401::DspHistory2()
  216. {
  217. TADOQuery *pADO = ADOQry;
  218. TcxGridChartView *TvChart = FRAMEChart1->TvChart;
  219. try
  220. {
  221. TcxGridChartSeries *pChart1 = NULL;
  222. //TcxGridChartSeries *pChart2 = NULL;
  223. //TcxGridChartSeries *pChart3 = NULL;
  224. //TcxGridChartSeries *pChart4 = NULL;
  225. TcxGridChartSeries *pChart5 = NULL;
  226. TvChart->ClearSeries();
  227. FRAMEChart1->ChartValueDisplay(FRAMEChart1->ChkDisplayVal->Checked);
  228. CMM_ClearGridTableView(TvList);
  229. int nRow = 0;
  230. int nDataCnt = 0;
  231. try {
  232. TvList->BeginUpdate();
  233. TvChart->BeginUpdate();
  234. nDataCnt = pADO->RecordCount;
  235. TvChart->DataController->RecordCount = nDataCnt;
  236. m_pGDC->RecordCount = nDataCnt;
  237. pChart1 = TvChart->CreateSeries();
  238. pChart1->DataBinding->ValueType = "Integer";
  239. pChart1->DisplayText = "속도";
  240. //pChart2 = TvChart->CreateSeries();
  241. //pChart2->DataBinding->ValueType = "Integer";
  242. //pChart2->DisplayText = "가공속도";
  243. //pChart3 = TvChart->CreateSeries();
  244. //pChart3->DataBinding->ValueType = "Integer";
  245. //pChart3->DisplayText = "평활화속도";
  246. //pChart4 = TvChart->CreateSeries();
  247. //pChart4->DataBinding->ValueType = "Integer";
  248. //pChart4->DisplayText = "보정속도";
  249. pChart5 = TvChart->CreateSeries();
  250. pChart5->DataBinding->ValueType = "Integer";
  251. pChart5->DisplayText = "패턴속도";
  252. for( ; !pADO->Eof; pADO->Next(), nRow++)
  253. {
  254. String sDbDate = pADO->FieldByName("PRCN_DT")->AsString;
  255. m_pGDC->Values[nRow][Column01->Index] = ITSUtil_FormatStr(sDbDate, STR_DATETIME); //가공시각
  256. m_pGDC->Values[nRow][Column02->Index] = pADO->FieldByName("LINK_ID")->AsString; //링크아이디
  257. m_pGDC->Values[nRow][Column13->Index] = pADO->FieldByName("TFVL")->AsInteger; //교통량
  258. m_pGDC->Values[nRow][Column03->Index] = pADO->FieldByName("SPED")->AsInteger; //속도
  259. m_pGDC->Values[nRow][Column14->Index] = pADO->FieldByName("OCPY_RATE")->AsFloat; //점유율
  260. m_pGDC->Values[nRow][Column15->Index] = pADO->FieldByName("TRVL_HH")->AsInteger; //통행시간
  261. m_pGDC->Values[nRow][Column04->Index] = pADO->FieldByName("CMTR_GRAD_CD")->AsString; //소통등급
  262. //m_pGDC->Values[nRow][Column05->Index] = pADO->FieldByName("MISS_YN")->AsString; //결측여부
  263. //m_pGDC->Values[nRow][Column06->Index] = pADO->FieldByName("PRCN_SPED")->AsInteger; //가공속도
  264. //m_pGDC->Values[nRow][Column07->Index] = pADO->FieldByName("SMTH_SPED")->AsInteger; //평활화속도
  265. //m_pGDC->Values[nRow][Column08->Index] = pADO->FieldByName("ADJS_SPED")->AsInteger; //보정속도
  266. m_pGDC->Values[nRow][Column09->Index] = pADO->FieldByName("PTRN_SPED")->AsInteger; //패턴속도
  267. //m_pGDC->Values[nRow][Column10->Index] = pADO->FieldByName("PRCN_SORC")->AsString; //수집원
  268. //m_pGDC->Values[nRow][Column11->Index] = pADO->FieldByName("ADJS_SORC")->AsString; //보정소스
  269. m_pGDC->Values[nRow][Column12->Index] = pADO->FieldByName("DATA_NUM")->AsInteger; //데이터갯수
  270. pChart1->Values[nRow] = m_pGDC->Values[nRow][Column03->Index];
  271. //pChart2->Values[nRow] = m_pGDC->Values[nRow][Column06->Index];
  272. //pChart3->Values[nRow] = m_pGDC->Values[nRow][Column07->Index];
  273. //pChart4->Values[nRow] = m_pGDC->Values[nRow][Column08->Index];
  274. pChart5->Values[nRow] = m_pGDC->Values[nRow][Column09->Index];
  275. TvChart->Categories->Values[nRow] = pADO->FieldByName("PRCN_DT")->AsString.SubString(1,12);
  276. }
  277. }
  278. __finally
  279. {
  280. if (pADO)
  281. {
  282. pADO->Close();
  283. }
  284. TvChart->ToolBox->CustomizeButton = true;
  285. TvChart->Legend->Position = cppDefault;
  286. TvChart->EndUpdate();
  287. TvList->EndUpdate();
  288. //CxList->SetFocus();
  289. LblRecords->Caption = FormatFloat("##,##0", m_pGDC->RecordCount) + FrmLang->lblEA->Caption;//" 건";
  290. String sEnd = FrmLang->lblQrySel->Caption + " [" + LblRecords->Caption + "]";//"데이터 " + LblRecords->Caption + " 이 조회 되었습니다.";
  291. Application->MessageBox(sEnd.c_str(),
  292. FrmLang->lblQryEnd->Caption.c_str(),//L"데이터 조회 완료",
  293. MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  294. }
  295. }
  296. catch(EDatabaseError &E)
  297. {
  298. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  299. DBERRORMSG(Caption, String(E.ClassName()), E.Message, pADO->SQL->Text);
  300. throw Exception(String(E.ClassName()) + E.Message);
  301. }
  302. catch(Exception &e)
  303. {
  304. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  305. DBERRORMSG(Caption, String(e.ClassName()), e.Message, pADO->SQL->Text);
  306. throw Exception(String(e.ClassName()) + e.Message);
  307. }
  308. }
  309. //---------------------------------------------------------------------------
  310. void __fastcall TIHS00401::DspHistory()
  311. {
  312. TADOQuery *pADO = ADOQry;
  313. TcxGridChartView *TvChart = FRAMEChart1->TvChart;
  314. try
  315. {
  316. TcxGridChartSeries *pChart1 = NULL;
  317. TcxGridChartSeries *pChart2 = NULL;
  318. TcxGridChartSeries *pChart3 = NULL;
  319. TcxGridChartSeries *pChart4 = NULL;
  320. TcxGridChartSeries *pChart5 = NULL;
  321. TvChart->ClearSeries();
  322. FRAMEChart1->ChartValueDisplay(FRAMEChart1->ChkDisplayVal->Checked);
  323. CMM_ClearGridTableView(TvList);
  324. int nRow = 0;
  325. int nDataCnt = 0;
  326. try {
  327. TvList->BeginUpdate();
  328. TvChart->BeginUpdate();
  329. nDataCnt = pADO->RecordCount;
  330. TvChart->DataController->RecordCount = nDataCnt;
  331. m_pGDC->RecordCount = nDataCnt;
  332. pChart1 = TvChart->CreateSeries();
  333. pChart1->DataBinding->ValueType = "Integer";
  334. pChart1->DisplayText = "속도";
  335. pChart2 = TvChart->CreateSeries();
  336. pChart2->DataBinding->ValueType = "Integer";
  337. pChart2->DisplayText = "가공속도";
  338. pChart3 = TvChart->CreateSeries();
  339. pChart3->DataBinding->ValueType = "Integer";
  340. pChart3->DisplayText = "평활화속도";
  341. pChart4 = TvChart->CreateSeries();
  342. pChart4->DataBinding->ValueType = "Integer";
  343. pChart4->DisplayText = "보정속도";
  344. pChart5 = TvChart->CreateSeries();
  345. pChart5->DataBinding->ValueType = "Integer";
  346. pChart5->DisplayText = "패턴속도";
  347. for( ; !pADO->Eof; pADO->Next(), nRow++)
  348. {
  349. String sDbDate = pADO->FieldByName("PRCN_DT")->AsString;
  350. m_pGDC->Values[nRow][Column01->Index] = ITSUtil_FormatStr(sDbDate, STR_DATETIME); //가공시각
  351. m_pGDC->Values[nRow][Column02->Index] = pADO->FieldByName("LINK_ID")->AsString; //링크아이디
  352. m_pGDC->Values[nRow][Column13->Index] = pADO->FieldByName("TFVL")->AsInteger; //교통량
  353. m_pGDC->Values[nRow][Column03->Index] = pADO->FieldByName("SPED")->AsInteger; //속도
  354. m_pGDC->Values[nRow][Column14->Index] = pADO->FieldByName("OCPY_RATE")->AsFloat; //점유율
  355. m_pGDC->Values[nRow][Column15->Index] = pADO->FieldByName("TRVL_HH")->AsInteger; //통행시간
  356. m_pGDC->Values[nRow][Column04->Index] = pADO->FieldByName("CMTR_GRAD_CD")->AsString; //소통등급
  357. m_pGDC->Values[nRow][Column05->Index] = pADO->FieldByName("MISS_YN")->AsString; //결측여부
  358. m_pGDC->Values[nRow][Column06->Index] = pADO->FieldByName("PRCN_SPED")->AsInteger; //가공속도
  359. m_pGDC->Values[nRow][Column07->Index] = pADO->FieldByName("SMTH_SPED")->AsInteger; //평활화속도
  360. m_pGDC->Values[nRow][Column08->Index] = pADO->FieldByName("ADJS_SPED")->AsInteger; //보정속도
  361. m_pGDC->Values[nRow][Column09->Index] = pADO->FieldByName("PTRN_SPED")->AsInteger; //패턴속도
  362. m_pGDC->Values[nRow][Column10->Index] = pADO->FieldByName("PRCN_SORC")->AsString; //수집원
  363. m_pGDC->Values[nRow][Column11->Index] = pADO->FieldByName("ADJS_SORC")->AsString; //보정소스
  364. m_pGDC->Values[nRow][Column12->Index] = pADO->FieldByName("DATA_NUM")->AsInteger; //데이터갯수
  365. pChart1->Values[nRow] = m_pGDC->Values[nRow][Column03->Index];
  366. pChart2->Values[nRow] = m_pGDC->Values[nRow][Column06->Index];
  367. pChart3->Values[nRow] = m_pGDC->Values[nRow][Column07->Index];
  368. pChart4->Values[nRow] = m_pGDC->Values[nRow][Column08->Index];
  369. pChart5->Values[nRow] = m_pGDC->Values[nRow][Column09->Index];
  370. TvChart->Categories->Values[nRow] = pADO->FieldByName("PRCN_DT")->AsString.SubString(1,12);
  371. }
  372. }
  373. __finally
  374. {
  375. if (pADO)
  376. {
  377. pADO->Close();
  378. }
  379. TvChart->ToolBox->CustomizeButton = true;
  380. TvChart->Legend->Position = cppDefault;
  381. TvChart->EndUpdate();
  382. TvList->EndUpdate();
  383. //CxList->SetFocus();
  384. LblRecords->Caption = FormatFloat("##,##0", m_pGDC->RecordCount) + FrmLang->lblEA->Caption;//" 건";
  385. String sEnd = FrmLang->lblQrySel->Caption + " [" + LblRecords->Caption + "]";//"데이터 " + LblRecords->Caption + " 이 조회 되었습니다.";
  386. Application->MessageBox(sEnd.c_str(),
  387. FrmLang->lblQryEnd->Caption.c_str(),//L"데이터 조회 완료",
  388. MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  389. }
  390. }
  391. catch(EDatabaseError &E)
  392. {
  393. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  394. DBERRORMSG(Caption, String(E.ClassName()), E.Message, pADO->SQL->Text);
  395. throw Exception(String(E.ClassName()) + E.Message);
  396. }
  397. catch(Exception &e)
  398. {
  399. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  400. DBERRORMSG(Caption, String(e.ClassName()), e.Message, pADO->SQL->Text);
  401. throw Exception(String(e.ClassName()) + e.Message);
  402. }
  403. }
  404. //---------------------------------------------------------------------------
  405. void __fastcall TIHS00401::OnMessage(TMessage &Msg)
  406. {
  407. switch (Msg.Msg)
  408. {
  409. case WM_PARAM_DATABASE:
  410. if (WP_DB_SELECT_OK == Msg.WParam)
  411. {
  412. //ShowMessage("Select Ok");
  413. }
  414. break;
  415. }
  416. }
  417. //---------------------------------------------------------------------------
  418. void __fastcall TIHS00401::BtnExlSaveClick(TObject *Sender)
  419. {
  420. TcxGrid *pGrid = CxList;
  421. TcxGridTableView *pView = TvList;
  422. String sTitle= Caption;//"가공데이터이력";
  423. CMM_ExportToExcelFile(sTitle, pGrid, pView, this);
  424. }
  425. //---------------------------------------------------------------------------
  426. void __fastcall TIHS00401::FormClose(TObject *Sender, TCloseAction &Action)
  427. {
  428. POST_MSG(FParent, WM_SUBFORM_CLOSE, 0, 0);
  429. CommClose();
  430. //IHS00401 = NULL;
  431. }
  432. //---------------------------------------------------------------------------
  433. void __fastcall TIHS00401::FormDestroy(TObject *Sender)
  434. {
  435. CommClose();
  436. }
  437. //---------------------------------------------------------------------------