object fmStkSalesRep: TfmStkSalesRep Left = 81 Top = 153 Width = 699 Height = 294 HelpContext = 561 Caption = 'Stock Sales Report' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Scaled = False OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object pnlBy: TPanel Left = 0 Top = 195 Width = 691 Height = 29 Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 2 object rbBySC: TRadioButton Left = 12 Top = 8 Width = 189 Height = 17 HelpContext = 550 Alignment = taLeftJustify Caption = 'By Stock Code' Checked = True TabOrder = 0 TabStop = True end object rcByPG: TRadioButton Left = 228 Top = 8 Width = 189 Height = 17 HelpContext = 550 Alignment = taLeftJustify Caption = 'By Product Group' TabOrder = 1 end end object pnlPeriods: TPanel Left = 342 Top = 0 Width = 349 Height = 195 Align = alRight BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Label5: TLabel Left = 12 Top = 12 Width = 91 Height = 16 Caption = 'Select Period 1' end object Label6: TLabel Left = 12 Top = 50 Width = 91 Height = 16 Caption = 'Select Period 2' end object Label7: TLabel Left = 12 Top = 88 Width = 91 Height = 16 Caption = 'Select Period 3' end object Label8: TLabel Left = 12 Top = 126 Width = 91 Height = 16 Caption = 'Select Period 4' end object Label9: TLabel Left = 12 Top = 164 Width = 91 Height = 16 Caption = 'Select Period 5' end object cbPer2: TComboBox Left = 148 Top = 46 Width = 160 Height = 24 Hint = 'Press F1 for help' HelpContext = 591 ItemHeight = 16 Items.Strings = ( 'This Month' 'Last Month' 'This Year' 'Last Year' 'None') ParentShowHint = False ShowHint = True TabOrder = 1 Text = 'This Year' OnChange = cbPer2Change end object rxcbePer1: TComboEdit Left = 308 Top = 8 Width = 29 Height = 24 TabStop = False ButtonHint = 'Select period' ClickKey = 16467 ButtonWidth = 24 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 5 OnButtonClick = rxcbePer1ButtonClick end object cbPer1: TComboBox Left = 148 Top = 8 Width = 160 Height = 24 Hint = 'Press F1 for help' HelpContext = 591 ItemHeight = 16 Items.Strings = ( 'This Month' 'Last Month' 'This Year' 'Last Year') ParentShowHint = False ShowHint = True TabOrder = 0 Text = 'This Month' OnChange = cbPer1Change end object rxcbePer2: TComboEdit Left = 308 Top = 46 Width = 29 Height = 24 TabStop = False ButtonHint = 'Select period' ClickKey = 16467 ButtonWidth = 24 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 6 Text = 'ComboEdit1' OnButtonClick = rxcbePer2ButtonClick end object cbPer3: TComboBox Left = 148 Top = 84 Width = 160 Height = 24 Hint = 'Press F1 for help' HelpContext = 591 ItemHeight = 16 Items.Strings = ( 'This Month' 'Last Month' 'This Year' 'Last Year' 'None') ParentShowHint = False ShowHint = True TabOrder = 2 Text = 'None' OnChange = cbPer3Change end object rxcbePer3: TComboEdit Left = 308 Top = 84 Width = 29 Height = 24 TabStop = False ButtonHint = 'Select period' ClickKey = 16467 ButtonWidth = 24 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 7 OnButtonClick = rxcbePer3ButtonClick end object rxcbePer4: TComboEdit Left = 308 Top = 122 Width = 29 Height = 24 TabStop = False ButtonHint = 'Select period' ClickKey = 16467 ButtonWidth = 24 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 8 OnButtonClick = rxcbePer4ButtonClick end object cbPer5: TComboBox Left = 148 Top = 160 Width = 160 Height = 24 Hint = 'Press F1 for help' HelpContext = 591 ItemHeight = 16 Items.Strings = ( 'This Month' 'Last Month' 'This Year' 'Last Year' 'None') ParentShowHint = False ShowHint = True TabOrder = 4 Text = 'None' OnChange = cbPer5Change end object rxcbePer5: TComboEdit Left = 308 Top = 160 Width = 29 Height = 24 TabStop = False ButtonHint = 'Select period' ClickKey = 16467 ButtonWidth = 24 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 9 Text = 'rxcbePer5' OnButtonClick = rxcbePer5ButtonClick end object cbPer4: TComboBox Left = 148 Top = 122 Width = 160 Height = 24 Hint = 'Press F1 for help' HelpContext = 591 ItemHeight = 16 Items.Strings = ( 'This Month' 'Last Month' 'This Year' 'Last Year' 'None') ParentShowHint = False ShowHint = True TabOrder = 3 Text = 'None' OnChange = cbPer4Change end end object pnlBtns: TPanel Left = 0 Top = 224 Width = 691 Height = 43 Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 3 object BtnPrint: TButton Left = 8 Top = 8 Width = 75 Height = 30 Hint = 'Print stock sales report' Caption = '&Print' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = BtnPrintClick end object BtnClose: TButton Left = 257 Top = 8 Width = 75 Height = 30 Hint = 'Close the form' Caption = '&Close' ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = BtnCloseClick end object BtnEmail: TButton Left = 174 Top = 8 Width = 75 Height = 30 Hint = 'Email stock sales report' Caption = '&Email' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = BtnEmailClick end object BtnGraph: TButton Left = 91 Top = 8 Width = 75 Height = 30 Hint = 'View stock sales graph' Caption = '&Graph' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = BtnGraphClick end object btnHelp: TButton Left = 610 Top = 8 Width = 75 Height = 30 Caption = '&Help' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = btnHelpClick end end object Panel1: TPanel Left = 0 Top = 0 Width = 342 Height = 195 Align = alClient TabOrder = 0 object pnlStockCode: TPanel Left = 1 Top = 1 Width = 340 Height = 69 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object Label1: TLabel Left = 16 Top = 12 Width = 100 Height = 16 Caption = 'Start Stock Code' end object Label2: TLabel Left = 16 Top = 40 Width = 108 Height = 16 Caption = 'Finish Stock Code' end object rxcbeStStock: TComboEdit Left = 188 Top = 8 Width = 140 Height = 24 Hint = 'Press F1 for help' HelpContext = 546 CharCase = ecUpperCase ClickKey = 16467 ButtonWidth = 24 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 0 Text = 'RXCBESTSTOCK' OnButtonClick = rxcbeStStockButtonClick OnEnter = rxcbeStStockEnter OnExit = rxcbeStStockExit end object rxcbeFinStock: TComboEdit Left = 188 Top = 36 Width = 140 Height = 24 Hint = 'Press F1 for help' HelpContext = 547 CharCase = ecUpperCase ClickKey = 16467 ButtonWidth = 24 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 1 Text = 'RXCBEFINSTOCK' OnButtonClick = rxcbeFinStockButtonClick OnEnter = rxcbeFinStockEnter OnExit = rxcbeFinStockExit end end object pnlProdGrp: TPanel Left = 1 Top = 70 Width = 340 Height = 67 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Label3: TLabel Left = 16 Top = 12 Width = 116 Height = 16 Caption = 'Start Product Group' end object Label4: TLabel Left = 16 Top = 40 Width = 124 Height = 16 Caption = 'Finish Product Group' end object rxcbeStPG: TComboEdit Left = 188 Top = 8 Width = 120 Height = 24 Hint = 'Press F1 for help' HelpContext = 548 CharCase = ecUpperCase ClickKey = 16467 ButtonWidth = 24 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 0 Text = 'RXCBESTPG' OnButtonClick = rxcbeStPGButtonClick OnEnter = rxcbeStPGEnter OnExit = rxcbeStPGExit end object rxcbeFinPG: TComboEdit Left = 188 Top = 36 Width = 120 Height = 24 Hint = 'Press F1 for help' HelpContext = 549 CharCase = ecUpperCase ClickKey = 16467 ButtonWidth = 24 NumGlyphs = 1 ParentShowHint = False ShowHint = True TabOrder = 1 Text = 'RXCBEFINPG' OnButtonClick = rxcbeFinPGButtonClick OnEnter = rxcbeFinPGEnter OnExit = rxcbeFinPGExit end end object pnlInclude: TPanel Left = 1 Top = 137 Width = 340 Height = 57 Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 2 object cbxIncZero: TCheckBox Left = 12 Top = 8 Width = 189 Height = 17 Hint = 'Press F1 for help' HelpContext = 553 Alignment = taLeftJustify Caption = 'Include Zero Stock Items' ParentShowHint = False ShowHint = True State = cbChecked TabOrder = 0 end object cbxIncNon: TCheckBox Left = 12 Top = 32 Width = 189 Height = 17 Hint = 'Press F1 for help' HelpContext = 554 Alignment = taLeftJustify Caption = 'Include Non Stock Items' ParentShowHint = False ShowHint = True TabOrder = 1 end end end object Sizer1: TSizer Enabled = True ExceptionAction = eaIgnoreControl GridColumnSizing = gcSizeAllColumns GridRowSizing = grSizeByDefaults MinimumSize = True NavigateOnEnter = True OverrideParentFont = True PerformAssertions = True ShowAssertionFailures = False StretchFonts = True StretchImages = True StretchOnResize = True ThreadProcessing = False Left = 648 Top = 192 ScreenWidth = ( 800) ScreenHeight = ( 600) OriginalFormWidth = ( 699) OriginalFormHeight = ( 294) OriginalFormLeft = ( 81) OriginalFormTop = ( 153) OriginalFormPPI = ( 120) OriginalClientWidth = ( 691) OriginalClientHeight = ( 267) end object taAccPer: TwwTable OnCalcFields = taAccPerCalcFields DatabaseName = 'EmpireBuilder' TableName = 'Accper.DBF' SyncSQLByRange = False NarrowSearch = False ValidateWithMask = True Left = 612 Top = 192 object taAccPerPERIOD: TDateField FieldName = 'PERIOD' end object taAccPerMONTH: TSmallintField FieldName = 'MONTH' end object taAccPerYEAR: TSmallintField FieldName = 'YEAR' end object taAccPerPERIODNAME: TStringField DisplayWidth = 14 FieldName = 'PERIODNAME' Calculated = True end end end