📄 frm_readstat.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Frm_readstat
BackColor = &H00FFC0C0&
Caption = "读状态"
ClientHeight = 2490
ClientLeft = 45
ClientTop = 345
ClientWidth = 8550
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Icon = "Frm_readstat.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 2490
ScaleWidth = 8550
WindowState = 2 'Maximized
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 192
Index = 21
Left = 975
TabIndex = 121
Top = 4005
Width = 225
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "日期和星期"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 22
Left = 975
TabIndex = 120
Top = 4500
Width = 225
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "最近编程次数"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 204
Index = 20
Left = 975
TabIndex = 119
Top = 3492
Width = 180
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "最近编程时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 204
Index = 19
Left = 975
TabIndex = 118
Top = 2981
Width = 168
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "最近反向起始时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 228
Index = 17
Left = 975
TabIndex = 117
Top = 1935
Width = 180
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "反向累计总时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 204
Index = 18
Left = 975
TabIndex = 116
Top = 2470
Width = 192
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "电表常数"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 204
Index = 24
Left = 975
TabIndex = 115
Top = 5490
Width = 192
End
Begin VB.CheckBox Check1
BackColor = &H00FFC0C0&
Caption = "自动抄表日"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Index = 23
Left = 975
TabIndex = 114
Top = 5010
Width = 204
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1
Left = 495
Top = 0
End
Begin VB.Timer Timer4
Enabled = 0 'False
Interval = 12
Left = 0
Top = 15
End
Begin VB.OptionButton Option4
BackColor = &H00FFC0C0&
Caption = "通用表号读"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 840
TabIndex = 113
Top = 900
Value = -1 'True
Width = 1575
End
Begin VB.OptionButton Option3
BackColor = &H00FFC0C0&
Caption = "指定表号读"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 840
TabIndex = 112
Top = 480
Width = 1650
End
Begin VB.Frame Frame5
BackColor = &H00FFC0C0&
Height = 585
Left = 2655
TabIndex = 109
Top = 810
Visible = 0 'False
Width = 4050
Begin VB.TextBox Text4
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 288
Left = 1620
MaxLength = 12
TabIndex = 110
Text = "000000000000"
Top = 195
Width = 1815
End
Begin VB.Label Label5
BackColor = &H00FFC0C0&
Caption = "表 号"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 420
TabIndex = 111
Top = 240
Width = 1095
End
End
Begin VB.Frame Frame4
BackColor = &H00FFC0C0&
Height = 600
Left = 2520
TabIndex = 102
Top = 810
Visible = 0 'False
Width = 5220
Begin VB.TextBox Text0
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 330
IMEMode = 1 'ON
Left = 4080
MaxLength = 6
TabIndex = 105
Text = "000000"
ToolTipText = "输入0到9之间的数字，共6位"
Top = 195
Width = 975
End
Begin VB.ComboBox Combo4
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 345
ItemData = "Frm_readstat.frx":0442
Left = 2820
List = "Frm_readstat.frx":046C
Style = 2 'Dropdown List
TabIndex = 104
Top = 195
Width = 630
End
Begin VB.ComboBox Combo3
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 345
ItemData = "Frm_readstat.frx":04A0
Left = 1155
List = "Frm_readstat.frx":052A
Style = 2 'Dropdown List
TabIndex = 103
ToolTipText = "选择一位字母或数字"
Top = 195
Width = 555
End
Begin VB.Label Label4
BackColor = &H00FFC0C0&
Caption = "表号"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Left = 3600
TabIndex = 108
Top = 270
Width = 510
End
Begin VB.Label Label2
BackColor = &H00FFC0C0&
Caption = "厂商代码"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 165
TabIndex = 107
Top = 270
Width = 1035
End
Begin VB.Label Label3
BackColor = &H00FFC0C0&
Caption = "出厂年份"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 1830
TabIndex = 106
Top = 270
Width = 1125
End
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -