mainu.dfm

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

object MainFrm: TMainFrm
  Left = 4
  Top = 127
  Width = 1024
  Height = 740
  Caption = 'ai'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0FFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFFFFFFFFFFFFFFFF000000F
    FFFFFFFFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF
    FFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF000FFFFF00000FFF000000FF0000FF
    F0FFF0FFF0FFFFF0FF0FFFFF0F0000FF0FFFFF0FF0FFFFF0FF0FFFFF0F0000FF
    0FFFFF0FFFFFFFF0FF0FFFFF0F0000FF0FFFFF0FFFFFF00FFF0FFFFF0F0000FF
    0FFFFF0FFF000FFFFF000000FF0000FF0FFFFF0FF0FFFFFFFF099FFF0F0000FF
    0FFFFF0FF0FFF99099099FFF0F0000FF0FFFFF0FF0FF9FF0FF099FFF0F0000FF
    099FFF0FFF00000FFF000000FF0000F99999FFFFFFF9FFFFFFFFFF99FF0000F9
    9999999999999999999999999F0000F99999FFF9FFFFFFFFFFFFFF99FF0000FF
    999FFFF9FFFFFFFFFFFFFF9FFF0000FFFFFFFFFF99FFFFFFFF99FFFFFF0000FF
    FFFFFFFFFF99999999999FFFFF0000FFFFFFFFFFFFFFFFFFF9999FFFFF0000FF
    FFFFFFFFFFFFFFFFFF99FFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FF
    FFFFFFFFFFFFFFFFFFFFFFFFFF00000FFFFFFFFFFFFFFFFFFFFFFFFFF000000F
    FFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFFFFFFFFFFFF000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFF800001FE0000007E0000007C0000003C0000003C0000003C000
    0003C0000003C0000003C0000003C0000003C0000003C0000003C0000003C000
    0003C0000003C0000003C0000003C0000003C0000003C0000003C0000003C000
    0003C0000003C0000003E0000007E0000007F800001FFFFFFFFFFFFFFFFF}
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 21
    Width = 1017
    Height = 644
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 6
    object TabSheet1: TTabSheet
      Caption = #36890#36947'1-4'
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 1009
        Height = 617
        Caption = 'Panel1'
        Color = clGradientInactiveCaption
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        object Label1: TLabel
          Left = 16
          Top = 99
          Width = 63
          Height = 13
          Caption = #30005#21387#20540'(mV)  '
        end
        object Label2: TLabel
          Left = 16
          Top = 140
          Width = 57
          Height = 13
          Caption = #35299'   '#26512'   '#20540' '
        end
        object Label8: TLabel
          Left = 16
          Top = 229
          Width = 63
          Height = 13
          Caption = #30005#21387#20540'(mV)  '
        end
        object Label7: TLabel
          Left = 16
          Top = 267
          Width = 57
          Height = 13
          Caption = #35299'   '#26512'   '#20540' '
        end
        object Label9: TLabel
          Left = 16
          Top = 382
          Width = 63
          Height = 13
          Caption = #30005#21387#20540'(mV)  '
        end
        object Label10: TLabel
          Left = 16
          Top = 421
          Width = 57
          Height = 13
          Caption = #35299'   '#26512'   '#20540' '
        end
        object Label11: TLabel
          Left = 16
          Top = 516
          Width = 63
          Height = 13
          Caption = #30005#21387#20540'(mV)  '
        end
        object Label12: TLabel
          Left = 16
          Top = 556
          Width = 57
          Height = 13
          Caption = #35299'   '#26512'   '#20540' '
        end
        object CheckBox1: TCheckBox
          Left = 8
          Top = 64
          Width = 97
          Height = 17
          Caption = #36890#36947'1'#20351#33021
          TabOrder = 0
          OnClick = CheckBox1Click
        end
        object CheckBox2: TCheckBox
          Left = 8
          Top = 192
          Width = 105
          Height = 17
          Caption = #36890#36947'2'#20351#33021
          TabOrder = 1
          OnClick = CheckBox2Click
        end
        object CheckBox3: TCheckBox
          Left = 8
          Top = 344
          Width = 105
          Height = 17
          Caption = #36890#36947'3'#20351#33021
          TabOrder = 2
          OnClick = CheckBox3Click
        end
        object CheckBox4: TCheckBox
          Left = 8
          Top = 480
          Width = 89
          Height = 17
          BiDiMode = bdLeftToRight
          Caption = #36890#36947'4'#20351#33021
          ParentBiDiMode = False
          TabOrder = 3
          OnClick = CheckBox4Click
        end
        object Edit8: TEdit
          Left = 88
          Top = 552
          Width = 65
          Height = 19
          ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
          TabOrder = 4
          Text = '0'
        end
        object Edit7: TEdit
          Left = 88
          Top = 512
          Width = 65
          Height = 19
          ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
          TabOrder = 5
          Text = '0'
        end
        object Edit6: TEdit
          Left = 88
          Top = 416
          Width = 65
          Height = 19
          ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
          TabOrder = 6
          Text = '0'
        end
        object Edit5: TEdit
          Left = 88
          Top = 376
          Width = 65
          Height = 19
          ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
          TabOrder = 7
          Text = '0'
        end
        object Edit4: TEdit
          Left = 88
          Top = 264
          Width = 65
          Height = 19
          ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
          TabOrder = 8
          Text = '0'
        end
        object Edit3: TEdit
          Left = 88
          Top = 224
          Width = 65
          Height = 19
          ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
          TabOrder = 9
          Text = '0'
        end
        object Edit2: TEdit
          Left = 88
          Top = 136
          Width = 65
          Height = 19
          ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
          TabOrder = 10
          Text = '0'
        end
        object Edit1: TEdit
          Left = 88
          Top = 96
          Width = 65
          Height = 19
          ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
          TabOrder = 11
          Text = '0'
        end
        object Chart1: TChart
          Left = 160
          Top = 32
          Width = 833
          Height = 145
          BackWall.Brush.Color = clWhite
          BackWall.Brush.Style = bsClear
          Gradient.EndColor = 15463235
          Gradient.Visible = True
          Title.Text.Strings = (
            #36890#36947'1')
          Legend.Visible = False
          View3D = False
          TabOrder = 12
          object Series1: TFastLineSeries
            Marks.ArrowLength = 8
            Marks.Visible = False
            SeriesColor = clRed
            Title = #36890#36947'1'
            LinePen.Color = clGreen
            XValues.DateTime = False
            XValues.Name = 'X'
            XValues.Multiplier = 1
            XValues.Order = loAscending
            YValues.DateTime = False
            YValues.Name = 'Y'
            YValues.Multiplier = 1
            YValues.Order = loNone
          end
        end
        object Chart3: TChart
          Left = 160
          Top = 320
          Width = 833
          Height = 145
          BackWall.Brush.Color = clWhite
          BackWall.Brush.Style = bsClear
          Gradient.EndColor = 16315218
          Gradient.Visible = True
          Title.Text.Strings = (
            #36890#36947'3')
          Legend.Visible = False
          View3D = False
          TabOrder = 14
          object LineSeries2: TFastLineSeries
            Marks.ArrowLength = 8
            Marks.Visible = False
            SeriesColor = clRed
            Title = #36890#36947'1'
            LinePen.Color = clGreen
            XValues.DateTime = False
            XValues.Name = 'X'
            XValues.Multiplier = 1
            XValues.Order = loAscending
            YValues.DateTime = False
            YValues.Name = 'Y'
            YValues.Multiplier = 1
            YValues.Order = loNone
          end
        end
        object Chart4: TChart
          Left = 160
          Top = 464
          Width = 833
          Height = 145
          BackWall.Brush.Color = clWhite
          BackWall.Brush.Style = bsClear
          Gradient.EndColor = clWhite
          Gradient.StartColor = 15985270
          Gradient.Visible = True
          Title.Text.Strings = (
            #36890#36947'4')
          Legend.Visible = False
          View3D = False
          TabOrder = 15
          object LineSeries3: TFastLineSeries
            Marks.ArrowLength = 8
            Marks.Visible = False
            SeriesColor = clBlue
            Title = #36890#36947'1'
            LinePen.Color = clRed
            XValues.DateTime = False
            XValues.Name = 'X'
            XValues.Multiplier = 1
            XValues.Order = loAscending
            YValues.DateTime = False
            YValues.Name = 'Y'
            YValues.Multiplier = 1
            YValues.Order = loNone
          end
        end
        object Chart2: TChart
          Left = 160
          Top = 176
          Width = 833
          Height = 145
          BackWall.Brush.Color = clWhite
          BackWall.Brush.Style = bsClear
          Gradient.EndColor = clWhite
          Gradient.StartColor = 16577628
          Gradient.Visible = True
          Title.Text.Strings = (
            #36890#36947'2')
          Legend.Visible = False
          View3D = False
          TabOrder = 13
          object LineSeries1: TFastLineSeries
            Marks.ArrowLength = 8
            Marks.Visible = False
            SeriesColor = clBlue
            Title = #36890#36947'1'
            LinePen.Color = clRed
            XValues.DateTime = False
            XValues.Name = 'X'
            XValues.Multiplier = 1
            XValues.Order = loAscending
            YValues.DateTime = False
            YValues.Name = 'Y'
            YValues.Multiplier = 1
            YValues.Order = loNone
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #36890#36947'5-8'
      ImageIndex = 1
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 1009
        Height = 617
        Caption = 'Panel2'
        Color = 14478336
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        object Label13: TLabel
          Left = 16
          Top = 99
          Width = 63
          Height = 13
          Caption = #30005#21387#20540'(mV)  '
        end
        object Label14: TLabel
          Left = 16
          Top = 140
          Width = 57
          Height = 13
          Caption = #35299'   '#26512'   '#20540' '
        end