IDB0050MF.cpp 38 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215
  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 "IDB0050MF.h"
  10. //---------------------------------------------------------------------------
  11. #pragma package(smart_init)
  12. #pragma link "cxCalc"
  13. #pragma link "cxCheckBox"
  14. #pragma link "cxClasses"
  15. #pragma link "cxCustomData"
  16. #pragma link "cxData"
  17. #pragma link "cxDataStorage"
  18. #pragma link "cxFilter"
  19. #pragma link "cxGrid"
  20. #pragma link "cxGridCustomTableView"
  21. #pragma link "cxGridCustomView"
  22. #pragma link "cxGridLevel"
  23. #pragma link "cxGridTableView"
  24. #pragma link "cxLabel"
  25. #pragma link "cxStyles"
  26. #pragma link "dxSkinscxPCPainter"
  27. #pragma link "cxPC"
  28. #pragma link "cxPCdxBarPopupMenu"
  29. #pragma link "FRAME_LinkListF"
  30. #pragma link "FRAME_ServiceLinkListF"
  31. #pragma link "cxMaskEdit"
  32. #pragma link "cxSpinEdit"
  33. #pragma link "cxTextEdit"
  34. #pragma link "cxRadioGroup"
  35. #pragma link "FRAME_RoadListF"
  36. #pragma resource "*.dfm"
  37. TIDB0050M *IDB0050M = NULL;
  38. //---------------------------------------------------------------------------
  39. __fastcall TIDB0050M::TIDB0050M(TComponent* Owner)
  40. : TForm(Owner)
  41. {
  42. int nWidth = PnlRight->Width;
  43. int nClientW = ClientWidth;
  44. ITSSkin_Load(this);
  45. CMM_LoadForm(g_sFormsDir, this);
  46. if (ClientWidth < nClientW)
  47. ClientWidth = nClientW;
  48. PnlRight->Width = nWidth;
  49. FTitle = "가공파라미터 관리";
  50. TvList0->OptionsView->NoDataToDisplayInfoText = "";
  51. TvList1->OptionsView->NoDataToDisplayInfoText = "";
  52. TvList2->OptionsView->NoDataToDisplayInfoText = "";
  53. TvList3->OptionsView->NoDataToDisplayInfoText = "";
  54. FRAMELinkList1->TvList->OptionsData->Editing = true;
  55. FRAMEServiceLinkList1->TvList->OptionsData->Editing = true;
  56. FRAMERoadList1->TvList->OptionsData->Editing = true;
  57. FRAMELinkList1->ColumnSel->Visible = true;
  58. FRAMEServiceLinkList1->ColumnSel->Visible = true;
  59. FRAMERoadList1->ColumnSel->Visible = true;
  60. #if 0
  61. if (!MyItsColSysManager)
  62. {
  63. MyItsColSysManager = new TItsColSysManager();
  64. }
  65. #endif
  66. FInit = false;
  67. }
  68. //---------------------------------------------------------------------------
  69. /*
  70. * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다..
  71. * Form과 DataModule class를 delete시킨다.
  72. * arguments
  73. *
  74. * return
  75. * void
  76. */
  77. void __fastcall TIDB0050M::CommClose()
  78. {
  79. try
  80. {
  81. #if 0
  82. if (MyItsColSysManager)
  83. {
  84. delete MyItsColSysManager;
  85. MyItsColSysManager = NULL;
  86. }
  87. #endif
  88. CMM_SaveForm(g_sFormsDir, this);
  89. }
  90. catch(...)
  91. {
  92. }
  93. }
  94. //---------------------------------------------------------------------------
  95. /*
  96. * form 초기화
  97. *
  98. * arguments
  99. *
  100. * return
  101. * void
  102. */
  103. void __fastcall TIDB0050M::FormInit()
  104. {
  105. PgLink->Properties->ActivePage = cxTabSheet1;
  106. ADOQry->Connection = ITSDb_GetConnection();
  107. //MyItsColSysManager->LoadFromDb();
  108. LoadCollectSysInfo();
  109. }
  110. //---------------------------------------------------------------------------
  111. void __fastcall TIDB0050M::LoadCollectSysInfo()
  112. {
  113. CMM_ClearGridTableView(TvList0);
  114. CMM_ClearGridTableView(TvList1);
  115. CMM_ClearGridTableView(TvList2);
  116. CMM_ClearGridTableView(TvList3);
  117. TcxDataController *pGDC0 = TvList0->DataController;
  118. TcxDataController *pGDC2 = TvList2->DataController;
  119. TcxDataController *pGDC3 = TvList3->DataController;
  120. int nRow0 = 0;
  121. int nRow2 = 0;
  122. int nRow3 = 0;
  123. try
  124. {
  125. TvList0->BeginUpdate();
  126. TvList1->BeginUpdate();
  127. TvList2->BeginUpdate();
  128. TvList3->BeginUpdate();
  129. //FOR_STL(TItsColSys*, pObj, MyItsColSysManager->FLists)
  130. FOR_STL(TItsColSys*, pObj, ItsColSysManager->FLists)
  131. {
  132. if (pObj->USE_YN == "N") continue;
  133. nRow2 = pGDC2->AppendRecord();
  134. pGDC2->Values[nRow2][ColumnA01->Index] = pObj->CLCT_SYST_NM;
  135. pGDC2->Values[nRow2][ColumnA02->Index] = pObj->CLCT_SYST_CD;
  136. nRow3 = pGDC3->AppendRecord();
  137. pGDC3->Values[nRow3][ColumnC01->Index] = pObj->CLCT_SYST_NM;
  138. pGDC3->Values[nRow3][ColumnC02->Index] = pObj->CLCT_SYST_CD;
  139. pGDC3->Values[nRow3][ColumnC03->Index] = 10;
  140. nRow0 = pGDC0->AppendRecord();
  141. pGDC0->Values[nRow0][ColumnD01->Index] = pObj->CLCT_SYST_NM;
  142. pGDC0->Values[nRow0][ColumnD02->Index] = pObj->CLCT_SYST_CD;
  143. pGDC0->Values[nRow0][ColumnD03->Index] = (nRow0+1);
  144. pGDC0->Values[nRow0][ColumnD04->Index] = nRow3;
  145. }
  146. }
  147. __finally
  148. {
  149. TvList0->EndUpdate();
  150. TvList1->EndUpdate();
  151. TvList2->EndUpdate();
  152. TvList3->EndUpdate();
  153. }
  154. }
  155. //---------------------------------------------------------------------------
  156. /*
  157. * Form을 보여줄때 호출되는 event 메서드이다.
  158. * arguments
  159. * Sender : event handler 객체
  160. * return
  161. * void
  162. */
  163. void __fastcall TIDB0050M::FormShow(TObject *Sender)
  164. {
  165. Refresh();
  166. FormInit();
  167. TmrShow->Enabled = true;
  168. }
  169. //---------------------------------------------------------------------------
  170. /*
  171. * Form이 Show되고 난 후 최초 1회 수행되는 타이머 이벤트
  172. * arguments
  173. * Sender : event handler 객체
  174. * return
  175. * void
  176. */
  177. void __fastcall TIDB0050M::TmrShowTimer(TObject *Sender)
  178. {
  179. TmrShow->Enabled = false;
  180. BtnSearchClick((TObject*)BtnSearch);
  181. }
  182. //---------------------------------------------------------------------------
  183. /*
  184. * Search 버튼 클릭 이벤트 핸들러
  185. * arguments
  186. * Sender : event handler 객체
  187. * return
  188. * void
  189. */
  190. void __fastcall TIDB0050M::BtnSearchClick(TObject *Sender)
  191. {
  192. RefreshData();
  193. }
  194. //---------------------------------------------------------------------------
  195. /*
  196. * Refresh Data Event Function
  197. * arguments
  198. *
  199. * return
  200. * void
  201. */
  202. void __fastcall TIDB0050M::RefreshData()
  203. {
  204. FRAMELinkList1->UpdateList();
  205. FRAMEServiceLinkList1->UpdateList();
  206. FRAMERoadList1->UpdateList();
  207. FInit = true;
  208. }
  209. //---------------------------------------------------------------------------
  210. /*
  211. * Close 버튼 클릭 이벤트 핸들러
  212. * arguments
  213. * Sender : event handler 객체
  214. * return
  215. * void
  216. */
  217. void __fastcall TIDB0050M::BtnCloseClick(TObject *Sender)
  218. {
  219. Close();
  220. }
  221. //---------------------------------------------------------------------------
  222. void __fastcall TIDB0050M::FormClose(TObject *Sender, TCloseAction &Action)
  223. {
  224. CommClose();
  225. IDB0050M = NULL;
  226. Action = caFree;
  227. }
  228. //---------------------------------------------------------------------------
  229. void __fastcall TIDB0050M::ChkFMT0Click(TObject *Sender)
  230. {
  231. ChkFMT1->Checked = !ChkFMT0->Checked;
  232. ChangeFMT(ChkFMT1->Checked);
  233. }
  234. //---------------------------------------------------------------------------
  235. void __fastcall TIDB0050M::ChkFMT1Click(TObject *Sender)
  236. {
  237. ChkFMT0->Checked = !ChkFMT1->Checked;
  238. ChangeFMT(ChkFMT1->Checked);
  239. }
  240. //---------------------------------------------------------------------------
  241. void __fastcall TIDB0050M::ChangeFMT(bool AUse)
  242. {
  243. if (AUse)
  244. {
  245. GrpFMT1->Color = clSkyBlue;
  246. GrpFMT1->Enabled = true;
  247. }
  248. else
  249. {
  250. GrpFMT1->Color = clSilver;
  251. GrpFMT1->Enabled = false;
  252. }
  253. }
  254. //---------------------------------------------------------------------------
  255. void __fastcall TIDB0050M::ChkFST1Click(TObject *Sender)
  256. {
  257. ChkFST2->Checked = !ChkFST1->Checked;
  258. ChangeFST(ChkFST1->Checked);
  259. }
  260. //---------------------------------------------------------------------------
  261. void __fastcall TIDB0050M::ChkFST2Click(TObject *Sender)
  262. {
  263. ChkFST1->Checked = !ChkFST2->Checked;
  264. ChangeFST(ChkFST1->Checked);
  265. }
  266. //---------------------------------------------------------------------------
  267. void __fastcall TIDB0050M::ChangeFST(bool AUse)
  268. {
  269. if (AUse)
  270. {
  271. GrpFST1->Color = clSkyBlue;
  272. GrpFST1->Enabled = true;
  273. GrpFST2->Color = clSilver;
  274. GrpFST2->Enabled = false;
  275. }
  276. else
  277. {
  278. GrpFST1->Color = clSilver;
  279. GrpFST1->Enabled = false;
  280. GrpFST2->Color = clSkyBlue;
  281. GrpFST2->Enabled = true;
  282. }
  283. }
  284. //---------------------------------------------------------------------------
  285. void __fastcall TIDB0050M::ChkMCA0Click(TObject *Sender)
  286. {
  287. //사용안함
  288. if (ChkMCA0->Checked == false)
  289. ChkMCA0->Checked = true;
  290. else
  291. ChangeMCA(0);
  292. }
  293. //---------------------------------------------------------------------------
  294. void __fastcall TIDB0050M::ChkMCA2Click(TObject *Sender)
  295. {
  296. //패턴적용
  297. if (ChkMCA2->Checked == false)
  298. ChkMCA2->Checked = true;
  299. else
  300. ChangeMCA(2);
  301. }
  302. //---------------------------------------------------------------------------
  303. void __fastcall TIDB0050M::ChkMCA1Click(TObject *Sender)
  304. {
  305. //단기(15분이동평균)/장기(패턴)
  306. if (ChkMCA1->Checked == false)
  307. ChkMCA1->Checked = true;
  308. else
  309. ChangeMCA(1);
  310. }
  311. //---------------------------------------------------------------------------
  312. void __fastcall TIDB0050M::ChangeMCA(int AType)
  313. {
  314. TNotifyEvent OnChkMCA0 = ChkMCA0->OnClick;
  315. TNotifyEvent OnChkMCA1 = ChkMCA1->OnClick;
  316. TNotifyEvent OnChkMCA2 = ChkMCA2->OnClick;
  317. ChkMCA0->OnClick = NULL;
  318. ChkMCA1->OnClick = NULL;
  319. ChkMCA2->OnClick = NULL;
  320. if (AType == 1)
  321. {
  322. GrpMCA1->Color = clSkyBlue;
  323. GrpMCA1->Enabled = true;
  324. ChkMCA0->Checked = false;
  325. ChkMCA2->Checked = false;
  326. }
  327. else
  328. {
  329. GrpMCA1->Color = clSilver;
  330. GrpMCA1->Enabled = false;
  331. if (AType == 0)
  332. {
  333. ChkMCA1->Checked = false;
  334. ChkMCA2->Checked = false;
  335. }
  336. else
  337. {
  338. ChkMCA0->Checked = false;
  339. ChkMCA1->Checked = false;
  340. }
  341. }
  342. ChkMCA0->OnClick = OnChkMCA0;
  343. ChkMCA1->OnClick = OnChkMCA1;
  344. ChkMCA2->OnClick = OnChkMCA2;
  345. }
  346. //---------------------------------------------------------------------------
  347. void __fastcall TIDB0050M::ChkSMT0Click(TObject *Sender)
  348. {
  349. //사용안함
  350. if (ChkSMT0->Checked == false)
  351. ChkSMT0->Checked = true;
  352. else
  353. ChangeSMT(0);
  354. }
  355. //---------------------------------------------------------------------------
  356. void __fastcall TIDB0050M::ChkSMT1Click(TObject *Sender)
  357. {
  358. //범위값 사용
  359. if (ChkSMT1->Checked == false)
  360. ChkSMT1->Checked = true;
  361. else
  362. ChangeSMT(1);
  363. }
  364. //---------------------------------------------------------------------------
  365. void __fastcall TIDB0050M::ChkSMT2Click(TObject *Sender)
  366. {
  367. //15분 이동평균
  368. if (ChkSMT2->Checked == false)
  369. ChkSMT2->Checked = true;
  370. else
  371. ChangeSMT(2);
  372. }
  373. //---------------------------------------------------------------------------
  374. void __fastcall TIDB0050M::ChangeSMT(int AType)
  375. {
  376. TNotifyEvent OnChkSMT0 = ChkSMT0->OnClick;
  377. TNotifyEvent OnChkSMT1 = ChkSMT1->OnClick;
  378. TNotifyEvent OnChkSMT2 = ChkSMT2->OnClick;
  379. ChkSMT0->OnClick = NULL;
  380. ChkSMT1->OnClick = NULL;
  381. ChkSMT2->OnClick = NULL;
  382. if (AType == 0)
  383. {
  384. GrpSMT1->Color = clSilver;
  385. GrpSMT1->Enabled = false;
  386. GrpSMT2->Color = clSilver;
  387. GrpSMT2->Enabled = false;
  388. ChkSMT1->Checked = false;
  389. ChkSMT2->Checked = false;
  390. }
  391. else
  392. if (AType == 1)
  393. {
  394. GrpSMT1->Color = clSkyBlue;
  395. GrpSMT1->Enabled = true;
  396. GrpSMT2->Color = clSilver;
  397. GrpSMT2->Enabled = false;
  398. ChkSMT0->Checked = false;
  399. ChkSMT2->Checked = false;
  400. }
  401. else
  402. {
  403. GrpSMT1->Color = clSilver;
  404. GrpSMT1->Enabled = false;
  405. GrpSMT2->Color = clSkyBlue;
  406. GrpSMT2->Enabled = true;
  407. ChkSMT0->Checked = false;
  408. ChkSMT1->Checked = false;
  409. }
  410. ChkSMT0->OnClick = OnChkSMT0;
  411. ChkSMT1->OnClick = OnChkSMT1;
  412. ChkSMT2->OnClick = OnChkSMT2;
  413. }
  414. //---------------------------------------------------------------------------
  415. void __fastcall TIDB0050M::BtnListAddClick(TObject *Sender)
  416. {
  417. int nSelRows = TvList1->Controller->SelectedRowCount;
  418. if (nSelRows <= 0)
  419. {
  420. return;
  421. }
  422. try
  423. {
  424. TcxGridDataController *pGDC = (TcxGridDataController *)TvList2->DataController;
  425. TvList1->BeginUpdate();
  426. TvList2->BeginUpdate();
  427. try
  428. {
  429. for (int ii = 0; ii < nSelRows; ii++)
  430. {
  431. int nSelIdx = TvList1->Controller->SelectedRows[ii]->RecordIndex;
  432. int nRow = pGDC->AppendRecord();
  433. pGDC->Values[nRow][ColumnB01->Index] = TvList1->DataController->Values[nSelIdx][ColumnA01->Index];
  434. pGDC->Values[nRow][ColumnB02->Index] = TvList1->DataController->Values[nSelIdx][ColumnA02->Index];
  435. }
  436. TvList1->Controller->DeleteSelection();
  437. }
  438. catch(...)
  439. {
  440. }
  441. }
  442. __finally
  443. {
  444. TvList1->EndUpdate();
  445. TvList2->EndUpdate();
  446. }
  447. }
  448. //---------------------------------------------------------------------------
  449. void __fastcall TIDB0050M::BtnListDeleteClick(TObject *Sender)
  450. {
  451. int nSelRows = TvList2->Controller->SelectedRowCount;
  452. if (nSelRows <= 0)
  453. {
  454. return;
  455. }
  456. try
  457. {
  458. TcxGridDataController *pGDC = (TcxGridDataController *)TvList1->DataController;
  459. TvList1->BeginUpdate();
  460. TvList2->BeginUpdate();
  461. try
  462. {
  463. for (int ii = 0; ii < nSelRows; ii++)
  464. {
  465. int nSelIdx = TvList2->Controller->SelectedRows[ii]->RecordIndex;
  466. int nRow = pGDC->AppendRecord();
  467. pGDC->Values[nRow][ColumnA01->Index] = TvList2->DataController->Values[nSelIdx][ColumnB01->Index];
  468. pGDC->Values[nRow][ColumnA02->Index] = TvList2->DataController->Values[nSelIdx][ColumnB02->Index];
  469. }
  470. TvList2->Controller->DeleteSelection();
  471. }
  472. catch(...)
  473. {
  474. }
  475. }
  476. __finally
  477. {
  478. TvList1->EndUpdate();
  479. TvList2->EndUpdate();
  480. }
  481. }
  482. //---------------------------------------------------------------------------
  483. bool __fastcall TIDB0050M::CheckParameterValue()
  484. {
  485. //필터링 파라미터
  486. FFMTVolMin = FFMTVolMax = FFMTSpdMin = FFMTSpdMax = 0;
  487. if (ChkFMT0->Checked)
  488. {
  489. FFMT = "FMT0"; //사용안함
  490. }
  491. else
  492. if (ChkFMT1->Checked)
  493. {
  494. FFMT = "FMT1"; //범위값사용
  495. FFMTVolMin = SeVolMin->Value;
  496. FFMTVolMax = SeVolMax->Value;
  497. FFMTSpdMin = SeSpdMin->Value;
  498. FFMTSpdMax = SeSpdMax->Value;
  499. if (FFMTVolMin >= FFMTVolMax)
  500. {
  501. Application->MessageBox(L"필터링 파라미터 - 범위값 사용.\r\n교통량 최저값은 교통량 최대값 미만이어야 합니다.",
  502. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  503. return false;
  504. }
  505. if (FFMTSpdMin >= FFMTSpdMax)
  506. {
  507. Application->MessageBox(L"필터링 파라미터 - 범위값 사용.\r\속도 최저값은 속도 최대값 미만이어야 합니다.",
  508. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  509. return false;
  510. }
  511. } else return false;
  512. //퓨전 파라미터
  513. if (ChkFST1->Checked)
  514. {
  515. FFST = "FST1"; //우선순위
  516. #if 0
  517. if (TvList2->DataController->RecordCount == 0)
  518. {
  519. Application->MessageBox(L"퓨전 파라미터 - 우선순위.\r\우선순위 항목을 선택하셔야 합니다.",
  520. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  521. return false;
  522. }
  523. #else
  524. int nSeq = 0;
  525. int nTot = 0;
  526. try
  527. {
  528. TcxGridDataController *pGDC = TvList0->DataController;
  529. TvList0->BeginUpdate();
  530. for(int ii = 0; ii < pGDC->RecordCount; ii++)
  531. {
  532. int nTmp = pGDC->Values[ii][ColumnD03->Index];
  533. nSeq += nTmp;
  534. nTot += (ii+1);
  535. }
  536. }
  537. __finally
  538. {
  539. TvList0->EndUpdate();
  540. }
  541. if (nSeq != nTot)
  542. {
  543. Application->MessageBox(L"퓨전 파라미터 - 우선순위.\r\우선순위는 순서에 맞게 각자 다른값을 가져야 합니다.",
  544. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  545. return false;
  546. }
  547. #endif
  548. }
  549. else
  550. if (ChkFST2->Checked)
  551. {
  552. FFST = "FST2"; //가중치
  553. int dFST = 0;
  554. try
  555. {
  556. TcxGridDataController *pGDC = TvList3->DataController;
  557. TvList3->BeginUpdate();
  558. for(int ii = 0; ii < pGDC->RecordCount; ii++)
  559. {
  560. int fTmp = pGDC->Values[ii][ColumnC03->Index];
  561. dFST += fTmp;
  562. }
  563. }
  564. __finally
  565. {
  566. TvList3->EndUpdate();
  567. }
  568. if (dFST != 100)
  569. {
  570. Application->MessageBox(L"퓨전 파라미터 - 가중치.\r\가중치의 전체합은 100 이어야 합니다.",
  571. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  572. return false;
  573. }
  574. } else return false;
  575. //보정 파라미터
  576. FMCAVal3 = FMCAVal2 = FMCAVal1 = 0;
  577. if (ChkMCA0->Checked)
  578. {
  579. FMCA = "MCA0"; //사용안함
  580. }
  581. else
  582. if (ChkMCA1->Checked)
  583. {
  584. FMCA = "MCA1"; //단기(15분이동평균)/장기(패턴)
  585. FMCAVal3 = SeMCAVal3->Value;
  586. FMCAVal2 = SeMCAVal2->Value;
  587. FMCAVal1 = SeMCAVal1->Value;
  588. int nTotVal = (FMCAVal3+FMCAVal2+FMCAVal1);
  589. if (nTotVal != 100)
  590. {
  591. Application->MessageBox(L"보정 파라미터 - 단기(15분이동평균)/장기(패턴).\r\평균 가중치의 전체합은 100 이어야 합니다.",
  592. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  593. return false;
  594. }
  595. }
  596. else
  597. if (ChkMCA2->Checked)
  598. {
  599. FMCA = "MCA2"; //패턴적용
  600. } else return false;
  601. //평활화 파라미터
  602. FSMTSpdMin = FSMTSpdMax = FSMTVal2 = FSMTVal1 = FSMTValC = 0;
  603. if (ChkSMT0->Checked)
  604. {
  605. FSMT = "SMT0"; //사용안함
  606. }
  607. else
  608. if (ChkSMT1->Checked)
  609. {
  610. FSMT = "SMT1"; //패턴적용
  611. FSMTSpdMin = SeSMTValMin->Value;
  612. FSMTSpdMax = SeSMTValMax->Value;
  613. if (FFMTSpdMin >= FFMTSpdMax)
  614. {
  615. Application->MessageBox(L"평활화 파라미터 - 편차제한.\r\최저속도계수값은 최대속도계수값 미만이어야 합니다.",
  616. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  617. return false;
  618. }
  619. }
  620. else
  621. if (ChkSMT2->Checked)
  622. {
  623. FSMT = "SMT2"; //15분 이동평균
  624. FSMTVal2 = SeSMTVal2->Value;
  625. FSMTVal1 = SeSMTVal1->Value;
  626. FSMTValC = SeSMTValC->Value;
  627. int nTotVal = (FSMTVal2+FSMTVal1+FSMTValC);
  628. if (nTotVal != 100)
  629. {
  630. Application->MessageBox(L"평활화 파라미터 - 15분 이동평균.\r\15분 이동평균값 가중치의 전체합은 100 이어야 합니다.",
  631. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  632. return false;
  633. }
  634. } else return false;
  635. return true;
  636. }
  637. //---------------------------------------------------------------------------
  638. void __fastcall TIDB0050M::BtnApplyAllClick(TObject *Sender)
  639. {
  640. //전체구간적용
  641. if (!CheckParameterValue())
  642. {
  643. return;
  644. }
  645. String sMsg;
  646. sMsg = "전체구간에 대하여 파라미터 정보를 설정합니다. \r\n"
  647. "선택한 구간에 대하여 작업을 원하시는 경우 [선택구간 적용]을 하십시요.\r\n"
  648. "전체구간에 대하여 파라미터 정보를 적용하시겠습니까?";
  649. if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
  650. if (PgLink->ActivePageIndex == 0)
  651. {
  652. ModifyLinkParam(1, NULL);
  653. }
  654. else
  655. if (PgLink->ActivePageIndex == 1)
  656. {
  657. ModifyLinkParam(2, NULL);
  658. }
  659. else
  660. {
  661. ModifyLinkParam(3, NULL);
  662. }
  663. POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_07, 0);
  664. }
  665. //---------------------------------------------------------------------------
  666. void __fastcall TIDB0050M::BtnApplySelClick(TObject *Sender)
  667. {
  668. //선택구간적용
  669. if (!CheckParameterValue())
  670. {
  671. return;
  672. }
  673. String sMsg;
  674. sMsg = "선택한 구간에 대하여 파라미터 정보를 설정합니다. \r\n"
  675. "전체 구간에 대하여 작업을 원하시는 경우 [전체구간 적용]을 하십시요.\r\n"
  676. "선택한 구간에 대하여 파라미터 정보를 적용하시겠습니까?";
  677. if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
  678. int nSelCnt = 0;
  679. TStringList *pStringList = NULL;
  680. try
  681. {
  682. pStringList = new TStringList();
  683. if (PgLink->ActivePageIndex == 0)
  684. {
  685. //레벨1 링크
  686. nSelCnt = FRAMELinkList1->GetSelLinkIds(pStringList);
  687. if (nSelCnt <= 0)
  688. {
  689. Application->MessageBox(L"목록에서 구간을 선택하셔야 합니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  690. return ;
  691. }
  692. #if 0
  693. if (nSelCnt > 500)
  694. {
  695. Application->MessageBox(L"선택한 구간이 너무 많아 작업을 수행할 수 없습니다[최대 500개].", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  696. return ;
  697. }
  698. #endif
  699. ModifyLinkParam(1, pStringList);
  700. }
  701. else
  702. if (PgLink->ActivePageIndex == 1)
  703. {
  704. //서비스 링크(레벨2)
  705. nSelCnt = FRAMEServiceLinkList1->GetSelLinkIds(pStringList);
  706. if (nSelCnt <= 0)
  707. {
  708. Application->MessageBox(L"목록에서 구간을 선택하셔야 합니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  709. return ;
  710. }
  711. #if 0
  712. if (nSelCnt > 500)
  713. {
  714. Application->MessageBox(L"선택한 구간이 너무 많아 작업을 수행할 수 없습니다[최대 500개].", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  715. return ;
  716. }
  717. #endif
  718. ModifyLinkParam(2, pStringList);
  719. }
  720. else
  721. {
  722. //도로(레벨3)
  723. nSelCnt = FRAMERoadList1->GetSelLinkIds(pStringList);
  724. if (nSelCnt <= 0)
  725. {
  726. Application->MessageBox(L"목록에서 구간을 선택하셔야 합니다.", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  727. return ;
  728. }
  729. #if 0
  730. if (nSelCnt > 500)
  731. {
  732. Application->MessageBox(L"선택한 구간이 너무 많아 작업을 수행할 수 없습니다[최대 500개].", FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  733. return ;
  734. }
  735. #endif
  736. ModifyLinkParam(3, pStringList);
  737. }
  738. }
  739. __finally
  740. {
  741. if (pStringList) delete pStringList;
  742. }
  743. POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_07, 0);
  744. }
  745. //---------------------------------------------------------------------------
  746. bool __fastcall TIDB0050M::ModifyLinkParam(int ALevel, TStringList *AStringList)
  747. {
  748. String sQry;
  749. String sWhere = "";
  750. String sIdList = "";
  751. if (AStringList)
  752. {
  753. if (AStringList->Count > 0)
  754. {
  755. for (int ii = 0; ii < AStringList->Count; ii++)
  756. {
  757. sIdList += "'" + AStringList->Strings[ii] +"',";
  758. }
  759. }
  760. if (AStringList->Count > 0)
  761. sIdList.Delete(sIdList.Length(), 1);
  762. }
  763. if (!sIdList.IsEmpty())
  764. {
  765. switch(ALevel)
  766. {
  767. case 1:
  768. sWhere = "LINK_ID IN(" + sIdList + ") \r\n";
  769. break;
  770. case 2:
  771. sWhere = "LINK_ID IN((SELECT LINK_ID FROM TB_IFSC_LINK_RLTN WHERE IFSC_ID IN( " + sIdList + "))) \r\n";
  772. break;
  773. case 3:
  774. sWhere = "LINK_ID IN (SELECT LINK_ID \r\n"
  775. " FROM TB_IFSC_LINK_RLTN \r\n"
  776. " WHERE IFSC_ID IN((SELECT IFSC_ID \r\n"
  777. " FROM TB_ROAD_IFSC_RLTN \r\n"
  778. " WHERE ROAD_ID IN( " + sIdList + " )))) \r\n";
  779. break;
  780. default: return false;
  781. }
  782. }
  783. String s15MinPtrn = Chk15MinPtrn->Checked ? "Y" : "N";
  784. int nMissCycle = SeMissCycle->Value;
  785. TADOQuery *pADO = NULL;
  786. try
  787. {
  788. try
  789. {
  790. pADO = new TADOQuery(NULL);
  791. pADO->Close();
  792. pADO->Connection = ITSDb_GetConnection();
  793. ITSDb_GetConnection()->BeginTrans();
  794. // TB_LINK_PARA_STUP
  795. sQry = "UPDATE TB_LINK_PARA_STUP \r\n"
  796. " SET FLTR_MTHD_CD = :p01, \r\n"
  797. " FUSN_MTHD_CD = :p02, \r\n"
  798. " ADJS_MTHD_CD = :p03, \r\n"
  799. " SMTH_MTHD_CD = :p04 \r\n";
  800. if (!sWhere.IsEmpty())
  801. {
  802. sQry += " WHERE " + sWhere;
  803. }
  804. ITSDb_SQLText(pADO, sQry);
  805. ITSDb_SQLBind(pADO, "p01", FFMT);
  806. ITSDb_SQLBind(pADO, "p02", FFST);
  807. ITSDb_SQLBind(pADO, "p03", FMCA);
  808. ITSDb_SQLBind(pADO, "p04", FSMT);
  809. ITSDb_SQLExec(pADO);
  810. sQry = "UPDATE TB_LINK_PARA_DETL \r\n"
  811. " SET FLTR_MIN_TFVL = :p01, \r\n"
  812. " FLTR_MAX_TFVL = :p02, \r\n"
  813. " FLTR_LWST_SPED = :p03, \r\n"
  814. " FLTR_HGHS_SPED = :p04, \r\n"
  815. " ADJS_WGHT_AVRG_PRE_1CYCL = :p05, \r\n"
  816. " ADJS_WGHT_AVRG_PRE_2CYCL = :p06, \r\n"
  817. " ADJS_WGHT_AVRG_PRE_3CYCL = :p07, \r\n"
  818. " ADJS_15M_PTRN_APLY_YN = :p08, \r\n"
  819. " ADJS_SHTR_MISS_DECS_CYCL = :p09, \r\n"
  820. " SMTH_LWST_SPED_FCTR = :p10, \r\n"
  821. " SMTH_HGHS_SPED_FCTR = :p11, \r\n"
  822. " SMTH_WGHT_AVRG_PRST = :p12, \r\n"
  823. " SMTH_WGHT_AVRG_PRE_1CYCL = :p13, \r\n"
  824. " SMTH_WGHT_AVRG_PRE_2CYCL = :p14 \r\n";
  825. if (!sWhere.IsEmpty())
  826. {
  827. sQry += " WHERE " + sWhere;
  828. }
  829. ITSDb_SQLText(pADO, sQry);
  830. ITSDb_SQLBind(pADO, "p01", FFMTVolMin);
  831. ITSDb_SQLBind(pADO, "p02", FFMTVolMax);
  832. ITSDb_SQLBind(pADO, "p03", FFMTSpdMin);
  833. ITSDb_SQLBind(pADO, "p04", FFMTSpdMax);
  834. ITSDb_SQLBind(pADO, "p05", FMCAVal1/100);
  835. ITSDb_SQLBind(pADO, "p06", FMCAVal2/100);
  836. ITSDb_SQLBind(pADO, "p07", FMCAVal3/100);
  837. ITSDb_SQLBind(pADO, "p08", s15MinPtrn);
  838. ITSDb_SQLBind(pADO, "p09", nMissCycle);
  839. ITSDb_SQLBind(pADO, "p10", FSMTSpdMin);
  840. ITSDb_SQLBind(pADO, "p11", FSMTSpdMax);
  841. ITSDb_SQLBind(pADO, "p12", FSMTValC/100);
  842. ITSDb_SQLBind(pADO, "p13", FSMTVal1/100);
  843. ITSDb_SQLBind(pADO, "p14", FSMTVal2/100);
  844. ITSDb_SQLExec(pADO);
  845. sQry = "UPDATE TB_LINK_PARA_CLCT_SYST \r\n"
  846. " SET FUSN_PRRT = :p02, \r\n"
  847. " FUSN_WGHT = :p03 \r\n"
  848. " WHERE CLCT_SYST_CD = :p01 \r\n";
  849. if (!sWhere.IsEmpty())
  850. {
  851. sQry += " AND " + sWhere;
  852. }
  853. ITSDb_SQLText(pADO, sQry);
  854. try
  855. {
  856. TcxGridDataController *pGDC = TvList0->DataController;
  857. TvList0->BeginUpdate();
  858. for(int ii = 0; ii < pGDC->RecordCount; ii++)
  859. {
  860. String sCode = pGDC->Values[ii][ColumnD02->Index];
  861. int nOrdr = pGDC->Values[ii][ColumnD03->Index];
  862. int nIndx = pGDC->Values[ii][ColumnD04->Index];
  863. int nWigt = TvList3->DataController->Values[nIndx][ColumnC03->Index];
  864. double dWeight = nWigt/100.;
  865. ITSDb_SQLBind(pADO, "p01", sCode);
  866. ITSDb_SQLBind(pADO, "p02", nOrdr);
  867. ITSDb_SQLBind(pADO, "p03", dWeight);
  868. ITSDb_SQLExec(pADO);
  869. }
  870. }
  871. __finally
  872. {
  873. TvList0->EndUpdate();
  874. }
  875. ITSDb_GetConnection()->CommitTrans();
  876. Application->MessageBox(L"파라미터 정보를 설정 하였습니다.", FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  877. }
  878. catch(EDatabaseError &E)
  879. {
  880. ITSDb_GetConnection()->RollbackTrans();
  881. ShowMessage(String(E.ClassName()) + E.Message);
  882. }
  883. catch(Exception &exception)
  884. {
  885. ITSDb_GetConnection()->RollbackTrans();
  886. ShowMessage(String(exception.ClassName()) + exception.Message);
  887. }
  888. catch(...)
  889. {
  890. ITSDb_GetConnection()->RollbackTrans();
  891. ShowMessage("데이터 작업 중에 알수없는 DB 오류가 발생하였습니다.");
  892. }
  893. }
  894. __finally
  895. {
  896. if (pADO)
  897. {
  898. pADO->Close();
  899. delete pADO;
  900. }
  901. }
  902. return true;
  903. }
  904. //---------------------------------------------------------------------------
  905. void __fastcall TIDB0050M::FRAMELinkList1TvListFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord,
  906. TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged)
  907. {
  908. if (!FInit) return;
  909. if (!AFocusedRecord) return;
  910. if (FRAMELinkList1->TvList->ViewData->RecordCount <= 0) return;
  911. int nIndex = FRAMELinkList1->TvList->DataController->FocusedRecordIndex;
  912. if (nIndex < 0) return;
  913. String sLinkId = VarToStr(FRAMELinkList1->TvList->DataController->Values[nIndex][FRAMELinkList1->Column01->Index]);
  914. DisplayLinkParam(1, sLinkId);
  915. }
  916. //---------------------------------------------------------------------------
  917. void __fastcall TIDB0050M::FRAMEServiceLinkList1TvListFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord,
  918. TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged)
  919. {
  920. if (!FInit) return;
  921. if (!AFocusedRecord) return;
  922. if (FRAMEServiceLinkList1->TvList->ViewData->RecordCount <= 0) return;
  923. int nIndex = FRAMEServiceLinkList1->TvList->DataController->FocusedRecordIndex;
  924. if (nIndex < 0) return;
  925. String sLinkId = VarToStr(FRAMEServiceLinkList1->TvList->DataController->Values[nIndex][FRAMEServiceLinkList1->Column01->Index]);
  926. DisplayLinkParam(2, sLinkId);
  927. }
  928. //---------------------------------------------------------------------------
  929. void __fastcall TIDB0050M::FRAMERoadList1TvListFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord,
  930. TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged)
  931. {
  932. if (!FInit) return;
  933. if (!AFocusedRecord) return;
  934. if (FRAMERoadList1->TvList->ViewData->RecordCount <= 0) return;
  935. int nIndex = FRAMERoadList1->TvList->DataController->FocusedRecordIndex;
  936. if (nIndex < 0) return;
  937. String sLinkId = VarToStr(FRAMERoadList1->TvList->DataController->Values[nIndex][FRAMERoadList1->Column01->Index]);
  938. DisplayLinkParam(3, sLinkId);
  939. }
  940. //---------------------------------------------------------------------------
  941. void __fastcall TIDB0050M::DisplayLinkParam(int ALevel, String ALinkId)
  942. {
  943. if (ALevel != 1) return;
  944. TSqlCursor sqlCursor;
  945. String sQry;
  946. TADOQuery *pADO = ADOQry;
  947. try
  948. {
  949. try
  950. {
  951. sQry = "SELECT FLTR_MTHD_CD, \r\n"
  952. " FUSN_MTHD_CD, \r\n"
  953. " ADJS_MTHD_CD, \r\n"
  954. " SMTH_MTHD_CD \r\n"
  955. " FROM TB_LINK_PARA_STUP \r\n"
  956. " WHERE LINK_ID = :p01 \r\n";
  957. ITSDb_SQLText(pADO, sQry);
  958. ITSDb_SQLBind(pADO, "p01", ALinkId);
  959. ITSDb_SQLOpen(pADO);
  960. for( ; !pADO->Eof; pADO->Next())
  961. {
  962. String sFMT = pADO->FieldByName("FLTR_MTHD_CD")->AsString;
  963. String sFST = pADO->FieldByName("FUSN_MTHD_CD")->AsString;
  964. String sMCA = pADO->FieldByName("ADJS_MTHD_CD")->AsString;
  965. String sSMT = pADO->FieldByName("SMTH_MTHD_CD")->AsString;
  966. if (sFMT == "FMT0")
  967. {
  968. if (!ChkFMT0->Checked) ChkFMT0->Checked = true;
  969. }
  970. else
  971. {
  972. if (!ChkFMT1->Checked) ChkFMT1->Checked = true;
  973. }
  974. if (sFST == "FST1")
  975. {
  976. if (!ChkFST1->Checked) ChkFST1->Checked = true;
  977. }
  978. else
  979. {
  980. if (!ChkFST2->Checked) ChkFST2->Checked = true;
  981. }
  982. if (sMCA == "MCA0")
  983. {
  984. if (!ChkMCA0->Checked) ChkMCA0->Checked = true;
  985. }
  986. else
  987. if (sMCA == "MCA1")
  988. {
  989. if (!ChkMCA1->Checked) ChkMCA1->Checked = true;
  990. }
  991. else
  992. {
  993. if (!ChkMCA2->Checked) ChkMCA2->Checked = true;
  994. }
  995. if (sSMT == "SMT0")
  996. {
  997. if (!ChkSMT0->Checked) ChkSMT0->Checked = true;
  998. }
  999. else
  1000. if (sSMT == "SMT1")
  1001. {
  1002. if (!ChkSMT1->Checked) ChkSMT1->Checked = true;
  1003. }
  1004. else
  1005. {
  1006. if (!ChkSMT2->Checked) ChkSMT2->Checked = true;
  1007. }
  1008. }
  1009. sQry = "SELECT FLTR_MIN_TFVL, \r\n"
  1010. " FLTR_MAX_TFVL, \r\n"
  1011. " FLTR_LWST_SPED, \r\n"
  1012. " FLTR_HGHS_SPED, \r\n"
  1013. " ADJS_WGHT_AVRG_PRE_1CYCL, \r\n"
  1014. " ADJS_WGHT_AVRG_PRE_2CYCL, \r\n"
  1015. " ADJS_WGHT_AVRG_PRE_3CYCL, \r\n"
  1016. " ADJS_15M_PTRN_APLY_YN, \r\n"
  1017. " ADJS_SHTR_MISS_DECS_CYCL, \r\n"
  1018. " SMTH_LWST_SPED_FCTR, \r\n"
  1019. " SMTH_HGHS_SPED_FCTR, \r\n"
  1020. " SMTH_WGHT_AVRG_PRST, \r\n"
  1021. " SMTH_WGHT_AVRG_PRE_1CYCL, \r\n"
  1022. " SMTH_WGHT_AVRG_PRE_2CYCL \r\n"
  1023. " FROM TB_LINK_PARA_DETL \r\n"
  1024. " WHERE LINK_ID = :p01 \r\n";
  1025. ITSDb_SQLText(pADO, sQry);
  1026. ITSDb_SQLBind(pADO, "p01", ALinkId);
  1027. ITSDb_SQLOpen(pADO);
  1028. for( ; !pADO->Eof; pADO->Next())
  1029. {
  1030. SeVolMin->Value = pADO->FieldByName("FLTR_MIN_TFVL")->AsInteger;
  1031. SeVolMax->Value = pADO->FieldByName("FLTR_MAX_TFVL")->AsInteger;
  1032. SeSpdMin->Value = pADO->FieldByName("FLTR_LWST_SPED")->AsInteger;
  1033. SeSpdMax->Value = pADO->FieldByName("FLTR_HGHS_SPED")->AsInteger;
  1034. SeMCAVal1->Value = pADO->FieldByName("ADJS_WGHT_AVRG_PRE_1CYCL")->AsFloat * 100;
  1035. SeMCAVal2->Value = pADO->FieldByName("ADJS_WGHT_AVRG_PRE_2CYCL")->AsFloat * 100;
  1036. SeMCAVal3->Value = pADO->FieldByName("ADJS_WGHT_AVRG_PRE_3CYCL")->AsFloat * 100;
  1037. String sPtrnYn = pADO->FieldByName("ADJS_15M_PTRN_APLY_YN")->AsString;
  1038. Chk15MinPtrn->Checked = sPtrnYn == "N" ? false : true;
  1039. SeMissCycle->Value = pADO->FieldByName("ADJS_SHTR_MISS_DECS_CYCL")->AsInteger;
  1040. SeSMTValMin->Value = pADO->FieldByName("SMTH_LWST_SPED_FCTR")->AsFloat;// * 100;
  1041. SeSMTValMax->Value = pADO->FieldByName("SMTH_HGHS_SPED_FCTR")->AsFloat;// * 100;
  1042. SeSMTValC->Value = pADO->FieldByName("SMTH_WGHT_AVRG_PRST")->AsFloat * 100;
  1043. SeSMTVal1->Value = pADO->FieldByName("SMTH_WGHT_AVRG_PRE_1CYCL")->AsFloat * 100;
  1044. SeSMTVal2->Value = pADO->FieldByName("SMTH_WGHT_AVRG_PRE_2CYCL")->AsFloat * 100;
  1045. }
  1046. sQry = "SELECT FUSN_PRRT, \r\n"
  1047. " FUSN_WGHT, \r\n"
  1048. " CLCT_SYST_CD \r\n"
  1049. " FROM TB_LINK_PARA_CLCT_SYST \r\n"
  1050. " WHERE LINK_ID = :p01 \r\n";
  1051. ITSDb_SQLText(pADO, sQry);
  1052. ITSDb_SQLBind(pADO, "p01", ALinkId);
  1053. ITSDb_SQLOpen(pADO);
  1054. try
  1055. {
  1056. int ii, nIndx;
  1057. TcxGridDataController *pGDC = TvList0->DataController;
  1058. TvList0->BeginUpdate();
  1059. TvList3->BeginUpdate();
  1060. for( ; !pADO->Eof; pADO->Next())
  1061. {
  1062. String sCLCT_SYST_CD = pADO->FieldByName("CLCT_SYST_CD")->AsString;
  1063. int nFUSN_PRRT = pADO->FieldByName("FUSN_PRRT")->AsInteger;
  1064. double dFUSN_WGHT = pADO->FieldByName("FUSN_WGHT")->AsFloat * 100;
  1065. for(ii = 0; ii < pGDC->RecordCount; ii++)
  1066. {
  1067. String sCode = pGDC->Values[ii][ColumnD02->Index];
  1068. if (sCode == sCLCT_SYST_CD)
  1069. {
  1070. pGDC->Values[ii][ColumnD03->Index] = nFUSN_PRRT;
  1071. nIndx = pGDC->Values[ii][ColumnD04->Index];
  1072. TvList3->DataController->Values[nIndx][ColumnC03->Index] = dFUSN_WGHT;
  1073. break;
  1074. }
  1075. }
  1076. }
  1077. }
  1078. __finally
  1079. {
  1080. TvList0->EndUpdate();
  1081. TvList3->EndUpdate();
  1082. }
  1083. }
  1084. catch(EDatabaseError &E)
  1085. {
  1086. ITSDb_GetConnection()->RollbackTrans();
  1087. ShowMessage(String(E.ClassName()) + E.Message);
  1088. }
  1089. catch(Exception &exception)
  1090. {
  1091. ITSDb_GetConnection()->RollbackTrans();
  1092. ShowMessage(String(exception.ClassName()) + exception.Message);
  1093. }
  1094. catch(...)
  1095. {
  1096. ITSDb_GetConnection()->RollbackTrans();
  1097. ShowMessage("데이터 작업 중에 알수없는 DB 오류가 발생하였습니다.");
  1098. }
  1099. }
  1100. __finally
  1101. {
  1102. pADO->Close();
  1103. }
  1104. }
  1105. //---------------------------------------------------------------------------