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

📄 xndgnb.dfm

📁 完成虚拟的多功能电能表
💻 DFM
📖 第 1 页 / 共 2 页
字号:
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7'
            '8'
            '9')
          Title.Alignment = taCenter
          Title.Caption = '权限'
        end
        item
          Alignment = taCenter
          Title.Alignment = taCenter
          Title.Caption = '清零密码'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7'
            '8'
            '9')
          Title.Alignment = taCenter
          Title.Caption = '权限'
        end
        item
          Alignment = taCenter
          PickList.Strings = (
            '300'
            '600'
            '1200'
            '2400'
            '4800'
            '9600'
            '19200'
            '38400')
          Title.Alignment = taCenter
          Title.Caption = '波特率'
        end>
      RowCountMin = 0
      SelectedIndex = 1
      Version = '2.0'
      ColWidths = (
        24
        85
        88
        58
        31
        55
        26
        55)
    end
    object BitBtn2: TBitBtn
      Left = 535
      Top = 106
      Width = 81
      Height = 31
      Caption = '确认表信息'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn2Click
    end
    object CheckBox4: TCheckBox
      Left = 537
      Top = 54
      Width = 68
      Height = 17
      Caption = '相同权限'
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object CheckBox2: TCheckBox
      Left = 537
      Top = 18
      Width = 68
      Height = 17
      Caption = '相同规约'
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object CheckBox3: TCheckBox
      Left = 537
      Top = 36
      Width = 68
      Height = 17
      Caption = '相同密码'
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object CheckBox1: TCheckBox
      Left = 537
      Top = 73
      Width = 68
      Height = 17
      Caption = '相同速率'
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
  end
  object MSComm1: TMSComm
    Left = 393
    Top = 0
    Width = 32
    Height = 32
    OnComm = MSComm1Comm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040100
      00020100B00400000200080000000000000000003F00000011000000}
  end
  object Panel1: TPanel
    Left = 168
    Top = 90
    Width = 259
    Height = 252
    TabOrder = 3
    Visible = False
    object Label1: TLabel
      Left = 1
      Top = 1
      Width = 257
      Height = 12
      Align = alTop
      Alignment = taCenter
      Caption = '调整电压电流'
      Color = clActiveCaption
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object GroupBox8: TGroupBox
      Left = 10
      Top = 25
      Width = 239
      Height = 184
      Caption = '调整'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Shaptb: TShape
        Left = 232
        Top = 200
        Width = 9
        Height = 9
        Brush.Color = clLime
        Shape = stCircle
      end
      object GroupBox4: TGroupBox
        Left = 7
        Top = 21
        Width = 107
        Height = 112
        Caption = '电压(%)'
        TabOrder = 0
        object Label25: TLabel
          Left = 8
          Top = 26
          Width = 19
          Height = 16
          Caption = 'Ua'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label26: TLabel
          Left = 8
          Top = 54
          Width = 20
          Height = 16
          Caption = 'Ub'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label27: TLabel
          Left = 8
          Top = 81
          Width = 19
          Height = 16
          Caption = 'Uc'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object ua: TComboBox
          Left = 34
          Top = 24
          Width = 65
          Height = 20
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentFont = False
          TabOrder = 0
          Text = '100'
          Items.Strings = (
            '0.0'
            '80'
            '100')
        end
        object ub: TComboBox
          Left = 34
          Top = 52
          Width = 65
          Height = 20
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentFont = False
          TabOrder = 1
          Text = '100'
          Items.Strings = (
            '0.0'
            '80'
            '100')
        end
        object uc: TComboBox
          Left = 34
          Top = 80
          Width = 65
          Height = 20
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentFont = False
          TabOrder = 2
          Text = '100'
          Items.Strings = (
            '0.0'
            '80'
            '100')
        end
      end
      object GroupBox5: TGroupBox
        Left = 121
        Top = 21
        Width = 103
        Height = 112
        Caption = '电流(%)'
        TabOrder = 1
        object Label28: TLabel
          Left = 8
          Top = 26
          Width = 14
          Height = 16
          Caption = 'Ia'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label29: TLabel
          Left = 8
          Top = 55
          Width = 15
          Height = 16
          Caption = 'Ib'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label30: TLabel
          Left = 8
          Top = 82
          Width = 14
          Height = 16
          Caption = 'Ic'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object ia: TComboBox
          Left = 29
          Top = 24
          Width = 65
          Height = 20
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentFont = False
          TabOrder = 0
          Text = '100'
          Items.Strings = (
            '0.0'
            '5'
            '10'
            '20'
            '50'
            '80'
            '100'
            '120')
        end
        object ib: TComboBox
          Left = 29
          Top = 52
          Width = 65
          Height = 20
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentFont = False
          TabOrder = 1
          Text = '100'
          Items.Strings = (
            '0.0'
            '5'
            '10'
            '20'
            '50'
            '80'
            '100'
            '120')
        end
        object ic: TComboBox
          Left = 29
          Top = 80
          Width = 65
          Height = 20
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentFont = False
          TabOrder = 2
          Text = '100'
          Items.Strings = (
            '0.0'
            '5'
            '10'
            '20'
            '50'
            '80'
            '100'
            '120')
        end
      end
      object GroupBox6: TGroupBox
        Left = 7
        Top = 133
        Width = 217
        Height = 44
        TabOrder = 2
        object Label33: TLabel
          Left = 6
          Top = 16
          Width = 25
          Height = 16
          Caption = 'Cos'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label31: TLabel
          Left = 109
          Top = 17
          Width = 26
          Height = 13
          Caption = '方向'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Combxj: TComboBox
          Left = 34
          Top = 15
          Width = 65
          Height = 20
          Style = csDropDownList
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentFont = False
          TabOrder = 0
          Items.Strings = (
            '0.25L'
            '0.5L'
            '0.8L'
            '1.0 '
            '0.8C'
            '0.5C'
            '0.25C'
            '0L')
        end
        object Comfx: TComboBox
          Left = 137
          Top = 15
          Width = 72
          Height = 20
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentFont = False
          TabOrder = 1
          Items.Strings = (
            '有功正向'
            '有功反向'
            '无功正向'
            '无功反向')
        end
      end
    end
    object Cmd1: TButton
      Left = 52
      Top = 216
      Width = 59
      Height = 25
      Caption = '调幅'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Cmd1Click
    end
    object Button1: TButton
      Left = 119
      Top = 216
      Width = 59
      Height = 25
      Caption = '取消'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button1Click
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 360
  end
  object Timer2: TTimer
    Enabled = False
    OnTimer = Timer2Timer
    Left = 448
    Top = 8
  end
end

⌨️ 快捷键说明

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