第一次提交至Git
This commit is contained in:
689
SQLliteReading/AUTS_Package/ZQ/Mars/P2-称重/ProcessControl.vb
Normal file
689
SQLliteReading/AUTS_Package/ZQ/Mars/P2-称重/ProcessControl.vb
Normal file
@@ -0,0 +1,689 @@
|
||||
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.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
|
||||
|
||||
|
||||
428
SQLliteReading/AUTS_Package/ZQ/Mars/P2-称重/ZQ_Mars_P2_FrmStationPlan.Designer.vb
generated
Normal file
428
SQLliteReading/AUTS_Package/ZQ/Mars/P2-称重/ZQ_Mars_P2_FrmStationPlan.Designer.vb
generated
Normal file
@@ -0,0 +1,428 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class ZQ_Mars_T2_FrmStationPlan
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ZQ_Mars_T2_FrmStationPlan))
|
||||
Me.MsiCopyNode = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MsiNodePaste = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.MsiUndo = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MsiRedo = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.MsiSaveNodeFile = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MsiLoadNodeFile = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugStart = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.TsBtnOpen = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TsBtnSave = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsBtnLoad = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TsBtnSaveAs = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.MsiCutNode = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.CmsPlanGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsmiDebugEnd = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugStep = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugContinue = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsmiDebugSetup = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugMain = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugPass = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugFail = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugCleanup = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsmiDebugNode = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugNodeBegin = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.StuMain = New System.Windows.Forms.StatusStrip()
|
||||
Me.DlgOpenFile = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.LblDesc = New System.Windows.Forms.Label()
|
||||
Me.GrdStationPlan = New FlexCell.Grid()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.CmsPlanGrid.SuspendLayout()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||
Me.SplitContainer1.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MsiCopyNode
|
||||
'
|
||||
Me.MsiCopyNode.Enabled = False
|
||||
Me.MsiCopyNode.Name = "MsiCopyNode"
|
||||
Me.MsiCopyNode.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiCopyNode.Text = "复制"
|
||||
'
|
||||
'MsiNodePaste
|
||||
'
|
||||
Me.MsiNodePaste.Enabled = False
|
||||
Me.MsiNodePaste.Name = "MsiNodePaste"
|
||||
Me.MsiNodePaste.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiNodePaste.Text = "粘贴"
|
||||
'
|
||||
'ToolStripSeparator5
|
||||
'
|
||||
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
|
||||
Me.ToolStripSeparator5.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'MsiUndo
|
||||
'
|
||||
Me.MsiUndo.Enabled = False
|
||||
Me.MsiUndo.Name = "MsiUndo"
|
||||
Me.MsiUndo.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiUndo.Text = "撤销"
|
||||
'
|
||||
'MsiRedo
|
||||
'
|
||||
Me.MsiRedo.Enabled = False
|
||||
Me.MsiRedo.Name = "MsiRedo"
|
||||
Me.MsiRedo.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiRedo.Text = "重做"
|
||||
'
|
||||
'ToolStripSeparator6
|
||||
'
|
||||
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
|
||||
Me.ToolStripSeparator6.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'MsiSaveNodeFile
|
||||
'
|
||||
Me.MsiSaveNodeFile.Name = "MsiSaveNodeFile"
|
||||
Me.MsiSaveNodeFile.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiSaveNodeFile.Text = "另存为节点文件"
|
||||
'
|
||||
'MsiLoadNodeFile
|
||||
'
|
||||
Me.MsiLoadNodeFile.Name = "MsiLoadNodeFile"
|
||||
Me.MsiLoadNodeFile.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiLoadNodeFile.Text = "加载节点文件"
|
||||
'
|
||||
'TsmiDebugStart
|
||||
'
|
||||
Me.TsmiDebugStart.Name = "TsmiDebugStart"
|
||||
Me.TsmiDebugStart.ShortcutKeys = System.Windows.Forms.Keys.F1
|
||||
Me.TsmiDebugStart.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugStart.Text = "开始执行"
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GroupBox1.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(536, 561)
|
||||
Me.GroupBox1.TabIndex = 0
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "常规预览"
|
||||
'
|
||||
'TsBtnOpen
|
||||
'
|
||||
Me.TsBtnOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TsBtnOpen.Image = CType(resources.GetObject("TsBtnOpen.Image"), System.Drawing.Image)
|
||||
Me.TsBtnOpen.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnOpen.Name = "TsBtnOpen"
|
||||
Me.TsBtnOpen.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnOpen.Text = "打开"
|
||||
Me.TsBtnOpen.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
'
|
||||
'TsBtnSave
|
||||
'
|
||||
Me.TsBtnSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TsBtnSave.Image = CType(resources.GetObject("TsBtnSave.Image"), System.Drawing.Image)
|
||||
Me.TsBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnSave.Name = "TsBtnSave"
|
||||
Me.TsBtnSave.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnSave.Text = "保存"
|
||||
Me.TsBtnSave.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
'
|
||||
'ToolStripSeparator4
|
||||
'
|
||||
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
|
||||
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 36)
|
||||
'
|
||||
'TsBtnLoad
|
||||
'
|
||||
Me.TsBtnLoad.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TsBtnLoad.Image = CType(resources.GetObject("TsBtnLoad.Image"), System.Drawing.Image)
|
||||
Me.TsBtnLoad.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnLoad.Name = "TsBtnLoad"
|
||||
Me.TsBtnLoad.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnLoad.Text = "重载"
|
||||
Me.TsBtnLoad.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
'
|
||||
'TsBtnSaveAs
|
||||
'
|
||||
Me.TsBtnSaveAs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.TsBtnSaveAs.Image = CType(resources.GetObject("TsBtnSaveAs.Image"), System.Drawing.Image)
|
||||
Me.TsBtnSaveAs.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnSaveAs.Name = "TsBtnSaveAs"
|
||||
Me.TsBtnSaveAs.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnSaveAs.Text = "导出"
|
||||
Me.TsBtnSaveAs.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
'
|
||||
'ToolStripSeparator3
|
||||
'
|
||||
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
|
||||
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 36)
|
||||
'
|
||||
'MsiCutNode
|
||||
'
|
||||
Me.MsiCutNode.Enabled = False
|
||||
Me.MsiCutNode.Name = "MsiCutNode"
|
||||
Me.MsiCutNode.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiCutNode.Text = "剪切"
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsBtnOpen, Me.TsBtnSave, Me.ToolStripSeparator4, Me.TsBtnLoad, Me.TsBtnSaveAs, Me.ToolStripSeparator3})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(984, 36)
|
||||
Me.ToolStrip1.TabIndex = 7
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'CmsPlanGrid
|
||||
'
|
||||
Me.CmsPlanGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MsiCopyNode, Me.MsiCutNode, Me.MsiNodePaste, Me.ToolStripSeparator5, Me.MsiUndo, Me.MsiRedo, Me.ToolStripSeparator6, Me.MsiSaveNodeFile, Me.MsiLoadNodeFile, Me.ToolStripSeparator7, Me.TsmiDebugStart, Me.TsmiDebugEnd, Me.TsmiDebugStep, Me.TsmiDebugContinue, Me.ToolStripSeparator8, Me.TsmiDebugSetup, Me.TsmiDebugMain, Me.TsmiDebugPass, Me.TsmiDebugFail, Me.TsmiDebugCleanup, Me.ToolStripSeparator9, Me.TsmiDebugNode, Me.TsmiDebugNodeBegin})
|
||||
Me.CmsPlanGrid.Name = "CmsMain"
|
||||
Me.CmsPlanGrid.Size = New System.Drawing.Size(193, 430)
|
||||
'
|
||||
'ToolStripSeparator7
|
||||
'
|
||||
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
|
||||
Me.ToolStripSeparator7.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'TsmiDebugEnd
|
||||
'
|
||||
Me.TsmiDebugEnd.Name = "TsmiDebugEnd"
|
||||
Me.TsmiDebugEnd.ShortcutKeys = System.Windows.Forms.Keys.F2
|
||||
Me.TsmiDebugEnd.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugEnd.Text = "退出执行"
|
||||
'
|
||||
'TsmiDebugStep
|
||||
'
|
||||
Me.TsmiDebugStep.Name = "TsmiDebugStep"
|
||||
Me.TsmiDebugStep.ShortcutKeys = System.Windows.Forms.Keys.F3
|
||||
Me.TsmiDebugStep.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugStep.Text = "单步执行"
|
||||
'
|
||||
'TsmiDebugContinue
|
||||
'
|
||||
Me.TsmiDebugContinue.Name = "TsmiDebugContinue"
|
||||
Me.TsmiDebugContinue.ShortcutKeys = System.Windows.Forms.Keys.F4
|
||||
Me.TsmiDebugContinue.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugContinue.Text = "继续执行"
|
||||
'
|
||||
'ToolStripSeparator8
|
||||
'
|
||||
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
|
||||
Me.ToolStripSeparator8.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'TsmiDebugSetup
|
||||
'
|
||||
Me.TsmiDebugSetup.Name = "TsmiDebugSetup"
|
||||
Me.TsmiDebugSetup.ShortcutKeys = System.Windows.Forms.Keys.F5
|
||||
Me.TsmiDebugSetup.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugSetup.Text = "Setup模块执行"
|
||||
'
|
||||
'TsmiDebugMain
|
||||
'
|
||||
Me.TsmiDebugMain.Name = "TsmiDebugMain"
|
||||
Me.TsmiDebugMain.ShortcutKeys = System.Windows.Forms.Keys.F6
|
||||
Me.TsmiDebugMain.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugMain.Text = "Main模块执行"
|
||||
'
|
||||
'TsmiDebugPass
|
||||
'
|
||||
Me.TsmiDebugPass.Name = "TsmiDebugPass"
|
||||
Me.TsmiDebugPass.ShortcutKeys = System.Windows.Forms.Keys.F7
|
||||
Me.TsmiDebugPass.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugPass.Text = "Pass模块执行"
|
||||
'
|
||||
'TsmiDebugFail
|
||||
'
|
||||
Me.TsmiDebugFail.Name = "TsmiDebugFail"
|
||||
Me.TsmiDebugFail.ShortcutKeys = System.Windows.Forms.Keys.F8
|
||||
Me.TsmiDebugFail.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugFail.Text = "Fail模块执行"
|
||||
'
|
||||
'TsmiDebugCleanup
|
||||
'
|
||||
Me.TsmiDebugCleanup.Name = "TsmiDebugCleanup"
|
||||
Me.TsmiDebugCleanup.ShortcutKeys = System.Windows.Forms.Keys.F9
|
||||
Me.TsmiDebugCleanup.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugCleanup.Text = "Cleanup模块执行"
|
||||
'
|
||||
'ToolStripSeparator9
|
||||
'
|
||||
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
|
||||
Me.ToolStripSeparator9.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'TsmiDebugNode
|
||||
'
|
||||
Me.TsmiDebugNode.Name = "TsmiDebugNode"
|
||||
Me.TsmiDebugNode.ShortcutKeys = System.Windows.Forms.Keys.F10
|
||||
Me.TsmiDebugNode.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugNode.Text = "节点测试"
|
||||
'
|
||||
'TsmiDebugNodeBegin
|
||||
'
|
||||
Me.TsmiDebugNodeBegin.Name = "TsmiDebugNodeBegin"
|
||||
Me.TsmiDebugNodeBegin.ShortcutKeys = System.Windows.Forms.Keys.F11
|
||||
Me.TsmiDebugNodeBegin.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugNodeBegin.Text = "节点开始测试"
|
||||
'
|
||||
'StuMain
|
||||
'
|
||||
Me.StuMain.Location = New System.Drawing.Point(0, 539)
|
||||
Me.StuMain.Name = "StuMain"
|
||||
Me.StuMain.Size = New System.Drawing.Size(984, 22)
|
||||
Me.StuMain.TabIndex = 8
|
||||
Me.StuMain.Text = "StatusStrip1"
|
||||
'
|
||||
'DlgOpenFile
|
||||
'
|
||||
Me.DlgOpenFile.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'SplitContainer1
|
||||
'
|
||||
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer1.Name = "SplitContainer1"
|
||||
'
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.GroupBox2)
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(984, 561)
|
||||
Me.SplitContainer1.SplitterDistance = 444
|
||||
Me.SplitContainer1.TabIndex = 9
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.LblDesc)
|
||||
Me.GroupBox2.Controls.Add(Me.GrdStationPlan)
|
||||
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GroupBox2.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(444, 561)
|
||||
Me.GroupBox2.TabIndex = 0
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "流程参数"
|
||||
'
|
||||
'LblDesc
|
||||
'
|
||||
Me.LblDesc.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.LblDesc.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.LblDesc.Location = New System.Drawing.Point(3, 497)
|
||||
Me.LblDesc.Name = "LblDesc"
|
||||
Me.LblDesc.Size = New System.Drawing.Size(438, 61)
|
||||
Me.LblDesc.TabIndex = 6
|
||||
'
|
||||
'GrdStationPlan
|
||||
'
|
||||
Me.GrdStationPlan.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.GrdStationPlan.BorderStyle = FlexCell.BorderStyleEnum.None
|
||||
Me.GrdStationPlan.CheckedImage = Nothing
|
||||
Me.GrdStationPlan.ContextMenuStrip = Me.CmsPlanGrid
|
||||
Me.GrdStationPlan.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||
Me.GrdStationPlan.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.GrdStationPlan.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.GrdStationPlan.Location = New System.Drawing.Point(0, 24)
|
||||
Me.GrdStationPlan.Name = "GrdStationPlan"
|
||||
Me.GrdStationPlan.Size = New System.Drawing.Size(441, 470)
|
||||
Me.GrdStationPlan.TabIndex = 4
|
||||
Me.GrdStationPlan.UncheckedImage = Nothing
|
||||
'
|
||||
'ZQ_Mars_T2_FrmStationPlan
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(984, 561)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.StuMain)
|
||||
Me.Controls.Add(Me.SplitContainer1)
|
||||
Me.Name = "ZQ_Mars_T2_FrmStationPlan"
|
||||
Me.Text = "ZQ_Mars_P2_FrmStationPlan"
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.CmsPlanGrid.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer1.ResumeLayout(False)
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents MsiCopyNode As ToolStripMenuItem
|
||||
Friend WithEvents MsiNodePaste As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
|
||||
Friend WithEvents MsiUndo As ToolStripMenuItem
|
||||
Friend WithEvents MsiRedo As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
|
||||
Friend WithEvents MsiSaveNodeFile As ToolStripMenuItem
|
||||
Friend WithEvents MsiLoadNodeFile As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugStart As ToolStripMenuItem
|
||||
Friend WithEvents GroupBox1 As GroupBox
|
||||
Friend WithEvents TsBtnOpen As ToolStripButton
|
||||
Friend WithEvents TsBtnSave As ToolStripButton
|
||||
Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
|
||||
Friend WithEvents TsBtnLoad As ToolStripButton
|
||||
Friend WithEvents TsBtnSaveAs As ToolStripButton
|
||||
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
|
||||
Friend WithEvents MsiCutNode As ToolStripMenuItem
|
||||
Friend WithEvents ToolStrip1 As ToolStrip
|
||||
Friend WithEvents CmsPlanGrid As ContextMenuStrip
|
||||
Friend WithEvents ToolStripSeparator7 As ToolStripSeparator
|
||||
Friend WithEvents TsmiDebugEnd As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugStep As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugContinue As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator8 As ToolStripSeparator
|
||||
Friend WithEvents TsmiDebugSetup As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugMain As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugPass As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugFail As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugCleanup As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator9 As ToolStripSeparator
|
||||
Friend WithEvents TsmiDebugNode As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugNodeBegin As ToolStripMenuItem
|
||||
Friend WithEvents StuMain As StatusStrip
|
||||
Friend WithEvents DlgOpenFile As OpenFileDialog
|
||||
Friend WithEvents SplitContainer1 As SplitContainer
|
||||
Friend WithEvents GroupBox2 As GroupBox
|
||||
Friend WithEvents LblDesc As Label
|
||||
Friend WithEvents GrdStationPlan As FlexCell.Grid
|
||||
End Class
|
||||
@@ -0,0 +1,185 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="TsBtnOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHOSURBVGhD1ZnLSgRBFEMbFN3rUv03H1v160T/wDfot+jo
|
||||
VhNk4FqUk77dqRrnQGAgnZt+TS26hhnsQpfQPbSAvsziTM6+gNhl5QB6hWrFLfQCsdMC70bPk1+KF2F5
|
||||
EnxtagU9dA7N5gGKQ68g2+MNHELXUOy6g2bzDsWhLGrFERS73qDZxIFUa+x99oGCyX1b0OnPz19MHjiR
|
||||
SX370DNUC0waOIN03za0PPlaIA6r+W7SfWfQqkD0ar6bdN8TtCoQvZrvJt33Ca0KRK/mu0n3qYDy3aT7
|
||||
VED5btJ9KqB8N+k+FVC+m3SfCijfTbpPBZTvJt2nAsp3k+5TAeW7SfepgPLdpPtUQPlu0n0qoHw36T4V
|
||||
UL6bdJ8KKN9Nuk8FlO8m3acCyneT7lMB5btJ96mA8t2k+1RA+W7SfSqgfDfpPhVQvpt0nwr8+4+7MUCV
|
||||
lJ/X+Qm8xUXw5G+g2DXq83oMUCXcsyqP6aVRGxxlqITbPNzuKY9rLXbuQJIyWIM7Mj0vIrXJV4b/gneD
|
||||
j5TvZfnHdogzbyF2jLrzS8pBG8fGX0DPdb4Jvdb5ZqxznT+BZrOudf4R4saihd7rPE9+D7LSep3/gPh/
|
||||
O4a4sTiBYfgGl13a4+npcwkAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TsBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHqSURBVGhD7Zm9Tt1AEEYvNDxCArwSXZDSpAwiFQ+HEA2Q
|
||||
dPmpeAl4AaALEnxTXDSate/xeHcvkeIjnerzN97F9rWEVwsLC6PsyFP5Rz7Jl07ey0+yKQfyuxw6YQ//
|
||||
ys+yCbvyhxw6UU+f5RdZzTc5dIJt2ORK2D3vh17ID3KNz8wabLG2aD+vehOP0g/8KD0+M2tpvgk/yIxQ
|
||||
PodjGTcx+5nwQ8wI5XNptgk/wIxQXkOTTfiyGaG8lupN+KIZiflc7Q18JIcYe7AnvbF9yYzEvMY7OcbQ
|
||||
JjYd/4YvmBEbEo+ZKy3INhE7CBXsstvlj8dl3XQLeWIPSRc6k15PutCZ9HrShc6k15MudCa9nnShM+n1
|
||||
pAudSa+HCq1+RqNjP6vxOIQKLV9k0aEXWzwGoULMWxuhvIAKMW9thPICKlCeheZRXkAFyrPQPMoLqEB5
|
||||
FppHeQEVKM9C8ygvoALlWWge5QVUoDwLzaO8gAqUZ6F5lBdQgfIsNI/yAipQnoXmUV5ABcqz0DzKCx6k
|
||||
L/j/TBs+M2vZNM8+tPjM1ob8lr50LvflGp+ZtYzNs3NeSp/9ksiZ9KV/ya8S2ZO3cmjAe3ol7cPjJA7l
|
||||
jRwa9B5eS38bT8J2eyJ/yvjVZhvaA2vntttm8l9+YeH/YrV6BfNWMy9RUhK1AAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="TsBtnLoad.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHOSURBVGhD1ZnLSgRBFEMbFN3rUv03H1v160T/wDfot+jo
|
||||
VhNk4FqUk77dqRrnQGAgnZt+TS26hhnsQpfQPbSAvsziTM6+gNhl5QB6hWrFLfQCsdMC70bPk1+KF2F5
|
||||
EnxtagU9dA7N5gGKQ68g2+MNHELXUOy6g2bzDsWhLGrFERS73qDZxIFUa+x99oGCyX1b0OnPz19MHjiR
|
||||
SX370DNUC0waOIN03za0PPlaIA6r+W7SfWfQqkD0ar6bdN8TtCoQvZrvJt33Ca0KRK/mu0n3qYDy3aT7
|
||||
VED5btJ9KqB8N+k+FVC+m3SfCijfTbpPBZTvJt2nAsp3k+5TAeW7SfepgPLdpPtUQPlu0n0qoHw36T4V
|
||||
UL6bdJ8KKN9Nuk8FlO8m3acCyneT7lMB5btJ96mA8t2k+1RA+W7SfSqgfDfpPhVQvpt0nwr8+4+7MUCV
|
||||
lJ/X+Qm8xUXw5G+g2DXq83oMUCXcsyqP6aVRGxxlqITbPNzuKY9rLXbuQJIyWIM7Mj0vIrXJV4b/gneD
|
||||
j5TvZfnHdogzbyF2jLrzS8pBG8fGX0DPdb4Jvdb5ZqxznT+BZrOudf4R4saihd7rPE9+D7LSep3/gPh/
|
||||
O4a4sTiBYfgGl13a4+npcwkAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TsBtnSaveAs.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADQSURBVEhL5ZYxDgFBGEbnCE4gjuAcCnEER3AER9BpVWqV
|
||||
QqcTlSOIUkVFx/fWSMYsyfx/FCu+5CX7ZWfmTbKT3Q1J+mLnYCmKMhQ3sRKLQg5iL4ryFHSqVpaZ+H3B
|
||||
UQwy2qIWr4A5OaxVi0fATrsJPfFVQR7m/pGA42eBmARc8yrgpMxj38aewhjuEbNg/LgMLUEfVe01jGmu
|
||||
4CpO4hz7JfYUxrgFGzER09jXsacwxi34/WdggZgE7MwCMQk8aYbA8tHPYe5Hgfe35R2spYRwB61XwcSY
|
||||
NxMjAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>230, 55</value>
|
||||
</metadata>
|
||||
<metadata name="CmsPlanGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>342, 55</value>
|
||||
</metadata>
|
||||
<metadata name="StuMain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>469, 55</value>
|
||||
</metadata>
|
||||
<metadata name="DlgOpenFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>570, 55</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,492 @@
|
||||
Imports UTS_Core.DebugLog
|
||||
Imports UTS_Core.UTSModule
|
||||
Imports UTS_Core.UTSModule.Station
|
||||
Imports UTS_Core.UTSModule.Station.StationPackagePlan
|
||||
Imports UTS_Core.UTSModule.Test.StatusMonitor
|
||||
Public Class ZQ_Mars_T2_FrmStationPlan
|
||||
|
||||
|
||||
' Implements IProcessFileChanged
|
||||
Implements IProcessStation
|
||||
Implements IProductionLine
|
||||
|
||||
Private _utsApp As UtsAppForm
|
||||
Private _stationPlan As StationPackagePlan
|
||||
|
||||
Public Sub ShowForm(parentControl As Control)
|
||||
FormBorderStyle = FormBorderStyle.None
|
||||
TopLevel = False
|
||||
Dock = DockStyle.Fill
|
||||
Parent = parentControl
|
||||
|
||||
Show()
|
||||
End Sub
|
||||
|
||||
Public Sub utsbctfilechanged（）
|
||||
'For Each observer As IProcessStation In _observerList
|
||||
' observer.StationChanged()
|
||||
' Next
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 站位变更代码
|
||||
''' </summary>
|
||||
Public Sub Station_Changed() Implements IProcessStation.StationChanged
|
||||
ApplicationLog.WriteInfoLog($"编辑页面站位变更中，PN：{_utsApp.ProcessStation.ParentProject.Name} - SN:{_utsApp.ProcessStation.Name} - TP:{_utsApp.ProcessStation.Packet.Name}!")
|
||||
|
||||
Try
|
||||
_stationPlan = CType(_utsApp.ProcessStation.Packet.StationPlan, StationPackagePlan)
|
||||
Catch ex As Exception
|
||||
MsgBox($"加载项目流程失败,{ex.Message}")
|
||||
End Try
|
||||
|
||||
InitGrid(_stationPlan)
|
||||
|
||||
ApplicationLog.WriteInfoLog($"编辑页面站位变更完成。")
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 产线变化代码
|
||||
''' </summary>
|
||||
Public Sub ProductionLineChanged() Implements IProductionLine.ProductionLineChanged
|
||||
ApplicationLog.WriteInfoLog($"编辑页面生产线变更中。")
|
||||
|
||||
|
||||
ApplicationLog.WriteInfoLog($"编辑页面生产线变更完成。")
|
||||
End Sub
|
||||
|
||||
Private Sub FrmStationPlan_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
ApplicationLog.WriteInfoLog($"编辑页面加载中。")
|
||||
|
||||
'初始化UTS窗体信息,失败则关闭窗体
|
||||
If InitializeUtsApp() = False Then Return
|
||||
|
||||
'初始化窗体页面
|
||||
InitializeForm()
|
||||
|
||||
ApplicationLog.WriteInfoLog($"编辑页面加载完成。")
|
||||
End Sub
|
||||
|
||||
Private Function InitializeUtsApp() As Boolean
|
||||
_utsApp = UtsAppForm.CreateSingleton()
|
||||
_utsApp.AddStatisticsObserver(Me)
|
||||
|
||||
Try
|
||||
If _utsApp.IsInitialized = False Then
|
||||
_utsApp.Initialize(ProcessStation.StationTypeEnum.Package) 'Todo:可根据需要限定可选站位
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ApplicationLog.WriteErrorLog($"初始化窗体失败,原因：{ex.Message}!")
|
||||
|
||||
MsgBox($"初始化窗体失败,原因：{ex.Message}")
|
||||
Close()
|
||||
Return False
|
||||
End Try
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Sub InitializeForm()
|
||||
InitGrid(_stationPlan)
|
||||
End Sub
|
||||
|
||||
Private Sub TsBtnOpen_Click(sender As Object, e As EventArgs) Handles TsBtnOpen.Click
|
||||
Using xml As New OpenFileDialog
|
||||
xml.Filter = $"流程文件(*.xml)|*.xml"
|
||||
|
||||
If xml.ShowDialog() = DialogResult.OK Then
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程正在加载{xml.FileName}")
|
||||
LoadTreeViewFormXml(xml.FileName)
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程加载完成。")
|
||||
End If
|
||||
End Using
|
||||
End Sub
|
||||
|
||||
Private Sub TsBtnLoad_Click(sender As Object, e As EventArgs) Handles TsBtnLoad.Click
|
||||
If MsgBox("重载会将流程返回为上一次保存的流程状态,是否继续", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程重载中。")
|
||||
LoadTreeViewFormXml()
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程重载完成。")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TsBtnSave_Click(sender As Object, e As EventArgs) Handles TsBtnSave.Click
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程保存中。")
|
||||
UpdateGrid(_stationPlan)
|
||||
|
||||
ExportTreeViewToXml()
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程保存完成。")
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 读取XML,加载树状视图
|
||||
''' </summary>
|
||||
Private Sub LoadTreeViewFormXml()
|
||||
Dim revStationPlanPath As String = $"{UtsPath.GetStationPacketTestPlanDirPath(_stationPlan.ParentPacket.Name)}\Main.xml"
|
||||
|
||||
Try
|
||||
_stationPlan.LoadFile(revStationPlanPath)
|
||||
InitGrid(_stationPlan)
|
||||
|
||||
If StationEditStatusMonitor.StationEditStatus <> StationEditStatusMonitor.StationEditStatusEnum.Saved Then
|
||||
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Saved
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ApplicationLog.WriteErrorLog($"加载测试站流程发生错误,原因：{ex.Message}")
|
||||
MsgBox($"加载测试站流程发生错误,原因：{ex.Message}")
|
||||
_stationPlan.CreateStationPlan()
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 读取XML,加载树状视图
|
||||
''' </summary>
|
||||
Private Sub LoadTreeViewFormXml(revStationPlanPath As String)
|
||||
Try
|
||||
_stationPlan.LoadFile(revStationPlanPath)
|
||||
InitGrid(_stationPlan)
|
||||
|
||||
If StationEditStatusMonitor.StationEditStatus <> StationEditStatusMonitor.StationEditStatusEnum.Saved Then
|
||||
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Saved
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ApplicationLog.WriteErrorLog($"加载测试站流程发生错误,原因：{ex.Message}")
|
||||
MsgBox($"加载测试站流程发生错误,原因：{ex.Message}")
|
||||
_stationPlan.CreateStationPlan()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 将树状视图导出为Xml
|
||||
''' </summary>
|
||||
Private Sub ExportTreeViewToXml()
|
||||
'保存至项目文件
|
||||
Dim revStationPlanPath As String = $"{UtsPath.GetStationPacketTestPlanDirPath(_stationPlan.ParentPacket.Name)}\Main.xml"
|
||||
_stationPlan.SaveFile(revStationPlanPath)
|
||||
|
||||
'备份至临时文件
|
||||
Dim tempPath As String = $"{UtsPath.StationDesignDirPath()}\Main.xml"
|
||||
_stationPlan.SaveFile(tempPath)
|
||||
|
||||
If StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed Then
|
||||
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Saved
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TsBtnSaveAs_Click(sender As Object, e As EventArgs) Handles TsBtnSaveAs.Click
|
||||
Using dlg As New SaveFileDialog
|
||||
dlg.Filter = "Excel 文件(*.xls)|*.xls|CSV 文件(*.csv)|*.csv|PDF 文件(*.pdf)|*.pdf"
|
||||
dlg.AddExtension = True
|
||||
If dlg.ShowDialog <> DialogResult.OK Then Return
|
||||
Cursor = Cursors.WaitCursor
|
||||
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程导出中。")
|
||||
Try
|
||||
Select Case dlg.FilterIndex
|
||||
Case 1
|
||||
GrdStationPlan.ExportToExcel(dlg.FileName, True, True)
|
||||
Case 2
|
||||
GrdStationPlan.ExportToCSV(dlg.FileName, True, True)
|
||||
Case 3
|
||||
GrdStationPlan.ExportToPDF(dlg.FileName)
|
||||
End Select
|
||||
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程导出完成。")
|
||||
Catch ex As Exception
|
||||
ApplicationLog.WriteErrorLog($"编辑页面执行流程导出失败,原因：{ex.Message}")
|
||||
MsgBox($"编辑页面执行流程导出失败,原因：{ex.Message}")
|
||||
End Try
|
||||
Cursor = Cursors.Arrow
|
||||
End Using
|
||||
End Sub
|
||||
|
||||
#Region "Package表格"
|
||||
Private Sub InitGrid(Optional stationplan As StationPackagePlan = Nothing)
|
||||
With GrdStationPlan
|
||||
.AutoRedraw = False
|
||||
|
||||
.NewFile()
|
||||
.BorderStyle = FlexCell.BorderStyleEnum.None
|
||||
|
||||
.Cols = ColNames.Max
|
||||
.Rows = RowItems.Max
|
||||
|
||||
.ExtendLastCol = True
|
||||
.DisplayRowNumber = True
|
||||
|
||||
.Cell(0, ColNames.Item).Text = "Item"
|
||||
.Cell(0, ColNames.Value).Text = "Value"
|
||||
|
||||
.Column(ColNames.Item).Width = 200
|
||||
.Column(ColNames.Item).Locked = True
|
||||
|
||||
|
||||
.DefaultRowHeight = 20
|
||||
.DefaultFont = New Font("微软雅黑", 10)
|
||||
|
||||
For i As Integer = 1 To RowItems.Max - 1
|
||||
.Cell(i, ColNames.Item).Text = [Enum].GetName(GetType(RowItems), i)
|
||||
Next
|
||||
|
||||
'.Cell(RowItems.CheckSnTested, ColNames.Value).CellType = FlexCell.CellTypeEnum.ComboBox
|
||||
'.Cell(RowItems.CheckSnPackaged, ColNames.Value).CellType = FlexCell.CellTypeEnum.ComboBox
|
||||
'.Cell(RowItems.CheckSnMO, ColNames.Value).CellType = FlexCell.CellTypeEnum.ComboBox
|
||||
'.Cell(RowItems.MissingQuantity, ColNames.Value).CellType = FlexCell.CellTypeEnum.ComboBox
|
||||
'.Cell(RowItems.BarCodeType, ColNames.Value).CellType = FlexCell.CellTypeEnum.ComboBox
|
||||
|
||||
.Cell(RowItems.AutoPrint, ColNames.Value).CellType = FlexCell.CellTypeEnum.CheckBox
|
||||
.Cell(RowItems.BoxMumEditKey, ColNames.Item).Text = "uperLimit"
|
||||
.Cell(RowItems.CompanyName, ColNames.Item).Text = "LowerLimit"
|
||||
.Cell(RowItems.BoxNumText, ColNames.Item).Text = "Number"
|
||||
'.Cell(RowItems.ErrorSound, ColNames.Value).CellType = FlexCell.CellTypeEnum.Button
|
||||
'.Cell(RowItems.TemplateFile, ColNames.Value).CellType = FlexCell.CellTypeEnum.Button
|
||||
'.Cell(RowItems.CompanyLogo, ColNames.Value).CellType = FlexCell.CellTypeEnum.Button
|
||||
|
||||
FillGrid(stationplan)
|
||||
|
||||
.AutoRedraw = True
|
||||
.Refresh()
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub FillGrid(stationplan As StationPackagePlan)
|
||||
If stationplan Is Nothing Then Return
|
||||
|
||||
With GrdStationPlan
|
||||
'.Cell(RowItems.CheckSnTested, ColNames.Value).Text = stationplan.CheckSnTested.ToString
|
||||
'.Cell(RowItems.CheckSnPackaged, ColNames.Value).Text = stationplan.CheckSnPackaged.ToString
|
||||
'.Cell(RowItems.CheckSnMO, ColNames.Value).Text = stationplan.CheckSnMO.ToString
|
||||
|
||||
'.Cell(RowItems.PictureCount, ColNames.Value).Text = stationplan.PictureCount.ToString
|
||||
'.Cell(RowItems.UnlockKey, ColNames.Value).Text = stationplan.UnlockKey
|
||||
|
||||
'.Cell(RowItems.BarCodeType, ColNames.Value).Text = stationplan.BarCodeType.ToString
|
||||
|
||||
'.Cell(RowItems.MissingQuantity, ColNames.Value).Text = stationplan.MissingQuantity.ToString
|
||||
'.Cell(RowItems.MissingQuantityKey, ColNames.Value).Text = stationplan.MissingQuantityKey
|
||||
|
||||
.Cell(RowItems.AutoPrint, ColNames.Value).Text = stationplan.AutoPrint.ToString
|
||||
|
||||
'.Cell(RowItems.ErrorSound, ColNames.Value).Text = stationplan.ErrorSound
|
||||
'.Cell(RowItems.TemplateFile, ColNames.Value).Text = stationplan.TemplateFile
|
||||
|
||||
.Cell(RowItems.BoxMumEditKey, ColNames.Value).Text = stationplan.BoxMumEditKey
|
||||
|
||||
.Cell(RowItems.BoxNumText, ColNames.Value).Text = stationplan.CompanyLogo
|
||||
.Cell(RowItems.CompanyName, ColNames.Value).Text = stationplan.CompanyName
|
||||
|
||||
'.Cell(RowItems.BoxNumText, ColNames.Value).Text = stationplan.BoxNumText
|
||||
'.Cell(RowItems.BoxBarCode, ColNames.Value).Text = stationplan.BoxBarCode
|
||||
End With
|
||||
|
||||
|
||||
If StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed Then
|
||||
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Saved
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub UpdateGrid(stationplan As StationPackagePlan)
|
||||
If _stationPlan Is Nothing Then Return
|
||||
|
||||
With GrdStationPlan
|
||||
'If [Enum].TryParse(.Cell(RowItems.CheckSnTested, ColNames.Value).Text, stationplan.CheckSnTested) = False Then
|
||||
' MsgBox("更新CheckSnTested失败!")
|
||||
' Return
|
||||
'End If
|
||||
'If [Enum].TryParse(.Cell(RowItems.CheckSnPackaged, ColNames.Value).Text, stationplan.CheckSnPackaged) = False Then
|
||||
' MsgBox("更新CheckSnPackaged失败!")
|
||||
' Return
|
||||
'End If
|
||||
'If [Enum].TryParse(.Cell(RowItems.CheckSnMO, ColNames.Value).Text, stationplan.CheckSnMO) = False Then
|
||||
' MsgBox("更新CheckSnMO失败!")
|
||||
' Return
|
||||
'End If
|
||||
|
||||
'If [Enum].TryParse(.Cell(RowItems.BarCodeType, ColNames.Value).Text, stationplan.BarCodeType) = False Then
|
||||
' MsgBox("更新BarCodeType失败!")
|
||||
' Return
|
||||
'End If
|
||||
|
||||
'If [Enum].TryParse(.Cell(RowItems.MissingQuantity, ColNames.Value).Text, stationplan.MissingQuantity) = False Then
|
||||
' MsgBox("更新MissingQuantity失败!")
|
||||
' Return
|
||||
'End If
|
||||
|
||||
'stationplan.PictureCount = .Cell(RowItems.PictureCount, ColNames.Value).IntegerValue
|
||||
|
||||
'stationplan.UnlockKey = .Cell(RowItems.UnlockKey, ColNames.Value).Text
|
||||
|
||||
'stationplan.MissingQuantityKey = .Cell(RowItems.MissingQuantityKey, ColNames.Value).Text
|
||||
|
||||
stationplan.AutoPrint = .Cell(RowItems.AutoPrint, ColNames.Value).BooleanValue
|
||||
|
||||
'stationplan.ErrorSound = .Cell(RowItems.ErrorSound, ColNames.Value).Text
|
||||
'stationplan.TemplateFile = .Cell(RowItems.TemplateFile, ColNames.Value).Text
|
||||
|
||||
stationplan.BoxMumEditKey = .Cell(RowItems.BoxMumEditKey, ColNames.Value).Text
|
||||
|
||||
stationplan.CompanyLogo = .Cell(RowItems.BoxNumText, ColNames.Value).Text
|
||||
stationplan.CompanyName = .Cell(RowItems.CompanyName, ColNames.Value).Text
|
||||
|
||||
'stationplan.BoxNumText = .Cell(RowItems.BoxNumText, ColNames.Value).Text
|
||||
'stationplan.BoxBarCode = .Cell(RowItems.BoxBarCode, ColNames.Value).Text
|
||||
End With
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub GrdStationPlan_ButtonClick(Sender As Object, e As FlexCell.Grid.ButtonClickEventArgs) Handles GrdStationPlan.ButtonClick
|
||||
Select Case e.Row
|
||||
'Case RowItems.ErrorSound
|
||||
' DlgOpenFile.Filter = "图像资源 (*.jpg;*.png;*.gif;*.ico)|*.jpg;*.png;*.gif;*.ico"
|
||||
'Case RowItems.TemplateFile
|
||||
' DlgOpenFile.Filter = "模板资源 (*.btw)|*.btw"
|
||||
'Case RowItems.CompanyLogo
|
||||
' DlgOpenFile.Filter = "图像资源 (*.jpg;*.png;*.gif;*.ico)|*.jpg;*.png;*.gif;*.ico"
|
||||
End Select
|
||||
|
||||
DlgOpenFile.CheckFileExists = True
|
||||
DlgOpenFile.CheckPathExists = True
|
||||
If DlgOpenFile.ShowDialog() <> DialogResult.OK Then Return
|
||||
|
||||
Dim fileName As String = $"{DlgOpenFile.SafeFileName}"
|
||||
Dim fileDir As String = UtsPath.GetStationPacketResourceDirPath(_stationPlan.ParentPacket.Name)
|
||||
Dim fliePath As String = $"{fileDir}\{fileName}"
|
||||
|
||||
GrdStationPlan.Cell(e.Row, ColNames.Value).Text = fileName
|
||||
|
||||
'导入文件
|
||||
Try
|
||||
IO.File.Copy(DlgOpenFile.FileName, fliePath, True)
|
||||
Catch ex As Exception
|
||||
MsgBox($"导入资源文件失败，{ex.Message}")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub GrdStationPlan_ComboDropDown(Sender As Object, e As FlexCell.Grid.ComboDropDownEventArgs) Handles GrdStationPlan.ComboDropDown
|
||||
GrdStationPlan.ComboBox(0).Items.Clear()
|
||||
Select Case e.Row
|
||||
'Case RowItems.CheckSnTested
|
||||
' GrdStationPlan.ComboBox(0).Items.AddRange([Enum].GetNames(GetType(CheckStatus)))
|
||||
'Case RowItems.CheckSnPackaged
|
||||
' GrdStationPlan.ComboBox(0).Items.AddRange([Enum].GetNames(GetType(CheckStatus)))
|
||||
'Case RowItems.CheckSnMO
|
||||
' GrdStationPlan.ComboBox(0).Items.AddRange([Enum].GetNames(GetType(CheckStatus)))
|
||||
'Case RowItems.MissingQuantity
|
||||
' GrdStationPlan.ComboBox(0).Items.AddRange([Enum].GetNames(GetType(MissCountStatus)))
|
||||
'Case RowItems.BarCodeType
|
||||
' GrdStationPlan.ComboBox(0).Items.AddRange([Enum].GetNames(GetType(BarcodeTypes)))
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub GrdStationPlan_CellChange(Sender As Object, e As FlexCell.Grid.CellChangeEventArgs) Handles GrdStationPlan.CellChange
|
||||
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed
|
||||
End Sub
|
||||
|
||||
Enum ColNames
|
||||
SN
|
||||
Item
|
||||
Value
|
||||
Max
|
||||
End Enum
|
||||
|
||||
|
||||
|
||||
Enum RowItems
|
||||
''' <summary>固定行</summary>
|
||||
<System.ComponentModel.Description("固定行")>
|
||||
SN
|
||||
|
||||
'''' <summary>校验条码未测试后处理方式</summary>
|
||||
'<System.ComponentModel.Description("校验条码未测试后处理方式")>
|
||||
'CheckSnTested
|
||||
|
||||
'''' <summary>校验条码已参与包装后处理方式</summary>
|
||||
'<System.ComponentModel.Description("校验条码已参与包装后处理方式")>
|
||||
'CheckSnPackaged
|
||||
|
||||
'''' <summary>校验条码不属于指定MO后处理方式</summary>
|
||||
'<System.ComponentModel.Description("校验条码不属于指定MO后处理方式")>
|
||||
'CheckSnMO
|
||||
|
||||
'''' <summary>拍摄保存图像的数量</summary>
|
||||
'<System.ComponentModel.Description("拍摄保存图像的数量")>
|
||||
'PictureCount
|
||||
|
||||
'''' <summary>解锁密码</summary>
|
||||
'<System.ComponentModel.Description("解锁密码")>
|
||||
'UnlockKey
|
||||
|
||||
'''' <summary>条码类型</summary>
|
||||
'<System.ComponentModel.Description("条码类型")>
|
||||
'BarCodeType
|
||||
|
||||
'''' <summary>缺失条码数量后的处理方式</summary>
|
||||
'<System.ComponentModel.Description("缺失条码数量后的处理方式")>
|
||||
'MissingQuantity
|
||||
|
||||
'''' <summary>缺失条码数量后的解锁密码</summary>
|
||||
'<System.ComponentModel.Description("缺失条码数量后的解锁密码")>
|
||||
'MissingQuantityKey
|
||||
|
||||
''' <summary>是否自动打印</summary>
|
||||
<System.ComponentModel.Description("是否自动记录")>
|
||||
AutoPrint
|
||||
|
||||
'''' <summary>发生错误后报警文件</summary>
|
||||
'<System.ComponentModel.Description("发生错误后报警文件")>
|
||||
'ErrorSound
|
||||
|
||||
'''' <summary>模板文件名</summary>
|
||||
'<System.ComponentModel.Description("模板文件名")>
|
||||
'TemplateFile
|
||||
|
||||
''' <summary>箱号编辑密码</summary>
|
||||
<System.ComponentModel.Description("阈值上限")>
|
||||
BoxMumEditKey
|
||||
|
||||
'''' <summary>公司Logo文件</summary>
|
||||
'<System.ComponentModel.Description("最大装箱值")>
|
||||
'CompanyLogo
|
||||
|
||||
''' <summary>公司名称</summary>
|
||||
<System.ComponentModel.Description("阈值下限")>
|
||||
CompanyName
|
||||
|
||||
''' <summary>箱号规则</summary>
|
||||
<System.ComponentModel.Description("最大装箱值")>
|
||||
BoxNumText
|
||||
|
||||
'''' <summary>箱号条码</summary>
|
||||
'<System.ComponentModel.Description("箱号条码")>
|
||||
'BoxBarCode
|
||||
|
||||
Max
|
||||
End Enum
|
||||
|
||||
Private Sub GrdStationPlan_SelChange(Sender As Object, e As FlexCell.Grid.SelChangeEventArgs) Handles GrdStationPlan.SelChange
|
||||
If e.FirstRow <= RowItems.SN OrElse e.FirstRow > GrdStationPlan.Rows - 1 Then Return
|
||||
|
||||
Dim row As Integer = e.FirstRow
|
||||
Dim a As RowItems
|
||||
If [Enum].TryParse(row.ToString, a) Then
|
||||
LblDesc.Text = $"Row:{row}{vbCrLf}Desc:{GetEnumDescription(a)}"
|
||||
Else
|
||||
LblDesc.Text = $"Row:{row}{vbCrLf}Desc:无说明"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Function GetEnumDescription(enumValue As RowItems) As String
|
||||
Dim str As String = enumValue.ToString()
|
||||
Dim field As System.Reflection.FieldInfo = enumValue.GetType().GetField(str)
|
||||
Dim objs() As Object = field.GetCustomAttributes(GetType(System.ComponentModel.DescriptionAttribute), False)
|
||||
If objs Is Nothing OrElse objs.Length = 0 Then Return str
|
||||
Dim da As System.ComponentModel.DescriptionAttribute = CType(objs(0), ComponentModel.DescriptionAttribute)
|
||||
Return da.Description
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
903
SQLliteReading/AUTS_Package/ZQ/Mars/P2-称重/ZQ_Mars_P2_FrmStationTest.Designer.vb
generated
Normal file
903
SQLliteReading/AUTS_Package/ZQ/Mars/P2-称重/ZQ_Mars_P2_FrmStationTest.Designer.vb
generated
Normal file
@@ -0,0 +1,903 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class ZQ_Mars_T2_FrmStationTest
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.SerialPort1 = New System.IO.Ports.SerialPort(Me.components)
|
||||
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.timer_Rcvd_Timeout = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.timer_AutoFindCommPort = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
Me.tss_CommPort = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
|
||||
Me.SplitContainer4 = New System.Windows.Forms.SplitContainer()
|
||||
Me.SplitContainer6 = New System.Windows.Forms.SplitContainer()
|
||||
Me.SplitContainer7 = New System.Windows.Forms.SplitContainer()
|
||||
Me.lab_projectname = New System.Windows.Forms.Label()
|
||||
Me.lab_projectconfig = New System.Windows.Forms.Label()
|
||||
Me.lab_imger = New System.Windows.Forms.PictureBox()
|
||||
Me.SplitContainer5 = New System.Windows.Forms.SplitContainer()
|
||||
Me.lab_Processed_Unit_Cnt = New System.Windows.Forms.Label()
|
||||
Me.lab_Processed_Unit_Cnt_ThisCycle = New System.Windows.Forms.Label()
|
||||
Me.ListBox1 = New System.Windows.Forms.ListBox()
|
||||
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
|
||||
Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
|
||||
Me.G3label_tip = New System.Windows.Forms.Label()
|
||||
Me.txt_testnum = New System.Windows.Forms.TextBox()
|
||||
Me.LiveData = New System.Windows.Forms.TextBox()
|
||||
Me.txt_LooadNum = New System.Windows.Forms.TextBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.txt_BosCode = New System.Windows.Forms.TextBox()
|
||||
Me.txt_UpNum = New System.Windows.Forms.TextBox()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.OpenUart_btn = New System.Windows.Forms.Button()
|
||||
Me.UartPort_cob = New System.Windows.Forms.ComboBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.devbox = New System.Windows.Forms.TextBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.colorbox = New System.Windows.Forms.TextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.SplitContainer8 = New System.Windows.Forms.SplitContainer()
|
||||
Me.Tree_ViewEx1 = New UTS_Core.UTSModule.Station.TreeViewEx()
|
||||
Me.lab_sun = New System.Windows.Forms.Label()
|
||||
Me.chk_flow = New System.Windows.Forms.CheckBox()
|
||||
Me.chk_auto = New System.Windows.Forms.CheckBox()
|
||||
Me.btn_entering = New System.Windows.Forms.Button()
|
||||
Me.Btn_delete = New System.Windows.Forms.Button()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.txt_unitweight = New System.Windows.Forms.TextBox()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.txt_labstring = New System.Windows.Forms.TextBox()
|
||||
Me.lab1 = New System.Windows.Forms.Label()
|
||||
Me.txt_inputnum = New System.Windows.Forms.TextBox()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.txt_SnCode = New System.Windows.Forms.TextBox()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.txt_colorbox = New System.Windows.Forms.TextBox()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.txt_MacCode = New System.Windows.Forms.TextBox()
|
||||
Me.StatusStrip1.SuspendLayout()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||
Me.SplitContainer1.SuspendLayout()
|
||||
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer2.Panel1.SuspendLayout()
|
||||
Me.SplitContainer2.Panel2.SuspendLayout()
|
||||
Me.SplitContainer2.SuspendLayout()
|
||||
CType(Me.SplitContainer4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer4.Panel1.SuspendLayout()
|
||||
Me.SplitContainer4.Panel2.SuspendLayout()
|
||||
Me.SplitContainer4.SuspendLayout()
|
||||
CType(Me.SplitContainer6, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer6.Panel1.SuspendLayout()
|
||||
Me.SplitContainer6.Panel2.SuspendLayout()
|
||||
Me.SplitContainer6.SuspendLayout()
|
||||
CType(Me.SplitContainer7, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer7.Panel1.SuspendLayout()
|
||||
Me.SplitContainer7.Panel2.SuspendLayout()
|
||||
Me.SplitContainer7.SuspendLayout()
|
||||
CType(Me.lab_imger, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.SplitContainer5, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer5.Panel1.SuspendLayout()
|
||||
Me.SplitContainer5.Panel2.SuspendLayout()
|
||||
Me.SplitContainer5.SuspendLayout()
|
||||
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer3.Panel1.SuspendLayout()
|
||||
Me.SplitContainer3.Panel2.SuspendLayout()
|
||||
Me.SplitContainer3.SuspendLayout()
|
||||
CType(Me.SplitContainer8, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer8.Panel1.SuspendLayout()
|
||||
Me.SplitContainer8.Panel2.SuspendLayout()
|
||||
Me.SplitContainer8.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SerialPort1
|
||||
'
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Me.Timer1.Enabled = True
|
||||
'
|
||||
'timer_Rcvd_Timeout
|
||||
'
|
||||
Me.timer_Rcvd_Timeout.Enabled = True
|
||||
'
|
||||
'timer_AutoFindCommPort
|
||||
'
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
||||
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tss_CommPort})
|
||||
Me.StatusStrip1.Location = New System.Drawing.Point(0, 549)
|
||||
Me.StatusStrip1.Name = "StatusStrip1"
|
||||
Me.StatusStrip1.Size = New System.Drawing.Size(985, 22)
|
||||
Me.StatusStrip1.TabIndex = 2
|
||||
Me.StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'tss_CommPort
|
||||
'
|
||||
Me.tss_CommPort.AutoSize = False
|
||||
Me.tss_CommPort.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.tss_CommPort.Name = "tss_CommPort"
|
||||
Me.tss_CommPort.Size = New System.Drawing.Size(80, 17)
|
||||
Me.tss_CommPort.Text = "COM1"
|
||||
'
|
||||
'SplitContainer1
|
||||
'
|
||||
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer1.IsSplitterFixed = True
|
||||
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer1.Name = "SplitContainer1"
|
||||
'
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.SplitContainer2)
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.SplitContainer3)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(985, 549)
|
||||
Me.SplitContainer1.SplitterDistance = 340
|
||||
Me.SplitContainer1.SplitterWidth = 1
|
||||
Me.SplitContainer1.TabIndex = 3
|
||||
'
|
||||
'SplitContainer2
|
||||
'
|
||||
Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer2.IsSplitterFixed = True
|
||||
Me.SplitContainer2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer2.Name = "SplitContainer2"
|
||||
Me.SplitContainer2.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer2.Panel1
|
||||
'
|
||||
Me.SplitContainer2.Panel1.Controls.Add(Me.SplitContainer4)
|
||||
'
|
||||
'SplitContainer2.Panel2
|
||||
'
|
||||
Me.SplitContainer2.Panel2.Controls.Add(Me.ListBox1)
|
||||
Me.SplitContainer2.Panel2.Controls.Add(Me.RichTextBox1)
|
||||
Me.SplitContainer2.Size = New System.Drawing.Size(340, 549)
|
||||
Me.SplitContainer2.SplitterDistance = 287
|
||||
Me.SplitContainer2.SplitterWidth = 1
|
||||
Me.SplitContainer2.TabIndex = 0
|
||||
'
|
||||
'SplitContainer4
|
||||
'
|
||||
Me.SplitContainer4.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer4.IsSplitterFixed = True
|
||||
Me.SplitContainer4.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer4.Name = "SplitContainer4"
|
||||
Me.SplitContainer4.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer4.Panel1
|
||||
'
|
||||
Me.SplitContainer4.Panel1.Controls.Add(Me.SplitContainer6)
|
||||
'
|
||||
'SplitContainer4.Panel2
|
||||
'
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.SplitContainer5)
|
||||
Me.SplitContainer4.Size = New System.Drawing.Size(340, 287)
|
||||
Me.SplitContainer4.SplitterDistance = 227
|
||||
Me.SplitContainer4.SplitterWidth = 1
|
||||
Me.SplitContainer4.TabIndex = 12
|
||||
'
|
||||
'SplitContainer6
|
||||
'
|
||||
Me.SplitContainer6.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer6.IsSplitterFixed = True
|
||||
Me.SplitContainer6.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer6.Name = "SplitContainer6"
|
||||
Me.SplitContainer6.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer6.Panel1
|
||||
'
|
||||
Me.SplitContainer6.Panel1.Controls.Add(Me.SplitContainer7)
|
||||
'
|
||||
'SplitContainer6.Panel2
|
||||
'
|
||||
Me.SplitContainer6.Panel2.Controls.Add(Me.lab_imger)
|
||||
Me.SplitContainer6.Size = New System.Drawing.Size(340, 227)
|
||||
Me.SplitContainer6.SplitterDistance = 77
|
||||
Me.SplitContainer6.SplitterWidth = 1
|
||||
Me.SplitContainer6.TabIndex = 1
|
||||
'
|
||||
'SplitContainer7
|
||||
'
|
||||
Me.SplitContainer7.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer7.IsSplitterFixed = True
|
||||
Me.SplitContainer7.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer7.Name = "SplitContainer7"
|
||||
Me.SplitContainer7.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer7.Panel1
|
||||
'
|
||||
Me.SplitContainer7.Panel1.Controls.Add(Me.lab_projectname)
|
||||
'
|
||||
'SplitContainer7.Panel2
|
||||
'
|
||||
Me.SplitContainer7.Panel2.Controls.Add(Me.lab_projectconfig)
|
||||
Me.SplitContainer7.Size = New System.Drawing.Size(340, 77)
|
||||
Me.SplitContainer7.SplitterDistance = 25
|
||||
Me.SplitContainer7.SplitterWidth = 1
|
||||
Me.SplitContainer7.TabIndex = 13
|
||||
'
|
||||
'lab_projectname
|
||||
'
|
||||
Me.lab_projectname.BackColor = System.Drawing.Color.PeachPuff
|
||||
Me.lab_projectname.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lab_projectname.Font = New System.Drawing.Font("宋体", 18.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.lab_projectname.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lab_projectname.Name = "lab_projectname"
|
||||
Me.lab_projectname.Size = New System.Drawing.Size(340, 25)
|
||||
Me.lab_projectname.TabIndex = 0
|
||||
Me.lab_projectname.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lab_projectconfig
|
||||
'
|
||||
Me.lab_projectconfig.BackColor = System.Drawing.SystemColors.ActiveCaption
|
||||
Me.lab_projectconfig.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lab_projectconfig.Font = New System.Drawing.Font("宋体", 12.75!, System.Drawing.FontStyle.Bold)
|
||||
Me.lab_projectconfig.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lab_projectconfig.Name = "lab_projectconfig"
|
||||
Me.lab_projectconfig.Size = New System.Drawing.Size(340, 51)
|
||||
Me.lab_projectconfig.TabIndex = 1
|
||||
Me.lab_projectconfig.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'lab_imger
|
||||
'
|
||||
Me.lab_imger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.lab_imger.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lab_imger.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lab_imger.Name = "lab_imger"
|
||||
Me.lab_imger.Size = New System.Drawing.Size(340, 149)
|
||||
Me.lab_imger.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.lab_imger.TabIndex = 12
|
||||
Me.lab_imger.TabStop = False
|
||||
'
|
||||
'SplitContainer5
|
||||
'
|
||||
Me.SplitContainer5.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer5.IsSplitterFixed = True
|
||||
Me.SplitContainer5.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer5.Name = "SplitContainer5"
|
||||
'
|
||||
'SplitContainer5.Panel1
|
||||
'
|
||||
Me.SplitContainer5.Panel1.Controls.Add(Me.lab_Processed_Unit_Cnt)
|
||||
'
|
||||
'SplitContainer5.Panel2
|
||||
'
|
||||
Me.SplitContainer5.Panel2.Controls.Add(Me.lab_Processed_Unit_Cnt_ThisCycle)
|
||||
Me.SplitContainer5.Size = New System.Drawing.Size(340, 59)
|
||||
Me.SplitContainer5.SplitterDistance = 162
|
||||
Me.SplitContainer5.SplitterWidth = 1
|
||||
Me.SplitContainer5.TabIndex = 0
|
||||
'
|
||||
'lab_Processed_Unit_Cnt
|
||||
'
|
||||
Me.lab_Processed_Unit_Cnt.BackColor = System.Drawing.SystemColors.ActiveCaptionText
|
||||
Me.lab_Processed_Unit_Cnt.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lab_Processed_Unit_Cnt.Font = New System.Drawing.Font("Calibri", 29.25!, System.Drawing.FontStyle.Bold)
|
||||
Me.lab_Processed_Unit_Cnt.ForeColor = System.Drawing.Color.White
|
||||
Me.lab_Processed_Unit_Cnt.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lab_Processed_Unit_Cnt.Name = "lab_Processed_Unit_Cnt"
|
||||
Me.lab_Processed_Unit_Cnt.Size = New System.Drawing.Size(162, 59)
|
||||
Me.lab_Processed_Unit_Cnt.TabIndex = 15
|
||||
Me.lab_Processed_Unit_Cnt.Tag = "本次生产总统计数量，连击5次清零！"
|
||||
Me.lab_Processed_Unit_Cnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lab_Processed_Unit_Cnt_ThisCycle
|
||||
'
|
||||
Me.lab_Processed_Unit_Cnt_ThisCycle.BackColor = System.Drawing.SystemColors.ActiveCaptionText
|
||||
Me.lab_Processed_Unit_Cnt_ThisCycle.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lab_Processed_Unit_Cnt_ThisCycle.Font = New System.Drawing.Font("Calibri", 29.25!, System.Drawing.FontStyle.Bold)
|
||||
Me.lab_Processed_Unit_Cnt_ThisCycle.ForeColor = System.Drawing.Color.White
|
||||
Me.lab_Processed_Unit_Cnt_ThisCycle.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lab_Processed_Unit_Cnt_ThisCycle.Name = "lab_Processed_Unit_Cnt_ThisCycle"
|
||||
Me.lab_Processed_Unit_Cnt_ThisCycle.Size = New System.Drawing.Size(177, 59)
|
||||
Me.lab_Processed_Unit_Cnt_ThisCycle.TabIndex = 16
|
||||
Me.lab_Processed_Unit_Cnt_ThisCycle.Text = "0"
|
||||
Me.lab_Processed_Unit_Cnt_ThisCycle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'ListBox1
|
||||
'
|
||||
Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.ListBox1.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.ListBox1.FormattingEnabled = True
|
||||
Me.ListBox1.ItemHeight = 14
|
||||
Me.ListBox1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ListBox1.Name = "ListBox1"
|
||||
Me.ListBox1.Size = New System.Drawing.Size(340, 261)
|
||||
Me.ListBox1.TabIndex = 11
|
||||
'
|
||||
'RichTextBox1
|
||||
'
|
||||
Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.RichTextBox1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.RichTextBox1.Name = "RichTextBox1"
|
||||
Me.RichTextBox1.Size = New System.Drawing.Size(340, 261)
|
||||
Me.RichTextBox1.TabIndex = 2
|
||||
Me.RichTextBox1.Text = ""
|
||||
Me.RichTextBox1.Visible = False
|
||||
'
|
||||
'SplitContainer3
|
||||
'
|
||||
Me.SplitContainer3.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer3.IsSplitterFixed = True
|
||||
Me.SplitContainer3.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer3.Name = "SplitContainer3"
|
||||
Me.SplitContainer3.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer3.Panel1
|
||||
'
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.G3label_tip)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.txt_testnum)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.LiveData)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.txt_LooadNum)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.Label5)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.txt_BosCode)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.txt_UpNum)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.Label9)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.Label4)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.OpenUart_btn)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.UartPort_cob)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.Label6)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.devbox)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.Label3)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.colorbox)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.Label2)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.Label1)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.TextBox1)
|
||||
'
|
||||
'SplitContainer3.Panel2
|
||||
'
|
||||
Me.SplitContainer3.Panel2.Controls.Add(Me.SplitContainer8)
|
||||
Me.SplitContainer3.Size = New System.Drawing.Size(644, 549)
|
||||
Me.SplitContainer3.SplitterDistance = 310
|
||||
Me.SplitContainer3.SplitterWidth = 1
|
||||
Me.SplitContainer3.TabIndex = 0
|
||||
'
|
||||
'G3label_tip
|
||||
'
|
||||
Me.G3label_tip.BackColor = System.Drawing.SystemColors.ActiveCaptionText
|
||||
Me.G3label_tip.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.G3label_tip.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.G3label_tip.Font = New System.Drawing.Font("宋体", 12.0!)
|
||||
Me.G3label_tip.ForeColor = System.Drawing.SystemColors.ControlLightLight
|
||||
Me.G3label_tip.Location = New System.Drawing.Point(0, 0)
|
||||
Me.G3label_tip.Name = "G3label_tip"
|
||||
Me.G3label_tip.Size = New System.Drawing.Size(644, 54)
|
||||
Me.G3label_tip.TabIndex = 48
|
||||
Me.G3label_tip.Text = "-----"
|
||||
Me.G3label_tip.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'txt_testnum
|
||||
'
|
||||
Me.txt_testnum.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txt_testnum.Font = New System.Drawing.Font("宋体", 27.0!)
|
||||
Me.txt_testnum.Location = New System.Drawing.Point(247, 258)
|
||||
Me.txt_testnum.Name = "txt_testnum"
|
||||
Me.txt_testnum.Size = New System.Drawing.Size(183, 49)
|
||||
Me.txt_testnum.TabIndex = 40
|
||||
Me.txt_testnum.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'LiveData
|
||||
'
|
||||
Me.LiveData.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.LiveData.Font = New System.Drawing.Font("宋体", 18.0!)
|
||||
Me.LiveData.Location = New System.Drawing.Point(406, 60)
|
||||
Me.LiveData.Name = "LiveData"
|
||||
Me.LiveData.ReadOnly = True
|
||||
Me.LiveData.Size = New System.Drawing.Size(236, 35)
|
||||
Me.LiveData.TabIndex = 47
|
||||
Me.LiveData.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'txt_LooadNum
|
||||
'
|
||||
Me.txt_LooadNum.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txt_LooadNum.Font = New System.Drawing.Font("宋体", 27.0!)
|
||||
Me.txt_LooadNum.Location = New System.Drawing.Point(16, 258)
|
||||
Me.txt_LooadNum.Name = "txt_LooadNum"
|
||||
Me.txt_LooadNum.ReadOnly = True
|
||||
Me.txt_LooadNum.Size = New System.Drawing.Size(183, 49)
|
||||
Me.txt_LooadNum.TabIndex = 37
|
||||
Me.txt_LooadNum.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Font = New System.Drawing.Font("宋体", 27.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Label5.Location = New System.Drawing.Point(205, 265)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(36, 37)
|
||||
Me.Label5.TabIndex = 38
|
||||
Me.Label5.Text = "<"
|
||||
'
|
||||
'txt_BosCode
|
||||
'
|
||||
Me.txt_BosCode.Font = New System.Drawing.Font("宋体", 20.0!)
|
||||
Me.txt_BosCode.Location = New System.Drawing.Point(191, 103)
|
||||
Me.txt_BosCode.Name = "txt_BosCode"
|
||||
Me.txt_BosCode.Size = New System.Drawing.Size(450, 38)
|
||||
Me.txt_BosCode.TabIndex = 46
|
||||
'
|
||||
'txt_UpNum
|
||||
'
|
||||
Me.txt_UpNum.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.txt_UpNum.Font = New System.Drawing.Font("宋体", 27.0!)
|
||||
Me.txt_UpNum.Location = New System.Drawing.Point(469, 258)
|
||||
Me.txt_UpNum.Name = "txt_UpNum"
|
||||
Me.txt_UpNum.ReadOnly = True
|
||||
Me.txt_UpNum.Size = New System.Drawing.Size(173, 49)
|
||||
Me.txt_UpNum.TabIndex = 41
|
||||
Me.txt_UpNum.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Font = New System.Drawing.Font("宋体", 20.0!)
|
||||
Me.Label9.Location = New System.Drawing.Point(11, 109)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(188, 27)
|
||||
Me.Label9.TabIndex = 45
|
||||
Me.Label9.Text = "请输入箱体码:"
|
||||
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("宋体", 27.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.Label4.Location = New System.Drawing.Point(436, 265)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(36, 37)
|
||||
Me.Label4.TabIndex = 39
|
||||
Me.Label4.Text = ">"
|
||||
'
|
||||
'OpenUart_btn
|
||||
'
|
||||
Me.OpenUart_btn.Location = New System.Drawing.Point(16, 57)
|
||||
Me.OpenUart_btn.Name = "OpenUart_btn"
|
||||
Me.OpenUart_btn.Size = New System.Drawing.Size(170, 41)
|
||||
Me.OpenUart_btn.TabIndex = 43
|
||||
Me.OpenUart_btn.Text = "打开串口"
|
||||
Me.OpenUart_btn.UseVisualStyleBackColor = True
|
||||
'
|
||||
'UartPort_cob
|
||||
'
|
||||
Me.UartPort_cob.AllowDrop = True
|
||||
Me.UartPort_cob.Font = New System.Drawing.Font("宋体", 25.0!)
|
||||
Me.UartPort_cob.FormattingEnabled = True
|
||||
Me.UartPort_cob.Location = New System.Drawing.Point(192, 57)
|
||||
Me.UartPort_cob.Name = "UartPort_cob"
|
||||
Me.UartPort_cob.Size = New System.Drawing.Size(208, 41)
|
||||
Me.UartPort_cob.TabIndex = 44
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Font = New System.Drawing.Font("宋体", 20.0!)
|
||||
Me.Label6.Location = New System.Drawing.Point(11, 229)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(161, 27)
|
||||
Me.Label6.TabIndex = 42
|
||||
Me.Label6.Text = "请确认称重:"
|
||||
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'devbox
|
||||
'
|
||||
Me.devbox.Font = New System.Drawing.Font("宋体", 20.0!)
|
||||
Me.devbox.Location = New System.Drawing.Point(191, 187)
|
||||
Me.devbox.Name = "devbox"
|
||||
Me.devbox.ReadOnly = True
|
||||
Me.devbox.Size = New System.Drawing.Size(450, 38)
|
||||
Me.devbox.TabIndex = 36
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Font = New System.Drawing.Font("宋体", 20.0!)
|
||||
Me.Label3.Location = New System.Drawing.Point(5, 193)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(191, 27)
|
||||
Me.Label3.TabIndex = 35
|
||||
Me.Label3.Text = "请确认DUT_SN:"
|
||||
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'colorbox
|
||||
'
|
||||
Me.colorbox.Font = New System.Drawing.Font("宋体", 20.0!)
|
||||
Me.colorbox.Location = New System.Drawing.Point(191, 144)
|
||||
Me.colorbox.Name = "colorbox"
|
||||
Me.colorbox.Size = New System.Drawing.Size(450, 38)
|
||||
Me.colorbox.TabIndex = 34
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("宋体", 20.0!)
|
||||
Me.Label2.Location = New System.Drawing.Point(11, 150)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(188, 27)
|
||||
Me.Label2.TabIndex = 33
|
||||
Me.Label2.Text = "请输入彩盒码:"
|
||||
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(14, 32)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(83, 12)
|
||||
Me.Label1.TabIndex = 32
|
||||
Me.Label1.Text = "打印模板路径:"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Label1.Visible = False
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(98, 29)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.ReadOnly = True
|
||||
Me.TextBox1.Size = New System.Drawing.Size(547, 21)
|
||||
Me.TextBox1.TabIndex = 31
|
||||
Me.TextBox1.Visible = False
|
||||
'
|
||||
'SplitContainer8
|
||||
'
|
||||
Me.SplitContainer8.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer8.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer8.Name = "SplitContainer8"
|
||||
'
|
||||
'SplitContainer8.Panel1
|
||||
'
|
||||
Me.SplitContainer8.Panel1.Controls.Add(Me.Tree_ViewEx1)
|
||||
Me.SplitContainer8.Panel1.Controls.Add(Me.lab_sun)
|
||||
'
|
||||
'SplitContainer8.Panel2
|
||||
'
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.chk_flow)
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.chk_auto)
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.btn_entering)
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.Btn_delete)
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.Label11)
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.txt_unitweight)
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.Label12)
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.txt_labstring)
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.lab1)
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.txt_inputnum)
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.Label7)
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.txt_SnCode)
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.Label8)
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.txt_colorbox)
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.Label10)
|
||||
Me.SplitContainer8.Panel2.Controls.Add(Me.txt_MacCode)
|
||||
Me.SplitContainer8.Size = New System.Drawing.Size(644, 238)
|
||||
Me.SplitContainer8.SplitterDistance = 333
|
||||
Me.SplitContainer8.TabIndex = 0
|
||||
'
|
||||
'Tree_ViewEx1
|
||||
'
|
||||
Me.Tree_ViewEx1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Tree_ViewEx1.Font = New System.Drawing.Font("宋体", 12.0!)
|
||||
Me.Tree_ViewEx1.Location = New System.Drawing.Point(0, 23)
|
||||
Me.Tree_ViewEx1.Name = "Tree_ViewEx1"
|
||||
Me.Tree_ViewEx1.Size = New System.Drawing.Size(333, 215)
|
||||
Me.Tree_ViewEx1.TabIndex = 2
|
||||
'
|
||||
'lab_sun
|
||||
'
|
||||
Me.lab_sun.BackColor = System.Drawing.SystemColors.ActiveCaptionText
|
||||
Me.lab_sun.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.lab_sun.Font = New System.Drawing.Font("宋体", 19.0!)
|
||||
Me.lab_sun.ForeColor = System.Drawing.SystemColors.ButtonHighlight
|
||||
Me.lab_sun.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lab_sun.Name = "lab_sun"
|
||||
Me.lab_sun.Size = New System.Drawing.Size(333, 23)
|
||||
Me.lab_sun.TabIndex = 0
|
||||
Me.lab_sun.Text = "0/0"
|
||||
Me.lab_sun.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'chk_flow
|
||||
'
|
||||
Me.chk_flow.BackColor = System.Drawing.SystemColors.ButtonFace
|
||||
Me.chk_flow.Checked = True
|
||||
Me.chk_flow.CheckState = System.Windows.Forms.CheckState.Checked
|
||||
Me.chk_flow.Font = New System.Drawing.Font("宋体", 10.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle))
|
||||
Me.chk_flow.Location = New System.Drawing.Point(5, 210)
|
||||
Me.chk_flow.Name = "chk_flow"
|
||||
Me.chk_flow.Size = New System.Drawing.Size(88, 21)
|
||||
Me.chk_flow.TabIndex = 37
|
||||
Me.chk_flow.Text = "流程校对"
|
||||
Me.chk_flow.UseVisualStyleBackColor = False
|
||||
'
|
||||
'chk_auto
|
||||
'
|
||||
Me.chk_auto.AutoSize = True
|
||||
Me.chk_auto.Location = New System.Drawing.Point(7, 191)
|
||||
Me.chk_auto.Name = "chk_auto"
|
||||
Me.chk_auto.Size = New System.Drawing.Size(72, 16)
|
||||
Me.chk_auto.TabIndex = 36
|
||||
Me.chk_auto.Text = "自动录入"
|
||||
Me.chk_auto.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn_entering
|
||||
'
|
||||
Me.btn_entering.Location = New System.Drawing.Point(202, 191)
|
||||
Me.btn_entering.Name = "btn_entering"
|
||||
Me.btn_entering.Size = New System.Drawing.Size(100, 39)
|
||||
Me.btn_entering.TabIndex = 35
|
||||
Me.btn_entering.Text = "录入箱体信息"
|
||||
Me.btn_entering.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Btn_delete
|
||||
'
|
||||
Me.Btn_delete.Location = New System.Drawing.Point(96, 191)
|
||||
Me.Btn_delete.Name = "Btn_delete"
|
||||
Me.Btn_delete.Size = New System.Drawing.Size(100, 39)
|
||||
Me.Btn_delete.TabIndex = 34
|
||||
Me.Btn_delete.Text = "移除选中彩盒码"
|
||||
Me.Btn_delete.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Font = New System.Drawing.Font("宋体", 10.0!)
|
||||
Me.Label11.Location = New System.Drawing.Point(4, 161)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(84, 14)
|
||||
Me.Label11.TabIndex = 33
|
||||
Me.Label11.Text = "UnitWeigth:"
|
||||
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'txt_unitweight
|
||||
'
|
||||
Me.txt_unitweight.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.txt_unitweight.Location = New System.Drawing.Point(107, 157)
|
||||
Me.txt_unitweight.Name = "txt_unitweight"
|
||||
Me.txt_unitweight.ReadOnly = True
|
||||
Me.txt_unitweight.Size = New System.Drawing.Size(195, 23)
|
||||
Me.txt_unitweight.TabIndex = 32
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Font = New System.Drawing.Font("宋体", 10.0!)
|
||||
Me.Label12.Location = New System.Drawing.Point(4, 131)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(98, 14)
|
||||
Me.Label12.TabIndex = 31
|
||||
Me.Label12.Text = "label_string:"
|
||||
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'txt_labstring
|
||||
'
|
||||
Me.txt_labstring.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.txt_labstring.Location = New System.Drawing.Point(107, 127)
|
||||
Me.txt_labstring.Name = "txt_labstring"
|
||||
Me.txt_labstring.ReadOnly = True
|
||||
Me.txt_labstring.Size = New System.Drawing.Size(195, 23)
|
||||
Me.txt_labstring.TabIndex = 30
|
||||
'
|
||||
'lab1
|
||||
'
|
||||
Me.lab1.AutoSize = True
|
||||
Me.lab1.Font = New System.Drawing.Font("宋体", 10.0!)
|
||||
Me.lab1.Location = New System.Drawing.Point(4, 12)
|
||||
Me.lab1.Name = "lab1"
|
||||
Me.lab1.Size = New System.Drawing.Size(70, 14)
|
||||
Me.lab1.TabIndex = 29
|
||||
Me.lab1.Text = "装载数量:"
|
||||
Me.lab1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'txt_inputnum
|
||||
'
|
||||
Me.txt_inputnum.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.txt_inputnum.Location = New System.Drawing.Point(107, 8)
|
||||
Me.txt_inputnum.Name = "txt_inputnum"
|
||||
Me.txt_inputnum.ReadOnly = True
|
||||
Me.txt_inputnum.Size = New System.Drawing.Size(195, 23)
|
||||
Me.txt_inputnum.TabIndex = 28
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Font = New System.Drawing.Font("宋体", 10.0!)
|
||||
Me.Label7.Location = New System.Drawing.Point(3, 72)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(56, 14)
|
||||
Me.Label7.TabIndex = 27
|
||||
Me.Label7.Text = "SnCode:"
|
||||
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'txt_SnCode
|
||||
'
|
||||
Me.txt_SnCode.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.txt_SnCode.Location = New System.Drawing.Point(107, 68)
|
||||
Me.txt_SnCode.Name = "txt_SnCode"
|
||||
Me.txt_SnCode.ReadOnly = True
|
||||
Me.txt_SnCode.Size = New System.Drawing.Size(195, 23)
|
||||
Me.txt_SnCode.TabIndex = 26
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Font = New System.Drawing.Font("宋体", 10.0!)
|
||||
Me.Label8.Location = New System.Drawing.Point(3, 101)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(98, 14)
|
||||
Me.Label8.TabIndex = 25
|
||||
Me.Label8.Text = "ColorBoxCode:"
|
||||
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'txt_colorbox
|
||||
'
|
||||
Me.txt_colorbox.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.txt_colorbox.Location = New System.Drawing.Point(107, 97)
|
||||
Me.txt_colorbox.Name = "txt_colorbox"
|
||||
Me.txt_colorbox.ReadOnly = True
|
||||
Me.txt_colorbox.Size = New System.Drawing.Size(195, 23)
|
||||
Me.txt_colorbox.TabIndex = 24
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Font = New System.Drawing.Font("宋体", 10.0!)
|
||||
Me.Label10.Location = New System.Drawing.Point(3, 41)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(63, 14)
|
||||
Me.Label10.TabIndex = 23
|
||||
Me.Label10.Text = "MacCode:"
|
||||
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'txt_MacCode
|
||||
'
|
||||
Me.txt_MacCode.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.txt_MacCode.Location = New System.Drawing.Point(107, 37)
|
||||
Me.txt_MacCode.Name = "txt_MacCode"
|
||||
Me.txt_MacCode.ReadOnly = True
|
||||
Me.txt_MacCode.Size = New System.Drawing.Size(195, 23)
|
||||
Me.txt_MacCode.TabIndex = 22
|
||||
'
|
||||
'ZQ_Mars_T2_FrmStationTest
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(985, 571)
|
||||
Me.Controls.Add(Me.SplitContainer1)
|
||||
Me.Controls.Add(Me.StatusStrip1)
|
||||
Me.Name = "ZQ_Mars_T2_FrmStationTest"
|
||||
Me.Text = "ZQ_Mars_P2_FrmStationTest"
|
||||
Me.StatusStrip1.ResumeLayout(False)
|
||||
Me.StatusStrip1.PerformLayout()
|
||||
Me.SplitContainer1.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer1.ResumeLayout(False)
|
||||
Me.SplitContainer2.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer2.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer2.ResumeLayout(False)
|
||||
Me.SplitContainer4.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer4.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer4.ResumeLayout(False)
|
||||
Me.SplitContainer6.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer6.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer6, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer6.ResumeLayout(False)
|
||||
Me.SplitContainer7.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer7.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer7, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer7.ResumeLayout(False)
|
||||
CType(Me.lab_imger, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer5.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer5.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer5, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer5.ResumeLayout(False)
|
||||
Me.SplitContainer3.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer3.Panel1.PerformLayout()
|
||||
Me.SplitContainer3.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer3.ResumeLayout(False)
|
||||
Me.SplitContainer8.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer8.Panel2.ResumeLayout(False)
|
||||
Me.SplitContainer8.Panel2.PerformLayout()
|
||||
CType(Me.SplitContainer8, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer8.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents SerialPort1 As IO.Ports.SerialPort
|
||||
Friend WithEvents Timer1 As Timer
|
||||
Friend WithEvents timer_Rcvd_Timeout As Timer
|
||||
Friend WithEvents timer_AutoFindCommPort As Timer
|
||||
Private WithEvents ImageList1 As ImageList
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents tss_CommPort As ToolStripStatusLabel
|
||||
Friend WithEvents SplitContainer1 As SplitContainer
|
||||
Friend WithEvents SplitContainer2 As SplitContainer
|
||||
Friend WithEvents SplitContainer4 As SplitContainer
|
||||
Friend WithEvents SplitContainer6 As SplitContainer
|
||||
Friend WithEvents SplitContainer7 As SplitContainer
|
||||
Friend WithEvents lab_projectname As Label
|
||||
Friend WithEvents lab_projectconfig As Label
|
||||
Friend WithEvents lab_imger As PictureBox
|
||||
Friend WithEvents SplitContainer5 As SplitContainer
|
||||
Friend WithEvents lab_Processed_Unit_Cnt As Label
|
||||
Friend WithEvents lab_Processed_Unit_Cnt_ThisCycle As Label
|
||||
Friend WithEvents RichTextBox1 As RichTextBox
|
||||
Friend WithEvents SplitContainer3 As SplitContainer
|
||||
Friend WithEvents txt_testnum As TextBox
|
||||
Friend WithEvents LiveData As TextBox
|
||||
Friend WithEvents txt_LooadNum As TextBox
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents txt_BosCode As TextBox
|
||||
Friend WithEvents txt_UpNum As TextBox
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents OpenUart_btn As Button
|
||||
Friend WithEvents UartPort_cob As ComboBox
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents devbox As TextBox
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents colorbox As TextBox
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents TextBox1 As TextBox
|
||||
Friend WithEvents SplitContainer8 As SplitContainer
|
||||
Friend WithEvents lab1 As Label
|
||||
Friend WithEvents txt_inputnum As TextBox
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents txt_SnCode As TextBox
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents txt_colorbox As TextBox
|
||||
Friend WithEvents Label10 As Label
|
||||
Friend WithEvents txt_MacCode As TextBox
|
||||
Friend WithEvents Label11 As Label
|
||||
Friend WithEvents txt_unitweight As TextBox
|
||||
Friend WithEvents Label12 As Label
|
||||
Friend WithEvents txt_labstring As TextBox
|
||||
Friend WithEvents ListBox1 As ListBox
|
||||
Friend WithEvents btn_entering As Button
|
||||
Friend WithEvents Btn_delete As Button
|
||||
Friend WithEvents chk_auto As CheckBox
|
||||
Friend WithEvents chk_flow As CheckBox
|
||||
Friend WithEvents G3label_tip As Label
|
||||
Friend WithEvents Tree_ViewEx1 As UTS_Core.UTSModule.Station.TreeViewEx
|
||||
Friend WithEvents lab_sun As Label
|
||||
End Class
|
||||
@@ -0,0 +1,141 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="SerialPort1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>133, 17</value>
|
||||
</metadata>
|
||||
<metadata name="timer_Rcvd_Timeout.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>225, 17</value>
|
||||
</metadata>
|
||||
<metadata name="timer_AutoFindCommPort.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>519, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>133, 55</value>
|
||||
</metadata>
|
||||
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>249, 55</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>122</value>
|
||||
</metadata>
|
||||
</root>
|
||||
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user