📄 yddbcs.dfm
字号:
ItemHeight = 13
Items.Strings = (
''
'户内套接'
'户间套接'
'户间分表')
TabOrder = 7
OnChange = DBComboBox6Change
end
object DBEdit9: TDBEdit
Left = 65
Top = 173
Width = 58
Height = 21
DataField = 'bl'
DataSource = YDData.DSdbda
TabOrder = 8
end
object DBComboBox7: TDBComboBox
Left = 131
Top = 200
Width = 56
Height = 21
DataField = 'wsf'
DataSource = YDData.DSdbda
Enabled = False
ItemHeight = 13
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9')
TabOrder = 9
end
object DBComboBox8: TDBComboBox
Left = 194
Top = 200
Width = 63
Height = 21
DataField = 'fxf'
DataSource = YDData.DSdbda
Enabled = False
ItemHeight = 13
Items.Strings = (
'正转'
'反转')
TabOrder = 10
end
object DBEdit12: TDBEdit
Left = 65
Top = 200
Width = 58
Height = 21
DataField = 'blf'
DataSource = YDData.DSdbda
Enabled = False
TabOrder = 11
end
object DBComboBox9: TDBComboBox
Left = 130
Top = 228
Width = 56
Height = 21
DataField = 'wsg'
DataSource = YDData.DSdbda
Enabled = False
ItemHeight = 13
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'')
TabOrder = 12
end
object DBComboBox10: TDBComboBox
Left = 193
Top = 228
Width = 63
Height = 21
DataField = 'fxg'
DataSource = YDData.DSdbda
Enabled = False
ItemHeight = 13
Items.Strings = (
'正转'
'反转')
TabOrder = 13
end
object DBEdit13: TDBEdit
Left = 65
Top = 228
Width = 58
Height = 21
DataField = 'blg'
DataSource = YDData.DSdbda
Enabled = False
TabOrder = 14
end
object DBCheckBox1: TDBCheckBox
Left = 147
Top = 84
Width = 128
Height = 17
Caption = '平段中含峰谷电量'
DataField = 'p_fg'
DataSource = YDData.DSdbda
Enabled = False
TabOrder = 15
ValueChecked = 'Y'
ValueUnchecked = 'N'
end
object DBCheckBox2: TDBCheckBox
Left = 147
Top = 60
Width = 128
Height = 17
Caption = '计算线损时含变损'
DataField = 'xshbs'
DataSource = YDData.DSdbda
TabOrder = 16
ValueChecked = 'Y'
ValueUnchecked = 'N'
end
object DBComboBox11: TDBComboBox
Left = 43
Top = 103
Width = 224
Height = 21
DataField = 'hydm'
DataSource = YDData.DSdbda
ItemHeight = 13
TabOrder = 17
end
end
object BitBtn1: TBitBtn
Left = 306
Top = 225
Width = 52
Height = 48
Caption = '确定'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ModalResult = 1
ParentFont = False
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
Layout = blGlyphTop
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 362
Top = 225
Width = 52
Height = 48
Caption = '帮助'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 2
Kind = bkHelp
Layout = blGlyphTop
end
object Panel2: TPanel
Left = 293
Top = 5
Width = 188
Height = 212
BevelInner = bvLowered
BevelOuter = bvNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 3
object Label5: TLabel
Left = 8
Top = 8
Width = 52
Height = 13
Caption = '出厂编号'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 34
Top = 111
Width = 26
Height = 13
Caption = '电流'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 8
Top = 34
Width = 52
Height = 13
Caption = '生产厂名'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 8
Top = 60
Width = 52
Height = 13
Caption = '电表型号'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 34
Top = 137
Width = 26
Height = 13
Caption = '产权'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 34
Top = 86
Width = 26
Height = 13
Caption = '电压'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label16: TLabel
Left = 8
Top = 163
Width = 52
Height = 13
Caption = '装表日期'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label18: TLabel
Left = 8
Top = 189
Width = 52
Height = 13
Caption = '校验日期'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBEdit1: TDBEdit
Left = 65
Top = 7
Width = 97
Height = 21
DataField = 'bh'
DataSource = YDData.DSdbda
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 65
Top = 32
Width = 112
Height = 21
DataField = 'sccj'
DataSource = YDData.DSdbda
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 65
Top = 57
Width = 97
Height = 21
DataField = 'xh'
DataSource = YDData.DSdbda
TabOrder = 2
end
object DBEdit4: TDBEdit
Left = 65
Top = 82
Width = 97
Height = 21
DataField = 'dy'
DataSource = YDData.DSdbda
TabOrder = 3
end
object DBEdit5: TDBEdit
Left = 65
Top = 108
Width = 97
Height = 21
DataField = 'dl'
DataSource = YDData.DSdbda
TabOrder = 4
end
object DBComboBox1: TDBComboBox
Left = 65
Top = 133
Width = 57
Height = 21
DataField = 'cq'
DataSource = YDData.DSdbda
ItemHeight = 13
Items.Strings = (
'公有'
'私有')
TabOrder = 5
end
object DBEdit6: TDBEdit
Left = 65
Top = 158
Width = 81
Height = 21
DataField = 'azsj'
DataSource = YDData.DSdbda
TabOrder = 6
end
object DBEdit7: TDBEdit
Left = 65
Top = 183
Width = 81
Height = 21
DataField = 'jysj'
DataSource = YDData.DSdbda
TabOrder = 7
end
object DateTimePicker1: TDateTimePicker
Left = 147
Top = 159
Width = 17
Height = 21
CalAlignment = dtaLeft
Date = 37397.4089568171
Time = 37397.4089568171
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 8
OnChange = DateTimePicker1Change
end
object DateTimePicker2: TDateTimePicker
Left = 147
Top = 183
Width = 17
Height = 21
CalAlignment = dtaLeft
Date = 37397.4090577662
Time = 37397.4090577662
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 9
OnChange = DateTimePicker2Change
end
end
object BitBtn3: TBitBtn
Left = 418
Top = 225
Width = 52
Height = 48
Caption = '取消'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 4
Kind = bkCancel
Layout = blGlyphTop
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -