main.dfm

Delphi7数据库开发教程,包含该书21套实例

object Form1: TForm1
  Left = 21
  Top = 12
  Width = 754
  Height = 525
  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 DBChart1: TDBChart
    Left = 8
    Top = 8
    Width = 729
    Height = 281
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    MarginBottom = 0
    MarginLeft = 0
    MarginRight = 0
    MarginTop = 0
    Title.Color = clWhite
    Title.Font.Charset = GB2312_CHARSET
    Title.Font.Color = clBlue
    Title.Font.Height = -21
    Title.Font.Name = #24188#22278
    Title.Font.Style = [fsBold]
    Title.Text.Strings = (
      #21160#29289#37325#37327#23545#27604#22270)
    Legend.TextStyle = ltsXValue
    TabOrder = 0
    object Series1: TBarSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      DataSource = Table1
      SeriesColor = clRed
      Title = #21160#29289#37325#37327#23545#27604#22270
      XLabelsSource = 'NAME'
      BarStyle = bsCilinder
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      YValues.ValueSource = 'WEIGHT'
    end
    object Series4: TLineSeries
      Active = False
      Marks.ArrowLength = 8
      Marks.Visible = False
      DataSource = Table1
      SeriesColor = clBlue
      Title = #21160#29289#23610#23544#23545#27604#22270
      XLabelsSource = 'NAME'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      YValues.ValueSource = 'SIZE'
    end
    object Series5: TLineSeries
      Active = False
      Marks.ArrowLength = 8
      Marks.Visible = False
      DataSource = Series1
      SeriesColor = clWhite
      Title = #21462#26368#23567#20540
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      DataSources = (
        'Series1'
        'Series4')
      object TeeFunction3: TLowTeeFunction
      end
    end
    object Series6: TLineSeries
      Active = False
      Marks.ArrowLength = 8
      Marks.Visible = False
      DataSource = Series1
      SeriesColor = clGray
      Title = #21462#24179#22343#20540
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      DataSources = (
        'Series1'
        'Series4')
      object TeeFunction4: TAverageTeeFunction
      end
    end
    object Series2: TLineSeries
      Active = False
      Marks.ArrowLength = 8
      Marks.Visible = False
      DataSource = Series1
      SeriesColor = clGreen
      Title = 'Add'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      DataSources = (
        'Series1'
        'Series4')
      object TeeFunction1: TAddTeeFunction
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 296
    Width = 337
    Height = 185
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object GroupBox1: TGroupBox
    Left = 448
    Top = 296
    Width = 289
    Height = 89
    Caption = #26631#39064
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 73
      Height = 13
      AutoSize = False
      Caption = #36755#20837#26631#39064#20540
    end
    object edtTitle: TEdit
      Left = 80
      Top = 16
      Width = 129
      Height = 21
      TabOrder = 0
    end
    object btnSetTitle: TButton
      Left = 224
      Top = 16
      Width = 59
      Height = 25
      Caption = #35774#32622
      TabOrder = 1
      OnClick = btnSetTitleClick
    end
    object btnTitleFont: TButton
      Left = 8
      Top = 48
      Width = 273
      Height = 25
      Caption = #35774#32622#26631#39064#23383#20307
      TabOrder = 2
      OnClick = btnTitleFontClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 448
    Top = 392
    Width = 289
    Height = 89
    Caption = #22270#24418#25928#26524
    TabOrder = 3
    object cbx3D: TCheckBox
      Left = 16
      Top = 56
      Width = 97
      Height = 17
      Caption = '3D'#26174#31034#25928#26524
      Checked = True
      State = cbChecked
      TabOrder = 0
      OnClick = cbx3DClick
    end
    object cbxEachColor: TCheckBox
      Left = 16
      Top = 24
      Width = 153
      Height = 17
      Caption = #20351#29992#19981#21516#30340#39068#33394#26174#31034
      TabOrder = 1
      OnClick = cbxEachColorClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 352
    Top = 296
    Width = 89
    Height = 185
    Caption = #22270#20363
    TabOrder = 4
    object cbxLegend: TCheckBox
      Left = 8
      Top = 24
      Width = 65
      Height = 17
      Caption = #26174#31034#22270#20363
      Checked = True
      State = cbChecked
      TabOrder = 0
      OnClick = cbxLegendClick
    end
    object btnColor: TButton
      Left = 8
      Top = 56
      Width = 73
      Height = 25
      Caption = #22270#20363#39068#33394
      TabOrder = 1
      OnClick = btnColorClick
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'animals.dbf'
    Left = 160
    Top = 320
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 160
    Top = 352
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 440
    Top = 336
  end
  object ColorDialog1: TColorDialog
    Left = 384
    Top = 416
  end
end