📄 unit_ca_consumestru.dfm
字号:
object FRM_CA_consumestru: TFRM_CA_consumestru
Left = 74
Top = 47
Width = 670
Height = 491
ActiveControl = cb_marks
Caption = '大客户消费结构分析'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poScreenCenter
Visible = True
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 15
object Panel2: TPanel
Left = 193
Top = 0
Width = 469
Height = 457
Align = alClient
BevelOuter = bvLowered
TabOrder = 0
object Panel3: TPanel
Left = 1
Top = 415
Width = 467
Height = 41
Align = alBottom
BevelOuter = bvNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
object Bevel1: TBevel
Left = 0
Top = 0
Width = 467
Height = 41
Align = alClient
Shape = bsTopLine
Style = bsRaised
end
object FlatButton2: TFlatButton
Left = 229
Top = 10
Width = 75
Height = 25
Caption = '打印[&P]'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888F8800000000000888808888888880808800000000000008080888888BBB88
0008088888877788080800000000000008800888888888808080800000000008
0800880FFFFFFFF080808880F00000F000088880FFFFFFFF088888880F00000F
088888880FFFFFFFF08888888000000000888888888888888888}
Layout = blGlyphLeft
TabOrder = 0
OnClick = FlatButton2Click
Anchors = [akRight, akBottom]
end
object FlatButton3: TFlatButton
Left = 307
Top = 9
Width = 75
Height = 25
Caption = '导出[&O]'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
333333333333337FF3333333333333903333333333333377FF33333333333399
03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
3333777777333333333333333333333333333333333333333333}
Layout = blGlyphLeft
NumGlyphs = 2
TabOrder = 1
Anchors = [akRight, akBottom]
end
object FlatButton4: TFlatButton
Left = 384
Top = 9
Width = 75
Height = 25
Caption = '关闭[&E]'
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
Layout = blGlyphLeft
NumGlyphs = 2
TabOrder = 2
OnClick = FlatButton4Click
Anchors = [akRight, akBottom]
end
end
object PageControl1: TPageControl
Left = 1
Top = 1
Width = 467
Height = 414
ActivePage = TabSheet1
Align = alClient
Style = tsFlatButtons
TabOrder = 1
object TabSheet1: TTabSheet
Caption = '图表分析'
object Panel5: TPanel
Left = 0
Top = 0
Width = 459
Height = 28
Align = alTop
BevelOuter = bvLowered
TabOrder = 0
object rb_QX: TFlatRadioButton
Left = 16
Top = 5
Width = 65
Height = 17
Caption = '曲线图'
Checked = True
TabOrder = 0
TabStop = True
OnClick = rb_QXClick
end
object rb_ZZ: TFlatRadioButton
Left = 128
Top = 5
Width = 65
Height = 17
Caption = '柱状图'
TabOrder = 1
OnClick = rb_QXClick
end
object cb_3d: TFlatCheckBox
Left = 384
Top = 5
Width = 57
Height = 17
Caption = '三维'
TabOrder = 2
TabStop = True
OnClick = cb_3dClick
end
object cb_marks: TFlatCheckBox
Left = 296
Top = 5
Width = 81
Height = 17
Caption = '显示列值'
Checked = True
TabOrder = 3
TabStop = True
OnClick = cb_marksClick
end
end
object DBChart1: TDBChart
Left = 0
Top = 28
Width = 459
Height = 353
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -16
Title.Font.Name = 'Arial'
Title.Font.Style = []
Title.Text.Strings = (
'大客户消费结构图')
LeftAxis.AxisValuesFormat = '##0.##%'
Legend.TextStyle = ltsRightValue
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Memo1: TMemo
Left = 72
Top = 192
Width = 329
Height = 73
Lines.Strings = (
'Memo1')
TabOrder = 0
Visible = False
end
object lb_field: TListBox
Left = 112
Top = 64
Width = 177
Height = 121
ItemHeight = 15
Items.Strings = (
'CityRate'
'LongRate'
'RambleRate'
'PIRambleRate'
'PILongRate'
'PORambleRate'
'POLongRate'
'InterRambleRate'
'InterLongRate'
'DataRate'
'GPRSRate'
'InterRate'
'OpeartionRate'
'OtherRate'
'ThriftRate')
TabOrder = 1
Visible = False
end
object Series1: TLineSeries
Marks.ArrowLength = 8
Marks.Style = smsValue
Marks.Visible = True
DataSource = Query_analyze
SeriesColor = clRed
Title = '市话费'
ValueFormat = '#,###,##0.##'
XLabelsSource = 'CALCMONTH'
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'CITYRATE'
end
object Series2: TLineSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clGreen
Title = '长途费'
ValueFormat = '##0.##%'
XLabelsSource = 'CALCMONTH'
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'LONGRATE'
end
object Series29: TLineSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clGreen
Title = '漫游费'
ValueFormat = '##0.##%'
XLabelsSource = 'CALCMONTH'
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'LONGRATE'
end
object Series3: TLineSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clYellow
Title = '省内长途费'
ValueFormat = '##0.##%'
XLabelsSource = 'CALCMONTH'
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'PILONGRATE'
end
object Series4: TLineSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clBlue
Title = '省内漫游费'
ValueFormat = '##0.##%'
XLabelsSource = 'CALCMONTH'
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'PIRAMBLERATE'
end
object Series14: TLineSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clSilver
Title = '省际长途费'
ValueFormat = '##0.##%'
XLabelsSource = 'CALCMONTH'
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'POLONGRATE'
end
object Series6: TLineSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clGray
Title = '省际漫游费'
ValueFormat = '##0.##%'
XLabelsSource = 'CALCMONTH'
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'PORAMBLERATE'
end
object Series5: TLineSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clWhite
Title = '国际长途费'
ValueFormat = '##0.##%'
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'INTERLONGRATE'
end
object Series7: TLineSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clFuchsia
Title = '国际漫游费'
ValueFormat = '##0.##%'
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'INTERRAMBLERATE'
end
object Series8: TLineSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clTeal
Title = '数据费'
ValueFormat = '##0.##%'
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -