unit10.~dfm

软件课程设计

object Form10: TForm10
  Left = 364
  Top = 150
  Width = 870
  Height = 498
  Caption = 'Form10'
  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 StatusBar1: TStatusBar
    Left = 0
    Top = 443
    Width = 854
    Height = 19
    Panels = <
      item
        Text = #31649#29702#21592
        Width = 300
      end
      item
        Text = #26085#26399
        Width = 300
      end
      item
        Text = #26102#38388
        Width = 300
      end>
  end
  object DBChart1: TDBChart
    Left = 104
    Top = 0
    Width = 745
    Height = 441
    AllowPanning = pmNone
    AllowZoom = False
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    BackWall.Pen.Visible = False
    Title.Text.Strings = (
      'TDBChart')
    AxisVisible = False
    ClipPoints = False
    Frame.Visible = False
    View3DOptions.Elevation = 315
    View3DOptions.Orthogonal = False
    View3DOptions.Perspective = 0
    View3DOptions.Rotation = 360
    View3DWalls = False
    TabOrder = 1
    object Label1: TLabel
      Left = 112
      Top = 8
      Width = 300
      Height = 29
      Caption = #21508#26102#27573#20154#25968#32479#35745#39292#29366#22270
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -29
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 743
      Height = 439
      Align = alClient
      TabOrder = 0
      object Label2: TLabel
        Left = 32
        Top = 88
        Width = 137
        Height = 24
        Caption = #36830#38145#24215#32534#21495
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 56
        Top = 144
        Width = 57
        Height = 19
        Caption = #36127#36131#20154
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 56
        Top = 184
        Width = 57
        Height = 19
        Caption = #38144#21806#39069
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 64
        Top = 216
        Width = 38
        Height = 19
        Caption = #22320#27573
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 64
        Top = 248
        Width = 38
        Height = 19
        Caption = #30005#35805
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 200
        Top = 80
        Width = 121
        Height = 32
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object Button3: TButton
        Left = 360
        Top = 80
        Width = 97
        Height = 33
        Caption = #30830#23450
        TabOrder = 1
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 392
        Top = 296
        Width = 75
        Height = 49
        Caption = #36820#22238
        TabOrder = 2
        OnClick = Button4Click
      end
      object Edit2: TEdit
        Left = 200
        Top = 144
        Width = 121
        Height = 32
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object Edit3: TEdit
        Left = 200
        Top = 176
        Width = 121
        Height = 32
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object Edit4: TEdit
        Left = 200
        Top = 208
        Width = 121
        Height = 32
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
      end
      object Edit5: TEdit
        Left = 200
        Top = 240
        Width = 121
        Height = 32
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
      end
    end
    object Series1: TPieSeries
      Marks.ArrowLength = 8
      Marks.Visible = True
      DataSource = ADOQuery1
      SeriesColor = clRed
      XLabelsSource = #26102#38388#27573
      OtherSlice.Text = 'Other'
      PieValues.DateTime = False
      PieValues.Name = 'Pie'
      PieValues.Multiplier = 1.000000000000000000
      PieValues.Order = loNone
      PieValues.ValueSource = #27425#25968
    end
  end
  object Button1: TButton
    Left = 0
    Top = 272
    Width = 97
    Height = 97
    Caption = #36864#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = -8
    Top = 0
    Width = 113
    Height = 57
    Caption = #21508#36830#38145#24215#38144#21806#24773#20917
    TabOrder = 3
    OnClick = Button2Click
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog='#25151#38388#20449#24687';Data Source=COFFEE-PC'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select '#26102#38388#27573','#27425#25968' from '#33829#19994#32479#35745)
    Left = 64
    Top = 144
  end
end