📄 main.dfm
字号:
object QRExpr3: TQRExpr
Left = 80
Top = 8
Width = 201
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.9947916666667
264.583333333333
26.4583333333333
664.765625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(INT(qryMasterDetail.ItemsTotal- qryMasterDetail.AmountPaid))'
FontSize = 10
end
object QRLabel12: TQRLabel
Left = 0
Top = 8
Width = 94
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.9947916666667
0
26.4583333333333
310.885416666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '所有未付款项总计：'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
object TitleBand1: TQRBand
Left = 30
Top = 62
Width = 575
Height = 32
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
1901.69270833333)
BandType = rbTitle
object QRSysData1: TQRSysData
Left = 208
Top = 8
Width = 158
Height = 22
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
72.7604166666667
687.916666666667
26.4583333333333
522.552083333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsReportTitle
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
FontSize = 20
end
end
object QRSubDetail1: TQRSubDetail
Left = 30
Top = 190
Width = 575
Height = 32
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
1901.69270833333)
Master = QuickRep1
FooterBand = GroupFooterBand1
HeaderBand = GroupHeaderBand1
PrintBefore = False
PrintIfEmpty = True
object QRDBText7: TQRDBText
Left = 0
Top = 8
Width = 89
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.9947916666667
0
26.4583333333333
294.348958333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = qryMasterDetail
DataField = 'OrderNo'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText8: TQRDBText
Left = 96
Top = 8
Width = 145
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.9947916666667
317.5
26.4583333333333
479.557291666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = qryMasterDetail
DataField = 'Terms'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText9: TQRDBText
Left = 247
Top = 8
Width = 81
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.9947916666667
816.901041666667
26.4583333333333
267.890625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = qryMasterDetail
DataField = 'PaymentMethod'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText10: TQRDBText
Left = 336
Top = 8
Width = 81
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.9947916666667
1111.25
26.4583333333333
267.890625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = qryMasterDetail
DataField = 'ItemsTotal'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRExpr1: TQRExpr
Left = 427
Top = 8
Width = 82
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.9947916666667
1412.21354166667
26.4583333333333
271.197916666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'int(qryMasterDetail.ItemsTotal - qryMasterDetail.AmountPaid)'
FontSize = 10
end
end
object GroupFooterBand1: TQRBand
Left = 30
Top = 222
Width = 575
Height = 32
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
1901.69270833333)
BandType = rbGroupFooter
object QRExpr2: TQRExpr
Left = 80
Top = 8
Width = 225
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.9947916666667
264.583333333333
26.4583333333333
744.140625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
Master = QRSubDetail1
ResetAfterPrint = True
Transparent = False
WordWrap = True
Expression = 'SUM(INT(qryMasterDetail.ItemsTotal- qryMasterDetail.AmountPaid))'
FontSize = 10
end
object QRLabel13: TQRLabel
Left = 0
Top = 8
Width = 74
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.9947916666667
0
26.4583333333333
244.739583333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '未付款项总计：'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
object GroupHeaderBand1: TQRBand
Left = 30
Top = 158
Width = 575
Height = 32
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
1901.69270833333)
BandType = rbGroupHeader
object QRLabel7: TQRLabel
Left = 0
Top = 11
Width = 32
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.9947916666667
0
36.3802083333333
105.833333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '定单号'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel8: TQRLabel
Left = 96
Top = 11
Width = 22
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.9947916666667
317.5
36.3802083333333
72.7604166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '条款'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel9: TQRLabel
Left = 245
Top = 11
Width = 42
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.9947916666667
810.286458333333
36.3802083333333
138.90625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '付款方式'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel10: TQRLabel
Left = 336
Top = 11
Width = 42
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.9947916666667
1111.25
36.3802083333333
138.90625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '款项总额'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel11: TQRLabel
Left = 433
Top = 9
Width = 42
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.9947916666667
1432.05729166667
29.765625
138.90625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '未付款额'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
end
object dseMasterDetail: TDataSource
DataSet = tblMasterDetail
Left = 112
Top = 331
end
object tblMasterDetail: TTable
Active = True
DatabaseName = 'BCDEMOS'
TableName = 'customer.db'
Left = 48
Top = 331
end
object qryMasterDetail: TQuery
Active = True
DatabaseName = 'BCDEMOS'
DataSource = dseMasterDetail
SQL.Strings = (
'SELECT * FROM orders WHERE CustNo=:CustNo')
Left = 80
Top = 331
ParamData = <
item
DataType = ftFloat
Name = 'CustNo'
ParamType = ptUnknown
end>
end
object PopupMenu1: TPopupMenu
Left = 78
Top = 42
object miPreviewReport: TMenuItem
Caption = '预览报表(&R)'
OnClick = miPreviewReportClick
end
object N1: TMenuItem
Caption = '-'
end
object miPrinterSetup: TMenuItem
Caption = '打印设置(&U)'
OnClick = miPrinterSetupClick
end
object miPrintReport: TMenuItem
Caption = '打印报表(&P)'
OnClick = miPrintReportClick
end
object N3: TMenuItem
Caption = '-'
end
object miSaveReport: TMenuItem
Caption = '保存报表(&S)'
OnClick = miSaveReportClick
end
end
object SaveDialog1: TSaveDialog
DefaultExt = '.qrp'
Filter =
'HTML Files(*.html,*.htm)|*.htm;*.html|Text Files(*.txt)|*.txt|CS' +
'V Files(*.csv)|*.csv|Report Files(*.qrp)|*.qrp|All Files(*.*)|*.' +
'*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
Left = 48
Top = 98
end
object QRTextFilter1: TQRTextFilter
Left = 136
Top = 18
end
object QRCSVFilter1: TQRCSVFilter
Separator = ','
Left = 184
Top = 18
end
object QRHTMLFilter1: TQRHTMLFilter
Left = 232
Top = 20
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -