FRAME_VmsListF.cpp 7.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include "ITSSkinF.h"
  4. #include "ITSUtilF.h"
  5. #include "AppGlobalF.h"
  6. #include "ITSLangTransF.h"
  7. #include "CDSCodeF.h"
  8. #include "CDSVmsCtlrF.h"
  9. #pragma hdrstop
  10. #include "FRAME_VmsListF.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 "cxLabel"
  32. #pragma link "cxLookAndFeelPainters"
  33. #pragma link "cxLookAndFeels"
  34. #pragma link "cxMaskEdit"
  35. #pragma link "cxStyles"
  36. #pragma link "cxTextEdit"
  37. #pragma link "dxSkinBlue"
  38. #pragma link "dxSkinsCore"
  39. #pragma link "dxSkinscxPCPainter"
  40. #pragma link "dxSkinBlack"
  41. #pragma link "dxSkinCaramel"
  42. #pragma link "dxSkinCoffee"
  43. #pragma link "dxSkinDarkRoom"
  44. #pragma link "dxSkinDarkSide"
  45. #pragma link "dxSkinFoggy"
  46. #pragma link "dxSkinGlassOceans"
  47. #pragma link "dxSkiniMaginary"
  48. #pragma link "dxSkinLilian"
  49. #pragma link "dxSkinLiquidSky"
  50. #pragma link "dxSkinLondonLiquidSky"
  51. #pragma link "dxSkinMcSkin"
  52. #pragma link "dxSkinMoneyTwins"
  53. #pragma link "dxSkinOffice2007Black"
  54. #pragma link "dxSkinOffice2007Blue"
  55. #pragma link "dxSkinOffice2007Green"
  56. #pragma link "dxSkinOffice2007Pink"
  57. #pragma link "dxSkinOffice2007Silver"
  58. #pragma link "dxSkinOffice2010Black"
  59. #pragma link "dxSkinOffice2010Blue"
  60. #pragma link "dxSkinOffice2010Silver"
  61. #pragma link "dxSkinSeven"
  62. #pragma link "dxSkinSharp"
  63. #pragma link "dxSkinSilver"
  64. #pragma link "dxSkinStardust"
  65. #pragma link "cxSpinEdit"
  66. #pragma resource "*.dfm"
  67. //TFRAMEVmsList *FRAMEVmsList;
  68. //---------------------------------------------------------------------------
  69. __fastcall TFRAMEVmsList::TFRAMEVmsList(TComponent* Owner)
  70. : TFrame(Owner)
  71. {
  72. LangTrans->Translate(this, ITSDb_GetConnection());
  73. m_pGDC = TvList->DataController;
  74. //TvList->OptionsView->NoDataToDisplayInfoText = "<VMS Á¤º¸°¡ ¾ø½À´Ï´Ù>";
  75. Column05->Visible = false;
  76. Column06->Visible = false;
  77. Column07->Visible = false;
  78. Column08->Visible = false;
  79. Column09->Visible = false;
  80. Column10->Visible = false;
  81. Column11->Visible = false;
  82. Column13->Visible = false;
  83. //APP_FillCode(CbUsagType, "VUT");
  84. APP_FillVmsSizeType(CbType);
  85. FTitle = lblTitle->Caption;
  86. }
  87. //---------------------------------------------------------------------------
  88. void __fastcall TFRAMEVmsList::UpdateList()
  89. {
  90. CMM_ClearGridTableView(TvList);
  91. int nRow = 0;
  92. TvList->BeginUpdate();
  93. try
  94. {
  95. VmsCtlrManager->FLists.Lock();
  96. try
  97. {
  98. FOR_STL(TVmsCtlr*, pObj, VmsCtlrManager->FLists)
  99. {
  100. if (pObj->DEL_YN == "Y") continue;
  101. nRow = m_pGDC->AppendRecord();
  102. m_pGDC->Values[nRow][ColumnSel->Index] = false;
  103. m_pGDC->Values[nRow][Column00->Index] = "-";
  104. m_pGDC->Values[nRow][Column01->Index] = String(pObj->VMS_CTLR_NMBR);
  105. m_pGDC->Values[nRow][Column02->Index] = pObj->VMS_CTLR_ID;
  106. m_pGDC->Values[nRow][Column03->Index] = pObj->VMS_NM;
  107. m_pGDC->Values[nRow][Column04->Index] = APP_GetCodeName(CbType, pObj->VMS_TYPE_CD);
  108. //m_pGDC->Values[nRow][Column05->Index] = APP_GetCodeName(CbUsagType, pObj->VMS_USAG_TYPE_CD);
  109. #if 0
  110. EdWebCamPort->Text = AObj->WEB_CMRA_PORT;
  111. EdWebCamId->Text = AObj->WEB_CMRA_ID;
  112. EdWebCamPswd->Text = AObj->WEB_CMRA_PWD;
  113. EdWebCamStrm->Text = AObj->STRM_SESN_NM;
  114. #endif
  115. m_pGDC->Values[nRow][Column06->Index] = pObj->VMS_CTLR_IP;
  116. //m_pGDC->Values[nRow][Column07->Index] = pObj->VMS_CMNC_PORT;
  117. m_pGDC->Values[nRow][Column08->Index] = pObj->PANL_ON_TIME;
  118. m_pGDC->Values[nRow][Column09->Index] = pObj->PANL_OFF_TIME;
  119. m_pGDC->Values[nRow][Column10->Index] = pObj->WEB_CMRA_IP;
  120. m_pGDC->Values[nRow][Column13->Index] = pObj->VMS_MAX_PHSE_NUM;
  121. m_pGDC->Values[nRow][Column14->Index] = pObj->VMS_CTLR_LOCAL_NO;
  122. m_pGDC->Values[nRow][Column99->Index] = (int)pObj;
  123. m_pGDC->Values[nRow][Column11->Index] = pObj->VMS_CTLR_NMBR;
  124. m_pGDC->Values[nRow][Column12->Index] = pObj->VMS_CTLR_ID;
  125. }
  126. }
  127. __finally
  128. {
  129. VmsCtlrManager->FLists.UnLock();
  130. }
  131. }
  132. __finally
  133. {
  134. LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
  135. TvList->EndUpdate();
  136. Column01->SortIndex = Column01->Index;
  137. Column01->SortOrder = soAscending;
  138. TvList->DataController->GotoFirst();
  139. TvList->DataController->FocusedRecordIndex = 0;
  140. }
  141. }
  142. //---------------------------------------------------------------------------
  143. void __fastcall TFRAMEVmsList::BtnAllSelectClick(TObject *Sender)
  144. {
  145. TcxButton *pBtn = (TcxButton*)Sender;
  146. CMM_CheckAllListItem(TvList, ColumnSel->Index, pBtn->Tag);
  147. }
  148. //---------------------------------------------------------------------------
  149. int __fastcall TFRAMEVmsList::GetSelIds(String &ALinkIds)
  150. {
  151. ALinkIds = "";
  152. if (TvList->ViewData->RecordCount <= 0) return 0;
  153. int nIndex = m_pGDC->FocusedRecordIndex;
  154. if( nIndex < 0 )
  155. return 0;
  156. String sLinkId = VarToStr(m_pGDC->Values[nIndex][Column01->Index]);
  157. ALinkIds = sLinkId;
  158. return 1;
  159. }
  160. //---------------------------------------------------------------------------
  161. int __fastcall TFRAMEVmsList::GetSelIds(TStringList *AStringList)
  162. {
  163. int nSelCnt = 0;
  164. try
  165. {
  166. TvList->BeginUpdate();
  167. int nRowCnt = TvList->ViewData->RecordCount;
  168. for (int ii = 0; ii < nRowCnt; ii++)
  169. {
  170. TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
  171. if (((bool)ARow->Values[ColumnSel->Index]))
  172. {
  173. AStringList->Add(ARow->Values[Column01->Index]);
  174. nSelCnt++;
  175. }
  176. }
  177. }
  178. __finally
  179. {
  180. TvList->EndUpdate();
  181. }
  182. return nSelCnt;
  183. }
  184. //---------------------------------------------------------------------------
  185. void __fastcall TFRAMEVmsList::TvListDataControllerFilterChanged(TObject *Sender)
  186. {
  187. LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
  188. }
  189. //---------------------------------------------------------------------------
  190. void __fastcall TFRAMEVmsList::BtnExlSaveClick(TObject *Sender)
  191. {
  192. TcxGrid *pGrid = CxList;
  193. TcxGridTableView *pView = TvList;
  194. String sTitle= FTitle;//"VMSÁ¤º¸";
  195. CMM_ExportToExcelFile(sTitle, pGrid, pView, (TForm*)this);
  196. }
  197. //---------------------------------------------------------------------------
  198. void __fastcall TFRAMEVmsList::OnCloseQuery(bool &CanClose)
  199. {
  200. }
  201. //---------------------------------------------------------------------------