📄 unit_ca_consumestru.dfm
字号:
Expanded = False
FieldName = 'CITYFEE'
Title.Caption = '市话费'
Visible = True
end
item
Expanded = False
FieldName = 'CITYRATE'
Title.Caption = '市话费比率'
Visible = True
end
item
Expanded = False
FieldName = 'RAMBLEFEE'
Title.Caption = '漫游费'
Visible = True
end
item
Expanded = False
FieldName = 'RAMBLERATE'
Title.Caption = '漫游费比率'
Visible = True
end
item
Expanded = False
FieldName = 'LONGFEE'
Title.Caption = '长途费'
Visible = True
end
item
Expanded = False
FieldName = 'LONGRATE'
Title.Caption = '长途费比率'
Visible = True
end
item
Expanded = False
FieldName = 'PILONGFEE'
Title.Caption = '省内长途费'
Visible = True
end
item
Expanded = False
FieldName = 'PILONGRATE'
Title.Caption = '省内长途费比率'
Visible = True
end
item
Expanded = False
FieldName = 'POLONGFEE'
Title.Caption = '省际长途费'
Visible = True
end
item
Expanded = False
FieldName = 'POLONGRATE'
Title.Caption = '省际长途费比率'
Visible = True
end
item
Expanded = False
FieldName = 'INTERLONGFEE'
Title.Caption = '国际长途费'
Visible = True
end
item
Expanded = False
FieldName = 'INTERLONGRATE'
Title.Caption = '国际长途费比率'
Visible = True
end
item
Expanded = False
FieldName = 'PIRAMBLEFEE'
Title.Caption = '省内漫游费'
Visible = True
end
item
Expanded = False
FieldName = 'PIRAMBLERATE'
Title.Caption = '省内漫游费比率'
Visible = True
end
item
Expanded = False
FieldName = 'PORAMBLEFEE'
Title.Caption = '省际漫游'
Visible = True
end
item
Expanded = False
FieldName = 'PORAMBLERATE'
Title.Caption = '省际漫游比率'
Visible = True
end
item
Expanded = False
FieldName = 'INTERRAMBLEFEE'
Title.Caption = '国际漫游'
Visible = True
end
item
Expanded = False
FieldName = 'INTERRAMBLERATE'
Title.Caption = '国际漫游比率'
Visible = True
end
item
Expanded = False
FieldName = 'DATAFEE'
Title.Caption = '数据费'
Visible = True
end
item
Expanded = False
FieldName = 'DATARATE'
Title.Caption = '数据费比率'
Visible = True
end
item
Expanded = False
FieldName = 'GPRSFEE'
Title.Caption = 'GPRS费'
Visible = True
end
item
Expanded = False
FieldName = 'GPRSRATE'
Title.Caption = 'GPRS费比率'
Visible = True
end
item
Expanded = False
FieldName = 'INTERFEE'
Title.Caption = '移动梦网'
Visible = True
end
item
Expanded = False
FieldName = 'INTERRATE'
Title.Caption = '移动梦网比率'
Visible = True
end
item
Expanded = False
FieldName = 'OPEARTIONFEE'
Title.Caption = '业务费'
Visible = True
end
item
Expanded = False
FieldName = 'OPEARTIONRATE'
Title.Caption = '业务费比率'
Visible = True
end
item
Expanded = False
FieldName = 'OTHERFEE'
Title.Caption = '其它费'
Visible = True
end
item
Expanded = False
FieldName = 'OTHERRATE'
Title.Caption = '其它费比率'
Visible = True
end
item
Expanded = False
FieldName = 'THRIFTFEE'
Title.Caption = '优惠金额'
Visible = True
end
item
Expanded = False
FieldName = 'THRIFTRATE'
Title.Caption = '优惠比率'
Visible = True
end>
end
end
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 193
Height = 457
Align = alLeft
BevelOuter = bvLowered
TabOrder = 1
object Panel4: TPanel
Left = 1
Top = 415
Width = 191
Height = 41
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object Bevel2: TBevel
Left = 0
Top = 0
Width = 191
Height = 41
Align = alClient
Shape = bsTopLine
Style = bsRaised
end
object FlatButton1: TFlatButton
Left = 47
Top = 8
Width = 75
Height = 25
Caption = '分析[&A]'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333FF3FF3333333333CC30003333333333773777333333333C33
3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
33003377333337F33377333333333C333300333F333337F33377339333333C33
3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
330077F377F337F33377993399333C33330077FF773337F33377399993333C33
33333777733337F333FF333333333C33300033333333373FF7773333333333CC
3000333333333377377733333333333333333333333333333333}
Layout = blGlyphLeft
NumGlyphs = 2
TabOrder = 0
OnClick = FlatButton1Click
end
end
object ScrollBox1: TScrollBox
Left = 1
Top = 1
Width = 191
Height = 414
Align = alClient
BorderStyle = bsNone
TabOrder = 1
object Panel6: TPanel
Left = 0
Top = 0
Width = 191
Height = 414
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object lb_consume: TFlatCheckListBox
Left = 0
Top = 137
Width = 191
Height = 271
Items.Strings = (
'市话费'
'长途费'
'漫游费'
'省内漫游费'
'省内长途费'
'省际漫游费'
'省际长途费'
'国际漫游费'
'国际长途费'
'数据费'
'GPRS费'
'移动梦网'
'业务费'
'其他费用'
'优惠金额')
ScrollBars = True
ColorItemsRect = clBtnFace
Align = alClient
end
object Panel7: TPanel
Left = 0
Top = 0
Width = 191
Height = 137
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Label6: TLabel
Left = 96
Top = 61
Width = 15
Height = 15
Caption = '年'
end
object Label8: TLabel
Left = 169
Top = 61
Width = 15
Height = 15
Caption = '月'
end
object Label10: TLabel
Left = 8
Top = 36
Width = 68
Height = 15
Caption = '出帐日期:'
end
object Label1: TLabel
Left = 8
Top = 12
Width = 68
Height = 15
Caption = '手机号码:'
end
object Label2: TLabel
Left = 12
Top = 61
Width = 15
Height = 15
Caption = '从'
end
object Label3: TLabel
Left = 96
Top = 87
Width = 15
Height = 15
Caption = '年'
end
object Label4: TLabel
Left = 168
Top = 87
Width = 15
Height = 15
Caption = '月'
end
object Label5: TLabel
Left = 12
Top = 87
Width = 15
Height = 15
Caption = '至'
end
object Label7: TLabel
Left = 8
Top = 116
Width = 68
Height = 15
Caption = '消费种类:'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object spi_CalcMonthYearBegin: TFlatSpinEditInteger
Left = 30
Top = 57
Width = 63
Height = 22
ColorFlat = clBtnFace
AutoSize = False
MaxValue = 9999
MinValue = 1900
TabOrder = 0
Value = 2002
OnChange = spi_CalcMonthYearBeginChange
end
object spi_CalcMonthMonBegin: TFlatSpinEditInteger
Left = 113
Top = 57
Width = 54
Height = 22
ColorFlat = clBtnFace
AutoSize = False
MaxValue = 12
MinValue = 1
TabOrder = 1
Value = 8
OnChange = spi_CalcMonthMonBeginChange
end
object st_sid: TStaticText
Left = 80
Top = 12
Width = 92
Height = 19
Caption = '13509328287'
TabOrder = 2
end
object spi_CalcMonthYearEnd: TFlatSpinEditInteger
Left = 30
Top = 83
Width = 63
Height = 22
ColorFlat = clBtnFace
AutoSize = False
MaxValue = 9999
MinValue = 1900
TabOrder = 3
Value = 2002
end
object spi_CalcMonthMonEnd: TFlatSpinEditInteger
Left = 113
Top = 83
Width = 54
Height = 22
ColorFlat = clBtnFace
AutoSize = False
MaxValue = 12
MinValue = 1
TabOrder = 4
Value = 8
end
object btnGR_FunFull: TFlatButton
Left = 80
Top = 114
Width = 49
Height = 22
Caption = '全选'
TabOrder = 5
OnClick = btnGR_FunFullClick
end
object BtnGR_FunNone: TFlatButton
Left = 134
Top = 114
Width = 49
Height = 22
Caption = '非选'
TabOrder = 6
OnClick = BtnGR_FunNoneClick
end
end
end
end
end
object Query_analyze: TQuery
DatabaseName = 'db_vipdl'
SQL.Strings = (
'select * from t_V_CA_consumestru')
Left = 446
Top = 166
end
object Query_tmp: TQuery
DatabaseName = 'db_vipdl'
Left = 518
Top = 142
end
object ds_analyze: TDataSource
DataSet = Query_analyze
Left = 578
Top = 184
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -