📄 ydywsl.dfm
字号:
OnClick = SpeedButton4Click
end
object SpeedButton5: TSpeedButton
Left = 263
Top = 6
Width = 63
Height = 26
Caption = '查找'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
04000000000078000000130B0000130B00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888800000888880000080F000888880F00080F000888880F0008000000080000
000800F000000F00000800F000800F00000800F000800F000008800000000000
0088880F00080F000888880000080000088888800088800088888880F08880F0
888888800088800088888888888888888888}
ParentFont = False
OnClick = SpeedButton5Click
end
object SpeedButton6: TSpeedButton
Left = 326
Top = 6
Width = 63
Height = 26
Caption = '新增'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
04000000000078000000130B0000130B00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888888800000000000888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFF
F0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFF
F0888880FFFFFFFFF0888880FFFFFF0000888880FFFFFF0F08888880FFFFFF00
888888800000000888888888888888888888}
ParentFont = False
OnClick = SpeedButton6Click
end
object SpeedButton7: TSpeedButton
Left = 390
Top = 6
Width = 63
Height = 26
Caption = '修改'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F0000000130B0000130B00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFC0C0FFFFFFFFFFFFFFFFFFFFC0C0FFFFFFFFFFFFFFFFFFFFC0C0FFFF
F0F0F0F0FFFFFFFFC0C0FFFFFFFFFFF00FFFFFFFC0C0FFFFFFFFFFF000FFFFFF
C0C0FFF000000000B70FFFFFC0C0FFF0FFFFFFF0B80FFFFFC0C0FFF0F00F00F0
0B70FFFFC0C0FFF0FFFFFFFF0B80FFFFC0C0FFF0CCCCCCCCC0B70FFFC0C0FFFF
CFFFFFFFF0B00FFFC0C0FFFFCF00F00F000110FFC0C0FFFFCFFFFFFFFF000FFF
C0C0FFFFCCCCCCCCCCCCFFFFC0C0FFFFC8CC8CC8CC8CFFFFC0C0FFFFCCCCCCCC
CCCCFFFFC0C0FFFFFFFFFFFFFFFFFFFFC0C0FFFFFFFFFFFFFFFFFFFFC0C0FFFF
FFFFFFFFFFFFFFFFC0C0}
ParentFont = False
OnClick = SpeedButton7Click
end
object SpeedButton8: TSpeedButton
Left = 453
Top = 6
Width = 63
Height = 26
Caption = '删除'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888888808888888888088800088888888888880000888888
8088888000888888088888880008888008888888800088008888888888000008
8888888888800088888888888800000888888888800088008888888000088880
0888880000888888008888000888888888088888888888888888}
ParentFont = False
OnClick = SpeedButton8Click
end
object SpeedButton9: TSpeedButton
Left = 581
Top = 6
Width = 63
Height = 26
Caption = '帮助'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFFFFFFF000FFFFFFFFFFFF0BB00FFFFFFFFFFF0BB00FFFFFFFFFFFF00FFF
FFFFFFFFFF0B00FFFFFFFFFFFF0B00FFFFFFFFFFFF0B00FFFFFFFFFFFF0BB00F
FFFFFFFF00F0BB00FFFFFFF0B00F0BB00FFFFFF0B00FF0B00FFFFFF0BB000BB0
0FFFFFFF0BBBBB00FFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFF}
ParentFont = False
end
object SpeedButton10: TSpeedButton
Left = 645
Top = 6
Width = 63
Height = 26
Caption = '退出'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF0FFFFFF
FFFFFFFF00FFFFFFFFFFFFF030FFFFFFFFFFFF0330FFFFFFFFFF003330000000
0FFFF03330FF0FFFFFFFF03300FF0FFFF4FFF03330FF0FFF44FFF03330FF0FF4
4444F03330FF0F444444F03330FF0FF44444F0330FFF0FFF44FFF030FFFF0FFF
F4FFF00FFFFF0FFFFFFFF00000000FFFFFFF}
ParentFont = False
OnClick = SpeedButton10Click
end
object SpeedButton19: TSpeedButton
Left = 518
Top = 6
Width = 63
Height = 26
Caption = '打印'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF0000000000
0FFFF0888888888080FF000000000000080F0888888FFF88000F088888877788
080F00000000000008800888888888808080F000000000080800FF0FFFFFFFF0
8080FFF0F00000F0000FFFF0FFFFFFFF0FFFFFFF0F00000F0FFFFFFF0FFFFFFF
F0FFFFFFF000000000FFFFFFFFFFFFFFFFFF}
ParentFont = False
OnClick = SpeedButton19Click
end
end
object Panel4: TPanel
Left = 215
Top = 89
Width = 511
Height = 191
BevelInner = bvLowered
TabOrder = 1
object Label24: TLabel
Left = 16
Top = 12
Width = 102
Height = 16
Caption = '电表基本情况'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object SpeedButton11: TSpeedButton
Left = 167
Top = 10
Width = 66
Height = 23
Caption = '加挂'
Flat = True
OnClick = SpeedButton11Click
end
object SpeedButton12: TSpeedButton
Left = 239
Top = 10
Width = 66
Height = 23
Caption = '修改'
Flat = True
OnClick = SpeedButton12Click
end
object SpeedButton13: TSpeedButton
Left = 311
Top = 10
Width = 66
Height = 23
Caption = '拆除'
Flat = True
OnClick = SpeedButton13Click
end
object SpeedButton14: TSpeedButton
Left = 383
Top = 10
Width = 66
Height = 23
Caption = '停/复'
Flat = True
OnClick = SpeedButton14Click
end
object DBGrid1: TDBGrid
Left = 7
Top = 37
Width = 490
Height = 145
Color = clWhite
DataSource = YDData.DSdbda
Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'dbbh'
Title.Alignment = taCenter
Title.Caption = '表号'
Width = 44
Visible = True
end
item
Expanded = False
FieldName = 'dblb'
Title.Alignment = taCenter
Title.Caption = '电表类别'
Width = 65
Visible = True
end
item
Expanded = False
FieldName = 'bl'
Title.Alignment = taCenter
Title.Caption = '倍率'
Width = 44
Visible = True
end
item
Expanded = False
FieldName = 'ws'
Title.Alignment = taCenter
Title.Caption = '表位'
Width = 41
Visible = True
end
item
Expanded = False
FieldName = 'fx'
Title.Alignment = taCenter
Title.Caption = '方向'
Width = 40
Visible = True
end
item
Expanded = False
FieldName = 'bs'
Title.Alignment = taCenter
Title.Caption = '变损'
Width = 50
Visible = True
end
item
Expanded = False
FieldName = 'xs'
Title.Alignment = taCenter
Title.Caption = '线损'
Width = 48
Visible = True
end
item
Expanded = False
FieldName = 'bsf'
Title.Alignment = taCenter
Title.Caption = '表损'
Width = 47
Visible = True
end
item
Expanded = False
FieldName = 'bz'
Title.Alignment = taCenter
Title.Caption = '套接'
Width = 68
Visible = True
end>
end
end
object Panel5: TPanel
Left = 215
Top = 292
Width = 511
Height = 164
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 2
object Label25: TLabel
Left = 16
Top = 20
Width = 136
Height = 16
Caption = '执行电价基本情况'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = '宋体'
Font.Style = [fsBold]
ParentFont = False
end
object SpeedButton15: TSpeedButton
Left = 231
Top = 17
Width = 67
Height = 24
Caption = '增加'
Flat = True
OnClick = SpeedButton15Click
end
object SpeedButton16: TSpeedButton
Left = 303
Top = 17
Width = 67
Height = 24
Caption = '修改'
Flat = True
OnClick = SpeedButton16Click
end
object SpeedButton17: TSpeedButton
Left = 375
Top = 17
Width = 67
Height = 24
Caption = '删除'
Flat = True
OnClick = SpeedButton17Click
end
object DBGrid2: TDBGrid
Left = 7
Top = 47
Width = 490
Height = 108
DataSource = YDData.DSdjkp
ReadOnly = True
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'kh'
Title.Alignment = taCenter
Title.Caption = '卡片编号'
Width = 58
Visible = True
end
item
Expanded = False
FieldName = 'lb'
Title.Alignment = taCenter
Title.Caption = '用电类别'
Width = 110
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'gfbl'
Title.Alignment = taCenter
Title.Caption = '高峰比例'
Width = 65
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'jsfsf'
Title.Alignment = taCenter
Title.Caption = '计算方式(峰)'
Width = 86
Visible = True
end
item
Expanded = False
FieldName = 'pdbl'
Title.Alignment = taCenter
Title.Caption = '平段比例'
Width = 66
Visible = True
end
item
Expanded = False
FieldName = 'jsfsp'
Title.Alignment = taCenter
Title.Caption = '计算方法(平)'
Width = 85
Visible = True
end
item
Color = clAqua
Expanded = False
FieldName = 'dgbl'
Title.Alignment = taCenter
Title.Caption = '低谷比例'
Visible = True
end
item
Color = clAqua
Expanded = False
FieldName = 'jsfsg'
Title.Alignment = taCenter
Title.Caption = '计算方式(谷)'
Width = 88
Visible = True
end>
end
end
object Panel2: TPanel
Left = 4
Top = 44
Width = 722
Height = 36
TabOrder = 3
object Label1: TLabel
Left = 9
Top = 10
Width = 52
Height = 13
Caption = '用户编号'
end
object Label2: TLabel
Left = 231
Top = 10
Width = 52
Height = 13
Caption = '用户名称'
end
object Label26: TLabel
Left = 447
Top = 10
Width = 52
Height = 13
Caption = '用户地址'
end
object DBEdit1: TDBEdit
Left = 83
Top = 7
Width = 100
Height = 21
Color = clInfoBk
DataField = 'hhhh'
DataSource = YDData.DSyhda
ReadOnly = True
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 293
Top = 7
Width = 124
Height = 21
Color = clInfoBk
DataField = 'yhmc'
DataSource = YDData.DSyhda
ReadOnly = True
TabOrder = 1
end
object DBEdit10: TDBEdit
Left = 509
Top = 7
Width = 196
Height = 21
Color = clInfoBk
DataField = 'yhdz'
DataSource = YDData.DSyhda
TabOrder = 2
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -