⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 xndgnb.dfm

📁 完成虚拟的多功能电能表
💻 DFM
📖 第 1 页 / 共 2 页
字号:
object xndgnbForm: TxndgnbForm
  Left = 193
  Top = 108
  Width = 633
  Height = 451
  AutoSize = True
  Caption = '虚拟多功能表'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Memo1: TMemo
    Left = 112
    Top = 24
    Width = 393
    Height = 233
    ScrollBars = ssBoth
    TabOrder = 5
    Visible = False
  end
  object ListBox1: TListBox
    Left = 0
    Top = 2
    Width = 193
    Height = 193
    ItemHeight = 12
    TabOrder = 4
    Visible = False
  end
  object Grid_flsj: TDataGrid
    Left = 4
    Top = 76
    Width = 189
    Height = 173
    ColCount = 2
    Ctl3D = False
    DefaultColWidth = 100
    DefaultRowHeight = 20
    FixedCols = 0
    RowCount = 8
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing]
    ParentCtl3D = False
    TabOrder = 7
    Visible = False
    Columns = <
      item
        Alignment = taCenter
        PickList.Strings = (
          '')
        Title.Alignment = taCenter
        Title.Caption = '费率号'
      end
      item
        Alignment = taCenter
        PickList.Strings = (
          '')
        Title.Alignment = taCenter
        Title.Caption = '起始时间'
      end>
    RowCountMin = 0
    SelectedIndex = 0
    Version = '2.0'
    ColWidths = (
      100
      78)
    RowHeights = (
      20
      20
      20
      20
      20
      20
      20
      20)
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 167
    Width = 625
    Height = 252
    Enabled = False
    TabOrder = 2
    OnDblClick = GroupBox3DblClick
    object SpeedButton9: TSpeedButton
      Left = 338
      Top = 192
      Width = 78
      Height = 50
      GroupIndex = 4
      Caption = '调整'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -20
      Font.Name = '黑体'
      Font.Style = [fsBold]
      Glyph.Data = {
        36060000424D3606000000000000360000002800000020000000100000000100
        1800000000000006000000000000000000000000000000000000008080008080
        0080800080800080800080800080800080800080800080800080800080800080
        8000808000808000808000808000808000808000808000808000808000808000
        8080008080008080008080008080008080008080FFFFFFFFFFFF008080008080
        0080800080800080800080800080800080800080800080800080800080800080
        80000000000000000000008080FFFFFFFFFFFF008080FFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFF0080800080800080800080807F7F7F7F7F7F7F7F7F000000000000
        0080800000000000000000000000000000000080800080800080800080800080
        800000000000000000007F7F7F7F7F7FFFFFFF7F7F7F7F7F7F7F7F7F7F7F7F7F
        7F7F008080FFFFFF0080800080800080807F7F7F7F7F7F7F7F7FFFFF00000000
        00000000FFFFFFFFFF00FFFFFFFFFF00FFFF0000000080800080800080800080
        800080800080800080807F7F7F7F7F7F7F7F7F008080008080008080008080FF
        FFFF7F7F7FFFFFFF008080008080008080008080008080FFFFFFFFFF00000000
        00FFFFFFFFFF00FFFFFFFFFF0000000000000000000080800080800080800080
        800080800000000000007F7F7F7F7F7FFFFFFF0080800080800080807F7F7F7F
        7F7F7F7F7F008080FFFFFF0080800080800080807F7F7F7F7F7FFFFF00000000
        FFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF0000000080800080800080
        800080800000000000007F7F7F7F7F7FFFFFFF008080008080008080008080FF
        FFFFFFFFFF7F7F7FFFFFFFFFFFFFFFFFFF0080807F7F7F7F7F7FFFFF00000000
        00FFFFFFFFFF00FFFFFFFFFF0000000000000000000000000000000000000080
        800080800080800080807F7F7F7F7F7FFFFFFF0080800080800080807F7F7F7F
        7F7F7F7F7F7F7F7F7F7F7F7F7F7F008080FFFFFF008080FFFFFFFFFF00000000
        FFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFF0000
        000080800000FF0000FF7F7F7F7F7F7FFFFFFF008080008080FFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7F7F0080807F7F7F7F7F7FFFFF00000000
        00FFFFFFFFFF0000000000000000000000000000000000000000000000000080
        800080800000FF0000FF7F7F7F7F7F7FFFFFFFFFFFFF7F7F7F7F7F7F7F7F7F7F
        7F7F7F7F7F7F7F7F7F7F7F7F7F7F0080800080807F7F7F7F7F7F000000000000
        00000000FFFFFFFFFF00FFFF0000000080800080800080800080800080800080
        800080800080800080807F7F7F7F7F7F7F7F7F008080FFFFFFFFFFFF7F7F7F00
        8080008080008080008080008080008080008080008080FFFFFF008080008080
        0080800000000000000000000080800080800080800080800080800080800080
        800080800000000000000080800080800080807F7F7F7F7F7F7F7F7F00808000
        80800080800080800080800080800080800080807F7F7F7F7F7F008080008080
        0080800080800080800080800080800080800080800080800080800080800080
        8000808000000000000000808000808000808000808000808000808000808000
        80800080800080800080800080800080800080807F7F7F7F7F7F008080008080
        0080800080800080800080800080800080800080800080800080800080800080
        8000808000808000808000808000808000808000808000808000808000808000
        8080008080008080008080008080008080008080FFFFFFFFFFFF008080008080
        0080800080800080800080800080800080800080800080800080800080800080
        8000000000000000000000808000808000808000808000808000808000808000
        80800080800080800080800080800080807F7F7F7F7F7F7F7F7F008080008080
        0080800080800080800080800080800080800080800080800080800080800080
        8000000000000000000000808000808000808000808000808000808000808000
        80800080800080800080800080800080807F7F7F7F7F7F7F7F7F008080008080
        0080800080800080800080800080800080800080800080800080800080800080
        8000808000808000808000808000808000808000808000808000808000808000
        8080008080008080008080008080008080008080008080008080}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      OnClick = SpeedButton9Click
    end
    object SpeedButton10: TSpeedButton
      Left = 425
      Top = 192
      Width = 79
      Height = 50
      GroupIndex = 4
      Down = True
      Caption = '停止'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -20
      Font.Name = '黑体'
      Font.Style = [fsBold]
      Glyph.Data = {
        36060000424D3606000000000000360000002800000020000000100000000100
        1800000000000006000000000000000000000000000000000000008080008080
        0080800080800080800080800080800080800080800080800080800080800080
        80008080008080008080008080008080008080008080008080008080FFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFF008080008080008080008080008080008080008080
        0080800080800080800000FF0000FF0000FF0000FF0000FF0080800080800080
        80008080008080008080008080008080008080008080FFFFFF7F7F7F7F7F7F7F
        7F7F7F7F7F7F7F7FFFFFFFFFFFFFFFFFFF008080008080008080008080008080
        0080800000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0080
        800080800080800080800080800080800080807F7F7F7F7F7F7F7F7F00808000
        80800080807F7F7F7F7F7F7F7F7FFFFFFFFFFFFF008080008080008080008080
        0000FF0000FF0000FF0080807F7F7F0000007F7F7F0080800000FF0000FF0000
        FF0080800080800080800080800080807F7F7F7F7F7F0080800080800080807F
        7F7FFFFFFF0080807F7F7F7F7F7F7F7F7FFFFFFFFFFFFF0080800080800000FF
        0000FF0000FF0080800080800000000000000000000080800080800000FF0000
        FF0000FF0080800080800080807F7F7F7F7F7F0080800080800080807F7F7F7F
        7F7F7F7F7FFFFFFF0080800080807F7F7F7F7F7FFFFFFF0080800080800000FF
        0000FF0080800080800080807F7F7F0000007F7F7F0080800080800080800000
        FF0000FF0080800080800080807F7F7F7F7F7F0080800080800080800080807F
        7F7F0080800080800080800080800080807F7F7FFFFFFFFFFFFF0000FF0000FF
        0080800080800080800080800080800080800080800080800080800080800080
        800000FF0000FF0080807F7F7F7F7F7FFFFFFF00808000808000808000808000
        8080FFFFFF0080800080800080800080807F7F7F7F7F7FFFFFFF0000FF0000FF
        0080800080800080800080800080800000000080800080800080800080800080
        800000FF0000FF0080807F7F7F7F7F7FFFFFFF0080800080800080800080807F
        7F7FFFFFFFFFFFFF0080800080800080800080807F7F7F0080800000FF0000FF
        0080800080800080800080807F7F7F0000007F7F7F0080800080800080800080
        800080800080800080807F7F7F7F7F7FFFFFFF0080800080800080807F7F7F7F
        7F7F7F7F7FFFFFFF0080800080800080800080800080800080800000FF0000FF
        0080800080800080800080800000800000000000800080800080800080800080
        800080800080800080807F7F7F7F7F7FFFFFFF0080800080800080807F7F7F7F
        7F7F7F7F7FFFFFFF008080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FF
        0080800080800080800080800000000000000000000080800000FF0000FF0000
        FF0000FF0000FF0080807F7F7F7F7F7FFFFFFFFFFFFF0080800080807F7F7F7F
        7F7F7F7F7FFFFFFF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFFFF0080800000FF
        0000FF0080800080800080800000000000000000000080800080800000FF0000
        FF0000FF0000FF0080800080807F7F7F008080FFFFFFFFFFFF0080807F7F7F7F
        7F7F7F7F7FFFFFFF0080807F7F7F7F7F7F7F7F7F7F7F7FFFFFFF0080800000FF
        0000FF0000FF0080800080800000000000000000000080800080800080800000
        FF0000FF0000FF0080800080807F7F7F7F7F7F008080FFFFFFFFFFFF7F7F7F7F
        7F7F7F7F7FFFFFFF008080FFFFFF7F7F7F7F7F7F7F7F7FFFFFFF008080008080
        0000FF0000FF0000FF0080807F7F7F0000007F7F7F0080800000FF0000FF0000
        FF0000FF0000FF0080800080800080807F7F7F7F7F7F008080FFFFFF0080807F
        7F7F008080FFFFFF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFFFF008080008080
        0080800000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0080
        800080800000FF0080800080800080800080807F7F7F7F7F7F7F7F7F00808000
        80800080807F7F7F7F7F7F7F7F7F0080800080807F7F7F008080008080008080
        0080800080800080800000FF0000FF0000FF0000FF0000FF0080800080800080
        800080800080800080800080800080800080800080800080807F7F7F7F7F7F7F
        7F7F7F7F7F7F7F7F008080008080008080008080008080008080}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      OnClick = SpeedButton10Click
    end
    object Grid3: TDataGrid
      Left = 4
      Top = 12
      Width = 613
      Height = 173
      ColCount = 11
      Ctl3D = False
      DefaultColWidth = 80
      DefaultRowHeight = 20
      RowCount = 8
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing]
      ParentCtl3D = False
      TabOrder = 0
      Columns = <
        item
          Alignment = taCenter
          PickList.Strings = (
            '')
          Title.Alignment = taCenter
          Title.Caption = '数据项'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '')
          Title.Alignment = taCenter
        end
        item
          Title.Alignment = taCenter
        end
        item
          Title.Alignment = taCenter
        end
        item
          Title.Alignment = taCenter
        end
        item
          Title.Alignment = taCenter
        end
        item
          Title.Alignment = taCenter
        end
        item
          Title.Alignment = taCenter
        end
        item
          Title.Alignment = taCenter
        end
        item
          Title.Alignment = taCenter
        end
        item
          Title.Alignment = taCenter
        end>
      RowCountMin = 0
      SelectedIndex = 1
      Version = '2.0'
      RowHeights = (
        20
        20
        20
        20
        20
        20
        20
        20)
    end
    object GroupBox7: TGroupBox
      Left = 8
      Top = 191
      Width = 91
      Height = 54
      Caption = '通讯表位'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object Combtxbw: TComboBox
        Left = 12
        Top = 22
        Width = 70
        Height = 20
        Style = csDropDownList
        ImeName = '点[开始程序]或Ctrl+Alt+W启动万能五笔'
        ItemHeight = 12
        TabOrder = 0
        Items.Strings = (
          '[全部]')
      end
    end
  end
  object GroupBox1: TGroupBox
    Left = 88
    Top = 28
    Width = 425
    Height = 69
    Caption = '检定信息参数'
    TabOrder = 0
    Visible = False
    object Grid1: TDataGrid
      Left = 9
      Top = 17
      Width = 408
      Height = 43
      ColCount = 9
      Ctl3D = False
      DefaultColWidth = 60
      DefaultRowHeight = 20
      FixedCols = 0
      RowCount = 2
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing]
      ParentCtl3D = False
      ScrollBars = ssNone
      TabOrder = 0
      Columns = <
        item
          Alignment = taCenter
          PickList.Strings = (
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7'
            '8'
            '9'
            '10'
            '11'
            '12'
            '13'
            '14'
            '15'
            '16')
          Title.Alignment = taCenter
          Title.Caption = '挂表数'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '单相'
            '三相四线'
            '三相三线')
          Title.Alignment = taCenter
          Title.Caption = '相线'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '57.7V'
            '100V'
            '220V'
            '380V')
          Title.Alignment = taCenter
          Title.Caption = '基本电压'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '0.1A'
            '0.5A'
            '1A'
            '1.5A'
            '2.5A'
            '5A'
            '10A'
            '15A'
            '20A'
            '30A')
          Title.Alignment = taCenter
          Title.Caption = '基本电流'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '0.2'
            '0.5'
            '1.0'
            '2.0'
            '0.2S'
            '0.5S')
          Title.Alignment = taCenter
          Title.Caption = '有功等级'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '0.2'
            '0.5'
            '1.0'
            '2.0'
            '0.2S'
            '0.5S')
          Title.Alignment = taCenter
          Title.Caption = '无功等级'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '485'
            '232')
          Title.Alignment = taCenter
          Title.Caption = '通讯方式'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            'Com1'
            'Com2'
            'Com3'
            'Com4')
          Title.Alignment = taCenter
          Title.Caption = '通讯端口'
        end
        item
          Alignment = taCenter
          Title.Alignment = taCenter
          Title.Caption = ' 缩放比例'
        end>
      RowCountMin = 0
      SelectedIndex = 0
      Version = '2.0'
      ColWidths = (
        50
        41
        38
        45
        42
        40
        60
        60
        60)
    end
    object BitBtn1: TBitBtn
      Left = 599
      Top = 24
      Width = 81
      Height = 30
      Caption = '确认参数[&Q]'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 10
    Width = 625
    Height = 153
    TabOrder = 1
    object Grid2: TDataGrid
      Left = 4
      Top = 11
      Width = 525
      Height = 127
      ColCount = 8
      Ctl3D = False
      DefaultColWidth = 50
      DefaultRowHeight = 17
      FixedColor = 15269887
      RowCount = 7
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowMoving, goColMoving, goEditing, goAlwaysShowEditor]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      OnSetEditText = Grid2SetEditText
      Columns = <
        item
          Alignment = taCenter
          Title.Alignment = taCenter
          Title.Caption = 'NO.'
        end
        item
          Alignment = taCenter
          Title.Alignment = taCenter
          Title.Caption = '表地址'
        end
        item
          LimitToList = True
          PickList.Strings = (
            'DL/T 645'
            'IEC 1107'
            'IEC Alpha'
            '恒通规约'
            '威胜规约 v4.x'
            '浙江规约'
            '红相规约')
          Title.Alignment = taCenter
          Title.Caption = '通讯规约'
        end
        item
          Alignment = taCenter
          Title.Alignment = taCenter
          Title.Caption = '编程密码'

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -