Computer Buyer 1999 September/Dpcb0999.iso/Business/Empire/_SETUP.1/EmpireBuilder.exe/0/RCDATA/TFMSTOCKPROFIT2/TFMSTOCKPROFIT2.txt

Text File | 1999-06-21 | 12KB | 537 lines

object fmStockProfit2: TfmStockProfit2
  Left = 93
  Top = 129
  Width = 699
  Height = 293
  HelpContext = 562
  Caption = 'Stock Profit Report (Period By Period Analysis)'
  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 = 194
    Width = 691
    Height = 29
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object rbBySC: TRadioButton
      Left = 12
      Top = 8
      Width = 189
      Height = 17
      Hint = 'Press F1 for help'
      HelpContext = 550
      Alignment = taLeftJustify
      Caption = 'By Stock Code'
      Checked = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TabStop = True
    end
    object rcByPG: TRadioButton
      Left = 228
      Top = 8
      Width = 189
      Height = 17
      Hint = 'Press F1 for help'
      HelpContext = 550
      Alignment = taLeftJustify
      Caption = 'By Product Group'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
  end
  object pnlPeriods: TPanel
    Left = 342
    Top = 0
    Width = 349
    Height = 194
    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 = 60
      Width = 91
      Height = 16
      Caption = 'Select Period 2'
    end
    object Label7: TLabel
      Left = 12
      Top = 108
      Width = 91
      Height = 16
      Caption = 'Select Period 3'
    end
    object Label8: TLabel
      Left = 12
      Top = 156
      Width = 91
      Height = 16
      Caption = 'Select Period 4'
    end
    object cbPer2: TComboBox
      Left = 148
      Top = 56
      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 = 4
      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 = 56
      Width = 29
      Height = 24
      TabStop = False
      ButtonHint = 'Select period'
      ClickKey = 16467
      ButtonWidth = 24
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      Text = 'ComboEdit1'
      OnButtonClick = rxcbePer2ButtonClick
    end
    object cbPer3: TComboBox
      Left = 148
      Top = 104
      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 = 104
      Width = 29
      Height = 24
      TabStop = False
      ButtonHint = 'Select period'
      ClickKey = 16467
      ButtonWidth = 24
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnButtonClick = rxcbePer3ButtonClick
    end
    object rxcbePer4: TComboEdit
      Left = 308
      Top = 152
      Width = 29
      Height = 24
      TabStop = False
      ButtonHint = 'Select period'
      ClickKey = 16467
      ButtonWidth = 24
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnButtonClick = rxcbePer4ButtonClick
    end
    object cbPer4: TComboBox
      Left = 148
      Top = 152
      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 = 223
    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 profit report'
      Caption = '&Print'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = BtnPrintClick
    end
    object BtnClose: TButton
      Left = 250
      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 = 169
      Top = 8
      Width = 75
      Height = 30
      Hint = 'Email stock profit report'
      Caption = '&Email'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BtnEmailClick
    end
    object BtnGraph: TButton
      Left = 89
      Top = 8
      Width = 75
      Height = 30
      Hint = 'View stock protit 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 = 194
    Align = alClient
    TabOrder = 0
    object pnlStockCode: TPanel
      Left = 1
      Top = 1
      Width = 340
      Height = 68
      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
        ButtonHint = 'Search'
        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
        ButtonHint = 'Search'
        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 = 69
      Width = 340
      Height = 67
      Align = alClient
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 1
      object Label3: TLabel
        Left = 16
        Top = 11
        Width = 116
        Height = 16
        Caption = 'Start Product Group'
      end
      object Label4: TLabel
        Left = 16
        Top = 39
        Width = 124
        Height = 16
        Caption = 'Finish Product Group'
      end
      object rxcbeStPG: TComboEdit
        Left = 188
        Top = 7
        Width = 120
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 548
        ButtonHint = 'Search'
        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 = 35
        Width = 120
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 549
        ButtonHint = 'Search'
        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 = 136
      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 = 658
    Top = 193
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      699)
    OriginalFormHeight = (
      293)
    OriginalFormLeft = (
      93)
    OriginalFormTop = (
      129)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      691)
    OriginalClientHeight = (
      266)
  end
  object taAccPer: TwwTable
    OnCalcFields = taAccPerCalcFields
    DatabaseName = 'EmpireBuilder'
    TableName = 'Accper.DBF'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 627
    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