//--------------------------------------------------------------------------- #include #include "ITSSkinF.h" #include "ITSUtilF.h" #include "FrmResourceF.h" #include "ITSLangTransF.h" #pragma hdrstop #include "FRAME_IncidentAutoListF.h" #include "CDSNodeF.h" #include "CDSLinkF.h" #include "CDSIncidentF.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "cxCalc" #pragma link "cxClasses" #pragma link "cxControls" #pragma link "cxCustomData" #pragma link "cxData" #pragma link "cxDataStorage" #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 "cxStyles" #pragma link "dxSkinBlack" #pragma link "dxSkinBlue" #pragma link "dxSkinsCore" #pragma link "dxSkinscxPCPainter" #pragma link "dxSkinMcSkin" #pragma resource "*.dfm" //TFRAMEIncidentAutoList *FRAMEIncidentAutoList; //--------------------------------------------------------------------------- __fastcall TFRAMEIncidentAutoList::TFRAMEIncidentAutoList(TComponent* Owner) : TFrame(Owner) { LangTrans->Translate(this, ITSDb_GetConnection()); //TvList2->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<ÇöÀç ¹ß»ýÇÑ ÀÚµ¿µ¹¹ßÁ¤º¸°¡ ¾ø½À´Ï´Ù>"; #if 0 FCodeIST = ItsCodeManager->FLists.Find("IST"); //µ¹¹ß»óȲ ¿øº» ÄÚµå : IST FCodeLTCU = ItsCodeManager->FLists.Find("LTCU");//LTCU"); //¼ÒÅë µî±Þ ÄÚµå : LTCU FCodeICM = ItsCodeManager->FLists.Find("ICM"); //µ¹¹ß»óȲ È®ÀÎ ¹æ¹ý ÄÚµå : ICM FCodeIDTU = ItsCodeManager->FLists.Find("IDTU"); //µ¹¹ß»óȲ À¯Çü ºÐ·ù ÄÚµå : IDTU FCodeACTU = ItsCodeManager->FLists.Find("ACTU"); //µ¹¹ß»óȲ À¯Çü ÄÚµå : ACTU, CRTU, EVTU, WETU Áß Çϳª FCodeCRTU = ItsCodeManager->FLists.Find("CRTU"); //µ¹¹ß»óȲ À¯Çü ÄÚµå : ACTU, CRTU, EVTU, WETU Áß Çϳª FCodeEVTU = ItsCodeManager->FLists.Find("EVTU"); //µ¹¹ß»óȲ À¯Çü ÄÚµå : ACTU, CRTU, EVTU, WETU Áß Çϳª FCodeWETU = ItsCodeManager->FLists.Find("WETU"); //µ¹¹ß»óȲ À¯Çü ÄÚµå : ACTU, CRTU, EVTU, WETU Áß Çϳª FCodeSRLU = ItsCodeManager->FLists.Find("SRLU"); //µ¹¹ß»óȲ ½É°¢µµ ÄÚµå : SRLU FCodePRTU = ItsCodeManager->FLists.Find("PRTU"); //ÅëÇà Á¦ÇÑ À¯Çü ÄÚµå : PRTU FCodeRSL = ItsCodeManager->FLists.Find("RSL"); //´ëÀÀ ¼öÁØ ÄÚµå : RSL FCodeISS = ItsCodeManager->FLists.Find("ISS"); //µ¹¹ß»óȲ ÁøÇà ´Ü°è ÄÚµå : ISS FCodeICM = ItsCodeManager->FLists.Find("ICM"); //µ¹¹ß»óȲ Á¾·á È®ÀÎ ¹æ¹ý ÄÚµå : ICM FCodeDFW = ItsCodeManager->FLists.Find("DFW"); //±â»ó ÄÚµå : DFW FCodeVIT = ItsCodeManager->FLists.Find("VIT"); //VMS µ¹¹ß À¯Çü ÄÚµå : VIT FCodeIDT = ItsCodeManager->FLists.Find("IDT"); //VMS µ¹¹ß À¯Çü ¼¼ºÎ ÄÚµå : IDT FCodeEDT = ItsCodeManager->FLists.Find("EDT"); //VMS µ¹¹ß À¯Çü ¼¼ºÎ ÄÚµå : EDT #endif } //--------------------------------------------------------------------------- void __fastcall TFRAMEIncidentAutoList::UpdateList() { CMM_ClearGridTableView(TvList2); TcxDataController *pGDC = TvList2->DataController; int nRow = 0; try { TvList2->BeginUpdate(); try { ItsIncidentManager->FAutoLists.Lock(); FOR_STL(TItsAutoIncident *, pObj, ItsIncidentManager->FAutoLists) { if (pObj->REAL_YN == "Y") continue; nRow = pGDC->AppendRecord(); pGDC->Values[nRow][ColumnA01->Index] = pObj->LINK_ID; //¸µÅ©ID pGDC->Values[nRow][ColumnA02->Index] = ITSUtil_StrToDateTime(pObj->DETC_DT); //°ËÁö ÀϽà pGDC->Values[nRow][ColumnA03->Index] = pObj->CLCT_SPED_AVRG; //¼öÁý ¼Óµµ Æò±Õ pGDC->Values[nRow][ColumnA04->Index] = pObj->ESTM_SPED_AVRG; //¿¹»ó ¼Óµµ Æò±Õ pGDC->Values[nRow][ColumnA05->Index] = pObj->REAL_YN; //»ç½Ç ¿©ºÎ pGDC->Values[nRow][ColumnA06->Index] = pObj->LINK_ID; //¸µÅ©ID pGDC->Values[nRow][ColumnA07->Index] = pObj->ROAD_NAME; //µµ·Î¸í pGDC->Values[nRow][ColumnA08->Index] = pObj->STNAME; //½ÃÁ¡¸í pGDC->Values[nRow][ColumnA09->Index] = pObj->EDNAME; //Á¾Á¡¸í pGDC->Values[nRow][ColumnA99->Index] = (int)pObj; } } __finally { ItsIncidentManager->FAutoLists.UnLock(); } } __finally { TvList2->EndUpdate(); TvList2->DataController->GotoFirst(); TvList2->DataController->FocusedRecordIndex = 0; } } //---------------------------------------------------------------------------