?? 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 + -