chaxunu.dfm

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

      YValues.Multiplier = 1
      YValues.Order = loNone
    end
    object Series15: TLineSeries
      Active = False
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clSilver
      Title = #36890#36947'15'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      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 Series16: TLineSeries
      Active = False
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clAqua
      Title = #36890#36947'16'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      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 Edit1: TEdit
    Left = 696
    Top = 64
    Width = 145
    Height = 21
    TabOrder = 1
  end
  object Edit2: TEdit
    Left = 696
    Top = 104
    Width = 145
    Height = 21
    TabOrder = 2
  end
  object Button1: TButton
    Left = 680
    Top = 192
    Width = 57
    Height = 25
    Caption = #26597#35810
    TabOrder = 3
    Visible = False
    OnClick = Button1Click
  end
  object ComboBox1: TComboBox
    Left = 728
    Top = 136
    Width = 113
    Height = 21
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 4
    Text = #36890#36947'1'
    OnChange = ComboBox1Change
    Items.Strings = (
      #36890#36947'1'
      #36890#36947'2'
      #36890#36947'3'
      #36890#36947'4'
      #36890#36947'5'
      #36890#36947'6'
      #36890#36947'7'
      #36890#36947'8'
      #36890#36947'9'
      #36890#36947'10'
      #36890#36947'11'
      #36890#36947'12'
      #36890#36947'13'
      #36890#36947'14'
      #36890#36947'15'
      #36890#36947'16')
  end
  object DBGrid1: TDBGrid
    Left = 4
    Top = 216
    Width = 885
    Height = 321
    BiDiMode = bdLeftToRight
    Color = clSkyBlue
    DataSource = DataSource1
    FixedColor = cl3DLight
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentBiDiMode = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clRed
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'number'
        Title.Caption = #24207#21495
        Width = 36
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'datetime'
        Title.Alignment = taCenter
        Title.Caption = #37319#38598#26102#38388
        Width = 110
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy1'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'1'
        Width = 40
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy2'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'2'
        Width = 43
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy3'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'3'
        Width = 43
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy4'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'4'
        Width = 43
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy5'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'5'
        Width = 43
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy6'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'6'
        Width = 43
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy7'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'7'
        Width = 43
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy8'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'8'
        Width = 43
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy9'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'9'
        Width = 43
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy10'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'10'
        Width = 43
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy11'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'11'
        Width = 43
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy12'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'12'
        Width = 43
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy13'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'13'
        Width = 43
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy14'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'14'
        Width = 43
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy15'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'15'
        Width = 43
        Visible = True
      end
      item
        Alignment = taLeftJustify
        Expanded = False
        FieldName = 'chy16'
        Title.Alignment = taCenter
        Title.Caption = #36890#36947'16'
        Width = 43
        Visible = True
      end>
  end
  object btnExit: TButton
    Left = 808
    Top = 192
    Width = 57
    Height = 25
    Caption = #36864#20986
    TabOrder = 6
    Visible = False
    OnClick = btnExitClick
  end
  object Button2: TButton
    Left = 744
    Top = 192
    Width = 57
    Height = 25
    Caption = #25253#34920
    TabOrder = 7
    Visible = False
    OnClick = Button2Click
  end
  object Button3D1: TButton3D
    Left = 672
    Top = 168
    Width = 57
    Height = 33
    OnClick = Button3D1Click
    Caption = #26597#35810
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
  end
  object Button3D2: TButton3D
    Left = 736
    Top = 168
    Width = 57
    Height = 33
    OnClick = Button3D2Click
    Caption = #25253#34920
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
  end
  object Button3D3: TButton3D
    Left = 800
    Top = 168
    Width = 57
    Height = 33
    OnClick = Button3D3Click
    Caption = #36864#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 16
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Se' +
      'curity Info=False'
    CursorType = ctStatic
    BeforeOpen = ADOTable1BeforePost
    Parameters = <>
    SQL.Strings = (
      'select * from chanel')
    Left = 48
    Top = 8
  end
  object PrintDialog1: TPrintDialog
    Left = 856
    Top = 16
  end
end