📄 frmmain1.frm
字号:
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 2
Left = 1815
TabIndex = 18
Top = 11040
Width = 345
End
Begin VB.Label Lab3Title
BackStyle = 0 'Transparent
Caption = "3"
BeginProperty Font
Name = "宋体"
Size = 7.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 1
Left = 4200
TabIndex = 17
Top = 2880
Width = 135
End
Begin VB.Label LabMHtitl
BackStyle = 0 'Transparent
Caption = "M/H"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 1
Left = 4125
TabIndex = 16
Top = 3000
Width = 345
End
Begin VB.Label LabMHtitl
BackStyle = 0 'Transparent
Caption = "M/H"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 1860
TabIndex = 14
Top = 8415
Width = 345
End
Begin VB.Label LabCompany
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "杭州三联仪器仪表公司"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 8760
TabIndex = 13
Top = 7440
Width = 3300
End
Begin VB.Image Image1
Height = 480
Left = 8160
Picture = "FrmMain1.frx":030A
ToolTipText = "杭州三联仪器仪表公司"
Top = 7320
Width = 480
End
Begin VB.Line PipeLine
BorderColor = &H00FF0000&
Index = 6
X1 = 9990
X2 = 9990
Y1 = 1830
Y2 = 2640
End
Begin VB.Label LabAmount
BackStyle = 0 'Transparent
Caption = "总用电量"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 1
Left = 1440
TabIndex = 12
Top = 8160
Width = 1215
End
Begin VB.Label LabAmount
BackStyle = 0 'Transparent
Caption = "总用水量"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 0
Left = 360
TabIndex = 11
Top = 8280
Width = 1215
End
Begin VB.Line LineRoadV
BorderColor = &H0000FFFF&
Index = 2
X1 = 5085
X2 = 5085
Y1 = 2385
Y2 = 6645
End
Begin VB.Line LineRoadH
BorderColor = &H0000FFFF&
Index = 1
X1 = -180
X2 = 12450
Y1 = 4650
Y2 = 4650
End
Begin VB.Line PipeLine
BorderColor = &H00FF0000&
Index = 5
X1 = 5175
X2 = 7245
Y1 = 4950
Y2 = 4950
End
Begin VB.Line LineRoadH
BorderColor = &H0000FFFF&
Index = 0
X1 = 30
X2 = 12450
Y1 = 2370
Y2 = 2370
End
Begin VB.Line PipeLine
BorderColor = &H00FF0000&
Index = 10
X1 = 7875
X2 = 9960
Y1 = 4950
Y2 = 4950
End
Begin VB.Line PipeLine
BorderColor = &H00FF0000&
Index = 8
X1 = 10020
X2 = 12120
Y1 = 2670
Y2 = 2670
End
Begin VB.Line PipeLine
BorderColor = &H00FF0000&
Index = 7
X1 = 7875
X2 = 9960
Y1 = 2670
Y2 = 2670
End
Begin VB.Line PipeLine
BorderColor = &H00FF0000&
Index = 4
X1 = 2760
X2 = 5145
Y1 = 4950
Y2 = 4950
End
Begin VB.Line PipeLine
BorderColor = &H00FF0000&
Index = 3
X1 = 5175
X2 = 5175
Y1 = 4950
Y2 = 2700
End
Begin VB.Line PipeLine
BorderColor = &H00FF0000&
Index = 2
X1 = 5160
X2 = 7200
Y1 = 2655
Y2 = 2655
End
Begin VB.Line PipeLine
BorderColor = &H00FF0000&
Index = 1
X1 = 2835
X2 = 5160
Y1 = 2655
Y2 = 2655
End
Begin VB.Line PipeLine
BorderColor = &H00FF0000&
Index = 0
X1 = 5175
X2 = 5175
Y1 = 1935
Y2 = 2655
End
Begin VB.Line LineRoadV
BorderColor = &H0000FFFF&
Index = 5
X1 = 12360
X2 = 12360
Y1 = 2370
Y2 = 6660
End
Begin VB.Line LineRoadV
BorderColor = &H0000FFFF&
Index = 4
X1 = 10170
X2 = 10170
Y1 = 2385
Y2 = 6615
End
Begin VB.Line LineRoadV
BorderColor = &H0000FFFF&
Index = 3
X1 = 7560
X2 = 7560
Y1 = 2385
Y2 = 6645
End
Begin VB.Line LineRoadV
BorderColor = &H0000FFFF&
Index = 1
X1 = 2280
X2 = 2280
Y1 = 2385
Y2 = 6600
End
Begin VB.Line LineRoadV
BorderColor = &H0000FFFF&
Index = 0
X1 = 30
X2 = 30
Y1 = 2370
Y2 = 6540
End
Begin VB.Line LineRoadH
BorderColor = &H0000FFFF&
Index = 2
X1 = 120
X2 = 12510
Y1 = 6630
Y2 = 6630
End
Begin VB.Label 标题标签
BackStyle = 0 'Transparent
Caption = "瑞 安 市 场 桥 自 动 灌 溉 信 息 中 心"
BeginProperty Font
Name = "楷体_GB2312"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 465
Left = 2730
TabIndex = 1
Top = 450
Width = 8970
End
Begin VB.Line PipeLine
BorderColor = &H00FF0000&
Index = 9
X1 = 9990
X2 = 9990
Y1 = 4920
Y2 = 2730
End
Begin VB.Line LineRive1
BorderColor = &H00C00000&
X1 = -30
X2 = 12450
Y1 = 2220
Y2 = 2220
End
Begin VB.Label Lab3Title
BackStyle = 0 'Transparent
Caption = "3"
BeginProperty Font
Name = "宋体"
Size = 7.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 0
Left = 1950
TabIndex = 15
Top = 8280
Width = 135
End
End
Begin VB.Menu mnuSystem
Caption = "系统控制（&S）"
Begin VB.Menu MnuCommDisplay
Caption = "通讯监视（&C）"
End
Begin VB.Menu MnuExit
Caption = "退出系统（&E）"
End
End
Begin VB.Menu MnuSEt
Caption = "参数设置（&S）"
Begin VB.Menu MnuOpen
Caption = "开阀控制（&C）"
Shortcut = ^O
End
Begin VB.Menu MnuChangFee
Caption = "修改水价（&F）"
Shortcut = ^F
End
Begin VB.Menu Line
Caption = "-"
End
Begin VB.Menu MnuOptions
Caption = "选项（&O）…"
Shortcut = ^S
End
End
Begin VB.Menu MnuCont
Caption = "数据统计（&D）"
Begin VB.Menu MnuCurrRecord
Caption = "阀当前记录查询（&V）"
End
Begin VB.Menu MnuCurrRecordP
Caption = "泵当前记录查询（&P）"
End
Begin VB.Menu MnuSeparatorPL1
Caption = "-"
Index = 1
End
Begin VB.Menu MnuInfValve
Caption = "阀灌溉信息统计（&S）"
Begin VB.Menu mnuValveDay
Caption = "阀日统计（&D）"
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -