PC World Komputer 1997 May/Pcwk0597.iso/delphi/cbsuite.lzh/SU1SRC.ZIP/DEMO06.DFM/DEMO06.txt

Text File | 1997-01-18 | 31KB | 1,309 lines

object FBDemo06: TFBDemo06
  Left = 106
  Top = 87
  Width = 788
  Height = 584
  HorzScrollBar.Range = 2000
  VertScrollBar.Range = 2000
  AutoScroll = False
  Caption = 'FBDemo06'
  Font.Color = clWindowText
  Font.Height = -17
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 120
  TextHeight = 20
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 2000
    Height = 42
    Align = alTop
    TabOrder = 0
    object DBNavigator: TDBNavigator
      Left = 10
      Top = 5
      Width = 281
      Height = 31
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
    end
    object Button1: TButton
      Left = 688
      Top = 9
      Width = 75
      Height = 25
      Caption = 'Button1'
      TabOrder = 1
    end
  end
  object CBReport1: TCBReport
    Left = 0
    Top = 48
    Width = 992
    Height = 1403
    Font.Color = clWindowText
    Font.Height = 16
    Font.Name = 'Arial'
    Font.Style = []
    Color = 15794175
    ParentFont = False
    About = 'Version 5.32'
    AboutRegistered = 'TOM SNIDER'
    Bands.Master = Master
    Bands.Detail = DetailBand
    Bands.Title = Title
    Bands.PageHeader = PageHeader
    Bands.PageFooter = PageFooter
    Viewer.BkColor = 11234567
    Viewer.Heading = 'BandIt Viewer'
    Viewer.ShowCancelDialog = True
    Viewer.MinimizeRunForm = False
    Viewer.ZoomPercentage = 100.000000000000000000
    Page.FrameStyle = frThin
    Page.MarginLeft = 0.400000000000000000
    Page.MarginTop = 0.400000000000000000
    Page.MarginRight = 0.400000000000000000
    Page.PaperSize = A4
    OutputTo = poViewer
    Orientation = Default
    Units = poInches
    Copies = 1
    LineSpacing = 2.500000000000000000
    RewindBeforePrint = True
    object Master: TCBBand
      Left = 49
      Top = 193
      Width = 894
      Height = 198
      Align = alTop
      Color = clWhite
      Frame.Color = clSilver
      Frame.Left = frNone
      Frame.Right = frNone
      Frame.Top = frSingleThin
      Frame.Bottom = frSingleThin
      ForceNewPage = False
      BandType = cbMaster
      DataSource = DataSource1
      object Label35: TLabel
        Left = 8
        Top = 34
        Width = 75
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'CustNo'
      end
      object Label36: TLabel
        Left = 16
        Top = 60
        Width = 67
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Company'
      end
      object Label37: TLabel
        Left = 32
        Top = 86
        Width = 51
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Addr1'
      end
      object Label38: TLabel
        Left = 40
        Top = 112
        Width = 43
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Addr2'
      end
      object Label39: TLabel
        Left = 48
        Top = 138
        Width = 35
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'City'
      end
      object Label40: TLabel
        Left = 364
        Top = 36
        Width = 47
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'State'
      end
      object Label41: TLabel
        Left = 356
        Top = 62
        Width = 55
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Zip'
      end
      object Label42: TLabel
        Left = 340
        Top = 88
        Width = 71
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Country'
      end
      object Label43: TLabel
        Left = 332
        Top = 114
        Width = 79
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Phone'
      end
      object Label44: TLabel
        Left = 302
        Top = 140
        Width = 109
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'FAX'
      end
      object Label45: TLabel
        Left = 590
        Top = 38
        Width = 109
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'TaxRate'
      end
      object Label46: TLabel
        Left = 590
        Top = 64
        Width = 109
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Contact'
      end
      object Label47: TLabel
        Left = 590
        Top = 90
        Width = 109
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'LastInvoiceDate'
      end
      object DBEdit1: TDBEdit
        Left = 89
        Top = 30
        Width = 91
        Height = 24
        DataField = 'CustNo'
        DataSource = DataSource1
        MaxLength = 0
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 89
        Top = 56
        Width = 231
        Height = 24
        DataField = 'Company'
        DataSource = DataSource1
        MaxLength = 30
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 89
        Top = 82
        Width = 231
        Height = 24
        DataField = 'Addr1'
        DataSource = DataSource1
        MaxLength = 30
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 89
        Top = 108
        Width = 231
        Height = 24
        DataField = 'Addr2'
        DataSource = DataSource1
        MaxLength = 30
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 89
        Top = 134
        Width = 126
        Height = 24
        DataField = 'City'
        DataSource = DataSource1
        MaxLength = 15
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 417
        Top = 32
        Width = 161
        Height = 24
        DataField = 'State'
        DataSource = DataSource1
        MaxLength = 20
        TabOrder = 5
      end
      object DBEdit7: TDBEdit
        Left = 417
        Top = 58
        Width = 91
        Height = 24
        DataField = 'Zip'
        DataSource = DataSource1
        MaxLength = 10
        TabOrder = 6
      end
      object DBEdit8: TDBEdit
        Left = 417
        Top = 84
        Width = 161
        Height = 24
        DataField = 'Country'
        DataSource = DataSource1
        MaxLength = 20
        TabOrder = 7
      end
      object DBEdit9: TDBEdit
        Left = 417
        Top = 110
        Width = 126
        Height = 24
        DataField = 'Phone'
        DataSource = DataSource1
        MaxLength = 15
        TabOrder = 8
      end
      object DBEdit10: TDBEdit
        Left = 417
        Top = 136
        Width = 126
        Height = 24
        DataField = 'FAX'
        DataSource = DataSource1
        MaxLength = 15
        TabOrder = 9
      end
      object DBEdit11: TDBEdit
        Left = 705
        Top = 34
        Width = 91
        Height = 24
        DataField = 'TaxRate'
        DataSource = DataSource1
        MaxLength = 0
        TabOrder = 10
      end
      object DBEdit12: TDBEdit
        Left = 705
        Top = 60
        Width = 161
        Height = 24
        DataField = 'Contact'
        DataSource = DataSource1
        MaxLength = 20
        TabOrder = 11
      end
      object DBEdit13: TDBEdit
        Left = 705
        Top = 86
        Width = 168
        Height = 24
        DataField = 'LastInvoiceDate'
        DataSource = DataSource1
        MaxLength = 0
        TabOrder = 12
      end
    end
    object PageHeader: TCBBand
      Left = 49
      Top = 49
      Width = 894
      Height = 80
      Align = alTop
      Color = clWhite
      Frame.Color = clBlack
      Frame.Left = frNone
      Frame.Right = frNone
      Frame.Top = frDoubleThickThin
      Frame.Bottom = frSingleThin
      ForceNewPage = False
      BandType = cbPageHeader
      object CB_Label2: TCB_Label
        Left = 364
        Top = 24
        Width = 166
        Height = 32
        Caption = 'Page Header'
        Font.Color = clBlue
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        About = 'Version 5.32'
        Style = stRaised
        ShadowOffset = 5
      end
      object Image1: TImage
        Left = 8
        Top = 32
        Width = 49
        Height = 33
        Picture.Data = {<image000.bmp>}
      end
      object CBSystem2: TCBSystem
        Left = 7
        Top = 8
        Width = 170
        Height = 16
        ParentFont = False
        BorderStyle = bsNone
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        Color = clWhite
        Data = cbDateTime
        DisplayFormat = '0'
        Text = '1'
        Alignment = taLeftJustify
      end
    end
    object Title: TCBBand
      Left = 49
      Top = 129
      Width = 894
      Height = 64
      Align = alTop
      Color = clWhite
      Frame.Color = clBlack
      Frame.Left = frSingleThin
      Frame.Right = frSingleThin
      Frame.Top = frSingleThin
      Frame.Bottom = frSingleThin
      ForceNewPage = False
      BandType = cbTitle
      object CB_Label1: TCB_Label
        Left = 261
        Top = 16
        Width = 372
        Height = 32
        Caption = 'Master - Detail - Detail Demo'
        Font.Color = clRed
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        About = 'Version 5.32'
        Style = stRaised
        ShadowOffset = 5
      end
    end
    object DetailBand: TCBDetailBand
      Left = 49
      Top = 417
      Width = 894
      Height = 24
      Align = alTop
      Color = clWhite
      Frame.Color = clSilver
      Frame.Left = frNone
      Frame.Right = frNone
      Frame.Top = frNone
      Frame.Bottom = frNone
      ForceNewPage = False
      BandType = cbDetail
      DataSource = DataSource2
      NextDetailBand = DetailBand2
      DetailHeaderBand = DetailHeader
      DetailFooterBand = DetailFooter
      object EditOrderNo: TDBEdit
        Left = 14
        Top = 2
        Width = 91
        Height = 18
        BorderStyle = bsNone
        DataField = 'OrderNo'
        DataSource = DataSource2
        MaxLength = 0
        TabOrder = 0
      end
      object EditSaleDate: TDBEdit
        Left = 138
        Top = 2
        Width = 55
        Height = 18
        BorderStyle = bsNone
        DataField = 'SaleDate'
        DataSource = DataSource2
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 0
        ParentFont = False
        TabOrder = 1
      end
      object EditEmpNo: TDBEdit
        Left = 200
        Top = 2
        Width = 83
        Height = 18
        BorderStyle = bsNone
        DataField = 'EmpNo'
        DataSource = DataSource2
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 0
        ParentFont = False
        TabOrder = 2
      end
      object EditTerms: TDBEdit
        Left = 306
        Top = 2
        Width = 63
        Height = 18
        BorderStyle = bsNone
        DataField = 'Terms'
        DataSource = DataSource2
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 6
        ParentFont = False
        TabOrder = 3
      end
      object EditPaymentMethod: TDBEdit
        Left = 370
        Top = 2
        Width = 70
        Height = 18
        BorderStyle = bsNone
        DataField = 'PaymentMethod'
        DataSource = DataSource2
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 7
        ParentFont = False
        TabOrder = 4
      end
      object EditItemsTotal: TDBEdit
        Left = 490
        Top = 2
        Width = 91
        Height = 18
        BorderStyle = bsNone
        DataField = 'ItemsTotal'
        DataSource = DataSource2
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 0
        ParentFont = False
        TabOrder = 5
      end
      object EditTaxRate2: TDBEdit
        Left = 594
        Top = 2
        Width = 91
        Height = 18
        BorderStyle = bsNone
        DataField = 'TaxRate'
        DataSource = DataSource2
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 0
        ParentFont = False
        TabOrder = 6
      end
      object EditFreight: TDBEdit
        Left = 711
        Top = 2
        Width = 70
        Height = 18
        BorderStyle = bsNone
        DataField = 'Freight'
        DataSource = DataSource2
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 0
        ParentFont = False
        TabOrder = 7
      end
      object EditAmountPaid: TDBEdit
        Left = 786
        Top = 2
        Width = 91
        Height = 18
        BorderStyle = bsNone
        DataField = 'AmountPaid'
        DataSource = DataSource2
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 0
        ParentFont = False
        TabOrder = 8
      end
    end
    object DetailFooter: TCBBand
      Left = 49
      Top = 441
      Width = 894
      Height = 24
      Align = alTop
      Color = clWhite
      Frame.Color = clBlack
      Frame.Left = frNone
      Frame.Right = frNone
      Frame.Top = frNone
      Frame.Bottom = frSingleThin
      ForceNewPage = False
      BandType = cbDetailFooter
      object Label14: TLabel
        Left = 304
        Top = 2
        Width = 153
        Height = 19
        AutoSize = False
        Caption = 'Total this Customer'
        Font.Color = clRed
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object CBCalc1: TCBCalc
        Left = 471
        Top = 2
        Width = 109
        Height = 16
        DataField = 'ItemsTotal'
        DataSource = DataSource2
        ParentFont = False
        ResetAfterBand = DetailFooter
        BorderStyle = bsNone
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        DisplayFormat = 'R #,##0.00'
        Text = 'R 4,674.00'
        Alignment = taRightJustify
        Operation = cbSum
      end
      object CBCalc2: TCBCalc
        Left = 704
        Top = 2
        Width = 76
        Height = 16
        DataField = 'Freight'
        DataSource = DataSource2
        ParentFont = False
        ResetAfterBand = DetailFooter
        BorderStyle = bsNone
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        DisplayFormat = 'R #,##0.00'
        Text = 'R 0.00'
        Alignment = taRightJustify
        Operation = cbSum
      end
      object CBCalc3: TCBCalc
        Left = 791
        Top = 2
        Width = 85
        Height = 16
        DataField = 'AmountPaid'
        DataSource = DataSource2
        ParentFont = False
        ResetAfterBand = DetailFooter
        BorderStyle = bsNone
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        DisplayFormat = 'R #,##0.00'
        Text = 'R 4,674.00'
        Alignment = taRightJustify
        Operation = cbSum
      end
    end
    object DetailHeader: TCBBand
      Left = 49
      Top = 391
      Width = 894
      Height = 26
      Align = alTop
      Color = clWhite
      Frame.Color = clBlack
      Frame.Left = frNone
      Frame.Right = frNone
      Frame.Top = frNone
      Frame.Bottom = frNone
      ForceNewPage = False
      BandType = cbDetailHeader
      object Label2: TLabel
        Left = 40
        Top = 2
        Width = 65
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'OrderNo'
        FocusControl = EditOrderNo
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 128
        Top = 2
        Width = 68
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'SaleDate'
        FocusControl = EditSaleDate
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 232
        Top = 2
        Width = 52
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'EmpNo'
        FocusControl = EditEmpNo
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label5: TLabel
        Left = 304
        Top = 2
        Width = 52
        Height = 16
        AutoSize = False
        Caption = 'Terms'
        FocusControl = EditTerms
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label6: TLabel
        Left = 360
        Top = 2
        Width = 124
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'PaymentMethod'
        FocusControl = EditPaymentMethod
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label7: TLabel
        Left = 496
        Top = 2
        Width = 84
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'ItemsTotal'
        FocusControl = EditItemsTotal
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 616
        Top = 2
        Width = 68
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'TaxRate'
        FocusControl = EditTaxRate2
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 728
        Top = 2
        Width = 52
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Freight'
        FocusControl = EditFreight
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label10: TLabel
        Left = 792
        Top = 2
        Width = 84
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'AmountPaid'
        FocusControl = EditAmountPaid
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object PageFooter: TCBBand
      Left = 49
      Top = 569
      Width = 894
      Height = 41
      Align = alTop
      Color = clWhite
      Frame.Color = clSilver
      Frame.Left = frSingleThin
      Frame.Right = frSingleThin
      Frame.Top = frSingleThin
      Frame.Bottom = frSingleThin
      ForceNewPage = False
      BandType = cbPageFooter
      object CB_Label3: TCB_Label
        Left = 364
        Top = 8
        Width = 159
        Height = 32
        Caption = 'Page Footer'
        Font.Color = clBlue
        Font.Height = -27
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        About = 'Version 5.32'
        Style = stRaised
        ShadowOffset = 5
      end
      object Label11: TLabel
        Left = 718
        Top = 13
        Width = 110
        Height = 20
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Page'
        FocusControl = EditTerms
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object CBSystem3: TCBSystem
        Left = 8
        Top = 12
        Width = 100
        Height = 16
        ParentFont = False
        BorderStyle = bsNone
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        Color = clWhite
        Data = cbDate
        DisplayFormat = '#,##0.00'
        Text = '0.00'
        Alignment = taLeftJustify
      end
      object CBSystem4: TCBSystem
        Left = 848
        Top = 12
        Width = 33
        Height = 16
        ParentFont = False
        BorderStyle = bsNone
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        Color = clWhite
        Data = cbPageNumber
        DisplayFormat = '0'
        Text = '1'
        Alignment = taLeftJustify
      end
    end
    object DetailHeader2: TCBBand
      Left = 49
      Top = 465
      Width = 894
      Height = 24
      Align = alTop
      Color = clWhite
      Frame.Color = clBlack
      Frame.Left = frNone
      Frame.Right = frNone
      Frame.Top = frNone
      Frame.Bottom = frNone
      ForceNewPage = False
      BandType = cbDetailHeader
      object Label1: TLabel
        Left = 368
        Top = 2
        Width = 105
        Height = 16
        AutoSize = False
        Caption = 'Item Number'
        FocusControl = EditOrderNo
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label13: TLabel
        Left = 488
        Top = 2
        Width = 105
        Height = 16
        AutoSize = False
        Caption = 'Part number'
        FocusControl = EditEmpNo
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label15: TLabel
        Left = 704
        Top = 2
        Width = 84
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Quantity'
        FocusControl = EditPaymentMethod
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label16: TLabel
        Left = 792
        Top = 2
        Width = 84
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Discount'
        FocusControl = EditItemsTotal
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object DetailBand2: TCBDetailBand
      Left = 49
      Top = 489
      Width = 894
      Height = 24
      Align = alTop
      Color = clWhite
      Frame.Color = clSilver
      Frame.Left = frSingleThin
      Frame.Right = frSingleThin
      Frame.Top = frSingleThin
      Frame.Bottom = frSingleThin
      ForceNewPage = False
      BandType = cbDetail
      DataSource = DataSource3
      DetailHeaderBand = DetailHeader2
      DetailFooterBand = DetailFooter2
      object DBEdit18: TDBEdit
        Left = 370
        Top = 2
        Width = 70
        Height = 18
        BorderStyle = bsNone
        DataField = 'ItemNo'
        DataSource = DataSource3
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 0
        ParentFont = False
        TabOrder = 0
      end
      object DBEdit19: TDBEdit
        Left = 490
        Top = 2
        Width = 91
        Height = 18
        BorderStyle = bsNone
        DataField = 'PartNo'
        DataSource = DataSource3
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 0
        ParentFont = False
        TabOrder = 1
      end
      object DBEdit21: TDBEdit
        Left = 711
        Top = 2
        Width = 70
        Height = 18
        BorderStyle = bsNone
        DataField = 'Qty'
        DataSource = DataSource3
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 0
        ParentFont = False
        TabOrder = 2
      end
      object DBEdit22: TDBEdit
        Left = 792
        Top = 2
        Width = 85
        Height = 18
        BorderStyle = bsNone
        DataField = 'Discount'
        DataSource = DataSource3
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 0
        ParentFont = False
        TabOrder = 3
      end
    end
    object DetailFooter2: TCBBand
      Left = 49
      Top = 513
      Width = 894
      Height = 56
      Align = alTop
      Color = clWhite
      Frame.Color = clBlack
      Frame.Left = frNone
      Frame.Right = frNone
      Frame.Top = frSingleThin
      Frame.Bottom = frNone
      ForceNewPage = False
      BandType = cbDetailFooter
      object Label12: TLabel
        Left = 592
        Top = 4
        Width = 113
        Height = 19
        Caption = 'This Order'
        Font.Color = clRed
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object CBCalc5: TCBCalc
        Left = 704
        Top = 2
        Width = 76
        Height = 16
        DataField = 'Qty'
        DataSource = DataSource3
        ParentFont = False
        ResetAfterBand = DetailFooter2
        BorderStyle = bsNone
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        DisplayFormat = '#,##0'
        Text = '5'
        Alignment = taRightJustify
        Operation = cbSum
      end
      object CBCalc6: TCBCalc
        Left = 791
        Top = 2
        Width = 85
        Height = 16
        DataField = 'Discount'
        DataSource = DataSource3
        ParentFont = False
        ResetAfterBand = DetailFooter2
        BorderStyle = bsNone
        Color = clWhite
        Font.Color = clBlack
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        DisplayFormat = '$ #,##0.00'
        Text = '$ 0.00'
        Alignment = taRightJustify
        Operation = cbSum
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 320
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'CUSTOMER.DB'
    Left = 352
    object Table1CustNo: TFloatField
      Alignment = taLeftJustify
      FieldName = 'CustNo'
      DisplayFormat = 'CN 0000'
      MaxValue = 9999.000000000000000000
      MinValue = 1000.000000000000000000
    end
    object Table1Company: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object Table1Addr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object Table1Addr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object Table1City: TStringField
      FieldName = 'City'
      Size = 15
    end
    object Table1State: TStringField
      FieldName = 'State'
    end
    object Table1Zip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object Table1Country: TStringField
      FieldName = 'Country'
    end
    object Table1Phone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object Table1FAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object Table1TaxRate: TFloatField
      FieldName = 'TaxRate'
      DisplayFormat = '0.00%'
    end
    object Table1Contact: TStringField
      FieldName = 'Contact'
    end
    object Table1LastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 440
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexName = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = DataSource1
    TableName = 'ORDERS.DB'
    Left = 472
    object Table2OrderNo: TFloatField
      FieldName = 'OrderNo'
      DisplayFormat = #39'#'#39'0000'
    end
    object Table2CustNo: TFloatField
      Alignment = taLeftJustify
      FieldName = 'CustNo'
      DisplayFormat = 'CN 0000'
      MaxValue = 9999.000000000000000000
      MinValue = 1000.000000000000000000
    end
    object Table2SaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object Table2ShipDate: TDateTimeField
      FieldName = 'ShipDate'
    end
    object Table2EmpNo: TIntegerField
      FieldName = 'EmpNo'
      DisplayFormat = 'Emp'#39'#'#39' 0000'
      MaxValue = 9999
      MinValue = 1
    end
    object Table2ShipToContact: TStringField
      FieldName = 'ShipToContact'
    end
    object Table2ShipToAddr1: TStringField
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object Table2ShipToAddr2: TStringField
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object Table2ShipToCity: TStringField
      FieldName = 'ShipToCity'
      Size = 15
    end
    object Table2ShipToState: TStringField
      FieldName = 'ShipToState'
    end
    object Table2ShipToZip: TStringField
      FieldName = 'ShipToZip'
      Size = 10
    end
    object Table2ShipToCountry: TStringField
      FieldName = 'ShipToCountry'
    end
    object Table2ShipToPhone: TStringField
      FieldName = 'ShipToPhone'
      Size = 15
    end
    object Table2ShipVIA: TStringField
      FieldName = 'ShipVIA'
      Size = 7
    end
    object Table2PO: TStringField
      FieldName = 'PO'
      Size = 15
    end
    object Table2Terms: TStringField
      FieldName = 'Terms'
      Size = 6
    end
    object Table2PaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object Table2ItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
      Currency = True
    end
    object Table2TaxRate: TFloatField
      FieldName = 'TaxRate'
      DisplayFormat = '0.00%'
    end
    object Table2Freight: TCurrencyField
      FieldName = 'Freight'
      Currency = True
    end
    object Table2AmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
      Currency = True
    end
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 544
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'OrderNo'
    MasterFields = 'OrderNo'
    MasterSource = DataSource2
    TableName = 'ITEMS.DB'
    Left = 584
    object Table3OrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object Table3ItemNo: TFloatField
      FieldName = 'ItemNo'
    end
    object Table3PartNo: TFloatField
      FieldName = 'PartNo'
    end
    object Table3Qty: TIntegerField
      FieldName = 'Qty'
    end
    object Table3Discount: TFloatField
      FieldName = 'Discount'
    end
  end
end