ITS_OP/VmsOprMain/PLUGIN/VMS0010M/VMS0010MF.dfm

object VMS0010M: TVMS0010M
  Left = 0
  Top = 0
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'VMS '#51221#48372#51228#44277#44396#44036' '#54788#51116' '#49548#53685#51221#48372
  ClientHeight = 824
  ClientWidth = 1443
  Color = clBtnFace
  DoubleBuffered = True
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #47569#51008' '#44256#46357
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poOwnerFormCenter
  ShowHint = True
  OnClose = FormClose
  OnShow = FormShow
  DesignSize = (
    1443
    824)
  PixelsPerInch = 96
  TextHeight = 17
  object ShpTitle: TShape
    Left = 4
    Top = 4
    Width = 1435
    Height = 40
    Anchors = [akLeft, akTop, akRight]
    Brush.Color = 14671839
    Pen.Color = 10849679
    Pen.Width = 2
    ExplicitWidth = 1269
  end
  object LblCaption: TLabel
    Left = 16
    Top = 10
    Width = 267
    Height = 23
    Caption = #53440#51060#53952'                                    '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 4740964
    Font.Height = -17
    Font.Name = #47569#51008' '#44256#46357
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
  end
  object ShpList: TShape
    Left = 4
    Top = 50
    Width = 1435
    Height = 768
    Anchors = [akLeft, akTop, akRight, akBottom]
    Pen.Color = 10849679
    Pen.Width = 2
    ExplicitWidth = 1436
    ExplicitHeight = 766
  end
  object BtnClose: TcxButton
    Left = 1349
    Top = 11
    Width = 80
    Height = 25
    Cursor = crHandPoint
    Hint = #45803#44592
    Anchors = [akTop, akRight]
    Caption = #45803#44592
    Colors.Default = 10737865
    TabOrder = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #47569#51008' '#44256#46357
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = BtnCloseClick
  end
  object EdFocus: TEdit
    Left = -10
    Top = -10
    Width = 2
    Height = 25
    ImeName = 'Microsoft Office IME 2007'
    TabOrder = 1
    Text = 'EdFocus'
  end
  object PnlBack: TPanel
    Left = 12
    Top = 56
    Width = 1417
    Height = 755
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelOuter = bvNone
    ParentBackground = False
    ParentColor = True
    TabOrder = 2
    object cxGroupBox3: TcxGroupBox
      Left = 0
      Top = 0
      Align = alClient
      Caption = #9654' '#54788#51116' '#49548#53685#51221#48372
      Style.BorderColor = clCaptionText
      Style.Shadow = False
      Style.TextColor = clWindowText
      Style.TextStyle = [fsBold]
      TabOrder = 0
      Height = 755
      Width = 1417
      object CxList: TcxGrid
        Left = 3
        Top = 19
        Width = 1411
        Height = 726
        Align = alClient
        TabOrder = 0
        object TvVmsIfsc: TcxGridDBTableView
          DataController.DataSource = DSVmsIfsc
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          OptionsCustomize.ColumnsQuickCustomization = True
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.Indicator = True
          object TvVmsIfscColumn1: TcxGridDBColumn
            Caption = 'VMS '#48264#54840
            DataBinding.FieldName = 'VMS_CTLR_NMBR'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taCenter
            Properties.Alignment.Vert = taVCenter
            Visible = False
            GroupIndex = 0
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 50
          end
          object TvVmsIfscColumn2: TcxGridDBColumn
            Caption = 'VMS ID'
            DataBinding.FieldName = 'VMS_CTLR_ID'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taCenter
            Properties.Alignment.Vert = taVCenter
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
          end
          object TvVmsIfscColumn3: TcxGridDBColumn
            Caption = 'VMS '#47749
            DataBinding.FieldName = 'VMS_NM'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 150
          end
          object TvVmsIfscColumn4: TcxGridDBColumn
            Caption = #44396#44036' ID'
            DataBinding.FieldName = 'VMS_IFSC_ID'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taCenter
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 60
          end
          object TvVmsIfscColumn15: TcxGridDBColumn
            Caption = #44396#44036#44600#51060'(m)'
            DataBinding.FieldName = 'SECT_LNGT'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taRightJustify
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 80
          end
          object TvVmsIfscColumn5: TcxGridDBColumn
            Caption = #54364#52636#50864#49440#49692#50948
            DataBinding.FieldName = 'DSPL_PRRT'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taCenter
            Properties.Alignment.Vert = taVCenter
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
          end
          object TvVmsIfscColumn11: TcxGridDBColumn
            Caption = #46020#47196#47749
            DataBinding.FieldName = 'ROAD_NM'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Vert = taVCenter
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 150
          end
          object TvVmsIfscColumn6: TcxGridDBColumn
            Caption = #44396#44036#47749
            DataBinding.FieldName = 'VMS_IFSC_NM'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 180
          end
          object TvVmsIfscColumn7: TcxGridDBColumn
            Caption = #49884#51216#47749
            DataBinding.FieldName = 'DSPL_STRT_NODE_NM'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 180
          end
          object TvVmsIfscColumn8: TcxGridDBColumn
            Caption = #51333#51216#47749
            DataBinding.FieldName = 'DSPL_END_NODE_NM'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 180
          end
          object TvVmsIfscColumn17: TcxGridDBColumn
            Caption = #51648#51216#47749
            DataBinding.FieldName = 'SPOT_NM'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Vert = taVCenter
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
          end
          object TvVmsIfscColumn9: TcxGridDBColumn
            Caption = #50864#54924#46020#47196' ID'
            DataBinding.FieldName = 'DETR_ID'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taCenter
            Properties.Alignment.Vert = taVCenter
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            VisibleForCustomization = False
          end
          object TvVmsIfscColumn10: TcxGridDBColumn
            Caption = #52629
            DataBinding.FieldName = 'AXIS_YN'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taCenter
            Properties.Alignment.Vert = taVCenter
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
          end
          object TvVmsIfscColumn12: TcxGridDBColumn
            Caption = #44032#44277#49884#44033
            DataBinding.FieldName = 'PRCN_DT'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taCenter
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 150
          end
          object TvVmsIfscColumn16: TcxGridDBColumn
            Caption = #49548#53685#46321#44553
            DataBinding.FieldName = 'CMTR_GRAD_CD'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taCenter
            Properties.Alignment.Vert = taVCenter
            OnCustomDrawCell = TvVmsIfscColumn16CustomDrawCell
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 70
          end
          object TvVmsIfscColumn13: TcxGridDBColumn
            Caption = #49549#46020
            DataBinding.FieldName = 'SPED'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taRightJustify
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 50
          end
          object TvVmsIfscColumn14: TcxGridDBColumn
            Caption = #53685#54665#49884#44036'('#48516')'
            DataBinding.FieldName = 'TRVL_HH'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taRightJustify
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 80
          end
        end
        object TvIfsc: TcxGridDBTableView
          DataController.DataSource = DSIfsc
          DataController.DetailKeyFieldNames = 'VMS_IFSC_ID'
          DataController.MasterKeyFieldNames = 'VMS_IFSC_ID'
          DataController.Summary.DefaultGroupSummaryItems = <>
          DataController.Summary.FooterSummaryItems = <>
          DataController.Summary.SummaryGroups = <>
          OptionsCustomize.ColumnsQuickCustomization = True
          OptionsData.CancelOnExit = False
          OptionsData.Deleting = False
          OptionsData.DeletingConfirmation = False
          OptionsData.Editing = False
          OptionsData.Inserting = False
          OptionsView.GroupByBox = False
          OptionsView.Indicator = True
          object TvIfscColumn1: TcxGridDBColumn
            Caption = #44396#44036' ID'
            DataBinding.FieldName = 'VMS_IFSC_ID'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taCenter
            Properties.Alignment.Vert = taVCenter
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 60
          end
          object TvIfscColumn12: TcxGridDBColumn
            Caption = #49692#49436
            DataBinding.FieldName = 'ORD'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taCenter
            Properties.Alignment.Vert = taVCenter
            Width = 40
          end
          object TvIfscColumn11: TcxGridDBColumn
            Caption = #51228#44277#44396#44036' ID'
            DataBinding.FieldName = 'IFSC_ID'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taCenter
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 100
          end
          object TvIfscColumn2: TcxGridDBColumn
            Caption = #44396#44036#44600#51060'(m)'
            DataBinding.FieldName = 'SECT_LNGT'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taRightJustify
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 80
          end
          object TvIfscColumn3: TcxGridDBColumn
            Caption = #44396#44036#47749
            DataBinding.FieldName = 'IFSC_NM'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 180
          end
          object TvIfscColumn4: TcxGridDBColumn
            Caption = #49884#51216#47749
            DataBinding.FieldName = 'STRT_NM'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 180
          end
          object TvIfscColumn5: TcxGridDBColumn
            Caption = #51333#51216#47749
            DataBinding.FieldName = 'END_NM'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 180
          end
          object TvIfscColumn6: TcxGridDBColumn
            Caption = #44032#44277#49884#44033
            DataBinding.FieldName = 'PRCN_DT'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taCenter
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 150
          end
          object TvIfscColumn7: TcxGridDBColumn
            Caption = #49548#53685#46321#44553
            DataBinding.FieldName = 'CMTR_GRAD_CD'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taCenter
            Properties.Alignment.Vert = taVCenter
            OnCustomDrawCell = TvVmsIfscColumn16CustomDrawCell
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 70
          end
          object TvIfscColumn8: TcxGridDBColumn
            Caption = #49549#46020
            DataBinding.FieldName = 'SPED'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taRightJustify
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 50
          end
          object TvIfscColumn9: TcxGridDBColumn
            Caption = #53685#54665#49884#44036'('#52488')'
            DataBinding.FieldName = 'TRVL_HH'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taRightJustify
            Properties.Alignment.Vert = taVCenter
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 80
          end
          object TvIfscColumn10: TcxGridDBColumn
            Caption = #54056#53556#49549#46020
            DataBinding.FieldName = 'PTRN_SPED'
            PropertiesClassName = 'TcxLabelProperties'
            Properties.Alignment.Horz = taRightJustify
            Properties.Alignment.Vert = taVCenter
            Visible = False
            HeaderAlignmentHorz = taCenter
            HeaderAlignmentVert = vaCenter
            Width = 50
          end
        end
        object CxListLevel1: TcxGridLevel
          GridView = TvVmsIfsc
          object CxListLevel2: TcxGridLevel
            GridView = TvIfsc
          end
        end
      end
    end
  end
  object BtnSearch: TcxButton
    Left = 1262
    Top = 11
    Width = 80
    Height = 25
    Cursor = crHandPoint
    Hint = #51312#54924
    Anchors = [akTop, akRight]
    Caption = #51312#54924
    Colors.Default = 10737865
    TabOrder = 3
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #47569#51008' '#44256#46357
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = BtnSearchClick
  end
  object ChkExpand: TcxCheckBox
    Tag = 9
    Left = 1301
    Top = 89
    Cursor = crHandPoint
    Hint = #44536#47353' '#47785#47197' '#54869#51109' '#46608#45716' '#52712#49548
    Anchors = [akTop, akRight]
    Caption = #54869#51109'/'#52629#49548
    ParentBackground = False
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    State = cbsChecked
    Style.BorderColor = 9868950
    Style.BorderStyle = ebsThick
    Style.Color = 14671839
    Style.Shadow = False
    TabOrder = 4
    Transparent = True
    OnClick = ChkExpandClick
    Width = 85
  end
  object TmrShow: TTimer
    Enabled = False
    OnTimer = TmrShowTimer
    Left = 876
    Top = 8
  end
  object DSVmsIfsc: TDataSource
    AutoEdit = False
    DataSet = ADOVmsIfsc
    Left = 136
    Top = 176
  end
  object ADOVmsIfsc: TADOQuery
    LockType = ltReadOnly
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'SELECT A.VMS_CTLR_NMBR, A.VMS_CTLR_ID, A.VMS_NM,'
      '       B.VMS_IFSC_ID, B.DSPL_PRRT,'
      '       C.VMS_IFSC_NM, C.DSPL_STRT_NODE_NM, C.DSPL_END_NODE_NM,'
      '       C.DETR_ID, C.AXIS_YN, C.ROAD_NM, C.SPOT_NM, C.USE_YN,'
      
        '       TO_CHAR(TO_DATE(D.RGST_DT, '#39'YYYYMMDDHH24MISS'#39'), '#39'YYYY-MM-' +
        'DD HH24:MI:SS'#39') AS PRCN_DT,'
      '       D.SPED, D.TRVL_HH, '
      
        '       DECODE(D.CMTR_GRAD_CD, '#39'1'#39', '#39'1.'#49548#53685#50896#54876#39', '#39'2'#39', '#39'2.'#51648#52404#39', '#39'3'#39', '#39 +
        '3.'#51221#52404#39', '#39'0.'#51221#48372#50630#51020#39') AS CMTR_GRAD_CD,'
      '       E.SECT_LNGT'
      '  FROM TB_VMS_CTLR      A,'
      '       TB_VMS_RLTN_IFSC B,'
      '       TB_VMS_IFSC      C,'
      '       TB_VMS_IFSC_TRAF D,'
      '       (SELECT A.VMS_IFSC_ID, SUM(C.SECT_LNGT) AS SECT_LNGT'
      '          FROM TB_VMS_IFSC           A,'
      '               TB_VMS_IFSC_RLTN_IFSC B,'
      '               TB_IFSC               C'
      '         WHERE A.VMS_IFSC_ID = B.VMS_IFSC_ID'
      '           AND B.IFSC_ID     = C.IFSC_ID'
      '           AND A.USE_YN      = '#39'Y'#39
      '         GROUP BY A.VMS_IFSC_ID'
      '       ) E'
      ' WHERE A.DEL_YN        = '#39'N'#39
      '   AND A.VMS_CTLR_NMBR = B.VMS_CTLR_NMBR'
      '   AND B.VMS_IFSC_ID   = C.VMS_IFSC_ID'
      '   AND C.USE_YN        = '#39'Y'#39
      '   AND C.VMS_IFSC_ID   = D.VMS_IFSC_ID'
      '   AND D.VMS_IFSC_ID   = E.VMS_IFSC_ID'
      ' ORDER BY A.VMS_CTLR_NMBR, B.DSPL_PRRT')
    Left = 64
    Top = 176
  end
  object DSIfsc: TDataSource
    AutoEdit = False
    DataSet = ADOIfsc
    Left = 136
    Top = 240
  end
  object ADOIfsc: TADOQuery
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      
        'SELECT A.VMS_IFSC_ID, B.IFSC_ID, B.ORD, C.IFSC_NM, C.STRT_NM, C.' +
        'END_NM, C.SECT_LNGT, C.SECT_GRAD_CD,'
      
        '       TO_CHAR(TO_DATE(D.PRCN_DT, '#39'YYYYMMDDHH24MISS'#39'), '#39'YYYY-MM-' +
        'DD HH24:MI:SS'#39') AS PRCN_DT,'
      '       D.SPED, D.PTRN_SPED, D.TRVL_HH, '
      
        '       DECODE(D.CMTR_GRAD_CD, '#39'LTC1'#39', '#39'1.'#49548#53685#50896#54876#39', '#39'LTC2'#39', '#39'2.'#51648#52404#39', ' +
        #39'LTC3'#39', '#39'3.'#51221#52404#39', '#39'0.'#51221#48372#50630#51020#39') AS CMTR_GRAD_CD'
      '  FROM TB_VMS_IFSC           A,'
      '       TB_VMS_IFSC_RLTN_IFSC B,'
      '       TB_IFSC               C,'
      '       TB_IFSC_TRAF          D'
      ' WHERE A.USE_YN      = '#39'Y'#39
      '   AND A.VMS_IFSC_ID = B.VMS_IFSC_ID'
      '   AND B.IFSC_ID     = C.IFSC_ID'
      '   AND C.DEL_YN      = '#39'N'#39
      '   AND C.IFSC_ID     = D.IFSC_ID'
      ' ORDER BY A.VMS_IFSC_ID, B.ORD')
    Left = 64
    Top = 240
  end
end