📄 unit_ca_consumeaction.dfm
字号:
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'CITYRATE'
end
object Series16: TBarSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clGreen
Title = '长途费'
XLabelsSource = 'CALCMONTH'
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'LONGRATE'
end
object Series30: TBarSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clGreen
Title = '漫游费'
XLabelsSource = 'CALCMONTH'
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'LONGRATE'
end
object Series17: TBarSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clYellow
Title = '省内长途费'
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'PILONGRATE'
end
object Series18: TBarSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clBlue
Title = '省内漫游费'
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'PIRAMBLERATE'
end
object Series19: TBarSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clSilver
Title = '省际长途费'
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'POLONGRATE'
end
object Series20: TBarSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clGray
Title = '省际漫游费'
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'PORAMBLERATE'
end
object Series21: TBarSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clWhite
Title = '国际长途费'
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'INTERLONGRATE'
end
object Series22: TBarSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clFuchsia
Title = '国际漫游费'
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'INTERRAMBLERATE'
end
object Series23: TBarSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clTeal
Title = '数据费'
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'DATARATE'
end
object Series24: TBarSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clNavy
Title = 'GPRS费'
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'GPRSRATE'
end
object Series26: TBarSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clLime
Title = '业务费'
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'OPEARTIONRATE'
end
object Series27: TBarSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clOlive
Title = '其他费用'
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'OTHERRATE'
end
object Series28: TBarSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clPurple
Title = '优惠金额'
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'FAVOURRATE'
end
object Series25: TBarSeries
Active = False
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clMaroon
Title = '移动梦网'
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = 'CALCMONTH_D'
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'INTERRATE'
end
end
end
object TabSheet2: TTabSheet
Caption = '文字分析'
ImageIndex = 1
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 459
Height = 391
Align = alClient
DataSource = ds_analyze
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'CALCMONTH'
Title.Caption = '计费月'
Visible = True
end
item
Expanded = False
FieldName = 'TOTAL'
Title.Caption = '总缴费金额'
Visible = True
end
item
Expanded = False
FieldName = 'TOTALFEE'
Title.Caption = '总消费金额'
Visible = True
end
item
Expanded = False
FieldName = 'COPEFEE'
Title.Caption = '应缴话费'
Visible = True
end
item
Expanded = False
FieldName = 'BASICFEE'
Title.Caption = '基本费'
Visible = True
end
item
Expanded = False
FieldName = 'CITYFEE'
Title.Caption = '市话费'
Visible = True
end
item
Expanded = False
FieldName = 'LONGFEE'
Title.Caption = '长途费'
Visible = True
end
item
Expanded = False
FieldName = 'PIRAMBLEFEE'
Title.Caption = '省内漫游费'
Visible = True
end
item
Expanded = False
FieldName = 'PILONGFEE'
Title.Caption = '省内长途费'
Visible = True
end
item
Expanded = False
FieldName = 'PORAMBLEFEE'
Title.Caption = '省内漫游费'
Visible = True
end
item
Expanded = False
FieldName = 'POLONGFEE'
Title.Caption = '省际长途费'
Visible = True
end
item
Expanded = False
FieldName = 'INTERRAMBLEFEE'
Title.Caption = '国际漫游'
Visible = True
end
item
Expanded = False
FieldName = 'INTERLONGFEE'
Title.Caption = '国际长途费'
Visible = True
end
item
Expanded = False
FieldName = 'DATAFEE'
Title.Caption = '数据费'
Visible = True
end
item
Expanded = False
FieldName = 'GPRSFEE'
Title.Caption = 'GPRS费'
Visible = True
end
item
Expanded = False
FieldName = 'INTERFEE'
Title.Caption = '移动梦网'
Visible = True
end
item
Expanded = False
FieldName = 'OPEARTIONFEE'
Title.Caption = '业务费'
Visible = True
end
item
Expanded = False
FieldName = 'OTHERFEE'
Title.Caption = '其它费'
Visible = True
end
item
Expanded = False
FieldName = 'THRIFTFEE'
Title.Caption = '优惠金额'
Visible = True
end>
end
end
end
end
object Query_analyze: TQuery
DatabaseName = 'db_vipdl'
SQL.Strings = (
'select * from t_V_CA_consumeaction'
'order by calcmonth')
Left = 398
Top = 134
end
object Query_tmp: TQuery
DatabaseName = 'db_vipdl'
Left = 518
Top = 142
end
object ds_analyze: TDataSource
DataSet = Query_analyze
Left = 562
Top = 112
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -