home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
borland
/
cb
/
setup
/
cbuilder
/
data.z
/
INVOICE.DFM
/
INVOICE.txt
< prev
Wrap
Text File
|
1997-02-28
|
20KB
|
846 lines
object InvoiceReportForm: TInvoiceReportForm
Left = 181
Top = 123
Width = 784
Height = 578
HorzScrollBar.Range = 1200
VertScrollBar.Range = 2000
AutoScroll = False
Caption = 'InvoiceReportForm'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
Scaled = False
PixelsPerInch = 96
TextHeight = 14
object TitleBand: TQRBand
Left = 0
Top = 0
Width = 1200
Height = 80
Align = alTop
BandType = rbTitle
Color = clSilver
ForceNewPage = False
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Ruler = qrrNone
object Image1: TImage
Left = 0
Top = 0
Width = 97
Height = 75
Picture.Data = {<image000.bmp>}
end
object QRShape1: TQRShape
Left = 0
Top = 75
Width = 770
Height = 5
Brush.Color = clNavy
Shape = qrsRectangle
end
object QRLabel1: TQRLabel
Left = 112
Top = 48
Width = 281
Height = 25
Caption = 'Marine Adventures, Inc.'
AlignToBand = False
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -21
Font.Name = 'Billboard'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object QRLabel2: TQRLabel
Left = 520
Top = 8
Width = 101
Height = 34
Caption = 'Invoice'
AlignToBand = False
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -29
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
end
object MainBand: TQRBand
Left = 0
Top = 80
Width = 1200
Height = 169
Align = alTop
BandType = rbDetail
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ForceNewPage = False
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
LinkBand = PartsBand
ParentFont = False
Ruler = qrrNone
object QRLabel3: TQRLabel
Left = 8
Top = 4
Width = 99
Height = 12
Caption = 'Bill To Address:'
AlignToBand = False
Color = clNavy
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object QRDBText1: TQRDBText
Left = 8
Top = 24
Width = 241
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'Company'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object QRDBText2: TQRDBText
Left = 8
Top = 41
Width = 175
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'Addr1'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText3: TQRDBText
Left = 192
Top = 41
Width = 75
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'Addr2'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText4: TQRDBText
Left = 8
Top = 58
Width = 137
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'City'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText5: TQRDBText
Left = 147
Top = 58
Width = 134
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'State'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText6: TQRDBText
Left = 8
Top = 75
Width = 129
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'Country'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText7: TQRDBText
Left = 151
Top = 75
Width = 65
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'Zip'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRLabel4: TQRLabel
Left = 392
Top = 4
Width = 107
Height = 12
Caption = 'Ship To Address:'
AlignToBand = False
Color = clNavy
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object QRShape2: TQRShape
Left = 376
Top = 4
Width = 3
Height = 105
Brush.Color = clRed
Shape = qrsRectangle
end
object QRDBText8: TQRDBText
Left = 392
Top = 24
Width = 201
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'ShipToContact'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object QRDBText9: TQRDBText
Left = 392
Top = 41
Width = 175
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'ShipToAddr1'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText10: TQRDBText
Left = 569
Top = 41
Width = 88
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'ShipToAddr2'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText11: TQRDBText
Left = 392
Top = 58
Width = 138
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'ShipToCity'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText12: TQRDBText
Left = 530
Top = 58
Width = 119
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'ShipToState'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText13: TQRDBText
Left = 392
Top = 75
Width = 129
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'ShipToCountry'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText14: TQRDBText
Left = 544
Top = 75
Width = 65
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'ShipToZip'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText15: TQRDBText
Left = 392
Top = 92
Width = 169
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'ShipToPhone'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRLabel5: TQRLabel
Left = 0
Top = 112
Width = 776
Height = 12
AutoSize = False
Caption =
' Order No. Cust No. Sales Person ' +
' Sales Date Ship Date Ship Vi' +
'a '
AlignToBand = False
Color = clNavy
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object QRDBText16: TQRDBText
Left = 8
Top = 130
Width = 65
Height = 17
Alignment = taRightJustify
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'OrderNo'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText17: TQRDBText
Left = 104
Top = 130
Width = 57
Height = 17
Alignment = taRightJustify
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'CustNo'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText18: TQRDBText
Left = 200
Top = 130
Width = 43
Height = 17
Alignment = taRightJustify
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'FirstName'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText19: TQRDBText
Left = 247
Top = 130
Width = 65
Height = 17
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'LastName'
end
object QRDBText20: TQRDBText
Left = 368
Top = 130
Width = 73
Height = 17
Alignment = taCenter
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'SaleDate'
end
object QRDBText21: TQRDBText
Left = 464
Top = 130
Width = 129
Height = 17
Alignment = taCenter
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'ShipDate'
end
object QRDBText22: TQRDBText
Left = 608
Top = 130
Width = 73
Height = 17
Alignment = taCenter
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'ShipVIA'
end
object QRLabel6: TQRLabel
Left = 0
Top = 152
Width = 776
Height = 12
AutoSize = False
Caption =
' Part No. Description ' +
' Quantity List Price Discount Ex' +
'tended Price'
AlignToBand = False
Color = clNavy
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
end
object PartsBand: TQRBand
Left = 0
Top = 249
Width = 1200
Height = 18
Align = alTop
BandType = rbSubDetail
Color = clWhite
ForceNewPage = False
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Ruler = qrrNone
object QRDBText23: TQRDBText
Left = 16
Top = 1
Width = 57
Height = 16
Alignment = taRightJustify
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'PartNo'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText24: TQRDBText
Left = 104
Top = 1
Width = 257
Height = 16
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'Description'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText25: TQRDBText
Left = 368
Top = 1
Width = 41
Height = 16
Alignment = taRightJustify
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'Qty'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText26: TQRDBText
Left = 440
Top = 1
Width = 73
Height = 16
Alignment = taRightJustify
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'ListPrice'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText27: TQRDBText
Left = 528
Top = 1
Width = 49
Height = 16
Alignment = taRightJustify
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'Discount'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText28: TQRDBText
Left = 624
Top = 1
Width = 80
Height = 16
Alignment = taRightJustify
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'ExtendedPrice'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
end
object QRBand1: TQRBand
Left = 0
Top = 267
Width = 1200
Height = 158
Align = alTop
BandType = rbSummary
Color = clWhite
ForceNewPage = False
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Ruler = qrrNone
object QRShape3: TQRShape
Left = 0
Top = 0
Width = 776
Height = 1
Brush.Color = clBlack
Shape = qrsRectangle
end
object QRDBText29: TQRDBText
Left = 616
Top = 2
Width = 88
Height = 17
Alignment = taRightJustify
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'ItemsTotal'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRLabel7: TQRLabel
Left = 536
Top = 2
Width = 51
Height = 16
Caption = 'SubTotal'
AlignToBand = False
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRLabel8: TQRLabel
Left = 536
Top = 20
Width = 21
Height = 16
Caption = 'Tax'
AlignToBand = False
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText30: TQRDBText
Left = 624
Top = 20
Width = 80
Height = 17
Alignment = taRightJustify
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'TaxTotal'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText31: TQRDBText
Left = 624
Top = 38
Width = 80
Height = 17
Alignment = taRightJustify
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'Freight'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRLabel9: TQRLabel
Left = 536
Top = 37
Width = 40
Height = 16
Caption = 'Freight'
AlignToBand = False
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRShape4: TQRShape
Left = 536
Top = 56
Width = 169
Height = 2
Brush.Color = clBlack
Shape = qrsRectangle
end
object QRDBText32: TQRDBText
Left = 624
Top = 60
Width = 81
Height = 17
Alignment = taRightJustify
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'Total'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRLabel10: TQRLabel
Left = 536
Top = 60
Width = 28
Height = 16
Caption = 'Total'
AlignToBand = False
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText33: TQRDBText
Left = 624
Top = 78
Width = 80
Height = 17
Alignment = taRightJustify
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'AmountPaid'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRShape5: TQRShape
Left = 536
Top = 96
Width = 169
Height = 2
Brush.Color = clBlack
Shape = qrsRectangle
end
object QRLabel11: TQRLabel
Left = 536
Top = 78
Width = 75
Height = 16
Caption = 'Amount Paid'
AlignToBand = False
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object QRDBText34: TQRDBText
Left = 624
Top = 100
Width = 80
Height = 17
Alignment = taRightJustify
AlignToBand = False
DataSource = MastData.InvoiceQrySrc
DataField = 'AmoutDue'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object QRLabel12: TQRLabel
Left = 536
Top = 100
Width = 78
Height = 16
Caption = 'Amount Due'
AlignToBand = False
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
end
object InvoiceReport: TQuickReport
DataSource = MastData.InvoiceQrySrc
ColumnMarginInches = 0
ColumnMarginMM = 0
Columns = 1
DisplayPrintDialog = False
LeftMarginInches = 0
LeftMarginMM = 0
Orientation = poPortrait
PageFrame.DrawTop = False
PageFrame.DrawBottom = False
PageFrame.DrawLeft = False
PageFrame.DrawRight = False
PaperLength = 0
PaperSize = qrpDefault
PaperWidth = 0
RestartData = True
SQLCompatible = False
TitleBeforeHeader = False
Left = 16
Top = 448
end
object PartsDetailLink: TQRDetailLink
DataSource = MastData.InvoiceQrySrc
DetailBand = PartsBand
Master = InvoiceReport
PrintBefore = False
Left = 56
Top = 448
end
end