home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1999 September / Dpcb0999.iso / Business / Empire / _SETUP.1 / EmpireBuilder.exe / 0 / RCDATA / TFMINVPRODHISTGRAPH / TFMINVPRODHISTGRAPH.txt
Text File  |  1999-06-21  |  13KB  |  421 lines
  1. object fmInvProdHistGraph: TfmInvProdHistGraph
  2.   Left = -1
  3.   Top = -1
  4.   HelpContext = 575
  5.   AutoScroll = False
  6.   Caption = 'Product Invoice History'
  7.   ClientHeight = 523
  8.   ClientWidth = 795
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'Arial'
  13.   Font.Style = []
  14.   OnClose = FormClose
  15.   OnCreate = FormCreate
  16.   OnShow = FormShow
  17.   PixelsPerInch = 120
  18.   TextHeight = 16
  19.   object SpeedBar: TSpeedBar
  20.     Left = 0
  21.     Top = 0
  22.     Width = 795
  23.     Height = 49
  24.     Font.Charset = ANSI_CHARSET
  25.     Font.Color = clWindowText
  26.     Font.Height = -13
  27.     Font.Name = 'MS Sans Serif'
  28.     Font.Style = []
  29.     Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
  30.     BtnOffsetHorz = 3
  31.     BtnOffsetVert = 3
  32.     BtnWidth = 70
  33.     BtnHeight = 43
  34.     TabOrder = 0
  35.     InternalVer = 1
  36.     object Label6: TLabel
  37.       Left = 624
  38.       Top = 4
  39.       Width = 72
  40.       Height = 16
  41.       Caption = 'Graph Type'
  42.     end
  43.     object ComboBox2: TComboBox
  44.       Left = 624
  45.       Top = 20
  46.       Width = 137
  47.       Height = 24
  48.       ItemHeight = 16
  49.       Items.Strings = (
  50.         'Vertical Bar '
  51.         'Horizontal Bar'
  52.         'Line'
  53.         'Fast Line'
  54.         'Point'
  55.         'Area')
  56.       TabOrder = 0
  57.       Text = 'Vertical Bar '
  58.       OnChange = ComboBox2Change
  59.     end
  60.     object cbMarks: TCheckBox
  61.       Left = 460
  62.       Top = 16
  63.       Width = 125
  64.       Height = 17
  65.       Alignment = taLeftJustify
  66.       Caption = '&Toggel Marks'
  67.       State = cbChecked
  68.       TabOrder = 1
  69.       OnClick = cbMarksClick
  70.     end
  71.     object SpeedbarSection2: TSpeedbarSection
  72.       Caption = 'Untitled (0)'
  73.     end
  74.     object BtnSaveGraph: TSpeedItem
  75.       BtnCaption = 'Save'
  76.       Caption = 'Save Graph'
  77.       DropDownMenu = pmSaveGraph
  78.       NumGlyphs = 2
  79.       Spacing = 1
  80.       Left = 3
  81.       Top = 3
  82.       Visible = True
  83.       SectionName = 'Untitled (0)'
  84.     end
  85.     object BtnPrintGraph: TSpeedItem
  86.       BtnCaption = 'Print'
  87.       Caption = 'Print Graph'
  88.       Hint = 'Print product invoice history graph'
  89.       Spacing = 1
  90.       Left = 73
  91.       Top = 3
  92.       Visible = True
  93.       OnClick = BtnPrintGraphClick
  94.       SectionName = 'Untitled (0)'
  95.     end
  96.     object BtnEmailGraph: TSpeedItem
  97.       BtnCaption = 'Email'
  98.       Caption = 'Email Graph'
  99.       Hint = 'Email product invoice history graph'
  100.       Spacing = 1
  101.       Left = 143
  102.       Top = 3
  103.       Visible = True
  104.       OnClick = BtnEmailGraphClick
  105.       SectionName = 'Untitled (0)'
  106.     end
  107.     object BtnCloseGraph: TSpeedItem
  108.       BtnCaption = 'Close'
  109.       Caption = 'Close'
  110.       Spacing = 1
  111.       Left = 283
  112.       Top = 3
  113.       Visible = True
  114.       OnClick = BtnCloseGraphClick
  115.       SectionName = 'Untitled (0)'
  116.     end
  117.     object BtnHelp: TSpeedItem
  118.       BtnCaption = 'Help'
  119.       Caption = 'Help'
  120.       Glyph.Data = {
  121.         F6000000424DF600000000000000760000002800000010000000100000000100
  122.         0400000000008000000000000000000000001000000010000000000000000000
  123.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  124.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
  125.         888888888E6648888888888888E6688888888888888888888888888888446888
  126.         8888888886664888888888888E664888888888888E6664888888888888E66648
  127.         88888888888E6664888888844888E6664888886664888E66488888E666444666
  128.         4888888E6666666668888888EE6666668888888888EEEEE88888}
  129.       Spacing = 1
  130.       Left = 213
  131.       Top = 3
  132.       Visible = True
  133.       OnClick = BtnHelpClick
  134.       SectionName = 'Untitled (0)'
  135.     end
  136.   end
  137.   object Notebook1: TNotebook
  138.     Left = 0
  139.     Top = 49
  140.     Width = 795
  141.     Height = 474
  142.     Align = alClient
  143.     TabOrder = 1
  144.     object TPage
  145.       Left = 0
  146.       Top = 0
  147.       Caption = 'nbpByProductGroup'
  148.       object ByItemChart: TChart
  149.         Left = 0
  150.         Top = 0
  151.         Width = 795
  152.         Height = 474
  153.         BottomWall.Color = clWhite
  154.         Foot.Font.Charset = DEFAULT_CHARSET
  155.         Foot.Font.Color = clRed
  156.         Foot.Font.Height = -13
  157.         Foot.Font.Name = 'Arial'
  158.         Foot.Font.Style = [fsItalic]
  159.         Gradient.EndColor = 8454016
  160.         Gradient.StartColor = clTeal
  161.         Gradient.Visible = True
  162.         LeftWall.Color = 16744448
  163.         LeftWall.Pen.Color = 8388863
  164.         Title.Font.Charset = ANSI_CHARSET
  165.         Title.Font.Color = clBlue
  166.         Title.Font.Height = -17
  167.         Title.Font.Name = 'Arial'
  168.         Title.Font.Style = []
  169.         Title.Text.Strings = (
  170.           'By Product Group')
  171.         BackColor = clWhite
  172.         BottomAxis.Title.Caption = 'Product Group'
  173.         BottomAxis.Title.Font.Charset = ANSI_CHARSET
  174.         BottomAxis.Title.Font.Color = clBlue
  175.         BottomAxis.Title.Font.Height = -13
  176.         BottomAxis.Title.Font.Name = 'Arial Black'
  177.         BottomAxis.Title.Font.Style = []
  178.         LeftAxis.Title.Caption = 'Amount'
  179.         LeftAxis.Title.Font.Charset = ANSI_CHARSET
  180.         LeftAxis.Title.Font.Color = clBlue
  181.         LeftAxis.Title.Font.Height = -13
  182.         LeftAxis.Title.Font.Name = 'Arial Black'
  183.         LeftAxis.Title.Font.Style = []
  184.         Legend.LegendStyle = lsSeries
  185.         Legend.TextStyle = ltsRightValue
  186.         MaxPointsPerPage = 8
  187.         Align = alClient
  188.         BorderStyle = bsSingle
  189.         Color = 8388863
  190.         TabOrder = 0
  191.         object CostSer: TBarSeries
  192.           Marks.ArrowLength = 20
  193.           Marks.Style = smsValue
  194.           Marks.Visible = True
  195.           Title = 'Cost Values'
  196.           SeriesColor = clRed
  197.           XValues.DateTime = False
  198.           XValues.Name = 'X'
  199.           XValues.Multiplier = 1.000000000000000000
  200.           XValues.Order = loAscending
  201.           YValues.DateTime = False
  202.           YValues.Name = 'Bar'
  203.           YValues.Multiplier = 1.000000000000000000
  204.           YValues.Order = loNone
  205.         end
  206.         object SalesSer: TBarSeries
  207.           Marks.ArrowLength = 20
  208.           Marks.Style = smsValue
  209.           Marks.Visible = True
  210.           Title = 'Sales Values'
  211.           SeriesColor = clGreen
  212.           XValues.DateTime = False
  213.           XValues.Name = 'X'
  214.           XValues.Multiplier = 1.000000000000000000
  215.           XValues.Order = loAscending
  216.           YValues.DateTime = False
  217.           YValues.Name = 'Bar'
  218.           YValues.Multiplier = 1.000000000000000000
  219.           YValues.Order = loNone
  220.         end
  221.       end
  222.     end
  223.     object TPage
  224.       Left = 0
  225.       Top = 0
  226.       Caption = 'nbpItems'
  227.       object ByProductChart: TChart
  228.         Left = 0
  229.         Top = 0
  230.         Width = 795
  231.         Height = 474
  232.         BottomWall.Color = clWhite
  233.         Foot.Font.Charset = DEFAULT_CHARSET
  234.         Foot.Font.Color = clRed
  235.         Foot.Font.Height = -13
  236.         Foot.Font.Name = 'Arial'
  237.         Foot.Font.Style = [fsItalic]
  238.         Gradient.EndColor = 8421631
  239.         Gradient.StartColor = 8454143
  240.         Gradient.Visible = True
  241.         LeftWall.Color = 16744448
  242.         LeftWall.Pen.Color = 8388863
  243.         Title.Font.Charset = ANSI_CHARSET
  244.         Title.Font.Color = clBlue
  245.         Title.Font.Height = -17
  246.         Title.Font.Name = 'Arial'
  247.         Title.Font.Style = []
  248.         Title.Text.Strings = (
  249.           'By Products')
  250.         BackColor = clWhite
  251.         BottomAxis.LabelsFont.Charset = DEFAULT_CHARSET
  252.         BottomAxis.LabelsFont.Color = clBlack
  253.         BottomAxis.LabelsFont.Height = -10
  254.         BottomAxis.LabelsFont.Name = 'Arial'
  255.         BottomAxis.LabelsFont.Style = []
  256.         BottomAxis.Title.Caption = 'Product'
  257.         BottomAxis.Title.Font.Charset = ANSI_CHARSET
  258.         BottomAxis.Title.Font.Color = clBlue
  259.         BottomAxis.Title.Font.Height = -13
  260.         BottomAxis.Title.Font.Name = 'Arial Black'
  261.         BottomAxis.Title.Font.Style = []
  262.         LeftAxis.LabelsFont.Charset = DEFAULT_CHARSET
  263.         LeftAxis.LabelsFont.Color = clBlack
  264.         LeftAxis.LabelsFont.Height = -10
  265.         LeftAxis.LabelsFont.Name = 'Arial'
  266.         LeftAxis.LabelsFont.Style = []
  267.         LeftAxis.Title.Caption = 'Amount'
  268.         LeftAxis.Title.Font.Charset = ANSI_CHARSET
  269.         LeftAxis.Title.Font.Color = clBlue
  270.         LeftAxis.Title.Font.Height = -13
  271.         LeftAxis.Title.Font.Name = 'Arial Black'
  272.         LeftAxis.Title.Font.Style = []
  273.         Legend.Font.Charset = DEFAULT_CHARSET
  274.         Legend.Font.Color = clBlue
  275.         Legend.Font.Height = -10
  276.         Legend.Font.Name = 'Arial'
  277.         Legend.Font.Style = [fsItalic]
  278.         Legend.TextStyle = ltsLeftPercent
  279.         MaxPointsPerPage = 8
  280.         Align = alClient
  281.         BorderStyle = bsSingle
  282.         Color = 8388863
  283.         TabOrder = 0
  284.         object CostSeries: TBarSeries
  285.           Marks.ArrowLength = 20
  286.           Marks.Style = smsValue
  287.           Marks.Visible = True
  288.           Title = 'Cost Value'
  289.           SeriesColor = clRed
  290.           XValues.DateTime = False
  291.           XValues.Name = 'X'
  292.           XValues.Multiplier = 1.000000000000000000
  293.           XValues.Order = loAscending
  294.           YValues.DateTime = False
  295.           YValues.Name = 'Bar'
  296.           YValues.Multiplier = 1.000000000000000000
  297.           YValues.Order = loNone
  298.         end
  299.         object SaleSeries: TBarSeries
  300.           Marks.ArrowLength = 20
  301.           Marks.Style = smsValue
  302.           Marks.Visible = True
  303.           Title = 'Sales Value'
  304.           SeriesColor = clGreen
  305.           XValues.DateTime = False
  306.           XValues.Name = 'X'
  307.           XValues.Multiplier = 1.000000000000000000
  308.           XValues.Order = loAscending
  309.           YValues.DateTime = False
  310.           YValues.Name = 'Bar'
  311.           YValues.Multiplier = 1.000000000000000000
  312.           YValues.Order = loNone
  313.         end
  314.       end
  315.     end
  316.   end
  317.   object pmSaveGraph: TRxPopupMenu
  318.     LeftMargin = 30
  319.     Style = msOwnerDraw
  320.     OnDrawMargin = pmSaveGraphDrawMargin
  321.     Left = 522
  322.     Top = 354
  323.     object pmSaveAsBitmap: TMenuItem
  324.       Caption = 'Save As &Bitmap'
  325.       OnClick = pmSaveAsBitmapClick
  326.     end
  327.     object pmSaveAsMetafile: TMenuItem
  328.       Caption = 'Save As &Metafile'
  329.       OnClick = pmSaveAsMetafileClick
  330.     end
  331.     object pmCopyToClipboard: TMenuItem
  332.       Caption = 'Copy To &Clipboard'
  333.       OnClick = pmCopyToClipboardClick
  334.     end
  335.   end
  336.   object ProdHistQuery: TwwQuery
  337.     DatabaseName = 'EmpireBuilder'
  338.     SQL.Strings = (
  339.       'SELECT StkCats.PRODCODE,'
  340.       '         SUM(Invoice2.SUBTOTAL),'
  341.       '         SUM(Invoice2.PROFIT)'
  342.       'FROM Invoice.DBF Invoice,'
  343.       '         Invoice2.DBF Invoice2,'
  344.       '         Stock.DBF Stock,'
  345.       '         StkCats.DBF StkCats,'
  346.       '         Customer.DBF Customer'
  347.       'WHERE ((Invoice.INVNO = Invoice2.INVNO)'
  348.       '     AND (Invoice.ACREF = Customer.ACCREF)'
  349.       '     AND (Invoice2.STOCKCODE = Stock.STOCKCODE)'
  350.       '     AND (Stock.PRODGROUP = StkCats.PRODCODE))'
  351.       
  352.         '     AND (((StkCats.PRODCODE BETWEEN :StProdCode AND :FinProdCod' +
  353.         'e)'
  354.       '     AND (Stock.STOCKCODE BETWEEN :StStkCode AND :FinStkCode)'
  355.       '     AND (Customer.ACCREF BETWEEN :StAccRef AND :FinAccRef)'
  356.       '     AND (Invoice.INVDATE BETWEEN :StInvDate AND :FinInvDate)))'
  357.       'GROUP BY StkCats.PRODCODE'
  358.       'ORDER BY StkCats.PRODCODE ASC')
  359.     Params.Data = {
  360.       010008000A537450726F64436F646500010200300000000B46696E50726F6443
  361.       6F6465000102003000000009537453746B436F646500010200300000000A4669
  362.       6E53746B436F6465000102003000000008537441636352656600010200300000
  363.       000946696E4163635265660001020030000000095374496E7644617465000904
  364.       005A950A0000000A46696E496E7644617465000904005A950A000000}
  365.     ValidateWithMask = True
  366.     Left = 590
  367.     Top = 151
  368.     object ProdHistQueryPRODCODE: TStringField
  369.       FieldName = 'PRODCODE'
  370.       Size = 10
  371.     end
  372.     object ProdHistQuerySUM_OF_SUB: TFloatField
  373.       FieldName = 'SUM_OF_SUB'
  374.     end
  375.     object ProdHistQuerySUM_OF_PRO: TFloatField
  376.       FieldName = 'SUM_OF_PRO'
  377.     end
  378.   end
  379.   object ProdHistQuery2: TwwQuery
  380.     DatabaseName = 'EmpireBuilder'
  381.     SQL.Strings = (
  382.       'SELECT Stock.STOCKCODE,'
  383.       '         SUM(Invoice2.SUBTOTAL),'
  384.       '         SUM(Invoice2.PROFIT)'
  385.       'FROM Invoice.DBF Invoice,'
  386.       '         Invoice2.DBF Invoice2,'
  387.       '         Stock.DBF Stock,'
  388.       '         StkCats.DBF StkCats,'
  389.       '         Customer.DBF Customer'
  390.       'WHERE ((Invoice.INVNO = Invoice2.INVNO)'
  391.       '     AND (Invoice.ACREF = Customer.ACCREF)'
  392.       '     AND (Invoice2.STOCKCODE = Stock.STOCKCODE)'
  393.       '     AND (Stock.PRODGROUP = StkCats.PRODCODE))'
  394.       '     AND (((StkCats.PRODCODE = :ProdCode)'
  395.       '     AND (Stock.STOCKCODE BETWEEN :StStkCode AND :FinStkCode)'
  396.       '     AND (Customer.ACCREF BETWEEN :StAccRef AND :FinAccRef)'
  397.       '     AND (Invoice.INVDATE BETWEEN :StInvDate AND :FinInvDate)))'
  398.       'GROUP BY Stock.STOCKCODE'
  399.       'ORDER BY Stock.STOCKCODE ASC')
  400.     Params.Data = {
  401.       010007000850726F64436F6465000102003000000009537453746B436F646500
  402.       010200300000000A46696E53746B436F64650001020030000000085374416363
  403.       52656600010200300000000946696E4163635265660001020030000000095374
  404.       496E7644617465000904005A950A0000000A46696E496E764461746500090400
  405.       5A950A000000}
  406.     ValidateWithMask = True
  407.     Left = 590
  408.     Top = 231
  409.     object ProdHistQuery2STOCKCODE: TStringField
  410.       FieldName = 'STOCKCODE'
  411.       Size = 16
  412.     end
  413.     object ProdHistQuery2SUM_OF_SUB: TFloatField
  414.       FieldName = 'SUM_OF_SUB'
  415.     end
  416.     object ProdHistQuery2SUM_OF_PRO: TFloatField
  417.       FieldName = 'SUM_OF_PRO'
  418.     end
  419.   end
  420. end
  421.