object fmInvProdHistGraph: TfmInvProdHistGraph
  Left = -1
  Top = -1
  HelpContext = 575
  AutoScroll = False
  Caption = 'Product Invoice History'
  ClientHeight = 523
  ClientWidth = 795
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object SpeedBar: TSpeedBar
    Left = 0
    Top = 0
    Width = 795
    Height = 49
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
    BtnOffsetHorz = 3
    BtnOffsetVert = 3
    BtnWidth = 70
    BtnHeight = 43
    TabOrder = 0
    InternalVer = 1
    object Label6: TLabel
      Left = 624
      Top = 4
      Width = 72
      Height = 16
      Caption = 'Graph Type'
    end
    object ComboBox2: TComboBox
      Left = 624
      Top = 20
      Width = 137
      Height = 24
      ItemHeight = 16
      Items.Strings = (
        'Vertical Bar '
        'Horizontal Bar'
        'Line'
        'Fast Line'
        'Point'
        'Area')
      TabOrder = 0
      Text = 'Vertical Bar '
      OnChange = ComboBox2Change
    end
    object cbMarks: TCheckBox
      Left = 460
      Top = 16
      Width = 125
      Height = 17
      Alignment = taLeftJustify
      Caption = '&Toggel Marks'
      State = cbChecked
      TabOrder = 1
      OnClick = cbMarksClick
    end
    object SpeedbarSection2: TSpeedbarSection
      Caption = 'Untitled (0)'
    end
    object BtnSaveGraph: TSpeedItem
      BtnCaption = 'Save'
      Caption = 'Save Graph'
      DropDownMenu = pmSaveGraph
      NumGlyphs = 2
      Spacing = 1
      Left = 3
      Top = 3
      Visible = True
      SectionName = 'Untitled (0)'
    end
    object BtnPrintGraph: TSpeedItem
      BtnCaption = 'Print'
      Caption = 'Print Graph'
      Hint = 'Print product invoice history graph'
      Spacing = 1
      Left = 73
      Top = 3
      Visible = True
      OnClick = BtnPrintGraphClick
      SectionName = 'Untitled (0)'
    end
    object BtnEmailGraph: TSpeedItem
      BtnCaption = 'Email'
      Caption = 'Email Graph'
      Hint = 'Email product invoice history graph'
      Spacing = 1
      Left = 143
      Top = 3
      Visible = True
      OnClick = BtnEmailGraphClick
      SectionName = 'Untitled (0)'
    end
    object BtnCloseGraph: TSpeedItem
      BtnCaption = 'Close'
      Caption = 'Close'
      Spacing = 1
      Left = 283
      Top = 3
      Visible = True
      OnClick = BtnCloseGraphClick
      SectionName = 'Untitled (0)'
    end
    object BtnHelp: TSpeedItem
      BtnCaption = 'Help'
      Caption = 'Help'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
        888888888E6648888888888888E6688888888888888888888888888888446888
        8888888886664888888888888E664888888888888E6664888888888888E66648
        88888888888E6664888888844888E6664888886664888E66488888E666444666
        4888888E6666666668888888EE6666668888888888EEEEE88888}
      Spacing = 1
      Left = 213
      Top = 3
      Visible = True
      OnClick = BtnHelpClick
      SectionName = 'Untitled (0)'
    end
  end
  object Notebook1: TNotebook
    Left = 0
    Top = 49
    Width = 795
    Height = 474
    Align = alClient
    TabOrder = 1
    object TPage
      Left = 0
      Top = 0
      Caption = 'nbpByProductGroup'
      object ByItemChart: TChart
        Left = 0
        Top = 0
        Width = 795
        Height = 474
        BottomWall.Color = clWhite
        Foot.Font.Charset = DEFAULT_CHARSET
        Foot.Font.Color = clRed
        Foot.Font.Height = -13
        Foot.Font.Name = 'Arial'
        Foot.Font.Style = [fsItalic]
        Gradient.EndColor = 8454016
        Gradient.StartColor = clTeal
        Gradient.Visible = True
        LeftWall.Color = 16744448
        LeftWall.Pen.Color = 8388863
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -17
        Title.Font.Name = 'Arial'
        Title.Font.Style = []
        Title.Text.Strings = (
          'By Product Group')
        BackColor = clWhite
        BottomAxis.Title.Caption = 'Product Group'
        BottomAxis.Title.Font.Charset = ANSI_CHARSET
        BottomAxis.Title.Font.Color = clBlue
        BottomAxis.Title.Font.Height = -13
        BottomAxis.Title.Font.Name = 'Arial Black'
        BottomAxis.Title.Font.Style = []
        LeftAxis.Title.Caption = 'Amount'
        LeftAxis.Title.Font.Charset = ANSI_CHARSET
        LeftAxis.Title.Font.Color = clBlue
        LeftAxis.Title.Font.Height = -13
        LeftAxis.Title.Font.Name = 'Arial Black'
        LeftAxis.Title.Font.Style = []
        Legend.LegendStyle = lsSeries
        Legend.TextStyle = ltsRightValue
        MaxPointsPerPage = 8
        Align = alClient
        BorderStyle = bsSingle
        Color = 8388863
        TabOrder = 0
        object CostSer: TBarSeries
          Marks.ArrowLength = 20
          Marks.Style = smsValue
          Marks.Visible = True
          Title = 'Cost Values'
          SeriesColor = clRed
          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
        end
        object SalesSer: TBarSeries
          Marks.ArrowLength = 20
          Marks.Style = smsValue
          Marks.Visible = True
          Title = 'Sales Values'
          SeriesColor = clGreen
          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
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'nbpItems'
      object ByProductChart: TChart
        Left = 0
        Top = 0
        Width = 795
        Height = 474
        BottomWall.Color = clWhite
        Foot.Font.Charset = DEFAULT_CHARSET
        Foot.Font.Color = clRed
        Foot.Font.Height = -13
        Foot.Font.Name = 'Arial'
        Foot.Font.Style = [fsItalic]
        Gradient.EndColor = 8421631
        Gradient.StartColor = 8454143
        Gradient.Visible = True
        LeftWall.Color = 16744448
        LeftWall.Pen.Color = 8388863
        Title.Font.Charset = ANSI_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -17
        Title.Font.Name = 'Arial'
        Title.Font.Style = []
        Title.Text.Strings = (
          'By Products')
        BackColor = clWhite
        BottomAxis.LabelsFont.Charset = DEFAULT_CHARSET
        BottomAxis.LabelsFont.Color = clBlack
        BottomAxis.LabelsFont.Height = -10
        BottomAxis.LabelsFont.Name = 'Arial'
        BottomAxis.LabelsFont.Style = []
        BottomAxis.Title.Caption = 'Product'
        BottomAxis.Title.Font.Charset = ANSI_CHARSET
        BottomAxis.Title.Font.Color = clBlue
        BottomAxis.Title.Font.Height = -13
        BottomAxis.Title.Font.Name = 'Arial Black'
        BottomAxis.Title.Font.Style = []
        LeftAxis.LabelsFont.Charset = DEFAULT_CHARSET
        LeftAxis.LabelsFont.Color = clBlack
        LeftAxis.LabelsFont.Height = -10
        LeftAxis.LabelsFont.Name = 'Arial'
        LeftAxis.LabelsFont.Style = []
        LeftAxis.Title.Caption = 'Amount'
        LeftAxis.Title.Font.Charset = ANSI_CHARSET
        LeftAxis.Title.Font.Color = clBlue
        LeftAxis.Title.Font.Height = -13
        LeftAxis.Title.Font.Name = 'Arial Black'
        LeftAxis.Title.Font.Style = []
        Legend.Font.Charset = DEFAULT_CHARSET
        Legend.Font.Color = clBlue
        Legend.Font.Height = -10
        Legend.Font.Name = 'Arial'
        Legend.Font.Style = [fsItalic]
        Legend.TextStyle = ltsLeftPercent
        MaxPointsPerPage = 8
        Align = alClient
        BorderStyle = bsSingle
        Color = 8388863
        TabOrder = 0
        object CostSeries: TBarSeries
          Marks.ArrowLength = 20
          Marks.Style = smsValue
          Marks.Visible = True
          Title = 'Cost Value'
          SeriesColor = clRed
          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
        end
        object SaleSeries: TBarSeries
          Marks.ArrowLength = 20
          Marks.Style = smsValue
          Marks.Visible = True
          Title = 'Sales Value'
          SeriesColor = clGreen
          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
        end
      end
    end
  end
  object pmSaveGraph: TRxPopupMenu
    LeftMargin = 30
    Style = msOwnerDraw
    OnDrawMargin = pmSaveGraphDrawMargin
    Left = 522
    Top = 354
    object pmSaveAsBitmap: TMenuItem
      Caption = 'Save As &Bitmap'
      OnClick = pmSaveAsBitmapClick
    end
    object pmSaveAsMetafile: TMenuItem
      Caption = 'Save As &Metafile'
      OnClick = pmSaveAsMetafileClick
    end
    object pmCopyToClipboard: TMenuItem
      Caption = 'Copy To &Clipboard'
      OnClick = pmCopyToClipboardClick
    end
  end
  object ProdHistQuery: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'SELECT StkCats.PRODCODE,'
      '         SUM(Invoice2.SUBTOTAL),'
      '         SUM(Invoice2.PROFIT)'
      'FROM Invoice.DBF Invoice,'
      '         Invoice2.DBF Invoice2,'
      '         Stock.DBF Stock,'
      '         StkCats.DBF StkCats,'
      '         Customer.DBF Customer'
      'WHERE ((Invoice.INVNO = Invoice2.INVNO)'
      '     AND (Invoice.ACREF = Customer.ACCREF)'
      '     AND (Invoice2.STOCKCODE = Stock.STOCKCODE)'
      '     AND (Stock.PRODGROUP = StkCats.PRODCODE))'
      
        '     AND (((StkCats.PRODCODE BETWEEN :StProdCode AND :FinProdCod' +
        'e)'
      '     AND (Stock.STOCKCODE BETWEEN :StStkCode AND :FinStkCode)'
      '     AND (Customer.ACCREF BETWEEN :StAccRef AND :FinAccRef)'
      '     AND (Invoice.INVDATE BETWEEN :StInvDate AND :FinInvDate)))'
      'GROUP BY StkCats.PRODCODE'
      'ORDER BY StkCats.PRODCODE ASC')
    Params.Data = {
      010008000A537450726F64436F646500010200300000000B46696E50726F6443
      6F6465000102003000000009537453746B436F646500010200300000000A4669
      6E53746B436F6465000102003000000008537441636352656600010200300000
      000946696E4163635265660001020030000000095374496E7644617465000904
      005A950A0000000A46696E496E7644617465000904005A950A000000}
    ValidateWithMask = True
    Left = 590
    Top = 151
    object ProdHistQueryPRODCODE: TStringField
      FieldName = 'PRODCODE'
      Size = 10
    end
    object ProdHistQuerySUM_OF_SUB: TFloatField
      FieldName = 'SUM_OF_SUB'
    end
    object ProdHistQuerySUM_OF_PRO: TFloatField
      FieldName = 'SUM_OF_PRO'
    end
  end
  object ProdHistQuery2: TwwQuery
    DatabaseName = 'EmpireBuilder'
    SQL.Strings = (
      'SELECT Stock.STOCKCODE,'
      '         SUM(Invoice2.SUBTOTAL),'
      '         SUM(Invoice2.PROFIT)'
      'FROM Invoice.DBF Invoice,'
      '         Invoice2.DBF Invoice2,'
      '         Stock.DBF Stock,'
      '         StkCats.DBF StkCats,'
      '         Customer.DBF Customer'
      'WHERE ((Invoice.INVNO = Invoice2.INVNO)'
      '     AND (Invoice.ACREF = Customer.ACCREF)'
      '     AND (Invoice2.STOCKCODE = Stock.STOCKCODE)'
      '     AND (Stock.PRODGROUP = StkCats.PRODCODE))'
      '     AND (((StkCats.PRODCODE = :ProdCode)'
      '     AND (Stock.STOCKCODE BETWEEN :StStkCode AND :FinStkCode)'
      '     AND (Customer.ACCREF BETWEEN :StAccRef AND :FinAccRef)'
      '     AND (Invoice.INVDATE BETWEEN :StInvDate AND :FinInvDate)))'
      'GROUP BY Stock.STOCKCODE'
      'ORDER BY Stock.STOCKCODE ASC')
    Params.Data = {
      010007000850726F64436F6465000102003000000009537453746B436F646500
      010200300000000A46696E53746B436F64650001020030000000085374416363
      52656600010200300000000946696E4163635265660001020030000000095374
      496E7644617465000904005A950A0000000A46696E496E764461746500090400
      5A950A000000}
    ValidateWithMask = True
    Left = 590
    Top = 231
    object ProdHistQuery2STOCKCODE: TStringField
      FieldName = 'STOCKCODE'
      Size = 16
    end
    object ProdHistQuery2SUM_OF_SUB: TFloatField
      FieldName = 'SUM_OF_SUB'
    end
    object ProdHistQuery2SUM_OF_PRO: TFloatField
      FieldName = 'SUM_OF_PRO'
    end
  end
end