新增导航功能，节点操作支持多行操作

UTS_Core/UTSModule/Station/GridNodeMoveUpCommand.vb

@@ -0,0 +1,28 @@
+Imports UTS_Core.Undo
+Imports UTS_Core.UTSModule.Station
+
+Public Class GridNodeMoveUpCommand : Implements ICommand
+
+    Private ReadOnly grd As StationPlanGrid
+    Private ReadOnly startMoveRow As Integer
+    Private ReadOnly moveRows As Integer
+
+    Sub New(grd As StationPlanGrid, startMoveRow As Integer, moveRows As Integer)
+        Me.grd = grd
+        Me.startMoveRow = startMoveRow
+        Me.moveRows = moveRows
+    End Sub
+
+
+    Public Sub Execute() Implements ICommand.Execute
+        grd.NodeMoveUp(startMoveRow, moveRows)
+    End Sub
+
+    Public Sub Redo() Implements ICommand.Redo
+        grd.NodeMoveUp(startMoveRow, moveRows)
+    End Sub
+
+    Public Sub Undo() Implements ICommand.Undo
+        grd.NodeMoveDown(startMoveRow, moveRows)
+    End Sub
+End Class