123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183 |
- //---------------------------------------------------------------------------
- #include <vcl.h>
- #include "ITSSkinF.h"
- #include "ITSUtilF.h"
- #include "AppGlobalF.h"
- #include "ITSLangTransF.h"
- #include "CDSCodeF.h"
- #include "CDSVdsCtlrF.h"
- #pragma hdrstop
- #include "FRAME_VdsListF.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 resource "*.dfm"
- //TFRAMEVdsList *FRAMEVdsList;
- //---------------------------------------------------------------------------
- __fastcall TFRAMEVdsList::TFRAMEVdsList(TComponent* Owner)
- : TFrame(Owner)
- {
- LangTrans->Translate(this, ITSDb_GetConnection());
- m_pGDC = TvList->DataController;
- //TvList->OptionsView->NoDataToDisplayInfoText = "<VDS Á¤º¸°¡ ¾ø½À´Ï´Ù>";
- APP_FillCode(CbType, "VDST");
- FTitle = lblTitle->Caption;
- }
- //---------------------------------------------------------------------------
- void __fastcall TFRAMEVdsList::UpdateList(int AType/*=0*/)
- {
- CMM_ClearGridTableView(TvList);
- int nRow = 0;
- TvList->BeginUpdate();
- try
- {
- VdsCtlrManager->FLists.Lock();
- try
- {
- FOR_STL(TVdsCtlr*, pObj, VdsCtlrManager->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->VDS_CTLR_NMBR);
- m_pGDC->Values[nRow][Column02->Index] = pObj->VDS_CTLR_ID;
- m_pGDC->Values[nRow][Column03->Index] = pObj->VDS_NM;
- m_pGDC->Values[nRow][Column04->Index] = APP_GetCodeName(CbType, pObj->VDS_TYPE_CD);
- m_pGDC->Values[nRow][Column05->Index] = pObj->VDS_CTLR_IP;
- m_pGDC->Values[nRow][Column06->Index] = pObj->VDS_CTLR_PORT;
- m_pGDC->Values[nRow][Column07->Index] = String(pObj->GROUP_NO);
- m_pGDC->Values[nRow][Column08->Index] = String(pObj->DETECT_LANES);
- m_pGDC->Values[nRow][Column09->Index] = String(pObj->TRAF_CLCT_CYCL);
- m_pGDC->Values[nRow][Column10->Index] = String(pObj->STTS_CLCT_CYCL);
- m_pGDC->Values[nRow][Column11->Index] = String(pObj->VDS_CTLR_LOCAL_NO);
- m_pGDC->Values[nRow][Column99->Index] = (int)pObj;
- }
- }
- __finally
- {
- VdsCtlrManager->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 TFRAMEVdsList::BtnAllSelectClick(TObject *Sender)
- {
- TcxButton *pBtn = (TcxButton*)Sender;
- CMM_CheckAllListItem(TvList, ColumnSel->Index, pBtn->Tag);
- }
- //---------------------------------------------------------------------------
- int __fastcall TFRAMEVdsList::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 TFRAMEVdsList::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 TFRAMEVdsList::TvListDataControllerFilterChanged(TObject *Sender)
- {
- LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
- }
- //---------------------------------------------------------------------------
- void __fastcall TFRAMEVdsList::BtnExlSaveClick(TObject *Sender)
- {
- TcxGrid *pGrid = CxList;
- TcxGridTableView *pView = TvList;
- String sTitle= FTitle;//"VdsÁ¤º¸";
- CMM_ExportToExcelFile(sTitle, pGrid, pView, (TForm*)this);
- }
- //---------------------------------------------------------------------------
- void __fastcall TFRAMEVdsList::OnCloseQuery(bool &CanClose)
- {
- }
- //---------------------------------------------------------------------------
|