cs.~dfm

这是一个电力多功能电表的参数设置工具软件

object frmCs: TfrmCs
  Left = 148
  Top = 122
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'DT(S)SD22-SD参数卡设置'
  ClientHeight = 312
  ClientWidth = 433
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    000000000000330077000000000000000000000000003B077070000000000000
    000000000000BB807007000000000000000000000300B0007000700000000000
    00000000330070070700070000000000000000003B0700700070007000000000
    00000000BB800700000700070000000000000300B00070000000700070000000
    0000330070070000000007000700000000003B07007000000000007007000000
    0000BB800700000000000007070000000300B000700000000070000077000000
    330070070000000007000000803300003B070070000000000000000800330000
    BB8007000000000000000080BBBB0300B000700000000070000008000BB03300
    70070000000707000000803300003B070070000000707000000800330000BB80
    07000000070700000080BBBB0000B000700000000070000008000BB000007007
    0000000007000000803300000000707000007770000000080033000000008700
    0007070700000080BBBB00000000080000077777000008000BB0000000000080
    0007070700008033000000000000000800007770000800330000000000000000
    800000000080BBBB00000000000000000800000008000BB00000000000000000
    0080000080330000000000000000000000080008003300000000000000000000
    00008080BBBB00000000000000000000000008000BB00000000000000000FFFF
    33FFFFFF21FFFFFF00FFFFFB007FFFF3003FFFF2001FFFF0000FFFB00007FF30
    0003FF200003FF000003FB000003F3000000F2000000F0000010B00000393000
    000F2000000F0000010F0000039F000000FF000000FF000010FF800039FFC000
    0FFFE0000FFFF0010FFFF8039FFFFC00FFFFFE00FFFFFF10FFFFFFB9FFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 433
    Height = 288
    Align = alClient
  end
  object SpeedButton1: TSpeedButton
    Left = 328
    Top = 224
    Width = 89
    Height = 41
    Caption = '设置清零卡权限'
    Flat = True
    Glyph.Data = {
      36040000424D3604000000000000360000002800000010000000100000000100
      2000000000000004000000000000000000000000000000000000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF0000000000FF00FF0000000000C0C0C000C0C0C000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF0080808000C0C0C000C0C0C00000000000C0C0C000C0C0C000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF0080808000C0C0C000C0C0C00080808000C0C0C000C0C0C000FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00808080000080800000000000FF00FF00FF00
      FF0000000000C0C0C000C0C0C00000000000C0C0C000C0C0C000FF00FF00FF00
      FF00FF00FF00FF00FF000080800000FFFF008080800000000000FF00FF00FF00
      FF0080808000C0C0C000C0C0C000FFFFFF00C0C0C000C0C0C000FF00FF00FF00
      FF00FF00FF000000000000FFFF008080800000808000FF00FF00FF00FF00FF00
      FF0000000000C0C0C000C0C0C00080808000C0C0C00080808000FF00FF00FF00
      FF0000FFFF0000FFFF008080800000808000FF00FF00FF00FF00FF00FF00FF00
      FF00FFFFFF00C0C0C00080808000C0C0C000FFFFFF00C0C0C000000000000000
      000000FFFF008080800000808000FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF008080800080808000C0C0C0000000000080808000808080008080800000FF
      FF008080800000808000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF008080
      8000C0C0C000FFFFFF000000000000FFFF0000FFFF0000FFFF0000FFFF00C0C0
      C00000808000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0080808000C0C0
      C000FFFFFF00FFFFFF0000FFFF0000FFFF000000000000000000C0C0C000C0C0
      C00000808000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FFFFFF00C0C0
      C000FFFFFF008080800000FFFF0000FFFF0000FFFF000000000000000000C0C0
      C00000808000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FFFFFF00C0C0
      C00000000000FFFFFF0000FFFF0000000000FF00FF000000000000000000C0C0
      C00000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0080808000C0C0
      C00000000000808080008080800000000000808080000000000000FFFF000080
      8000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF008080
      8000FFFFFF0000000000C0C0C00000000000C0C0C000C0C0C00000000000FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF0000000000C0C0C000C0C0C00000000000FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
    Layout = blGlyphTop
    OnClick = SpeedButton1Click
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 56
    Width = 285
    Height = 225
    Caption = '电卡类型'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object GroupBox4: TGroupBox
      Left = 55
      Top = 156
      Width = 216
      Height = 55
      TabOrder = 3
      object Label1: TLabel
        Left = 12
        Top = 24
        Width = 48
        Height = 12
        Caption = '电卡类型'
      end
      object cboIcType: TComboBox
        Left = 60
        Top = 18
        Width = 151
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 0
        Items.Strings = (
          '复制卡'
          '清零卡'
          '计量值清零卡'
          '需量值清零卡'
          '计量误差值修正卡'
          '失压失流清零卡')
      end
    end
    object GroupBox3: TGroupBox
      Left = 56
      Top = 24
      Width = 215
      Height = 121
      TabOrder = 0
      object spbCs: TSpeedButton
        Left = 127
        Top = 21
        Width = 22
        Height = 16
        Hint = '显示详细设置数据'
        GroupIndex = 1
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          555555555555555555555555555555555555555555FF55555555555559055555
          55555555577FF5555555555599905555555555557777F5555555555599905555
          555555557777FF5555555559999905555555555777777F555555559999990555
          5555557777777FF5555557990599905555555777757777F55555790555599055
          55557775555777FF5555555555599905555555555557777F5555555555559905
          555555555555777FF5555555555559905555555555555777FF55555555555579
          05555555555555777FF5555555555557905555555555555777FF555555555555
          5990555555555555577755555555555555555555555555555555}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = spbCsClick
      end
      object spbSd: TSpeedButton
        Left = 127
        Top = 45
        Width = 22
        Height = 16
        Hint = '显示详细设置数据'
        GroupIndex = 1
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          555555555555555555555555555555555555555555FF55555555555559055555
          55555555577FF5555555555599905555555555557777F5555555555599905555
          555555557777FF5555555559999905555555555777777F555555559999990555
          5555557777777FF5555557990599905555555777757777F55555790555599055
          55557775555777FF5555555555599905555555555557777F5555555555559905
          555555555555777FF5555555555559905555555555555777FF55555555555579
          05555555555555777FF5555555555557905555555555555777FF555555555555
          5990555555555555577755555555555555555555555555555555}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = spbSdClick
      end
      object spbSdxs: TSpeedButton
        Left = 127
        Top = 68
        Width = 22
        Height = 17
        Hint = '显示详细设置数据'
        GroupIndex = 1
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          555555555555555555555555555555555555555555FF55555555555559055555
          55555555577FF5555555555599905555555555557777F5555555555599905555
          555555557777FF5555555559999905555555555777777F555555559999990555
          5555557777777FF5555557990599905555555777757777F55555790555599055
          55557775555777FF5555555555599905555555555557777F5555555555559905
          555555555555777FF5555555555559905555555555555777FF55555555555579
          05555555555555777FF5555555555557905555555555555777FF555555555555
          5990555555555555577755555555555555555555555555555555}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = spbSdxsClick
      end
      object spbTdxs: TSpeedButton
        Left = 127
        Top = 94
        Width = 22
        Height = 16
        Hint = '显示详细设置数据'
        GroupIndex = 1
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          555555555555555555555555555555555555555555FF55555555555559055555
          55555555577FF5555555555599905555555555557777F5555555555599905555
          555555557777FF5555555559999905555555555777777F555555559999990555
          5555557777777FF5555557990599905555555777757777F55555790555599055
          55557775555777FF5555555555599905555555555557777F5555555555559905
          555555555555777FF5555555555559905555555555555777FF55555555555579
          05555555555555777FF5555555555557905555555555555777FF555555555555
          5990555555555555577755555555555555555555555555555555}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = spbTdxsClick
      end
      object spbTmp: TSpeedButton
        Left = 167
        Top = 93
        Width = 22
        Height = 16
        GroupIndex = 1
        Down = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          555555555555555555555555555555555555555555FF55555555555559055555
          55555555577FF5555555555599905555555555557777F5555555555599905555
          555555557777FF5555555559999905555555555777777F555555559999990555
          5555557777777FF5555557990599905555555777757777F55555790555599055
          55557775555777FF5555555555599905555555555557777F5555555555559905
          555555555555777FF5555555555559905555555555555777FF55555555555579
          05555555555555777FF5555555555557905555555555555777FF555555555555
          5990555555555555577755555555555555555555555555555555}
        NumGlyphs = 2
        Visible = False
      end
      object chkCs: TCheckBox
        Left = 48
        Top = 19
        Width = 69
        Height = 21
        Caption = '参数'
        TabOrder = 0
        OnClick = chkCsClick
      end
      object chkSd: TCheckBox
        Left = 48
        Top = 43
        Width = 61
        Height = 21
        Caption = '时段'
        TabOrder = 1
        OnClick = chkSdClick
      end
      object chkSdxs: TCheckBox
        Left = 48
        Top = 68
        Width = 73
        Height = 17
        Caption = '上电循显'
        TabOrder = 2
        OnClick = chkSdxsClick
      end
      object chkTdxs: TCheckBox
        Left = 48
        Top = 92
        Width = 73
        Height = 21
        Caption = '停电循显'
        TabOrder = 3
        OnClick = chkTdxsClick
      end
    end
    object radCs: TRadioButton
      Left = 32
      Top = 24
      Width = 89
      Height = 17
      Caption = '参数设置卡'
      Checked = True
      TabOrder = 1
      TabStop = True
    end
    object radFunction: TRadioButton
      Left = 32
      Top = 152
      Width = 83
      Height = 17
      Caption = '电表功能卡'
      TabOrder = 2
    end
  end
  object BitBtn1: TBitBtn
    Left = 328
    Top = 14
    Width = 89
    Height = 29
    Caption = '写卡(&O)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 328
    Top = 60
    Width = 89
    Height = 29
    Caption = '退出(&C)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn2Click
    Kind = bkCancel
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 8
    Width = 285
    Height = 41
    Caption = '通讯口'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object radCom1: TRadioButton
      Left = 48
      Top = 16
      Width = 57
      Height = 17
      Caption = 'COM1'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object radCom2: TRadioButton
      Left = 170
      Top = 16
      Width = 57
      Height = 17
      Caption = 'COM2'
      TabOrder = 1
    end
  end
  object sbarIc: TStatusBar
    Left = 0
    Top = 288
    Width = 433
    Height = 24
    Panels = <>
    SimplePanel = True
    SimpleText = '待命...'
  end
end