UTS/AUTS_OLD
Archived
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

添加撤销，导航Call命令，节点类型根据子节点数量变化，标签和记录名去重等功能

Browse Source
This commit is contained in:
dk02ssq
2025-04-14 20:19:36 +08:00
parent 9da8e6fecd
commit e82bfaaf20
38 changed files with 1484 additions and 1242 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
UTS_Core/UTSModule/Station/FrmStationPlan.vb
View File

@@ -60,7 +60,7 @@ Namespace UTSModule.Station
If StationPlan IsNot Nothing Then
_planGrid.HeadNode = StationPlan.HeadNode
_planGrid.UpdateGrid()
_planGrid.GridUpdateEventTrigger(GrdStationPlan) '笨方法，开始就触发一次刷新
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.None
_tester.ProcessStation = _utsApp.ProcessStation
@@ -94,6 +94,9 @@ Namespace UTSModule.Station
.RtxColTip = RtxColTip}
AddHandler _planGrid.PlanNodeSelectChanged, AddressOf PlanGridSelectChanged
AddHandler _planGrid.PlanGridCommandChanged, AddressOf PlanGridCommandChanged
'todo:检测撤销队列的变化
AddHandler _planGrid.PlanNodeSelectChanged, AddressOf _nodeGrid.Grid_PlanNodeSelectChanged
AddHandler _planGrid.RowNodeTextChanged, AddressOf _nodeGrid.Grid_RowNodeTextChanged
@@ -117,6 +120,15 @@ Namespace UTSModule.Station
TsBtnForward.Enabled = _planGrid.CanForward
End Sub
Public Sub PlanGridCommandChanged(sender As Object, e As EventArgs)
TsBtnUndo.Enabled = _planGrid.CanUndo
TsBtnRedo.Enabled = _planGrid.CanRedo
MsiUndo.Enabled = _planGrid.CanUndo
MsiRedo.Enabled = _planGrid.CanRedo
End Sub
Private Function InitializeUtsApp() As Boolean
_utsApp = UtsAppForm.CreateSingleton()
_utsApp.AddStatisticsObserver(Me)
@@ -206,7 +218,7 @@ Namespace UTSModule.Station
Try
StationPlan.LoadFile(revStationPlanPath)
_planGrid.UpdateGrid()
_planGrid.GridUpdateEventTrigger(GrdStationPlan) '笨方法，开始就触发一次刷新
' _planGrid.GridUpdateEventTrigger(GrdStationPlan) '笨方法，开始就触发一次刷新
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.None
If StationEditStatusMonitor.StationEditStatus <> StationEditStatusMonitor.StationEditStatusEnum.Saved Then
@@ -226,7 +238,7 @@ Namespace UTSModule.Station
Try
StationPlan.LoadFile(revStationPlanPath)
_planGrid.UpdateGrid()
_planGrid.GridUpdateEventTrigger(GrdStationPlan) '笨方法，开始就触发一次刷新
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.None
If StationEditStatusMonitor.StationEditStatus <> StationEditStatusMonitor.StationEditStatusEnum.Saved Then
@@ -300,8 +312,10 @@ Namespace UTSModule.Station
End Using
_planGrid.ClearNavigation()
TsBtnBackward.Enabled = _planGrid.CanBackward
TsBtnForward.Enabled = _planGrid.CanForward
_planGrid.ClearCommand()
PlanGridSelectChanged(Nothing, Nothing)
PlanGridCommandChanged(Nothing, Nothing)
End Sub
Private Sub TsBtnLoad_Click(sender As Object, e As EventArgs) Handles TsBtnLoad.Click
@@ -309,8 +323,10 @@ Namespace UTSModule.Station
ApplicationLog.WriteInfoLog($"编辑页面执行流程重载中。")
LoadTreeViewFormXml()
_planGrid.ClearNavigation()
TsBtnBackward.Enabled = _planGrid.CanBackward
TsBtnForward.Enabled = _planGrid.CanForward
_planGrid.ClearCommand()
PlanGridSelectChanged(Nothing, Nothing)
PlanGridCommandChanged(Nothing, Nothing)
ApplicationLog.WriteInfoLog($"编辑页面执行流程重载完成。")
End If
End Sub
@@ -802,6 +818,18 @@ Namespace UTSModule.Station
_planGrid.Check_Uncheck_Action(GrdStationPlan, tmpFrisRow, tmpLastRow, False)
End Sub
Private Sub MsiUndo_Click(sender As Object, e As EventArgs) Handles MsiUndo.Click, TsBtnUndo.Click
_planGrid.UndoCommand()
End Sub
Private Sub MsiRedo_Click(sender As Object, e As EventArgs) Handles MsiRedo.Click, TsBtnRedo.Click
_planGrid.RedoCommand()
End Sub
Private Sub TsmiJumpCall_Click(sender As Object, e As EventArgs) Handles TsmiJumpCall.Click
_planGrid.JumpCall()
End Sub
#End Region