setu.dfm

这是个16路采集器的上位机源码。该套程序是由C++builder开发的

object SetFrm: TSetFrm
  Left = 236
  Top = 71
  BorderStyle = bsDialog
  Caption = #35774#32622
  ClientHeight = 556
  ClientWidth = 634
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label17: TLabel
    Left = 160
    Top = 64
    Width = 51
    Height = 13
    Caption = #26368#22823#20540'     '
  end
  object Label18: TLabel
    Left = 96
    Top = 64
    Width = 48
    Height = 13
    Caption = #26368#23567#20540'    '
  end
  object Label21: TLabel
    Left = 48
    Top = 507
    Width = 81
    Height = 22
    AutoSize = False
    Caption = #37319#38598#21608#26399'  '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label22: TLabel
    Left = 208
    Top = 507
    Width = 39
    Height = 16
    Caption = #27627#31186'   '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label23: TLabel
    Left = 192
    Top = 24
    Width = 152
    Height = 29
    Caption = #36890#36947#35774#32622'  '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label19: TLabel
    Left = 256
    Top = 344
    Width = 38
    Height = 13
    Caption = 'Label19'
  end
  object Label20: TLabel
    Left = 304
    Top = 64
    Width = 36
    Height = 13
    Caption = #21333#20301'    '
  end
  object Label24: TLabel
    Left = 376
    Top = 64
    Width = 90
    Height = 13
    Caption = #36755#20837#30005#21387#33539#22260'      '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Layout = tlBottom
  end
  object Label25: TLabel
    Left = 224
    Top = 64
    Width = 48
    Height = 13
    Caption = #26657#27491#20540'    '
  end
  object Label26: TLabel
    Left = 48
    Top = 64
    Width = 38
    Height = 13
    AutoSize = False
    Caption = #37327#31243
  end
  object Label27: TLabel
    Left = 296
    Top = 288
    Width = 38
    Height = 13
    Caption = 'Label27'
  end
  object Lab_SetVal: TLabel
    Left = 504
    Top = 64
    Width = 36
    Height = 13
    Caption = #36755#20986#20540
  end
  object Lab_ReSetVal: TLabel
    Left = 568
    Top = 64
    Width = 36
    Height = 13
    Caption = #24674#22797#20540
  end
  object Panel1: TPanel
    Left = 32
    Top = 80
    Width = 649
    Height = 33
    BevelOuter = bvNone
    Color = clSkyBlue
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 36
      Height = 13
      Caption = #36890#36947'1  '
    end
    object Edit1: TEdit
      Left = 56
      Top = 8
      Width = 60
      Height = 19
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = '0'
    end
    object Edit2: TEdit
      Left = 124
      Top = 8
      Width = 60
      Height = 19
      TabOrder = 1
      Text = '5'
    end
    object ComboBox1: TComboBox
      Left = 232
      Top = 8
      Width = 105
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 2
      Text = #30005#21387#65288'V'#65289
      Items.Strings = (
        #30005#21387#65288'V'#65289
        #30005#27969#65288'mA'#65289
        #28201#24230#65288#8451#65289
        #28287#24230#65288#65285#65289
        #21387#21147#65288'KPa'#65289
        '')
    end
    object ComboBox17: TComboBox
      Left = 344
      Top = 8
      Width = 105
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 3
      Text = '0~5V'
      Items.Strings = (
        '0~5V'
        '0~10V'
        '-5~5V'
        '1~5V')
    end
    object Edit34: TEdit
      Left = 190
      Top = 8
      Width = 33
      Height = 19
      TabOrder = 4
      Text = '0'
    end
    object Edt_SetVal_P1: TEdit
      Left = 464
      Top = 8
      Width = 65
      Height = 19
      TabOrder = 5
    end
    object Edt_RetSetVal_P1: TEdit
      Left = 536
      Top = 8
      Width = 65
      Height = 19
      TabOrder = 6
    end
  end
  object Panel2: TPanel
    Left = 32
    Top = 112
    Width = 601
    Height = 25
    BevelOuter = bvNone
    Color = clSkyBlue
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
    object Label2: TLabel
      Left = 16
      Top = 0
      Width = 36
      Height = 13
      Caption = #36890#36947'2  '
    end
    object Edit3: TEdit
      Left = 56
      Top = 0
      Width = 60
      Height = 19
      TabOrder = 0
      Text = '0'
    end
    object Edit4: TEdit
      Left = 124
      Top = 0
      Width = 60
      Height = 19
      TabOrder = 1
      Text = '5'
    end
    object ComboBox2: TComboBox
      Left = 232
      Top = 0
      Width = 105
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 2
      Text = #30005#21387#65288'V'#65289
      Items.Strings = (
        #30005#21387#65288'V'#65289
        #30005#27969#65288'mA'#65289
        #28201#24230#65288#8451#65289
        #28287#24230#65288#65285#65289
        #21387#21147#65288'KPa'#65289
        '')
    end
    object ComboBox18: TComboBox
      Left = 344
      Top = 0
      Width = 105
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 3
      Text = '0~5V'
      Items.Strings = (
        '0~5V'
        '0~10V'
        '-5~5V'
        '1~5V')
    end
    object Edit35: TEdit
      Left = 190
      Top = 0
      Width = 33
      Height = 19
      TabOrder = 4
      Text = '0'
    end
    object Edt_SetVal_P2: TEdit
      Left = 464
      Top = 6
      Width = 65
      Height = 19
      TabOrder = 5
    end
    object Edt_RetSetVal_P2: TEdit
      Left = 536
      Top = 6
      Width = 65
      Height = 19
      TabOrder = 6
    end
  end
  object Panel3: TPanel
    Left = 32
    Top = 136
    Width = 601
    Height = 25
    BevelOuter = bvNone
    Color = clSkyBlue
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 2
    object Label3: TLabel
      Left = 16
      Top = 0
      Width = 36
      Height = 13
      Caption = #36890#36947'3  '
    end
    object Edit5: TEdit
      Left = 56
      Top = 0
      Width = 60
      Height = 19
      TabOrder = 0
      Text = '0'
    end
    object Edit6: TEdit
      Left = 124
      Top = 0
      Width = 60
      Height = 19
      TabOrder = 1
      Text = '5'
    end
    object ComboBox3: TComboBox
      Left = 232
      Top = 0
      Width = 105
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 2
      Text = #30005#21387#65288'V'#65289
      Items.Strings = (
        #30005#21387#65288'V'#65289
        #30005#27969#65288'mA'#65289
        #28201#24230#65288#8451#65289
        #28287#24230#65288#65285#65289
        #21387#21147#65288'KPa'#65289
        '')
    end
    object ComboBox19: TComboBox
      Left = 344
      Top = 0
      Width = 105
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 3
      Text = '0~5V'
      Items.Strings = (
        '0~5V'
        '0~10V'
        '-5~5V'
        '1~5V')
    end
    object Edit36: TEdit
      Left = 190
      Top = 0
      Width = 33
      Height = 19
      TabOrder = 4
      Text = '0'
    end
    object Edt_SetVal_P3: TEdit
      Left = 464
      Top = 6
      Width = 65
      Height = 19
      TabOrder = 5
    end
    object Edt_RetSetVal_P3: TEdit
      Left = 536
      Top = 6
      Width = 65
      Height = 19
      TabOrder = 6
    end
  end
  object Panel4: TPanel
    Left = 32
    Top = 160
    Width = 601
    Height = 25
    BevelOuter = bvNone
    Color = clSkyBlue
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 3
    object Label4: TLabel
      Left = 16
      Top = 0
      Width = 36
      Height = 13
      Caption = #36890#36947'4  '
    end
    object Edit7: TEdit
      Left = 56
      Top = 0
      Width = 60
      Height = 19
      TabOrder = 0
      Text = '0'
    end
    object Edit8: TEdit
      Left = 124
      Top = 0
      Width = 60
      Height = 19
      TabOrder = 1
      Text = '5'
    end
    object ComboBox4: TComboBox
      Left = 232
      Top = 0
      Width = 105
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 2
      Text = #30005#21387#65288'V'#65289
      Items.Strings = (
        #30005#21387#65288'V'#65289
        #30005#27969#65288'mA'#65289
        #28201#24230#65288#8451#65289
        #28287#24230#65288#65285#65289
        #21387#21147#65288'KPa'#65289
        '')
    end
    object ComboBox20: TComboBox
      Left = 344
      Top = 0
      Width = 105
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 3
      Text = '0~5V'
      Items.Strings = (
        '0~5V'
        '0~10V'
        '-5~5V'
        '1~5V')
    end
    object Edit37: TEdit
      Left = 190
      Top = 0
      Width = 33
      Height = 19
      TabOrder = 4
      Text = '0'
    end
    object Edt_SetVal_P4: TEdit
      Left = 464
      Top = 6
      Width = 65
      Height = 19
      TabOrder = 5
    end
    object Edt_RetSetVal_P4: TEdit
      Left = 536
      Top = 6
      Width = 65
      Height = 19
      TabOrder = 6
    end
  end
  object Panel5: TPanel
    Left = 32
    Top = 184
    Width = 609
    Height = 25
    BevelOuter = bvNone
    Color = clSkyBlue
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 4
    object Label5: TLabel
      Left = 16
      Top = 0
      Width = 36
      Height = 13
      Caption = #36890#36947'5  '
    end
    object Edit9: TEdit
      Left = 56
      Top = 0
      Width = 60
      Height = 19
      TabOrder = 0
      Text = '0'
    end
    object Edit10: TEdit
      Left = 124
      Top = 0
      Width = 60
      Height = 19
      TabOrder = 1
      Text = '5'
    end
    object ComboBox5: TComboBox
      Left = 232
      Top = 0
      Width = 105
      Height = 21
      ItemHeight = 13