Sub OnClick(ByVal Item)
Dim Com
Dim Con
Dim StrCon
Dim StrSQL
Dim Rs
Dim Rs1

Dim TestDate
Dim PumpTestID
Dim PumpModel
Dim TestStandard
Dim PumpID

If HMIRuntime.Tags("Test_man_start").Read=0 And HMIRuntime.Tags("Sstarttest").Read=0 Then
StrCon="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\\PumpCode\\PumpTest\\PumpTest.accdb"
Set Con=CreateObject("ADODB.Connection")
Con.ConnectionString=StrCon
Con.CursorLocation=3
Con.Open
Set Com=CreateObject("ADODB.Command")
Com.ActiveConnection=Con
Set Rs=CreateObject("ADODB.Recordset")
Set Rs1=CreateObject("ADODB.Recordset")
StrSQL="Select * from SearchCondition"
Com.CommandText=StrSQL
Set Rs=Com.Execute
If Rs.RecordCount<>0 Then
Rs.Fields(0)=TestDate
Rs.Fields(1)=PumpTestID
Rs.Fields(2)=PumpModel
Rs.Fields(3)=TestStandard
Rs.Fields(4)=PumpID
StrSQL="Select * from Record where 检测日期='"& TestDate &"' and 检测编号='"& PumpTestID &"'and 泵型号='"& PumpModel &"'and 泵出厂编号='"& PumpID &"'"
Com.CommandText=StrSQL
Set Rs1=Com.Execute
If Rs1.RecordCount<7 Then
StrSQL = "delete From Record where 检测日期='"& TestDate &"' and 检测编号='"& PumpTestID &"'and 泵型号='"& PumpModel &"'and 泵出厂编号='"& PumpID &"'"
Com.CommandText = StrSQL
Com.Execute
HMIRuntime.Tags("CloseError").Write 1
Else
HMIRuntime.Tags("CloseError").Write 1
End If
Else
HMIRuntime.Tags("CloseError").Write 1
End If
Else
MsgBox ("检测正在进行，请停止试验后，'解除故障'"), vbOKOnly + vbExclamation, "手动检测"
End If
Set Rs=Nothing
Set Rs1=Nothing
Set Com=Nothing
Set Con=Nothing

End Sub