unit1.dfm

显示数据表的内容

object Form1: TForm1
  Left = 193
  Top = 107
  Width = 527
  Height = 471
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 519
    Height = 161
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 313
      Height = 161
      Align = alLeft
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 1
        Top = 1
        Width = 311
        Height = 159
        Align = alClient
        DataSource = DataSource1
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object Panel4: TPanel
      Left = 313
      Top = 0
      Width = 206
      Height = 161
      Align = alClient
      TabOrder = 1
      object ListBox1: TListBox
        Left = 1
        Top = 1
        Width = 221
        Height = 120
        ItemHeight = 13
        TabOrder = 0
      end
      object BitBtn1: TBitBtn
        Left = 24
        Top = 128
        Width = 75
        Height = 25
        Caption = #28155#21152#23383#27573
        TabOrder = 1
        OnClick = BitBtn1Click
      end
      object BitBtn2: TBitBtn
        Left = 112
        Top = 128
        Width = 75
        Height = 25
        Caption = #26356#26032#22270#34920
        Enabled = False
        TabOrder = 2
        OnClick = BitBtn2Click
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 161
    Width = 519
    Height = 283
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object DBChart1: TDBChart
      Left = 0
      Top = 0
      Width = 519
      Height = 283
      AllowPanning = pmNone
      AllowZoom = False
      BackWall.Brush.Color = clWhite
      BackWall.Brush.Style = bsClear
      BackWall.Pen.Visible = False
      LeftWall.Brush.Color = clWhite
      Title.Text.Strings = (
        #32479#35745#22270#34920)
      AxisVisible = False
      Chart3DPercent = 30
      ClipPoints = False
      Frame.Visible = False
      View3DOptions.Elevation = 315
      View3DOptions.Orthogonal = False
      View3DOptions.Perspective = 0
      View3DOptions.Rotation = 360
      View3DOptions.Zoom = 101
      View3DWalls = False
      Align = alClient
      TabOrder = 0
      object Series1: TPieSeries
        Marks.ArrowLength = 8
        Marks.Visible = True
        DataSource = Query1
        SeriesColor = clRed
        XLabelsSource = 'NAME'
        OtherSlice.Text = 'Other'
        PieValues.DateTime = False
        PieValues.Name = 'Pie'
        PieValues.Multiplier = 1
        PieValues.Order = loNone
        PieValues.ValueSource = 'SIZE'
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 64
    Top = 64
  end
  object Table1: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'animals.dbf'
    Left = 144
    Top = 64
  end
  object Query1: TQuery
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'SELECT * FROM animals')
    Left = 216
    Top = 64
  end
end