unit1.~dfm

介绍了如何用delphi来制作数据库报表系统

object Form1: TForm1
  Left = 251
  Top = 122
  Width = 707
  Height = 575
  Caption = #25968#25454#24211#22270#34920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 699
    Height = 548
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = #34920#26684
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 691
        Height = 520
        Align = alClient
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'EmpNo'
            Title.Caption = #38599#21592#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LastName'
            Title.Caption = #21517
            Width = 87
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FirstName'
            Title.Caption = #22995
            Width = 103
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PhoneExt'
            Title.Caption = #30005#35805#21495#30721
            Width = 128
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'HireDate'
            Title.Caption = #31614#32422#26085#26399
            Width = 192
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Salary'
            Title.Caption = #34218#27700
            Width = 76
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #34218#37228#20998#24067#22270
      ImageIndex = 1
      object DBChart1: TDBChart
        Left = 0
        Top = 56
        Width = 691
        Height = 464
        BackWall.Brush.Color = clWhite
        Title.Text.Strings = (
          #34218#37228#20998#24067#22270)
        View3DOptions.Elevation = 315
        View3DOptions.Orthogonal = False
        View3DOptions.Perspective = 0
        View3DOptions.Rotation = 360
        Align = alBottom
        PopupMenu = PopupMenu1
        TabOrder = 0
        object Series1: TBarSeries
          Active = False
          Marks.ArrowLength = 20
          Marks.Visible = True
          SeriesColor = clRed
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
        end
        object Series2: TLineSeries
          Active = False
          Marks.ArrowLength = 8
          Marks.Visible = False
          SeriesColor = clGreen
          Pointer.InflateMargins = True
          Pointer.Style = psRectangle
          Pointer.Visible = False
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
        end
        object Series3: TPieSeries
          Active = False
          Marks.ArrowLength = 8
          Marks.Visible = True
          SeriesColor = clYellow
          Circled = True
          OtherSlice.Text = 'Other'
          PieValues.DateTime = False
          PieValues.Name = 'Pie'
          PieValues.Multiplier = 1
          PieValues.Order = loNone
        end
      end
      object RadioGroup1: TRadioGroup
        Left = 0
        Top = 0
        Width = 691
        Height = 56
        Align = alClient
        Caption = #22270#24418#36873#25321
        Columns = 3
        Font.Charset = ANSI_CHARSET
        Font.Color = clMaroon
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          #30452#26041#22270
          #25240#32447#22270
          #39292#22270)
        ParentFont = False
        TabOrder = 1
        OnClick = RadioGroup1Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = #24037#20316#36164#21382#20998#24067#22270
      ImageIndex = 2
      object RadioGroup2: TRadioGroup
        Left = 0
        Top = 0
        Width = 691
        Height = 56
        Align = alClient
        Caption = #22270#24418#36873#25321
        Columns = 3
        Font.Charset = ANSI_CHARSET
        Font.Color = clMaroon
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ItemIndex = 0
        Items.Strings = (
          #30452#26041#22270
          #25240#32447#22270
          #39292#22270)
        ParentFont = False
        TabOrder = 0
        OnClick = RadioGroup2Click
      end
      object DBChart2: TDBChart
        Left = 0
        Top = 56
        Width = 691
        Height = 464
        BackWall.Brush.Color = clWhite
        Title.Text.Strings = (
          #24037#20316#36164#21382#20998#24067#22270)
        View3DOptions.Elevation = 315
        View3DOptions.Orthogonal = False
        View3DOptions.Perspective = 0
        View3DOptions.Rotation = 360
        Align = alBottom
        PopupMenu = PopupMenu1
        TabOrder = 1
        object Series4: TBarSeries
          Active = False
          Marks.ArrowLength = 20
          Marks.Visible = True
          SeriesColor = clRed
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          YValues.DateTime = False
          YValues.Name = 'Bar'
          YValues.Multiplier = 1
          YValues.Order = loNone
        end
        object Series5: TLineSeries
          Active = False
          Marks.ArrowLength = 8
          Marks.Visible = False
          SeriesColor = clGreen
          Pointer.InflateMargins = True
          Pointer.Style = psRectangle
          Pointer.Visible = False
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
        end
        object Series6: TPieSeries
          Active = False
          Marks.ArrowLength = 8
          Marks.Visible = True
          SeriesColor = clYellow
          OtherSlice.Text = 'Other'
          PieValues.DateTime = False
          PieValues.Name = 'Pie'
          PieValues.Multiplier = 1
          PieValues.Order = loNone
        end
      end
    end
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = DM.Table1
    Left = 592
    Top = 96
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 560
    Top = 96
    object N3D1: TMenuItem
      Caption = '3D[&D]'
      ShortCut = 16452
      OnClick = N3D1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N1: TMenuItem
      Caption = #26059#36716'[&R]'
      ShortCut = 16466
      OnClick = N1Click
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 200
    OnTimer = Timer1Timer
    Left = 528
    Top = 96
  end
end