VMS0600MF.cpp 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include "AppGlobalF.h"
  4. #include "ITSSkinF.h"
  5. #include "ITSUtilF.h"
  6. #include "FrmVmsOprMainF.h"
  7. #include "ITSLangTransF.h"
  8. #pragma hdrstop
  9. #include "VMS0600MF.h"
  10. #include "VMSVIEWMF.h"
  11. //---------------------------------------------------------------------------
  12. #pragma package(smart_init)
  13. #pragma link "cxContainer"
  14. #pragma link "cxControls"
  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 "cxPC"
  22. #pragma link "cxPCdxBarPopupMenu"
  23. #pragma link "cxSplitter"
  24. #pragma link "dxSkinBlack"
  25. #pragma link "dxSkinBlue"
  26. #pragma link "dxSkinCaramel"
  27. #pragma link "dxSkinCoffee"
  28. #pragma link "dxSkinDarkRoom"
  29. #pragma link "dxSkinDarkSide"
  30. #pragma link "dxSkinFoggy"
  31. #pragma link "dxSkinGlassOceans"
  32. #pragma link "dxSkiniMaginary"
  33. #pragma link "dxSkinLilian"
  34. #pragma link "dxSkinLiquidSky"
  35. #pragma link "dxSkinLondonLiquidSky"
  36. #pragma link "dxSkinMcSkin"
  37. #pragma link "dxSkinMoneyTwins"
  38. #pragma link "dxSkinOffice2007Black"
  39. #pragma link "dxSkinOffice2007Blue"
  40. #pragma link "dxSkinOffice2007Green"
  41. #pragma link "dxSkinOffice2007Pink"
  42. #pragma link "dxSkinOffice2007Silver"
  43. #pragma link "dxSkinOffice2010Black"
  44. #pragma link "dxSkinOffice2010Blue"
  45. #pragma link "dxSkinOffice2010Silver"
  46. #pragma link "dxSkinsCore"
  47. #pragma link "dxSkinscxPCPainter"
  48. #pragma link "dxSkinSeven"
  49. #pragma link "dxSkinSharp"
  50. #pragma link "dxSkinSilver"
  51. #pragma link "dxSkinStardust"
  52. #pragma link "cxClasses"
  53. #pragma link "cxCustomData"
  54. #pragma link "cxData"
  55. #pragma link "cxDataStorage"
  56. #pragma link "cxFilter"
  57. #pragma link "cxGrid"
  58. #pragma link "cxGridCustomTableView"
  59. #pragma link "cxGridCustomView"
  60. #pragma link "cxGridLevel"
  61. #pragma link "cxGridTableView"
  62. #pragma link "cxStyles"
  63. #pragma link "cxTextEdit"
  64. #pragma link "cxGridCardView"
  65. #pragma link "cxGridCustomLayoutView"
  66. #pragma link "cxCheckBox"
  67. #pragma link "cxDropDownEdit"
  68. #pragma link "cxImage"
  69. #pragma link "cxButtons"
  70. #pragma link "FRAME_VmsStateF"
  71. #pragma link "FRAME_VmsMsgListF"
  72. #pragma resource "*.dfm"
  73. TVMS0600M *VMS0600M = NULL;
  74. //---------------------------------------------------------------------------
  75. __fastcall TVMS0600M::TVMS0600M(TComponent* Owner)
  76. : TForm(Owner)
  77. {
  78. LangTrans->Translate(this, ITSDb_GetConnection());
  79. ITSSkin_Load(this);
  80. LoadLocalSkin();
  81. FMonitoringType = enMonitoringModule;
  82. TsList01->TabVisible = false;
  83. if (FormStyle != fsMDIChild) CMM_LoadForm(g_sFormsDir, this);
  84. FListForm = new TList;
  85. FSelVmsObj= NULL;
  86. FSelForm = NULL;
  87. //PgVmsState->Properties->HideTabs = true;
  88. //PgVmsIfscTraf->Properties->HideTabs = true;
  89. FReady = false;
  90. }
  91. //---------------------------------------------------------------------------
  92. void __fastcall TVMS0600M::CommClose()
  93. {
  94. try
  95. {
  96. ClearFormList();
  97. SAFE_DELETE(FListForm);
  98. if (FormStyle != fsMDIChild) CMM_SaveForm(g_sFormsDir, this);
  99. }
  100. catch(...)
  101. {
  102. }
  103. }
  104. //---------------------------------------------------------------------------
  105. void __fastcall TVMS0600M::ClearFormList()
  106. {
  107. try
  108. {
  109. LockWindowUpdate(Handle);
  110. try
  111. {
  112. for(int ii = 0; ii < FListForm->Count; ii++)
  113. {
  114. TVMSBACKM *pForm = (TVMSBACKM*)FListForm->Items[ii];
  115. pForm->Hide();
  116. SAFE_DELETE(pForm);
  117. }
  118. FListForm->Clear();
  119. int nForms = PgFormTab->PageCount;
  120. for (int ii = 1; ii < nForms; ii++)
  121. {
  122. TcxTabSheet *pTmpSheet = PgFormTab->Pages[1];
  123. if (pTmpSheet) delete pTmpSheet;
  124. }
  125. PgFormTab->ActivePageIndex = 0;
  126. }
  127. catch(Exception &e)
  128. {
  129. TcxTabSheet *pTmpSheet = PgFormTab->Pages[1];
  130. if (pTmpSheet) delete pTmpSheet;
  131. }
  132. }
  133. __finally
  134. {
  135. LockWindowUpdate(0);
  136. }
  137. }
  138. //---------------------------------------------------------------------------
  139. void __fastcall TVMS0600M::FormCreate(TObject *Sender)
  140. {
  141. InitMonitoringForm();
  142. //CreateVmsMsgForm(VmsCtlrManager->FMaxWidth);
  143. }
  144. //---------------------------------------------------------------------------
  145. void __fastcall TVMS0600M::CreateVmsMsgForm(int AWidth)
  146. {
  147. FReady = false;
  148. ClearFormList();
  149. String sQry;
  150. TADOQuery *pADO = NULL;
  151. sQry = "SELECT MONITORING_NM, MONITORING_SEQ, VMS_CTLR_NMBR \r\n"
  152. " FROM TB_VMS_MONITORING \r\n"
  153. " WHERE MONITORING_TYPE = :p01 \r\n"
  154. " ORDER BY MONITORING_NM DESC, MONITORING_SEQ \r\n";
  155. TcxTabSheet *pSheet = NULL;
  156. TVMSBACKM *pScrForm = NULL;
  157. String sOldName = "";
  158. int nIndex = 0;
  159. try
  160. {
  161. LockWindowUpdate(Handle);
  162. try
  163. {
  164. pADO = new TADOQuery(NULL);
  165. pADO->Close();
  166. pADO->Connection = ITSDb_GetConnection();
  167. ITSDb_SQLText(pADO, sQry);
  168. ITSDb_SQLBind(pADO, "p01", String(FMonitoringType));
  169. ITSDb_SQLOpen(pADO);
  170. for( ; !pADO->Eof; pADO->Next())
  171. {
  172. String sScrName = pADO->FieldByName("MONITORING_NM")->AsString;
  173. String sScrSeq = pADO->FieldByName("MONITORING_SEQ")->AsString;
  174. String sVmsNmbr = pADO->FieldByName("VMS_CTLR_NMBR")->AsString;
  175. if (sOldName != sScrName)
  176. {
  177. //신규 화면목록 추가
  178. pSheet = CMM_AddTabSheet(PgFormTab, " " + sScrName + " ");
  179. if (!pSheet) continue;
  180. TVMSBACKM *pNewForm = new TVMSBACKM(this, Handle, sScrName, nIndex++);
  181. pNewForm->FMonitoringType = FMonitoringType;
  182. pNewForm->Parent = pSheet;
  183. pNewForm->Show();
  184. pScrForm = pNewForm;
  185. sOldName = sScrName;
  186. FListForm->Add(pNewForm);
  187. }
  188. pScrForm->AddVmsForm(sVmsNmbr);
  189. }
  190. }
  191. catch(EDatabaseError &E)
  192. {
  193. DBERRORMSG("VMS Module Monitoring Screen Query", String(E.ClassName()), E.Message, sQry);
  194. throw Exception(String(E.ClassName()) + E.Message);
  195. }
  196. catch(Exception &e)
  197. {
  198. DBERRORMSG("VMS Module Monitoring Screen Query", String(e.ClassName()), e.Message, sQry);
  199. throw Exception(String(e.ClassName()) + e.Message);
  200. }
  201. }
  202. __finally
  203. {
  204. if (pADO)
  205. {
  206. pADO->Close();
  207. delete pADO;
  208. }
  209. if (PgFormTab->PageCount == 1)
  210. PgFormTab->ActivePageIndex = 0;
  211. else
  212. PgFormTab->ActivePageIndex = 1;
  213. LockWindowUpdate(0);
  214. }
  215. FReady = true;
  216. }
  217. //---------------------------------------------------------------------------
  218. void __fastcall TVMS0600M::FormShow(TObject *Sender)
  219. {
  220. Refresh();
  221. CreateVmsMsgForm(VmsCtlrManager->FMaxWidth);
  222. if (PgFormTab->PageCount == 1)
  223. PgFormTab->ActivePageIndex = 0;
  224. else
  225. PgFormTab->ActivePageIndex = 1;
  226. Application->ProcessMessages();
  227. TmrShow->Enabled = true;
  228. }
  229. //---------------------------------------------------------------------------
  230. void __fastcall TVMS0600M::FormActivate(TObject *Sender)
  231. {
  232. ActivateForm(true);
  233. }
  234. //---------------------------------------------------------------------------
  235. void __fastcall TVMS0600M::FormDeactivate(TObject *Sender)
  236. {
  237. ActivateForm(false);
  238. }
  239. //---------------------------------------------------------------------------
  240. void __fastcall TVMS0600M::LoadLocalSkin()
  241. {
  242. }
  243. //---------------------------------------------------------------------------
  244. void __fastcall TVMS0600M::TmrShowTimer(TObject *Sender)
  245. {
  246. TmrShow->Enabled = false;
  247. }
  248. //---------------------------------------------------------------------------
  249. void __fastcall TVMS0600M::FormClose(TObject *Sender, TCloseAction &Action)
  250. {
  251. try {
  252. CommClose();
  253. VMS0600M = NULL;
  254. Action = caFree;
  255. } catch(...) {}
  256. }
  257. //---------------------------------------------------------------------------
  258. void __fastcall TVMS0600M::OnMainFormMessage(TMessage &Msg)
  259. {
  260. }
  261. //---------------------------------------------------------------------------
  262. void __fastcall TVMS0600M::OnVmsStateRefreshMessage(TMessage &Msg)
  263. {
  264. for(int ii = 0; ii < FListForm->Count; ii++)
  265. {
  266. TVMSBACKM *pForm = (TVMSBACKM*)FListForm->Items[ii];
  267. pForm->RefreshVmsStatus();
  268. }
  269. FRAMEVmsState1->SelVmsObj = FSelVmsObj;
  270. }
  271. //---------------------------------------------------------------------------
  272. void __fastcall TVMS0600M::OnVmsFormRefreshMessage(TMessage &Msg)
  273. {
  274. if (FSelVmsObj)
  275. {
  276. FRAMEVmsMsgList1->LoadVmsMsgScenario((FSelVmsObj->VMS_CTLR_NMBR));
  277. }
  278. }
  279. //---------------------------------------------------------------------------
  280. void __fastcall TVMS0600M::OnVmsSelectMessage(TMessage &Msg)
  281. {
  282. try {
  283. FSelVmsObj = (TVmsCtlr*)Msg.WParam;
  284. FRAMEVmsState1->SelVmsObj = FSelVmsObj;
  285. if (!FSelVmsObj) return;
  286. TVMSMODL0 *pSelForm = (TVMSMODL0*)Msg.LParam;
  287. if (pSelForm == FSelForm) return;
  288. if (FSelForm) FSelForm->SelectForm(false);
  289. FSelForm = pSelForm;
  290. if (FSelForm) FSelForm->SelectForm(true);
  291. FRAMEVmsMsgList1->LoadVmsMsgScenario((FSelVmsObj->VMS_CTLR_NMBR));
  292. } catch(...) {};
  293. }
  294. //---------------------------------------------------------------------------
  295. void __fastcall TVMS0600M::BtnMonitoringMngrClick(TObject *Sender)
  296. {
  297. TVMSVIEWM *pForm = new TVMSVIEWM(this);
  298. pForm->FMonitoringType = FMonitoringType;
  299. pForm->ShowModal();
  300. bool bUpdate = pForm->FUpdate;
  301. SAFE_DELETE(pForm);
  302. if (bUpdate)
  303. {
  304. if (FSelForm) FSelForm->SelectForm(false);
  305. FSelVmsObj = NULL;
  306. FSelForm = NULL;
  307. FRAMEVmsState1->SelVmsObj = FSelVmsObj;
  308. FRAMEVmsMsgList1->ClearVmsMsg();
  309. CreateVmsMsgForm(VmsCtlrManager->FMaxWidth);
  310. try
  311. {
  312. LockWindowUpdate(Handle);
  313. for(int ii = 0; ii < FListForm->Count; ii++)
  314. {
  315. TVMSBACKM *pForm = (TVMSBACKM*)FListForm->Items[ii];
  316. pForm->RecalFormPosition();
  317. }
  318. }
  319. __finally
  320. {
  321. LockWindowUpdate(0);
  322. }
  323. }
  324. }
  325. //---------------------------------------------------------------------------
  326. void __fastcall TVMS0600M::InitMonitoringForm()
  327. {
  328. String sQry;
  329. TADOQuery *pADO = NULL;
  330. sQry = "SELECT COUNT(1) AS CNT \r\n"
  331. " FROM TB_VMS_MONITORING \r\n"
  332. " WHERE MONITORING_TYPE = :p01 \r\n";
  333. VmsCtlrManager->FLists.Lock();
  334. try
  335. {
  336. int nFormSeq;
  337. try
  338. {
  339. pADO = new TADOQuery(NULL);
  340. pADO->Close();
  341. pADO->Connection = ITSDb_GetConnection();
  342. ITSDb_SQLText(pADO, sQry);
  343. ITSDb_SQLBind(pADO, "p01", String(FMonitoringType));
  344. ITSDb_SQLOpen(pADO);
  345. int nFormCnt = pADO->FieldByName("CNT")->AsInteger;
  346. if (nFormCnt > 0) return;
  347. sQry = "INSERT INTO TB_VMS_MONITORING ( \r\n"
  348. " MONITORING_TYPE, \r\n"
  349. " MONITORING_NM, \r\n"
  350. " MONITORING_SEQ, \r\n"
  351. " VMS_CTLR_NMBR, \r\n"
  352. " VIEW_MODE \r\n"
  353. " ) \r\n"
  354. " VALUES ( \r\n"
  355. " :p01, \r\n"
  356. " :p02, \r\n"
  357. " :p03, \r\n"
  358. " :p04, \r\n"
  359. " 0 \r\n"
  360. " ) \r\n";
  361. ITSDb_SQLText(pADO, sQry);
  362. nFormSeq = 0;
  363. FOR_STL(TVmsCtlr*, pObj, VmsCtlrManager->FLists)
  364. {
  365. if (pObj->DEL_YN == "Y") continue;
  366. String sFormName = "Default";
  367. ITSDb_SQLBind(pADO, "p01", String(FMonitoringType));
  368. ITSDb_SQLBind(pADO, "p02", sFormName);
  369. ITSDb_SQLBind(pADO, "p03", String(++nFormSeq));
  370. ITSDb_SQLBind(pADO, "p04", (pObj->VMS_CTLR_NMBR));
  371. ITSDb_SQLExec(pADO);
  372. if (nFormSeq >= 16) break;
  373. }
  374. }
  375. catch(EDatabaseError &E)
  376. {
  377. DBERRORMSG("TVMS0600M::InitMonitoringForm", String(E.ClassName()), E.Message, sQry);
  378. throw Exception(String(E.ClassName()) + E.Message);
  379. }
  380. catch(Exception &e)
  381. {
  382. DBERRORMSG("TVMS0600M::InitMonitoringForm", String(e.ClassName()), e.Message, sQry);
  383. throw Exception(String(e.ClassName()) + e.Message);
  384. }
  385. }
  386. __finally
  387. {
  388. if (pADO)
  389. {
  390. pADO->Close();
  391. delete pADO;
  392. }
  393. VmsCtlrManager->FLists.UnLock();
  394. }
  395. }
  396. //---------------------------------------------------------------------------
  397. void __fastcall TVMS0600M::ActivateForm(bool AActivate)
  398. {
  399. try
  400. {
  401. int nTabIndex = PgFormTab->ActivePageIndex;
  402. //AnsiString sTrace = "TVMS0100M: ActivateForm:ActivePageIndex = " + String(nTabIndex) + " " + String(PgFormTab->PageCount);
  403. //ITSUtil_Trace(sTrace.c_str());
  404. nTabIndex--; //ActivePageIndex 으로 구간값은 숨어있는 탭을 포함한 인덱스
  405. for(int ii = 0; ii < FListForm->Count; ii++)
  406. {
  407. TVMSBACKM *pForm = (TVMSBACKM*)FListForm->Items[ii];
  408. if (AActivate)
  409. {
  410. if (ii == nTabIndex) pForm->Play = true;
  411. else pForm->Play = false;
  412. }
  413. else
  414. {
  415. //비활성이면 모든 화면 비활성으로
  416. pForm->Play = false;
  417. }
  418. }
  419. }
  420. catch(Exception &e)
  421. {
  422. }
  423. }
  424. //---------------------------------------------------------------------------
  425. void __fastcall TVMS0600M::PgFormTabPageChanging(TObject *Sender, TcxTabSheet *NewPage, bool &AllowChange)
  426. {
  427. if (!FReady) return;
  428. try
  429. {
  430. int nTabIndex = NewPage->TabIndex; //숨어있는 탭을 제외한 인덱스
  431. //AnsiString sTrace = "TVMS0100M: NewPage->TabIndex = " + String(nTabIndex) + " " + String(PgFormTab->PageCount);
  432. //ITSUtil_Trace(sTrace.c_str());
  433. for(int ii = 0; ii < FListForm->Count; ii++)
  434. {
  435. TVMSBACKM *pForm = (TVMSBACKM*)FListForm->Items[ii];
  436. if (nTabIndex == ii) pForm->Play = true;
  437. else pForm->Play = false;
  438. }
  439. }
  440. catch(Exception &e)
  441. {
  442. }
  443. }
  444. //---------------------------------------------------------------------------