690 lines
34 KiB
VB.net
690 lines
34 KiB
VB.net
Imports System.IO
|
||
Imports System.Net
|
||
Imports System.Text
|
||
Imports Newtonsoft.Json
|
||
Imports UTS_Core.UTSModule
|
||
Imports UTS_Core.UTSModule.Project
|
||
Imports UTS_Core.UTSModule.Station
|
||
|
||
Public Class ProcessControl
|
||
|
||
Private _utsApp As UtsAppForm
|
||
Sub New(utsApp As UtsAppForm)
|
||
_utsApp = utsApp
|
||
End Sub
|
||
Private _isStartUsing As Boolean = False
|
||
|
||
'检测前一站是否测试
|
||
Public Function IsFrontStation(station As String, macstr As String) As Boolean
|
||
Dim macconfig As ContJsonPtr = AccessApi2("http://uts-data.com/CommonApi/Get_Sn_Info", "uts_zongqing", macstr, _utsApp.ProcessStation.ParentProject.Index.ToString)
|
||
Dim msstring As String = ""
|
||
If IsNothing(macconfig) Then Return False
|
||
If station.Equals("T1") Then
|
||
Return True
|
||
ElseIf station.Equals("T2") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") Then
|
||
msstring = CboProject_SelectedIndexChanged("T1")
|
||
MsgBox($"T1:{msstring} 未测试.")
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("T3") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") Then
|
||
msstring = CboProject_SelectedIndexChanged("T2")
|
||
MsgBox($"T2:{msstring} 未测试.")
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("T4") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") Then
|
||
msstring = CboProject_SelectedIndexChanged("T3")
|
||
MsgBox($"T3:{msstring} 未测试.")
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("T5") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") Then
|
||
msstring = CboProject_SelectedIndexChanged("T4")
|
||
MsgBox($"T4:{msstring} 未测试.")
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("T6") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T5) OrElse macconfig.Data.T5.Equals("0") Then
|
||
msstring = CboProject_SelectedIndexChanged("T5")
|
||
MsgBox($"T5:{msstring} 未测试.")
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("P1") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") Then
|
||
msstring = CboProject_SelectedIndexChanged("T3")
|
||
MsgBox($"T3:{msstring} 未测试.")
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("P2") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.P1) OrElse macconfig.Data.P1.Equals("0") Then
|
||
msstring = CboProject_SelectedIndexChanged("P1")
|
||
MsgBox($"P1:{msstring} 未测试.")
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("P3") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.P2) OrElse macconfig.Data.P2.Equals("0") Then
|
||
msstring = CboProject_SelectedIndexChanged("P2")
|
||
MsgBox($"P2:{msstring} 未测试.")
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("P4") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.P3) OrElse macconfig.Data.P3.Equals("0") Then
|
||
msstring = CboProject_SelectedIndexChanged("P3")
|
||
MsgBox($"P3:{msstring} 未测试.")
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("P5") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.P4) OrElse macconfig.Data.P4.Equals("0") Then
|
||
msstring = CboProject_SelectedIndexChanged("P4")
|
||
MsgBox($"P4:{msstring} 未测试.")
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("P6") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.P5) OrElse macconfig.Data.P5.Equals("0") Then
|
||
msstring = CboProject_SelectedIndexChanged("P5")
|
||
MsgBox($"P5:{msstring} 未测试.")
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
End If
|
||
End Function
|
||
|
||
Private Function CboProject_SelectedIndexChanged(thestation As String) As String
|
||
Dim projectInfo As New ProjectInfo(_utsApp.Account.UserId, _utsApp.Account.UserName, _utsApp.ProcessStation.ParentProject.Name, ProjectInfo.InitializeModeEnum.LocalDatabaseLoad)
|
||
|
||
If IsNothing(projectInfo) Then
|
||
Return "站位信息异常请联系开发者！"
|
||
End If
|
||
|
||
For Each station As ProcessStation In projectInfo.Station
|
||
If station.Name.Trim.Equals(thestation.Trim) Then
|
||
Return station.Description
|
||
End If
|
||
Next
|
||
|
||
Return "未找到该站位描述."
|
||
' UpdateProjectStation(_projectInfo.Station)
|
||
End Function
|
||
|
||
|
||
'检测本站前所有站是否测试
|
||
Public Function IsALLStation(station As String, macstr As String) As Boolean
|
||
If Not _isStartUsing Then Return True
|
||
Dim macconfig As ContJsonPtr = AccessApi2("http://uts-data.com/CommonApi/Get_Sn_Info", "uts_zongqing", macstr, _utsApp.ProcessStation.ParentProject.Index.ToString)
|
||
Dim msstring As String = ""
|
||
Dim asd As String = ""
|
||
If IsNothing(macconfig) Then Return False
|
||
If station.Equals("T1") Then
|
||
Return True
|
||
ElseIf station.Equals("T2") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") Then
|
||
msstring = CboProject_SelectedIndexChanged("T1")
|
||
MsgBox($"T1:{msstring} 未测试.")
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("T3") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") Then
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T1")
|
||
msstring = msstring & $"T1:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T2")
|
||
msstring = msstring & $"T2:{asd} 未测试." & vbCrLf
|
||
End If
|
||
MsgBox(msstring)
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("T4") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T1")
|
||
msstring = $"T1:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T2")
|
||
msstring = $"T2:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T3")
|
||
msstring = $"T3:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
MsgBox(msstring)
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("T5") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") Then
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T1")
|
||
msstring = $"T1:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T2")
|
||
msstring = $"T2:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T3")
|
||
msstring = $"T3:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T4")
|
||
msstring = $"T4:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
MsgBox(msstring)
|
||
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("T6") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T5) OrElse macconfig.Data.T5.Equals("0") Then
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T1")
|
||
msstring = msstring & $"T1:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T2")
|
||
msstring = msstring & $"T2:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T3")
|
||
msstring = $"T3:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T4")
|
||
msstring = msstring & $"T4:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T5) OrElse macconfig.Data.T5.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T5")
|
||
msstring = msstring & $"T5:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
MsgBox(msstring)
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("P1") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T5) OrElse macconfig.Data.T5.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T6) OrElse macconfig.Data.T6.Equals("0") Then
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T1")
|
||
msstring = msstring & $"T1:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T2")
|
||
msstring = msstring & $"T2:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T3")
|
||
msstring = msstring & $"T3:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T4")
|
||
msstring = msstring & $"T4:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T5) OrElse macconfig.Data.T5.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T5")
|
||
msstring = msstring & $"T5:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T6) OrElse macconfig.Data.T6.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T6")
|
||
msstring = msstring & $"T6:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
MsgBox(msstring)
|
||
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("P2") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T5) OrElse macconfig.Data.T5.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T6) OrElse macconfig.Data.T6.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.P1) OrElse macconfig.Data.P1.Equals("0") Then
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T1")
|
||
msstring = msstring & $"T1:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T2")
|
||
msstring = msstring & $"T2:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T3")
|
||
msstring = $"T3:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T4")
|
||
msstring = msstring & $"T4:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T5) OrElse macconfig.Data.T5.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T5")
|
||
msstring = msstring & $"T5:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T6) OrElse macconfig.Data.T6.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T6")
|
||
msstring = msstring & $"T6:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.P1) OrElse macconfig.Data.P1.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("P1")
|
||
msstring = msstring & $"P1:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
MsgBox(msstring)
|
||
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("P3") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T5) OrElse macconfig.Data.T5.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T6) OrElse macconfig.Data.T6.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.P1) OrElse macconfig.Data.P1.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.P2) OrElse macconfig.Data.P2.Equals("0") Then
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T1")
|
||
msstring = msstring & $"T1:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T2")
|
||
msstring = msstring & $"T2:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T3")
|
||
msstring = $"T3:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T4")
|
||
msstring = msstring & $"T4:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T5) OrElse macconfig.Data.T5.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T5")
|
||
msstring = msstring & $"T5:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T6) OrElse macconfig.Data.T6.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T6")
|
||
msstring = msstring & $"T6:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.P1) OrElse macconfig.Data.P1.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("P1")
|
||
msstring = msstring & $"P1:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.P2) OrElse macconfig.Data.P2.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("P2")
|
||
msstring = msstring & $"P2:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
|
||
MsgBox(msstring)
|
||
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("P4") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T5) OrElse macconfig.Data.T5.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T6) OrElse macconfig.Data.T6.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.P1) OrElse macconfig.Data.P1.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.P2) OrElse macconfig.Data.P2.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.P3) OrElse macconfig.Data.P3.Equals("0") Then
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T1")
|
||
msstring = msstring & $"T1:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T2")
|
||
msstring = msstring & $"T2:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T3")
|
||
msstring = $"T3:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T4")
|
||
msstring = msstring & $"T4:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T5) OrElse macconfig.Data.T5.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T5")
|
||
msstring = msstring & $"T5:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T6) OrElse macconfig.Data.T6.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T6")
|
||
msstring = msstring & $"T6:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.P1) OrElse macconfig.Data.P1.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("P1")
|
||
msstring = msstring & $"P1:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.P2) OrElse macconfig.Data.P2.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("P2")
|
||
msstring = msstring & $"P2:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.P3) OrElse macconfig.Data.P3.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("P3")
|
||
msstring = msstring & $"P3:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
MsgBox(msstring)
|
||
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("P5") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T5) OrElse macconfig.Data.T5.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T6) OrElse macconfig.Data.T6.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.P1) OrElse macconfig.Data.P1.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.P2) OrElse macconfig.Data.P2.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.P3) OrElse macconfig.Data.P3.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.P4) OrElse macconfig.Data.P4.Equals("0") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T1")
|
||
msstring = msstring & $"T1:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T2")
|
||
msstring = msstring & $"T2:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T3")
|
||
msstring = $"T3:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T4")
|
||
msstring = msstring & $"T4:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T5) OrElse macconfig.Data.T5.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T5")
|
||
msstring = msstring & $"T5:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T6) OrElse macconfig.Data.T6.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T6")
|
||
msstring = msstring & $"T6:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.P1) OrElse macconfig.Data.P1.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("P1")
|
||
msstring = msstring & $"P1:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.P2) OrElse macconfig.Data.P2.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("P2")
|
||
msstring = msstring & $"P2:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.P3) OrElse macconfig.Data.P3.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("P3")
|
||
msstring = msstring & $"P3:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.P4) OrElse macconfig.Data.P4.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("P4")
|
||
msstring = msstring & $"P4:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
MsgBox(msstring)
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
ElseIf station.Equals("P6") Then
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T5) OrElse macconfig.Data.T5.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.T6) OrElse macconfig.Data.T6.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.P1) OrElse macconfig.Data.P1.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.P2) OrElse macconfig.Data.P2.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.P3) OrElse macconfig.Data.P3.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.P4) OrElse macconfig.Data.P4.Equals("0") OrElse
|
||
String.IsNullOrEmpty(macconfig.Data.P5) OrElse macconfig.Data.P5.Equals("0") Then
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T1) OrElse macconfig.Data.T1.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T1")
|
||
msstring = msstring & $"T1:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
If String.IsNullOrEmpty(macconfig.Data.T2) OrElse macconfig.Data.T2.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T2")
|
||
msstring = msstring & $"T2:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T3) OrElse macconfig.Data.T3.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T3")
|
||
msstring = $"T3:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T4) OrElse macconfig.Data.T4.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T4")
|
||
msstring = msstring & $"T4:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T5) OrElse macconfig.Data.T5.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T5")
|
||
msstring = msstring & $"T5:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.T6) OrElse macconfig.Data.T6.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("T6")
|
||
msstring = msstring & $"T6:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.P1) OrElse macconfig.Data.P1.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("P1")
|
||
msstring = msstring & $"P1:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.P2) OrElse macconfig.Data.P2.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("P2")
|
||
msstring = msstring & $"P2:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.P3) OrElse macconfig.Data.P3.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("P3")
|
||
msstring = msstring & $"P3:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.P4) OrElse macconfig.Data.P4.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("P4")
|
||
msstring = msstring & $"P4:{asd} 未测试." & vbCrLf
|
||
End If
|
||
If String.IsNullOrEmpty(macconfig.Data.P5) OrElse macconfig.Data.P5.Equals("0") Then
|
||
asd = CboProject_SelectedIndexChanged("P5")
|
||
msstring = msstring & $"P5:{asd} 未测试." & vbCrLf
|
||
End If
|
||
|
||
MsgBox(msstring)
|
||
|
||
Return False
|
||
Else
|
||
Return True
|
||
End If
|
||
End If
|
||
End Function
|
||
|
||
|
||
|
||
'本站置位
|
||
|
||
Public Sub SetStationflag(thestation As String, macstr As String, isok As String)
|
||
If Not _isStartUsing Then Return
|
||
Dim dic As New Dictionary(Of String, String)
|
||
|
||
dic.Add("Barcode"， macstr) '称重值
|
||
dic.Add(thestation， isok)
|
||
'dic.Add("Mars_UnitWeigth"， weightval)
|
||
dic.Add("UpdateTime"， $"{Now:yyyy-MM-dd HH:mm:ss}")
|
||
Dim jsonclass As ContJsonPtr = AccessApi2("http://uts-data.com/CommonApi/Combind_Sn_Info", "uts_zongqing", "Barcode", _utsApp.ProcessStation.ParentProject.Index.ToString， dic)
|
||
|
||
|
||
End Sub
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
Public Function AccessApi2(uart As String, dbName As String, theKey As String， ProjectID As String， Optional dic As Dictionary(Of String, String) = Nothing) As ContJsonPtr
|
||
|
||
Dim jsonString As String = String.Empty
|
||
|
||
Dim ptr As String = $"Pwd=actop00803&DBName={dbName}&Key={theKey}"
|
||
If Not IsNothing（dic） Then
|
||
ptr = ptr & $"&JsonData={JsonConvert.SerializeObject(dic)}"
|
||
End If
|
||
ptr = ptr & $"&ProjectID={ProjectID}"
|
||
'/http://uts-data.com/CommonApi/Combind_Sn_Info? Pwd%3D%26*$@%23235%26DBName%3Duts_zongqing%26Key%3DBarcode%26Barcode%3D1
|
||
Try
|
||
jsonString = PostData(uart, ptr)
|
||
Console.WriteLine(jsonString)
|
||
|
||
If jsonString = Nothing Then
|
||
Return Nothing
|
||
End If
|
||
Dim login As ContJsonPtr = JsonConvert.DeserializeObject(Of ContJsonPtr)(jsonString)
|
||
If login.Message.Contains（"成功"） Then
|
||
Return login
|
||
Else
|
||
Return Nothing
|
||
End If
|
||
|
||
Catch ex As Exception
|
||
MsgBox($"{ex.Message}！盒码获取失败请联系管理员")
|
||
Return Nothing
|
||
End Try
|
||
|
||
End Function
|
||
|
||
Public Shared Function PostData(ByVal url As String, ByVal data As String) As String
|
||
|
||
ServicePointManager.Expect100Continue = False
|
||
Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
|
||
'//Post请求方式
|
||
request.Method = "post"
|
||
|
||
'内容类型
|
||
request.ContentType = "application/x-www-form-urlencoded"
|
||
'将URL编码后的字符串转化为字节
|
||
Dim encoding As New UTF8Encoding()
|
||
Dim bys As Byte() = encoding.GetBytes(data)
|
||
'设置请求的 ContentLength
|
||
request.ContentLength = bys.Length
|
||
'获得请 求流
|
||
Dim newStream As Stream = request.GetRequestStream()
|
||
newStream.Write(bys, 0, bys.Length)
|
||
newStream.Close()
|
||
'获得响应流
|
||
Dim sr As StreamReader = New StreamReader(request.GetResponse().GetResponseStream)
|
||
Return sr.ReadToEnd
|
||
End Function
|
||
|
||
|
||
End Class
|
||
|
||
Public Class ContJsonPtr
|
||
Public Data As Contjsonrusil
|
||
Public Message As String
|
||
End Class
|
||
Public Class Contjsonrusil
|
||
Public ID As String
|
||
|
||
Public ProjectID As String
|
||
Public Barcode As String
|
||
Public ImportDateTime As Date
|
||
Public UpdateTime As Date
|
||
Public Mars_ColorBox_BarCode As String
|
||
Public Mars_OutBoxCode As String
|
||
Public Mars_MacCodeP As String
|
||
Public Mars_UnitWeigth As String
|
||
Public Label_Print_Cnt As String
|
||
|
||
Public T1 As String
|
||
Public T2 As String
|
||
Public T3 As String
|
||
Public T4 As String
|
||
Public T5 As String
|
||
Public T6 As String
|
||
|
||
Public P1 As String
|
||
Public P2 As String
|
||
Public P3 As String
|
||
Public P4 As String
|
||
Public P5 As String
|
||
Public P6 As String
|
||
|
||
End Class
|
||
|
||
|