📄 dfm_xsgy.dfm
字号:
Top = 10
Width = 12
Height = 12
Caption = '至'
end
object Label7: TLabel
Left = 12
Top = 10
Width = 24
Height = 12
Caption = '店号'
end
object DateTimePicker1: TDateTimePicker
Left = 140
Top = 6
Width = 121
Height = 20
CalAlignment = dtaLeft
Date = 36878.6265663657
Time = 36878.6265663657
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 0
end
object DateTimePicker2: TDateTimePicker
Left = 291
Top = 6
Width = 121
Height = 20
CalAlignment = dtaLeft
Date = 36878.6267171528
Time = 36878.6267171528
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 1
end
object BitBtn1: TBitBtn
Left = 424
Top = 4
Width = 75
Height = 25
Caption = '汇总'
TabOrder = 2
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333FFFFFFFFFFF33330000000000
03333377777777777F33333003333330033333377FF333377F33333300333333
0333333377FF33337F3333333003333303333333377FF3337333333333003333
333333333377FF3333333333333003333333333333377FF33333333333330033
3333333333337733333333333330033333333333333773333333333333003333
33333333337733333F3333333003333303333333377333337F33333300333333
03333333773333337F33333003333330033333377FFFFFF77F33330000000000
0333337777777777733333333333333333333333333333333333}
NumGlyphs = 2
end
object ComboBox1: TComboBox
Left = 43
Top = 6
Width = 65
Height = 20
ItemHeight = 12
TabOrder = 3
OnExit = ComboBox1Exit
end
end
object dsqryshop: TDataSource
DataSet = qryshop
Left = 360
Top = 56
end
object qryshop: TQuery
Active = True
DatabaseName = 'atoa'
SQL.Strings = (
'SELECT SASTOR, SUM( tsaqty ) ttsaqty, SUM( tsasal ) ttsasal'
'FROM dbo.V_shop Dbo_v_shop'
'where sadate>=:vsdate and sadate<=:vedate'
'GROUP BY SASTOR')
Left = 392
Top = 56
ParamData = <
item
DataType = ftDate
Name = 'vsdate'
ParamType = ptInput
end
item
DataType = ftDate
Name = 'vedate'
ParamType = ptInput
end>
end
object dsqrystyle: TDataSource
DataSet = qrystyle
Left = 436
Top = 55
end
object qrystyle: TQuery
DatabaseName = 'atoa'
SQL.Strings = (
'SELECT SASTOR, SASTYL, SUM( tsaqty ) ttsaqty, SUM( tsasal ) ttsa' +
'sal'
'FROM dbo.V_STYLE Dbo_v_style'
'GROUP BY SASTOR,SASTYL')
Left = 468
Top = 55
end
object sumshop: TQuery
DatabaseName = 'atoa'
Left = 396
Top = 95
end
object sumstyle: TQuery
DatabaseName = 'atoa'
Left = 468
Top = 95
end
object dssumshop: TDataSource
DataSet = sumshop
Left = 364
Top = 95
end
object dssumstyle: TDataSource
DataSet = sumstyle
Left = 436
Top = 95
end
object tbltposloca: TTable
Active = True
DatabaseName = 'atoa'
FieldDefs = <
item
Name = 'lcstor'
Attributes = [faRequired]
DataType = ftString
Size = 5
end
item
Name = 'lcname'
Attributes = [faRequired]
DataType = ftString
Size = 15
end
item
Name = 'lcad1'
Attributes = [faRequired]
DataType = ftString
Size = 30
end
item
Name = 'lcad2'
DataType = ftString
Size = 30
end
item
Name = 'lcad3'
DataType = ftString
Size = 30
end
item
Name = 'lctel'
Attributes = [faRequired]
DataType = ftString
Size = 20
end
item
Name = 'lcfax'
DataType = ftString
Size = 20
end
item
Name = 'lctype'
Attributes = [faRequired]
DataType = ftString
Size = 2
end>
IndexDefs = <
item
Name = 'ilcstor'
Fields = 'lcstor'
Options = [ixUnique]
end>
IndexFieldNames = 'lcstor'
StoreDefs = True
TableName = 'dbo.posloca'
Left = 320
Top = 57
end
object dstposloca: TDataSource
DataSet = tbltposloca
Left = 288
Top = 57
end
object dssku: TDataSource
DataSet = qrysku
Left = 364
Top = 127
end
object qrysku: TQuery
DatabaseName = 'atoa'
SQL.Strings = (
'SELECT SASTYL, SUM(SAQTY) AS ttsaqty, SUM(SASAL) AS ttsasal, SAS' +
'KU, SACOLR, SASIZE '
'FROM t_possale'
'GROUP BY SASKU, SASTYL, SASKU, SACOLR, SASIZE')
Left = 396
Top = 127
end
object dssumsku: TDataSource
DataSet = sumsku
Left = 436
Top = 127
end
object sumsku: TQuery
DatabaseName = 'atoa'
Left = 468
Top = 127
end
object dscolr: TDataSource
DataSet = qrycolr
Left = 364
Top = 159
end
object qrycolr: TQuery
DatabaseName = 'atoa'
SQL.Strings = (
'SELECT SASTYL,sacolr, SUM(SAQTY) AS ttsaqty, SUM(SASAL) AS ttsas' +
'al'
'FROM t_possale'
'GROUP BY SASTYL, SACOLR')
Left = 396
Top = 159
end
object dssumcolr: TDataSource
DataSet = sumcolr
Left = 436
Top = 159
end
object sumcolr: TQuery
DatabaseName = 'atoa'
Left = 468
Top = 159
end
object ppBDEPipeline1: TppBDEPipeline
DataSource = dsqrystyle
UserName = 'BDEPipeline1'
Left = 44
Top = 95
end
object ppReport1: TppReport
AutoStop = False
DataPipeline = ppBDEPipeline1
PrinterSetup.BinName = 'Default'
PrinterSetup.DocumentName = 'Report'
PrinterSetup.PaperName = 'Letter'
PrinterSetup.PrinterName = 'Default'
PrinterSetup.mmMarginBottom = 6350
PrinterSetup.mmMarginLeft = 6350
PrinterSetup.mmMarginRight = 6350
PrinterSetup.mmMarginTop = 6350
PrinterSetup.mmPaperHeight = 279401
PrinterSetup.mmPaperWidth = 215900
UserName = 'Report'
DeviceType = 'Screen'
Left = 84
Top = 95
Version = '5.0'
mmColumnWidth = 0
object ppHeaderBand1: TppHeaderBand
mmBottomOffset = 0
mmHeight = 23548
mmPrintPosition = 0
object ppLabel1: TppLabel
UserName = 'Label1'
Caption = '销售概要报表'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Name = '宋体'
Font.Size = 14
Font.Style = [fsBold]
Transparent = True
mmHeight = 5027
mmLeft = 90752
mmTop = 2381
mmWidth = 31750
BandType = 0
end
object ppLabel2: TppLabel
UserName = 'Label2'
Caption = '款号'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Name = '宋体'
Font.Size = 10
Font.Style = [fsBold]
Transparent = True
mmHeight = 3440
mmLeft = 3969
mmTop = 16933
mmWidth = 7408
BandType = 0
end
object ppLabel3: TppLabel
UserName = 'Label3'
Caption = '单价'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Name = '宋体'
Font.Size = 10
Font.Style = [fsBold]
Transparent = True
mmHeight = 3440
mmLeft = 28046
mmTop = 16933
mmWidth = 7408
BandType = 0
end
object ppLabel4: TppLabel
UserName = 'Label4'
Caption = '数量'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Name = '宋体'
Font.Size = 10
Font.Style = [fsBold]
Transparent = True
mmHeight = 3440
mmLeft = 57679
mmTop = 16933
mmWidth = 7408
BandType = 0
end
object ppLabel5: TppLabel
UserName = 'Label5'
Caption = '金额'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Name = '宋体'
Font.Size = 10
Font.Style = [fsBold]
Transparent = True
mmHeight = 3440
mmLeft = 82286
mmTop = 16933
mmWidth = 7408
BandType = 0
end
object ppLabel6: TppLabel
UserName = 'Label6'
Caption = '店号'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Name = '宋体'
Font.Size = 10
Font.Style = [fsBold]
Transparent = True
mmHeight = 3440
mmLeft = 10583
mmTop = 10054
mmWidth = 7408
BandType = 0
end
object ppVariable2: TppVariable
UserName = 'Variable2'
CalcOrder = 0
DataType = dtDate
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Name = '宋体'
Font.Size = 11
Font.Style = []
OnCalc = ppVariable2Calc
Transparent = True
mmHeight = 3969
mmLeft = 45508
mmTop = 9525
mmWidth = 19050
BandType = 0
end
object ppLabel23: TppLabel
UserName = 'Label23'
Caption = '至'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Name = '宋体'
Font.Size = 11
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -