添加工艺站发布站包历史表；允许用户选择测试站时选择历史发布站包

UTS_Core/UTSModule/Station/DlgLoadStation.vb

@@ -5,6 +5,7 @@ Imports UTS_Core.UTSModule.Project
 Namespace UTSModule.Station
     Public Class DlgLoadStation
         Public Property ProcessStation() As ProcessStation
+
         Public Property UserInfo() As Login.UserInfo
 
         Public _projectInfo As ProjectInfo
@@ -21,7 +22,7 @@ Namespace UTSModule.Station
             Dim projectList As String() = ProjectInfo.LoadProjectList(ProjectInfo.InitializeModeEnum.LocalDatabaseLoad)
             If projectList.Contains(projectName) = False Then Return False
 
-            _projectInfo = New ProjectInfo(UserInfo.UserId, projectName, ProjectInfo.InitializeModeEnum.LocalDatabaseLoad)
+            _projectInfo = New ProjectInfo(UserInfo.UserId, UserInfo.UserName, projectName, ProjectInfo.InitializeModeEnum.LocalDatabaseLoad)
             For Each projectStationInfo As ProcessStation In _projectInfo.Station
                 If projectStationInfo.Name = stationName Then
                     ProcessStation = projectStationInfo
@@ -94,6 +95,8 @@ Namespace UTSModule.Station
                 CboStation.Items.Add(station.Name)
             Next
 
+            CboPacket.Items.Clear()
+
 
             '添加所有站位描述
             RtxStationDesc.SuspendLayout()
@@ -123,7 +126,7 @@ Namespace UTSModule.Station
         End Sub
 
         Private Sub CboProject_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboProject.SelectedIndexChanged
-            _projectInfo = New ProjectInfo(UserInfo.UserId, CboProject.Text, ProjectInfo.InitializeModeEnum.LocalDatabaseLoad)
+            _projectInfo = New ProjectInfo(UserInfo.UserId, UserInfo.UserName, CboProject.Text, ProjectInfo.InitializeModeEnum.LocalDatabaseLoad)
 
             RtxProjectDesc.Text = _projectInfo.Description
 
@@ -136,6 +139,8 @@ Namespace UTSModule.Station
         End Sub
 
         Private lastSelectIndex As Integer = -1
+        Private _packetList As List(Of StationPacketVo)
+
         Private Sub CboStation_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboStation.SelectedIndexChanged
             Dim selectIndex As Integer = _snIndex(CboStation.SelectedIndex)
             ProcessStation = _projectInfo.Station.Item(selectIndex)
@@ -149,7 +154,25 @@ Namespace UTSModule.Station
 
             RtxStationDesc.Select(RtxStationDesc.GetFirstCharIndexFromLine(selectIndex), RtxStationDesc.Lines(selectIndex).Length)
             RtxStationDesc.SelectionColor = Color.Blue
+
+
+            '获取pid和sid
+            Dim pid As Integer = _projectInfo.Index
+            Dim sid As Integer = ProcessStation.StationID
+
+            '获取对应站位所有包，倒序添加
+            _packetList = _projectInfo.LoadLocalDbStationPackets(pid, sid)
+            CboPacket.Items.Clear()
+            For Each packet As StationPacketVo In _packetList
+                CboPacket.Items.Add(packet.PacketName)
+            Next
+
+            If CboPacket.Items.Count > 0 Then CboPacket.SelectedIndex = 0
         End Sub
 
+        Private Sub CboPacket_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboPacket.SelectedIndexChanged
+            ProcessStation.Packet.FileName = _packetList(CboPacket.SelectedIndex).PacketName
+            ProcessStation.Packet.PacketMD5 = _packetList(CboPacket.SelectedIndex).PacketMd5
+        End Sub
     End Class
 End Namespace