📄 ap230report.dfm
字号:
inherited qrAP230: TqrAP230
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
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)
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
FontSize = 16
end
inherited QRSysData1: TQRSysData
Width = 31
Size.Values = (
44.9791666666667
1778
52.9166666666667
82.0208333333333)
FontSize = 10
end
inherited QRSysData2: TQRSysData
Size.Values = (
44.9791666666667
1778
105.833333333333
132.291666666667)
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
FontSize = 10
end
inherited QRLabel1: TQRLabel
Width = 66
Size.Values = (
44.9791666666667
1598.08333333333
52.9166666666667
174.625)
Caption = #21015#21360#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
FontSize = 10
end
inherited QRLabel2: TQRLabel
Width = 40
Size.Values = (
44.9791666666667
1598.08333333333
105.833333333333
105.833333333333)
Caption = #39029#27425#65306
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
FontSize = 10
end
inherited ReportName: TQRLabel
Left = 304
Width = 148
Size.Values = (
58.2083333333333
804.333333333333
63.5
391.583333333333)
Caption = #24212#20184#24080#27454#32479#35745#34920
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
FontSize = 16
end
inherited QRLabel4: TQRLabel
Width = 66
Size.Values = (
44.9791666666667
1598.08333333333
0
174.625)
Caption = #25253#34920#32534#21495#65306
FontSize = 10
end
inherited QRLabel5: TQRLabel
Width = 36
Size.Values = (
44.9791666666667
1778
0
95.25)
Caption = 'AP230'
FontSize = 10
end
object QRLabel6: TQRLabel
Left = 4
Top = 88
Width = 66
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
10.5833333333333
232.833333333333
174.625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #20379#24212#21830#32534#21495
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel7: TQRLabel
Left = 88
Top = 88
Width = 66
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
232.833333333333
232.833333333333
174.625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #20379#24212#21830#31616#31216
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel8: TQRLabel
Left = 180
Top = 88
Width = 79
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
476.25
232.833333333333
209.020833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21069#26399#26410#20184#36134#27454
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel9: TQRLabel
Left = 292
Top = 88
Width = 79
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
772.583333333333
232.833333333333
209.020833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #26412#26399#24212#20184#24080#27454
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel10: TQRLabel
Left = 408
Top = 88
Width = 79
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1079.5
232.833333333333
209.020833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #26412#26399#24050#20184#36134#27454
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel11: TQRLabel
Left = 516
Top = 88
Width = 105
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1365.25
232.833333333333
277.8125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #26412#26399#24212#20184#24080#27454#24635#39069
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bgDetail: TQRBand
Size.Values = (
60.8541666666667
2000.25)
object QRDBText1: TQRDBText
Left = 4
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
10.5833333333333
10.5833333333333
187.854166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'SupplierID'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 88
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
232.833333333333
10.5833333333333
336.020833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'SupplierAttribName'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 216
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
571.5
10.5833333333333
113.770833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'LastAP'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 316
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
836.083333333333
10.5833333333333
150.8125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'PeriodAP'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 460
Top = 4
Width = 29
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1217.08333333333
10.5833333333333
76.7291666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'Paid'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText6: TQRDBText
Left = 572
Top = 4
Width = 50
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
132.291666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'TotalAP'
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bdPageFooter: TQRBand
Size.Values = (
105.833333333333
2000.25)
inherited QRLabel3: TQRLabel
Width = 40
Size.Values = (
44.9791666666667
1651
52.9166666666667
105.833333333333)
Caption = #21046#34920#65306
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 SupplierID, SupplierAttribName,'
'0 AS LastAP, 0 AS PeriodAP, 0 AS Paid, 0 AS TotalAP'
'FROM Supplier'
'WHERE CompanyID = :CompanyID'
'AND SupplierID >= :BeginSupplierID AND SupplierID <= :EndSupplie' +
'rID'
'ORDER BY SupplierID')
UpdateObject = UpdateSQL1
ParamData = <
item
DataType = ftString
Name = 'CompanyID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'BeginSupplierID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'EndSupplierID'
ParamType = ptUnknown
end>
object qyReportSupplierID: TStringField
FieldName = 'SupplierID'
FixedChar = True
Size = 8
end
object qyReportSupplierAttribName: TStringField
FieldName = 'SupplierAttribName'
FixedChar = True
Size = 10
end
object qyReportLastAP: TIntegerField
FieldName = 'LastAP'
DisplayFormat = '#,##0'
end
object qyReportPeriodAP: TIntegerField
FieldName = 'PeriodAP'
DisplayFormat = '#,##0'
end
object qyReportPaid: TIntegerField
FieldName = 'Paid'
DisplayFormat = '#,##0'
end
object qyReportTotalAP: TIntegerField
FieldName = 'TotalAP'
DisplayFormat = '#,##0'
end
end
object UpdateSQL1: TUpdateSQL
ModifySQL.Strings = (
'update Supplier'
'set'
' SupplierID = :SupplierID,'
' SupplierAttribName = :SupplierAttribName'
'where'
' SupplierID = :OLD_SupplierID and'
' SupplierAttribName = :OLD_SupplierAttribName')
InsertSQL.Strings = (
'insert into Supplier'
' (SupplierID, SupplierAttribName)'
'values'
' (:SupplierID, :SupplierAttribName)')
DeleteSQL.Strings = (
'delete from Supplier'
'where'
' SupplierID = :OLD_SupplierID and'
' SupplierAttribName = :OLD_SupplierAttribName')
Left = 84
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -