IDB0051MF.cpp 56 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694
  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 "IDB0051MF.h"
  11. //---------------------------------------------------------------------------
  12. #pragma package(smart_init)
  13. #pragma link "cxButtons"
  14. #pragma link "cxCalc"
  15. #pragma link "cxCheckBox"
  16. #pragma link "cxClasses"
  17. #pragma link "cxContainer"
  18. #pragma link "cxControls"
  19. #pragma link "cxCustomData"
  20. #pragma link "cxData"
  21. #pragma link "cxDataStorage"
  22. #pragma link "cxDropDownEdit"
  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 "cxGroupBox"
  32. #pragma link "cxLabel"
  33. #pragma link "cxLookAndFeelPainters"
  34. #pragma link "cxLookAndFeels"
  35. #pragma link "cxMaskEdit"
  36. #pragma link "cxPC"
  37. #pragma link "cxPCdxBarPopupMenu"
  38. #pragma link "cxSpinEdit"
  39. #pragma link "cxSplitter"
  40. #pragma link "cxStyles"
  41. #pragma link "cxTextEdit"
  42. #pragma link "dxSkinBlack"
  43. #pragma link "dxSkinBlue"
  44. #pragma link "dxSkinsCore"
  45. #pragma link "dxSkinscxPCPainter"
  46. #pragma link "cxGridBandedTableView"
  47. #pragma resource "*.dfm"
  48. TIDB0051M *IDB0051M = NULL;
  49. //---------------------------------------------------------------------------
  50. __fastcall TIDB0051M::TIDB0051M(TComponent* Owner)
  51. : TForm(Owner)
  52. {
  53. LangTrans->Translate(this, ITSDb_GetConnection());
  54. ITSSkin_Load(this);
  55. CMM_LoadForm(g_sFormsDir, this);
  56. LoadLocalSkin();
  57. FTitle = Caption;//"가공파라미터 관리";
  58. TvList0->OptionsView->NoDataToDisplayInfoText = "";
  59. TvList3->OptionsView->NoDataToDisplayInfoText = "";
  60. MyParamManager = new TPrcsParamManager();
  61. FInit = false;
  62. }
  63. //---------------------------------------------------------------------------
  64. void __fastcall TIDB0051M::CommClose()
  65. {
  66. try
  67. {
  68. if (MyParamManager)
  69. {
  70. MyParamManager->FLists.RemoveAll();
  71. delete MyParamManager;
  72. MyParamManager = NULL;
  73. }
  74. CMM_SaveForm(g_sFormsDir, this);
  75. }
  76. catch(...)
  77. {
  78. }
  79. }
  80. //---------------------------------------------------------------------------
  81. void __fastcall TIDB0051M::FormShow(TObject *Sender)
  82. {
  83. Refresh();
  84. FormInit();
  85. TmrShow->Enabled = true;
  86. }
  87. //---------------------------------------------------------------------------
  88. void __fastcall TIDB0051M::FormInit()
  89. {
  90. ADOQry->Connection = ITSDb_GetConnection();
  91. InitCollectSysInfo();
  92. FormClear();
  93. ChangeButtonType(1);
  94. }
  95. //---------------------------------------------------------------------------
  96. void __fastcall TIDB0051M::LoadLocalSkin()
  97. {
  98. ImgDesc90->Visible = true;
  99. ImgDesc91->Visible = true;
  100. }
  101. //---------------------------------------------------------------------------
  102. void __fastcall TIDB0051M::InitCollectSysInfo()
  103. {
  104. CMM_ClearGridTableView(TvList0);
  105. CMM_ClearGridTableView(TvList3);
  106. TcxDataController *pGDC0 = TvList0->DataController;
  107. TcxDataController *pGDC3 = TvList3->DataController;
  108. int nRow0 = 0;
  109. int nRow2 = 0;
  110. int nRow3 = 0;
  111. FColSysCnt = 0;
  112. try
  113. {
  114. TvList0->BeginUpdate();
  115. TvList3->BeginUpdate();
  116. FOR_STL(TItsColSys*, pObj, ItsColSysManager->FLists)
  117. {
  118. if (pObj->USE_YN == "N") continue;
  119. nRow3 = pGDC3->AppendRecord();
  120. pGDC3->Values[nRow3][ColumnC01->Index] = pObj->CLCT_SYST_NM;
  121. pGDC3->Values[nRow3][ColumnC02->Index] = pObj->CLCT_SYST_CD;
  122. pGDC3->Values[nRow3][ColumnC03->Index] = 10;
  123. nRow0 = pGDC0->AppendRecord();
  124. pGDC0->Values[nRow0][ColumnD01->Index] = pObj->CLCT_SYST_NM;
  125. pGDC0->Values[nRow0][ColumnD02->Index] = pObj->CLCT_SYST_CD;
  126. pGDC0->Values[nRow0][ColumnD03->Index] = String(nRow0+1);
  127. pGDC0->Values[nRow0][ColumnD04->Index] = nRow0;
  128. FColSysCnt++;
  129. }
  130. }
  131. __finally
  132. {
  133. TvList0->EndUpdate();
  134. TvList3->EndUpdate();
  135. }
  136. TcxComboBoxProperties *pcxCboProperties10 = (TcxComboBoxProperties*)ColumnD03->Properties;
  137. pcxCboProperties10->Items->Clear();
  138. for (int ii = 0; ii < FColSysCnt; ii++)
  139. {
  140. pcxCboProperties10->Items->Add(String(ii+1));
  141. }
  142. pcxCboProperties10->Items->Add(lblNotUse->Caption);//"사용안함");
  143. }
  144. //---------------------------------------------------------------------------
  145. void __fastcall TIDB0051M::TmrShowTimer(TObject *Sender)
  146. {
  147. TmrShow->Enabled = false;
  148. BtnSearchClick((TObject*)BtnSearch);
  149. }
  150. //---------------------------------------------------------------------------
  151. void __fastcall TIDB0051M::BtnSearchClick(TObject *Sender)
  152. {
  153. FormClear();
  154. Application->ProcessMessages();
  155. TSqlCursor sqlCrs((TControl*)BtnSearch);
  156. RefreshData();
  157. CxList->SetFocus();
  158. ChangeButtonType(1);
  159. }
  160. //---------------------------------------------------------------------------
  161. void __fastcall TIDB0051M::RefreshData()
  162. {
  163. FInit = true;
  164. try
  165. {
  166. TvList->BeginUpdate();
  167. SelListData();
  168. }
  169. __finally
  170. {
  171. TvList->EndUpdate();
  172. }
  173. }
  174. //---------------------------------------------------------------------------
  175. void __fastcall TIDB0051M::BtnCloseClick(TObject *Sender)
  176. {
  177. Close();
  178. }
  179. //---------------------------------------------------------------------------
  180. void __fastcall TIDB0051M::FormClear()
  181. {
  182. JobType = enJobNone;
  183. EdParamId->Clear();
  184. EdParamName->Clear();
  185. ChkFMT1->Checked = true;
  186. ChkMCA1->Checked = true;
  187. ChkSMT1->Checked = true;
  188. ChkFST1->Checked = true;
  189. BtnFMTInitValClick(NULL);
  190. BtnMCAInitValClick(NULL);
  191. {
  192. SeSMTValMin->Value = 0.50;
  193. SeSMTValMax->Value = 2.00;
  194. }
  195. {
  196. SeSMTVal2->Value = 20;
  197. SeSMTVal1->Value = 30;
  198. SeSMTValC->Value = 50;
  199. }
  200. //EdParamId->Enabled = true;
  201. }
  202. //---------------------------------------------------------------------------
  203. void __fastcall TIDB0051M::ChangeButtonType(int nBtnType)
  204. {
  205. if (nBtnType == 1)
  206. {
  207. BtnSave->Visible = false;
  208. BtnCancel->Visible = false;
  209. BtnInsert->Visible = true;
  210. if (TvList->ViewData->RecordCount > 0)
  211. {
  212. BtnEdit->Visible = true;
  213. BtnDelete->Visible = true;
  214. }
  215. else
  216. {
  217. BtnEdit->Visible = false;
  218. BtnDelete->Visible = false;
  219. }
  220. BtnSearch->Enabled = true;
  221. CxList->Enabled = true;
  222. PnlEdit->Enabled = false;
  223. }
  224. else
  225. {
  226. BtnSave->Visible = true;
  227. BtnCancel->Visible = true;
  228. BtnInsert->Visible = false;
  229. BtnEdit->Visible = false;
  230. BtnDelete->Visible = false;
  231. BtnSearch->Enabled = false;
  232. CxList->Enabled = false;
  233. PnlEdit->Enabled = true;
  234. }
  235. }
  236. //---------------------------------------------------------------------------
  237. void __fastcall TIDB0051M::FormClose(TObject *Sender, TCloseAction &Action)
  238. {
  239. CommClose();
  240. IDB0051M = NULL;
  241. Action = caFree;
  242. }
  243. //---------------------------------------------------------------------------
  244. void __fastcall TIDB0051M::ChkFMT0Click(TObject *Sender)
  245. {
  246. ChkFMT1->Checked = !ChkFMT0->Checked;
  247. ChangeFMT(ChkFMT1->Checked);
  248. if (ChkFMT0->Checked)
  249. BtnFMTInitVal->Enabled = false;
  250. else
  251. BtnFMTInitVal->Enabled = true;
  252. }
  253. //---------------------------------------------------------------------------
  254. void __fastcall TIDB0051M::ChkFMT1Click(TObject *Sender)
  255. {
  256. ChkFMT0->Checked = !ChkFMT1->Checked;
  257. ChangeFMT(ChkFMT1->Checked);
  258. if (ChkFMT0->Checked)
  259. BtnFMTInitVal->Enabled = false;
  260. else
  261. BtnFMTInitVal->Enabled = true;
  262. }
  263. //---------------------------------------------------------------------------
  264. void __fastcall TIDB0051M::ChangeFMT(bool AUse)
  265. {
  266. if (AUse)
  267. {
  268. GrpFMT1->Color = clSkyBlue;
  269. GrpFMT1->Enabled = true;
  270. }
  271. else
  272. {
  273. GrpFMT1->Color = clSilver;
  274. GrpFMT1->Enabled = false;
  275. }
  276. }
  277. //---------------------------------------------------------------------------
  278. void __fastcall TIDB0051M::ChkFST1Click(TObject *Sender)
  279. {
  280. TNotifyEvent OnClickEvent1 = ChkFST1->OnClick;
  281. TNotifyEvent OnClickEvent2 = ChkFST2->OnClick;
  282. TNotifyEvent OnClickEvent3 = ChkFST3->OnClick;
  283. try
  284. {
  285. ChkFST1->OnClick = NULL;
  286. ChkFST2->OnClick = NULL;
  287. ChkFST3->OnClick = NULL;
  288. if (ChkFST1->Checked == true)
  289. {
  290. ChkFST2->Checked = false;
  291. ChkFST3->Checked = false;
  292. }
  293. else
  294. if (ChkFST1->Checked == false)
  295. {
  296. ChkFST2->Checked = true;
  297. ChkFST3->Checked = false;
  298. }
  299. ChangeFST(false);
  300. }
  301. __finally
  302. {
  303. ChkFST1->OnClick = OnClickEvent1;
  304. ChkFST2->OnClick = OnClickEvent2;
  305. ChkFST3->OnClick = OnClickEvent3;
  306. }
  307. }
  308. //---------------------------------------------------------------------------
  309. void __fastcall TIDB0051M::ChkFST2Click(TObject *Sender)
  310. {
  311. TNotifyEvent OnClickEvent1 = ChkFST1->OnClick;
  312. TNotifyEvent OnClickEvent2 = ChkFST2->OnClick;
  313. TNotifyEvent OnClickEvent3 = ChkFST3->OnClick;
  314. try
  315. {
  316. ChkFST1->OnClick = NULL;
  317. ChkFST2->OnClick = NULL;
  318. ChkFST3->OnClick = NULL;
  319. if (ChkFST2->Checked == true)
  320. {
  321. ChkFST1->Checked = false;
  322. ChkFST3->Checked = false;
  323. }
  324. else
  325. if (ChkFST2->Checked == false)
  326. {
  327. ChkFST1->Checked = true;
  328. ChkFST3->Checked = false;
  329. }
  330. ChangeFST(false);
  331. }
  332. __finally
  333. {
  334. ChkFST1->OnClick = OnClickEvent1;
  335. ChkFST2->OnClick = OnClickEvent2;
  336. ChkFST3->OnClick = OnClickEvent3;
  337. }
  338. }
  339. //---------------------------------------------------------------------------
  340. void __fastcall TIDB0051M::ChkFST3Click(TObject *Sender)
  341. {
  342. TNotifyEvent OnClickEvent1 = ChkFST1->OnClick;
  343. TNotifyEvent OnClickEvent2 = ChkFST2->OnClick;
  344. TNotifyEvent OnClickEvent3 = ChkFST3->OnClick;
  345. try
  346. {
  347. ChkFST1->OnClick = NULL;
  348. ChkFST2->OnClick = NULL;
  349. ChkFST3->OnClick = NULL;
  350. if (ChkFST3->Checked == true)
  351. {
  352. ChkFST1->Checked = false;
  353. ChkFST2->Checked = false;
  354. }
  355. else
  356. if (ChkFST3->Checked == false)
  357. {
  358. ChkFST1->Checked = true;
  359. ChkFST2->Checked = false;
  360. }
  361. ChangeFST(false);
  362. }
  363. __finally
  364. {
  365. ChkFST1->OnClick = OnClickEvent1;
  366. ChkFST2->OnClick = OnClickEvent2;
  367. ChkFST3->OnClick = OnClickEvent3;
  368. }
  369. }
  370. //---------------------------------------------------------------------------
  371. void __fastcall TIDB0051M::ChangeFST(bool AUse)
  372. {
  373. if (ChkFST1->Checked)
  374. {
  375. GrpFST1->Color = clSkyBlue;
  376. GrpFST1->Enabled = true;
  377. GrpFST2->Color = clSilver;
  378. GrpFST2->Enabled = false;
  379. }
  380. else
  381. if (ChkFST2->Checked)
  382. {
  383. GrpFST1->Color = clSilver;
  384. GrpFST1->Enabled = false;
  385. GrpFST2->Color = clSkyBlue;
  386. GrpFST2->Enabled = true;
  387. }
  388. else
  389. if (ChkFST3->Checked)
  390. {
  391. GrpFST1->Color = clSilver;
  392. GrpFST1->Enabled = false;
  393. GrpFST2->Color = clSilver;
  394. GrpFST2->Enabled = false;
  395. }
  396. }
  397. //---------------------------------------------------------------------------
  398. void __fastcall TIDB0051M::ChkMCA0Click(TObject *Sender)
  399. {
  400. //사용안함
  401. if (ChkMCA0->Checked == false)
  402. ChkMCA0->Checked = true;
  403. else
  404. ChangeMCA(0);
  405. if (ChkMCA1->Checked)
  406. BtnMCAInitVal->Enabled = true;
  407. else
  408. BtnMCAInitVal->Enabled = false;
  409. }
  410. //---------------------------------------------------------------------------
  411. void __fastcall TIDB0051M::ChkMCA2Click(TObject *Sender)
  412. {
  413. //패턴적용
  414. if (ChkMCA2->Checked == false)
  415. ChkMCA2->Checked = true;
  416. else
  417. ChangeMCA(2);
  418. if (ChkMCA1->Checked)
  419. BtnMCAInitVal->Enabled = true;
  420. else
  421. BtnMCAInitVal->Enabled = false;
  422. }
  423. //---------------------------------------------------------------------------
  424. void __fastcall TIDB0051M::ChkMCA1Click(TObject *Sender)
  425. {
  426. //단기(15분이동평균)/장기(패턴)
  427. if (ChkMCA1->Checked == false)
  428. ChkMCA1->Checked = true;
  429. else
  430. ChangeMCA(1);
  431. if (ChkMCA1->Checked)
  432. BtnMCAInitVal->Enabled = true;
  433. else
  434. BtnMCAInitVal->Enabled = false;
  435. }
  436. //---------------------------------------------------------------------------
  437. void __fastcall TIDB0051M::ChangeMCA(int AType)
  438. {
  439. TNotifyEvent OnChkMCA0 = ChkMCA0->OnClick;
  440. TNotifyEvent OnChkMCA1 = ChkMCA1->OnClick;
  441. TNotifyEvent OnChkMCA2 = ChkMCA2->OnClick;
  442. ChkMCA0->OnClick = NULL;
  443. ChkMCA1->OnClick = NULL;
  444. ChkMCA2->OnClick = NULL;
  445. if (AType == 1)
  446. {
  447. GrpMCA1->Color = clSkyBlue;
  448. GrpMCA1->Enabled = true;
  449. ChkMCA0->Checked = false;
  450. ChkMCA2->Checked = false;
  451. }
  452. else
  453. {
  454. GrpMCA1->Color = clSilver;
  455. GrpMCA1->Enabled = false;
  456. if (AType == 0)
  457. {
  458. ChkMCA1->Checked = false;
  459. ChkMCA2->Checked = false;
  460. }
  461. else
  462. {
  463. ChkMCA0->Checked = false;
  464. ChkMCA1->Checked = false;
  465. }
  466. }
  467. ChkMCA0->OnClick = OnChkMCA0;
  468. ChkMCA1->OnClick = OnChkMCA1;
  469. ChkMCA2->OnClick = OnChkMCA2;
  470. }
  471. //---------------------------------------------------------------------------
  472. void __fastcall TIDB0051M::ChkSMT0Click(TObject *Sender)
  473. {
  474. //사용안함
  475. if (ChkSMT0->Checked == false)
  476. ChkSMT0->Checked = true;
  477. else
  478. ChangeSMT(0);
  479. if (ChkSMT0->Checked)
  480. BtnSMTIintVal->Enabled = false;
  481. else
  482. BtnSMTIintVal->Enabled = true;
  483. }
  484. //---------------------------------------------------------------------------
  485. void __fastcall TIDB0051M::ChkSMT1Click(TObject *Sender)
  486. {
  487. //범위값 사용
  488. if (ChkSMT1->Checked == false)
  489. ChkSMT1->Checked = true;
  490. else
  491. ChangeSMT(1);
  492. if (ChkSMT0->Checked)
  493. BtnSMTIintVal->Enabled = false;
  494. else
  495. BtnSMTIintVal->Enabled = true;
  496. }
  497. //---------------------------------------------------------------------------
  498. void __fastcall TIDB0051M::ChkSMT2Click(TObject *Sender)
  499. {
  500. //15분 이동평균
  501. if (ChkSMT2->Checked == false)
  502. ChkSMT2->Checked = true;
  503. else
  504. ChangeSMT(2);
  505. if (ChkSMT0->Checked)
  506. BtnSMTIintVal->Enabled = false;
  507. else
  508. BtnSMTIintVal->Enabled = true;
  509. }
  510. //---------------------------------------------------------------------------
  511. void __fastcall TIDB0051M::ChangeSMT(int AType)
  512. {
  513. TNotifyEvent OnChkSMT0 = ChkSMT0->OnClick;
  514. TNotifyEvent OnChkSMT1 = ChkSMT1->OnClick;
  515. TNotifyEvent OnChkSMT2 = ChkSMT2->OnClick;
  516. ChkSMT0->OnClick = NULL;
  517. ChkSMT1->OnClick = NULL;
  518. ChkSMT2->OnClick = NULL;
  519. if (AType == 0)
  520. {
  521. GrpSMT1->Color = clSilver;
  522. GrpSMT1->Enabled = false;
  523. GrpSMT2->Color = clSilver;
  524. GrpSMT2->Enabled = false;
  525. ChkSMT1->Checked = false;
  526. ChkSMT2->Checked = false;
  527. }
  528. else
  529. if (AType == 1)
  530. {
  531. GrpSMT1->Color = clSkyBlue;
  532. GrpSMT1->Enabled = true;
  533. GrpSMT2->Color = clSilver;
  534. GrpSMT2->Enabled = false;
  535. ChkSMT0->Checked = false;
  536. ChkSMT2->Checked = false;
  537. //BtnSMTIintVal->Hint = "평활화 파라미터(편차제한) 초기값";
  538. }
  539. else
  540. {
  541. GrpSMT1->Color = clSilver;
  542. GrpSMT1->Enabled = false;
  543. GrpSMT2->Color = clSkyBlue;
  544. GrpSMT2->Enabled = true;
  545. ChkSMT0->Checked = false;
  546. ChkSMT1->Checked = false;
  547. //BtnSMTIintVal->Hint = "평활화 파라미터(15분 이동평균) 초기값";
  548. }
  549. ChkSMT0->OnClick = OnChkSMT0;
  550. ChkSMT1->OnClick = OnChkSMT1;
  551. ChkSMT2->OnClick = OnChkSMT2;
  552. }
  553. //---------------------------------------------------------------------------
  554. bool __fastcall TIDB0051M::CheckParameterValue()
  555. {
  556. //필터링 파라미터
  557. FFMTVolMin = FFMTVolMax = FFMTSpdMin = FFMTSpdMax = 0;
  558. FFMTVolMin = SeVolMin->Value;
  559. FFMTVolMax = SeVolMax->Value;
  560. FFMTSpdMin = SeSpdMin->Value;
  561. FFMTSpdMax = SeSpdMax->Value;
  562. if (ChkFMT0->Checked)
  563. {
  564. FFMT = "FMT0"; //사용안함
  565. }
  566. else
  567. if (ChkFMT1->Checked)
  568. {
  569. FFMT = "FMT1"; //범위값사용
  570. FFMTVolMin = SeVolMin->Value;
  571. FFMTVolMax = SeVolMax->Value;
  572. FFMTSpdMin = SeSpdMin->Value;
  573. FFMTSpdMax = SeSpdMax->Value;
  574. if (FFMTVolMin >= FFMTVolMax)
  575. {
  576. Application->MessageBox(lblText1->Caption.c_str(),//L"필터링 파라미터 - 범위값 사용.\r\n교통량 최저값은 교통량 최대값 미만이어야 합니다.",
  577. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  578. return false;
  579. }
  580. if (FFMTSpdMin >= FFMTSpdMax)
  581. {
  582. Application->MessageBox(lblText2->Caption.c_str(),//L"필터링 파라미터 - 범위값 사용.\r\n속도 최저값은 속도 최대값 미만이어야 합니다.",
  583. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  584. return false;
  585. }
  586. } else return false;
  587. //퓨전 파라미터
  588. if (ChkFST1->Checked)
  589. {
  590. FFST = "FST1"; //우선순위
  591. #if 0
  592. if (TvList2->DataController->RecordCount == 0)
  593. {
  594. Application->MessageBox(lblText3->Caption.c_str(),//L"퓨전 파라미터 - 우선순위.\r\n우선순위 항목을 선택하셔야 합니다.",
  595. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  596. return false;
  597. }
  598. #else
  599. int ii;
  600. int nSeq = 0;
  601. int nTot = 0;
  602. int nItem= 0;
  603. bool bSet[100];
  604. for (ii = 0; ii < 100; ii++)
  605. bSet[ii] = false;
  606. bool bDupFail = false;
  607. try
  608. {
  609. TcxGridDataController *pGDC = TvList0->DataController;
  610. TvList0->BeginUpdate();
  611. for(ii = 0; ii < pGDC->RecordCount; ii++)
  612. {
  613. String sPri = VarToStr(pGDC->Values[ii][ColumnD03->Index]);
  614. if (sPri == lblNotUse->Caption)//"사용안함")
  615. continue;
  616. int nTmp = StrToIntDef(sPri, 1);
  617. #if 1
  618. if (bSet[nTmp])
  619. {
  620. bDupFail = true;
  621. break;
  622. }
  623. else
  624. {
  625. bSet[nTmp] = true;
  626. }
  627. #else
  628. nSeq += nTmp;
  629. nTot += (nItem+1);
  630. nItem++;
  631. #endif
  632. }
  633. }
  634. __finally
  635. {
  636. TvList0->EndUpdate();
  637. }
  638. #if 1
  639. if (bDupFail)
  640. #else
  641. if (nSeq != nTot)
  642. #endif
  643. {
  644. Application->MessageBox(lblText4->Caption.c_str(),//L"퓨전 파라미터 - 우선순위.\r\n우선순위는 순서에 맞게 각자 다른값을 가져야 합니다.",
  645. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  646. return false;
  647. }
  648. #endif
  649. }
  650. else
  651. if (ChkFST2->Checked)
  652. {
  653. FFST = "FST2"; //가중치
  654. int dFST = 0;
  655. try
  656. {
  657. TcxGridDataController *pGDC = TvList3->DataController;
  658. TvList3->BeginUpdate();
  659. for(int ii = 0; ii < pGDC->RecordCount; ii++)
  660. {
  661. int fTmp = pGDC->Values[ii][ColumnC03->Index];
  662. dFST += fTmp;
  663. }
  664. }
  665. __finally
  666. {
  667. TvList3->EndUpdate();
  668. }
  669. if (dFST != 100)
  670. {
  671. Application->MessageBox(lblText5->Caption.c_str(),//L"퓨전 파라미터 - 가중치.\r\n가중치의 전체합은 100 이어야 합니다.",
  672. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  673. return false;
  674. }
  675. }
  676. else
  677. if (ChkFST3->Checked)
  678. {
  679. FFST = "FST3"; //최대값적용
  680. } else return false;
  681. //보정 파라미터
  682. FMCAVal3 = FMCAVal2 = FMCAVal1 = 0;
  683. FMCAVal3 = SeMCAVal3->Value;
  684. FMCAVal2 = SeMCAVal2->Value;
  685. FMCAVal1 = SeMCAVal1->Value;
  686. F15MinPtrn = Chk15MinPtrn->Checked ? "Y" : "N";
  687. FMissCycle = SeMissCycle->Value;
  688. if (ChkMCA0->Checked)
  689. {
  690. FMCA = "MCA0"; //사용안함
  691. }
  692. else
  693. if (ChkMCA1->Checked)
  694. {
  695. FMCA = "MCA1"; //단기(15분이동평균)/장기(패턴)
  696. FMCAVal3 = SeMCAVal3->Value;
  697. FMCAVal2 = SeMCAVal2->Value;
  698. FMCAVal1 = SeMCAVal1->Value;
  699. int nTotVal = (FMCAVal3+FMCAVal2+FMCAVal1);
  700. if (nTotVal != 100)
  701. {
  702. Application->MessageBox(lblText6->Caption.c_str(),//L"보정 파라미터 - 단기(15분이동평균)/장기(패턴).\r\n평균 가중치의 전체합은 100 이어야 합니다.",
  703. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  704. return false;
  705. }
  706. }
  707. else
  708. if (ChkMCA2->Checked)
  709. {
  710. FMCA = "MCA2"; //패턴적용
  711. } else return false;
  712. //평활화 파라미터
  713. FSMTSpdMin = FSMTSpdMax = FSMTVal2 = FSMTVal1 = FSMTValC = 0;
  714. //기본값으로 디비 저장하기 위해
  715. FSMTSpdMin = SeSMTValMin->Value;
  716. FSMTSpdMax = SeSMTValMax->Value;
  717. FSMTVal2 = SeSMTVal2->Value;
  718. FSMTVal1 = SeSMTVal1->Value;
  719. FSMTValC = SeSMTValC->Value;
  720. if (ChkSMT0->Checked)
  721. {
  722. FSMT = "SMT0"; //사용안함
  723. }
  724. else
  725. if (ChkSMT1->Checked)
  726. {
  727. FSMT = "SMT1"; //패턴적용
  728. FSMTSpdMin = SeSMTValMin->Value;
  729. FSMTSpdMax = SeSMTValMax->Value;
  730. if (FSMTSpdMin >= FSMTSpdMax)
  731. {
  732. Application->MessageBox(lblText7->Caption.c_str(),//L"평활화 파라미터 - 편차제한.\r\n최저속도계수값은 최대속도계수값 미만이어야 합니다.",
  733. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  734. return false;
  735. }
  736. }
  737. else
  738. if (ChkSMT2->Checked)
  739. {
  740. FSMT = "SMT2"; //15분 이동평균
  741. FSMTVal2 = SeSMTVal2->Value;
  742. FSMTVal1 = SeSMTVal1->Value;
  743. FSMTValC = SeSMTValC->Value;
  744. int nTotVal = (FSMTVal2+FSMTVal1+FSMTValC);
  745. if (nTotVal != 100)
  746. {
  747. Application->MessageBox(lblText8->Caption.c_str(),//L"평활화 파라미터 - 15분 이동평균.\r\n15분 이동평균값 가중치의 전체합은 100 이어야 합니다.",
  748. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  749. return false;
  750. }
  751. } else return false;
  752. return true;
  753. }
  754. //---------------------------------------------------------------------------
  755. bool __fastcall TIDB0051M::MergeData(String PARA_ID, String PARA_NM)
  756. {
  757. String sQry;
  758. TADOQuery *pADO = NULL;
  759. try
  760. {
  761. try
  762. {
  763. pADO = new TADOQuery(NULL);
  764. pADO->Close();
  765. pADO->Connection = ITSDb_GetConnection();
  766. ITSDb_GetConnection()->BeginTrans();
  767. // TB_LINK_PARA_STUP
  768. sQry = "MERGE INTO TB_LINK_PARA_STUP L \r\n"
  769. "USING (SELECT :p01 AS FLTR_MTHD_CD, \r\n"
  770. " :p02 AS FUSN_MTHD_CD, \r\n"
  771. " :p03 AS ADJS_MTHD_CD, \r\n"
  772. " :p04 AS SMTH_MTHD_CD, \r\n"
  773. " :p05 AS PARA_NM, \r\n"
  774. " :P06 AS PARA_ID \r\n"
  775. " FROM DUAL ) M \r\n"
  776. " ON (L.PARA_ID = M.PARA_ID) \r\n"
  777. " WHEN MATCHED THEN \r\n"
  778. " UPDATE SET L.FLTR_MTHD_CD = M.FLTR_MTHD_CD, \r\n"
  779. " L.FUSN_MTHD_CD = M.FUSN_MTHD_CD, \r\n"
  780. " L.ADJS_MTHD_CD = M.ADJS_MTHD_CD, \r\n"
  781. " L.SMTH_MTHD_CD = M.SMTH_MTHD_CD, \r\n"
  782. " L.PARA_NM = M.PARA_NM \r\n"
  783. " WHEN NOT MATCHED THEN \r\n"
  784. " INSERT (L.PARA_ID, \r\n"
  785. " L.FLTR_MTHD_CD, L.FUSN_MTHD_CD, \r\n"
  786. " L.ADJS_MTHD_CD, L.SMTH_MTHD_CD, \r\n"
  787. " L.PARA_NM) \r\n"
  788. " VALUES (M.PARA_ID, \r\n"
  789. " M.FLTR_MTHD_CD, M.FUSN_MTHD_CD, \r\n"
  790. " M.ADJS_MTHD_CD, M.SMTH_MTHD_CD, \r\n"
  791. " M.PARA_NM) \r\n";
  792. pADO->SQL->Text = sQry;
  793. pADO->Parameters->ParamByName("p01")->Value = FFMT;
  794. pADO->Parameters->ParamByName("p02")->Value = FFST;
  795. pADO->Parameters->ParamByName("p03")->Value = FMCA;
  796. pADO->Parameters->ParamByName("p04")->Value = FSMT;
  797. pADO->Parameters->ParamByName("p05")->Value = PARA_NM;
  798. pADO->Parameters->ParamByName("P06")->Value = PARA_ID;
  799. pADO->ExecSQL();
  800. sQry = "MERGE INTO TB_LINK_PARA_DETL L \r\n"
  801. "USING (SELECT :p01 AS FLTR_MIN_TFVL, \r\n"
  802. " :p02 AS FLTR_MAX_TFVL, \r\n"
  803. " :p03 AS FLTR_LWST_SPED, \r\n"
  804. " :p04 AS FLTR_HGHS_SPED, \r\n"
  805. " :p05 AS ADJS_WGHT_AVRG_PRE_1CYCL, \r\n"
  806. " :p06 AS ADJS_WGHT_AVRG_PRE_2CYCL, \r\n"
  807. " :p07 AS ADJS_WGHT_AVRG_PRE_3CYCL, \r\n"
  808. " :p08 AS ADJS_15M_PTRN_APLY_YN, \r\n"
  809. " :p09 AS ADJS_SHTR_MISS_DECS_CYCL, \r\n"
  810. " :p10 AS SMTH_LWST_SPED_FCTR, \r\n"
  811. " :p11 AS SMTH_HGHS_SPED_FCTR, \r\n"
  812. " :p12 AS SMTH_WGHT_AVRG_PRST, \r\n"
  813. " :p13 AS SMTH_WGHT_AVRG_PRE_1CYCL, \r\n"
  814. " :p14 AS SMTH_WGHT_AVRG_PRE_2CYCL, \r\n"
  815. " :p15 AS PARA_ID \r\n"
  816. " FROM DUAL ) M \r\n"
  817. " ON (L.PARA_ID = M.PARA_ID) \r\n"
  818. " WHEN MATCHED THEN \r\n"
  819. " UPDATE \r\n"
  820. " SET L.FLTR_MIN_TFVL = M.FLTR_MIN_TFVL, \r\n"
  821. " L.FLTR_MAX_TFVL = M.FLTR_MAX_TFVL, \r\n"
  822. " L.FLTR_LWST_SPED = M.FLTR_LWST_SPED, \r\n"
  823. " L.FLTR_HGHS_SPED = M.FLTR_HGHS_SPED, \r\n"
  824. " L.ADJS_WGHT_AVRG_PRE_1CYCL = M.ADJS_WGHT_AVRG_PRE_1CYCL, \r\n"
  825. " L.ADJS_WGHT_AVRG_PRE_2CYCL = M.ADJS_WGHT_AVRG_PRE_2CYCL, \r\n"
  826. " L.ADJS_WGHT_AVRG_PRE_3CYCL = M.ADJS_WGHT_AVRG_PRE_3CYCL, \r\n"
  827. " L.ADJS_15M_PTRN_APLY_YN = M.ADJS_15M_PTRN_APLY_YN, \r\n"
  828. " L.ADJS_SHTR_MISS_DECS_CYCL = M.ADJS_SHTR_MISS_DECS_CYCL, \r\n"
  829. " L.SMTH_LWST_SPED_FCTR = M.SMTH_LWST_SPED_FCTR, \r\n"
  830. " L.SMTH_HGHS_SPED_FCTR = M.SMTH_HGHS_SPED_FCTR, \r\n"
  831. " L.SMTH_WGHT_AVRG_PRST = M.SMTH_WGHT_AVRG_PRST, \r\n"
  832. " L.SMTH_WGHT_AVRG_PRE_1CYCL = M.SMTH_WGHT_AVRG_PRE_1CYCL, \r\n"
  833. " L.SMTH_WGHT_AVRG_PRE_2CYCL = M.SMTH_WGHT_AVRG_PRE_2CYCL \r\n"
  834. " WHEN NOT MATCHED THEN \r\n"
  835. " INSERT ( L.PARA_ID , \r\n"
  836. " L.FLTR_MIN_TFVL , \r\n"
  837. " L.FLTR_MAX_TFVL , \r\n"
  838. " L.FLTR_LWST_SPED , \r\n"
  839. " L.FLTR_HGHS_SPED , \r\n"
  840. " L.ADJS_WGHT_AVRG_PRE_1CYCL, \r\n"
  841. " L.ADJS_WGHT_AVRG_PRE_2CYCL, \r\n"
  842. " L.ADJS_WGHT_AVRG_PRE_3CYCL, \r\n"
  843. " L.ADJS_15M_PTRN_APLY_YN , \r\n"
  844. " L.ADJS_SHTR_MISS_DECS_CYCL, \r\n"
  845. " L.SMTH_LWST_SPED_FCTR , \r\n"
  846. " L.SMTH_HGHS_SPED_FCTR , \r\n"
  847. " L.SMTH_WGHT_AVRG_PRST , \r\n"
  848. " L.SMTH_WGHT_AVRG_PRE_1CYCL, \r\n"
  849. " L.SMTH_WGHT_AVRG_PRE_2CYCL ) \r\n"
  850. " VALUES ( M.PARA_ID , \r\n"
  851. " M.FLTR_MIN_TFVL , \r\n"
  852. " M.FLTR_MAX_TFVL , \r\n"
  853. " M.FLTR_LWST_SPED , \r\n"
  854. " M.FLTR_HGHS_SPED , \r\n"
  855. " M.ADJS_WGHT_AVRG_PRE_1CYCL, \r\n"
  856. " M.ADJS_WGHT_AVRG_PRE_2CYCL, \r\n"
  857. " M.ADJS_WGHT_AVRG_PRE_3CYCL, \r\n"
  858. " M.ADJS_15M_PTRN_APLY_YN , \r\n"
  859. " M.ADJS_SHTR_MISS_DECS_CYCL, \r\n"
  860. " M.SMTH_LWST_SPED_FCTR , \r\n"
  861. " M.SMTH_HGHS_SPED_FCTR , \r\n"
  862. " M.SMTH_WGHT_AVRG_PRST , \r\n"
  863. " M.SMTH_WGHT_AVRG_PRE_1CYCL, \r\n"
  864. " M.SMTH_WGHT_AVRG_PRE_2CYCL ) \r\n";
  865. pADO->SQL->Text = sQry;
  866. pADO->Parameters->ParamByName("p01")->Value = FFMTVolMin;
  867. pADO->Parameters->ParamByName("p02")->Value = FFMTVolMax;
  868. pADO->Parameters->ParamByName("p03")->Value = FFMTSpdMin;
  869. pADO->Parameters->ParamByName("p04")->Value = FFMTSpdMax;
  870. pADO->Parameters->ParamByName("p05")->Value = FMCAVal1/100.;
  871. pADO->Parameters->ParamByName("p06")->Value = FMCAVal2/100.;
  872. pADO->Parameters->ParamByName("p07")->Value = FMCAVal3/100.;
  873. pADO->Parameters->ParamByName("p08")->Value = F15MinPtrn;
  874. pADO->Parameters->ParamByName("p09")->Value = FMissCycle;
  875. pADO->Parameters->ParamByName("p10")->Value = FSMTSpdMin/1.;
  876. pADO->Parameters->ParamByName("p11")->Value = FSMTSpdMax/1.;
  877. pADO->Parameters->ParamByName("p12")->Value = FSMTValC/100.;
  878. pADO->Parameters->ParamByName("p13")->Value = FSMTVal1/100.;
  879. pADO->Parameters->ParamByName("p14")->Value = FSMTVal2/100.;
  880. pADO->Parameters->ParamByName("p15")->Value = PARA_ID;
  881. pADO->ExecSQL();
  882. sQry = "DELETE TB_LINK_PARA_CLCT_SYST \r\n"
  883. " WHERE PARA_ID = :p01 \r\n";
  884. pADO->SQL->Text = sQry;
  885. pADO->Parameters->ParamByName("p01")->Value = PARA_ID;
  886. pADO->ExecSQL();
  887. sQry = "INSERT INTO TB_LINK_PARA_CLCT_SYST \r\n"
  888. " (PARA_ID, CLCT_SYST_CD, FUSN_PRRT, FUSN_WGHT) \r\n"
  889. "VALUES(:p04, :p01, :p02, :p03 ) \r\n";
  890. pADO->SQL->Text = sQry;
  891. try
  892. {
  893. int ii, jj;
  894. TcxGridDataController *pGDC0 = TvList0->DataController;
  895. TcxGridDataController *pGDC3 = TvList3->DataController;
  896. TvList0->BeginUpdate();
  897. TvList3->BeginUpdate();
  898. if (FFST == "FST1") // 우선순위
  899. {
  900. for(ii = 0; ii < pGDC0->RecordCount; ii++)
  901. {
  902. String sPrrt = pGDC0->Values[ii][ColumnD03->Index];
  903. if (sPrrt == lblNotUse->Caption) continue;
  904. String sClctCd = pGDC0->Values[ii][ColumnD02->Index];
  905. int nPrrt = sPrrt.ToIntDef(1);
  906. int nWigt = 0;
  907. for(jj = 0; jj < pGDC3->RecordCount; jj++)
  908. {
  909. if (sClctCd == VarToStr(pGDC3->Values[jj][ColumnC02->Index]))
  910. {
  911. nWigt = pGDC3->Values[jj][ColumnC03->Index];
  912. break;
  913. }
  914. }
  915. double dWeight = nWigt/100.;
  916. pADO->Parameters->ParamByName("p01")->Value = sClctCd;
  917. pADO->Parameters->ParamByName("p02")->Value = nPrrt;
  918. pADO->Parameters->ParamByName("p03")->Value = dWeight;
  919. pADO->Parameters->ParamByName("p04")->Value = PARA_ID;
  920. pADO->ExecSQL();
  921. }
  922. }
  923. else
  924. if (FFST == "FST2") // 가중치
  925. {
  926. for(ii = 0; ii < pGDC3->RecordCount; ii++)
  927. {
  928. int nWigt = 0;
  929. nWigt = pGDC3->Values[ii][ColumnC03->Index];
  930. if (nWigt == 0) continue;
  931. String sClctCd = pGDC3->Values[ii][ColumnC02->Index];
  932. String sPrrt = "1";
  933. int nPrrt = sPrrt.ToIntDef(1);
  934. for(jj = 0; jj < pGDC0->RecordCount; jj++)
  935. {
  936. if (sClctCd == VarToStr(pGDC0->Values[jj][ColumnD02->Index]))
  937. {
  938. sPrrt = pGDC0->Values[jj][ColumnD03->Index];
  939. if (sPrrt == lblNotUse->Caption) sPrrt = "1";
  940. nPrrt = sPrrt.ToIntDef(1);
  941. break;
  942. }
  943. }
  944. double dWeight = nWigt/100.;
  945. pADO->Parameters->ParamByName("p01")->Value = sClctCd;
  946. pADO->Parameters->ParamByName("p02")->Value = nPrrt;
  947. pADO->Parameters->ParamByName("p03")->Value = dWeight;
  948. pADO->Parameters->ParamByName("p04")->Value = PARA_ID;
  949. pADO->ExecSQL();
  950. }
  951. }
  952. }
  953. __finally
  954. {
  955. TvList0->EndUpdate();
  956. TvList3->EndUpdate();
  957. }
  958. ITSDb_GetConnection()->CommitTrans();
  959. Application->MessageBox(lblText9->Caption.c_str(),//L"파라미터 정보를 설정 하였습니다.",
  960. FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  961. }
  962. catch(EDatabaseError &E)
  963. {
  964. ITSDb_GetConnection()->RollbackTrans();
  965. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  966. DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQry);
  967. throw Exception(String(E.ClassName()) + E.Message);
  968. }
  969. catch(Exception &e)
  970. {
  971. ITSDb_GetConnection()->RollbackTrans();
  972. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  973. DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQry);
  974. throw Exception(String(e.ClassName()) + e.Message);
  975. }
  976. }
  977. __finally
  978. {
  979. if (pADO)
  980. {
  981. pADO->Close();
  982. delete pADO;
  983. }
  984. }
  985. return true;
  986. }
  987. //---------------------------------------------------------------------------
  988. void __fastcall TIDB0051M::SelListData()
  989. {
  990. TSqlCursor sqlCursor;
  991. Application->ProcessMessages();
  992. MyParamManager->LoadFromDb();
  993. CMM_ClearGridTableView(TvList);
  994. int nRow;
  995. TcxDataController* pGDC = TvList->DataController;
  996. try
  997. {
  998. TvList->BeginUpdate();
  999. FOR_STL(TPrcsParam*, pObj, MyParamManager->FLists)
  1000. {
  1001. if (pObj->DEL_YN != "N") continue;
  1002. nRow = pGDC->AppendRecord();
  1003. pGDC->Values[nRow][Column10->Index] = pObj->PARA_ID;
  1004. pGDC->Values[nRow][Column11->Index] = pObj->PARA_NM;
  1005. if (pObj->FLTR_MTHD_CD == "FMT0") pGDC->Values[nRow][Column20->Index] = ChkFMT0->Caption;
  1006. else
  1007. if (pObj->FLTR_MTHD_CD == "FMT1")
  1008. {
  1009. pGDC->Values[nRow][Column20->Index] = ChkFMT1->Caption;
  1010. pGDC->Values[nRow][Column21->Index] = pObj->FLTR_MIN_TFVL;
  1011. pGDC->Values[nRow][Column22->Index] = pObj->FLTR_MAX_TFVL;
  1012. pGDC->Values[nRow][Column23->Index] = pObj->FLTR_LWST_SPED;
  1013. pGDC->Values[nRow][Column24->Index] = pObj->FLTR_HGHS_SPED;
  1014. }
  1015. if (pObj->FUSN_MTHD_CD == "FST1") pGDC->Values[nRow][Column30->Index] = ChkFST1->Caption;
  1016. else
  1017. if (pObj->FUSN_MTHD_CD == "FST2") pGDC->Values[nRow][Column30->Index] = ChkFST2->Caption;
  1018. else
  1019. if (pObj->FUSN_MTHD_CD == "FST3") pGDC->Values[nRow][Column30->Index] = ChkFST3->Caption;
  1020. if (pObj->ADJS_MTHD_CD == "MCA0") pGDC->Values[nRow][Column40->Index] = ChkMCA0->Caption;
  1021. else
  1022. if (pObj->ADJS_MTHD_CD == "MCA1")
  1023. {
  1024. pGDC->Values[nRow][Column40->Index] = ChkMCA1->Caption;
  1025. pGDC->Values[nRow][Column41->Index] = pObj->ADJS_WGHT_AVRG_PRE_3CYCL * 100;
  1026. pGDC->Values[nRow][Column42->Index] = pObj->ADJS_WGHT_AVRG_PRE_2CYCL * 100;
  1027. pGDC->Values[nRow][Column43->Index] = pObj->ADJS_WGHT_AVRG_PRE_1CYCL * 100;
  1028. pGDC->Values[nRow][Column44->Index] = pObj->ADJS_15M_PTRN_APLY_YN;
  1029. pGDC->Values[nRow][Column45->Index] = pObj->ADJS_SHTR_MISS_DECS_CYCL;
  1030. }
  1031. else
  1032. if (pObj->ADJS_MTHD_CD == "MCA2") pGDC->Values[nRow][Column40->Index] = ChkMCA2->Caption;
  1033. if (pObj->SMTH_MTHD_CD == "SMT0") pGDC->Values[nRow][Column50->Index] = ChkSMT0->Caption;
  1034. else
  1035. if (pObj->SMTH_MTHD_CD == "SMT1")
  1036. {
  1037. pGDC->Values[nRow][Column50->Index] = ChkSMT1->Caption;
  1038. pGDC->Values[nRow][Column51->Index] = FormatFloat("#0.#0", pObj->SMTH_LWST_SPED_FCTR);
  1039. pGDC->Values[nRow][Column52->Index] = FormatFloat("#0.#0", pObj->SMTH_HGHS_SPED_FCTR);
  1040. }
  1041. else
  1042. if (pObj->SMTH_MTHD_CD == "SMT2")
  1043. {
  1044. pGDC->Values[nRow][Column50->Index] = ChkSMT2->Caption;
  1045. pGDC->Values[nRow][Column53->Index] = pObj->SMTH_WGHT_AVRG_PRE_2CYCL * 100;
  1046. pGDC->Values[nRow][Column54->Index] = pObj->SMTH_WGHT_AVRG_PRE_1CYCL * 100;
  1047. pGDC->Values[nRow][Column55->Index] = pObj->SMTH_WGHT_AVRG_PRST * 100;
  1048. }
  1049. #if 0
  1050. pGDC->Values[nRow][Column31->Index] = ;
  1051. pGDC->Values[nRow][Column32->Index] = ;
  1052. #endif
  1053. pGDC->Values[nRow][Column99->Index] = (int)pObj;
  1054. }
  1055. }
  1056. __finally
  1057. {
  1058. TvList->EndUpdate();
  1059. TvList->DataController->GotoFirst();
  1060. TvList->DataController->FocusedRecordIndex = 0;
  1061. }
  1062. }
  1063. //---------------------------------------------------------------------------
  1064. void __fastcall TIDB0051M::BtnSMTIintValClick(TObject *Sender)
  1065. {
  1066. if (ChkSMT1->Checked)
  1067. {
  1068. SeSMTValMin->Value = 0.50;
  1069. SeSMTValMax->Value = 2.00;
  1070. }
  1071. else
  1072. if (ChkSMT2->Checked)
  1073. {
  1074. SeSMTVal2->Value = 20;
  1075. SeSMTVal1->Value = 30;
  1076. SeSMTValC->Value = 50;
  1077. }
  1078. }
  1079. //---------------------------------------------------------------------------
  1080. void __fastcall TIDB0051M::BtnMCAInitValClick(TObject *Sender)
  1081. {
  1082. if (ChkMCA1->Checked)
  1083. {
  1084. SeMCAVal3->Value = 20;
  1085. SeMCAVal2->Value = 30;
  1086. SeMCAVal1->Value = 50;
  1087. Chk15MinPtrn->Checked = false;
  1088. SeMissCycle->Value = 3;
  1089. }
  1090. }
  1091. //---------------------------------------------------------------------------
  1092. void __fastcall TIDB0051M::BtnFMTInitValClick(TObject *Sender)
  1093. {
  1094. if (ChkFMT1->Checked)
  1095. {
  1096. SeVolMin->Value = 1;
  1097. SeVolMax->Value = 200;
  1098. SeSpdMin->Value = 1;
  1099. SeSpdMax->Value = 200;
  1100. }
  1101. }
  1102. //---------------------------------------------------------------------------
  1103. void __fastcall TIDB0051M::DisplayListData()
  1104. {
  1105. FormClear();
  1106. if (TvList->ViewData->RecordCount <= 0) return;
  1107. TcxDataController* pGDC = TvList->DataController;
  1108. int nIndex = pGDC->FocusedRecordIndex;
  1109. if (nIndex < 0) return;
  1110. int nMemPtr = pGDC->Values[nIndex][Column99->Index];
  1111. TPrcsParam *pObj = (TPrcsParam*)nMemPtr;
  1112. if (!pObj) return;
  1113. String sFMT;
  1114. String sFST;
  1115. String sMCA;
  1116. String sSMT;
  1117. EdParamId->Text = pObj->PARA_ID;
  1118. EdParamName->Text = pObj->PARA_NM;
  1119. try
  1120. {
  1121. sFMT = pObj->FLTR_MTHD_CD;
  1122. sFST = pObj->FUSN_MTHD_CD;
  1123. sMCA = pObj->ADJS_MTHD_CD;
  1124. sSMT = pObj->SMTH_MTHD_CD;
  1125. // filtering
  1126. if (sFMT == "FMT0") {
  1127. if (!ChkFMT0->Checked) ChkFMT0->Checked = true;
  1128. } else
  1129. if (sFMT == "FMT1") {
  1130. if (!ChkFMT1->Checked) ChkFMT1->Checked = true;
  1131. }
  1132. // fusion
  1133. if (sFST == "FST1") {
  1134. if (!ChkFST1->Checked) ChkFST1->Checked = true;
  1135. } else
  1136. if (sFST == "FST2") {
  1137. if (!ChkFST2->Checked) ChkFST2->Checked = true;
  1138. } else
  1139. if (sFST == "FST3") {
  1140. if (!ChkFST3->Checked) ChkFST3->Checked = true;
  1141. }
  1142. // correct
  1143. if (sMCA == "MCA0") {
  1144. if (!ChkMCA0->Checked) ChkMCA0->Checked = true;
  1145. } else
  1146. if (sMCA == "MCA1") {
  1147. if (!ChkMCA1->Checked) ChkMCA1->Checked = true;
  1148. } else
  1149. if (sMCA == "MCA2") {
  1150. if (!ChkMCA2->Checked) ChkMCA2->Checked = true;
  1151. }
  1152. // smoothing
  1153. if (sSMT == "SMT0") {
  1154. if (!ChkSMT0->Checked) ChkSMT0->Checked = true;
  1155. } else
  1156. if (sSMT == "SMT1") {
  1157. if (!ChkSMT1->Checked) ChkSMT1->Checked = true;
  1158. } else
  1159. if (sSMT == "SMT2") {
  1160. if (!ChkSMT2->Checked) ChkSMT2->Checked = true;
  1161. }
  1162. if (sFMT == "FMT0")
  1163. {
  1164. SeVolMin->Value = 1;
  1165. SeVolMax->Value = 200;
  1166. SeSpdMin->Value = 1;
  1167. SeSpdMax->Value = 200;
  1168. }
  1169. else
  1170. {
  1171. SeVolMin->Value = pObj->FLTR_MIN_TFVL;
  1172. SeVolMax->Value = pObj->FLTR_MAX_TFVL;
  1173. SeSpdMin->Value = pObj->FLTR_LWST_SPED;
  1174. SeSpdMax->Value = pObj->FLTR_HGHS_SPED;
  1175. }
  1176. if (sMCA == "MCA1")
  1177. {
  1178. SeMCAVal1->Value = pObj->ADJS_WGHT_AVRG_PRE_1CYCL * 100;
  1179. SeMCAVal2->Value = pObj->ADJS_WGHT_AVRG_PRE_2CYCL * 100;
  1180. SeMCAVal3->Value = pObj->ADJS_WGHT_AVRG_PRE_3CYCL * 100;
  1181. Chk15MinPtrn->Checked = pObj->ADJS_15M_PTRN_APLY_YN == "N" ? false : true;
  1182. SeMissCycle->Value = pObj->ADJS_SHTR_MISS_DECS_CYCL;
  1183. }
  1184. else
  1185. {
  1186. SeMCAVal3->Value = 20;
  1187. SeMCAVal2->Value = 30;
  1188. SeMCAVal1->Value = 50;
  1189. Chk15MinPtrn->Checked = false;
  1190. SeMissCycle->Value = 3;
  1191. }
  1192. if (sSMT == "SMT0")
  1193. {
  1194. SeSMTValMin->Value = 0.50;
  1195. SeSMTValMax->Value = 2.00;
  1196. SeSMTVal2->Value = 20;
  1197. SeSMTVal1->Value = 30;
  1198. SeSMTValC->Value = 50;
  1199. }
  1200. else
  1201. if (sSMT == "SMT1")
  1202. {
  1203. SeSMTValMin->Value = pObj->SMTH_LWST_SPED_FCTR;
  1204. SeSMTValMax->Value = pObj->SMTH_HGHS_SPED_FCTR;
  1205. SeSMTVal2->Value = 20;
  1206. SeSMTVal1->Value = 30;
  1207. SeSMTValC->Value = 50;
  1208. }
  1209. else
  1210. if (sSMT == "SMT2")
  1211. {
  1212. SeSMTValMin->Value = 0.50;
  1213. SeSMTValMax->Value = 2.00;
  1214. SeSMTValC->Value = (int)(pObj->SMTH_WGHT_AVRG_PRST * 100);
  1215. SeSMTVal1->Value = (int)(pObj->SMTH_WGHT_AVRG_PRE_1CYCL * 100);
  1216. SeSMTVal2->Value = (int)(pObj->SMTH_WGHT_AVRG_PRE_2CYCL * 100);
  1217. }
  1218. InitCollectSysInfo();
  1219. try
  1220. {
  1221. int ii, nIndx;
  1222. TcxGridDataController *pGDC0 = TvList0->DataController;
  1223. TcxGridDataController *pGDC3 = TvList3->DataController;
  1224. TvList0->BeginUpdate();
  1225. TvList3->BeginUpdate();
  1226. if (sFST == "FST1") // 우선순위
  1227. {
  1228. for(ii = 0; ii < pGDC0->RecordCount; ii++)
  1229. {
  1230. pGDC0->Values[ii][ColumnD03->Index] = lblNotUse->Caption;//"사용안함";
  1231. }
  1232. FOR_STL(TPrcsParamClct*, pClct, pObj->CLCTS)
  1233. {
  1234. for(ii = 0; ii < pGDC0->RecordCount; ii++)
  1235. {
  1236. if (pClct->CLCT_SYST_CD == VarToStr(pGDC0->Values[ii][ColumnD02->Index]))
  1237. {
  1238. pGDC0->Values[ii][ColumnD03->Index] = String(pClct->FUSN_PRRT);
  1239. break;
  1240. }
  1241. }
  1242. }
  1243. }
  1244. else
  1245. if (sFST == "FST2") // 가중치
  1246. {
  1247. for(ii = 0; ii < pGDC3->RecordCount; ii++)
  1248. {
  1249. pGDC3->Values[ii][ColumnC03->Index] = 0;
  1250. }
  1251. FOR_STL(TPrcsParamClct*, pClct, pObj->CLCTS)
  1252. {
  1253. for(ii = 0; ii < pGDC3->RecordCount; ii++)
  1254. {
  1255. if (pClct->CLCT_SYST_CD == VarToStr(pGDC3->Values[ii][ColumnC02->Index]))
  1256. {
  1257. pGDC3->Values[ii][ColumnC03->Index] = (pClct->FUSN_WGHT * 100.);
  1258. break;
  1259. }
  1260. }
  1261. }
  1262. }
  1263. }
  1264. __finally
  1265. {
  1266. TvList0->EndUpdate();
  1267. TvList3->EndUpdate();
  1268. ColumnD03->SortIndex = ColumnD03->Index;
  1269. ColumnD03->SortOrder = soAscending;
  1270. }
  1271. }
  1272. catch(Exception &exception)
  1273. {
  1274. ShowMessage(String(exception.ClassName()) + exception.Message);
  1275. }
  1276. }
  1277. //---------------------------------------------------------------------------
  1278. void __fastcall TIDB0051M::BtnSaveClick(TObject *Sender)
  1279. {
  1280. String sMsgTitle, sMsgString;
  1281. int nMsgType = MB_OK|MB_ICONWARNING|MB_APPLMODAL;
  1282. String sId = EdParamId->Text.Trim();
  1283. TPrcsParam* pObj;
  1284. if (JobType == enJobSave)
  1285. {
  1286. sMsgTitle = lblSave->Caption;//"가공파라미터 정보 등록";
  1287. pObj = new TPrcsParam();
  1288. pObj->PARA_ID = sId;
  1289. pObj->DEL_YN = "N";
  1290. MyParamManager->FLists.Push(pObj->PARA_ID, pObj);
  1291. }
  1292. else
  1293. {
  1294. sMsgTitle = lblEdit->Caption;//"가공파라미터 정보 수정";
  1295. pObj = MyParamManager->FLists.Find(sId);
  1296. }
  1297. if (sId == "" || pObj == NULL)
  1298. {
  1299. sMsgString = lblSelErr->Caption;//"가공파라미터를 선택하세요.";
  1300. Application->MessageBox(sMsgString.c_str(), sMsgTitle.c_str(), nMsgType);
  1301. //ActiveControl = EdParamId;
  1302. return;
  1303. }
  1304. String sName = EdParamName->Text.Trim();
  1305. if (sName == "")
  1306. {
  1307. sMsgString = lblText10->Caption;//"가공파라미터 명칭을 입력하세요.";
  1308. Application->MessageBox(sMsgString.c_str(), sMsgTitle.c_str(), nMsgType);
  1309. //ActiveControl = EdParamName;
  1310. return;
  1311. }
  1312. pObj->PARA_NM = sName;
  1313. if (!CheckParameterValue())
  1314. {
  1315. return;
  1316. }
  1317. if (MergeData(sId, sName))
  1318. {
  1319. pObj->FLTR_MTHD_CD = FFMT; // N VARCHAR2(7) Y 필터링 방법 코드
  1320. pObj->FUSN_MTHD_CD = FFST; // N VARCHAR2(7) Y 퓨전 방법 코드
  1321. pObj->ADJS_MTHD_CD = FMCA; // N VARCHAR2(7) Y 보정 방법 코드
  1322. pObj->SMTH_MTHD_CD = FSMT; // N VARCHAR2(7) Y 평활화 방법 코드
  1323. pObj->FLTR_MIN_TFVL = FFMTVolMin; // N NUMBER(6) Y 0 필터링 최소 교통량
  1324. pObj->FLTR_MAX_TFVL = FFMTVolMax; // N NUMBER(6) Y 0 필터링 최대 교통량
  1325. pObj->FLTR_LWST_SPED = FFMTSpdMin; // N NUMBER(3) Y 0 필터링 최저 속도
  1326. pObj->FLTR_HGHS_SPED = FFMTSpdMax; // N NUMBER(3) Y 0 필터링 최고 속도
  1327. pObj->ADJS_WGHT_AVRG_PRE_1CYCL = FMCAVal1/100.; // N NUMBER(5,2) Y 0 보정 가중치 평균 이전 1주기
  1328. pObj->ADJS_WGHT_AVRG_PRE_2CYCL = FMCAVal2/100.; // N NUMBER(5,2) Y 0 보정 가중치 평균 이전 2주기
  1329. pObj->ADJS_WGHT_AVRG_PRE_3CYCL = FMCAVal3/100.; // N NUMBER(5,2) Y 0 보정 가중치 평균 이전 3주기
  1330. pObj->ADJS_15M_PTRN_APLY_YN = F15MinPtrn; // N CHAR(1) Y 'N' 보정 15분 패턴 적용 여부
  1331. pObj->ADJS_SHTR_MISS_DECS_CYCL = FMissCycle; // N NUMBER(2) Y 보정 단기 결측 판단 주기
  1332. pObj->SMTH_LWST_SPED_FCTR = FSMTSpdMin; // N NUMBER(3,2) Y 0 평활화 최저 속도 계수
  1333. pObj->SMTH_HGHS_SPED_FCTR = FSMTSpdMax; // N NUMBER(3,2) Y 0 평활화 최고 속도 계수
  1334. pObj->SMTH_WGHT_AVRG_PRST = FSMTValC/100.; // N NUMBER(5,2) Y 0 평활화 가중치 평균 현재
  1335. pObj->SMTH_WGHT_AVRG_PRE_1CYCL = FSMTVal1/100.; // N NUMBER(5,2) Y 0 평활화 가중치 평균 이전 1주기
  1336. pObj->SMTH_WGHT_AVRG_PRE_2CYCL = FSMTVal2/100.; // N NUMBER(5,2) Y 0 평활화 가중치 평균 이전 2주기
  1337. pObj->CLCTS.RemoveAll();
  1338. try
  1339. {
  1340. int ii, jj;
  1341. TcxGridDataController *pGDC0 = TvList0->DataController;
  1342. TcxGridDataController *pGDC3 = TvList3->DataController;
  1343. TvList0->BeginUpdate();
  1344. TvList3->BeginUpdate();
  1345. if (FFST == "FST1") // 우선순위
  1346. {
  1347. for(ii = 0; ii < pGDC0->RecordCount; ii++)
  1348. {
  1349. String sPrrt = pGDC0->Values[ii][ColumnD03->Index];
  1350. if (sPrrt == lblNotUse->Caption) continue;
  1351. String sClctCd = pGDC0->Values[ii][ColumnD02->Index];
  1352. int nPrrt = sPrrt.ToIntDef(1);
  1353. int nWigt = 0;
  1354. for(jj = 0; jj < pGDC3->RecordCount; jj++)
  1355. {
  1356. if (sClctCd == VarToStr(pGDC3->Values[jj][ColumnC02->Index]))
  1357. {
  1358. nWigt = pGDC3->Values[jj][ColumnC03->Index];
  1359. break;
  1360. }
  1361. }
  1362. TPrcsParamClct* pClct = new TPrcsParamClct();
  1363. pClct->CLCT_SYST_CD = sClctCd;
  1364. pClct->FUSN_PRRT = nPrrt;
  1365. pClct->FUSN_WGHT = nWigt/100.;
  1366. pObj->CLCTS.Push(pClct->FUSN_PRRT, pClct);
  1367. }
  1368. }
  1369. else
  1370. if (FFST == "FST2") // 가중치
  1371. {
  1372. for(ii = 0; ii < pGDC3->RecordCount; ii++)
  1373. {
  1374. int nWigt = 0;
  1375. nWigt = pGDC3->Values[ii][ColumnC03->Index];
  1376. if (nWigt == 0) continue;
  1377. String sClctCd = pGDC3->Values[ii][ColumnC02->Index];
  1378. String sPrrt = "1";
  1379. int nPrrt = sPrrt.ToIntDef(1);
  1380. for(jj = 0; jj < pGDC0->RecordCount; jj++)
  1381. {
  1382. if (sClctCd == VarToStr(pGDC0->Values[jj][ColumnD02->Index]))
  1383. {
  1384. sPrrt = pGDC0->Values[jj][ColumnD03->Index];
  1385. if (sPrrt == lblNotUse->Caption) sPrrt = "1";
  1386. nPrrt = sPrrt.ToIntDef(1);
  1387. break;
  1388. }
  1389. }
  1390. TPrcsParamClct* pClct = new TPrcsParamClct();
  1391. pClct->CLCT_SYST_CD = sClctCd;
  1392. pClct->FUSN_PRRT = nPrrt;
  1393. pClct->FUSN_WGHT = nWigt/100.;
  1394. pObj->CLCTS.Push(pClct->FUSN_PRRT, pClct);
  1395. }
  1396. }
  1397. }
  1398. __finally
  1399. {
  1400. TvList0->EndUpdate();
  1401. TvList3->EndUpdate();
  1402. }
  1403. RefreshData();
  1404. CMM_SetGridRow(CxList, TvList, sId, Column10->Index);
  1405. DisplayListData();
  1406. ChangeButtonType(1);
  1407. }
  1408. }
  1409. //---------------------------------------------------------------------------
  1410. void __fastcall TIDB0051M::BtnCancelClick(TObject *Sender)
  1411. {
  1412. ChangeButtonType(1);
  1413. JobType = enJobNone;
  1414. //EdParamId->Enabled = true;
  1415. DisplayListData();
  1416. }
  1417. //---------------------------------------------------------------------------
  1418. void __fastcall TIDB0051M::BtnInsertClick(TObject *Sender)
  1419. {
  1420. ChangeButtonType(2);
  1421. FormClear();
  1422. JobType = enJobSave;
  1423. String sNewParamId;
  1424. MyParamManager->GetNewPrcsParamId(sNewParamId);
  1425. EdParamId->Text = sNewParamId;
  1426. //EdParamId->Enabled = false;
  1427. }
  1428. //---------------------------------------------------------------------------
  1429. void __fastcall TIDB0051M::BtnEditClick(TObject *Sender)
  1430. {
  1431. ChangeButtonType(2);
  1432. JobType = enJobEdit;
  1433. //EdParamId->Enabled = false;
  1434. }
  1435. //---------------------------------------------------------------------------
  1436. void __fastcall TIDB0051M::BtnDeleteClick(TObject *Sender)
  1437. {
  1438. String sMsgTitle;
  1439. String sMsgString;
  1440. if (TvList->ViewData->RecordCount <= 0) return;
  1441. if (TvList->DataController->FocusedRowIndex < 0) return;
  1442. String sId = EdParamId->Text.Trim();
  1443. TPrcsParam* pObj = MyParamManager->FLists.Find(sId);
  1444. if (sId == "" || pObj == NULL)
  1445. {
  1446. sMsgString = lblSelErr->Caption;//"가공파라미터를 선택하세요.";
  1447. Application->MessageBox(sMsgString.c_str(), sMsgTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  1448. //ActiveControl = EdParamId;
  1449. return;
  1450. }
  1451. if (MyParamManager->IsUsing(sId))
  1452. {
  1453. sMsgString = lblNoDelete->Caption;//"현재 가공파라미터는 사용중입니다.\r\n삭제 할 수 없습니다.";
  1454. Application->MessageBox(sMsgString.c_str(), sMsgTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  1455. //ActiveControl = EdParamId;
  1456. return;
  1457. }
  1458. sMsgTitle = lblDelete->Caption;//"가공파라미터 정보 삭제";
  1459. sMsgString = lblDelCnfm->Caption;//"가공파라미터 정보를 삭제 하시겠습니까?" ;
  1460. if (Application->MessageBox(sMsgString.c_str(), sMsgTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) == IDYES)
  1461. {
  1462. if (MyParamManager->DeleteData(pObj))
  1463. {
  1464. Application->MessageBox(lblDeleteOk->Caption.c_str(),//L"가공 파라미터 정보를 삭제 하였습니다.",
  1465. sMsgTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  1466. BtnSearchClick(NULL);
  1467. }
  1468. }
  1469. }
  1470. //---------------------------------------------------------------------------
  1471. void __fastcall TIDB0051M::TvListFocusedRecordChanged(TcxCustomGridTableView *Sender,
  1472. TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord,
  1473. bool ANewItemRecordFocusingChanged)
  1474. {
  1475. DisplayListData();
  1476. }
  1477. //---------------------------------------------------------------------------
  1478. void __fastcall TIDB0051M::ChkAutoWidthPropertiesChange(TObject *Sender)
  1479. {
  1480. try
  1481. {
  1482. TvList->BeginUpdate();
  1483. TvList->OptionsView->ColumnAutoWidth = ChkAutoWidth->Checked;
  1484. BtnBestFit->Visible = !ChkAutoWidth->Checked;
  1485. }
  1486. __finally
  1487. {
  1488. TvList->EndUpdate();
  1489. }
  1490. }
  1491. //---------------------------------------------------------------------------
  1492. void __fastcall TIDB0051M::BtnBestFitClick(TObject *Sender)
  1493. {
  1494. try
  1495. {
  1496. TvList->BeginUpdate();
  1497. TvList->ApplyBestFit(NULL, false, false);
  1498. }
  1499. __finally
  1500. {
  1501. TvList->EndUpdate();
  1502. }
  1503. }
  1504. //---------------------------------------------------------------------------