home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 August
/
VPR9708A.ISO
/
D3TRIAL
/
INSTALL
/
DATA.Z
/
MD.DFM
/
MD.txt
Wrap
Text File
|
1997-05-13
|
24KB
|
903 lines
object MDForm: TMDForm
Left = 43
Top = 9
Width = 939
Height = 639
Caption = 'MDForm'
Font.Color = clWindowText
Font.Height = -13
Font.Style = []
Scaled = False
PixelsPerInch = 120
TextHeight = 22
object QuickRep: TQuickRep
Left = 2
Top = 6
Width = 992
Height = 1403
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.Style = []
Options = [LastPageFooter]
Page.Columns = 1
Page.Orientation = poPortrait
Page.PaperSize = A4
Page.Values = (
100
2970
100
2100
100
100
0)
PrintIfEmpty = False
PrinterSettings.Copies = 1
PrinterSettings.Duplex = False
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.OutputBin = First
SnapToGrid = True
Units = MM
Zoom = 100
object DetailBand1: TQRBand
Left = 47
Top = 127
Width = 898
Height = 49
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.716666666667000000
1900.766666666670000000)
BandType = rbDetail
object QRDBText1: TQRDBText
Left = 10
Top = 5
Width = 249
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
21.166666666666700000
10.583333333333300000
526.520833333333000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = Customer
DataField = 'Company'
Font.Color = clWindowText
Font.Height = -17
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 265
Top = 5
Width = 205
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
560.916666666667000000
10.583333333333300000
433.916666666667000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = Customer
DataField = 'Contact'
Font.Color = clWindowText
Font.Height = -17
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 480
Top = 5
Width = 110
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
1016
10.583333333333300000
232.833333333333000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = Customer
DataField = 'Phone'
Font.Color = clWindowText
Font.Height = -17
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 601
Top = 5
Width = 110
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
1272.645833333330000000
10.583333333333300000
232.833333333333000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = Customer
DataField = 'FAX'
Font.Color = clWindowText
Font.Height = -17
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 719
Top = 5
Width = 70
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
1521.354166666670000000
10.583333333333300000
148.166666666667000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = Customer
DataField = 'CustNo'
Font.Color = clWindowText
Font.Height = -17
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel7: TQRLabel
Left = 182
Top = 30
Width = 47
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
29.633333333333300000
385.233333333333000000
63.500000000000000000
99.483333333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Orderno'
Color = clWhite
Font.Color = clWindowText
Font.Height = -13
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRLabel8: TQRLabel
Left = 288
Top = 30
Width = 27
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
29.633333333333300000
609.600000000000000000
63.500000000000000000
57.150000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Date'
Color = clWhite
Font.Color = clWindowText
Font.Height = -13
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
object QRLabel9: TQRLabel
Left = 365
Top = 30
Width = 45
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
29.633333333333300000
772.583333333333000000
63.500000000000000000
95.250000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Amount'
Color = clWhite
Font.Color = clWindowText
Font.Height = -13
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 8
end
end
object ColumnHeaderBand1: TQRBand
Left = 47
Top = 97
Width = 898
Height = 30
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
1900.766666666670000000)
BandType = rbColumnHeader
object QRLabel1: TQRLabel
Left = 5
Top = 5
Width = 252
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
10.583333333333300000
10.583333333333300000
534.458333333333000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'Company'
Color = clWhite
Font.Color = clBlack
Font.Height = -13
Font.Style = []
ParentFont = False
Transparent = True
WordWrap = True
FontSize = 8
end
object QRLabel2: TQRLabel
Left = 265
Top = 5
Width = 205
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
560.916666666667000000
10.583333333333300000
433.916666666667000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'Contact'
Color = clWhite
Font.Color = clBlack
Font.Height = -13
Font.Style = []
ParentFont = False
Transparent = True
WordWrap = True
FontSize = 8
end
object QRLabel3: TQRLabel
Left = 480
Top = 5
Width = 110
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
1016
10.583333333333300000
232.833333333333000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'Phone'
Color = clWhite
Font.Color = clBlack
Font.Height = -13
Font.Style = []
ParentFont = False
Transparent = True
WordWrap = True
FontSize = 8
end
object QRLabel4: TQRLabel
Left = 601
Top = 5
Width = 110
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
1272.645833333330000000
10.583333333333300000
232.833333333333000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'Fax'
Color = clWhite
Font.Color = clBlack
Font.Height = -13
Font.Style = []
ParentFont = False
Transparent = True
WordWrap = True
FontSize = 8
end
object QRLabel5: TQRLabel
Left = 718
Top = 5
Width = 71
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
1518.708333333330000000
10.583333333333300000
150.812500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'Cust no.'
Color = clWhite
Font.Color = clBlack
Font.Height = -13
Font.Style = []
ParentFont = False
Transparent = True
WordWrap = True
FontSize = 8
end
end
object PageFooterBand1: TQRBand
Left = 47
Top = 253
Width = 898
Height = 31
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 = (
65.600000000000000000
1900.766666666670000000)
BandType = rbPageFooter
object QRSysData1: TQRSysData
Left = 5
Top = 10
Width = 103
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
38.100000000000000000
10.583333333333300000
21.166666666666700000
218.016666666667000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsDate
Font.Color = clWindowText
Font.Height = -17
Font.Style = []
ParentFont = False
Text = 'Printed '
Transparent = False
FontSize = 10
end
object QRSysData2: TQRSysData
Left = 774
Top = 10
Width = 124
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
38.100000000000000000
1638.300000000000000000
21.166666666666700000
262.466666666667000000)
Alignment = taRightJustify
AlignToBand = True
AutoSize = True
Color = clWhite
Data = qrsPageNumber
Font.Color = clWindowText
Font.Height = -17
Font.Style = []
ParentFont = False
Text = 'Page '
Transparent = False
FontSize = 10
end
end
object TitleBand1: TQRBand
Left = 47
Top = 47
Width = 898
Height = 50
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.833333333333000000
1900.766666666670000000)
BandType = rbTitle
object QRLabel6: TQRLabel
Left = 263
Top = 5
Width = 371
Height = 34
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
71.966666666666700000
556.683333333333000000
10.583333333333300000
785.283333333333000000)
Alignment = taCenter
AlignToBand = True
AutoSize = True
AutoStretch = False
Caption = 'Customer/Orders Listing'
Color = clWhite
Font.Color = clNavy
Font.Height = -33
Font.Style = [fsBold, fsItalic]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 20
end
end
object QRSubDetail1: TQRSubDetail
Left = 47
Top = 176
Width = 898
Height = 31
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 = (
65.616666666666700000
1900.766666666670000000)
Master = QuickRep
DataSet = Orders
FooterBand = GroupFooterBand1
PrintBefore = False
PrintIfEmpty = False
object QRDBText6: TQRDBText
Left = 160
Top = 5
Width = 74
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
338.666666666667000000
10.583333333333300000
156.104166666667000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = Orders
DataField = 'OrderNo'
Font.Color = clWindowText
Font.Height = -17
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 241
Top = 5
Width = 75
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
510.645833333333000000
10.583333333333300000
158.750000000000000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = Orders
DataField = 'SaleDate'
Font.Color = clWindowText
Font.Height = -17
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText10: TQRDBText
Left = 335
Top = 5
Width = 79
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
709.083333333333000000
10.583333333333300000
166.687500000000000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = Orders
DataField = 'AmountPaid'
Font.Color = clWindowText
Font.Height = -17
Font.Style = []
Mask = '#0.00'
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
end
object GroupFooterBand1: TQRBand
Left = 47
Top = 207
Width = 898
Height = 31
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 = (
65.616666666666700000
1900.766666666670000000)
BandType = rbGroupFooter
object QRExpr1: TQRExpr
Left = 335
Top = 2
Width = 79
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666700000
709.083333333333000000
5.291666666666670000
166.687500000000000000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Color = clWindowText
Font.Height = -17
Font.Style = []
Color = clWhite
Master = QRSubDetail1
ParentFont = False
ResetAfterPrint = True
Transparent = False
WordWrap = True
Expression = 'sum(amountpaid)'
Mask = '#0.00'
FontSize = 10
end
object QRLabel10: TQRLabel
Left = 240
Top = 2
Width = 96
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
38.100000000000000000
508
4.233333333333330000
203.200000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Total amount'
Color = clWhite
Font.Color = clWindowText
Font.Height = -17
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel11: TQRLabel
Left = 5
Top = 2
Width = 92
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
38.100000000000000000
10.583333333333300000
4.233333333333330000
194.733333333333000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Total orders:'
Color = clWhite
Font.Color = clWindowText
Font.Height = -17
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRExpr2: TQRExpr
Left = 108
Top = 2
Width = 43
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
38.100000000000000000
228.600000000000000000
4.233333333333330000
91.016666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Font.Color = clWindowText
Font.Height = -17
Font.Style = []
Color = clWhite
Master = QRSubDetail1
ParentFont = False
ResetAfterPrint = True
Transparent = False
WordWrap = True
Expression = 'count'
FontSize = 10
end
end
object ChildBand1: TQRChildBand
Left = 47
Top = 238
Width = 898
Height = 15
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
1900.766666666670000000)
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