📄 frm_write.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frm_set
Caption = "参数设置"
ClientHeight = 7965
ClientLeft = 135
ClientTop = 420
ClientWidth = 12060
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Icon = "frm_write.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 7965
ScaleWidth = 12060
Tag = " "
WindowState = 2 'Maximized
Begin VB.CheckBox Check5
Caption = "电表局编号"
Enabled = 0 'False
Height = 240
Index = 4
Left = 2220
TabIndex = 170
Top = 4575
Width = 1400
End
Begin VB.CheckBox Check5
Caption = "显示器自检"
Enabled = 0 'False
Height = 228
Index = 5
Left = 2220
TabIndex = 169
Top = 5235
Width = 1400
End
Begin VB.CheckBox Check5
Caption = "表出厂编号"
Enabled = 0 'False
Height = 252
Index = 6
Left = 2220
TabIndex = 168
Top = 4890
Width = 1400
End
Begin VB.CheckBox Check5
Caption = "上月总电量"
Enabled = 0 'False
Height = 276
Index = 8
Left = 2220
TabIndex = 167
Top = 3180
Width = 1400
End
Begin VB.CheckBox Check5
Caption = "上月峰电量"
Enabled = 0 'False
Height = 264
Index = 9
Left = 2220
TabIndex = 166
Top = 3510
Width = 1400
End
Begin VB.CheckBox Check5
Caption = "上月平电量"
Enabled = 0 'False
Height = 264
Index = 10
Left = 2220
TabIndex = 165
Top = 3855
Width = 1400
End
Begin VB.CheckBox Check5
Caption = "上月谷电量"
Enabled = 0 'False
Height = 252
Index = 11
Left = 2220
TabIndex = 164
Top = 4170
Width = 1400
End
Begin VB.CheckBox Check5
Caption = "两屏显示"
Enabled = 0 'False
Height = 228
Index = 7
Left = 2235
TabIndex = 163
Top = 5535
Width = 1400
End
Begin VB.CommandButton Command3
Caption = "时段确认"
Enabled = 0 'False
Height = 330
Left = 8730
TabIndex = 162
Top = 6300
Width = 1260
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 288
Index = 3
Left = 6015
MaxLength = 9
TabIndex = 155
Text = "000000.00"
Top = 4020
Width = 1380
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 288
Index = 2
Left = 4215
MaxLength = 9
TabIndex = 154
Text = "000000.00"
Top = 4020
Width = 1380
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 288
Index = 1
Left = 6000
MaxLength = 9
TabIndex = 153
Text = "000000.00"
Top = 3405
Width = 1395
End
Begin VB.Frame Frame3
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 660
Left = 255
TabIndex = 145
Top = 420
Width = 5520
Begin VB.TextBox Text0
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 288
IMEMode = 1 'ON
Left = 4380
MaxLength = 6
TabIndex = 149
Text = "000000"
ToolTipText = "输入0到9之间的数字，共6位"
Top = 225
Width = 930
End
Begin VB.ComboBox Combo3
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
ItemData = "frm_write.frx":0442
Left = 1245
List = "frm_write.frx":04CC
Style = 2 'Dropdown List
TabIndex = 148
Top = 195
Width = 585
End
Begin VB.ComboBox Combo4
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
ItemData = "frm_write.frx":053C
Left = 2985
List = "frm_write.frx":05AE
Style = 2 'Dropdown List
TabIndex = 147
Top = 195
Width = 705
End
Begin VB.ComboBox Combo6
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
ItemData = "frm_write.frx":062A
Left = 1080
List = "frm_write.frx":0650
TabIndex = 146
Text = "00"
Top = 1164
Width = 615
End
Begin VB.Label Label29
Caption = "厂商代码"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 225
TabIndex = 152
Top = 270
Width = 1065
End
Begin VB.Label Label28
Caption = "出厂年份"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 2010
TabIndex = 151
Top = 285
Width = 990
End
Begin VB.Label Label3
Caption = "表号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Left = 3810
TabIndex = 150
Top = 270
Width = 570
End
End
Begin VB.OptionButton Option1
Caption = "江苏表号形式设置"
ForeColor = &H00000000&
Height = 192
Left = 945
TabIndex = 144
Top = 195
Value = -1 'True
Width = 2220
End
Begin VB.OptionButton Option2
Caption = "一般表号形式设置"
ForeColor = &H00000000&
Height = 228
Left = 3345
TabIndex = 143
Top = 180
Width = 2070
End
Begin VB.Frame Frame4
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 660
Left = 1155
TabIndex = 140
Top = 420
Visible = 0 'False
Width = 3795
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 285
IMEMode = 1 'ON
Left = 1650
MaxLength = 12
TabIndex = 141
Text = "000000000000"
ToolTipText = "输入0到9之间的数字，共12位"
Top = 225
Width = 1800
End
Begin VB.Label Label4
Caption = "表号设置"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -