第一次提交至Git
This commit is contained in:
297
UTS_Core/UTSModule/Station/FrmStationDesign.vb
Normal file
297
UTS_Core/UTSModule/Station/FrmStationDesign.vb
Normal file
@@ -0,0 +1,297 @@
|
||||
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
|
||||
Reference in New Issue
Block a user