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

Text File | 1997-01-18 | 20.4 KB | 867 lines

object FBDemo04: TFBDemo04
  Left = 475
  Top = 274
  Width = 329
  Height = 339
  HorzScrollBar.Position = 333
  VertScrollBar.Position = 224
  ActiveControl = Panel1
  Caption = 'FBDemo04'
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 120
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 16
  object Panel1: TPanel
    Left = -333
    Top = -224
    Width = 1016
    Height = 50
    Align = alTop
    TabOrder = 0
    object DBNavigator: TDBNavigator
      Left = 10
      Top = 10
      Width = 281
      Height = 31
      DataSource = DataSource1
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = -333
    Top = -174
    Width = 448
    Height = 271
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    TabOrder = 1
    object ScrollBox: TScrollBox
      Left = 6
      Top = 6
      Width = 436
      Height = 259
      HorzScrollBar.Margin = 6
      HorzScrollBar.Range = 359
      VertScrollBar.Margin = 6
      VertScrollBar.Range = 556
      Align = alClient
      AutoScroll = False
      BorderStyle = bsNone
      TabOrder = 0
      object Label1: TLabel
        Left = 6
        Top = 10
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'OrderNo'
      end
      object Label2: TLabel
        Left = 6
        Top = 36
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'CustNo'
      end
      object Label3: TLabel
        Left = 6
        Top = 62
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'SaleDate'
        FocusControl = EditSaleDate
      end
      object Label4: TLabel
        Left = 6
        Top = 88
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'ShipDate'
      end
      object Label15: TLabel
        Left = 6
        Top = 126
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'PO'
      end
      object Label16: TLabel
        Left = 6
        Top = 152
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Terms'
      end
      object Label17: TLabel
        Left = 6
        Top = 178
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'PaymentMethod'
      end
      object Label18: TLabel
        Left = 6
        Top = 204
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'ItemsTotal'
      end
      object Label21: TLabel
        Left = 6
        Top = 226
        Width = 110
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'AmountPaid'
      end
      object EditSaleDate: TDBEdit
        Left = 122
        Top = 58
        Width = 168
        Height = 24
        DataField = 'SaleDate'
        DataSource = DataSource1
        MaxLength = 0
        TabOrder = 0
      end
    end
  end
  object CBReport1: TCBReport
    Left = -309
    Top = 136
    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.Detail = Detail
    Bands.Title = Title
    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 Panel3: TPanel
      Left = 49
      Top = 1299
      Width = 894
      Height = 55
      Align = alBottom
      Caption = 'Panel3'
      Color = clBlue
      TabOrder = 0
      object Label6: TLabel
        Left = 16
        Top = 8
        Width = 113
        Height = 19
        AutoSize = False
        Caption = 'Ship Date'
        Font.Color = clWhite
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label7: TLabel
        Left = 16
        Top = 32
        Width = 113
        Height = 19
        AutoSize = False
        Caption = 'Order Number'
        Font.Color = clWhite
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 152
        Top = 32
        Width = 169
        Height = 19
        AutoSize = False
        Caption = 'Customer Number'
        Font.Color = clWhite
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 344
        Top = 32
        Width = 113
        Height = 19
        AutoSize = False
        Caption = 'Purchase Order'
        Font.Color = clWhite
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label11: TLabel
        Left = 496
        Top = 32
        Width = 57
        Height = 19
        AutoSize = False
        Caption = 'Terms'
        Font.Color = clWhite
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label12: TLabel
        Left = 584
        Top = 32
        Width = 113
        Height = 19
        AutoSize = False
        Caption = 'Pay Method'
        Font.Color = clWhite
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label13: TLabel
        Left = 686
        Top = 32
        Width = 91
        Height = 19
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Items Total'
        Font.Color = clWhite
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label10: TLabel
        Left = 782
        Top = 32
        Width = 99
        Height = 19
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Amount Paid'
        Font.Color = clWhite
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object Detail: TCBDetailBand
      Left = 49
      Top = 241
      Width = 894
      Height = 56
      Align = alTop
      Color = clWhite
      Frame.Color = clSilver
      Frame.Left = frNone
      Frame.Right = frNone
      Frame.Top = frNone
      Frame.Bottom = frNone
      ForceNewPage = False
      BandType = cbDetail
      DataSource = DataSource1
      DetailHeaderBand = DetailHeader
      DetailFooterBand = DetailFooter
      object DBText1: TDBText
        Left = 8
        Top = 27
        Width = 65
        Height = 17
        DataField = 'OrderNo'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object EditShipDate: TDBEdit
        Left = 10
        Top = 2
        Width = 127
        Height = 23
        BorderStyle = bsNone
        DataField = 'ShipDate'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        MaxLength = 0
        ParentFont = False
        TabOrder = 0
      end
      object EditCustNo: TDBEdit
        Left = 154
        Top = 8
        Width = 143
        Height = 32
        BorderStyle = bsNone
        DataField = 'CustNo'
        DataSource = DataSource1
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        MaxLength = 0
        ParentFont = False
        TabOrder = 1
      end
      object EditPO: TDBEdit
        Left = 338
        Top = 22
        Width = 126
        Height = 24
        BorderStyle = bsNone
        DataField = 'PO'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        MaxLength = 15
        ParentFont = False
        TabOrder = 2
      end
      object EditTerms: TDBEdit
        Left = 466
        Top = 22
        Width = 63
        Height = 24
        BorderStyle = bsNone
        DataField = 'Terms'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        MaxLength = 6
        ParentFont = False
        TabOrder = 3
      end
      object EditPaymentMethod: TDBEdit
        Left = 554
        Top = 22
        Width = 70
        Height = 24
        BorderStyle = bsNone
        DataField = 'PaymentMethod'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        MaxLength = 7
        ParentFont = False
        TabOrder = 4
      end
      object EditItemsTotal: TDBEdit
        Left = 650
        Top = 22
        Width = 91
        Height = 24
        BorderStyle = bsNone
        DataField = 'ItemsTotal'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        MaxLength = 0
        ParentFont = False
        TabOrder = 5
      end
      object EditAmountPaid: TDBEdit
        Left = 794
        Top = 22
        Width = 91
        Height = 24
        BorderStyle = bsNone
        DataField = 'AmountPaid'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        MaxLength = 0
        ParentFont = False
        TabOrder = 6
      end
    end
    object DetailFooter: TCBBand
      Left = 49
      Top = 297
      Width = 894
      Height = 32
      Align = alTop
      Color = clWhite
      Frame.Color = clSilver
      Frame.Left = frSingleThin
      Frame.Right = frSingleThin
      Frame.Top = frSingleThin
      Frame.Bottom = frSingleThin
      ForceNewPage = False
      BandType = cbDetailFooter
      object Label30: TLabel
        Left = 456
        Top = 2
        Width = 169
        Height = 25
        Alignment = taCenter
        AutoSize = False
        Caption = 'Order Total '
        Font.Color = clRed
        Font.Height = -23
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object CBCalc1: TCBCalc
        Left = 611
        Top = 4
        Width = 129
        Height = 23
        DataField = 'ItemsTotal'
        DataSource = DataSource1
        ParentFont = False
        BorderStyle = bsNone
        Color = clWhite
        Font.Color = clRed
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        DisplayFormat = '$ #,##0.00'
        Text = '$ 1,250.00'
        Alignment = taRightJustify
        Operation = cbSum
      end
      object CBCalc2: TCBCalc
        Left = 779
        Top = 4
        Width = 106
        Height = 25
        DataField = 'AmountPaid'
        DataSource = DataSource1
        ParentFont = False
        BorderStyle = bsNone
        Color = clWhite
        Font.Color = clRed
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        DisplayFormat = '$ #,##0.00'
        Text = '$ 1,306.25'
        Alignment = taRightJustify
        Operation = cbSum
      end
    end
    object Title: TCBBand
      Left = 49
      Top = 49
      Width = 894
      Height = 144
      Align = alTop
      Color = clWhite
      Frame.Color = clSilver
      Frame.Left = frSingleThin
      Frame.Right = frSingleThin
      Frame.Top = frSingleThin
      Frame.Bottom = frSingleThin
      ForceNewPage = False
      BandType = cbTitle
      object Label5: TLabel
        Left = 295
        Top = 72
        Width = 305
        Height = 46
        Alignment = taCenter
        AutoSize = False
        Caption = 'from Calitz Bros.'
        Font.Color = clMaroon
        Font.Height = -40
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Image1: TImage
        Left = 8
        Top = 19
        Width = 49
        Height = 33
        Picture.Data = {<image000.bmp>}
      end
      object Label27: TLabel
        Left = 219
        Top = 24
        Width = 457
        Height = 46
        Alignment = taCenter
        AutoSize = False
        Caption = 'Demo printed with BandIt'
        Font.Color = clMaroon
        Font.Height = -40
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object CBSystem2: TCBSystem
        Left = 48
        Top = 107
        Width = 193
        Height = 28
        ParentFont = False
        BorderStyle = bsNone
        Font.Color = clWindowText
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = []
        Color = clWhite
        Data = cbDateTime
        DisplayFormat = '#,##0.00'
        Text = '0.00'
        Alignment = taLeftJustify
      end
    end
    object DetailHeader: TCBBand
      Left = 49
      Top = 193
      Width = 894
      Height = 48
      Align = alTop
      Color = clBlue
      Frame.Color = clSilver
      Frame.Left = frSingleThin
      Frame.Right = frSingleThin
      Frame.Top = frSingleThin
      Frame.Bottom = frSingleThin
      ForceNewPage = False
      BandType = cbTitle
      object Label14: TLabel
        Left = 16
        Top = 2
        Width = 105
        Height = 19
        Caption = 'Ship Date'
        Font.Color = clWhite
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label19: TLabel
        Left = 16
        Top = 24
        Width = 81
        Height = 19
        Caption = 'Order #'
        Font.Color = clWhite
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label20: TLabel
        Left = 154
        Top = 21
        Width = 164
        Height = 19
        Caption = 'Customer Number    '
        Font.Color = clWhite
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label22: TLabel
        Left = 466
        Top = 21
        Width = 59
        Height = 19
        Caption = 'Terms  '
        Font.Color = clWhite
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label23: TLabel
        Left = 322
        Top = 21
        Width = 125
        Height = 19
        Caption = 'Purchase Order'
        Font.Color = clWhite
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label24: TLabel
        Left = 554
        Top = 21
        Width = 58
        Height = 19
        Caption = 'Method'
        Font.Color = clWhite
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label25: TLabel
        Left = 658
        Top = 21
        Width = 95
        Height = 19
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Items Total'
        Font.Color = clWhite
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label26: TLabel
        Left = 776
        Top = 21
        Width = 105
        Height = 19
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Amount Paid'
        Font.Color = clWhite
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label31: TLabel
        Left = 554
        Top = 5
        Width = 73
        Height = 19
        Caption = 'Payment '
        Font.Color = clWhite
        Font.Height = -17
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object PageFooter: TCBBand
      Left = 49
      Top = 329
      Width = 894
      Height = 59
      Align = alTop
      Color = clWhite
      Frame.Color = clSilver
      Frame.Left = frSingleThin
      Frame.Right = frSingleThin
      Frame.Top = frSingleThin
      Frame.Bottom = frSingleThin
      ForceNewPage = False
      BandType = cbPageFooter
      object Image2: TImage
        Left = 8
        Top = 12
        Width = 49
        Height = 33
        Picture.Data = {<image001.bmp>}
      end
      object Label29: TLabel
        Left = 219
        Top = 3
        Width = 457
        Height = 49
        Alignment = taCenter
        AutoSize = False
        Caption = 'Page Footer'
        Font.Color = clMaroon
        Font.Height = -40
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Label28: TLabel
        Left = 755
        Top = 13
        Width = 59
        Height = 26
        Caption = 'Page '
        Font.Color = clBlack
        Font.Height = -23
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object CBSystem1: TCBSystem
        Left = 824
        Top = 12
        Width = 60
        Height = 31
        ParentFont = False
        BorderStyle = bsNone
        Font.Color = clBlack
        Font.Height = -23
        Font.Name = 'Arial'
        Font.Style = []
        Color = clWhite
        Data = cbPageNumber
        DisplayFormat = '0'
        Text = '1'
        Alignment = taRightJustify
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 287
    Top = 5
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'ORDERS.DB'
    Left = 259
    Top = 5
    object Table1OrderNo: TFloatField
      FieldName = 'OrderNo'
      DisplayFormat = #39'#'#39'0000'
    end
    object Table1CustNo: TFloatField
      Alignment = taLeftJustify
      FieldName = 'CustNo'
      DisplayFormat = 'CN 0000'
      MaxValue = 9999.000000000000000000
      MinValue = 1000.000000000000000000
    end
    object Table1SaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object Table1ShipDate: TDateTimeField
      FieldName = 'ShipDate'
    end
    object Table1EmpNo: TIntegerField
      FieldName = 'EmpNo'
      DisplayFormat = 'Emp'#39'#'#39' 0000'
      MaxValue = 9999
      MinValue = 1
    end
    object Table1ShipToContact: TStringField
      FieldName = 'ShipToContact'
    end
    object Table1ShipToAddr1: TStringField
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object Table1ShipToAddr2: TStringField
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object Table1ShipToCity: TStringField
      FieldName = 'ShipToCity'
      Size = 15
    end
    object Table1ShipToState: TStringField
      FieldName = 'ShipToState'
    end
    object Table1ShipToZip: TStringField
      FieldName = 'ShipToZip'
      Size = 10
    end
    object Table1ShipToCountry: TStringField
      FieldName = 'ShipToCountry'
    end
    object Table1ShipToPhone: TStringField
      FieldName = 'ShipToPhone'
      Size = 15
    end
    object Table1ShipVIA: TStringField
      FieldName = 'ShipVIA'
      Size = 7
    end
    object Table1PO: TStringField
      FieldName = 'PO'
      Size = 15
    end
    object Table1Terms: TStringField
      FieldName = 'Terms'
      Size = 6
    end
    object Table1PaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object Table1ItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
      Currency = True
    end
    object Table1TaxRate: TFloatField
      FieldName = 'TaxRate'
      DisplayFormat = '0.00%'
    end
    object Table1Freight: TCurrencyField
      FieldName = 'Freight'
      Currency = True
    end
    object Table1AmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
      Currency = True
    end
  end
end