main.dfm

有关delphi的应用

object Form1: TForm1
  Left = 184
  Top = 89
  Width = 534
  Height = 427
  Caption = #20809#24320#20851
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    526
    400)
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 502
    Height = 57
    Anchors = [akLeft, akTop, akRight]
    Caption = 'S/N'
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #20809#24320#20851'S/N'
    end
    object Label2: TLabel
      Left = 232
      Top = 24
      Width = 129
      Height = 13
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 64
      Top = 18
      Width = 85
      Height = 21
      TabOrder = 0
    end
    object Button1: TButton
      Left = 152
      Top = 16
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 64
    Width = 502
    Height = 322
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = #26597#35810#32467#26524
    TabOrder = 1
    DesignSize = (
      502
      322)
    object DBGrid8: TDBGrid
      Left = 15
      Top = 20
      Width = 471
      Height = 289
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'paraname'
          Title.Caption = #21442#25968#21517
          Width = 93
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'temperature'
          Title.Caption = #28201#24230
          Width = 35
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'maxvalue'
          Title.Caption = #26368#22823#20540
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'minvalue'
          Title.Caption = #26368#23567#20540
          Width = 49
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'testvalue'
          Title.Caption = #27979#35797#20540
          Width = 47
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'status'
          Title.Caption = #29366#24577
          Width = 36
          Visible = True
        end>
    end
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=12345678;Persist Security Info=True' +
      ';User ID=sa;Initial Catalog=Pigtail Test;Data Source=DBSRV'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 88
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 32
    Top = 136
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 32
    Top = 168
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 32
    Top = 200
  end
end