VMSVIEWMF.cpp 27 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include "ITSSkinF.h"
  4. #include "ITSUtilF.h"
  5. #include "AppGlobalF.h"
  6. #pragma hdrstop
  7. #include "VMSVIEWMF.h"
  8. //---------------------------------------------------------------------------
  9. #pragma package(smart_init)
  10. #pragma link "cxButtons"
  11. #pragma link "cxCalendar"
  12. #pragma link "cxContainer"
  13. #pragma link "cxControls"
  14. #pragma link "cxDropDownEdit"
  15. #pragma link "cxEdit"
  16. #pragma link "cxGraphics"
  17. #pragma link "cxGroupBox"
  18. #pragma link "cxLabel"
  19. #pragma link "cxLookAndFeelPainters"
  20. #pragma link "cxLookAndFeels"
  21. #pragma link "cxMaskEdit"
  22. #pragma link "cxPC"
  23. #pragma link "cxPCdxBarPopupMenu"
  24. #pragma link "cxSpinEdit"
  25. #pragma link "cxSplitter"
  26. #pragma link "cxTextEdit"
  27. #pragma link "cxTimeEdit"
  28. #pragma link "dxSkinBlack"
  29. #pragma link "dxSkinBlue"
  30. #pragma link "dxSkinCaramel"
  31. #pragma link "dxSkinCoffee"
  32. #pragma link "dxSkinDarkRoom"
  33. #pragma link "dxSkinDarkSide"
  34. #pragma link "dxSkinFoggy"
  35. #pragma link "dxSkinGlassOceans"
  36. #pragma link "dxSkiniMaginary"
  37. #pragma link "dxSkinLilian"
  38. #pragma link "dxSkinLiquidSky"
  39. #pragma link "dxSkinLondonLiquidSky"
  40. #pragma link "dxSkinMcSkin"
  41. #pragma link "dxSkinMoneyTwins"
  42. #pragma link "dxSkinOffice2007Black"
  43. #pragma link "dxSkinOffice2007Blue"
  44. #pragma link "dxSkinOffice2007Green"
  45. #pragma link "dxSkinOffice2007Pink"
  46. #pragma link "dxSkinOffice2007Silver"
  47. #pragma link "dxSkinOffice2010Black"
  48. #pragma link "dxSkinOffice2010Blue"
  49. #pragma link "dxSkinOffice2010Silver"
  50. #pragma link "dxSkinsCore"
  51. #pragma link "dxSkinscxPCPainter"
  52. #pragma link "dxSkinSeven"
  53. #pragma link "dxSkinSharp"
  54. #pragma link "dxSkinSilver"
  55. #pragma link "dxSkinStardust"
  56. #pragma link "cxRadioGroup"
  57. #pragma link "cxClasses"
  58. #pragma link "cxCustomData"
  59. #pragma link "cxData"
  60. #pragma link "cxDataStorage"
  61. #pragma link "cxDBData"
  62. #pragma link "cxFilter"
  63. #pragma link "cxGrid"
  64. #pragma link "cxGridCustomTableView"
  65. #pragma link "cxGridCustomView"
  66. #pragma link "cxGridDBTableView"
  67. #pragma link "cxGridLevel"
  68. #pragma link "cxGridTableView"
  69. #pragma link "cxStyles"
  70. #pragma link "cxCheckBox"
  71. #pragma link "cxImage"
  72. #pragma link "cxButtonEdit"
  73. #pragma link "cxBlobEdit"
  74. #pragma link "cxColorComboBox"
  75. #pragma link "cxCalc"
  76. #pragma link "FRAME_VmsListF"
  77. #pragma resource "*.dfm"
  78. //TVMSVIEWM *VMSVIEWM = NULL;
  79. //---------------------------------------------------------------------------
  80. __fastcall TVMSVIEWM::TVMSVIEWM(TComponent* Owner)
  81. : TForm(Owner)
  82. {
  83. ITSSkin_Load(this);
  84. ////CMM_LoadForm(g_sFormsDir, this);
  85. FUpdate= false;
  86. FTitle = Caption;//"VMS 모니터링 화면 관리";
  87. EditMode = false;
  88. FRAMEVmsList1->PnlTop->Visible = false;
  89. FRAMEVmsList1->PnlBottom->Visible = false;
  90. FRAMEVmsList1->ColumnSel->Visible = false;
  91. FRAMEVmsList1->Column04->Visible = true;
  92. //FRAMEVmsList1->TvList->OptionsView->ColumnAutoWidth = true;
  93. FRAMEVmsList1->TvList->OptionsSelection->MultiSelect = true;
  94. FRAMEVmsList1->TvList->OptionsSelection->CellSelect = false;
  95. FDbConnection = NULL;
  96. }
  97. //---------------------------------------------------------------------------
  98. void __fastcall TVMSVIEWM::CommClose()
  99. {
  100. try
  101. {
  102. ////CMM_SaveForm(g_sFormsDir, this);
  103. }
  104. catch(...)
  105. {
  106. }
  107. }
  108. //---------------------------------------------------------------------------
  109. void __fastcall TVMSVIEWM::FormShow(TObject *Sender)
  110. {
  111. Refresh();
  112. FormInit();
  113. ChangeEditMode(1);
  114. TmrShow->Enabled = true;
  115. }
  116. //---------------------------------------------------------------------------
  117. void __fastcall TVMSVIEWM::FormInit()
  118. {
  119. //TvList->OptionsView->NoDataToDisplayInfoText = "<등록되어 있는 정보가 없습니다>";
  120. //TvVms->OptionsView->NoDataToDisplayInfoText = "<등록되어 있는 정보가 없습니다>";
  121. FRAMEVmsList1->UpdateList();
  122. FNewDb = false;
  123. }
  124. //---------------------------------------------------------------------------
  125. void __fastcall TVMSVIEWM::TmrShowTimer(TObject *Sender)
  126. {
  127. TmrShow->Enabled = false;
  128. BtnSearchClick(NULL);
  129. }
  130. //---------------------------------------------------------------------------
  131. /*
  132. * Close 버튼 클릭 이벤트 핸들러
  133. * arguments
  134. * Sender : event handler 객체
  135. * return
  136. * void
  137. */
  138. void __fastcall TVMSVIEWM::BtnCloseClick(TObject *Sender)
  139. {
  140. Close();
  141. }
  142. //---------------------------------------------------------------------------
  143. void __fastcall TVMSVIEWM::FormClose(TObject *Sender, TCloseAction &Action)
  144. {
  145. CommClose();
  146. //VMSVIEWM = NULL;
  147. Action = caFree;
  148. }
  149. //---------------------------------------------------------------------------
  150. void __fastcall TVMSVIEWM::BtnEditClick(TObject *Sender)
  151. {
  152. if (BtnEdit->Caption == "편집")//"편집")
  153. {
  154. ChangeEditMode(0);
  155. FNewDb = false;
  156. }
  157. else
  158. {
  159. String sName = EdName->Text;
  160. ChangeEditMode(1);
  161. if (CMM_FindGridData(TvList->DataController, sName, Col02->Index) >= 0)
  162. {
  163. CMM_SetGridRow(CxList, TvList, sName, Col02->Index);
  164. DisplayInfo();
  165. }
  166. }
  167. }
  168. //---------------------------------------------------------------------------
  169. void __fastcall TVMSVIEWM::ChangeEditMode(int AEdit)
  170. {
  171. bool bEnabled = false;
  172. switch(AEdit)
  173. {
  174. case 0: //편집버튼클릭
  175. {
  176. BtnEdit->Enabled = true;
  177. BtnInsert->Enabled = false;
  178. BtnDelete->Enabled = false;
  179. BtnSave->Enabled = true;
  180. BtnEdit->Caption = "취소";//"취소";
  181. BtnEdit->Hint = "데이터 편집 취소";//데이터 편집 취소";
  182. EditMode = true;
  183. }
  184. break;
  185. case 1: //편집[취소]버튼클릭
  186. {
  187. FormClear(); //화면을 모두 지운다.
  188. BtnEdit->Enabled = false;
  189. BtnInsert->Enabled = true;
  190. BtnDelete->Enabled = false;
  191. BtnSave->Enabled = false;
  192. BtnEdit->Caption = "편집";//"편집";
  193. BtnEdit->Hint = "데이터 편집";//데이터 편집";
  194. //bEnabled = true;
  195. EditMode = false;
  196. }
  197. break;
  198. case 2: //추가
  199. {
  200. BtnEdit->Enabled = true;
  201. BtnInsert->Enabled = false;
  202. BtnDelete->Enabled = false;
  203. BtnSave->Enabled = true;
  204. BtnEdit->Caption = "취소";//"취소";
  205. BtnEdit->Hint = "데이터 편집 취소";//데이터 편집 취소";
  206. EditMode = true;
  207. }
  208. break;
  209. case 3: //수정모드
  210. {
  211. BtnEdit->Enabled = true;
  212. BtnInsert->Enabled = true;
  213. BtnDelete->Enabled = true;
  214. BtnSave->Enabled = false;
  215. BtnEdit->Caption = "편집";//"편집";
  216. BtnEdit->Hint = "데이터 편집";//데이터 편집";
  217. bEnabled = true;
  218. EditMode = false;
  219. }
  220. break;
  221. }
  222. if (AEdit == 0 || AEdit == 2)
  223. {
  224. PnlCmd->Enabled = true;
  225. }
  226. else
  227. {
  228. PnlCmd->Enabled = false;
  229. }
  230. }
  231. //---------------------------------------------------------------------------
  232. int __fastcall TVMSVIEWM::CheckDupFormName(String ANewName, String AOldName)
  233. {
  234. int nDupCnt = 0;
  235. try
  236. {
  237. TvList->BeginUpdate();
  238. TcxGridDataController *pGDC = TvList->DataController;
  239. int nRows = pGDC->RecordCount;
  240. for (int ii = 0; ii < nRows; ii++)
  241. {
  242. String sFormName = VarToStr(pGDC->Values[ii][Col02->Index]);
  243. if (sFormName == AOldName)
  244. {
  245. continue;
  246. }
  247. if (sFormName == ANewName)
  248. {
  249. nDupCnt++;
  250. }
  251. }
  252. }
  253. __finally
  254. {
  255. TvList->EndUpdate();
  256. }
  257. return nDupCnt;
  258. }
  259. //---------------------------------------------------------------------------
  260. void __fastcall TVMSVIEWM::BtnSaveClick(TObject *Sender)
  261. {
  262. if (EdName->Text.Trim().IsEmpty())
  263. {
  264. Application->MessageBox(lblText1->Caption.c_str(),//L"VMS 모니터링 화면 저장\r\nVMS 모니터링 화면명칭을 입력하세요.",
  265. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  266. return;
  267. }
  268. if (!FNewDb)
  269. {
  270. if (EdOrgName->Text.Trim().IsEmpty())
  271. {
  272. Application->MessageBox(lblText2->Caption.c_str(),//L"VMS 모니터링 화면 저장\r\nVMS 모니터링 화면을 목록에서 선택하세요.",
  273. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  274. return;
  275. }
  276. }
  277. if (TvVms->DataController->RecordCount == 0)
  278. {
  279. Application->MessageBox(lblText3->Caption.c_str(),//L"VMS 모니터링 화면 저장\r\n모니터링 대상 VMS를 추가해 주세요.",
  280. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  281. return;
  282. }
  283. String sOldName = EdOrgName->Text;
  284. String sNewName = EdName->Text.Trim();
  285. int nDupCnt;
  286. bool bResult = false;
  287. if (FNewDb)
  288. {
  289. nDupCnt = CheckDupFormName(sNewName, "");
  290. }
  291. else
  292. {
  293. nDupCnt = CheckDupFormName(sNewName, sOldName);
  294. }
  295. if (nDupCnt >= 1)
  296. {
  297. Application->MessageBox(lblText4->Caption.c_str(),//L"VMS 모니터링 화면 저장\r\n이미 사용중인 모니터링 화면명칭 입니다.\r\n사용하지 않는 명칭을 입력하세요.",
  298. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  299. return;
  300. }
  301. bResult = DelVmsMonitoring(sOldName);
  302. if (!bResult)
  303. {
  304. return;
  305. }
  306. String sQry;
  307. TADOQuery *pADO = NULL;
  308. try
  309. {
  310. pADO = new TADOQuery(NULL);
  311. pADO->Close();
  312. pADO->Connection = (FDbConnection == NULL) ? ITSDb_GetConnection() : FDbConnection;
  313. try
  314. {
  315. sQry = "INSERT INTO TB_VMS_MONITORING ( \r\n"
  316. " MONITORING_TYPE, \r\n"
  317. " MONITORING_NM, \r\n"
  318. " MONITORING_SEQ, \r\n"
  319. " VMS_CTLR_ID, \r\n"
  320. " VIEW_MODE \r\n"
  321. " ) \r\n"
  322. " VALUES ( \r\n"
  323. " :p01, \r\n"
  324. " :p02, \r\n"
  325. " :p03, \r\n"
  326. " :p04, \r\n"
  327. " 0 \r\n"
  328. " ) \r\n";
  329. pADO->SQL->Text = sQry;
  330. pADO->Connection->BeginTrans();
  331. TcxGridDataController *pGDC = TvVms->DataController;
  332. int nRows = pGDC->RecordCount;
  333. for (int ii = 0; ii < nRows; ii++)
  334. {
  335. String sVmsNmbr = VarToStr(pGDC->Values[ii][ColVms2->Index]);
  336. pADO->Parameters->ParamByName("p01")->Value = String(FMonitoringType);
  337. pADO->Parameters->ParamByName("p02")->Value = sNewName;
  338. pADO->Parameters->ParamByName("p03")->Value = String(ii+1);
  339. pADO->Parameters->ParamByName("p04")->Value = sVmsNmbr;
  340. pADO->ExecSQL();
  341. }
  342. pADO->Connection->CommitTrans();
  343. bResult = true;
  344. }
  345. catch(EDatabaseError &E)
  346. {
  347. pADO->Connection->RollbackTrans();
  348. DBERRORMSG("TVMSVIEWM::BtnSaveClick", String(E.ClassName()), E.Message, sQry);
  349. throw Exception(String(E.ClassName()) + E.Message);
  350. }
  351. catch(Exception &e)
  352. {
  353. pADO->Connection->RollbackTrans();
  354. DBERRORMSG("TVMSVIEWM::BtnSaveClick", String(e.ClassName()), e.Message, sQry);
  355. throw Exception(String(e.ClassName()) + e.Message);
  356. }
  357. }
  358. __finally
  359. {
  360. if (pADO)
  361. {
  362. pADO->Close();
  363. delete pADO;
  364. }
  365. }
  366. if (bResult)
  367. {
  368. Application->MessageBox(lblText5->Caption.c_str(),//L"VMS 모니터링 화면 저장\r\nVMS 모니터링 화면 정보를 저장 하였습니다.",
  369. FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  370. FUpdate = true;
  371. LoadVmsMonitoring();
  372. CMM_SetGridRow(CxList, TvList, sNewName, Col02->Index);
  373. DisplayInfo();
  374. }
  375. }
  376. //---------------------------------------------------------------------------
  377. void __fastcall TVMSVIEWM::BtnInsertClick(TObject *Sender)
  378. {
  379. FormClear();
  380. EdName->Text = "";
  381. EdOrgName->Text = "";
  382. ChangeEditMode(2);
  383. FNewDb = true;
  384. }
  385. //---------------------------------------------------------------------------
  386. void __fastcall TVMSVIEWM::BtnDeleteClick(TObject *Sender)
  387. {
  388. int nIdx = TvList->DataController->FocusedRecordIndex;
  389. if (nIdx < 0) return;
  390. String sFormName = EdOrgName->Text;
  391. if (sFormName.IsEmpty())
  392. {
  393. Application->MessageBox(lblText6->Caption.c_str(),//L"VMS 모니터링 화면 삭제\r\n삭제할 VMS 모니터링 화면을 목록에서 선택하세요.",
  394. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  395. return;
  396. }
  397. String sMsg;
  398. sMsg = lblText7->Caption + ": " + sFormName;//"VMS 모니터링 화면: " + sFormName;
  399. sMsg+= "\r\n" + lblText8->Caption;//"선택하신 VMS 모니터링 화면 정보를 삭제하시겠습니까?";
  400. if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
  401. if (DelVmsMonitoring(sFormName))
  402. {
  403. FUpdate = true;
  404. Application->MessageBox(lblText9->Caption.c_str(),//L"VMS 모니터링 화면 삭제\r\nVMS 모니터링 화면 정보를 삭제 하였습니다.",
  405. FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  406. FormClear();
  407. ChangeEditMode(1);
  408. LoadVmsMonitoring();
  409. }
  410. }
  411. //---------------------------------------------------------------------------
  412. bool __fastcall TVMSVIEWM::DelVmsMonitoring(String AFormName)
  413. {
  414. String sQry;
  415. TADOQuery *pADO = NULL;
  416. sQry = "DELETE TB_VMS_MONITORING \r\n"
  417. " WHERE MONITORING_TYPE = :p01 \r\n"
  418. " AND MONITORING_NM = :p02 \r\n";
  419. try
  420. {
  421. try
  422. {
  423. pADO = new TADOQuery(NULL);
  424. pADO->Close();
  425. pADO->Connection = (FDbConnection == NULL) ? ITSDb_GetConnection() : FDbConnection;
  426. pADO->SQL->Text = sQry;
  427. pADO->Parameters->ParamByName("p01")->Value = String(FMonitoringType);
  428. pADO->Parameters->ParamByName("p02")->Value = AFormName;
  429. pADO->ExecSQL();
  430. return true;
  431. }
  432. catch(EDatabaseError &E)
  433. {
  434. DBERRORMSG("VMS Monitoring Delete", String(E.ClassName()), E.Message, sQry);
  435. throw Exception(String(E.ClassName()) + E.Message);
  436. }
  437. catch(Exception &e)
  438. {
  439. DBERRORMSG("VMS Monitoring Delete", String(e.ClassName()), e.Message, sQry);
  440. throw Exception(String(e.ClassName()) + e.Message);
  441. }
  442. }
  443. __finally
  444. {
  445. if (pADO)
  446. {
  447. pADO->Close();
  448. delete pADO;
  449. }
  450. }
  451. return true;
  452. }
  453. //---------------------------------------------------------------------------
  454. void __fastcall TVMSVIEWM::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
  455. TMouseButton AButton, TShiftState AShift,
  456. bool &AHandled)
  457. {
  458. if (!ACellViewInfo) return;
  459. DisplayInfo();
  460. }
  461. //---------------------------------------------------------------------------
  462. void __fastcall TVMSVIEWM::TvListFocusedRecordChanged(TcxCustomGridTableView *Sender,
  463. TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord,
  464. bool ANewItemRecordFocusingChanged)
  465. {
  466. if (!AFocusedRecord) return;
  467. DisplayInfo();
  468. }
  469. //---------------------------------------------------------------------------
  470. void __fastcall TVMSVIEWM::BtnSearchClick(TObject *Sender)
  471. {
  472. RefreshData();
  473. EdFocus->SetFocus();
  474. ChangeEditMode(1);
  475. }
  476. //---------------------------------------------------------------------------
  477. void __fastcall TVMSVIEWM::RefreshData()
  478. {
  479. // 검색조건에 의한 링크 데이터 조회
  480. FormClear();
  481. LoadVmsMonitoring();
  482. }
  483. //---------------------------------------------------------------------------
  484. void __fastcall TVMSVIEWM::LoadVmsMonitoring()
  485. {
  486. String sQry;
  487. TADOQuery *pADO = NULL;
  488. CMM_ClearGridTableView(TvList);
  489. sQry = "SELECT MONITORING_NM, COUNT(1) AS CNT \r\n"
  490. " FROM TB_VMS_MONITORING \r\n"
  491. " WHERE MONITORING_TYPE = :p01 \r\n"
  492. " GROUP BY MONITORING_NM \r\n"
  493. " ORDER BY MONITORING_NM ASC \r\n";
  494. String sFirstFormId = "";
  495. try
  496. {
  497. int nRow;
  498. TcxDataController *pGDC = TvList->DataController;
  499. TvList->BeginUpdate();
  500. try
  501. {
  502. pADO = new TADOQuery(NULL);
  503. pADO->Close();
  504. pADO->Connection = (FDbConnection == NULL) ? ITSDb_GetConnection() : FDbConnection;
  505. pADO->SQL->Text = sQry;
  506. pADO->Parameters->ParamByName("p01")->Value = String(FMonitoringType);
  507. pADO->Open();
  508. pADO->First();
  509. for( ; !pADO->Eof; pADO->Next())
  510. {
  511. nRow = pGDC->AppendRecord();
  512. pGDC->Values[nRow][Col01->Index] = "";
  513. pGDC->Values[nRow][Col02->Index] = pADO->FieldByName("MONITORING_NM")->AsString;
  514. pGDC->Values[nRow][Col03->Index] = pADO->FieldByName("CNT")->AsString;
  515. }
  516. }
  517. catch(EDatabaseError &E)
  518. {
  519. DBERRORMSG("VMS monitoring screen query", String(E.ClassName()), E.Message, sQry);
  520. throw Exception(String(E.ClassName()) + E.Message);
  521. }
  522. catch(Exception &e)
  523. {
  524. DBERRORMSG("VMS monitoring screen query", String(e.ClassName()), e.Message, sQry);
  525. throw Exception(String(e.ClassName()) + e.Message);
  526. }
  527. }
  528. __finally
  529. {
  530. if (pADO)
  531. {
  532. pADO->Close();
  533. delete pADO;
  534. }
  535. TvList->EndUpdate();
  536. }
  537. }
  538. //---------------------------------------------------------------------------
  539. void __fastcall TVMSVIEWM::FormClear()
  540. {
  541. CMM_ClearGridTableView(TvVms);
  542. EdOrgName->Clear();
  543. EdName->Clear();
  544. FNewDb = false;
  545. }
  546. //---------------------------------------------------------------------------
  547. void __fastcall TVMSVIEWM::DisplayInfo()
  548. {
  549. FormClear();
  550. int nSelIdx = TvList->DataController->FocusedRecordIndex;
  551. if( nSelIdx <= -1 )
  552. return;
  553. DisplayFormInfo(nSelIdx);
  554. ChangeEditMode(3);
  555. }
  556. //---------------------------------------------------------------------------
  557. void __fastcall TVMSVIEWM::DisplayFormInfo(int AIdx)
  558. {
  559. TcxGridDataController *pDc = TvList->DataController;
  560. String sScrName = VarToStr(pDc->Values[AIdx][Col02->Index]);
  561. EdName->Text = sScrName;
  562. EdOrgName->Text = sScrName;
  563. CMM_ClearGridTableView(TvVms);
  564. String sQry;
  565. TADOQuery *pADO = NULL;
  566. sQry = "SELECT A.MONITORING_NM, A.MONITORING_SEQ, \r\n"
  567. " A.VMS_CTLR_ID, B.VMS_CTLR_ID, B.VMS_NM \r\n"
  568. " FROM TB_VMS_MONITORING A, \r\n"
  569. " TB_VMS_CTLR B \r\n"
  570. " WHERE A.MONITORING_TYPE = :p01 \r\n"
  571. " AND A.MONITORING_NM = :p02 \r\n"
  572. " AND A.VMS_CTLR_ID = B.VMS_CTLR_ID(+) \r\n"
  573. " ORDER BY A.MONITORING_NM, A.MONITORING_SEQ \r\n";
  574. String sFirstFormId = "";
  575. try
  576. {
  577. int nRow;
  578. TcxDataController *pGDC = TvVms->DataController;
  579. TvVms->BeginUpdate();
  580. try
  581. {
  582. pADO = new TADOQuery(NULL);
  583. pADO->Close();
  584. pADO->Connection = (FDbConnection == NULL) ? ITSDb_GetConnection() : FDbConnection;
  585. pADO->SQL->Text = sQry;
  586. pADO->Parameters->ParamByName("p01")->Value = String(FMonitoringType);
  587. pADO->Parameters->ParamByName("p02")->Value = sScrName;
  588. pADO->Open();
  589. pADO->First();
  590. for( ; !pADO->Eof; pADO->Next())
  591. {
  592. nRow = pGDC->AppendRecord();
  593. pGDC->Values[nRow][ColVms1->Index] = pADO->FieldByName("MONITORING_SEQ")->AsString;
  594. pGDC->Values[nRow][ColVms2->Index] = pADO->FieldByName("VMS_CTLR_ID")->AsString;
  595. pGDC->Values[nRow][ColVms3->Index] = pADO->FieldByName("VMS_NM")->AsString;
  596. }
  597. }
  598. catch(EDatabaseError &E)
  599. {
  600. DBERRORMSG("VMS monitoring screen query", String(E.ClassName()), E.Message, sQry);
  601. throw Exception(String(E.ClassName()) + E.Message);
  602. }
  603. catch(Exception &e)
  604. {
  605. DBERRORMSG("VMS monitoring screen query", String(e.ClassName()), e.Message, sQry);
  606. throw Exception(String(e.ClassName()) + e.Message);
  607. }
  608. }
  609. __finally
  610. {
  611. if (pADO)
  612. {
  613. pADO->Close();
  614. delete pADO;
  615. }
  616. TvVms->EndUpdate();
  617. }
  618. }
  619. //---------------------------------------------------------------------------
  620. bool __fastcall TVMSVIEWM::FindVmsInfo(String AVmsNmbr)
  621. {
  622. try {
  623. TvVms->BeginUpdate();
  624. for (int ii = 0; ii < TvVms->DataController->RecordCount; ii++)
  625. {
  626. String sVmsNmbr = VarToStr(TvVms->DataController->Values[ii][ColVms2->Index]);
  627. if (sVmsNmbr == AVmsNmbr) return true;
  628. }
  629. }
  630. __finally
  631. {
  632. TvVms->EndUpdate();
  633. }
  634. return false;
  635. }
  636. //---------------------------------------------------------------------------
  637. void __fastcall TVMSVIEWM::UpdateVmsSeq()
  638. {
  639. try {
  640. TvVms->BeginUpdate();
  641. for (int ii = 0; ii < TvVms->DataController->RecordCount; ii++)
  642. {
  643. TvVms->DataController->Values[ii][ColVms1->Index] = String(ii+1);
  644. }
  645. }
  646. __finally
  647. {
  648. TvVms->EndUpdate();
  649. }
  650. }
  651. //---------------------------------------------------------------------------
  652. void __fastcall TVMSVIEWM::BtnListAddClick(TObject *Sender)
  653. {
  654. TcxGridTableView *pSrcList = FRAMEVmsList1->TvList;
  655. TcxGridTableView *pDstList = TvVms;
  656. int nSelRows = pSrcList->Controller->SelectedRowCount;
  657. if (nSelRows <= 0)
  658. {
  659. return;
  660. }
  661. try
  662. {
  663. TcxGridDataController *pGDC = pDstList->DataController;
  664. try
  665. {
  666. for (int ii = 0; ii < nSelRows; ii++)
  667. {
  668. int nSelIdx = pSrcList->Controller->SelectedRows[ii]->RecordIndex;
  669. String sVmsNmbr = VarToStr(pSrcList->DataController->Values[nSelIdx][FRAMEVmsList1->Column02->Index]);
  670. String sVmsName = VarToStr(pSrcList->DataController->Values[nSelIdx][FRAMEVmsList1->Column03->Index]);
  671. if (FindVmsInfo(sVmsNmbr)) continue;
  672. if (pGDC->RecordCount > MAX_CMRA_VIEW_CAMERA) {
  673. Application->MessageBox(L"VMS 모니터링 화면 등록\r\nVMS 모니터링 화면은 최대 20개 까지 등록할 수 있습니다.",
  674. FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  675. break;
  676. }
  677. int nRow = pGDC->AppendRecord();
  678. pGDC->Values[nRow][ColVms2->Index] = sVmsNmbr;
  679. pGDC->Values[nRow][ColVms3->Index] = sVmsName;
  680. }
  681. }
  682. catch(...)
  683. {
  684. }
  685. }
  686. __finally
  687. {
  688. UpdateVmsSeq();
  689. }
  690. }
  691. //---------------------------------------------------------------------------
  692. void __fastcall TVMSVIEWM::BtnListDeleteClick(TObject *Sender)
  693. {
  694. TcxGridTableView *pSrcList = TvVms;
  695. int nFocused = pSrcList->Controller->FocusedRecordIndex;
  696. int nSelRows = pSrcList->Controller->SelectedRowCount;
  697. if (nSelRows <= 0)
  698. {
  699. return;
  700. }
  701. try
  702. {
  703. TcxGridDataController *pGDC = pSrcList->DataController;
  704. pSrcList->BeginUpdate();
  705. try
  706. {
  707. pSrcList->Controller->DeleteSelection();
  708. int nDataCnt = pSrcList->DataController->RecordCount;
  709. if (nDataCnt <= nFocused)
  710. nFocused = nDataCnt - 1;
  711. pSrcList->Controller->ClearSelection();
  712. if (nFocused >= 0)
  713. {
  714. pSrcList->Controller->FocusedRowIndex = nFocused;
  715. pSrcList->ViewData->Records[nFocused]->Focused = true;
  716. pSrcList->ViewData->Records[nFocused]->Selected = true;
  717. }
  718. //CxLink->SetFocus();
  719. }
  720. catch(...)
  721. {
  722. }
  723. }
  724. __finally
  725. {
  726. pSrcList->EndUpdate();
  727. UpdateVmsSeq();
  728. }
  729. }
  730. //---------------------------------------------------------------------------
  731. void __fastcall TVMSVIEWM::BtnUpClick(TObject *Sender)
  732. {
  733. try
  734. {
  735. TvVms->BeginUpdate();
  736. int nCurIdx = TvVms->DataController->FocusedRowIndex;//FocusedRecordIndex;
  737. if (nCurIdx <= 0)
  738. {
  739. return;
  740. }
  741. int nUpIdx = nCurIdx-1;
  742. try
  743. {
  744. String sVal1 = VarToStr(TvVms->DataController->Values[nCurIdx][ColVms1->Index]);
  745. String sVal2 = VarToStr(TvVms->DataController->Values[nCurIdx][ColVms2->Index]);
  746. String sVal3 = VarToStr(TvVms->DataController->Values[nCurIdx][ColVms3->Index]);
  747. TvVms->DataController->Values[nCurIdx][ColVms1->Index] = TvVms->DataController->Values[nUpIdx][ColVms1->Index];
  748. TvVms->DataController->Values[nCurIdx][ColVms2->Index] = TvVms->DataController->Values[nUpIdx][ColVms2->Index];
  749. TvVms->DataController->Values[nCurIdx][ColVms3->Index] = TvVms->DataController->Values[nUpIdx][ColVms3->Index];
  750. TvVms->DataController->Values[nUpIdx][ColVms1->Index] = sVal1;
  751. TvVms->DataController->Values[nUpIdx][ColVms2->Index] = sVal2;
  752. TvVms->DataController->Values[nUpIdx][ColVms3->Index] = sVal3;
  753. TvVms->Controller->ClearSelection();
  754. TvVms->Controller->FocusedRowIndex = nUpIdx;
  755. TvVms->ViewData->Records[nUpIdx]->Focused = true;
  756. TvVms->ViewData->Records[nUpIdx]->Selected = true;
  757. CxVms->SetFocus();
  758. }
  759. catch(...)
  760. {
  761. }
  762. }
  763. __finally
  764. {
  765. TvVms->EndUpdate();
  766. UpdateVmsSeq();
  767. }
  768. }
  769. //---------------------------------------------------------------------------
  770. void __fastcall TVMSVIEWM::BtnDownClick(TObject *Sender)
  771. {
  772. try
  773. {
  774. TvVms->BeginUpdate();
  775. int nCurIdx = TvVms->DataController->FocusedRowIndex;//FocusedRecordIndex;
  776. if (nCurIdx < 0)
  777. {
  778. return;
  779. }
  780. if (nCurIdx == TvVms->DataController->RecordCount-1)
  781. {
  782. return;
  783. }
  784. int nDnIdx = nCurIdx+1;
  785. try
  786. {
  787. String sVal1 = VarToStr(TvVms->DataController->Values[nCurIdx][ColVms1->Index]);
  788. String sVal2 = VarToStr(TvVms->DataController->Values[nCurIdx][ColVms2->Index]);
  789. String sVal3 = VarToStr(TvVms->DataController->Values[nCurIdx][ColVms3->Index]);
  790. TvVms->DataController->Values[nCurIdx][ColVms1->Index] = TvVms->DataController->Values[nDnIdx][ColVms1->Index];
  791. TvVms->DataController->Values[nCurIdx][ColVms2->Index] = TvVms->DataController->Values[nDnIdx][ColVms2->Index];
  792. TvVms->DataController->Values[nCurIdx][ColVms3->Index] = TvVms->DataController->Values[nDnIdx][ColVms3->Index];
  793. TvVms->DataController->Values[nDnIdx][ColVms1->Index] = sVal1;
  794. TvVms->DataController->Values[nDnIdx][ColVms2->Index] = sVal2;
  795. TvVms->DataController->Values[nDnIdx][ColVms3->Index] = sVal3;
  796. TvVms->Controller->ClearSelection();
  797. TvVms->Controller->FocusedRowIndex = nDnIdx;
  798. TvVms->ViewData->Records[nDnIdx]->Focused = true;
  799. TvVms->ViewData->Records[nDnIdx]->Selected = true;
  800. CxVms->SetFocus();
  801. }
  802. catch(...)
  803. {
  804. }
  805. }
  806. __finally
  807. {
  808. TvVms->EndUpdate();
  809. UpdateVmsSeq();
  810. }
  811. }
  812. //---------------------------------------------------------------------------