object TAS0070M: TTAS0070M Left = 0 Top = 0 HorzScrollBar.Visible = False VertScrollBar.Visible = False Caption = #44036#49440#46020#47196#48324' '#48516#49437 ClientHeight = 824 ClientWidth = 1576 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 = ( 1576 824) PixelsPerInch = 96 TextHeight = 17 object ShpTitle: TShape Left = 4 Top = 4 Width = 1568 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 = 1568 Height = 768 Anchors = [akLeft, akTop, akRight, akBottom] Pen.Color = 10849679 Pen.Width = 2 ExplicitWidth = 1436 ExplicitHeight = 766 end object BtnClose: TcxButton Left = 1482 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 = 1550 Height = 755 Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvNone ParentBackground = False ParentColor = True TabOrder = 2 object cxGroupBox2: TcxGroupBox Left = 0 Top = 0 Align = alTop Caption = #9654' '#44160#49353' '#51312#44148 Style.BorderColor = clCaptionText Style.Shadow = False Style.TextColor = clWindowText Style.TextStyle = [fsBold] TabOrder = 0 Height = 99 Width = 1550 object Label1: TLabel Left = 31 Top = 26 Width = 26 Height = 17 Alignment = taRightJustify Caption = #51068#51088 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False Transparent = True end object ImgDesc03: TImage Left = 12 Top = 30 Width = 9 Height = 9 Transparent = True end object Label2: TLabel Left = 31 Top = 59 Width = 26 Height = 17 Alignment = taRightJustify Caption = #46020#47196 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False Transparent = True end object ImgDesc02: TImage Left = 12 Top = 63 Width = 9 Height = 9 Transparent = True end object Label3: TLabel Left = 407 Top = 26 Width = 26 Height = 17 Alignment = taRightJustify Caption = #50836#51068 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False Transparent = True end object ImgDesc01: TImage Left = 388 Top = 30 Width = 9 Height = 9 Transparent = True end object Label4: TLabel Left = 767 Top = 26 Width = 26 Height = 17 Alignment = taRightJustify Caption = #49884#44036 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False Transparent = True Visible = False end object ImgDesc04: TImage Left = 748 Top = 30 Width = 9 Height = 9 Transparent = True Visible = False end object Label5: TLabel Left = 407 Top = 59 Width = 26 Height = 17 Alignment = taRightJustify Caption = #48169#54693 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False Transparent = True end object ImgDesc05: TImage Left = 388 Top = 63 Width = 9 Height = 9 Transparent = True end object Label6: TLabel Left = 620 Top = 59 Width = 52 Height = 17 Alignment = taRightJustify Caption = #51312#54924#44592#51456 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #47569#51008' '#44256#46357 Font.Style = [fsBold] ParentFont = False Transparent = True end object ImgDesc06: TImage Left = 606 Top = 63 Width = 9 Height = 9 Transparent = True end object BtnSearch: TcxButton Left = 876 Top = 57 Width = 80 Height = 25 Cursor = crHandPoint Hint = #51312#54924 Caption = #51312#54924 Colors.Default = 10737865 TabOrder = 2 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 CbTable: TcxComboBox Left = 1003 Top = 26 Cursor = crHandPoint Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Properties.DropDownListStyle = lsFixedList Properties.DropDownSizeable = True Properties.HideSelection = False Properties.Items.Strings = ( #54364#51456#47553#53356 #51221#48372#51228#44277#44396#44036'('#49436#48708#49828#47553#53356')') Properties.ReadOnly = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebsUltraFlat Style.LookAndFeel.Kind = lfUltraFlat Style.LookAndFeel.NativeStyle = False Style.ButtonStyle = btsUltraFlat Style.PopupBorderStyle = epbsFlat StyleDisabled.LookAndFeel.Kind = lfUltraFlat StyleDisabled.LookAndFeel.NativeStyle = False StyleFocused.LookAndFeel.Kind = lfUltraFlat StyleFocused.LookAndFeel.NativeStyle = False StyleFocused.TextColor = clBlack StyleFocused.TextStyle = [fsBold] StyleHot.LookAndFeel.Kind = lfUltraFlat StyleHot.LookAndFeel.NativeStyle = False TabOrder = 1 Text = #51221#48372#51228#44277#44396#44036'('#49436#48708#49828#47553#53356')' Visible = False Width = 214 end object DtStDay: TDateTimePicker Left = 65 Top = 23 Width = 149 Height = 25 BevelInner = bvNone BevelOuter = bvNone BevelKind = bkFlat Date = 39924.557697118050000000 Format = ' yyyy'#45380' MM'#50900' dd'#51068 Time = 39924.557697118050000000 DoubleBuffered = True ImeName = 'Microsoft Office IME 2007' ParentDoubleBuffered = False ParentShowHint = False ShowHint = True TabOrder = 0 end object DtEdDay: TDateTimePicker Left = 220 Top = 23 Width = 149 Height = 25 BevelInner = bvNone BevelOuter = bvNone BevelKind = bkFlat Date = 39924.557697118050000000 Format = ' yyyy'#45380' MM'#50900' dd'#51068 Time = 39924.557697118050000000 DoubleBuffered = True ImeName = 'Microsoft Office IME 2007' ParentDoubleBuffered = False ParentShowHint = False ShowHint = True TabOrder = 3 end object ChkWeek7: TcxCheckBox Left = 444 Top = 24 Cursor = crHandPoint Caption = #51068 TabOrder = 4 Transparent = True Width = 42 end object ChkWeek1: TcxCheckBox Left = 484 Top = 24 Cursor = crHandPoint Caption = #50900 TabOrder = 5 Transparent = True Width = 42 end object ChkWeek2: TcxCheckBox Left = 524 Top = 24 Cursor = crHandPoint Caption = #54868 TabOrder = 6 Transparent = True Width = 42 end object ChkWeek3: TcxCheckBox Left = 564 Top = 24 Cursor = crHandPoint Caption = #49688 TabOrder = 7 Transparent = True Width = 42 end object ChkWeek4: TcxCheckBox Left = 604 Top = 24 Cursor = crHandPoint Caption = #47785 TabOrder = 8 Transparent = True Width = 42 end object ChkWeek5: TcxCheckBox Left = 644 Top = 24 Cursor = crHandPoint Caption = #44552 TabOrder = 9 Transparent = True Width = 42 end object ChkWeek6: TcxCheckBox Left = 684 Top = 24 Cursor = crHandPoint Caption = #53664 TabOrder = 10 Transparent = True Width = 42 end object CbStHour: TcxComboBox Left = 799 Top = 23 Cursor = crHandPoint Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Properties.DropDownListStyle = lsFixedList Properties.DropDownRows = 23 Properties.HideSelection = False Properties.Items.Strings = ( ' 00'#49884 ' 01'#49884 ' 02'#49884 ' 03'#49884 ' 04'#49884 ' 05'#49884 ' 06'#49884 ' 07'#49884 ' 08'#49884 ' 09'#49884 ' 10'#49884 ' 11'#49884 ' 12'#49884 ' 13'#49884 ' 14'#49884 ' 15'#49884 ' 16'#49884 ' 17'#49884 ' 18'#49884 ' 19'#49884 ' 20'#49884 ' 21'#49884 ' 22'#49884 ' 23'#49884) Properties.ReadOnly = False Properties.OnChange = CbStHourPropertiesChange Style.BorderColor = clWindowFrame Style.BorderStyle = ebsUltraFlat Style.LookAndFeel.Kind = lfUltraFlat Style.LookAndFeel.NativeStyle = False Style.ButtonStyle = btsUltraFlat Style.PopupBorderStyle = epbsFlat StyleDisabled.LookAndFeel.Kind = lfUltraFlat StyleDisabled.LookAndFeel.NativeStyle = False StyleFocused.LookAndFeel.Kind = lfUltraFlat StyleFocused.LookAndFeel.NativeStyle = False StyleFocused.TextColor = clBlack StyleFocused.TextStyle = [fsBold] StyleHot.LookAndFeel.Kind = lfUltraFlat StyleHot.LookAndFeel.NativeStyle = False TabOrder = 11 Text = ' 00'#49884 Width = 75 end object CbEdHour: TcxComboBox Left = 877 Top = 23 Cursor = crHandPoint Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter Properties.DropDownListStyle = lsFixedList Properties.DropDownRows = 23 Properties.HideSelection = False Properties.Items.Strings = ( ' 00'#49884 ' 01'#49884 ' 02'#49884 ' 03'#49884 ' 04'#49884 ' 05'#49884 ' 06'#49884 ' 07'#49884 ' 08'#49884 ' 09'#49884 ' 10'#49884 ' 11'#49884 ' 12'#49884 ' 13'#49884 ' 14'#49884 ' 15'#49884 ' 16'#49884 ' 17'#49884 ' 18'#49884 ' 19'#49884 ' 20'#49884 ' 21'#49884 ' 22'#49884 ' 23'#49884) Properties.ReadOnly = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebsUltraFlat Style.LookAndFeel.Kind = lfUltraFlat Style.LookAndFeel.NativeStyle = False Style.ButtonStyle = btsUltraFlat Style.PopupBorderStyle = epbsFlat StyleDisabled.LookAndFeel.Kind = lfUltraFlat StyleDisabled.LookAndFeel.NativeStyle = False StyleFocused.LookAndFeel.Kind = lfUltraFlat StyleFocused.LookAndFeel.NativeStyle = False StyleFocused.TextColor = clBlack StyleFocused.TextStyle = [fsBold] StyleHot.LookAndFeel.Kind = lfUltraFlat StyleHot.LookAndFeel.NativeStyle = False TabOrder = 12 Text = ' 00'#49884 Width = 75 end object EdAtrd: TcxButtonEdit Left = 65 Top = 57 Cursor = crHandPoint Properties.Buttons = < item Caption = #49440#53469 Default = True Kind = bkEllipsis end> Properties.ReadOnly = True Properties.OnButtonClick = EdAtrdPropertiesButtonClick TabOrder = 13 Text = '['#51204#52404']' Width = 304 end object ChkDn: TcxCheckBox Left = 499 Top = 59 Cursor = crHandPoint Caption = #54616#54665 TabOrder = 14 Transparent = True Width = 54 end object ChkUp: TcxCheckBox Left = 445 Top = 59 Cursor = crHandPoint Caption = #49345#54665 TabOrder = 15 Transparent = True Width = 54 end object rdoHour: TcxRadioButton Left = 693 Top = 59 Width = 51 Height = 17 Cursor = crHandPoint Caption = #49884#44036 Checked = True TabOrder = 16 TabStop = True Transparent = True end object rdoWeek: TcxRadioButton Left = 751 Top = 59 Width = 57 Height = 17 Cursor = crHandPoint Caption = #50836#51068 TabOrder = 17 Transparent = True end end object PgTab: TcxPageControl Left = 0 Top = 99 Width = 1550 Height = 656 Align = alClient Focusable = False TabOrder = 1 Properties.ActivePage = TsList01 Properties.CloseButtonMode = cbmEveryTab Properties.HotTrack = True Properties.TabPosition = tpBottom Properties.TabSlants.Positions = [spRight] TabSlants.Positions = [spRight] OnCanCloseEx = PgTabCanCloseEx OnDblClick = PgTabDblClick ClientRectBottom = 625 ClientRectLeft = 2 ClientRectRight = 1545 ClientRectTop = 2 object TsList01: TcxTabSheet Caption = #44160#49353#44208#44284 ImageIndex = 2 end end end object TmrShow: TTimer Enabled = False Interval = 300 OnTimer = TmrShowTimer Left = 708 Top = 8 end end