Best Sellers 33: Professional Win95/98/CD_1.iso/HOME/NcomeXpense/_SETUP.1/NX.exe/0/RCDATA/TFRMHISTRPT/TFRMHISTRPT.txt

Text File | 1998-10-21 | 9KB | 409 lines

object frmHistRpt: TfrmHistRpt
  Left = 234
  Top = 161
  Width = 555
  Height = 395
  HelpContext = 1
  HorzScrollBar.Range = 1200
  HorzScrollBar.Position = 200
  VertScrollBar.Range = 2000
  AutoScroll = False
  Caption = 'History Report'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  Scaled = False
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 14
  object QRBand1: TQRBand
    Left = -200
    Top = 47
    Width = 1200
    Height = 24
    Align = alTop
    BandType = rbDetail
    Color = clWhite
    ForceNewPage = False
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Ruler = qrrNone
    object QRDBText1: TQRDBText
      Left = 80
      Top = 6
      Width = 63
      Height = 17
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'Pay Date'
    end
    object QRDBText2: TQRDBText
      Left = 152
      Top = 6
      Width = 57
      Height = 17
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'Due Date'
    end
    object QRDBText3: TQRDBText
      Left = 216
      Top = 6
      Width = 197
      Height = 17
      AlignToBand = False
      AutoStretch = True
      DataSource = DataSchedule
      DataField = 'Description'
    end
    object QRDBText4: TQRDBText
      Left = 414
      Top = 7
      Width = 65
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'Bill Amount'
    end
    object QRDBText5: TQRDBText
      Left = 478
      Top = 7
      Width = 63
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'Pay Amount'
    end
    object QRDBText6: TQRDBText
      Left = 541
      Top = 7
      Width = 34
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'Frequency'
    end
    object QRDBText7: TQRDBText
      Left = 575
      Top = 7
      Width = 62
      Height = 17
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'Units'
    end
    object QRDBText8: TQRDBText
      Left = 684
      Top = 7
      Width = 53
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'Warning Days'
    end
    object QRDBText9: TQRDBText
      Left = 2
      Top = 6
      Width = 63
      Height = 17
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'Process Date'
    end
    object QRDBText10: TQRDBText
      Left = 637
      Top = 7
      Width = 68
      Height = 17
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'End Date'
    end
  end
  object QRBand2: TQRBand
    Left = -200
    Top = 0
    Width = 1200
    Height = 47
    Align = alTop
    BandType = rbPageHeader
    Color = clWhite
    ForceNewPage = False
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Ruler = qrrNone
    object QRLabel1: TQRLabel
      Left = 86
      Top = 32
      Width = 46
      Height = 14
      Caption = 'Pay Date'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object QRLabel2: TQRLabel
      Left = 156
      Top = 32
      Width = 48
      Height = 14
      Caption = 'Due Date'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object QRLabel3: TQRLabel
      Left = 216
      Top = 32
      Width = 63
      Height = 22
      Caption = 'Description'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object QRLabel4: TQRLabel
      Left = 434
      Top = 32
      Width = 47
      Height = 14
      Caption = 'Expense'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object QRLabel5: TQRLabel
      Left = 496
      Top = 32
      Width = 41
      Height = 14
      Caption = 'Income'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object QRLabel6: TQRLabel
      Left = 549
      Top = 32
      Width = 80
      Height = 14
      Caption = 'Repeat Every...'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object QRLabel7: TQRLabel
      Left = 690
      Top = 32
      Width = 57
      Height = 14
      Caption = 'Warn Days'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object QRLabel8: TQRLabel
      Left = 176
      Top = -1
      Width = 441
      Height = 19
      Alignment = taCenter
      AutoSize = False
      Caption = 'History Report'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabel9: TQRLabel
      Left = 2
      Top = 32
      Width = 73
      Height = 14
      Caption = 'Process Date'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object QRLabel10: TQRLabel
      Left = 0
      Top = 5
      Width = 75
      Height = 14
      Caption = '12/31/99'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object QRLabel11: TQRLabel
      Left = 254
      Top = 19
      Width = 289
      Height = 14
      Alignment = taCenter
      AutoSize = False
      Caption = 'Sorted by'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object QRLabel12: TQRLabel
      Left = 636
      Top = 32
      Width = 47
      Height = 14
      Caption = 'End Date'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
  end
  object TableSched: TTable
    IndexName = 'Due Date Index'
    TableName = 'history.DB'
    Left = 122
    Top = 270
    object TableSchedProcessDate: TDateField
      FieldName = 'Process Date'
    end
    object TableSchedPayDate: TDateField
      FieldName = 'Pay Date'
    end
    object TableSchedDueDate: TDateField
      FieldName = 'Due Date'
    end
    object TableSchedDescription: TStringField
      FieldName = 'Description'
      Size = 50
    end
    object TableSchedBillAmount: TCurrencyField
      FieldName = 'Bill Amount'
    end
    object TableSchedPayAmount: TCurrencyField
      FieldName = 'Pay Amount'
    end
    object TableSchedFrequency: TSmallintField
      FieldName = 'Frequency'
    end
    object TableSchedUnits: TStringField
      FieldName = 'Units'
      Size = 15
    end
    object TableSchedWarningDays: TSmallintField
      FieldName = 'Warning Days'
    end
    object TableSchedPrimaryKey: TAutoIncField
      FieldName = 'PrimaryKey'
    end
    object TableSchedEndDate: TDateField
      FieldName = 'End Date'