37 lines
1.0 KiB
VB.net
37 lines
1.0 KiB
VB.net
Imports FlexCell
|
||
|
||
Namespace UTSModule.Project
|
||
Public Class ProjectStationPlan
|
||
Sub New()
|
||
TestPlanLocked = False
|
||
’Version = New Version(1, 0)
|
||
StationPlanGrid = New Grid()
|
||
Project.StationPlanGrid.InitGrid(StationPlanGrid)
|
||
End Sub
|
||
|
||
|
||
Sub New(packet As ProjectStationPacket)
|
||
TestPlanLocked = False
|
||
‘ Version = New Version(1, 0)
|
||
|
||
ParentPacket = packet
|
||
StationPlanGrid = New Grid()
|
||
Project.StationPlanGrid.InitGrid(StationPlanGrid)
|
||
End Sub
|
||
|
||
|
||
''' <summary>测试流程是否已锁定</summary>
|
||
Public Property TestPlanLocked As Boolean
|
||
|
||
'''' <summary>测试流程版本</summary>
|
||
'Public Property Version As Version
|
||
|
||
''' <summary>测试流程表格</summary>
|
||
Public Property StationPlanGrid() As Grid
|
||
|
||
''' <summary>测试流程所关联的项目站包信息</summary>
|
||
Public Property ParentPacket() As ProjectStationPacket
|
||
|
||
|
||
End Class
|
||
End Namespace |