📄 frmmain.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmMain
Caption = "工程1"
ClientHeight = 9510
ClientLeft = 1305
ClientTop = 1770
ClientWidth = 13080
ForeColor = &H00000000&
LinkTopic = "Form1"
ScaleHeight = 9510
ScaleWidth = 13080
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 2000
Left = 4905
Top = 7290
End
Begin VB.PictureBox picture1
BackColor = &H80000009&
BorderStyle = 0 'None
Height = 7890
Index = 0
Left = 4275
ScaleHeight = 7890
ScaleWidth = 9105
TabIndex = 31
Top = 1845
Width = 9105
Begin VB.PictureBox Picture2
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
FillStyle = 4 'Upward Diagonal
ForeColor = &H80000008&
Height = 1245
Left = 630
ScaleHeight = 2.09
ScaleLeft = -4
ScaleMode = 0 'User
ScaleTop = 2
ScaleWidth = 11.192
TabIndex = 58
Top = 4860
Width = 6400
End
Begin VB.Label lblfields
BackColor = &H80000009&
DataField = "安装日期"
Height = 285
Index = 7
Left = 5175
TabIndex = 57
Top = 1755
Width = 1860
End
Begin VB.Label lblfields
BackColor = &H80000009&
DataField = "仪表型号"
Height = 285
Index = 6
Left = 5175
TabIndex = 56
Top = 1425
Width = 1860
End
Begin VB.Label lblfields
BackColor = &H80000009&
DataField = "仪表编号"
Height = 285
Index = 5
Left = 5175
TabIndex = 55
Top = 810
Width = 1860
End
Begin VB.Label lblfields
BackColor = &H80000009&
DataField = "电话号码"
Height = 285
Index = 4
Left = 5175
TabIndex = 54
Top = 1080
Width = 1860
End
Begin VB.Label lblfields
BackColor = &H80000009&
DataField = "地址"
Height = 285
Index = 3
Left = 1800
TabIndex = 53
Top = 1755
Width = 1860
End
Begin VB.Label lblfields
BackColor = &H80000009&
DataField = "企业类别"
Height = 285
Index = 2
Left = 1800
TabIndex = 52
Top = 1425
Width = 1860
End
Begin VB.Label lblfields
BackColor = &H80000009&
DataField = "企业名称"
Height = 285
Index = 1
Left = 1800
TabIndex = 51
Top = 1095
Width = 1860
End
Begin VB.Label lblfields
BackColor = &H80000009&
DataField = "编号ID"
Height = 285
Index = 0
Left = 1800
TabIndex = 50
Top = 765
Width = 1860
End
Begin VB.Label Label2
BackColor = &H00C25B10&
Caption = "监测数据"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 615
TabIndex = 49
Top = 2370
Width = 1500
End
Begin VB.Label Label1
BackColor = &H00C25B10&
Caption = "基本资料"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Index = 0
Left = 615
TabIndex = 48
Top = 450
Width = 1500
End
Begin VB.Label lblLabels
BackColor = &H80000009&
Caption = "失测时间："
Height = 255
Index = 16
Left = 615
TabIndex = 47
Top = 3690
Width = 1485
End
Begin VB.Label lblLabels
BackColor = &H80000009&
Caption = "总计量时间："
Height = 255
Index = 17
Left = 615
TabIndex = 46
Top = 3375
Width = 1530
End
Begin VB.Label lblLabels
BackColor = &H80000009&
Caption = "累计流量(M3)："
Height = 255
Index = 18
Left = 615
TabIndex = 45
Top = 3045
Width = 1485
End
Begin VB.Label lblLabels
BackColor = &H80000009&
Caption = "瞬时流量（M3/s)："
Height = 255
Index = 19
Left = 615
TabIndex = 44
Top = 2730
Width = 1530
End
Begin VB.Label lblLabels
BackColor = &H80000009&
Caption = "仪器状态："
Height = 255
Index = 21
Left = 3975
TabIndex = 43
Top = 3375
Width = 1935
End
Begin VB.Label lblLabels
BackColor = &H80000009&
Caption = "仪器零位："
Height = 255
Index = 22
Left = 3975
TabIndex = 42
Top = 3045
Width = 1935
End
Begin VB.Label lblLabels
BackColor = &H80000009&
Caption = "仪器时钟："
Height = 255
Index = 23
Left = 3975
TabIndex = 41
Top = 2730
Width = 1935
End
Begin VB.Label Label3
BackColor = &H00C25B10&
Caption = "日流量监测图"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 615
TabIndex = 40
Top = 4365
Width = 1500
End
Begin VB.Label lblLabels
BackColor = &H80000009&
Caption = "安装日期："
Height = 255
Index = 7
Left = 3975
TabIndex = 39
Top = 1770
Width = 1095
End
Begin VB.Label lblLabels
BackColor = &H80000009&
Caption = "仪表型号："
Height = 255
Index = 6
Left = 3975
TabIndex = 38
Top = 1455
Width = 1095
End
Begin VB.Label lblLabels
BackColor = &H80000009&
Caption = "仪表编号："
Height = 255
Index = 5
Left = 3975
TabIndex = 37
Top = 1125
Width = 1095
End
Begin VB.Label lblLabels
BackColor = &H80000009&
Caption = "电话号码："
Height = 255
Index = 4
Left = 3975
TabIndex = 36
Top = 810
Width = 1095
End
Begin VB.Label lblLabels
BackColor = &H80000009&
Caption = "地址："
Height = 255
Index = 3
Left = 615
TabIndex = 35
Top = 1770
Width = 1095
End
Begin VB.Label lblLabels
BackColor = &H80000009&
Caption = "企业类别："
Height = 255
Index = 2
Left = 615
TabIndex = 34
Top = 1455
Width = 1095
End
Begin VB.Label lblLabels
BackColor = &H80000009&
Caption = "企业名称："
Height = 255
Index = 1
Left = 615
TabIndex = 33
Top = 1125
Width = 1095
End
Begin VB.Label lblLabels
BackColor = &H80000009&
Caption = "编号ID："
Height = 255
Index = 0
Left = 615
TabIndex = 32
Top = 810
Width = 1095
End
Begin VB.Line Line2
X1 = 630
X2 = 5985
Y1 = 2115
Y2 = 2115
End
Begin VB.Line Line1
X1 = 585
X2 = 5985
Y1 = 4095
Y2 = 4095
End
End
Begin VB.PictureBox picture1
BackColor = &H80000014&
BorderStyle = 0 'None
Height = 5790
Index = 1
Left = 4275
ScaleHeight = 5790
ScaleWidth = 9210
TabIndex = 22
Top = 2520
Width = 9210
Begin VB.CommandButton Command7
Caption = "查询"
Height = 375
Left = 2295
TabIndex = 26
Top = 675
Width = 870
End
Begin VB.CommandButton Command3
Caption = "月流量分析"
Height = 420
Left = 4725
TabIndex = 25
Top = 5535
Width = 1050
End
Begin VB.CommandButton Command4
Caption = "年流量分析"
Enabled = 0 'False
Height = 420
Left = 5805
TabIndex = 24
Top = 5535
Width = 1140
End
Begin VB.ComboBox Combo1
Height = 300
Left = 3330
TabIndex = 23
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -