unit2.~dfm

delphi数据库的程序代码

object Form1: TForm1
  Left = 277
  Top = 185
  Width = 399
  Height = 267
  Caption = #21160#24577#26597#35810
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 60
    Height = 12
    Caption = #21160#29289#21517#31216#65306
  end
  object EditName: TEdit
    Left = 72
    Top = 8
    Width = 177
    Height = 20
    TabOrder = 0
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 40
    Width = 377
    Height = 161
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object BtnQuery: TButton
    Left = 312
    Top = 8
    Width = 75
    Height = 25
    Caption = #26597#35810'(&Q)'
    TabOrder = 2
    OnClick = BtnQueryClick
  end
  object DBNavigator1: TDBNavigator
    Left = 8
    Top = 208
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 3
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 280
    Top = 136
  end
  object Query1: TQuery
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'Select Name,Weight,Area From animals Where Name=:AnimalName')
    Left = 312
    Top = 136
    ParamData = <
      item
        DataType = ftString
        Name = 'AnimalName'
        ParamType = ptUnknown
      end>
  end
end