📄 unit10.dfm
字号:
484.187500000000000000)
Pen.Style = psDot
Shape = qrsHorLine
VertAdjust = 0
end
object QRLabel5: TQRLabel
Left = 92
Top = 56
Width = 25
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.395833333333340000
243.416666666666700000
148.166666666666700000
66.145833333333340000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #25968#37327
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object QRLabel6: TQRLabel
Left = 138
Top = 56
Width = 25
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.395833333333340000
365.125000000000000000
148.166666666666700000
66.145833333333340000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #23567#35745
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object QRShape3: TQRShape
Left = 4
Top = 67
Width = 183
Height = 5
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
13.229166666666670000
10.583333333333330000
177.270833333333300000
484.187500000000000000)
Shape = qrsHorLine
VertAdjust = 0
end
object QRSysData1: TQRSysData
Left = 6
Top = 36
Width = 185
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.395833333333340000
15.875000000000000000
95.250000000000000000
489.479166666666700000)
Alignment = taCenter
AlignToBand = False
AutoSize = False
Color = clWhite
Data = qrsDateTime
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Text = #25171#21360#26085#26399':'
Transparent = False
FontSize = 9
end
end
object SummaryBand1: TQRBand
Left = 12
Top = 85
Width = 197
Height = 84
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
TransparentBand = True
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
222.250000000000000000
521.229166666666800000)
PreCaluculateBandHeight = False
KeepOnOnePage = False
BandType = rbSummary
object QRShape7: TQRShape
Left = 4
Top = -2
Width = 183
Height = 5
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDot
Size.Values = (
13.229166666666670000
10.583333333333330000
-5.291666666666667000
484.187500000000000000)
Shape = qrsHorLine
VertAdjust = 0
end
object QRLabel1: TQRLabel
Left = 8
Top = 6
Width = 79
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.395833333333340000
21.166666666666670000
15.875000000000000000
209.020833333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #32479#35745#26085#26399#21306#38388':'
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object QRLabel4: TQRLabel
Left = 8
Top = 22
Width = 49
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.395833333333340000
21.166666666666670000
58.208333333333340000
129.645833333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel4'
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object QRLabel7: TQRLabel
Left = 8
Top = 38
Width = 49
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.395833333333340000
21.166666666666670000
100.541666666666700000
129.645833333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel7'
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object QRLabel8: TQRLabel
Left = 8
Top = 70
Width = 181
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.395833333333340000
21.166666666666670000
185.208333333333300000
478.895833333333400000)
Alignment = taCenter
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'QRLabel7'
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object QRExpr1: TQRExpr
Left = 8
Top = 54
Width = 205
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.395833333333340000
21.166666666666670000
142.875000000000000000
542.395833333333400000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = #39#21512#12288#35745':'#39'+SUM(ADOQuery2.SellPrice)'
FontSize = 9
end
end
end
end
end
end
object ADOQuery1: TADOQuery
Connection = Fr_Pass.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'Select GoodsName,Min(BarCode) as BarCode,Sum(SellScalar) as Sell' +
'Scalar,'
'Sum(PurchasePrice) as PurchasePrice,Sum(Subtotal) as SellPrice,'
'Min(Gift) as Gift,Min(UntreadFlag) as UntreadFlag,Min(Unit) as U' +
'nit '
'from Sell_Minor Group BY GoodsName,Gift Order BY Min(BarCode)')
Left = 11
Top = 11
end
object ADOQuery2: TADOQuery
Connection = Fr_Pass.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'Select * from MXSP')
Left = 11
Top = 43
end
object DataSource1: TDataSource
DataSet = ADOQuery2
Left = 43
Top = 11
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -