?? ap210report.dfm
字號:
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
285.75
10.5833333333333
227.541666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #26412#26085#25910#27454#21512#35745':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
object QRBand1: TQRBand [5]
Left = 19
Top = 212
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 = rbSummary
object QRExpr1: TQRExpr
Left = 572
Top = 4
Width = 183
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1513.41666666667
10.5833333333333
484.1875)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(qyReport.TotalBalance)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr2: TQRExpr
Left = 517
Top = 4
Width = 162
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1367.89583333333
10.5833333333333
428.625)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(qyReport.PayAmount)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr3: TQRExpr
Left = 438
Top = 4
Width = 141
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1158.875
10.5833333333333
373.0625)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(qyReport.Others)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr4: TQRExpr
Left = 391
Top = 4
Width = 148
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1034.52083333333
10.5833333333333
391.583333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(qyReport.Prepaid)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr5: TQRExpr
Left = 306
Top = 4
Width = 169
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
809.625
10.5833333333333
447.145833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(qyReport.Remittance)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr6: TQRExpr
Left = 252
Top = 4
Width = 155
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
666.75
10.5833333333333
410.104166666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(qyReport.Discount)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr7: TQRExpr
Left = 184
Top = 4
Width = 155
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
486.833333333333
10.5833333333333
410.104166666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(qyReport.PayCheck)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr8: TQRExpr
Left = 119
Top = 4
Width = 148
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
314.854166666667
10.5833333333333
391.583333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(qyReport.PayCash)'
Mask = '#,##0'
FontSize = 10
end
object QRLabel19: TQRLabel
Left = 160
Top = 4
Width = 34
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
423.333333333333
10.5833333333333
89.9583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #24635#35745':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited qyReport: TQuery
BeforeOpen = qyReportBeforeOpen
SQL.Strings = (
'SELECT S.SupplierAttribName, M.SupplierID, M.PaymentID, M.PayDat' +
'e,'
'M.PayCash, M.PayCheck, M.Discount, M.Remittance, M.Prepaid,'
'M.Others, M.PayAmount, M.TotalBalance, M.CompanyID'
'FROM AccountPayableMaster M, Supplier S'
'WHERE M.CompanyID = :CompanyID'
'AND M.PayDate >= :BeginPayDate AND M.PayDate <= :EndPayDate'
'AND M.SupplierID >= :BeginSupplierID AND M.SupplierID <= :EndSup' +
'plierID'
'AND M.CompanyID = S.CompanyID AND M.SupplierID = S.SupplierID'
'ORDER BY M.PayDate, M.PaymentID')
ParamData = <
item
DataType = ftString
Name = 'CompanyID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'BeginPayDate'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'EndPayDate'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'BeginSupplierID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'EndSupplierID'
ParamType = ptUnknown
end>
object qyReportSupplierID: TStringField
FieldName = 'SupplierID'
Origin = 'KINGSBYPRG.AccountPayableMaster.SupplierID'
FixedChar = True
Size = 8
end
object qyReportSupplierAttribName: TStringField
FieldName = 'SupplierAttribName'
Origin = 'KINGSBYPRG.Supplier.SupplierAttribName'
FixedChar = True
Size = 10
end
object qyReportPaymentID: TStringField
FieldName = 'PaymentID'
Origin = 'KINGSBYPRG.AccountPayableMaster.PaymentID'
FixedChar = True
Size = 10
end
object qyReportPayDate: TStringField
FieldName = 'PayDate'
Origin = 'KINGSBYPRG.AccountPayableMaster.PayDate'
FixedChar = True
Size = 8
end
object qyReportPayCash: TBCDField
FieldName = 'PayCash'
Origin = 'KINGSBYPRG.AccountPayableMaster.PayCash'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportPayCheck: TBCDField
FieldName = 'PayCheck'
Origin = 'KINGSBYPRG.AccountPayableMaster.PayCheck'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportDiscount: TBCDField
FieldName = 'Discount'
Origin = 'KINGSBYPRG.AccountReceivableMaster.Discount'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportRemittance: TBCDField
FieldName = 'Remittance'
Origin = 'KINGSBYPRG.AccountReceivableMaster.Remittance'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportPrepaid: TBCDField
FieldName = 'Prepaid'
Origin = 'KINGSBYPRG.AccountPayableMaster.Prepaid'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportOthers: TBCDField
FieldName = 'Others'
Origin = 'KINGSBYPRG.AccountReceivableMaster.Others'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportPayAmount: TBCDField
FieldName = 'PayAmount'
Origin = 'KINGSBYPRG.AccountPayableMaster.PayAmount'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportTotalBalance: TBCDField
FieldName = 'TotalBalance'
Origin = 'KINGSBYPRG.AccountReceivableMaster.TotalBalance'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportCompanyID: TStringField
FieldName = 'CompanyID'
Origin = 'KINGSBYPRG.AccountReceivableMaster.CompanyID'
FixedChar = True
Size = 2
end
end
object dsReport: TDataSource
DataSet = qyReport
Left = 48
Top = 36
end
object Query1: TQuery
DatabaseName = 'KingsByPrg'
DataSource = dsReport
SQL.Strings = (
'SELECT SUM(M.PayCash) AS PayCash, SUM(M.PayCheck) AS PayCheck,'
'SUM(M.Discount) AS Discount, SUM(M.Remittance) AS Remittance,'
'SUM(M.Prepaid) AS Prepaid, SUM(M.Others) AS Others,'
'SUM(M.PayAmount) AS PayAmount, SUM(M.TotalBalance) AS TotalBalan' +
'ce'
'FROM AccountPayableMaster M'
'WHERE M.CompanyID = :CompanyID AND M.PayDate = :PayDate')
Left = 132
Top = 12
ParamData = <
item
DataType = ftFixedChar
Name = 'CompanyID'
ParamType = ptUnknown
Size = 3
end
item
DataType = ftFixedChar
Name = 'PayDate'
ParamType = ptUnknown
Size = 9
end>
object Query1PayCash: TBCDField
FieldName = 'PayCash'
Origin = 'KINGSBYPRG.AccountPayableMaster.PayCash'
DisplayFormat = '#,##0'
Precision = 32
Size = 0
end
object Query1PayCheck: TBCDField
FieldName = 'PayCheck'
Origin = 'KINGSBYPRG.AccountPayableMaster.PayCheck'
DisplayFormat = '#,##0'
Precision = 32
Size = 0
end
object Query1Discount: TBCDField
FieldName = 'Discount'
Origin = 'KINGSBYPRG.AccountPayableMaster.Discount'
DisplayFormat = '#,##0'
Precision = 32
Size = 0
end
object Query1Remittance: TBCDField
FieldName = 'Remittance'
Origin = 'KINGSBYPRG.AccountPayableMaster.Remittance'
DisplayFormat = '#,##0'
Precision = 32
Size = 0
end
object Query1Prepaid: TBCDField
FieldName = 'Prepaid'
Origin = 'KINGSBYPRG.AccountPayableMaster.Prepaid'
DisplayFormat = '#,##0'
Precision = 32
Size = 0
end
object Query1Others: TBCDField
FieldName = 'Others'
Origin = 'KINGSBYPRG.AccountPayableMaster.Others'
DisplayFormat = '#,##0'
Precision = 32
Size = 0
end
object Query1PayAmount: TBCDField
FieldName = 'PayAmount'
Origin = 'KINGSBYPRG.AccountPayableMaster.PayAmount'
DisplayFormat = '#,##0'
Precision = 32
Size = 0
end
object Query1TotalBalance: TBCDField
FieldName = 'TotalBalance'
Origin = 'KINGSBYPRG.AccountPayableMaster.TotalBalance'
DisplayFormat = '#,##0'
Precision = 32
Size = 0
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -