📄 dl270report.dfm
字号:
inherited qrDL270: TqrDL270
Functions.DATA = (
'0'
'0'
#39#39)
Page.Values = (
50
2970
50
2100
50
50
0)
inherited bdPageHeader: TQRBand
Size.Values = (
280.458333333333
2000.25)
inherited CompanyName: TQRLabel
Size.Values = (
66.1458333333333
838.729166666667
0
322.791666666667)
FontSize = 16
end
inherited QRSysData1: TQRSysData
Size.Values = (
44.9791666666667
1778
52.9166666666667
113.770833333333)
FontSize = 10
end
inherited QRSysData2: TQRSysData
Size.Values = (
44.9791666666667
1778
105.833333333333
132.291666666667)
FontSize = 10
end
inherited QRLabel1: TQRLabel
Size.Values = (
44.9791666666667
1598.08333333333
52.9166666666667
158.75)
FontSize = 10
end
inherited QRLabel2: TQRLabel
Size.Values = (
44.9791666666667
1598.08333333333
105.833333333333
89.9583333333333)
FontSize = 10
end
inherited ReportName: TQRLabel
Left = 325
Width = 106
Size.Values = (
58.2083333333333
859.895833333333
63.5
280.458333333333)
Caption = #20986#36008#25490#34892#27036
FontSize = 16
end
inherited QRLabel4: TQRLabel
Size.Values = (
44.9791666666667
1598.08333333333
0
158.75)
FontSize = 10
end
inherited QRLabel5: TQRLabel
Width = 36
Size.Values = (
44.9791666666667
1778
0
95.25)
Caption = 'DL270'
FontSize = 10
end
object QRLabel10: TQRLabel
Left = 356
Top = 88
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
941.916666666667
232.833333333333
140.229166666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #20986#36008#25976#37327
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel11: TQRLabel
Left = 476
Top = 88
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1259.41666666667
232.833333333333
140.229166666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #20986#36008#37329#38989
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel7: TQRLabel
Left = 160
Top = 88
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
423.333333333333
232.833333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #23458#25142#31777#31281
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel6: TQRLabel
Left = 68
Top = 88
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
179.916666666667
232.833333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #23458#25142#32232#34399
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel8: TQRLabel
Left = 28
Top = 88
Width = 27
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
74.0833333333333
232.833333333333
71.4375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21517#27425
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bgDetail: TQRBand
Size.Values = (
60.8541666666667
2000.25)
object QRDBText6: TQRDBText
Left = 458
Top = 4
Width = 78
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1211.79166666667
10.5833333333333
206.375)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'SalesAmount'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 316
Top = 4
Width = 92
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
836.083333333333
10.5833333333333
243.416666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'SalesQuantity'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText1: 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 = 'CustomerID'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 156
Top = 4
Width = 127
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
412.75
10.5833333333333
336.020833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'CustomerAttribName'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 34
Top = 4
Width = 22
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
89.9583333333333
10.5833333333333
58.2083333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'SEQ'
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bdPageFooter: TQRBand
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
inherited qyReport: TQuery
CachedUpdates = True
BeforeOpen = qyReportBeforeOpen
RequestLive = True
SQL.Strings = (
'SELECT 0 AS SEQ, R.CustomerAttribName, A.CustomerID,'
'SUM(A.SalesQuantity - A.SalesReturnQuantity) AS SalesQuantity,'
'SUM(A.SalesAmount - A.SalesReturnAmount) AS SalesAmount'
'FROM SalesAnalyst A, CustomerMaster R'
'WHERE A.CompanyID = :CompanyID'
'AND A.CustomerID >= :BeginCustomerID AND A.CustomerID <= :EndCus' +
'tomerID'
'AND (A.SalesYear + A.SalesMonth) >= :BeginYearMonth'
'AND (A.SalesYear + A.SalesMonth) <= :EndYearMonth'
'AND A.CompanyID = R.CompanyID AND A.CustomerID = R.CustomerID'
'GROUP BY R.CustomerAttribName, A.CustomerID'
'ORDER BY SUM(A.SalesAmount - A.SalesReturnAmount) DESC')
UpdateObject = UpdateSQL1
Top = 24
ParamData = <
item
DataType = ftString
Name = 'CompanyID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'BeginCustomerID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'EndCustomerID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'BeginYearMonth'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'EndYearMonth'
ParamType = ptUnknown
end>
object qyReportSEQ: TIntegerField
FieldName = 'SEQ'
end
object qyReportCustomerID: TStringField
FieldName = 'CustomerID'
FixedChar = True
Size = 8
end
object qyReportCustomerAttribName: TStringField
FieldName = 'CustomerAttribName'
FixedChar = True
Size = 10
end
object qyReportSalesQuantity: TBCDField
FieldName = 'SalesQuantity'
DisplayFormat = '#,##0'
Precision = 32
Size = 0
end
object qyReportSalesAmount: TBCDField
FieldName = 'SalesAmount'
DisplayFormat = '#,##0'
Precision = 32
Size = 0
end
end
object UpdateSQL1: TUpdateSQL
ModifySQL.Strings = (
'update SalesAnalyst'
'set'
' CustomerID = :CustomerID,'
' SalesQuantity = :SalesQuantity,'
' SalesAmount = :SalesAmount'
'where'
' CustomerID = :OLD_CustomerID and'
' SalesQuantity = :OLD_SalesQuantity and'
' SalesAmount = :OLD_SalesAmount')
InsertSQL.Strings = (
'insert into SalesAnalyst'
' (CustomerID, SalesQuantity, SalesAmount)'
'values'
' (:CustomerID, :SalesQuantity, :SalesAmount)')
DeleteSQL.Strings = (
'delete from SalesAnalyst'
'where'
' CustomerID = :OLD_CustomerID and'
' SalesQuantity = :OLD_SalesQuantity and'
' SalesAmount = :OLD_SalesAmount')
Left = 100
Top = 28
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -