home *** CD-ROM | disk | FTP | other *** search
- object MDForm: TMDForm
- Left = 264
- Top = 118
- Width = 787
- Height = 618
- Caption = 'MDForm'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- Scaled = False
- TextHeight = 16
- object QuickRep: TQuickRep
- Left = 2
- Top = 6
- Width = 816
- Height = 1056
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- DataSet = Customer
- Description.Strings = (
-
- 'This is a basic master/detail report showing all orders for each' +
- ' customer. It adds the master/detail functionallity to the simpl' +
- 'e list repor. You can see how to:'
- '- Set up the datasets in a master/detail relationship'
- '- Use QRDetailLink to print detail data'
- '- Attach a group header band to a QRDetailLink'
-
- '- Use the Mask property to format the output of a QRDBText compo' +
- 'nent'
- '- Use TQRExpr components to calculate totals and count records')
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- Options = [LastPageFooter]
- Page.Columns = 1
- Page.Orientation = poPortrait
- Page.PaperSize = Letter
- Page.Values = (
- 100.000000000000000000
- 2794.000000000000000000
- 100.000000000000000000
- 2159.000000000000000000
- 100.000000000000000000
- 100.000000000000000000
- 0.000000000000000000)
- PrintIfEmpty = False
- PrinterSettings.Copies = 1
- PrinterSettings.Duplex = False
- PrinterSettings.OutputBin = First
- SnapToGrid = True
- Units = MM
- Zoom = 100
- object DetailBand1: TQRBand
- Left = 38
- Top = 102
- Width = 740
- Height = 39
- Frame.Color = clBlack
- Frame.DrawTop = True
- Frame.DrawBottom = False
- Frame.DrawLeft = True
- Frame.DrawRight = True
- AlignToBottom = False
- Color = clWhite
- ForceNewColumn = False
- ForceNewPage = False
- Size.Values = (
- 103.187500000000000000
- 1957.916666666667000000)
- BandType = rbDetail
- object QRDBText1: TQRDBText
- Left = 8
- Top = 4
- Width = 199
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 21.166666666666670000
- 10.583333333333330000
- 526.520833333333400000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = False
- AutoStretch = False
- Color = clWhite
- DataSet = Customer
- DataField = 'Company'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText2: TQRDBText
- Left = 212
- Top = 4
- Width = 164
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 560.916666666666600000
- 10.583333333333330000
- 433.916666666666700000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = False
- AutoStretch = False
- Color = clWhite
- DataSet = Customer
- DataField = 'Contact'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText3: TQRDBText
- Left = 384
- Top = 4
- Width = 88
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 1016.000000000000000000
- 10.583333333333330000
- 232.833333333333400000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = False
- AutoStretch = False
- Color = clWhite
- DataSet = Customer
- DataField = 'Phone'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText4: TQRDBText
- Left = 481
- Top = 4
- Width = 88
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 1272.645833333333000000
- 10.583333333333330000
- 232.833333333333400000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = False
- AutoStretch = False
- Color = clWhite
- DataSet = Customer
- DataField = 'FAX'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText5: TQRDBText
- Left = 575
- Top = 4
- Width = 56
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 1521.354166666667000000
- 10.583333333333330000
- 148.166666666666700000)
- Alignment = taRightJustify
- AlignToBand = False
- AutoSize = False
- AutoStretch = False
- Color = clWhite
- DataSet = Customer
- DataField = 'CustNo'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRLabel7: TQRLabel
- Left = 146
- Top = 24
- Width = 41
- Height = 15
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 39.687500000000000000
- 386.291666666666700000
- 63.500000000000000000
- 108.479166666666700000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = 'Orderno'
- Color = clWhite
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = False
- WordWrap = True
- FontSize = 8
- end
- object QRLabel8: TQRLabel
- Left = 230
- Top = 24
- Width = 23
- Height = 15
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 39.687500000000000000
- 608.541666666666600000
- 63.500000000000000000
- 60.854166666666660000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = 'Date'
- Color = clWhite
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = False
- WordWrap = True
- FontSize = 8
- end
- object QRLabel9: TQRLabel
- Left = 292
- Top = 24
- Width = 38
- Height = 15
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 39.687500000000000000
- 772.583333333333400000
- 63.500000000000000000
- 100.541666666666700000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = 'Amount'
- Color = clWhite
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = False
- WordWrap = True
- FontSize = 8
- end
- end
- object ColumnHeaderBand1: TQRBand
- Left = 38
- Top = 78
- Width = 740
- Height = 24
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- AlignToBottom = False
- Color = clWhite
- ForceNewColumn = False
- ForceNewPage = False
- Size.Values = (
- 63.500000000000000000
- 1957.916666666667000000)
- BandType = rbColumnHeader
- object QRLabel1: TQRLabel
- Left = 4
- Top = 4
- Width = 202
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 10.583333333333330000
- 10.583333333333330000
- 534.458333333333400000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = False
- AutoStretch = False
- Caption = 'Company'
- Color = clWhite
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = True
- WordWrap = True
- FontSize = 8
- end
- object QRLabel2: TQRLabel
- Left = 212
- Top = 4
- Width = 164
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 560.916666666666600000
- 10.583333333333330000
- 433.916666666666700000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = False
- AutoStretch = False
- Caption = 'Contact'
- Color = clWhite
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = True
- WordWrap = True
- FontSize = 8
- end
- object QRLabel3: TQRLabel
- Left = 384
- Top = 4
- Width = 88
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 1016.000000000000000000
- 10.583333333333330000
- 232.833333333333400000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = False
- AutoStretch = False
- Caption = 'Phone'
- Color = clWhite
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = True
- WordWrap = True
- FontSize = 8
- end
- object QRLabel4: TQRLabel
- Left = 481
- Top = 4
- Width = 88
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 1272.645833333333000000
- 10.583333333333330000
- 232.833333333333400000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = False
- AutoStretch = False
- Caption = 'Fax'
- Color = clWhite
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = True
- WordWrap = True
- FontSize = 8
- end
- object QRLabel5: TQRLabel
- Left = 574
- Top = 4
- Width = 57
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 1518.708333333333000000
- 10.583333333333330000
- 150.812500000000000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = False
- AutoStretch = False
- Caption = 'Cust no.'
- Color = clWhite
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = True
- WordWrap = True
- FontSize = 8
- end
- end
- object PageFooterBand1: TQRBand
- Left = 38
- Top = 203
- Width = 740
- Height = 25
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- AlignToBottom = False
- Color = clWhite
- ForceNewColumn = False
- ForceNewPage = False
- Size.Values = (
- 66.145833333333330000
- 1957.916666666667000000)
- BandType = rbPageFooter
- object QRSysData1: TQRSysData
- Left = 4
- Top = 8
- Width = 89
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 10.583333333333330000
- 21.166666666666670000
- 235.479166666666700000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- Data = qrsDate
- Text = 'Printed '
- Transparent = False
- FontSize = 10
- end
- object QRSysData2: TQRSysData
- Left = 691
- Top = 8
- Width = 49
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 1828.270833333333000000
- 21.166666666666670000
- 129.645833333333300000)
- Alignment = taRightJustify
- AlignToBand = True
- AutoSize = True
- Data = qrsPageNumber
- Text = 'Page '
- Transparent = False
- FontSize = 10
- end
- end
- object TitleBand1: TQRBand
- Left = 38
- Top = 38
- Width = 740
- Height = 40
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- AlignToBottom = False
- Color = clWhite
- ForceNewColumn = False
- ForceNewPage = False
- Size.Values = (
- 105.833333333333300000
- 1957.916666666667000000)
- BandType = rbTitle
- object QRLabel6: TQRLabel
- Left = 211
- Top = 4
- Width = 318
- Height = 33
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 87.312500000000000000
- 558.270833333333400000
- 10.583333333333330000
- 841.375000000000000000)
- Alignment = taCenter
- AlignToBand = True
- AutoSize = True
- AutoStretch = False
- Caption = 'Customer/Orders Listing'
- Color = clWhite
- Font.Color = clNavy
- Font.Height = -27
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- Transparent = False
- WordWrap = True
- FontSize = 20
- end
- end
- object QRSubDetail1: TQRSubDetail
- Left = 38
- Top = 141
- Width = 740
- Height = 25
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = True
- Frame.DrawRight = True
- AlignToBottom = False
- Color = clWhite
- ForceNewColumn = False
- ForceNewPage = False
- Size.Values = (
- 66.145833333333330000
- 1957.916666666667000000)
- Master = QuickRep
- DataSet = Orders
- FooterBand = GroupFooterBand1
- PrintBefore = False
- PrintIfEmpty = False
- object QRDBText6: TQRDBText
- Left = 128
- Top = 4
- Width = 59
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 338.666666666666700000
- 10.583333333333330000
- 156.104166666666700000)
- Alignment = taRightJustify
- AlignToBand = False
- AutoSize = False
- AutoStretch = False
- Color = clWhite
- DataSet = Orders
- DataField = 'OrderNo'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText7: TQRDBText
- Left = 193
- Top = 4
- Width = 60
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 510.645833333333300000
- 10.583333333333330000
- 158.750000000000000000)
- Alignment = taRightJustify
- AlignToBand = False
- AutoSize = False
- AutoStretch = False
- Color = clWhite
- DataSet = Orders
- DataField = 'SaleDate'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText10: TQRDBText
- Left = 268
- Top = 4
- Width = 63
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 709.083333333333400000
- 10.583333333333330000
- 166.687500000000000000)
- Alignment = taRightJustify
- AlignToBand = False
- AutoSize = False
- AutoStretch = False
- Color = clWhite
- DataSet = Orders
- DataField = 'AmountPaid'
- Mask = '#0.00'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- end
- object GroupFooterBand1: TQRBand
- Left = 38
- Top = 166
- Width = 740
- Height = 25
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = True
- Frame.DrawLeft = True
- Frame.DrawRight = True
- AlignToBottom = False
- Color = clWhite
- ForceNewColumn = False
- ForceNewPage = False
- Size.Values = (
- 66.145833333333330000
- 1957.916666666666000000)
- BandType = rbGroupFooter
- object QRExpr1: TQRExpr
- Left = 268
- Top = 2
- Width = 63
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666650000
- 709.083333333333400000
- 5.291666666666667000
- 166.687500000000000000)
- Alignment = taRightJustify
- AlignToBand = False
- AutoSize = False
- AutoStretch = False
- Color = clWhite
- Master = QRSubDetail1
- ResetAfterPrint = True
- Transparent = False
- WordWrap = True
- Expression = 'sum(amountpaid)'
- Mask = '#0.00'
- FontSize = 10
- end
- object QRLabel10: TQRLabel
- Left = 192
- Top = 2
- Width = 76
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 508.000000000000000000
- 5.291666666666667000
- 201.083333333333200000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = 'Total amount'
- Color = clWhite
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRLabel11: TQRLabel
- Left = 4
- Top = 2
- Width = 73
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 10.583333333333330000
- 5.291666666666667000
- 193.145833333333300000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = 'Total orders:'
- Color = clWhite
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRExpr2: TQRExpr
- Left = 86
- Top = 2
- Width = 33
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 227.541666666666600000
- 5.291666666666667000
- 87.312500000000000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- Master = QRSubDetail1
- ResetAfterPrint = True
- Transparent = False
- WordWrap = True
- Expression = 'count'
- FontSize = 10
- end
- end
- object ChildBand1: TQRChildBand
- Left = 38
- Top = 191
- Width = 740
- Height = 12
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- AlignToBottom = False
- Color = clWhite
- ForceNewColumn = False
- ForceNewPage = False
- Size.Values = (
- 31.750000000000000000
- 1957.916666666666000000)
- ParentBand = GroupFooterBand1
- end
- end
- object Customer: TTable
- Active = True
- DatabaseName = 'DBDEMOS'
- IndexFieldNames = 'Company'
- ReadOnly = True
- TableName = 'CUSTOMER.DB'
- Left = 12
- Top = 12
- end
- object Orders: TTable
- Active = True
- DatabaseName = 'DBDEMOS'
- IndexFieldNames = 'CustNo'
- MasterFields = 'CustNo'
- MasterSource = CustomerDS
- ReadOnly = True
- TableName = 'ORDERS.DB'
- Left = 12
- Top = 44
- end
- object CustomerDS: TDataSource
- DataSet = Customer
- Left = 20
- Top = 4
- end
- end
-