home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1996 August
/
VPR9608A.BIN
/
del20try
/
install
/
data.z
/
MDREP.DFM
/
MDREP.txt
< prev
Wrap
Text File
|
1996-05-08
|
15KB
|
638 lines
object MDForm: TMDForm
Left = 388
Top = 130
Width = 789
Height = 459
HorzScrollBar.Range = 1200
VertScrollBar.Range = 2000
AutoScroll = False
Caption = 'Master Detail demo Report'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = []
PixelsPerInch = 96
ShowHint = True
TextHeight = 16
object Orderlines: TQRBand
Left = 0
Top = 117
Width = 1200
Height = 19
Align = alTop
BandType = rbSubDetail
Color = clWhite
ForceNewPage = False
Frame.Width = 0
LinkBand = OrderSummary
Ruler = qrrNone
object QRDBText8: TQRDBText
Left = 112
Top = 0
width = 229
height = 17
DataSource = CustomerData.LineItemSource
DataField = 'PartName'
end
object QRDBText12: TQRDBText
Left = 32
Top = 0
width = 69
height = 17
DataSource = CustomerData.LineItemSource
DataField = 'PartNo'
end
object QRDBText13: TQRDBText
Left = 348
Top = 0
width = 89
height = 17
Alignment = taRightJustify
DataSource = CustomerData.LineItemSource
DataField = 'Price'
end
object QRDBText14: TQRDBText
Left = 444
Top = 0
width = 33
height = 17
Alignment = taRightJustify
DataSource = CustomerData.LineItemSource
DataField = 'Qty'
end
object QRDBText16: TQRDBText
Left = 492
Top = 0
width = 81
height = 17
Alignment = taRightJustify
DataSource = CustomerData.LineItemSource
DataField = 'Total'
end
end
object Title: TQRBand
Left = 0
Top = 0
Width = 1200
Height = 45
Align = alTop
BandType = rbTitle
Color = clWhite
Font.Color = clNavy
Font.Height = -13
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = []
ForceNewPage = False
Frame.Width = 0
ParentFont = False
Ruler = qrrInchesHV
object QRLabel15: TQRLabel
Left = 84
Top = 4
width = 193
height = 36
Caption = 'QuickReport'
AlignToBand = False
Font.Color = 8404992
Font.Height = -32
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Image1: TImage
Left = 8
Top = 4
Width = 69
Height = 33
Picture.Data = {<image000.bmp>}
Stretch = True
end
object QRLabel1: TQRLabel
Left = 288
Top = 20
width = 83
height = 16
Caption = 'for Delphi 2.0'
AlignToBand = False
Font.Color = 8404992
Font.Height = -13
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object QRLabel16: TQRLabel
Left = 560
Top = 20
width = 167
height = 16
Caption = 'Copyright (c) 1996 QSD AS'
AlignToBand = False
Font.Color = clBlack
Font.Height = -13
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
end
object CustomerHeading: TQRBand
Left = 0
Top = 45
Width = 1200
Height = 36
Align = alTop
BandType = rbDetail
Color = 8404992
ForceNewPage = False
Frame.Width = 0
LinkBand = Detail
Ruler = qrrNone
object QRDBText1: TQRDBText
Left = 8
Top = 12
width = 245
height = 17
DataSource = CustomerData.CustomerSource
DataField = 'Company'
Font.Color = clWhite
Font.Height = -16
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object QRLabel3: TQRLabel
Left = 8
Top = 0
width = 46
height = 14
Caption = 'Customer'
AlignToBand = False
Font.Color = clWhite
Font.Height = -11
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = []
ParentFont = False
end
object QRLabel4: TQRLabel
Left = 272
Top = 0
width = 30
height = 14
Alignment = taRightJustify
Caption = 'Phone'
AlignToBand = False
Font.Color = clWhite
Font.Height = -11
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = []
ParentFont = False
end
object QRDBText3: TQRDBText
Left = 272
Top = 12
width = 109
height = 17
DataSource = CustomerData.CustomerSource
DataField = 'Phone'
Font.Color = clWhite
Font.Height = -16
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object QRDBText4: TQRDBText
Left = 64
Top = 0
width = 25
height = 13
Alignment = taRightJustify
DataSource = CustomerData.CustomerSource
DataField = 'CustNo'
Font.Color = clWhite
Font.Height = -11
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = []
ParentFont = False
end
object QRLabel5: TQRLabel
Left = 388
Top = 0
width = 18
height = 14
Caption = 'Fax'
AlignToBand = False
Font.Color = clWhite
Font.Height = -11
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = []
ParentFont = False
end
object QRDBText5: TQRDBText
Left = 388
Top = 12
width = 105
height = 17
DataSource = CustomerData.CustomerSource
DataField = 'Fax'
Font.Color = clWhite
Font.Height = -16
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
end
object CustomerFooter: TQRBand
Left = 0
Top = 173
Width = 1200
Height = 32
Align = alTop
BandType = rbGroupFooter
Color = clWhite
ForceNewPage = False
Frame.Width = 0
Ruler = qrrNone
object QRDBCalc1: TQRDBCalc
Left = 484
Top = 0
width = 89
height = 17
Alignment = taRightJustify
DataSource = CustomerData.OrderSource
DataField = 'AmountPaid'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = [fsBold]
ParentFont = False
Operation = qrcSUM
PrintMask = '#,##0.00'
ResetBand = CustomerFooter
end
object QRLabel7: TQRLabel
Left = 304
Top = 0
width = 164
height = 16
Caption = 'Total sales this customer: '
AlignToBand = False
Font.Color = clBlack
Font.Height = -13
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = [fsBold]
ParentFont = False
end
end
object PageFooter: TQRBand
Left = 0
Top = 301
Width = 1200
Height = 19
Align = alTop
BandType = rbPageFooter
Color = clWhite
ForceNewPage = False
Frame.Width = 0
Ruler = qrrNone
object QRSysData1: TQRSysData
Left = 664
Top = 0
width = 79
height = 16
Alignment = taRightJustify
AlignToBand = True
AutoSize = False
Data = qrsPageNumber
Text = 'Page '
end
end
object Summary: TQRBand
Left = 0
Top = 205
Width = 1200
Height = 96
Hint = 'QuickReport'
Align = alTop
BandType = rbSummary
Color = clWhite
ForceNewPage = False
Frame.Width = 0
Ruler = qrrNone
object QRDBCalc2: TQRDBCalc
Left = 468
Top = 8
width = 105
height = 17
Alignment = taRightJustify
DataSource = CustomerData.OrderSource
DataField = 'AmountPaid'
Operation = qrcSUM
PrintMask = ',0.00'
end
object QRLabel6: TQRLabel
Left = 300
Top = 8
width = 153
height = 16
Caption = 'Total sales all customers :'
AlignToBand = False
end
object QRLabel9: TQRLabel
Left = 48
Top = 28
width = 133
height = 16
Caption = 'Total number of orders:'
AlignToBand = False
end
object QRLabel10: TQRLabel
Left = 24
Top = 8
width = 158
height = 16
Caption = 'Total number of customers:'
AlignToBand = False
end
object QRDBCalc4: TQRDBCalc
Left = 188
Top = 8
width = 65
height = 17
Alignment = taRightJustify
DataSource = CustomerData.CustomerSource
DataField = 'Zip'
Operation = qrcCOUNT
end
object QRDBCalc5: TQRDBCalc
Left = 188
Top = 28
width = 65
height = 17
Alignment = taRightJustify
DataSource = CustomerData.OrderSource
DataField = 'AmountPaid'
Operation = qrcCOUNT
end
object QRLabel11: TQRLabel
Left = 24
Top = 48
width = 157
height = 16
Caption = 'Total number of order lines:'
AlignToBand = False
end
object QRDBCalc6: TQRDBCalc
Left = 188
Top = 48
width = 65
height = 17
Alignment = taRightJustify
DataSource = CustomerData.LineItemSource
DataField = 'Discount'
Operation = qrcCOUNT
end
object QRLabel12: TQRLabel
Left = 24
Top = 68
width = 157
height = 16
Caption = 'Total number of items sold:'
AlignToBand = False
end
object QRDBCalc7: TQRDBCalc
Left = 188
Top = 68
width = 65
height = 17
Alignment = taRightJustify
DataSource = CustomerData.LineItemSource
DataField = 'Qty'
Operation = qrcSUM
end
end
object Detail: TQRBand
Left = 0
Top = 81
Width = 1200
Height = 36
Align = alTop
BandType = rbSubDetail
Color = clWhite
ForceNewPage = False
Frame.Width = 0
LinkBand = Orderlines
Ruler = qrrNone
object QRDBText2: TQRDBText
Left = 60
Top = 0
width = 53
height = 17
Alignment = taRightJustify
DataSource = CustomerData.OrderSource
DataField = 'OrderNo'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object QRDBText7: TQRDBText
Left = 172
Top = 0
width = 65
height = 17
DataSource = CustomerData.OrderSource
DataField = 'SaleDate'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object QRLabel2: TQRLabel
Left = 4
Top = 0
width = 56
height = 16
Caption = 'Order no'
AlignToBand = False
Font.Color = clBlack
Font.Height = -13
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = [fsBold]
ParentFont = False
end
object QRLabel8: TQRLabel
Left = 132
Top = 0
width = 29
height = 16
Caption = 'Date'
AlignToBand = False
Font.Color = clBlack
Font.Height = -13
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = [fsBold]
ParentFont = False
end
object QRLabel17: TQRLabel
Left = 32
Top = 16
width = 19
height = 14
Caption = 'Part'
AlignToBand = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = []
ParentFont = False
end
object QRShape1: TQRShape
Left = 52
Top = 24
width = 289
Height = 4
Shape = qrsHorLine
end
object QRLabel18: TQRLabel
Left = 412
Top = 16
width = 24
height = 14
Caption = 'Price'
AlignToBand = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = []
ParentFont = False
end
object QRShape2: TQRShape
Left = 356
Top = 24
width = 53
Height = 4
Shape = qrsHorLine
end
object QRLabel19: TQRLabel
Left = 460
Top = 16
width = 17
height = 14
Caption = 'Qty'
AlignToBand = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = []
ParentFont = False
end
object QRShape3: TQRShape
Left = 445
Top = 24
width = 11
Height = 4
Shape = qrsHorLine
end
object QRLabel20: TQRLabel
Left = 548
Top = 16
width = 23
height = 14
Caption = 'Total'
AlignToBand = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = []
ParentFont = False
end
object QRShape4: TQRShape
Left = 492
Top = 24
width = 53
Height = 4
Shape = qrsHorLine
end
end
object OrderSummary: TQRBand
Left = 0
Top = 136
Width = 1200
Height = 37
Align = alTop
BandType = rbGroupFooter
Color = clWhite
ForceNewPage = False
Frame.Width = 0
LinkBand = CustomerFooter
Ruler = qrrNone
object QRShape5: TQRShape
Left = 32
Top = 12
width = 457
Height = 4
Shape = qrsHorLine
end
object QRLabel21: TQRLabel
Left = 500
Top = 4
width = 72
height = 14
Caption = 'Total this order'
AlignToBand = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'ソスlソスr ソスoソスSソスVソスbソスN'
Font.Style = []
ParentFont = False
end
object QRDBCalc3: TQRDBCalc
Left = 496
Top = 20
width = 77
height = 17
Alignment = taRightJustify
DataSource = CustomerData.LineItemSource
DataField = 'Total'
Operation = qrcSUM
PrintMask = '#,##0.00'
ResetBand = OrderSummary
end
end
object MDRep: TQuickReport
DataSource = CustomerData.CustomerSource
ColumnMarginInches = 0
ColumnMarginMM = 0
Columns = 1
DisplayPrintDialog = False
LeftMarginInches = 0
LeftMarginMM = 0
Orientation = poPortrait
ReportTitle = 'QuickReport Master/detail demonstration'
RestartData = True
SQLCompatible = False
TitleBeforeHeader = False
Left = 4
Top = 324
end
object QRDetailLink1: TQRDetailLink
DataSource = CustomerData.OrderSource
DetailBand = Detail
FooterBand = CustomerFooter
Master = MDRep
PrintBefore = False
Left = 12
Top = 352
end
object QRDetailLink2: TQRDetailLink
DataSource = CustomerData.LineItemSource
DetailBand = Orderlines
FooterBand = OrderSummary
Master = QRDetailLink1
PrintBefore = False
Left = 20
Top = 380
end
end