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

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

object frmreport: Tfrmreport
  Left = 247
  Top = 31
  Width = 532
  Height = 396
  HelpContext = 1
  HorzScrollBar.Range = 1200
  HorzScrollBar.Position = 288
  VertScrollBar.Range = 2000
  AutoScroll = False
  Caption = 'NCome & XPense 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 = -288
    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 = 0
      Top = 4
      Width = 63
      Height = 17
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'Pay Date'
    end
    object QRDBText2: TQRDBText
      Left = 70
      Top = 4
      Width = 65
      Height = 17
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'Due Date'
    end
    object QRDBText3: TQRDBText
      Left = 142
      Top = 4
      Width = 267
      Height = 17
      AlignToBand = False
      AutoStretch = True
      DataSource = DataSchedule
      DataField = 'Description'
    end
    object QRDBText4: TQRDBText
      Left = 406
      Top = 6
      Width = 63
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'Bill Amount'
    end
    object QRDBText5: TQRDBText
      Left = 472
      Top = 6
      Width = 58
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'Pay Amount'
    end
    object QRDBText6: TQRDBText
      Left = 531
      Top = 6
      Width = 31
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'Frequency'
    end
    object QRDBText7: TQRDBText
      Left = 567
      Top = 6
      Width = 57
      Height = 17
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'Units'
    end
    object QRDBText8: TQRDBText
      Left = 699
      Top = 6
      Width = 45
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'Warning Days'
    end
    object QRDBText9: TQRDBText
      Left = 631
      Top = 7
      Width = 66
      Height = 17
      AlignToBand = False
      AutoStretch = False
      DataSource = DataSchedule
      DataField = 'End Date'
    end
  end
  object QRBand2: TQRBand
    Left = -288
    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 = 0
      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 = 70
      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 = 142
      Top = 32
      Width = 63
      Height = 17
      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 = 500
      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 = 547
      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 = 694
      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 = 178
      Top = 1
      Width = 441
      Height = 19
      Alignment = taCenter
      AutoSize = False
      Caption = 'Ncome and Xpense Report'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabel9: 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 QRLabel10: 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 QRLabel11: TQRLabel
      Left = 632
      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 = 'schedule.DB'
    Left = 154
    Top = 272
    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 TableSchedProcessDate: TDateField
      FieldName = 'Process Date'
    end
    object TableSchedEndDate: TDateField
      FieldName = 'End Date'
    end
    object TableSchedPayNow: TStringField
      FieldName = 'PayNow'
      Size = 1
    end
    object TableSchedUserField1: TStringField
      FieldName = 'User Field 1'
      Size = 50
    end
    object TableSchedUserField2: TStringField
      FieldName = 'User Field 2'
      Size = 50
    end
    object TableSchedUserField3: TStringField
      FieldName = 'User Field 3'
      Size = 50
    end
    object TableSchedUserField4: TStringField
      FieldName = 'User Field 4'
      Size = 50
    end
  en