📄 frm_ztsz.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frm_ztsz
BorderStyle = 3 'Fixed Dialog
Caption = "状态设置"
ClientHeight = 6030
ClientLeft = 45
ClientTop = 435
ClientWidth = 7695
Icon = "frm_ztsz.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6030
ScaleWidth = 7695
ShowInTaskbar = 0 'False
Begin TabDlg.SSTab SSTab1
Height = 5775
Left = 120
TabIndex = 0
Top = 120
Width = 7455
_ExtentX = 13150
_ExtentY = 10186
_Version = 393216
Style = 1
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "第一点位状态设置"
TabPicture(0) = "frm_ztsz.frx":164A
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame7"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Frame8"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Frame2"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Winsock1"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).ControlCount= 5
TabCaption(1) = "第二点位状态设置"
TabPicture(1) = "frm_ztsz.frx":1666
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame4"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Frame3"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Frame9"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Frame10"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).ControlCount= 4
TabCaption(2) = "第三点位状态设置"
TabPicture(2) = "frm_ztsz.frx":1682
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame5"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Frame6"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Frame11"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "Frame12"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).ControlCount= 4
Begin MSWinsockLib.Winsock Winsock1
Left = 6720
Top = 4800
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Frame Frame12
Caption = "通信状态"
ForeColor = &H000000C0&
Height = 855
Left = -69960
TabIndex = 67
Top = 1320
Width = 2295
Begin VB.CommandButton Command9
Caption = "通信连接"
Height = 375
Left = 1200
TabIndex = 68
Top = 280
Width = 975
End
Begin VB.Label Label9
Caption = "等待通信…"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 120
TabIndex = 69
Top = 360
Width = 1215
End
End
Begin VB.Frame Frame11
Caption = "总水量清零"
ForeColor = &H00000080&
Height = 855
Left = -74880
TabIndex = 63
Top = 1320
Width = 4815
Begin VB.CommandButton Command6
Caption = "提 交"
Enabled = 0 'False
Height = 375
Left = 3600
TabIndex = 66
Top = 280
Width = 855
End
Begin VB.OptionButton Option12
Caption = "强制总水量清零"
Enabled = 0 'False
ForeColor = &H80000001&
Height = 255
Left = 120
TabIndex = 65
Top = 360
Width = 1695
End
Begin VB.OptionButton Option11
Caption = "水量不进行清零"
Enabled = 0 'False
ForeColor = &H80000001&
Height = 255
Left = 1920
TabIndex = 64
Top = 360
Value = -1 'True
Width = 1695
End
End
Begin VB.Frame Frame6
Caption = "强制阀门状态"
ForeColor = &H00000080&
Height = 855
Left = -74880
TabIndex = 57
Top = 360
Width = 7215
Begin VB.CommandButton Command3
Caption = "提 交"
Enabled = 0 'False
Height = 375
Left = 3480
TabIndex = 60
Top = 280
Width = 855
End
Begin VB.OptionButton Option10
Caption = "强制开启阀门"
Enabled = 0 'False
ForeColor = &H80000001&
Height = 255
Left = 1800
TabIndex = 59
Top = 360
Value = -1 'True
Width = 1455
End
Begin VB.OptionButton Option9
Caption = "强制关闭阀门"
Enabled = 0 'False
ForeColor = &H80000001&
Height = 255
Left = 120
TabIndex = 58
Top = 360
Width = 1455
End
Begin VB.Label Label8
Caption = "总水量不进行清零"
ForeColor = &H000000C0&
Height = 255
Left = 5520
TabIndex = 62
Top = 540
Width = 1455
End
Begin VB.Label Label7
Caption = "默认强制阀门状态为开"
ForeColor = &H000000FF&
Height = 255
Left = 4680
TabIndex = 61
Top = 240
Width = 1935
End
End
Begin VB.Frame Frame10
Caption = "通信状态"
ForeColor = &H000000C0&
Height = 855
Left = -69960
TabIndex = 54
Top = 1320
Width = 2295
Begin VB.CommandButton Command8
Caption = "通信连接"
Height = 375
Left = 1200
TabIndex = 55
Top = 280
Width = 975
End
Begin VB.Label Label6
Caption = "等待通信…"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 120
TabIndex = 56
Top = 360
Width = 1215
End
End
Begin VB.Frame Frame9
Caption = "总水量清零"
ForeColor = &H00000080&
Height = 855
Left = -74880
TabIndex = 50
Top = 1320
Width = 4815
Begin VB.OptionButton Option8
Caption = "水量不进行清零"
Enabled = 0 'False
ForeColor = &H80000001&
Height = 255
Left = 1920
TabIndex = 53
Top = 360
Value = -1 'True
Width = 1695
End
Begin VB.OptionButton Option7
Caption = "强制总水量清零"
Enabled = 0 'False
ForeColor = &H80000001&
Height = 255
Left = 120
TabIndex = 52
Top = 360
Width = 1695
End
Begin VB.CommandButton Command5
Caption = "提 交"
Enabled = 0 'False
Height = 375
Left = 3600
TabIndex = 51
Top = 280
Width = 855
End
End
Begin VB.Frame Frame3
Caption = "强制阀门状态"
ForeColor = &H00000080&
Height = 855
Left = -74880
TabIndex = 44
Top = 360
Width = 7215
Begin VB.OptionButton Option6
Caption = "强制关闭阀门"
Enabled = 0 'False
ForeColor = &H80000001&
Height = 255
Left = 120
TabIndex = 47
Top = 360
Width = 1455
End
Begin VB.OptionButton Option5
Caption = "强制开启阀门"
Enabled = 0 'False
ForeColor = &H80000001&
Height = 255
Left = 1800
TabIndex = 46
Top = 360
Value = -1 'True
Width = 1455
End
Begin VB.CommandButton Command2
Caption = "提 交"
Enabled = 0 'False
Height = 375
Left = 3480
TabIndex = 45
Top = 280
Width = 855
End
Begin VB.Label Label5
Caption = "默认强制阀门状态为开"
ForeColor = &H000000FF&
Height = 255
Left = 4680
TabIndex = 49
Top = 240
Width = 1935
End
Begin VB.Label Label4
Caption = "总水量不进行清零"
ForeColor = &H000000C0&
Height = 255
Left = 5520
TabIndex = 48
Top = 540
Width = 1455
End
End
Begin VB.Frame Frame2
Caption = "通信状态"
ForeColor = &H000000C0&
Height = 855
Left = 5040
TabIndex = 39
Top = 1320
Width = 2295
Begin VB.CommandButton Command4
Caption = "通信连接"
Height = 375
Left = 1200
TabIndex = 40
Top = 280
Width = 975
End
Begin VB.Label Label3
Caption = "等待通信…"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 120
TabIndex = 41
Top = 360
Width = 1215
End
End
Begin VB.Frame Frame8
Caption = "总水量清零"
ForeColor = &H00000080&
Height = 855
Left = 120
TabIndex = 34
Top = 1320
Width = 4815
Begin VB.CommandButton Command7
Caption = "提 交"
Enabled = 0 'False
Height = 375
Left = 3600
TabIndex = 37
Top = 280
Width = 855
End
Begin VB.OptionButton Option4
Caption = "强制总水量清零"
Enabled = 0 'False
ForeColor = &H80000001&
Height = 255
Left = 120
TabIndex = 36
Top = 360
Width = 1695
End
Begin VB.OptionButton Option3
Caption = "水量不进行清零"
Enabled = 0 'False
ForeColor = &H80000001&
Height = 255
Left = 1920
TabIndex = 35
Top = 360
Value = -1 'True
Width = 1695
End
End
Begin VB.Frame Frame7
Caption = "强制阀门状态"
ForeColor = &H00000080&
Height = 855
Left = 120
TabIndex = 31
Top = 360
Width = 7215
Begin VB.CommandButton Command1
Caption = "提 交"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -