AUTS_OLD/UTS_Core/UTSModule/Station/FrmStationDesign.vb

Imports System.IO
Imports System.Windows.Forms
Imports UTS_Core.DebugLog

Namespace UTSModule.Station
    Public Class FrmStationDesign
        Implements IProcessStation
        Implements IProductionLine

        Private _utsApp As UtsAppForm
        Private _isAutoAugment As Boolean = True

        Public Property StationPacket() As StationPacket

        Public Event StationRelease(station As ProcessStation) '项目发布事件

        Public Sub ShowForm(parentControl As Control)
            FormBorderStyle = FormBorderStyle.None
            TopLevel = False
            Dock = DockStyle.Fill
            Parent = parentControl

            Enabled = StationPacket IsNot Nothing

            Show()
        End Sub

        Public Sub ShowForm(parentControl As Control, packet As StationPacket)
            FormBorderStyle = FormBorderStyle.None
            TopLevel = False
            Dock = DockStyle.Fill
            Parent = parentControl

            UpdateStationPacket(packet)
            Enabled = StationPacket IsNot Nothing
            Show()
        End Sub

        ''' <summary>
        ''' 产线变化
        ''' </summary>
        Public Sub ProductionLineChanged() Implements IProductionLine.ProductionLineChanged
            'Todo:产线变化代码

            ApplicationLog.WriteInfoLog($"发布页面生产线变更中。")


            ApplicationLog.WriteInfoLog($"发布页面生产线变更完成。")
        End Sub

        Public Sub Station_Changed() Implements IProcessStation.StationChanged
            ApplicationLog.WriteInfoLog($"发布页面站位变更中，PN：{_utsApp.ProcessStation.ParentProject.Name} - SN:{_utsApp.ProcessStation.Name} - TP:{_utsApp.ProcessStation.Packet.Name}!")

            UpdateStationPacket(_utsApp.ProcessStation.Packet)

            ApplicationLog.WriteInfoLog($"发布页面站位变更完成。")
        End Sub


        ''' <summary>修改窗体标题</summary>
        Private Sub ShowFormTitle()
            Text = $"{My.Application.Info.ProductName} StationDesign"
        End Sub

        Private Sub ShowFormTitle(packetName As String)
            Text = $"{My.Application.Info.ProductName} StationDesign -- {packetName}"
        End Sub


        Private Sub UpdateStationPacket(packet As StationPacket)
            StationPacket = packet
            Enabled = StationPacket IsNot Nothing
            If StationPacket IsNot Nothing Then
                ShowFormTitle(StationPacket.Name)
                LoadProjectInitForm()
            End If
        End Sub


        Private Sub LoadProjectInitForm()
            TxtProjectName.Text = StationPacket.ParentProcessStation.ParentProject.Name
            TxtTestStation.Text = StationPacket.ParentProcessStation.Name
            TxtEditPwd.Text = StationPacket.EditPwd
            TxtReleasePwd.Text = StationPacket.ReleasePwd


            NudStationVersion.Text = CType(StationPacket.StationVersion, String)
            PicStation.Image = StationPacket.StationImage
            RtxHistoryImprint.Text = StationPacket.PacketImprintsToString(StationPacket.HistoryImprints)
            RtxCurrentImprint.Text = StationPacket.CurrentImprint.ToString()

            If StationPacket.ValidDate >= DtpValidDate.MaxDate Then
                DtpValidDate.Value = Now.AddMonths(6) '默认有效期六个月
            ElseIf StationPacket.ValidDate <= DtpValidDate.MinDate Then
                DtpValidDate.Value = Now.AddMonths(6) '默认有效期六个月
            Else
                DtpValidDate.Value = StationPacket.ValidDate
            End If
        End Sub



        Private Sub FrmStationDesign_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() '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()
            ShowFormTitle()
        End Sub

        Private Sub PicStation_DoubleClick(sender As Object, e As EventArgs) Handles PicStation.DoubleClick
            dlgOpenFile.Multiselect = False
            dlgOpenFile.Filter = $"设备图像 (*.bmp;*.gif;*.jpg;*.png)|*.bmp;*.gif;*.jpg;*.png"
            If dlgOpenFile.ShowDialog <> DialogResult.OK Then Return

            ApplicationLog.WriteInfoLog($"发布页面切换产品图像中。")

            Try
                Dim imagePath As String = dlgOpenFile.FileName
                PicStation.Image = ImageProcessor.ImageProcessor.GetBitmapImage(imagePath)

                '更新图像预览图
                If String.IsNullOrEmpty(StationPacket.ImageFileName) Then '若图像路径不存在,则更新图像路径
                    Dim imgSavePath As String = $"{UtsPath.GetStationPacketResourceDirPath(StationPacket.Name)}\{StationPacket.ParentProcessStation.StationID}.jpg"
                    PicStation.Image.Save(imgSavePath)

                    StationPacket.ImageFileName = $"{StationPacket.ParentProcessStation.StationID}.jpg" '更新站图像路径
                Else
                    Dim imgSavePath As String = $"{UtsPath.GetStationPacketResourceDirPath(StationPacket.Name)}\{StationPacket.ImageFileName}"
                    PicStation.Image.Save(imgSavePath)
                End If
                ApplicationLog.WriteInfoLog($"发布页面切换产品图像完成。")
            Catch ex As Exception
                ApplicationLog.WriteErrorLog($"设置项目图像失败，原因：{ex.Message}")
                MsgBox($"设置项目图像失败，{ex.Message}")
            End Try

        End Sub


        Private Sub UpdateStationPacket()
            StationPacket.AppVersion = New Version(Application.ProductVersion)
            StationPacket.ModifiedTime = Now
            StationPacket.EditPwd = TxtEditPwd.Text
            StationPacket.ReleasePwd = TxtReleasePwd.Text
            StationPacket.ValidDate = DtpValidDate.Value
            StationPacket.CurrentImprint = New StationPacketImprint(RtxCurrentImprint.Text)
            If _isAutoAugment Then
                StationPacket.StationVersion += 1
            Else
                StationPacket.StationVersion = CInt(NudStationVersion.Value)
            End If
        End Sub

        Private Sub AfterReleasePacketSuccess()
            RtxCurrentImprint.Text = StationPacket.CurrentImprint.ToString()
            RtxHistoryImprint.Text = StationPacket.PacketImprintsToString(StationPacket.HistoryImprints)
            NudStationVersion.Value = StationPacket.StationVersion

            ShowFormTitle(StationPacket.Name)
        End Sub

        Private Sub AfterReleasePacketFail()
            RtxCurrentImprint.Text = StationPacket.CurrentImprint.ToString()
            RtxHistoryImprint.Text = StationPacket.PacketImprintsToString(StationPacket.HistoryImprints)
            StationPacket.StationVersion = CInt(NudStationVersion.Value)

            ShowFormTitle(StationPacket.Name)
        End Sub

        Private Sub TsBtnReleaseStation_Click(sender As Object, e As EventArgs) Handles TsBtnReleaseStation.Click
            Try
                If String.IsNullOrEmpty(TxtEditPwd.Text) Then
                    MsgBox("请输入编辑密码...")
                    Return
                End If

                If String.IsNullOrEmpty(TxtReleasePwd.Text) Then
                    MsgBox("请输入发布密码...")
                    Return
                End If

                If String.IsNullOrEmpty(RtxCurrentImprint.Text) Then
                    MsgBox("请输入版本说明...")
                    Return
                End If

                ApplicationLog.WriteInfoLog($"项目站包发布准备中。")

                UpdateStationPacket()
                StationPacket.ReleasePacket()
                AfterReleasePacketSuccess()

                RaiseEvent StationRelease(StationPacket.ParentProcessStation)

                ApplicationLog.WriteInfoLog($"项目站包 {StationPacket.FileName} 发布成功!")
                MsgBox($"项目站包 {StationPacket.FileName} 发布成功!")
            Catch ex As Exception
                ApplicationLog.WriteErrorLog($"项目站包发布失败,原因：{ex.Message}")
                MsgBox($"项目站包发布失败,原因：{ex.Message}")

                AfterReleasePacketFail()
            End Try
        End Sub

        Private Sub ChkAutoAugment_CheckedChanged(sender As Object, e As EventArgs) Handles ChkAutoAugment.CheckedChanged
            _isAutoAugment = ChkAutoAugment.Checked
            NudStationVersion.Enabled = Not _isAutoAugment
        End Sub

        Private Sub TsBtnAddResource_Click(sender As Object, e As EventArgs) Handles TsBtnAddResourceFile.Click
            dlgOpenFile.Multiselect = True
            dlgOpenFile.Filter = $"资源文件 (*.*)|*.*"

            If dlgOpenFile.ShowDialog <> DialogResult.OK Then Return


            ApplicationLog.WriteInfoLog($"项目站包资源文件添加中。")
            Try
                For Each fileName As String In dlgOpenFile.FileNames
                    ApplicationLog.WriteInfoLog($"正在添加{fileName}")
                    FileIO.FileSystem.CopyFile(fileName, $"{UtsPath.StationPacketResourceDirPath}\{Path.GetFileName(fileName)}")
                Next

                ApplicationLog.WriteInfoLog($"项目站包资源文件添加完成。")
                MsgBox($"项目站包资源文件添加完成。")
            Catch ex As Exception
                ApplicationLog.WriteErrorLog($"项目站包资源文件添加失败，原因：{ex.Message}")
                MsgBox($"项目站包资源文件添加失败，原因：{ex.Message}")
            End Try
        End Sub

        Private Sub TsBtnAddResourceDir_Click(sender As Object, e As EventArgs) Handles TsBtnAddResourceDir.Click
            If dlgOpenFolder.ShowDialog() <> DialogResult.OK Then Return
            ApplicationLog.WriteInfoLog($"项目站包资源文件夹添加中，目标文件夹：{dlgOpenFolder.SelectedPath}。")
            Try
                CopyDirectory(New DirectoryInfo(dlgOpenFolder.SelectedPath), New DirectoryInfo(UtsPath.StationPacketResourceDirPath))
                ApplicationLog.WriteInfoLog($"项目站包资源文件夹添加完成。")
                MsgBox($"项目站包资源文件夹添加完成")
            Catch ex As Exception
                ApplicationLog.WriteErrorLog($"项目站包资源文件添加失败，原因：{ex.Message}")
                MsgBox($"项目站包资源文件添加失败，原因：{ex.Message}")
            End Try
        End Sub

        Public Sub CopyDirectory(directorySrc As DirectoryInfo, directoryDes As DirectoryInfo)
            Dim strDirectoryDesPath As String = $"{directoryDes.FullName}\{directorySrc.Name}"
            If Directory.Exists(strDirectoryDesPath) = False Then
                Directory.CreateDirectory(strDirectoryDesPath)
            End If

            For Each f As FileInfo In directorySrc.GetFiles()
                File.Copy(f.FullName, $"{strDirectoryDesPath}\{ f.Name}", True)
            Next

            ' 递归调用自身
            For Each dirSrc As DirectoryInfo In directorySrc.GetDirectories()
                CopyDirectory(dirSrc, New DirectoryInfo(strDirectoryDesPath))
            Next
        End Sub


        Private Sub TsBtnSearchResource_Click(sender As Object, e As EventArgs) Handles TsBtnSearchResource.Click
            '定位到/Resource文件夹内
            Process.Start("Explorer.exe", $"{UtsPath.GetStationPacketResourceDirPath(StationPacket.Name)}")
        End Sub

    End Class
End Namespace