sqsd_set.dfm

完成虚拟的多功能电能表

object sqsdForm: TsqsdForm
  Left = 208
  Top = 250
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '时区时段设置'
  ClientHeight = 205
  ClientWidth = 516
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  Icon.Data = {
    0000010001001010000000000000680500001600000028000000100000002000
    0000010008000000000040010000000000000000000000000000000000000000
    00009191D7008F8FD3005858AD008C8CCC008B8BC8008888C1008585B9008383
    B6008080AF007F7FAB002D2D7800F4F4F400F9F9F900BEBEBE0046465600F2F2
    F200EDEDED00E9E9E900F8F8F800F7F7F700F0F0F000EBEBEB00E8E8E800E7E7
    E70086868600BBBBBB00E6E6E600E2E2E200EFEFEF00ECECEC00EAEAEA00E5E5
    E500E3E3E300E0E0E000DFDFDF00B2B2B200ACACAC00E4E4E400DBDBDB00E1E1
    E100DCDCDC00A2A2A2009D9D9D00DADADA0032323200DEDEDE00D9D9D900D8D8
    D800B6B6B6007A7A7A00FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000323232323232323232322D3110000026
    210E222E1A2929252F302D313100000F1B0E0F280E0F23240F2C2D2D2D00000E
    0E190E0E190E1A192425192A2B00001E160E171B0E26261A282325292700000F
    160E0F1B0E0F260E0F23240F2700000E0E190E0E190E0E190E1A192425000015
    1D0E1E1F0E17170E20211A222300000F100E0F110E0F160E0F1B0E0F1C00000E
    0E190E0E190E0E190E0E190E1A000013140E0C100E15150E11160E171800000C
    0D0E0C0C0E0F100E0F110E0F1200000B0B0B0B0B0B0B0B0B0B0B0B0B0B000001
    0203040503060603070803090A00000000000000000000000000000000008000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
    Left = 281
    Top = 16
    Width = 35
    Height = 149
  end
  object SpeedButton4: TSpeedButton
    Left = 282
    Top = 17
    Width = 33
    Height = 41
    Caption = '全清'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
      555557777F777555F55500000000555055557777777755F75555005500055055
      555577F5777F57555555005550055555555577FF577F5FF55555500550050055
      5555577FF77577FF555555005050110555555577F757777FF555555505099910
      555555FF75777777FF555005550999910555577F5F77777775F5500505509990
      3055577F75F77777575F55005055090B030555775755777575755555555550B0
      B03055555F555757575755550555550B0B335555755555757555555555555550
      BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
      50BB555555555555575F555555555555550B5555555555555575}
    Layout = blGlyphTop
    NumGlyphs = 2
    OnClick = SpeedButton4Click
  end
  object SpeedButton5: TSpeedButton
    Left = 282
    Top = 123
    Width = 33
    Height = 41
    Caption = '删除'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333FF33333333333330003333333333333777333333333333
      300033FFFFFF3333377739999993333333333777777F3333333F399999933333
      3300377777733333337733333333333333003333333333333377333333333333
      3333333333333333333F333333333333330033333F33333333773333C3333333
      330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
      993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
      333333377F33333333FF3333C333333330003333733333333777333333333333
      3000333333333333377733333333333333333333333333333333}
    Layout = blGlyphTop
    NumGlyphs = 2
    OnClick = SpeedButton5Click
  end
  object SpeedButton6: TSpeedButton
    Left = 436
    Top = 171
    Width = 69
    Height = 24
    Caption = '取消'
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333000033338833333333333333333F333333333333
      0000333911833333983333333388F333333F3333000033391118333911833333
      38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
      911118111118333338F3338F833338F3000033333911111111833333338F3338
      3333F8330000333333911111183333333338F333333F83330000333333311111
      8333333333338F3333383333000033333339111183333333333338F333833333
      00003333339111118333333333333833338F3333000033333911181118333333
      33338333338F333300003333911183911183333333383338F338F33300003333
      9118333911183333338F33838F338F33000033333913333391113333338FF833
      38F338F300003333333333333919333333388333338FFF830000333333333333
      3333333333333333333888330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton6Click
  end
  object SpeedButton7: TSpeedButton
    Left = 361
    Top = 171
    Width = 69
    Height = 24
    Caption = '确认'
    Enabled = False
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton7Click
  end
  object GroupBox1: TGroupBox
    Left = 9
    Top = 11
    Width = 267
    Height = 71
    Caption = ' 时区 '
    TabOrder = 0
    object Label4: TLabel
      Left = 8
      Top = 32
      Width = 48
      Height = 12
      Caption = '起始日期'
    end
    object Label5: TLabel
      Left = 108
      Top = 32
      Width = 12
      Height = 12
      Caption = '月'
    end
    object Label6: TLabel
      Left = 176
      Top = 32
      Width = 12
      Height = 12
      Caption = '日'
    end
    object SpeedButton1: TSpeedButton
      Left = 194
      Top = 26
      Width = 64
      Height = 24
      Caption = '增加'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333FF33333333FF333993333333300033377F3333333777333993333333
        300033F77FFF3333377739999993333333333777777F3333333F399999933333
        33003777777333333377333993333333330033377F3333333377333993333333
        3333333773333333333F333333333333330033333333F33333773333333C3333
        330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
        993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
        333333333337733333FF3333333C333330003333333733333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object ComboBox1: TComboBox
      Left = 60
      Top = 28
      Width = 46
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      Items.Strings = (
        '01'
        '02'
        '03'
        '04'
        '05'
        '06'
        '07'
        '08'
        '09'
        '10'
        '11'
        '12')
    end
    object ComboBox2: TComboBox
      Left = 128
      Top = 28
      Width = 46
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      Items.Strings = (
        '01'
        '02'
        '03'
        '04'
        '05'
        '06'
        '07'
        '08'
        '09'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16'
        '17'
        '18'
        '19'
        '20'
        '21'
        '22'
        '23'
        '24'
        '25'
        '26'
        '27'
        '28'
        '29'
        '30'
        '31'
        '')
    end
  end
  object GroupBox2: TGroupBox
    Left = 9
    Top = 96
    Width = 267
    Height = 99
    Caption = ' 时段 '
    TabOrder = 1
    object Label7: TLabel
      Left = 62
      Top = 30
      Width = 24
      Height = 12
      Caption = '费率'
    end
    object Label8: TLabel
      Left = 127
      Top = 30
      Width = 48
      Height = 12
      Caption = '起始时间'
    end
    object SpeedButton2: TSpeedButton
      Left = 194
      Top = 46
      Width = 64
      Height = 24
      Caption = '增加'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333FF33333333FF333993333333300033377F3333333777333993333333
        300033F77FFF3333377739999993333333333777777F3333333F399999933333
        33003777777333333377333993333333330033377F3333333377333993333333
        3333333773333333333F333333333333330033333333F33333773333333C3333
        330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
        993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
        333333333337733333FF3333333C333330003333333733333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton2Click
    end
    object ComboBox3: TComboBox
      Left = 60
      Top = 48
      Width = 46
      Height = 20
      ItemHeight = 12
      TabOrder = 0
      Text = '峰'
      Items.Strings = (
        '尖'
        '峰'
        '平'
        '谷')
    end
    object DateTimePicker1: TDateTimePicker
      Left = 128
      Top = 48
      Width = 52
      Height = 20
      CalAlignment = dtaLeft
      Date = 37837.4166666667
      Time = 37837.4166666667
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkTime
      ParseInput = False
      TabOrder = 1
    end
  end
  object ListBox2: TListBox
    Left = 316
    Top = 16
    Width = 189
    Height = 149
    ItemHeight = 12
    TabOrder = 2
  end
  object CheckBox1: TCheckBox
    Left = 282
    Top = 175
    Width = 59
    Height = 17
    Hint = 'DL/T 645规约适用'
    Caption = '块写入'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    Visible = False
    OnClick = CheckBox1Click
  end
end