123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635 |
- object VMSM650M: TVMSM650M
- Left = 0
- Top = 0
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- BorderIcons = [biSystemMenu, biMinimize]
- Caption = 'VMS '#49828#52992#51572' '#50836#51068#48324' '#49444#51221
- ClientHeight = 369
- ClientWidth = 1104
- Color = clBtnFace
- 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
- OnCreate = FormCreate
- OnShow = FormShow
- DesignSize = (
- 1104
- 369)
- PixelsPerInch = 96
- TextHeight = 17
- object ShpTitle: TShape
- Left = 4
- Top = 4
- Width = 1096
- Height = 40
- Anchors = [akLeft, akTop, akRight]
- Brush.Color = 14671839
- Pen.Color = 10849679
- Pen.Width = 2
- Visible = False
- 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
- Visible = False
- end
- object ShpList: TShape
- Left = 4
- Top = 4
- Width = 1096
- Height = 359
- Anchors = [akLeft, akTop, akRight, akBottom]
- Pen.Color = 10849679
- Pen.Width = 2
- ExplicitWidth = 966
- ExplicitHeight = 741
- end
- object EdFocus: TEdit
- Left = -10
- Top = -10
- Width = 2
- Height = 25
- ImeName = 'Microsoft Office IME 2007'
- TabOrder = 0
- Text = 'EdFocus'
- end
- object PanelBack: TPanel
- Left = 12
- Top = 10
- Width = 1078
- Height = 348
- Anchors = [akLeft, akTop, akRight, akBottom]
- BevelOuter = bvNone
- ParentBackground = False
- ParentColor = True
- TabOrder = 1
- object PnlMenu: TPanel
- Left = 0
- Top = 310
- Width = 1078
- Height = 38
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 0
- DesignSize = (
- 1078
- 38)
- object BtnClose: TcxButton
- Left = 867
- Top = 7
- Width = 100
- Height = 25
- Cursor = crHandPoint
- Hint = #52712#49548
- Anchors = [akRight, akBottom]
- Caption = #52712#49548
- 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 = BtnClosexClick
- end
- object BtnSave: TcxButton
- Tag = 4
- Left = 974
- Top = 7
- Width = 100
- Height = 25
- Cursor = crHandPoint
- Hint = #54364#52636#44396#44036#51012' '#49444#51221' '#54633#45768#45796'.'
- Anchors = [akRight, akBottom]
- Caption = #54869#51064
- Colors.Default = 10737865
- TabOrder = 1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = #47569#51008' '#44256#46357
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = BtnSaveClick
- end
- end
- object cxGroupBox1: TcxGroupBox
- Left = 0
- Top = 0
- Align = alTop
- Anchors = [akLeft, akTop, akRight, akBottom]
- Caption = #9654' '#50836#51068#48324' '#49828#52992#51572
- Style.BorderColor = clCaptionText
- Style.Shadow = False
- Style.TextColor = clWindowText
- Style.TextStyle = [fsBold]
- TabOrder = 1
- DesignSize = (
- 1078
- 298)
- Height = 305
- Width = 1078
- object CxList: TcxGrid
- Left = 3
- Top = 83
- Width = 1072
- Height = 198
- Anchors = [akLeft, akTop, akRight, akBottom]
- TabOrder = 0
- object TvList: TcxGridTableView
- Navigator.Buttons.Append.Visible = True
- Navigator.Buttons.SaveBookmark.Visible = False
- Navigator.InfoPanel.Visible = True
- FilterBox.CustomizeDialog = False
- DataController.Summary.DefaultGroupSummaryItems = <>
- DataController.Summary.FooterSummaryItems = <>
- DataController.Summary.SummaryGroups = <>
- FilterRow.InfoText = '<'#44160#49353#50612#47484' '#51077#47141' '#54616#49464#50836'>'
- OptionsBehavior.CellHints = True
- OptionsBehavior.ShowLockedStateImageOptions.BestFit = lsimImmediate
- OptionsBehavior.ShowLockedStateImageOptions.Filtering = lsimImmediate
- OptionsBehavior.ShowLockedStateImageOptions.Grouping = lsimImmediate
- OptionsBehavior.ShowLockedStateImageOptions.Sorting = lsimImmediate
- OptionsCustomize.ColumnFiltering = False
- OptionsCustomize.ColumnMoving = False
- OptionsCustomize.ColumnSorting = False
- OptionsData.Deleting = False
- OptionsData.DeletingConfirmation = False
- OptionsData.Inserting = False
- OptionsSelection.HideFocusRectOnExit = False
- OptionsSelection.HideSelection = True
- OptionsView.ColumnAutoWidth = True
- OptionsView.GroupByBox = False
- OptionsView.Indicator = True
- object ColWeek: TcxGridColumn
- Caption = #50836#51068
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 134
- end
- object ColumnSel: TcxGridColumn
- Caption = #49440#53469
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- Visible = False
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- Width = 45
- end
- object Col00: TcxGridColumn
- Caption = '00'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn2: TcxGridColumn
- Caption = '01'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn3: TcxGridColumn
- Caption = '02'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn4: TcxGridColumn
- Caption = '03'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn5: TcxGridColumn
- Caption = '04'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn6: TcxGridColumn
- Caption = '05'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn7: TcxGridColumn
- Caption = '06'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn8: TcxGridColumn
- Caption = '07'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn9: TcxGridColumn
- Caption = '08'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn10: TcxGridColumn
- Caption = '09'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn11: TcxGridColumn
- Caption = '10'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn12: TcxGridColumn
- Caption = '11'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn13: TcxGridColumn
- Caption = '12'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn14: TcxGridColumn
- Caption = '13'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn15: TcxGridColumn
- Caption = '14'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn16: TcxGridColumn
- Caption = '15'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn17: TcxGridColumn
- Caption = '16'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn18: TcxGridColumn
- Caption = '17'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn19: TcxGridColumn
- Caption = '18'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn20: TcxGridColumn
- Caption = '19'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn21: TcxGridColumn
- Caption = '20'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn22: TcxGridColumn
- Caption = '21'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn23: TcxGridColumn
- Caption = '22'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object TvListColumn24: TcxGridColumn
- Caption = '23'
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- OnCustomDrawCell = Col00CustomDrawCell
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 35
- Width = 35
- end
- object ColCheck: TcxGridColumn
- Caption = #49440#53469'/'#54644#51228
- DataBinding.ValueType = 'Boolean'
- PropertiesClassName = 'TcxCheckBoxProperties'
- Properties.Alignment = taCenter
- Properties.ImmediatePost = True
- Properties.NullStyle = nssUnchecked
- Properties.OnEditValueChanged = ColCheckPropertiesEditValueChanged
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- MinWidth = 65
- Width = 65
- end
- object ColCode: TcxGridColumn
- Caption = #50836#51068#53076#46300
- PropertiesClassName = 'TcxLabelProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- Visible = False
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- VisibleForCustomization = False
- end
- end
- object GlList: TcxGridLevel
- GridView = TvList
- end
- end
- end
- end
- object BtnSearch: TcxButton
- Left = 922
- Top = 11
- Width = 80
- Height = 25
- Cursor = crHandPoint
- Hint = #51312#54924
- Anchors = [akTop, akRight]
- Caption = #51312#54924
- Colors.Default = 10737865
- LookAndFeel.NativeStyle = False
- TabOrder = 2
- Visible = False
- 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 EdObjId: TcxMaskEdit
- Left = 546
- Top = 11
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- Properties.MaskKind = emkRegExpr
- Properties.MaxLength = 0
- Style.LookAndFeel.NativeStyle = False
- StyleDisabled.LookAndFeel.NativeStyle = False
- StyleFocused.LookAndFeel.NativeStyle = False
- StyleHot.LookAndFeel.NativeStyle = False
- TabOrder = 3
- Text = '0'
- Visible = False
- Width = 56
- end
- object EdFormId: TcxTextEdit
- Left = 649
- Top = 11
- ImeMode = imSAlpha
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- Properties.ImeMode = imSAlpha
- Properties.MaxLength = 0
- Properties.ReadOnly = True
- Style.LookAndFeel.Kind = lfUltraFlat
- Style.LookAndFeel.NativeStyle = False
- Style.Shadow = False
- StyleDisabled.LookAndFeel.Kind = lfUltraFlat
- StyleDisabled.LookAndFeel.NativeStyle = False
- StyleFocused.LookAndFeel.Kind = lfUltraFlat
- StyleFocused.LookAndFeel.NativeStyle = False
- StyleHot.LookAndFeel.Kind = lfUltraFlat
- StyleHot.LookAndFeel.NativeStyle = False
- TabOrder = 4
- Text = '10000'
- Visible = False
- Width = 83
- end
- object BtnClosex: TcxButton
- Left = 1010
- Top = 11
- Width = 80
- Height = 25
- Cursor = crHandPoint
- Hint = #45803#44592
- Anchors = [akTop, akRight]
- Caption = #45803#44592
- Colors.Default = 10737865
- TabOrder = 5
- Visible = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = #47569#51008' '#44256#46357
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = BtnClosexClick
- end
- object TmrShow: TTimer
- Enabled = False
- Interval = 300
- OnTimer = TmrShowTimer
- Left = 820
- Top = 8
- end
- end
|