home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1999 September / Dpcb0999.iso / Business / Empire / _SETUP.1 / EmpireBuilder.exe / 0 / RCDATA / TFMSTOCKVALUATION / TFMSTOCKVALUATION.txt
Text File  |  1999-06-21  |  30KB  |  977 lines
  1. object fmStockValuation: TfmStockValuation
  2.   Left = 61
  3.   Top = 95
  4.   HelpContext = 560
  5.   AutoScroll = False
  6.   Caption = 'Stock Valuation Report'
  7.   ClientHeight = 432
  8.   ClientWidth = 698
  9.   Font.Charset = ANSI_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'Arial'
  13.   Font.Style = []
  14.   FormStyle = fsMDIChild
  15.   Position = poDefaultPosOnly
  16.   Scaled = False
  17.   Visible = True
  18.   OnActivate = FormActivate
  19.   OnClose = FormClose
  20.   OnCloseQuery = FormCloseQuery
  21.   OnCreate = FormCreate
  22.   OnDeactivate = FormDeactivate
  23.   OnShow = FormShow
  24.   PixelsPerInch = 120
  25.   TextHeight = 16
  26.   object Panel1: TPanel
  27.     Left = 0
  28.     Top = 0
  29.     Width = 698
  30.     Height = 53
  31.     Align = alTop
  32.     TabOrder = 0
  33.     object Label1: TLabel
  34.       Left = 24
  35.       Top = 4
  36.       Width = 100
  37.       Height = 16
  38.       Caption = 'Start Stock Code'
  39.     end
  40.     object Label2: TLabel
  41.       Left = 164
  42.       Top = 4
  43.       Width = 107
  44.       Height = 16
  45.       Caption = 'Finish Stock Code'
  46.     end
  47.     object Label3: TLabel
  48.       Left = 296
  49.       Top = 4
  50.       Width = 92
  51.       Height = 16
  52.       Caption = 'Start Prod. Grp.'
  53.     end
  54.     object Label4: TLabel
  55.       Left = 396
  56.       Top = 4
  57.       Width = 99
  58.       Height = 16
  59.       Caption = 'Finish Prod. Grp.'
  60.     end
  61.     object rxcbeStStock: TComboEdit
  62.       Left = 4
  63.       Top = 20
  64.       Width = 140
  65.       Height = 24
  66.       Hint = 'Press F1 for help'
  67.       HelpContext = 556
  68.       ButtonHint = 'Search'
  69.       CharCase = ecUpperCase
  70.       ClickKey = 16467
  71.       ButtonWidth = 24
  72.       MaxLength = 16
  73.       NumGlyphs = 1
  74.       ParentShowHint = False
  75.       ShowHint = True
  76.       TabOrder = 0
  77.       OnButtonClick = rxcbeStStockButtonClick
  78.       OnEnter = rxcbeStStockEnter
  79.       OnExit = rxcbeStStockExit
  80.     end
  81.     object rxcbeFinStock: TComboEdit
  82.       Left = 148
  83.       Top = 20
  84.       Width = 140
  85.       Height = 24
  86.       Hint = 'Press F1 for help'
  87.       HelpContext = 557
  88.       ButtonHint = 'Search'
  89.       CharCase = ecUpperCase
  90.       ClickKey = 16467
  91.       ButtonWidth = 24
  92.       MaxLength = 16
  93.       NumGlyphs = 1
  94.       ParentShowHint = False
  95.       ShowHint = True
  96.       TabOrder = 1
  97.       OnButtonClick = rxcbeFinStockButtonClick
  98.       OnEnter = rxcbeFinStockEnter
  99.       OnExit = rxcbeFinStockExit
  100.     end
  101.     object rxcbeStPG: TComboEdit
  102.       Left = 292
  103.       Top = 20
  104.       Width = 100
  105.       Height = 24
  106.       Hint = 'Press F1 for help'
  107.       HelpContext = 558
  108.       ButtonHint = 'Search'
  109.       CharCase = ecUpperCase
  110.       ClickKey = 16467
  111.       ButtonWidth = 24
  112.       MaxLength = 16
  113.       NumGlyphs = 1
  114.       ParentShowHint = False
  115.       ShowHint = True
  116.       TabOrder = 2
  117.       OnButtonClick = rxcbeStPGButtonClick
  118.       OnEnter = rxcbeStPGEnter
  119.       OnExit = rxcbeStPGExit
  120.     end
  121.     object rxcbeFinPG: TComboEdit
  122.       Left = 396
  123.       Top = 20
  124.       Width = 100
  125.       Height = 24
  126.       Hint = 'Press F1 for help'
  127.       HelpContext = 559
  128.       ButtonHint = 'Search'
  129.       CharCase = ecUpperCase
  130.       ClickKey = 16467
  131.       ButtonWidth = 24
  132.       MaxLength = 16
  133.       NumGlyphs = 1
  134.       ParentShowHint = False
  135.       ShowHint = True
  136.       TabOrder = 3
  137.       OnButtonClick = rxcbeFinPGButtonClick
  138.       OnEnter = rxcbeFinPGEnter
  139.       OnExit = rxcbeFinPGExit
  140.     end
  141.     object Panel3: TPanel
  142.       Left = 504
  143.       Top = 4
  144.       Width = 189
  145.       Height = 45
  146.       BevelInner = bvRaised
  147.       BevelOuter = bvLowered
  148.       TabOrder = 4
  149.       object cbxIncZero: TCheckBox
  150.         Left = 4
  151.         Top = 4
  152.         Width = 181
  153.         Height = 17
  154.         Hint = 'Press F1 for help'
  155.         HelpContext = 553
  156.         Alignment = taLeftJustify
  157.         Caption = 'Include Zero Stock Items'
  158.         ParentShowHint = False
  159.         ShowHint = True
  160.         State = cbChecked
  161.         TabOrder = 0
  162.         OnClick = cbxIncZeroClick
  163.       end
  164.       object cbxIncNon: TCheckBox
  165.         Left = 4
  166.         Top = 24
  167.         Width = 181
  168.         Height = 17
  169.         Hint = 'Press F1 for help'
  170.         HelpContext = 554
  171.         Alignment = taLeftJustify
  172.         Caption = 'Include Non Stock Items'
  173.         ParentShowHint = False
  174.         ShowHint = True
  175.         TabOrder = 1
  176.         OnClick = cbxIncNonClick
  177.       end
  178.     end
  179.   end
  180.   object PageControl1: TPageControl
  181.     Left = 0
  182.     Top = 53
  183.     Width = 698
  184.     Height = 379
  185.     Hint = 'Press F1 for help'
  186.     ActivePage = TabReport
  187.     Align = alClient
  188.     ParentShowHint = False
  189.     ShowHint = True
  190.     TabOrder = 1
  191.     OnChange = PageControl1Change
  192.     object TabReport: TTabSheet
  193.       Caption = 'Report'
  194.       object Panel2: TPanel
  195.         Left = 0
  196.         Top = 0
  197.         Width = 690
  198.         Height = 348
  199.         Align = alClient
  200.         Caption = 'Panel2'
  201.         TabOrder = 0
  202.         object SpeedBar: TSpeedBar
  203.           Left = 1
  204.           Top = 1
  205.           Width = 688
  206.           Height = 49
  207.           Font.Charset = ANSI_CHARSET
  208.           Font.Color = clWindowText
  209.           Font.Height = -13
  210.           Font.Name = 'MS Sans Serif'
  211.           Font.Style = []
  212.           Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
  213.           BtnOffsetHorz = 3
  214.           BtnOffsetVert = 3
  215.           BtnWidth = 70
  216.           BtnHeight = 43
  217.           BevelOuter = bvNone
  218.           TabOrder = 0
  219.           InternalVer = 1
  220.           object Panel4: TPanel
  221.             Left = 520
  222.             Top = 2
  223.             Width = 173
  224.             Height = 45
  225.             BevelInner = bvRaised
  226.             BevelOuter = bvLowered
  227.             TabOrder = 0
  228.             object rbBySC: TRadioButton
  229.               Left = 5
  230.               Top = 4
  231.               Width = 161
  232.               Height = 17
  233.               Hint = 'Press F1 for help'
  234.               HelpContext = 550
  235.               Alignment = taLeftJustify
  236.               Caption = 'By Stock Code'
  237.               Checked = True
  238.               TabOrder = 0
  239.               TabStop = True
  240.             end
  241.             object rbByPG: TRadioButton
  242.               Left = 5
  243.               Top = 24
  244.               Width = 161
  245.               Height = 17
  246.               Hint = 'Press F1 for help'
  247.               HelpContext = 550
  248.               Alignment = taLeftJustify
  249.               Caption = 'By Product Group'
  250.               TabOrder = 1
  251.             end
  252.           end
  253.           object SpeedbarSection1: TSpeedbarSection
  254.             Caption = 'Untitled (0)'
  255.           end
  256.           object BtnPrint: TSpeedItem
  257.             BtnCaption = 'Print'
  258.             Caption = 'Print stock valuation report'
  259.             Hint = 'Print stock valuation report|'
  260.             Spacing = 1
  261.             Left = 73
  262.             Top = 3
  263.             Visible = True
  264.             OnClick = BtnPrintClick
  265.             SectionName = 'Untitled (0)'
  266.           end
  267.           object BtnEmail: TSpeedItem
  268.             BtnCaption = 'Email'
  269.             Caption = 'Email stock valuation report'
  270.             Hint = 'Email stock valuation report|'
  271.             Spacing = 1
  272.             Left = 143
  273.             Top = 3
  274.             Visible = True
  275.             OnClick = BtnEmailClick
  276.             SectionName = 'Untitled (0)'
  277.           end
  278.           object BtnClose: TSpeedItem
  279.             BtnCaption = 'Close'
  280.             Caption = 'Close'
  281.             Hint = 'Close report'
  282.             Spacing = 1
  283.             Left = 283
  284.             Top = 3
  285.             Visible = True
  286.             OnClick = BtnCloseClick
  287.             SectionName = 'Untitled (0)'
  288.           end
  289.           object BtnZoomIn: TSpeedItem
  290.             BtnCaption = 'Zoom In'
  291.             Caption = 'Transaction zoom-in'
  292.             Hint = 'Zoom in'
  293.             Spacing = 1
  294.             Left = 3
  295.             Top = 3
  296.             Visible = True
  297.             OnClick = BtnZoomInClick
  298.             SectionName = 'Untitled (0)'
  299.           end
  300.           object btnHelp: TSpeedItem
  301.             BtnCaption = '&Help'
  302.             Caption = 'View full help'
  303.             Glyph.Data = {
  304.               F6000000424DF600000000000000760000002800000010000000100000000100
  305.               0400000000008000000000000000000000001000000010000000000000000000
  306.               8000008000000080800080000000800080008080000080808000C0C0C0000000
  307.               FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
  308.               888888888E6648888888888888E6688888888888888888888888888888446888
  309.               8888888886664888888888888E664888888888888E6664888888888888E66648
  310.               88888888888E6664888888844888E6664888886664888E66488888E666444666
  311.               4888888E6666666668888888EE6666668888888888EEEEE88888}
  312.             Hint = 'View full help|'
  313.             Spacing = 1
  314.             Left = 213
  315.             Top = 3
  316.             Visible = True
  317.             OnClick = btnHelpClick
  318.             SectionName = 'Untitled (0)'
  319.           end
  320.         end
  321.         object wwDBGrid1: TwwDBGrid
  322.           Left = 1
  323.           Top = 50
  324.           Width = 688
  325.           Height = 297
  326.           Selected.Strings = (
  327.             'STOCKCODE'#9'16'#9'Stock Code'#9'F'
  328.             'DESC'#9'40'#9'Description'#9'F'
  329.             'INSTOCK'#9'10'#9'Quantity~In Stock'#9'F'
  330.             'REP_T_VAL1'#9'10'#9'Average~Cost Price'#9'F'
  331.             'REP_T_VAL2'#9'10'#9'Stock Value~At Cost'#9'F'
  332.             'REP_T_VAL3'#9'10'#9'Average~Sales Price'#9'F'
  333.             'SALEPRICE1'#9'10'#9'Sales~Price A'#9'F'
  334.             'SALEPRICE2'#9'10'#9'Sales ~Price B'#9'F'
  335.             'SALEPRICE3'#9'10'#9'Sales~Price C'#9'F'
  336.             'REP_T_VAL4'#9'10'#9'Stock Sales~Value'#9'F'
  337.             'REP_T_VAL5'#9'10'#9'Stock Sales~Value'#9'F'
  338.             'REP_T_VAL6'#9'10'#9'Stock Sales~Value'#9'F'
  339.             'REP_T_VAL7'#9'10'#9'Stock Sales~Value'#9'F')
  340.           TitleColor = clBtnFace
  341.           FixedCols = 1
  342.           ShowHorzScrollBar = True
  343.           Align = alClient
  344.           DataSource = dsStock
  345.           Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter, dgFooter3DCells]
  346.           PopupMenu = rxpmStockAdj
  347.           TabOrder = 1
  348.           TitleAlignment = taLeftJustify
  349.           TitleFont.Charset = ANSI_CHARSET
  350.           TitleFont.Color = clWindowText
  351.           TitleFont.Height = -13
  352.           TitleFont.Name = 'Arial'
  353.           TitleFont.Style = []
  354.           TitleLines = 2
  355.           TitleButtons = True
  356.           UseTFields = False
  357.           OnCalcCellColors = wwDBGrid1CalcCellColors
  358.           OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes
  359.           OnTitleButtonClick = wwDBGrid1TitleButtonClick
  360.           OnDblClick = BtnZoomInClick
  361.           IndicatorColor = icBlack
  362.           OnTopRowChanged = wwDBGrid1TopRowChanged
  363.           OnCalcTitleImage = wwDBGrid1CalcTitleImage
  364.           TitleImageList = ImagesDM.GenralBM
  365.           FooterCellColor = clYellow
  366.           FooterHeight = 25
  367.         end
  368.       end
  369.     end
  370.     object TabGraph: TTabSheet
  371.       Caption = 'Graph'
  372.       object SpeedBar1: TSpeedBar
  373.         Left = 0
  374.         Top = 0
  375.         Width = 0
  376.         Height = 49
  377.         Font.Charset = ANSI_CHARSET
  378.         Font.Color = clWindowText
  379.         Font.Height = -13
  380.         Font.Name = 'MS Sans Serif'
  381.         Font.Style = []
  382.         Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
  383.         BtnOffsetHorz = 3
  384.         BtnOffsetVert = 3
  385.         BtnWidth = 70
  386.         BtnHeight = 43
  387.         BevelOuter = bvNone
  388.         TabOrder = 0
  389.         InternalVer = 1
  390.         object Label6: TLabel
  391.           Left = 547
  392.           Top = 4
  393.           Width = 72
  394.           Height = 16
  395.           Caption = 'Graph Type'
  396.         end
  397.         object ComboBox2: TComboBox
  398.           Left = 545
  399.           Top = 20
  400.           Width = 137
  401.           Height = 24
  402.           Hint = 'Press F1 for help'
  403.           ItemHeight = 16
  404.           Items.Strings = (
  405.             'Vertical Bar '
  406.             'Horizontal Bar'
  407.             'Line'
  408.             'Fast Line'
  409.             'Point'
  410.             'Area')
  411.           TabOrder = 0
  412.           Text = 'Vertical Bar '
  413.           OnChange = ComboBox2Change
  414.         end
  415.         object cbMarks: TCheckBox
  416.           Left = 390
  417.           Top = 21
  418.           Width = 134
  419.           Height = 17
  420.           Hint = 'Press F1 for help'
  421.           HelpContext = 147
  422.           Alignment = taLeftJustify
  423.           Caption = '&Toggle Marks'
  424.           State = cbChecked
  425.           TabOrder = 1
  426.           OnClick = cbMarksClick
  427.         end
  428.         object SpeedbarSection2: TSpeedbarSection
  429.           Caption = 'Untitled (0)'
  430.         end
  431.         object BtnPrintGraph: TSpeedItem
  432.           BtnCaption = 'Print'
  433.           Caption = 'Print graph'
  434.           Hint = 'Print graph'
  435.           Spacing = 1
  436.           Left = 73
  437.           Top = 3
  438.           Visible = True
  439.           OnClick = BtnPrintGraphClick
  440.           SectionName = 'Untitled (0)'
  441.         end
  442.         object BtnEmailGraph: TSpeedItem
  443.           BtnCaption = 'Email'
  444.           Caption = 'Email graph'
  445.           Hint = 'Email graph|'
  446.           Spacing = 1
  447.           Left = 143
  448.           Top = 3
  449.           Visible = True
  450.           OnClick = BtnEmailGraphClick
  451.           SectionName = 'Untitled (0)'
  452.         end
  453.         object BtnCloseGraph: TSpeedItem
  454.           BtnCaption = 'Close'
  455.           Caption = 'Close'
  456.           Hint = 'Close graph'
  457.           Spacing = 1
  458.           Left = 283
  459.           Top = 3
  460.           Visible = True
  461.           OnClick = BtnCloseClick
  462.           SectionName = 'Untitled (0)'
  463.         end
  464.         object BtnSave: TSpeedItem
  465.           BtnCaption = 'Save'
  466.           Caption = 'Save graph'
  467.           DropDownMenu = pmSaveGraph
  468.           Hint = 'Save graph'
  469.           Spacing = 1
  470.           Left = 3
  471.           Top = 3
  472.           Visible = True
  473.           OnClick = BtnZoomInClick
  474.           SectionName = 'Untitled (0)'
  475.         end
  476.         object btnGraHelp: TSpeedItem
  477.           BtnCaption = '&Help'
  478.           Caption = 'View full help on this graph'
  479.           Glyph.Data = {
  480.             F6000000424DF600000000000000760000002800000010000000100000000100
  481.             0400000000008000000000000000000000001000000010000000000000000000
  482.             8000008000000080800080000000800080008080000080808000C0C0C0000000
  483.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
  484.             888888888E6648888888888888E6688888888888888888888888888888446888
  485.             8888888886664888888888888E664888888888888E6664888888888888E66648
  486.             88888888888E6664888888844888E6664888886664888E66488888E666444666
  487.             4888888E6666666668888888EE6666668888888888EEEEE88888}
  488.           Hint = 'View full help on this graph|'
  489.           Spacing = 1
  490.           Left = 213
  491.           Top = 3
  492.           Visible = True
  493.           OnClick = btnGraHelpClick
  494.           SectionName = 'Untitled (0)'
  495.         end
  496.       end
  497.       object Notebook1: TNotebook
  498.         Left = 0
  499.         Top = 49
  500.         Width = 690
  501.         Height = 299
  502.         Align = alClient
  503.         PageIndex = 1
  504.         TabOrder = 1
  505.         object TPage
  506.           Left = 0
  507.           Top = 0
  508.           Caption = 'nbpByProductGroup'
  509.           object ByItemChart: TChart
  510.             Left = 0
  511.             Top = 0
  512.             Width = 690
  513.             Height = 299
  514.             BottomWall.Color = clWhite
  515.             Foot.Font.Charset = DEFAULT_CHARSET
  516.             Foot.Font.Color = clRed
  517.             Foot.Font.Height = -13
  518.             Foot.Font.Name = 'Arial'
  519.             Foot.Font.Style = [fsItalic]
  520.             Gradient.EndColor = 8453888
  521.             Gradient.StartColor = clTeal
  522.             Gradient.Visible = True
  523.             LeftWall.Color = 16744448
  524.             LeftWall.Pen.Color = 8388863
  525.             Title.Font.Charset = ANSI_CHARSET
  526.             Title.Font.Color = clBlue
  527.             Title.Font.Height = -17
  528.             Title.Font.Name = 'Arial'
  529.             Title.Font.Style = []
  530.             Title.Text.Strings = (
  531.               'By Product Group')
  532.             BackColor = clWhite
  533.             BottomAxis.Title.Caption = 'Product Group'
  534.             BottomAxis.Title.Font.Charset = ANSI_CHARSET
  535.             BottomAxis.Title.Font.Color = clBlue
  536.             BottomAxis.Title.Font.Height = -13
  537.             BottomAxis.Title.Font.Name = 'Arial Black'
  538.             BottomAxis.Title.Font.Style = []
  539.             LeftAxis.Title.Caption = 'Amount'
  540.             LeftAxis.Title.Font.Charset = ANSI_CHARSET
  541.             LeftAxis.Title.Font.Color = clBlue
  542.             LeftAxis.Title.Font.Height = -13
  543.             LeftAxis.Title.Font.Name = 'Arial Black'
  544.             LeftAxis.Title.Font.Style = []
  545.             Legend.LegendStyle = lsSeries
  546.             Legend.TextStyle = ltsRightValue
  547.             MaxPointsPerPage = 8
  548.             Align = alClient
  549.             BorderStyle = bsSingle
  550.             Color = 8388863
  551.             TabOrder = 0
  552.             object CostSer: TBarSeries
  553.               Marks.ArrowLength = 20
  554.               Marks.Style = smsValue
  555.               Marks.Visible = True
  556.               Title = 'Cost Values'
  557.               SeriesColor = clRed
  558.               XValues.DateTime = False
  559.               XValues.Name = 'X'
  560.               XValues.Multiplier = 1.000000000000000000
  561.               XValues.Order = loAscending
  562.               YValues.DateTime = False
  563.               YValues.Name = 'Bar'
  564.               YValues.Multiplier = 1.000000000000000000
  565.               YValues.Order = loNone
  566.             end
  567.             object SalesSer: TBarSeries
  568.               Marks.ArrowLength = 20
  569.               Marks.Style = smsValue
  570.               Marks.Visible = True
  571.               Title = 'Sales Values'
  572.               SeriesColor = clGreen
  573.               XValues.DateTime = False
  574.               XValues.Name = 'X'
  575.               XValues.Multiplier = 1.000000000000000000
  576.               XValues.Order = loAscending
  577.               YValues.DateTime = False
  578.               YValues.Name = 'Bar'
  579.               YValues.Multiplier = 1.000000000000000000
  580.               YValues.Order = loNone
  581.             end
  582.           end
  583.         end
  584.         object TPage
  585.           Left = 0
  586.           Top = 0
  587.           Caption = 'nbpItems'
  588.           object ByProductChart: TChart
  589.             Left = 0
  590.             Top = 0
  591.             Width = 690
  592.             Height = 299
  593.             BottomWall.Color = clWhite
  594.             Foot.Font.Charset = DEFAULT_CHARSET
  595.             Foot.Font.Color = clRed
  596.             Foot.Font.Height = -13
  597.             Foot.Font.Name = 'Arial'
  598.             Foot.Font.Style = [fsItalic]
  599.             Gradient.EndColor = 16744448
  600.             Gradient.StartColor = clAqua
  601.             Gradient.Visible = True
  602.             LeftWall.Color = 16744448
  603.             LeftWall.Pen.Color = 8388863
  604.             Title.Font.Charset = ANSI_CHARSET
  605.             Title.Font.Color = clBlue
  606.             Title.Font.Height = -17
  607.             Title.Font.Name = 'Arial'
  608.             Title.Font.Style = []
  609.             Title.Text.Strings = (
  610.               'By Products')
  611.             BackColor = clWhite
  612.             BottomAxis.LabelsFont.Charset = DEFAULT_CHARSET
  613.             BottomAxis.LabelsFont.Color = clBlack
  614.             BottomAxis.LabelsFont.Height = -10
  615.             BottomAxis.LabelsFont.Name = 'Arial'
  616.             BottomAxis.LabelsFont.Style = []
  617.             BottomAxis.Title.Caption = 'Product'
  618.             BottomAxis.Title.Font.Charset = ANSI_CHARSET
  619.             BottomAxis.Title.Font.Color = clBlue
  620.             BottomAxis.Title.Font.Height = -13
  621.             BottomAxis.Title.Font.Name = 'Arial Black'
  622.             BottomAxis.Title.Font.Style = []
  623.             LeftAxis.LabelsFont.Charset = DEFAULT_CHARSET
  624.             LeftAxis.LabelsFont.Color = clBlack
  625.             LeftAxis.LabelsFont.Height = -10
  626.             LeftAxis.LabelsFont.Name = 'Arial'
  627.             LeftAxis.LabelsFont.Style = []
  628.             LeftAxis.Title.Caption = 'Amount'
  629.             LeftAxis.Title.Font.Charset = ANSI_CHARSET
  630.             LeftAxis.Title.Font.Color = clBlue
  631.             LeftAxis.Title.Font.Height = -13
  632.             LeftAxis.Title.Font.Name = 'Arial Black'
  633.             LeftAxis.Title.Font.Style = []
  634.             Legend.Font.Charset = DEFAULT_CHARSET
  635.             Legend.Font.Color = clBlue
  636.             Legend.Font.Height = -10
  637.             Legend.Font.Name = 'Arial'
  638.             Legend.Font.Style = [fsItalic]
  639.             Legend.TextStyle = ltsLeftPercent
  640.             MaxPointsPerPage = 8
  641.             Align = alClient
  642.             BorderStyle = bsSingle
  643.             Color = 8388863
  644.             TabOrder = 0
  645.             object CostSeries: TBarSeries
  646.               Marks.ArrowLength = 20
  647.               Marks.Style = smsValue
  648.               Marks.Visible = True
  649.               Title = 'Cost Value'
  650.               SeriesColor = clRed
  651.               XValues.DateTime = False
  652.               XValues.Name = 'X'
  653.               XValues.Multiplier = 1.000000000000000000
  654.               XValues.Order = loAscending
  655.               YValues.DateTime = False
  656.               YValues.Name = 'Bar'
  657.               YValues.Multiplier = 1.000000000000000000
  658.               YValues.Order = loNone
  659.             end
  660.             object SaleSeries: TBarSeries
  661.               Marks.ArrowLength = 20
  662.               Marks.Style = smsValue
  663.               Marks.Visible = True
  664.               Title = 'Sales Value'
  665.               SeriesColor = clGreen
  666.               XValues.DateTime = False
  667.               XValues.Name = 'X'
  668.               XValues.Multiplier = 1.000000000000000000
  669.               XValues.Order = loAscending
  670.               YValues.DateTime = False
  671.               YValues.Name = 'Bar'
  672.               YValues.Multiplier = 1.000000000000000000
  673.               YValues.Order = loNone
  674.             end
  675.           end
  676.         end
  677.       end
  678.     end
  679.   end
  680.   object Sizer1: TSizer
  681.     Enabled = True
  682.     ExceptionAction = eaIgnoreControl
  683.     GridColumnSizing = gcSizeAllColumns
  684.     GridRowSizing = grSizeByDefaults
  685.     MinimumSize = True
  686.     NavigateOnEnter = True
  687.     OverrideParentFont = True
  688.     PerformAssertions = True
  689.     ShowAssertionFailures = False
  690.     StretchFonts = True
  691.     StretchImages = True
  692.     StretchOnResize = True
  693.     ThreadProcessing = False
  694.     Left = 644
  695.     Top = 131
  696.     ScreenWidth = (
  697.       800)
  698.     ScreenHeight = (
  699.       600)
  700.     OriginalFormWidth = (
  701.       706)
  702.     OriginalFormHeight = (
  703.       459)
  704.     OriginalFormLeft = (
  705.       61)
  706.     OriginalFormTop = (
  707.       95)
  708.     OriginalFormPPI = (
  709.       120)
  710.     OriginalClientWidth = (
  711.       698)
  712.     OriginalClientHeight = (
  713.       432)
  714.   end
  715.   object dsStock: TwwDataSource
  716.     DataSet = qyStock
  717.     Left = 285
  718.     Top = 270
  719.   end
  720.   object rxpmStockAdj: TRxPopupMenu
  721.     Style = msOwnerDraw
  722.     ShowCheckMarks = False
  723.     OnGetItemParams = rxpmStockAdjGetItemParams
  724.     Left = 541
  725.     Top = 238
  726.     object pmiAvVal: TMenuItem
  727.       Caption = 'Average Valuation'
  728.       Checked = True
  729.       OnClick = pmiAvValClick
  730.     end
  731.     object pmiSPA: TMenuItem
  732.       Caption = 'Sales Price A'
  733.       OnClick = pmiSPAClick
  734.     end
  735.     object pmiSPB: TMenuItem
  736.       Caption = 'Sales Price B'
  737.       OnClick = pmiSPBClick
  738.     end
  739.     object pmiSPC: TMenuItem
  740.       Caption = 'Sales Price C'
  741.       OnClick = pmiSPCClick
  742.     end
  743.     object N2: TMenuItem
  744.       Caption = '-'
  745.     end
  746.     object ZoomIn1: TMenuItem
  747.       Caption = 'Zoom In'
  748.       OnClick = BtnZoomInClick
  749.     end
  750.     object N3: TMenuItem
  751.       Caption = '-'
  752.     end
  753.     object PrintReport1: TMenuItem
  754.       Caption = 'Print Report'
  755.     end
  756.     object EMailReport1: TMenuItem
  757.       Caption = 'Email Report'
  758.     end
  759.     object N1: TMenuItem
  760.       Caption = '-'
  761.     end
  762.     object pmChangeGridColour: TMenuItem
  763.       Caption = 'Change Grid Colour'
  764.       OnClick = pmChangeGridColourClick
  765.     end
  766.   end
  767.   object pmSaveGraph: TRxPopupMenu
  768.     LeftMargin = 30
  769.     Style = msOwnerDraw
  770.     OnDrawMargin = pmSaveGraphDrawMargin
  771.     Left = 422
  772.     Top = 222
  773.     object pmSaveAsBitmap: TMenuItem
  774.       Caption = 'Save As &Bitmap'
  775.       OnClick = pmSaveAsBitmapClick
  776.     end
  777.     object pmSaveAsMetafile: TMenuItem
  778.       Caption = 'Save As &Metafile'
  779.       OnClick = pmSaveAsMetafileClick
  780.     end
  781.     object pmCopyToClipboard: TMenuItem
  782.       Caption = 'Copy To &Clipboard'
  783.       OnClick = pmCopyToClipboardClick
  784.     end
  785.   end
  786.   object qyStock: TwwQuery
  787.     DatabaseName = 'EmpireBuilder'
  788.     SQL.Strings = (
  789.       'SELECT STOCKCODE, Stock."DESC", INSTOCK, LEVELS, PRODGROUP, '
  790.       '        SALEPRICE1, SALEPRICE2, SALEPRICE3, REORDLEV, COSTPRICE,'
  791.       '        REP_T_VAL1, REP_T_VAL2,REP_T_VAL3, REP_T_VAL4,'
  792.       '       REP_T_VAL5,REP_T_VAL6, REP_T_VAL7'
  793.       'FROM Stock'
  794.       'WHERE (((PRODGROUP BETWEEN :StPrdGrp AND :FinPrdGrp)'
  795.       '     AND (STOCKCODE BETWEEN :StStkCode AND :FinStkCode)'
  796.       '     AND (INSTOCK > 0)  AND (Stock.LEVELS = True)))')
  797.     Params.Data = {
  798.       0100040008537450726447727000010200300000000946696E50726447727000
  799.       0102003000000009537453746B436F646500010200300000000A46696E53746B
  800.       436F64650001020030000000}
  801.     ValidateWithMask = True
  802.     Left = 284
  803.     Top = 220
  804.     object qyStockSTOCKCODE: TStringField
  805.       DisplayLabel = 'Stock Code'
  806.       DisplayWidth = 16
  807.       FieldName = 'STOCKCODE'
  808.       Origin = '"Stock.DBF".STOCKCODE'
  809.       Size = 16
  810.     end
  811.     object qyStockDESC: TStringField
  812.       DisplayLabel = 'Description'
  813.       DisplayWidth = 40
  814.       FieldName = 'DESC'
  815.       Origin = '"Stock.DBF".DESC'
  816.       Size = 40
  817.     end
  818.     object qyStockINSTOCK: TFloatField
  819.       DisplayLabel = 'Quantity~In Stock'
  820.       DisplayWidth = 10
  821.       FieldName = 'INSTOCK'
  822.       Origin = '"Stock.DBF".INSTOCK'
  823.     end
  824.     object qyStockREP_T_VAL1: TFloatField
  825.       DisplayLabel = 'Average~Cost Price'
  826.       DisplayWidth = 10
  827.       FieldName = 'REP_T_VAL1'
  828.       Origin = '"Stock.DBF".REP_T_VAL1'
  829.     end
  830.     object qyStockREP_T_VAL2: TFloatField
  831.       DisplayLabel = 'Stock Value~At Cost'
  832.       DisplayWidth = 10
  833.       FieldName = 'REP_T_VAL2'
  834.       Origin = '"Stock.DBF".REP_T_VAL2'
  835.       DisplayFormat = '0.00'
  836.     end
  837.     object qyStockREP_T_VAL3: TFloatField
  838.       DisplayLabel = 'Average~Sales Price'
  839.       DisplayWidth = 10
  840.       FieldName = 'REP_T_VAL3'
  841.       Origin = '"Stock.DBF".REP_T_VAL3'
  842.     end
  843.     object qyStockSALEPRICE1: TFloatField
  844.       DisplayLabel = 'Sales~Price A'
  845.       DisplayWidth = 10
  846.       FieldName = 'SALEPRICE1'
  847.       Origin = '"Stock.DBF".SALEPRICE1'
  848.     end
  849.     object qyStockSALEPRICE2: TFloatField
  850.       DisplayLabel = 'Sales ~Price B'
  851.       DisplayWidth = 10
  852.       FieldName = 'SALEPRICE2'
  853.       Origin = '"Stock.DBF".SALEPRICE2'
  854.     end
  855.     object qyStockSALEPRICE3: TFloatField
  856.       DisplayLabel = 'Sales~Price C'
  857.       DisplayWidth = 10
  858.       FieldName = 'SALEPRICE3'
  859.       Origin = '"Stock.DBF".SALEPRICE3'
  860.     end
  861.     object qyStockREP_T_VAL4: TFloatField
  862.       DisplayLabel = 'Stock Sales~Value'
  863.       DisplayWidth = 10
  864.       FieldName = 'REP_T_VAL4'
  865.       Origin = '"Stock.DBF".REP_T_VAL4'
  866.       DisplayFormat = '0.00'
  867.     end
  868.     object qyStockREP_T_VAL5: TFloatField
  869.       DisplayLabel = 'Stock Sales~Value'
  870.       DisplayWidth = 10
  871.       FieldName = 'REP_T_VAL5'
  872.       Origin = '"Stock.DBF".REP_T_VAL5'
  873.       DisplayFormat = '0.00'
  874.     end
  875.     object qyStockREP_T_VAL6: TFloatField
  876.       DisplayLabel = 'Stock Sales~Value'
  877.       DisplayWidth = 10
  878.       FieldName = 'REP_T_VAL6'
  879.       Origin = '"Stock.DBF".REP_T_VAL6'
  880.       DisplayFormat = '0.00'
  881.     end
  882.     object qyStockREP_T_VAL7: TFloatField
  883.       DisplayLabel = 'Stock Sales~Value'
  884.       DisplayWidth = 10
  885.       FieldName = 'REP_T_VAL7'
  886.       Origin = '"Stock.DBF".REP_T_VAL7'
  887.       DisplayFormat = '0.00'
  888.     end
  889.     object qyStockLEVELS: TBooleanField
  890.       DisplayWidth = 5
  891.       FieldName = 'LEVELS'
  892.       Origin = '"Stock.DBF".LEVELS'
  893.       Visible = False
  894.     end
  895.     object qyStockREORDLEV: TFloatField
  896.       FieldName = 'REORDLEV'
  897.       Origin = '"Stock.DBF".REORDLEV'
  898.       Visible = False
  899.     end
  900.     object qyStockPRODGROUP: TStringField
  901.       FieldName = 'PRODGROUP'
  902.       Origin = '"Stock.DBF".PRODGROUP'
  903.       Visible = False
  904.       Size = 10
  905.     end
  906.     object qyStockCOSTPRICE: TFloatField
  907.       FieldName = 'COSTPRICE'
  908.       Origin = '"Stock.DBF".COSTPRICE'
  909.       Visible = False
  910.     end
  911.   end
  912.   object qySum: TwwQuery
  913.     DatabaseName = 'EmpireBuilder'
  914.     SQL.Strings = (
  915.       'SELECT SUM(Stock.REP_T_VAL2),'
  916.       '         SUM(Stock.REP_T_VAL4),'
  917.       '         SUM(Stock.REP_T_VAL5),'
  918.       '         SUM(Stock.REP_T_VAL6),'
  919.       '         SUM(Stock.REP_T_VAL7)'
  920.       '    FROM ":EmpireBuilder:Stock.DBF" Stock'
  921.       '   WHERE (((Stock.PRODGROUP BETWEEN '#39'1'#39' AND '#39'TECH'#39')'
  922.       '     AND (Stock.STOCKCODE BETWEEN '#39'A101921'#39' AND '#39'S/W02'#39')'
  923.       '     AND (Stock.INSTOCK > 0)'
  924.       '     AND (Stock.LEVELS = "True")))')
  925.     ValidateWithMask = True
  926.     Left = 160
  927.     Top = 224
  928.     object qySumSUM_OF_REP: TFloatField
  929.       FieldName = 'SUM_OF_REP'
  930.       Origin = '"Stock.DBF".REP_T_VAL2'
  931.     end
  932.     object qySumSUM_OF_R_1: TFloatField
  933.       FieldName = 'SUM_OF_R_1'
  934.       Origin = '"Stock.DBF".REP_T_VAL4'
  935.     end
  936.     object qySumSUM_OF_R_2: TFloatField
  937.       FieldName = 'SUM_OF_R_2'
  938.       Origin = '"Stock.DBF".REP_T_VAL5'
  939.     end
  940.     object qySumSUM_OF_R_3: TFloatField
  941.       FieldName = 'SUM_OF_R_3'
  942.       Origin = '"Stock.DBF".REP_T_VAL6'
  943.     end
  944.     object qySumSUM_OF_R_4: TFloatField
  945.       FieldName = 'SUM_OF_R_4'
  946.       Origin = '"Stock.DBF".REP_T_VAL7'
  947.     end
  948.   end
  949.   object qyGraph: TwwQuery
  950.     DatabaseName = 'EmpireBuilder'
  951.     SQL.Strings = (
  952.       'SELECT Stock.PRODGROUP, StkCats."DESC",'
  953.       '         SUM(Stock.REP_T_VAL2),'
  954.       '         SUM(Stock.REP_T_VAL4)'
  955.       'FROM Stock , StkCats'
  956.       'WHERE ((Stock.PRODGROUP = StkCats.PRODCODE))'
  957.       'GROUP BY Stock.PRODGROUP, StkCats."DESC"'
  958.       'ORDER BY Stock.PRODGROUP ASC')
  959.     ValidateWithMask = True
  960.     Left = 180
  961.     Top = 296
  962.     object qyGraphPRODGROUP: TStringField
  963.       FieldName = 'PRODGROUP'
  964.       Origin = '"Stock.DBF".PRODGROUP'
  965.       Size = 10
  966.     end
  967.     object qyGraphSUM_OF_REP: TFloatField
  968.       FieldName = 'SUM_OF_REP'
  969.       Origin = '"Stock.DBF".REP_T_VAL2'
  970.     end
  971.     object qyGraphSUM_OF_R_1: TFloatField
  972.       FieldName = 'SUM_OF_R_1'
  973.       Origin = '"Stock.DBF".REP_T_VAL4'
  974.     end
  975.   end
  976. end
  977.