📄 ar220report.dfm
字号:
37.0416666666667
941.916666666667
10.5833333333333
206.375)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'ValueAddTax'
Transparent = True
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 292
Top = 4
Width = 57
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
772.583333333333
10.5833333333333
150.8125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'SubTotal'
Transparent = True
WordWrap = True
FontSize = 10
end
object QRDBText9: TQRDBText
Left = 216
Top = 4
Width = 64
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
571.5
10.5833333333333
169.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'InvoiceNo'
Transparent = True
WordWrap = True
FontSize = 10
end
object QRDBText10: TQRDBText
Left = 4
Top = 4
Width = 85
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
10.5833333333333
10.5833333333333
224.895833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'DeliveryDate'
Transparent = True
WordWrap = True
FontSize = 10
end
object QRDBText11: TQRDBText
Left = 68
Top = 4
Width = 71
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
179.916666666667
10.5833333333333
187.854166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'DeliveryID'
Transparent = True
WordWrap = True
FontSize = 10
end
object QRDBText12: TQRDBText
Left = 148
Top = 4
Width = 190
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
391.583333333333
10.5833333333333
502.708333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'DeliveryPropertyDescription'
Transparent = True
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 476
Top = 4
Width = 120
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1259.41666666667
10.5833333333333
317.5)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'AccountReceivable'
Transparent = True
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 469
Top = 4
Width = 43
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1240.89583333333
10.5833333333333
113.770833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'Amount'
Transparent = True
WordWrap = True
FontSize = 10
end
end
inherited bdPageFooter: TQRBand
Top = 236
Size.Values = (
105.833333333333
2000.25)
inherited QRLabel3: TQRLabel
Size.Values = (
44.9791666666667
1651
52.9166666666667
89.9583333333333)
FontSize = 10
end
inherited UserName: TQRLabel
Size.Values = (
44.9791666666667
1746.25
52.9166666666667
150.8125)
FontSize = 10
end
end
object bdGroupHeader: TQRGroup [3]
Left = 19
Top = 169
Width = 756
Height = 4
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = True
Size.Values = (
10.5833333333333
2000.25)
Expression = 'qyReport.CustomerID'
FooterBand = bdGroupFooter
Master = Owner
ReprintOnNewPage = False
end
object bdGroupFooter: TQRBand [4]
Left = 19
Top = 196
Width = 756
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.833333333333
2000.25)
BandType = rbGroupFooter
object QRDBText15: TQRDBText
Left = 620
Top = 4
Width = 134
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1640.41666666667
10.5833333333333
354.541666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'UnAccountReceivable'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText16: TQRDBText
Left = 616
Top = 4
Width = 57
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1629.83333333333
10.5833333333333
150.8125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'Received'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText17: TQRDBText
Left = 476
Top = 4
Width = 120
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1259.41666666667
10.5833333333333
317.5)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'AccountReceivable'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel19: TQRLabel
Left = 444
Top = 4
Width = 60
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1174.75
10.5833333333333
158.75)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #23458#25142#21512#35336':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited qyReport: TQuery
BeforeOpen = qyReportBeforeOpen
OnCalcFields = qyReportCalcFields
SQL.Strings = (
'SELECT R.CustomerName, M.DeliveryID, M.DeliveryDate, M.InvoiceNo' +
','
'M.AccountReceivable, M.Received, M.SubTotal, M.ValueAddTax, M.Cu' +
'stomerID,'
'M.CompanyID, M.DeliveryProperty, M.Amount, R.InvoiceNo AS Custom' +
'erInvoiceNo, R.Owner'
'FROM DeliveryMaster M, CustomerMaster R'
'WHERE M.CompanyID = :CompanyID'
'AND M.DeliveryDate >= :BeginDeliveryDate AND M.DeliveryDate <= :' +
'EndDeliveryDate'
'AND M.CustomerID >= :BeginCustomerID AND M.CustomerID <= :EndCus' +
'tomerID'
'AND M.CompanyID = R.CompanyID AND M.CustomerID = R.CustomerID'
'AND M.DeliveryProperty in ('#39'1'#39', '#39'2'#39')'
'ORDER BY M.CustomerID, M.DeliveryDate, M.DeliveryID')
ParamData = <
item
DataType = ftString
Name = 'CompanyID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'BeginDeliveryDate'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'EndDeliveryDate'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'BeginCustomerID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'EndCustomerID'
ParamType = ptUnknown
end>
object qyReportCustomerID: TStringField
FieldName = 'CustomerID'
FixedChar = True
Size = 8
end
object qyReportDeliveryID: TStringField
FieldName = 'DeliveryID'
FixedChar = True
Size = 10
end
object qyReportDeliveryDate: TStringField
FieldName = 'DeliveryDate'
FixedChar = True
Size = 8
end
object qyReportInvoiceNo: TStringField
FieldName = 'InvoiceNo'
FixedChar = True
Size = 10
end
object qyReportSubTotal: TBCDField
FieldName = 'SubTotal'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportValueAddTax: TBCDField
FieldName = 'ValueAddTax'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportAmount: TBCDField
FieldName = 'Amount'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportAccountReceivable: TBCDField
FieldName = 'AccountReceivable'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportReceived: TBCDField
FieldName = 'Received'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportUnAccountReceivable: TFloatField
FieldKind = fkCalculated
FieldName = 'UnAccountReceivable'
DisplayFormat = '#,##0'
Calculated = True
end
object qyReportCompanyID: TStringField
FieldName = 'CompanyID'
FixedChar = True
Size = 2
end
object qyReportDeliveryProperty: TStringField
FieldName = 'DeliveryProperty'
FixedChar = True
Size = 1
end
object qyReportCustomerName: TStringField
FieldName = 'CustomerName'
FixedChar = True
Size = 60
end
object qyReportDeliveryPropertyDescription: TStringField
FieldKind = fkCalculated
FieldName = 'DeliveryPropertyDescription'
Size = 10
Calculated = True
end
object qyReportCustomerInvoiceNo: TStringField
FieldName = 'CustomerInvoiceNo'
FixedChar = True
Size = 8
end
object qyReportOwner: TStringField
FieldName = 'Owner'
FixedChar = True
Size = 8
end
object qyReportBeginDeliveryDate: TStringField
FieldKind = fkCalculated
FieldName = 'BeginDeliveryDate'
Size = 8
Calculated = True
end
object qyReportEndDeliveryDate: TStringField
FieldKind = fkCalculated
FieldName = 'EndDeliveryDate'
Size = 8
Calculated = True
end
end
object dsReport: TDataSource
DataSet = qyReport
Left = 88
Top = 16
end
object Query1: TQuery
Active = True
OnCalcFields = Query1CalcFields
DatabaseName = 'KingsByPrg'
DataSource = dsReport
SQL.Strings = (
'SELECT SUM(M.AccountReceivable) AS AccountReceivable, SUM(M.Rece' +
'ived) AS Received'
'FROM DeliveryMaster M'
'WHERE M.CompanyID = :CompanyID'
'AND M.DeliveryDate >= :BeginDeliveryDate AND M.DeliveryDate <= :' +
'EndDeliveryDate'
'AND M.CustomerID = :CustomerID'
'AND M.DeliveryProperty in ('#39'1'#39', '#39'2'#39')'
'')
Left = 156
Top = 16
ParamData = <
item
DataType = ftFixedChar
Name = 'CompanyID'
ParamType = ptUnknown
Size = 3
end
item
DataType = ftString
Name = 'BeginDeliveryDate'
ParamType = ptUnknown
Size = 9
end
item
DataType = ftString
Name = 'EndDeliveryDate'
ParamType = ptUnknown
Size = 9
end
item
DataType = ftFixedChar
Name = 'CustomerID'
ParamType = ptUnknown
Size = 9
end>
object BCDField4: TBCDField
FieldName = 'AccountReceivable'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object BCDField5: TBCDField
FieldName = 'Received'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object FloatField1: TFloatField
FieldKind = fkCalculated
FieldName = 'UnAccountReceivable'
DisplayFormat = '#,##0'
Calculated = True
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -