123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229 |
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #include "ITSSkinF.h"
- #include "ITSUtilF.h"
- #include "AppGlobalF.h"
- #include "ITSLangTransF.h"
- #include "CDSCodeF.h"
- #include "CDSVmsCtlrF.h"
- #pragma hdrstop
- #include "FRAME_VmsListF.h"
- //---------------------------------------------------------------------------
- #pragma package(smart_init)
- #pragma link "cxButtons"
- #pragma link "cxCalc"
- #pragma link "cxCheckBox"
- #pragma link "cxClasses"
- #pragma link "cxContainer"
- #pragma link "cxControls"
- #pragma link "cxCustomData"
- #pragma link "cxData"
- #pragma link "cxDataStorage"
- #pragma link "cxDropDownEdit"
- #pragma link "cxEdit"
- #pragma link "cxFilter"
- #pragma link "cxGraphics"
- #pragma link "cxGrid"
- #pragma link "cxGridCustomTableView"
- #pragma link "cxGridCustomView"
- #pragma link "cxGridLevel"
- #pragma link "cxGridTableView"
- #pragma link "cxLabel"
- #pragma link "cxLookAndFeelPainters"
- #pragma link "cxLookAndFeels"
- #pragma link "cxMaskEdit"
- #pragma link "cxStyles"
- #pragma link "cxTextEdit"
- #pragma link "dxSkinBlue"
- #pragma link "dxSkinsCore"
- #pragma link "dxSkinscxPCPainter"
- #pragma link "dxSkinBlack"
- #pragma link "dxSkinCaramel"
- #pragma link "dxSkinCoffee"
- #pragma link "dxSkinDarkRoom"
- #pragma link "dxSkinDarkSide"
- #pragma link "dxSkinFoggy"
- #pragma link "dxSkinGlassOceans"
- #pragma link "dxSkiniMaginary"
- #pragma link "dxSkinLilian"
- #pragma link "dxSkinLiquidSky"
- #pragma link "dxSkinLondonLiquidSky"
- #pragma link "dxSkinMcSkin"
- #pragma link "dxSkinMoneyTwins"
- #pragma link "dxSkinOffice2007Black"
- #pragma link "dxSkinOffice2007Blue"
- #pragma link "dxSkinOffice2007Green"
- #pragma link "dxSkinOffice2007Pink"
- #pragma link "dxSkinOffice2007Silver"
- #pragma link "dxSkinOffice2010Black"
- #pragma link "dxSkinOffice2010Blue"
- #pragma link "dxSkinOffice2010Silver"
- #pragma link "dxSkinSeven"
- #pragma link "dxSkinSharp"
- #pragma link "dxSkinSilver"
- #pragma link "dxSkinStardust"
- #pragma link "cxSpinEdit"
- #pragma resource "*.dfm"
- //TFRAMEVmsList *FRAMEVmsList;
- //---------------------------------------------------------------------------
- __fastcall TFRAMEVmsList::TFRAMEVmsList(TComponent* Owner)
- : TFrame(Owner)
- {
- LangTrans->Translate(this, ITSDb_GetConnection());
- m_pGDC = TvList->DataController;
- //TvList->OptionsView->NoDataToDisplayInfoText = "<VMS Á¤º¸°¡ ¾ø½À´Ï´Ù>";
- Column05->Visible = false;
- Column06->Visible = false;
- Column07->Visible = false;
- Column08->Visible = false;
- Column09->Visible = false;
- Column10->Visible = false;
- Column11->Visible = false;
- Column13->Visible = false;
- //APP_FillCode(CbUsagType, "VUT");
- APP_FillVmsSizeType(CbType);
- FTitle = lblTitle->Caption;
- }
- //---------------------------------------------------------------------------
- void __fastcall TFRAMEVmsList::UpdateList()
- {
- CMM_ClearGridTableView(TvList);
- int nRow = 0;
- TvList->BeginUpdate();
- try
- {
- VmsCtlrManager->FLists.Lock();
- try
- {
- FOR_STL(TVmsCtlr*, pObj, VmsCtlrManager->FLists)
- {
- if (pObj->DEL_YN == "Y") continue;
- nRow = m_pGDC->AppendRecord();
- m_pGDC->Values[nRow][ColumnSel->Index] = false;
- m_pGDC->Values[nRow][Column00->Index] = "-";
- m_pGDC->Values[nRow][Column01->Index] = String(pObj->VMS_CTLR_NMBR);
- m_pGDC->Values[nRow][Column02->Index] = pObj->VMS_CTLR_ID;
- m_pGDC->Values[nRow][Column03->Index] = pObj->VMS_NM;
- m_pGDC->Values[nRow][Column04->Index] = APP_GetCodeName(CbType, pObj->VMS_TYPE_CD);
- //m_pGDC->Values[nRow][Column05->Index] = APP_GetCodeName(CbUsagType, pObj->VMS_USAG_TYPE_CD);
- #if 0
- EdWebCamPort->Text = AObj->WEB_CMRA_PORT;
- EdWebCamId->Text = AObj->WEB_CMRA_ID;
- EdWebCamPswd->Text = AObj->WEB_CMRA_PWD;
- EdWebCamStrm->Text = AObj->STRM_SESN_NM;
- #endif
- m_pGDC->Values[nRow][Column06->Index] = pObj->VMS_CTLR_IP;
- //m_pGDC->Values[nRow][Column07->Index] = pObj->VMS_CMNC_PORT;
- m_pGDC->Values[nRow][Column08->Index] = pObj->PANL_ON_TIME;
- m_pGDC->Values[nRow][Column09->Index] = pObj->PANL_OFF_TIME;
- m_pGDC->Values[nRow][Column10->Index] = pObj->WEB_CMRA_IP;
- m_pGDC->Values[nRow][Column13->Index] = pObj->VMS_MAX_PHSE_NUM;
- m_pGDC->Values[nRow][Column14->Index] = pObj->VMS_CTLR_LOCAL_NO;
- m_pGDC->Values[nRow][Column99->Index] = (int)pObj;
- m_pGDC->Values[nRow][Column11->Index] = pObj->VMS_CTLR_NMBR;
- m_pGDC->Values[nRow][Column12->Index] = pObj->VMS_CTLR_ID;
- }
- }
- __finally
- {
- VmsCtlrManager->FLists.UnLock();
- }
- }
- __finally
- {
- LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
- TvList->EndUpdate();
- Column01->SortIndex = Column01->Index;
- Column01->SortOrder = soAscending;
- TvList->DataController->GotoFirst();
- TvList->DataController->FocusedRecordIndex = 0;
- }
- }
- //---------------------------------------------------------------------------
- void __fastcall TFRAMEVmsList::BtnAllSelectClick(TObject *Sender)
- {
- TcxButton *pBtn = (TcxButton*)Sender;
- CMM_CheckAllListItem(TvList, ColumnSel->Index, pBtn->Tag);
- }
- //---------------------------------------------------------------------------
- int __fastcall TFRAMEVmsList::GetSelIds(String &ALinkIds)
- {
- ALinkIds = "";
- if (TvList->ViewData->RecordCount <= 0) return 0;
- int nIndex = m_pGDC->FocusedRecordIndex;
- if( nIndex < 0 )
- return 0;
- String sLinkId = VarToStr(m_pGDC->Values[nIndex][Column01->Index]);
- ALinkIds = sLinkId;
- return 1;
- }
- //---------------------------------------------------------------------------
- int __fastcall TFRAMEVmsList::GetSelIds(TStringList *AStringList)
- {
- int nSelCnt = 0;
- try
- {
- TvList->BeginUpdate();
- int nRowCnt = TvList->ViewData->RecordCount;
- for (int ii = 0; ii < nRowCnt; ii++)
- {
- TcxCustomGridRow* ARow = TvList->ViewData->Rows[ii];
- if (((bool)ARow->Values[ColumnSel->Index]))
- {
- AStringList->Add(ARow->Values[Column01->Index]);
- nSelCnt++;
- }
- }
- }
- __finally
- {
- TvList->EndUpdate();
- }
- return nSelCnt;
- }
- //---------------------------------------------------------------------------
- void __fastcall TFRAMEVmsList::TvListDataControllerFilterChanged(TObject *Sender)
- {
- LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
- }
- //---------------------------------------------------------------------------
- void __fastcall TFRAMEVmsList::BtnExlSaveClick(TObject *Sender)
- {
- TcxGrid *pGrid = CxList;
- TcxGridTableView *pView = TvList;
- String sTitle= FTitle;//"VMSÁ¤º¸";
- CMM_ExportToExcelFile(sTitle, pGrid, pView, (TForm*)this);
- }
- //---------------------------------------------------------------------------
- void __fastcall TFRAMEVmsList::OnCloseQuery(bool &CanClose)
- {
- }
- //---------------------------------------------------------------------------
|