📄 frm五气分析仪标定结果.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 615
Index = 17
Left = 450
TabIndex = 47
Top = 2520
Width = 1725
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "检查值"
BeginProperty Font
Name = "Verdana"
Size = 26.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 615
Index = 18
Left = 360
TabIndex = 46
Top = 1755
Width = 1815
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "(%)"
BeginProperty Font
Name = "Verdana"
Size = 26.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 735
Index = 0
Left = 7665
TabIndex = 45
Top = 4275
Width = 1215
End
Begin VB.Label Label1
Caption = "2"
BeginProperty Font
Name = "Verdana"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 405
Index = 7
Left = 7485
TabIndex = 44
Top = 4545
Width = 315
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "CO"
BeginProperty Font
Name = "Verdana"
Size = 26.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 735
Index = 1
Left = 6540
TabIndex = 43
Top = 4320
Width = 960
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "(%)"
BeginProperty Font
Name = "Verdana"
Size = 26.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 735
Index = 2
Left = 11895
TabIndex = 42
Top = 4275
Width = 1215
End
Begin VB.Label Label1
Caption = "2"
BeginProperty Font
Name = "Verdana"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 405
Index = 9
Left = 11670
TabIndex = 41
Top = 4545
Width = 315
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "O"
BeginProperty Font
Name = "Verdana"
Size = 26.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 645
Index = 3
Left = 11085
TabIndex = 40
Top = 4275
Width = 555
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "NOX10"
BeginProperty Font
Name = "Verdana"
Size = 26.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 735
Index = 10
Left = 8925
TabIndex = 39
Top = 4320
Width = 1815
End
Begin VB.Label Label1
Caption = "-6"
BeginProperty Font
Name = "Verdana"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 465
Index = 12
Left = 10725
TabIndex = 38
Top = 4140
Width = 420
End
Begin VB.Label Label1
Caption = "-6"
BeginProperty Font
Name = "Verdana"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 405
Index = 13
Left = 4095
TabIndex = 37
Top = 4320
Width = 375
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "CO(%)"
BeginProperty Font
Name = "Verdana"
Size = 26.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 735
Index = 19
Left = 4470
TabIndex = 36
Top = 4320
Width = 2055
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "HCX10"
BeginProperty Font
Name = "Verdana"
Size = 26.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 615
Index = 20
Left = 2295
TabIndex = 35
Top = 4365
Width = 1815
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "标称值"
BeginProperty Font
Name = "Verdana"
Size = 26.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 615
Index = 23
Left = 315
TabIndex = 34
Top = 5175
Width = 1815
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "相对误差(%)"
BeginProperty Font
Name = "Verdana"
Size = 15
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 480
Index = 24
Left = 45
TabIndex = 33
Top = 7425
Width = 2175
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "测量值"
BeginProperty Font
Name = "Verdana"
Size = 15
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 435
Index = 25
Left = 1215
TabIndex = 32
Top = 6975
Width = 915
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "标称值"
BeginProperty Font
Name = "Verdana"
Size = 15
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 390
Index = 26
Left = 1170
TabIndex = 31
Top = 6525
Width = 960
End
End
Attribute VB_Name = "frm五气分析仪标定结果"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Database.Class_Initialize
Call GetAirData
End Sub
Private Sub GetAirData()
Dim m_SQLText As String
'高量程检查HC测量浓度,高量程标定HC标称浓度,高量程检查HC标称浓度,高量程检查NO测量浓度,高量程标定NO标称浓度,高量程检查NO标称浓度,高量程检查CO测量浓度,高量程标定CO标称浓度,高量程检查CO标称浓度,高量程检查CO2测量浓度,高量程标定CO2标称浓度,高量程检查CO2标称浓度,分析仪O2传感器测量值,分析仪O2传感器标称值,分析仪检查O2传感器标称值
m_SQLText = "Select Top 1 * From 设备标定详细信息记录 Where 序号=6 Order by 日期 DESC"
Set rs = Database.取数据(m_SQLText)
If Not (rs.EOF = True And rs.BOF = True) Then
Text3(0) = Val(rs!高量程标定HC标称浓度)
Text3(1) = Val(rs!高量程标定CO标称浓度)
Text3(2) = Val(rs!高量程标定CO2标称浓度)
Text3(4) = Val(rs!高量程标定NO标称浓度)
End If
rs.Close
m_SQLText = "Select Top 1 * From 设备标定详细信息记录 Where 序号=10 Order by 日期 DESC"
Set rs = Database.取数据(m_SQLText)
If Not (rs.EOF = True And rs.BOF = True) Then
Text3(3) = Val(rs!分析仪O2传感器标称值)
End If
rs.Close
m_SQLText = "Select Top 1 * From 设备标定详细信息记录 Where 序号=9 Order by 日期 DESC"
Set rs = Database.取数据(m_SQLText)
If Not (rs.EOF = True And rs.BOF = True) Then
Text1(0) = Val(rs!高量程检查HC标称浓度)
Text1(1) = Val(rs!高量程检查CO标称浓度)
Text1(2) = Val(rs!高量程检查CO2标称浓度)
Text1(3) = Val(rs!分析仪检查O2传感器标称值)
Text1(4) = Val(rs!高量程检查NO标称浓度)
Text2(0) = Val(rs!高量程检查HC测量浓度)
Text2(1) = Val(rs!高量程检查CO测量浓度)
Text2(2) = Val(rs!高量程检查CO2测量浓度)
Text2(3) = Val(rs!分析仪O2传感器测量值)
Text2(4) = Val(rs!高量程检查NO测量浓度)
End If
rs.Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
Database.Class_Terminate
End Sub
Private Sub returnCmd_Click()
Unload Me
Set frm五气分析仪标定结果 = Nothing
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -