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

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

object fmBudgetVar: TfmBudgetVar
  Left = 253
  Top = 113
  Width = 420
  Height = 196
  ActiveControl = cbPer1
  Caption = 'Budget Variance Report'
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  Scaled = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object pnlSelPer: TPanel
    Left = 0
    Top = 0
    Width = 412
    Height = 86
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object lblPer1: TLabel
      Left = 26
      Top = 16
      Width = 89
      Height = 16
      Caption = 'Select Period 1'
    end
    object lblPer2: TLabel
      Left = 26
      Top = 56
      Width = 89
      Height = 16
      Caption = 'Select Period 2'
    end
    object cbPer1: TComboBox
      Left = 160
      Top = 12
      Width = 194
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 501
      ItemHeight = 16
      Items.Strings = (
        'This Month'
        'This Year'
        'Last Month'
        'Last Year'
        'Current Balances')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = 'This Month'
      OnChange = cbPer1Change
    end
    object rxcbePer1: TComboEdit
      Left = 353
      Top = 12
      Width = 25
      Height = 24
      Hint = 'Select periods'
      TabStop = False
      NumGlyphs = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Text = 'rxcbePer1'
      OnButtonClick = rxcbePer1ButtonClick
    end
    object cbPer2: TComboBox
      Left = 160
      Top = 52
      Width = 194
      Height = 24
      Hint = 'Press F1 for help'
      HelpContext = 501
      ItemHeight = 16
      Items.Strings = (
        'This Month'
        'This Year'
        'Last Month'
        'Last Year'
        'Current Balances'
        'None')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Text = 'This Year'
      OnChange = cbPer3Change
    end
  end
  object rxcbePer2: TComboEdit
    Left = 353
    Top = 52
    Width = 25
    Height = 24
    Hint = 'Select periods'
    TabStop = False
    NumGlyphs = 1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    Text = 'ComboEdit1'
    OnButtonClick = rxcbePer2ButtonClick
  end
  object pnlDIA: TPanel
    Left = 0
    Top = 86
    Width = 412
    Height = 38
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object cbDIA: TCheckBox
      Left = 26
      Top = 12
      Width = 193
      Height = 17
      Hint = 'Press F1 for help'
      HelpContext = 500
      Alignment = taLeftJustify
      Caption = 'Display Individual Accounts'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 124
    Width = 412
    Height = 45
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    object btnPrint: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 30
      Hint = 'Print budget variance report'
      Caption = '&Print'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = btnPrintClick
    end
    object btnCancel: TButton
      Left = 248
      Top = 8
      Width = 75
      Height = 30
      Caption = '&Cancel'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = btnCancelClick
    end
    object BtnEmail: TButton
      Left = 168
      Top = 8
      Width = 75
      Height = 30
      Hint = 'Email budget variance report'
      Caption = '&Email'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BtnEmailClick
    end
    object BtnGraph: TButton
      Left = 88
      Top = 8
      Width = 75
      Height = 30
      Hint = 'View budget variance graph'
      Caption = '&Graph'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = BtnGraphClick
    end
    object BtnHelp: TButton
      Left = 328
      Top = 8
      Width = 75
      Height = 30
      Caption = '&Help'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = BtnHelpClick
    end
  end
  object taAccPer: TwwTable
    Active = True
    OnCalcFields = taAccPerCalcFields
    DatabaseName = 'EmpireBuilder'
    TableName = 'Accper.DBF'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 298
    Top = 99
    object taAccPerPERIOD: TDateField
      FieldName = 'PERIOD'
    end
    object taAccPerMONTH: TSmallintField
      FieldName = 'MONTH'
    end
    object taAccPerYEAR: TSmallintField
      FieldName = 'YEAR'
    end
    object taAccPerPERIODNAME: TStringField
      FieldName = 'PERIODNAME'
      Size = 14
      Calculated = True
    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 = 358
    Top = 100
    ScreenWidth = (
      800)
    ScreenHeight = (
      600)
    OriginalFormWidth = (
      420)
    OriginalFormHeight = (
      196)
    OriginalFormLeft = (
      253)
    OriginalFormTop = (
      113)
    OriginalFormPPI = (
      120)
    OriginalClientWidth = (
      412)
    OriginalClientHeight = (
      169)
  end
  object taBVTemp: TwwTable
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 323
    Top = 97
    object taBVTempACREF: TStringField
      FieldName = 'ACREF'
      Size = 10
    end
    object taBVTempNAME: TStringField
      FieldName = 'NAME'
      Size = 30
    end
    object taBVTempTYPE: TStringField
      FieldName = 'TYPE'
      Size = 14
    end
    object taBVTempCATEGORY: TStringField
      FieldName = 'CATEGORY'
      Size = 15
    end
    object taBVTempGROUP: TStringField
      FieldName = 'GROUP'
      Size = 30
    end
    object taBVTempAGROUP: TStringField
      FieldName = 'AGROUP'
      Size = 30
    end
    object taBVTempBALPER1: TFloatField
      FieldName = 'BALPER1'
    end
    object taBVTempBALPER2: TFloatField
      FieldName = 'BALPER2'
    end
    object taBVTempBUDPER1: TFloatField
      FieldName = 'BUDPER1'
    end
    object taBVTempRATPER1: TFloatField
      FieldName = 'RATPER1'
    end
    object taBVTempBUDPER2: TFloatField
      FieldName = 'BUDPER2'
    end
    object taBVTempRATPER2: TFloatField
      FieldName = 'RATPER2'
    end
    object taBVTempVARPER1: TFloatField
      FieldName = 'VARPER1'
    end
    object taBVTempVARPER2: TFloatField
      FieldName = 'VARPER2'
    end
  end
end