unit1.dfm

Delphi_7.0数据库开发源代码。有内容十一章节

object Form1: TForm1
  Left = 176
  Top = 153
  Width = 946
  Height = 682
  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 DecisionPivot1: TDecisionPivot
    Left = 624
    Top = 72
    Width = 305
    Height = 57
    ButtonAutoSize = True
    DecisionSource = DecisionSource1
    GroupLayout = xtHorizontal
    Groups = [xtRows, xtColumns, xtSummaries]
    ButtonSpacing = 0
    ButtonWidth = 64
    ButtonHeight = 24
    GroupSpacing = 10
    BorderWidth = 0
    BorderStyle = bsNone
    TabOrder = 0
  end
  object DecisionGrid1: TDecisionGrid
    Left = 8
    Top = 128
    Width = 921
    Height = 521
    DefaultColWidth = 100
    DefaultRowHeight = 20
    CaptionColor = clActiveCaption
    CaptionFont.Charset = DEFAULT_CHARSET
    CaptionFont.Color = clCaptionText
    CaptionFont.Height = -11
    CaptionFont.Name = 'MS Sans Serif'
    CaptionFont.Style = []
    DataColor = clInfoBk
    DataSumColor = clNone
    DataFont.Charset = DEFAULT_CHARSET
    DataFont.Color = clWindowText
    DataFont.Height = -11
    DataFont.Name = 'MS Sans Serif'
    DataFont.Style = []
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = []
    LabelColor = clBtnFace
    LabelSumColor = clInactiveCaption
    DecisionSource = DecisionSource1
    Dimensions = <
      item
        FieldName = 'PaymentMethod'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'CustNo'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end
      item
        FieldName = 'SUM OF AmountPaid'
        Color = clNone
        Alignment = taCenter
        Subtotals = True
      end>
    Totals = True
    ShowCubeEditor = False
    Color = clBtnFace
    GridLineWidth = 1
    GridLineColor = clWindowText
    TabOrder = 1
  end
  object DecisionGraph1: TDecisionGraph
    Left = 8
    Top = 0
    Width = 609
    Height = 129
    DecisionSource = DecisionSource1
    Title.Font.Charset = DEFAULT_CHARSET
    Title.Font.Color = clBlue
    Title.Font.Height = -21
    Title.Font.Name = 'Arial'
    Title.Font.Style = []
    Title.Text.Strings = (
      'PayMent')
    BottomAxis.Title.Caption = 'PaymentMethod'
    LeftAxis.Title.Caption = 'SUM OF AmountPaid'
    RightAxis.Title.Caption = 'SUM OF AmountPaid'
    TopAxis.Title.Caption = 'PaymentMethod'
    TabOrder = 2
    object Series1: TBarSeries
      Active = False
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clRed
      Title = 'Template: PaymentMethod'
      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
      Identifier = 'Template: PaymentMethod'
      Style = 61
    end
    object Series3: TBarSeries
      Active = False
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clRed
      Title = 'Template: CustNo'
      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
      Identifier = 'Template: CustNo'
      Style = 61
    end
    object Series4: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clRed
      Title = '1221'
      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
      Identifier = '1221'
      Style = 40
    end
    object Series5: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clGreen
      Title = '1231'
      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
      Identifier = '1231'
      Style = 40
    end
    object Series6: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clYellow
      Title = '1351'
      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
      Identifier = '1351'
      Style = 40
    end
    object Series7: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clBlue
      Title = '1354'
      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
      Identifier = '1354'
      Style = 40
    end
    object Series8: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clWhite
      Title = '1356'
      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
      Identifier = '1356'
      Style = 40
    end
    object Series9: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clGray
      Title = '1380'
      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
      Identifier = '1380'
      Style = 40
    end
    object Series10: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clFuchsia
      Title = '1384'
      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
      Identifier = '1384'
      Style = 40
    end
    object Series11: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clTeal
      Title = '1510'
      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
      Identifier = '1510'
      Style = 40
    end
    object Series12: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clNavy
      Title = '1513'
      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
      Identifier = '1513'
      Style = 40
    end
    object Series13: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clMaroon
      Title = '1551'
      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
      Identifier = '1551'
      Style = 40
    end
    object Series14: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clLime
      Title = '1560'
      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
      Identifier = '1560'
      Style = 40
    end
    object Series15: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clOlive
      Title = '1563'
      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
      Identifier = '1563'
      Style = 40
    end
    object Series16: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clPurple
      Title = '1624'
      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
      Identifier = '1624'
      Style = 40
    end
    object Series17: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = False
      SeriesColor = clSilver
      Title = '1645'
      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
      Identifier = '1645'
      Style = 40
    end