📄 ydhsrltj.dfm
字号:
object Fhsrltj: TFhsrltj
Left = 70
Top = 85
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = '容量户数统计'
ClientHeight = 431
ClientWidth = 628
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 4
Top = 1
Width = 623
Height = 109
TabOrder = 1
object SpeedButton1: TSpeedButton
Left = 529
Top = 11
Width = 84
Height = 44
Caption = '统计'
Flat = True
Glyph.Data = {
F6030000424DF603000000000000360000002800000013000000100000000100
180000000000C0030000C40E0000C40E00000000000000000000FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF0000
0000000000000000000000000000000000000000000000000000000000000000
0000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000
000000000000808080000000000000000000FFFFFF000000000000FFFFFFFFFF
FFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF000000C0C0C0000000FF
0000800000000000FFFFFFFFFFFF000000FF00FFFF00FF800080FFFFFFFFFFFF
FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF0000008080800000008080808000
0000000000FFFF00FFFF008080808080808080800080FFFFFFFFFFFFFFFFFF00
0000FFFFFFFFFFFFFFFFFFFFFFFF000000808080000000808080800000000000
00FFFF00FFFF008080808080808080800080FFFFFFFFFFFFFFFFFF000000FFFF
FFFFFFFFFFFFFFFFFFFF00000080808000000080808080000000000000FFFF00
FFFF008080808080808080800080FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
FFFFFFFFFFFF000000C0C0C0000000FF0000800000000000FFFFFFFFFFFF0080
80FF00FFFF00FF800080FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFF
FFFF000000C0C0C0C0C0C0FF0000FF0000000000FFFFFFFFFFFF008080FF00FF
FF00FF800080FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF0000
00C0C0C0C0C0C0000000FFFFFF000000FFFFFFFFFFFF008080FF00FFFF00FF80
0080FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF000000808080
808080000000FFFFFF00000000FFFF00FFFF008080FFFFFFFF00FFFF00FFFFFF
FFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000080808000
0000FFFFFF00000000FFFF00FFFF008080FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFF
FFFFFFFF00000000FFFFC0C0C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00
0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000}
Layout = blGlyphTop
OnClick = SpeedButton1Click
end
object SpeedButton3: TSpeedButton
Left = 529
Top = 56
Width = 84
Height = 44
Caption = '退出'
Flat = True
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF0FFFFFF
FFFFFFFF00FFFFFFFFFFFFF030FFFFFFFFFFFF0330FFFFFFFFFF003330000000
0FFFF03330FF0FFFFFFFF03300FF0FFFF4FFF03330FF0FFF44FFF03330FF0FF4
4444F03330FF0F444444F03330FF0FF44444F0330FFF0FFF44FFF030FFFF0FFF
F4FFF00FFFFF0FFFFFFFF00000000FFFFFFF}
Layout = blGlyphTop
OnClick = SpeedButton3Click
end
object GroupBox1: TGroupBox
Left = 296
Top = 8
Width = 217
Height = 92
Caption = '变台分类统计'
TabOrder = 0
object Label5: TLabel
Left = 16
Top = 22
Width = 65
Height = 13
Caption = '专用变压器'
end
object Label6: TLabel
Left = 16
Top = 46
Width = 65
Height = 13
Caption = '公用变压器'
end
object Label7: TLabel
Left = 16
Top = 70
Width = 52
Height = 13
Caption = '合计变台'
end
object Label8: TLabel
Left = 112
Top = 22
Width = 7
Height = 13
end
object Label9: TLabel
Left = 112
Top = 46
Width = 7
Height = 13
end
object Label10: TLabel
Left = 112
Top = 70
Width = 7
Height = 13
end
end
object ComboBox1: TComboBox
Left = 110
Top = 29
Width = 167
Height = 21
Enabled = False
ItemHeight = 13
TabOrder = 1
end
object RadioButton1: TRadioButton
Left = 16
Top = 13
Width = 82
Height = 17
Caption = '全部用户'
Checked = True
TabOrder = 2
TabStop = True
OnClick = RadioButton1Click
end
object RadioButton2: TRadioButton
Left = 16
Top = 34
Width = 82
Height = 17
Caption = '某一馈路'
TabOrder = 3
OnClick = RadioButton2Click
end
object RadioButton3: TRadioButton
Left = 16
Top = 57
Width = 84
Height = 17
Caption = '某一片区'
TabOrder = 4
OnClick = RadioButton3Click
end
object RadioButton4: TRadioButton
Left = 16
Top = 80
Width = 91
Height = 17
Caption = '某一计量箱'
TabOrder = 5
OnClick = RadioButton4Click
end
object ComboBox2: TComboBox
Left = 110
Top = 53
Width = 167
Height = 21
Enabled = False
ItemHeight = 13
TabOrder = 6
end
object ComboBox3: TComboBox
Left = 110
Top = 76
Width = 167
Height = 21
Enabled = False
ItemHeight = 13
TabOrder = 7
end
end
object PageControl1: TPageControl
Left = -2
Top = 111
Width = 633
Height = 322
ActivePage = TabSheet2
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '用户分类统计'
object Label65: TLabel
Left = 282
Top = 247
Width = 52
Height = 13
Caption = '水平旋转'
end
object Label66: TLabel
Left = 506
Top = 247
Width = 52
Height = 13
Caption = '垂直旋转'
end
object Label1: TLabel
Left = 396
Top = 247
Width = 26
Height = 13
Caption = '三维'
end
object SpeedButton2: TSpeedButton
Left = 84
Top = 256
Width = 71
Height = 26
Caption = '打印'
Flat = True
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
0FFFF0888888888080FF000000000000080F0888888FFF88000F088888877788
080F00000000000008800888888888808080F000000000080800FF0FFFFFFFF0
8080FFF0F00000F0000FFFF0FFFFFFFF0FFFFFFF0F00000F0FFFFFFF0FFFFFFF
F0FFFFFFF000000000FFFFFFFFFFFFFFFFFF}
OnClick = SpeedButton2Click
end
object StringGrid1: TStringGrid
Left = 0
Top = 6
Width = 261
Height = 230
ColCount = 4
DefaultRowHeight = 22
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing]
TabOrder = 0
ColWidths = (
64
68
62
60)
end
object ScrollBar1: TScrollBar
Left = 396
Top = 266
Width = 105
Height = 16
Min = 1
PageSize = 0
Position = 100
TabOrder = 1
OnChange = ScrollBar1Change
end
object ScrollBar2: TScrollBar
Left = 284
Top = 266
Width = 105
Height = 16
Max = 40
Min = -10
PageSize = 0
TabOrder = 2
OnChange = ScrollBar2Change
end
object ScrollBar3: TScrollBar
Left = 508
Top = 266
Width = 105
Height = 16
Max = 40
Min = -10
PageSize = 0
Position = -10
TabOrder = 3
OnChange = ScrollBar3Change
end
object DBChart1: TDBChart
Left = 264
Top = 8
Width = 361
Height = 229
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -19
Title.Font.Name = '宋体'
Title.Font.Style = [fsBold]
Title.Text.Strings = (
'户数容量统计图')
LeftAxis.LabelsSeparation = 0
LeftAxis.MinorTickCount = 7
Legend.Alignment = laBottom
BevelOuter = bvLowered
Color = clWhite
TabOrder = 4
object Series1: TBarSeries
Marks.ArrowLength = 20
Marks.Style = smsValue
Marks.Visible = True
DataSource = Query1
SeriesColor = clRed
XLabelsSource = ' 户别'
BarWidthPercent = 40
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = ' 户数'
end
end
end
object TabSheet2: TTabSheet
Caption = '电表分类统计'
ImageIndex = 1
object Label2: TLabel
Left = 266
Top = 242
Width = 52
Height = 13
Caption = '水平旋转'
end
object Label3: TLabel
Left = 490
Top = 242
Width = 52
Height = 13
Caption = '垂直旋转'
end
object Label4: TLabel
Left = 380
Top = 242
Width = 26
Height = 13
Caption = '三维'
end
object SpeedButton4: TSpeedButton
Left = 84
Top = 246
Width = 71
Height = 26
Caption = '打印'
Flat = True
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
0FFFF0888888888080FF000000000000080F0888888FFF88000F088888877788
080F00000000000008800888888888808080F000000000080800FF0FFFFFFFF0
8080FFF0F00000F0000FFFF0FFFFFFFF0FFFFFFF0F00000F0FFFFFFF0FFFFFFF
F0FFFFFFF000000000FFFFFFFFFFFFFFFFFF}
OnClick = SpeedButton2Click
end
object StringGrid2: TStringGrid
Left = 0
Top = 6
Width = 222
Height = 224
ColCount = 3
DefaultRowHeight = 22
TabOrder = 0
ColWidths = (
64
72
71)
end
object DBChart2: TDBChart
Left = 227
Top = 6
Width = 396
Height = 225
AllowPanning = pmNone
AllowZoom = False
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
BackWall.Pen.Visible = False
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -19
Title.Font.Name = '宋体'
Title.Font.Style = [fsBold]
Title.Text.Strings = (
'电表类别统计')
AxisVisible = False
Chart3DPercent = 30
ClipPoints = False
Frame.Visible = False
View3DOptions.Elevation = 315
View3DOptions.Orthogonal = False
View3DOptions.Perspective = 0
View3DOptions.Rotation = 360
View3DOptions.Zoom = 102
View3DWalls = False
BevelOuter = bvLowered
TabOrder = 1
object Series4: TPieSeries
Marks.ArrowLength = 8
Marks.Style = smsLabelPercent
Marks.Visible = True
DataSource = Query2
SeriesColor = clRed
XLabelsSource = '表别'
OtherSlice.Text = 'Other'
PieValues.DateTime = False
PieValues.Name = 'Pie'
PieValues.Multiplier = 1
PieValues.Order = loNone
PieValues.ValueSource = '表卡户数'
end
end
object ScrollBar4: TScrollBar
Left = 380
Top = 259
Width = 105
Height = 16
Min = 1
PageSize = 0
Position = 100
TabOrder = 2
OnChange = ScrollBar4Change
end
object ScrollBar5: TScrollBar
Left = 268
Top = 259
Width = 105
Height = 16
Max = 40
Min = -10
PageSize = 0
TabOrder = 3
OnChange = ScrollBar5Change
end
object ScrollBar6: TScrollBar
Left = 492
Top = 259
Width = 105
Height = 16
Max = 40
Min = -10
PageSize = 0
Position = -10
TabOrder = 4
OnChange = ScrollBar6Change
end
end
end
object Query1: TQuery
DatabaseName = 'YDDB'
SQL.Strings = (
'select '#39' 户别'#39'=YDFL,'#39' 户数'#39'=COUNT(*),'#39' 容量'#39'=SUM(syrl),'#39' 负' +
'荷'#39'=SUM(FH) FROM YHDA0000 GROUP BY YDFL')
Left = 274
Top = 111
end
object Query2: TQuery
DatabaseName = 'YDDB'
SQL.Strings = (
'select '#39'表别'#39'=DBLB,'#39'表卡户数'#39'=COUNT(*) FROM DBDA0000 GROUP BY DB' +
'LB')
Left = 306
Top = 111
end
object Query3: TQuery
DatabaseName = 'YDDB'
SQL.Strings = (
'select '#39'表别'#39'=DBLB,'#39'其中暂停'#39'=COUNT(*) FROM DBDA0000 WHERE YXZT=' +
#39'停运'#39' GROUP BY DBLB')
Left = 348
Top = 113
end
object Query4: TQuery
DatabaseName = 'YDDB'
SQL.Strings = (
'select kplb,'#39'btsl'#39'=count(*) from yhda0000 where kplb<>'#39'无'#39' or kp' +
'lb<>'#39' '#39' group by kplb ')
Left = 392
Top = 112
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -