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

Text File | 1999-06-21 | 7KB | 312 lines

object fmStockSales: TfmStockSales
  Left = 102
  Top = 105
  Width = 669
  Height = 462
  HelpContext = 564
  Caption = 'Stock Sales Analysis'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  FormStyle = fsMDIChild
  Position = poDefaultPosOnly
  Scaled = False
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 661
    Height = 390
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object SalesSGrid: TStringGrid
      Left = 4
      Top = 76
      Width = 653
      Height = 300
      Ctl3D = True
      DefaultColWidth = 105
      DefaultRowHeight = 20
      RowCount = 37
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected]
      ParentCtl3D = False
      ScrollBars = ssVertical
      TabOrder = 2
      OnDrawCell = SalesSGridDrawCell
      OnMouseDown = SalesSGridMouseDown
      OnMouseUp = SalesSGridMouseUp
      RowHeights = (
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20
        20)
    end
    object GBStkSales: TGroupBox
      Left = 8
      Top = 4
      Width = 137
      Height = 65
      Caption = 'View Figures For '
      TabOrder = 0
      object RBStockItem: TRadioButton
        Left = 8
        Top = 20
        Width = 89
        Height = 17
        Hint = 'Press F1 for help'
        HelpContext = 594
        Caption = 'Stock Item'
        Checked = True
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        TabStop = True
        OnClick = RBStockItemClick
      end
      object RBProdGroup: TRadioButton
        Left = 8
        Top = 40
        Width = 105
        Height = 21
        Hint = 'Press F1 for help'
        HelpContext = 594
        Caption = 'Product Group'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = RBProdGroupClick
      end
    end
    object Panel3: TPanel
      Left = 148
      Top = 4
      Width = 509
      Height = 65
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 1
      object Label1: TLabel
        Left = 12
        Top = 8
        Width = 68
        Height = 16
        Caption = 'Stock Code'
      end
      object Label2: TLabel
        Left = 12
        Top = 40
        Width = 66
        Height = 16
        Caption = 'Prod Group'
      end
      object DBCDlgStockCode: TComboEdit
        Left = 92
        Top = 4
        Width = 140
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 592
        CharCase = ecUpperCase
        ClickKey = 16467
        ButtonWidth = 24
        NumGlyphs = 1
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnButtonClick = DBCDlgStockCodeButtonClick
        OnEnter = DBCDlgStockCodeEnter
        OnExit = DBCDlgStockCodeExit
      end
      object DBCDlgProdGroup: TComboEdit
        Left = 92
        Top = 36
        Width = 140
        Height = 24
        Hint = 'Press F1 for help'
        HelpContext = 593
        CharCase = ecUpperCase
        ClickKey = 16467
        ButtonWidth = 24
        NumGlyphs = 1
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnButtonClick = DBCDlgProdGroupButtonClick
        OnEnter = DBCDlgProdGroupEnter
        OnExit = DBCDlgProdGroupExit
      end
      object txtStockCode: TEdit
        Left = 240
        Top = 4
        Width = 265
        Height = 24
        ParentColor = True
        ReadOnly = True
        TabOrder = 2
      end
      object txtProdGroup: TEdit
        Left = 240
        Top = 36
        Width = 265
        Height = 24
        ParentColor = True
        ReadOnly = True
        TabOrder = 3
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 390
    Width = 661
    Height = 45
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object BtnCalc: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 30
      Hint = 'Calculate and view selected periods figures'
      Caption = 'C&alculate'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = BtnCalcClick
    end
    object BtnClose: TButton
      Left = 88
      Top = 8
      Width = 75
      Height = 30
      Caption = '&Close'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = BtnCloseClick
    end
    object btnHelp: TButton
      Left = 580
      Top = 8
      Width = 75
      Height = 30
      Caption = '&Help'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = btnHelpClick
    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 = 568
    Top = 100
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      669)
    OriginalFormHeight = (
      462)
    OriginalFormLeft = (
      102)
    OriginalFormTop = (
      105)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      661)
    OriginalClientHeight = (
      435)
  end
  object dsAccPer: TwwDataSource
    DataSet = taAccPer
    Left = 560
    Top = 144
  end
  object taAccPer: TwwTable
    OnCalcFields = taAccPerCalcFields
    DatabaseName = 'EmpireBuilder'
    TableName = 'Accper.DBF'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 588
    Top = 144
    object taAccPerPERIOD: TDateField
      FieldName = 'PERIOD'
    end
    object taAccPerMONTH: TSmallintField
      FieldName = 'MONTH'
    end
    object taAccPerYEAR: TSmallintField
      FieldName = 'YEAR'
    end
    object taAccPerPERIODNAME: TStringField
      DisplayWidth = 16
      FieldName = 'PERIODNAME'
      Calculated = True
    end
  end
end