unit1.~dfm

关于USB驱动查询 并进行上下行传输数据的源码

    Left = 168
    Top = 136
    Width = 121
    Height = 30
    BevelKind = bkFlat
    BiDiMode = bdLeftToRight
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ImeMode = imDisable
    ParentBiDiMode = False
    ParentFont = False
    TabOrder = 4
    Text = '1'
  end
  object Edit5: TEdit
    Left = 496
    Top = 40
    Width = 121
    Height = 30
    BevelKind = bkFlat
    BiDiMode = bdLeftToRight
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ImeMode = imDisable
    ParentBiDiMode = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 5
    Text = '0'
  end
  object Edit6: TEdit
    Left = 496
    Top = 72
    Width = 121
    Height = 30
    BevelKind = bkFlat
    BiDiMode = bdLeftToRight
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ImeMode = imDisable
    ParentBiDiMode = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 6
    Text = '0'
  end
  object Edit7: TEdit
    Left = 496
    Top = 104
    Width = 121
    Height = 30
    BevelKind = bkFlat
    BiDiMode = bdLeftToRight
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ImeMode = imDisable
    ParentBiDiMode = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 7
    Text = '0'
  end
  object Edit8: TEdit
    Left = 496
    Top = 136
    Width = 121
    Height = 30
    BevelKind = bkFlat
    BiDiMode = bdLeftToRight
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ImeMode = imDisable
    ParentBiDiMode = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 8
    Text = '0'
  end
  object GroupBox1: TGroupBox
    Left = 40
    Top = 192
    Width = 185
    Height = 169
    Caption = #29366#24577#35774#23450
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
    object CheckBox1: TCheckBox
      Left = 16
      Top = 32
      Width = 120
      Height = 17
      Caption = #24341#29123
      TabOrder = 0
    end
    object CheckBox2: TCheckBox
      Left = 16
      Top = 56
      Width = 120
      Height = 17
      Caption = '1'#36335#36755#20986
      Checked = True
      Enabled = False
      State = cbChecked
      TabOrder = 1
    end
    object CheckBox3: TCheckBox
      Left = 16
      Top = 80
      Width = 120
      Height = 17
      Caption = '2'#36335#36755#20986
      Checked = True
      Enabled = False
      State = cbChecked
      TabOrder = 2
    end
    object CheckBox4: TCheckBox
      Left = 16
      Top = 104
      Width = 120
      Height = 17
      Caption = #31283#27969#27169#24335
      Checked = True
      Enabled = False
      State = cbChecked
      TabOrder = 3
    end
    object CheckBox5: TCheckBox
      Left = 16
      Top = 128
      Width = 120
      Height = 17
      Caption = #22823#30005#27969#26723
      Checked = True
      Enabled = False
      State = cbChecked
      TabOrder = 4
    end
  end
  object Button2: TButton
    Left = 32
    Top = 384
    Width = 75
    Height = 25
    Caption = #21457#36865#21629#20196
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 10
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 32
    Top = 432
    Width = 75
    Height = 25
    Caption = #33258#21160#37319#38598
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 11
    OnClick = Button3Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 514
    Width = 1023
    Height = 19
    Panels = <
      item
        Width = 250
      end
      item
        Width = 250
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Edit9: TEdit
    Left = 824
    Top = 104
    Width = 121
    Height = 30
    BevelKind = bkFlat
    BevelOuter = bvRaised
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
    ReadOnly = True
    TabOrder = 13
    Text = '0'
    OnChange = Edit9Change
  end
  object Edit10: TEdit
    Left = 824
    Top = 136
    Width = 121
    Height = 30
    BevelKind = bkFlat
    BevelOuter = bvRaised
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
    ReadOnly = True
    TabOrder = 14
    Text = '0'
    OnChange = Edit10Change
  end
  object PageControl1: TPageControl
    Left = 240
    Top = 176
    Width = 777
    Height = 329
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 15
    object TabSheet1: TTabSheet
      Caption = #38452#26497#19982#24341#29123#30005#21387#26174#31034
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #24494#36719#38597#40657
      Font.Style = [fsBold]
      ParentFont = False
      object Chart1: TChart
        Left = 0
        Top = 4
        Width = 793
        Height = 301
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.AdjustFrame = False
        Title.Text.Strings = (
          'TChart')
        Title.Visible = False
        Legend.Visible = False
        View3D = False
        View3DWalls = False
        BevelOuter = bvNone
        TabOrder = 0
        object Series1: TFastLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          SeriesColor = clRed
          LinePen.Color = clRed
          LinePen.Width = 2
          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
        object Series2: TFastLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          SeriesColor = clGreen
          LinePen.Color = clGreen
          LinePen.Width = 2
          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
    object TabSheet2: TTabSheet
      Caption = #35843#27969#30005#27969#37319#26679#26174#31034
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #24494#36719#38597#40657
      Font.Style = [fsBold]
      ImageIndex = 1
      ParentFont = False
      object Chart2: TChart
        Left = 0
        Top = 0
        Width = 793
        Height = 305
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.Text.Strings = (
          'TChart')
        Title.Visible = False
        Legend.Visible = False
        View3D = False
        View3DWalls = False
        BevelOuter = bvNone
        TabOrder = 0
        object Series3: TFastLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          SeriesColor = clRed
          LinePen.Color = clRed
          LinePen.Width = 2
          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
        object Series4: TFastLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          SeriesColor = clGreen
          LinePen.Color = clGreen
          LinePen.Width = 2
          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
    object TabSheet3: TTabSheet
      Caption = #35843#27969#30005#21387#37319#26679#26174#31034
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #24494#36719#38597#40657
      Font.Style = [fsBold]
      ImageIndex = 2
      ParentFont = False
      object Chart3: TChart
        Left = 0
        Top = 0
        Width = 793
        Height = 305
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Title.Text.Strings = (
          'TChart')
        Title.Visible = False
        Legend.Visible = False
        View3D = False
        View3DWalls = False
        BevelOuter = bvNone
        TabOrder = 0
        object Series5: TFastLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          SeriesColor = clRed
          LinePen.Color = clRed
          LinePen.Width = 2
          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
        object Series6: TFastLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          SeriesColor = clGreen
          LinePen.Color = clGreen
          LinePen.Width = 2
          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 Button4: TButton
    Left = 144
    Top = 432
    Width = 75
    Height = 25
    Caption = #28165#31354#26354#32447
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 16
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 32
    Top = 480
    Width = 75
    Height = 25
    Caption = #33258#21160#24341#29123
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 17
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 144
    Top = 480
    Width = 75
    Height = 25
    Caption = #20851#26426#20934#22791
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 18
    OnClick = Button6Click
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 968
    Top = 16
  end
end