📄 dfm_xszsfx.dfm
字号:
object dfmrxfx: Tdfmrxfx
Left = 98
Top = 122
Width = 693
Height = 461
Caption = '销售日线分析'
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poMainFormCenter
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object StatusBar1: TStatusBar
Left = 0
Top = 415
Width = 685
Height = 19
Panels = <>
SimplePanel = False
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 685
Height = 41
Align = alTop
TabOrder = 1
object Label1: TLabel
Left = 16
Top = 16
Width = 24
Height = 12
Caption = '店号'
end
object Label3: TLabel
Left = 134
Top = 16
Width = 36
Height = 12
Caption = '起始日'
end
object Label4: TLabel
Left = 279
Top = 16
Width = 36
Height = 12
Caption = '终止日'
end
object BitBtn1: TBitBtn
Left = 443
Top = 10
Width = 75
Height = 25
Caption = '查询'
TabOrder = 0
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object DateTimePicker1: TDateTimePicker
Left = 171
Top = 12
Width = 97
Height = 20
CalAlignment = dtaLeft
Date = 36878.4244708796
Time = 36878.4244708796
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 1
end
object DateTimePicker2: TDateTimePicker
Left = 317
Top = 12
Width = 89
Height = 20
CalAlignment = dtaLeft
Date = 36878.4248858333
Time = 36878.4248858333
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
object ComboBox1: TComboBox
Left = 42
Top = 12
Width = 65
Height = 20
ItemHeight = 12
TabOrder = 3
end
object BitBtn2: TBitBtn
Left = 536
Top = 10
Width = 75
Height = 25
Caption = '打印'
TabOrder = 4
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
end
object Panel2: TPanel
Left = 0
Top = 376
Width = 685
Height = 39
Align = alBottom
TabOrder = 2
object Label2: TLabel
Left = 96
Top = 16
Width = 6
Height = 12
end
end
object Panel3: TPanel
Left = 0
Top = 41
Width = 685
Height = 335
Align = alClient
TabOrder = 3
object DecisionGraph1: TDecisionGraph
Left = 1
Top = 1
Width = 683
Height = 333
DecisionSource = DecisionSource1
Title.Text.Strings = (
'销售日线')
Legend.Visible = False
View3D = False
Align = alClient
TabOrder = 0
OnMouseMove = DecisionGraph1MouseMove
object Label5: TLabel
Left = 224
Top = 16
Width = 6
Height = 12
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Srrxfx: TLineSeries
Active = False
Marks.ArrowLength = 8
Marks.Style = smsValue
Marks.Visible = False
SeriesColor = clRed
Pointer.InflateMargins = True
Pointer.Style = psDiamond
Pointer.Visible = True
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
Identifier = '::'
Style = 16
end
object Series3: TLineSeries
Active = False
Marks.ArrowLength = 20
Marks.Style = smsValue
Marks.Visible = False
SeriesColor = clRed
Title = 'Template: 销售日期'
Pointer.InflateMargins = True
Pointer.Style = psDiamond
Pointer.Visible = True
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
Identifier = 'Template: 销售日期'
Style = 61
end
object Series1: TLineSeries
Active = False
ColorEachPoint = True
Marks.ArrowLength = 20
Marks.Style = smsValue
Marks.Visible = False
SeriesColor = clRed
Title = '1D Template: 销售日期'
Pointer.InflateMargins = True
Pointer.Style = psDiamond
Pointer.Visible = True
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
Identifier = '1D Template: 销售日期'
Style = 40
end
end
end
object dstposloca: TDataSource
DataSet = tbltposloca
Left = 8
Top = 49
end
object tbltposloca: TTable
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 = 40
Top = 49
end
object qrytcls: TQuery
DatabaseName = 'atoa'
SQL.Strings = (
'truncate table t_decdate')
Left = 40
Top = 81
end
object dsqrysale: TDataSource
DataSet = qrytcls
Left = 8
Top = 81
end
object dssumsale: TDataSource
DataSet = sumsale
Left = 8
Top = 113
end
object sumsale: TQuery
DatabaseName = 'atoa'
Left = 40
Top = 113
end
object DecisionSource1: TDecisionSource
DecisionCube = DecisionCube1
ControlType = xtCheck
SparseRows = False
SparseCols = False
Left = 593
Top = 58
DimensionCount = 1
SummaryCount = 1
CurrentSummary = 0
SparseRows = False
SparseCols = False
DimensionInfo = (
2
0
1
0
-1)
end
object DecisionCube1: TDecisionCube
DataSet = DecisionQuery1
DimensionMap = <
item
ActiveFlag = diAsNeeded
FieldType = ftDateTime
Fieldname = 'SADATE'
BaseName = 'dbo.t_decdate.SADATE'
Name = '销售日期'
DerivedFrom = -1
DimensionType = dimDimension
BinType = binNone
ValueCount = 37
Active = True
StartValue = 36892
end
item
ActiveFlag = diAsNeeded
FieldType = ftFloat
Fieldname = 'COLUMN2'
BaseName = 'dbo.t_decdate.tsasal'
Name = '销售额（元）'
DerivedFrom = -1
DimensionType = dimSum
BinType = binNone
ValueCount = -1
Active = True
end>
ShowProgressDialog = True
MaxDimensions = 5
MaxSummaries = 10
MaxCells = 0
Left = 561
Top = 58
end
object DecisionQuery1: TDecisionQuery
DatabaseName = 'atoa'
SQL.Strings = (
'SELECT SADATE, SUM( tsasal )'
'FROM dbo.t_decdate'
'GROUP BY SADATE')
Left = 529
Top = 58
end
object DataSource1: TDataSource
DataSet = Query1
Left = 361
Top = 330
end
object Query1: TQuery
DatabaseName = 'atoa'
SQL.Strings = (
'SELECT SADATE, SUM( tsasal )'
'FROM dbo.t_decdate'
'GROUP BY SADATE')
Left = 393
Top = 330
end
object ppReport1: TppReport
AutoStop = False
DataPipeline = ppBDEPipeline1
PrinterSetup.BinName = 'Default'
PrinterSetup.DocumentName = 'Report'
PrinterSetup.Orientation = poLandscape
PrinterSetup.PaperName = 'Letter'
PrinterSetup.PrinterName = 'Default'
PrinterSetup.mmMarginBottom = 6350
PrinterSetup.mmMarginLeft = 6350
PrinterSetup.mmMarginRight = 6350
PrinterSetup.mmMarginTop = 6350
PrinterSetup.mmPaperHeight = 215900
PrinterSetup.mmPaperWidth = 279401
UserName = 'Report'
DeviceType = 'Screen'
Left = 513
Top = 330
Version = '5.0'
mmColumnWidth = 0
object ppHeaderBand1: TppHeaderBand
mmBottomOffset = 0
mmHeight = 26194
mmPrintPosition = 0
end
object ppDetailBand1: TppDetailBand
mmBottomOffset = 0
mmHeight = 148167
mmPrintPosition = 0
end
object ppFooterBand1: TppFooterBand
mmBottomOffset = 0
mmHeight = 7408
mmPrintPosition = 0
end
end
object ppBDEPipeline1: TppBDEPipeline
DataSource = DataSource1
UserName = 'BDEPipeline1'
Left = 481
Top = 330
object ppBDEPipeline1ppField1: TppField
FieldAlias = 'SADATE'
FieldName = 'SADATE'
FieldLength = 0
DataType = dtDateTime
DisplayWidth = 18
Position = 0
end
object ppBDEPipeline1ppField2: TppField
Alignment = taRightJustify
FieldAlias = 'COLUMN2'
FieldName = 'COLUMN2'
FieldLength = 0
DataType = dtDouble
DisplayWidth = 10
Position = 1
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -