初始化提交
仓库转移到Gitea，初始化提交，可能丢失以前的git版本日志
This commit is contained in:
425
SQLliteReading/AUTS_Package/ZQ/Mars/P3-装箱/ZQ_Mars_P3_FrmStationPlan.Designer.vb
generated
Normal file
425
SQLliteReading/AUTS_Package/ZQ/Mars/P3-装箱/ZQ_Mars_P3_FrmStationPlan.Designer.vb
generated
Normal file
@@ -0,0 +1,425 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class ZQ_Mars_P3_FrmStationPlan
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ZQ_Mars_P3_FrmStationPlan))
|
||||
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsmiDebugStep = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugContinue = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsmiDebugSetup = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugMain = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugPass = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugFail = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugCleanup = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsmiDebugNode = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugNodeBegin = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.StuMain = New System.Windows.Forms.StatusStrip()
|
||||
Me.DlgOpenFile = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.LblDesc = New System.Windows.Forms.Label()
|
||||
Me.GrdStationPlan = New FlexCell.Grid()
|
||||
Me.CmsPlanGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.MsiCopyNode = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MsiCutNode = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MsiNodePaste = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.MsiUndo = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MsiRedo = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.MsiSaveNodeFile = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MsiLoadNodeFile = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugStart = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TsmiDebugEnd = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.TsBtnOpen = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TsBtnSave = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.TsBtnLoad = New System.Windows.Forms.ToolStripButton()
|
||||
Me.TsBtnSaveAs = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).BeginInit
|
||||
Me.SplitContainer1.Panel1.SuspendLayout
|
||||
Me.SplitContainer1.Panel2.SuspendLayout
|
||||
Me.SplitContainer1.SuspendLayout
|
||||
Me.GroupBox2.SuspendLayout
|
||||
Me.CmsPlanGrid.SuspendLayout
|
||||
Me.ToolStrip1.SuspendLayout
|
||||
Me.SuspendLayout
|
||||
'
|
||||
'ToolStripSeparator7
|
||||
'
|
||||
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
|
||||
Me.ToolStripSeparator7.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'TsmiDebugStep
|
||||
'
|
||||
Me.TsmiDebugStep.Name = "TsmiDebugStep"
|
||||
Me.TsmiDebugStep.ShortcutKeys = System.Windows.Forms.Keys.F3
|
||||
Me.TsmiDebugStep.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugStep.Text = "单步执行"
|
||||
'
|
||||
'TsmiDebugContinue
|
||||
'
|
||||
Me.TsmiDebugContinue.Name = "TsmiDebugContinue"
|
||||
Me.TsmiDebugContinue.ShortcutKeys = System.Windows.Forms.Keys.F4
|
||||
Me.TsmiDebugContinue.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugContinue.Text = "继续执行"
|
||||
'
|
||||
'ToolStripSeparator8
|
||||
'
|
||||
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
|
||||
Me.ToolStripSeparator8.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'TsmiDebugSetup
|
||||
'
|
||||
Me.TsmiDebugSetup.Name = "TsmiDebugSetup"
|
||||
Me.TsmiDebugSetup.ShortcutKeys = System.Windows.Forms.Keys.F5
|
||||
Me.TsmiDebugSetup.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugSetup.Text = "Setup模块执行"
|
||||
'
|
||||
'TsmiDebugMain
|
||||
'
|
||||
Me.TsmiDebugMain.Name = "TsmiDebugMain"
|
||||
Me.TsmiDebugMain.ShortcutKeys = System.Windows.Forms.Keys.F6
|
||||
Me.TsmiDebugMain.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugMain.Text = "Main模块执行"
|
||||
'
|
||||
'TsmiDebugPass
|
||||
'
|
||||
Me.TsmiDebugPass.Name = "TsmiDebugPass"
|
||||
Me.TsmiDebugPass.ShortcutKeys = System.Windows.Forms.Keys.F7
|
||||
Me.TsmiDebugPass.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugPass.Text = "Pass模块执行"
|
||||
'
|
||||
'TsmiDebugFail
|
||||
'
|
||||
Me.TsmiDebugFail.Name = "TsmiDebugFail"
|
||||
Me.TsmiDebugFail.ShortcutKeys = System.Windows.Forms.Keys.F8
|
||||
Me.TsmiDebugFail.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugFail.Text = "Fail模块执行"
|
||||
'
|
||||
'TsmiDebugCleanup
|
||||
'
|
||||
Me.TsmiDebugCleanup.Name = "TsmiDebugCleanup"
|
||||
Me.TsmiDebugCleanup.ShortcutKeys = System.Windows.Forms.Keys.F9
|
||||
Me.TsmiDebugCleanup.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugCleanup.Text = "Cleanup模块执行"
|
||||
'
|
||||
'ToolStripSeparator9
|
||||
'
|
||||
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
|
||||
Me.ToolStripSeparator9.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'TsmiDebugNode
|
||||
'
|
||||
Me.TsmiDebugNode.Name = "TsmiDebugNode"
|
||||
Me.TsmiDebugNode.ShortcutKeys = System.Windows.Forms.Keys.F10
|
||||
Me.TsmiDebugNode.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugNode.Text = "节点测试"
|
||||
'
|
||||
'TsmiDebugNodeBegin
|
||||
'
|
||||
Me.TsmiDebugNodeBegin.Name = "TsmiDebugNodeBegin"
|
||||
Me.TsmiDebugNodeBegin.ShortcutKeys = System.Windows.Forms.Keys.F11
|
||||
Me.TsmiDebugNodeBegin.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugNodeBegin.Text = "节点开始测试"
|
||||
'
|
||||
'StuMain
|
||||
'
|
||||
Me.StuMain.Location = New System.Drawing.Point(0, 539)
|
||||
Me.StuMain.Name = "StuMain"
|
||||
Me.StuMain.Size = New System.Drawing.Size(984, 22)
|
||||
Me.StuMain.TabIndex = 11
|
||||
Me.StuMain.Text = "StatusStrip1"
|
||||
'
|
||||
'DlgOpenFile
|
||||
'
|
||||
Me.DlgOpenFile.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'SplitContainer1
|
||||
'
|
||||
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer1.Location = New System.Drawing.Point(0, 36)
|
||||
Me.SplitContainer1.Name = "SplitContainer1"
|
||||
'
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.GroupBox2)
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(984, 525)
|
||||
Me.SplitContainer1.SplitterDistance = 444
|
||||
Me.SplitContainer1.TabIndex = 12
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.LblDesc)
|
||||
Me.GroupBox2.Controls.Add(Me.GrdStationPlan)
|
||||
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GroupBox2.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(444, 525)
|
||||
Me.GroupBox2.TabIndex = 0
|
||||
Me.GroupBox2.TabStop = false
|
||||
Me.GroupBox2.Text = "流程参数"
|
||||
'
|
||||
'LblDesc
|
||||
'
|
||||
Me.LblDesc.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.LblDesc.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.LblDesc.Location = New System.Drawing.Point(3, 461)
|
||||
Me.LblDesc.Name = "LblDesc"
|
||||
Me.LblDesc.Size = New System.Drawing.Size(438, 61)
|
||||
Me.LblDesc.TabIndex = 6
|
||||
'
|
||||
'GrdStationPlan
|
||||
'
|
||||
Me.GrdStationPlan.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
|
||||
Me.GrdStationPlan.BorderStyle = FlexCell.BorderStyleEnum.None
|
||||
Me.GrdStationPlan.CheckedImage = Nothing
|
||||
Me.GrdStationPlan.ContextMenuStrip = Me.CmsPlanGrid
|
||||
Me.GrdStationPlan.DefaultFont = New System.Drawing.Font("宋体", 9!)
|
||||
Me.GrdStationPlan.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.GrdStationPlan.GridColor = System.Drawing.Color.FromArgb(CType(CType(192,Byte),Integer), CType(CType(192,Byte),Integer), CType(CType(192,Byte),Integer))
|
||||
Me.GrdStationPlan.Location = New System.Drawing.Point(0, 24)
|
||||
Me.GrdStationPlan.Name = "GrdStationPlan"
|
||||
Me.GrdStationPlan.Size = New System.Drawing.Size(441, 434)
|
||||
Me.GrdStationPlan.TabIndex = 4
|
||||
Me.GrdStationPlan.UncheckedImage = Nothing
|
||||
'
|
||||
'CmsPlanGrid
|
||||
'
|
||||
Me.CmsPlanGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MsiCopyNode, Me.MsiCutNode, Me.MsiNodePaste, Me.ToolStripSeparator5, Me.MsiUndo, Me.MsiRedo, Me.ToolStripSeparator6, Me.MsiSaveNodeFile, Me.MsiLoadNodeFile, Me.ToolStripSeparator7, Me.TsmiDebugStart, Me.TsmiDebugEnd, Me.TsmiDebugStep, Me.TsmiDebugContinue, Me.ToolStripSeparator8, Me.TsmiDebugSetup, Me.TsmiDebugMain, Me.TsmiDebugPass, Me.TsmiDebugFail, Me.TsmiDebugCleanup, Me.ToolStripSeparator9, Me.TsmiDebugNode, Me.TsmiDebugNodeBegin})
|
||||
Me.CmsPlanGrid.Name = "CmsMain"
|
||||
Me.CmsPlanGrid.Size = New System.Drawing.Size(193, 430)
|
||||
'
|
||||
'MsiCopyNode
|
||||
'
|
||||
Me.MsiCopyNode.Enabled = false
|
||||
Me.MsiCopyNode.Name = "MsiCopyNode"
|
||||
Me.MsiCopyNode.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiCopyNode.Text = "复制"
|
||||
'
|
||||
'MsiCutNode
|
||||
'
|
||||
Me.MsiCutNode.Enabled = false
|
||||
Me.MsiCutNode.Name = "MsiCutNode"
|
||||
Me.MsiCutNode.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiCutNode.Text = "剪切"
|
||||
'
|
||||
'MsiNodePaste
|
||||
'
|
||||
Me.MsiNodePaste.Enabled = false
|
||||
Me.MsiNodePaste.Name = "MsiNodePaste"
|
||||
Me.MsiNodePaste.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiNodePaste.Text = "粘贴"
|
||||
'
|
||||
'ToolStripSeparator5
|
||||
'
|
||||
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
|
||||
Me.ToolStripSeparator5.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'MsiUndo
|
||||
'
|
||||
Me.MsiUndo.Enabled = false
|
||||
Me.MsiUndo.Name = "MsiUndo"
|
||||
Me.MsiUndo.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiUndo.Text = "撤销"
|
||||
'
|
||||
'MsiRedo
|
||||
'
|
||||
Me.MsiRedo.Enabled = false
|
||||
Me.MsiRedo.Name = "MsiRedo"
|
||||
Me.MsiRedo.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiRedo.Text = "重做"
|
||||
'
|
||||
'ToolStripSeparator6
|
||||
'
|
||||
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
|
||||
Me.ToolStripSeparator6.Size = New System.Drawing.Size(189, 6)
|
||||
'
|
||||
'MsiSaveNodeFile
|
||||
'
|
||||
Me.MsiSaveNodeFile.Name = "MsiSaveNodeFile"
|
||||
Me.MsiSaveNodeFile.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiSaveNodeFile.Text = "另存为节点文件"
|
||||
'
|
||||
'MsiLoadNodeFile
|
||||
'
|
||||
Me.MsiLoadNodeFile.Name = "MsiLoadNodeFile"
|
||||
Me.MsiLoadNodeFile.Size = New System.Drawing.Size(192, 22)
|
||||
Me.MsiLoadNodeFile.Text = "加载节点文件"
|
||||
'
|
||||
'TsmiDebugStart
|
||||
'
|
||||
Me.TsmiDebugStart.Name = "TsmiDebugStart"
|
||||
Me.TsmiDebugStart.ShortcutKeys = System.Windows.Forms.Keys.F1
|
||||
Me.TsmiDebugStart.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugStart.Text = "开始执行"
|
||||
'
|
||||
'TsmiDebugEnd
|
||||
'
|
||||
Me.TsmiDebugEnd.Name = "TsmiDebugEnd"
|
||||
Me.TsmiDebugEnd.ShortcutKeys = System.Windows.Forms.Keys.F2
|
||||
Me.TsmiDebugEnd.Size = New System.Drawing.Size(192, 22)
|
||||
Me.TsmiDebugEnd.Text = "退出执行"
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GroupBox1.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(536, 525)
|
||||
Me.GroupBox1.TabIndex = 0
|
||||
Me.GroupBox1.TabStop = false
|
||||
Me.GroupBox1.Text = "常规预览"
|
||||
'
|
||||
'TsBtnOpen
|
||||
'
|
||||
Me.TsBtnOpen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.TsBtnOpen.Image = CType(resources.GetObject("TsBtnOpen.Image"),System.Drawing.Image)
|
||||
Me.TsBtnOpen.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnOpen.Name = "TsBtnOpen"
|
||||
Me.TsBtnOpen.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnOpen.Text = "打开"
|
||||
Me.TsBtnOpen.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
'
|
||||
'TsBtnSave
|
||||
'
|
||||
Me.TsBtnSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.TsBtnSave.Image = CType(resources.GetObject("TsBtnSave.Image"),System.Drawing.Image)
|
||||
Me.TsBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnSave.Name = "TsBtnSave"
|
||||
Me.TsBtnSave.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnSave.Text = "保存"
|
||||
Me.TsBtnSave.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
'
|
||||
'ToolStripSeparator4
|
||||
'
|
||||
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
|
||||
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 36)
|
||||
'
|
||||
'TsBtnLoad
|
||||
'
|
||||
Me.TsBtnLoad.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.TsBtnLoad.Image = CType(resources.GetObject("TsBtnLoad.Image"),System.Drawing.Image)
|
||||
Me.TsBtnLoad.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnLoad.Name = "TsBtnLoad"
|
||||
Me.TsBtnLoad.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnLoad.Text = "重载"
|
||||
Me.TsBtnLoad.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
'
|
||||
'TsBtnSaveAs
|
||||
'
|
||||
Me.TsBtnSaveAs.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.TsBtnSaveAs.Image = CType(resources.GetObject("TsBtnSaveAs.Image"),System.Drawing.Image)
|
||||
Me.TsBtnSaveAs.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.TsBtnSaveAs.Name = "TsBtnSaveAs"
|
||||
Me.TsBtnSaveAs.Size = New System.Drawing.Size(35, 33)
|
||||
Me.TsBtnSaveAs.Text = "导出"
|
||||
Me.TsBtnSaveAs.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||
'
|
||||
'ToolStripSeparator3
|
||||
'
|
||||
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
|
||||
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 36)
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsBtnOpen, Me.TsBtnSave, Me.ToolStripSeparator4, Me.TsBtnLoad, Me.TsBtnSaveAs, Me.ToolStripSeparator3})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(984, 36)
|
||||
Me.ToolStrip1.TabIndex = 10
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'ZQ_Mars_P3_FrmStationPlan
|
||||
'
|
||||
Me.ClientSize = New System.Drawing.Size(984, 561)
|
||||
Me.Controls.Add(Me.StuMain)
|
||||
Me.Controls.Add(Me.SplitContainer1)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Name = "ZQ_Mars_P3_FrmStationPlan"
|
||||
Me.SplitContainer1.Panel1.ResumeLayout(false)
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(false)
|
||||
CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).EndInit
|
||||
Me.SplitContainer1.ResumeLayout(false)
|
||||
Me.GroupBox2.ResumeLayout(false)
|
||||
Me.CmsPlanGrid.ResumeLayout(false)
|
||||
Me.ToolStrip1.ResumeLayout(false)
|
||||
Me.ToolStrip1.PerformLayout
|
||||
Me.ResumeLayout(false)
|
||||
Me.PerformLayout
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents ToolStripSeparator7 As ToolStripSeparator
|
||||
Friend WithEvents TsmiDebugStep As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugContinue As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator8 As ToolStripSeparator
|
||||
Friend WithEvents TsmiDebugSetup As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugMain As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugPass As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugFail As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugCleanup As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator9 As ToolStripSeparator
|
||||
Friend WithEvents TsmiDebugNode As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugNodeBegin As ToolStripMenuItem
|
||||
Friend WithEvents StuMain As StatusStrip
|
||||
Friend WithEvents DlgOpenFile As OpenFileDialog
|
||||
Friend WithEvents SplitContainer1 As SplitContainer
|
||||
Friend WithEvents GroupBox2 As GroupBox
|
||||
Friend WithEvents LblDesc As Label
|
||||
Friend WithEvents GrdStationPlan As FlexCell.Grid
|
||||
Friend WithEvents CmsPlanGrid As ContextMenuStrip
|
||||
Friend WithEvents MsiCopyNode As ToolStripMenuItem
|
||||
Friend WithEvents MsiCutNode As ToolStripMenuItem
|
||||
Friend WithEvents MsiNodePaste As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
|
||||
Friend WithEvents MsiUndo As ToolStripMenuItem
|
||||
Friend WithEvents MsiRedo As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
|
||||
Friend WithEvents MsiSaveNodeFile As ToolStripMenuItem
|
||||
Friend WithEvents MsiLoadNodeFile As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugStart As ToolStripMenuItem
|
||||
Friend WithEvents TsmiDebugEnd As ToolStripMenuItem
|
||||
Friend WithEvents GroupBox1 As GroupBox
|
||||
Friend WithEvents TsBtnOpen As ToolStripButton
|
||||
Friend WithEvents TsBtnSave As ToolStripButton
|
||||
Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
|
||||
Friend WithEvents TsBtnLoad As ToolStripButton
|
||||
Friend WithEvents TsBtnSaveAs As ToolStripButton
|
||||
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
|
||||
Friend WithEvents ToolStrip1 As ToolStrip
|
||||
End Class
|
||||
@@ -0,0 +1,185 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="StuMain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 93</value>
|
||||
</metadata>
|
||||
<metadata name="DlgOpenFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>118, 93</value>
|
||||
</metadata>
|
||||
<metadata name="CmsPlanGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>243, 93</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="TsBtnOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHOSURBVGhD1ZnLSgRBFEMbFN3rUv03H1v160T/wDfot+jo
|
||||
VhNk4FqUk77dqRrnQGAgnZt+TS26hhnsQpfQPbSAvsziTM6+gNhl5QB6hWrFLfQCsdMC70bPk1+KF2F5
|
||||
EnxtagU9dA7N5gGKQ68g2+MNHELXUOy6g2bzDsWhLGrFERS73qDZxIFUa+x99oGCyX1b0OnPz19MHjiR
|
||||
SX370DNUC0waOIN03za0PPlaIA6r+W7SfWfQqkD0ar6bdN8TtCoQvZrvJt33Ca0KRK/mu0n3qYDy3aT7
|
||||
VED5btJ9KqB8N+k+FVC+m3SfCijfTbpPBZTvJt2nAsp3k+5TAeW7SfepgPLdpPtUQPlu0n0qoHw36T4V
|
||||
UL6bdJ8KKN9Nuk8FlO8m3acCyneT7lMB5btJ96mA8t2k+1RA+W7SfSqgfDfpPhVQvpt0nwr8+4+7MUCV
|
||||
lJ/X+Qm8xUXw5G+g2DXq83oMUCXcsyqP6aVRGxxlqITbPNzuKY9rLXbuQJIyWIM7Mj0vIrXJV4b/gneD
|
||||
j5TvZfnHdogzbyF2jLrzS8pBG8fGX0DPdb4Jvdb5ZqxznT+BZrOudf4R4saihd7rPE9+D7LSep3/gPh/
|
||||
O4a4sTiBYfgGl13a4+npcwkAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TsBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHqSURBVGhD7Zm9Tt1AEEYvNDxCArwSXZDSpAwiFQ+HEA2Q
|
||||
dPmpeAl4AaALEnxTXDSate/xeHcvkeIjnerzN97F9rWEVwsLC6PsyFP5Rz7Jl07ey0+yKQfyuxw6YQ//
|
||||
ys+yCbvyhxw6UU+f5RdZzTc5dIJt2ORK2D3vh17ID3KNz8wabLG2aD+vehOP0g/8KD0+M2tpvgk/yIxQ
|
||||
PodjGTcx+5nwQ8wI5XNptgk/wIxQXkOTTfiyGaG8lupN+KIZiflc7Q18JIcYe7AnvbF9yYzEvMY7OcbQ
|
||||
JjYd/4YvmBEbEo+ZKy3INhE7CBXsstvlj8dl3XQLeWIPSRc6k15PutCZ9HrShc6k15MudCa9nnShM+n1
|
||||
pAudSa+HCq1+RqNjP6vxOIQKLV9k0aEXWzwGoULMWxuhvIAKMW9thPICKlCeheZRXkAFyrPQPMoLqEB5
|
||||
FppHeQEVKM9C8ygvoALlWWge5QVUoDwLzaO8gAqUZ6F5lBdQgfIsNI/yAipQnoXmUV5ABcqz0DzKCx6k
|
||||
L/j/TBs+M2vZNM8+tPjM1ob8lr50LvflGp+ZtYzNs3NeSp/9ksiZ9KV/ya8S2ZO3cmjAe3ol7cPjJA7l
|
||||
jRwa9B5eS38bT8J2eyJ/yvjVZhvaA2vntttm8l9+YeH/YrV6BfNWMy9RUhK1AAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="TsBtnLoad.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHOSURBVGhD1ZnLSgRBFEMbFN3rUv03H1v160T/wDfot+jo
|
||||
VhNk4FqUk77dqRrnQGAgnZt+TS26hhnsQpfQPbSAvsziTM6+gNhl5QB6hWrFLfQCsdMC70bPk1+KF2F5
|
||||
EnxtagU9dA7N5gGKQ68g2+MNHELXUOy6g2bzDsWhLGrFERS73qDZxIFUa+x99oGCyX1b0OnPz19MHjiR
|
||||
SX370DNUC0waOIN03za0PPlaIA6r+W7SfWfQqkD0ar6bdN8TtCoQvZrvJt33Ca0KRK/mu0n3qYDy3aT7
|
||||
VED5btJ9KqB8N+k+FVC+m3SfCijfTbpPBZTvJt2nAsp3k+5TAeW7SfepgPLdpPtUQPlu0n0qoHw36T4V
|
||||
UL6bdJ8KKN9Nuk8FlO8m3acCyneT7lMB5btJ96mA8t2k+1RA+W7SfSqgfDfpPhVQvpt0nwr8+4+7MUCV
|
||||
lJ/X+Qm8xUXw5G+g2DXq83oMUCXcsyqP6aVRGxxlqITbPNzuKY9rLXbuQJIyWIM7Mj0vIrXJV4b/gneD
|
||||
j5TvZfnHdogzbyF2jLrzS8pBG8fGX0DPdb4Jvdb5ZqxznT+BZrOudf4R4saihd7rPE9+D7LSep3/gPh/
|
||||
O4a4sTiBYfgGl13a4+npcwkAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TsBtnSaveAs.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADQSURBVEhL5ZYxDgFBGEbnCE4gjuAcCnEER3AER9BpVWqV
|
||||
QqcTlSOIUkVFx/fWSMYsyfx/FCu+5CX7ZWfmTbKT3Q1J+mLnYCmKMhQ3sRKLQg5iL4ryFHSqVpaZ+H3B
|
||||
UQwy2qIWr4A5OaxVi0fATrsJPfFVQR7m/pGA42eBmARc8yrgpMxj38aewhjuEbNg/LgMLUEfVe01jGmu
|
||||
4CpO4hz7JfYUxrgFGzER09jXsacwxi34/WdggZgE7MwCMQk8aYbA8tHPYe5Hgfe35R2spYRwB61XwcSY
|
||||
NxMjAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>370, 93</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,489 @@
|
||||
Imports UTS_Core.DebugLog
|
||||
Imports UTS_Core.UTSModule
|
||||
Imports UTS_Core.UTSModule.Station
|
||||
Imports UTS_Core.UTSModule.Station.StationPackagePlan
|
||||
Imports UTS_Core.UTSModule.Test.StatusMonitor
|
||||
Public Class ZQ_Mars_P3_FrmStationPlan
|
||||
|
||||
|
||||
' Implements IProcessFileChanged
|
||||
Implements IProcessStation
|
||||
Implements IProductionLine
|
||||
|
||||
Private _utsApp As UtsAppForm
|
||||
Private _stationPlan As StationPackagePlan
|
||||
|
||||
Public Sub ShowForm(parentControl As Control)
|
||||
FormBorderStyle = FormBorderStyle.None
|
||||
TopLevel = False
|
||||
Dock = DockStyle.Fill
|
||||
Parent = parentControl
|
||||
|
||||
Show()
|
||||
End Sub
|
||||
|
||||
Public Sub utsbctfilechanged（）
|
||||
'For Each observer As IProcessStation In _observerList
|
||||
' observer.StationChanged()
|
||||
' Next
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 站位变更代码
|
||||
''' </summary>
|
||||
Public Sub Station_Changed() Implements IProcessStation.StationChanged
|
||||
ApplicationLog.WriteInfoLog($"编辑页面站位变更中，PN：{_utsApp.ProcessStation.ParentProject.Name} - SN:{_utsApp.ProcessStation.Name} - TP:{_utsApp.ProcessStation.Packet.Name}!")
|
||||
|
||||
Try
|
||||
_stationPlan = CType(_utsApp.ProcessStation.Packet.StationPlan, StationPackagePlan)
|
||||
Catch ex As Exception
|
||||
MsgBox($"加载项目流程失败,{ex.Message}")
|
||||
End Try
|
||||
|
||||
InitGrid(_stationPlan)
|
||||
|
||||
ApplicationLog.WriteInfoLog($"编辑页面站位变更完成。")
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 产线变化代码
|
||||
''' </summary>
|
||||
Public Sub ProductionLineChanged() Implements IProductionLine.ProductionLineChanged
|
||||
ApplicationLog.WriteInfoLog($"编辑页面生产线变更中。")
|
||||
|
||||
|
||||
ApplicationLog.WriteInfoLog($"编辑页面生产线变更完成。")
|
||||
End Sub
|
||||
|
||||
Private Sub FrmStationPlan_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(ProcessStation.StationTypeEnum.Package) '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()
|
||||
InitGrid(_stationPlan)
|
||||
End Sub
|
||||
|
||||
Private Sub TsBtnOpen_Click(sender As Object, e As EventArgs) Handles TsBtnOpen.Click
|
||||
Using xml As New OpenFileDialog
|
||||
xml.Filter = $"流程文件(*.xml)|*.xml"
|
||||
|
||||
If xml.ShowDialog() = DialogResult.OK Then
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程正在加载{xml.FileName}")
|
||||
LoadTreeViewFormXml(xml.FileName)
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程加载完成。")
|
||||
End If
|
||||
End Using
|
||||
End Sub
|
||||
|
||||
Private Sub TsBtnLoad_Click(sender As Object, e As EventArgs) Handles TsBtnLoad.Click
|
||||
If MsgBox("重载会将流程返回为上一次保存的流程状态,是否继续", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程重载中。")
|
||||
LoadTreeViewFormXml()
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程重载完成。")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TsBtnSave_Click(sender As Object, e As EventArgs) Handles TsBtnSave.Click
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程保存中。")
|
||||
UpdateGrid(_stationPlan)
|
||||
|
||||
ExportTreeViewToXml()
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程保存完成。")
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 读取XML,加载树状视图
|
||||
''' </summary>
|
||||
Private Sub LoadTreeViewFormXml()
|
||||
Dim revStationPlanPath As String = $"{UtsPath.GetStationPacketTestPlanDirPath(_stationPlan.ParentPacket.Name)}\Main.xml"
|
||||
|
||||
Try
|
||||
_stationPlan.LoadFile(revStationPlanPath)
|
||||
InitGrid(_stationPlan)
|
||||
|
||||
If StationEditStatusMonitor.StationEditStatus <> StationEditStatusMonitor.StationEditStatusEnum.Saved Then
|
||||
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Saved
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ApplicationLog.WriteErrorLog($"加载测试站流程发生错误,原因：{ex.Message}")
|
||||
MsgBox($"加载测试站流程发生错误,原因：{ex.Message}")
|
||||
_stationPlan.CreateStationPlan()
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 读取XML,加载树状视图
|
||||
''' </summary>
|
||||
Private Sub LoadTreeViewFormXml(revStationPlanPath As String)
|
||||
Try
|
||||
_stationPlan.LoadFile(revStationPlanPath)
|
||||
InitGrid(_stationPlan)
|
||||
|
||||
If StationEditStatusMonitor.StationEditStatus <> StationEditStatusMonitor.StationEditStatusEnum.Saved Then
|
||||
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Saved
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ApplicationLog.WriteErrorLog($"加载测试站流程发生错误,原因：{ex.Message}")
|
||||
MsgBox($"加载测试站流程发生错误,原因：{ex.Message}")
|
||||
_stationPlan.CreateStationPlan()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 将树状视图导出为Xml
|
||||
''' </summary>
|
||||
Private Sub ExportTreeViewToXml()
|
||||
'保存至项目文件
|
||||
Dim revStationPlanPath As String = $"{UtsPath.GetStationPacketTestPlanDirPath(_stationPlan.ParentPacket.Name)}\Main.xml"
|
||||
_stationPlan.SaveFile(revStationPlanPath)
|
||||
|
||||
'备份至临时文件
|
||||
Dim tempPath As String = $"{UtsPath.StationDesignDirPath()}\Main.xml"
|
||||
_stationPlan.SaveFile(tempPath)
|
||||
|
||||
If StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed Then
|
||||
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Saved
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TsBtnSaveAs_Click(sender As Object, e As EventArgs) Handles TsBtnSaveAs.Click
|
||||
Using dlg As New SaveFileDialog
|
||||
dlg.Filter = "Excel 文件(*.xls)|*.xls|CSV 文件(*.csv)|*.csv|PDF 文件(*.pdf)|*.pdf"
|
||||
dlg.AddExtension = True
|
||||
If dlg.ShowDialog <> DialogResult.OK Then Return
|
||||
Cursor = Cursors.WaitCursor
|
||||
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程导出中。")
|
||||
Try
|
||||
Select Case dlg.FilterIndex
|
||||
Case 1
|
||||
GrdStationPlan.ExportToExcel(dlg.FileName, True, True)
|
||||
Case 2
|
||||
GrdStationPlan.ExportToCSV(dlg.FileName, True, True)
|
||||
Case 3
|
||||
GrdStationPlan.ExportToPDF(dlg.FileName)
|
||||
End Select
|
||||
|
||||
ApplicationLog.WriteInfoLog($"编辑页面执行流程导出完成。")
|
||||
Catch ex As Exception
|
||||
ApplicationLog.WriteErrorLog($"编辑页面执行流程导出失败,原因：{ex.Message}")
|
||||
MsgBox($"编辑页面执行流程导出失败,原因：{ex.Message}")
|
||||
End Try
|
||||
Cursor = Cursors.Arrow
|
||||
End Using
|
||||
End Sub
|
||||
|
||||
#Region "Package表格"
|
||||
Private Sub InitGrid(Optional stationplan As StationPackagePlan = Nothing)
|
||||
With GrdStationPlan
|
||||
.AutoRedraw = False
|
||||
|
||||
.NewFile()
|
||||
.BorderStyle = FlexCell.BorderStyleEnum.None
|
||||
|
||||
.Cols = ColNames.Max
|
||||
.Rows = RowItems.Max
|
||||
|
||||
.ExtendLastCol = True
|
||||
.DisplayRowNumber = True
|
||||
|
||||
.Cell(0, ColNames.Item).Text = "Item"
|
||||
.Cell(0, ColNames.Value).Text = "Value"
|
||||
|
||||
.Column(ColNames.Item).Width = 200
|
||||
.Column(ColNames.Item).Locked = True
|
||||
|
||||
.DefaultRowHeight = 20
|
||||
.DefaultFont = New Font("微软雅黑", 10)
|
||||
|
||||
For i As Integer = 1 To RowItems.Max - 1
|
||||
.Cell(i, ColNames.Item).Text = [Enum].GetName(GetType(RowItems), i)
|
||||
Next
|
||||
|
||||
'.Cell(RowItems.CheckSnTested, ColNames.Value).CellType = FlexCell.CellTypeEnum.ComboBox
|
||||
'.Cell(RowItems.CheckSnPackaged, ColNames.Value).CellType = FlexCell.CellTypeEnum.ComboBox
|
||||
'.Cell(RowItems.CheckSnMO, ColNames.Value).CellType = FlexCell.CellTypeEnum.ComboBox
|
||||
'.Cell(RowItems.MissingQuantity, ColNames.Value).CellType = FlexCell.CellTypeEnum.ComboBox
|
||||
'.Cell(RowItems.BarCodeType, ColNames.Value).CellType = FlexCell.CellTypeEnum.ComboBox
|
||||
|
||||
.Cell(RowItems.AutoPrint, ColNames.Value).CellType = FlexCell.CellTypeEnum.CheckBox
|
||||
.Cell(RowItems.BoxMumEditKey, ColNames.Item).Text = "MaxNum"
|
||||
'.Cell(RowItems.ErrorSound, ColNames.Value).CellType = FlexCell.CellTypeEnum.Button
|
||||
'.Cell(RowItems.TemplateFile, ColNames.Value).CellType = FlexCell.CellTypeEnum.Button
|
||||
'.Cell(RowItems.CompanyLogo, ColNames.Value).CellType = FlexCell.CellTypeEnum.Button
|
||||
|
||||
FillGrid(stationplan)
|
||||
|
||||
.AutoRedraw = True
|
||||
.Refresh()
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub FillGrid(stationplan As StationPackagePlan)
|
||||
If stationplan Is Nothing Then Return
|
||||
|
||||
With GrdStationPlan
|
||||
'.Cell(RowItems.CheckSnTested, ColNames.Value).Text = stationplan.CheckSnTested.ToString
|
||||
'.Cell(RowItems.CheckSnPackaged, ColNames.Value).Text = stationplan.CheckSnPackaged.ToString
|
||||
'.Cell(RowItems.CheckSnMO, ColNames.Value).Text = stationplan.CheckSnMO.ToString
|
||||
|
||||
'.Cell(RowItems.PictureCount, ColNames.Value).Text = stationplan.PictureCount.ToString
|
||||
'.Cell(RowItems.UnlockKey, ColNames.Value).Text = stationplan.UnlockKey
|
||||
|
||||
'.Cell(RowItems.BarCodeType, ColNames.Value).Text = stationplan.BarCodeType.ToString
|
||||
|
||||
'.Cell(RowItems.MissingQuantity, ColNames.Value).Text = stationplan.MissingQuantity.ToString
|
||||
'.Cell(RowItems.MissingQuantityKey, ColNames.Value).Text = stationplan.MissingQuantityKey
|
||||
|
||||
.Cell(RowItems.AutoPrint, ColNames.Value).Text = stationplan.AutoPrint.ToString
|
||||
|
||||
'.Cell(RowItems.ErrorSound, ColNames.Value).Text = stationplan.ErrorSound
|
||||
'.Cell(RowItems.TemplateFile, ColNames.Value).Text = stationplan.TemplateFile
|
||||
|
||||
.Cell(RowItems.BoxMumEditKey, ColNames.Value).Text = stationplan.BoxMumEditKey
|
||||
|
||||
'.Cell(RowItems.CompanyLogo, ColNames.Value).Text = stationplan.CompanyLogo
|
||||
'.Cell(RowItems.CompanyName, ColNames.Value).Text = stationplan.CompanyName
|
||||
|
||||
'.Cell(RowItems.BoxNumText, ColNames.Value).Text = stationplan.BoxNumText
|
||||
'.Cell(RowItems.BoxBarCode, ColNames.Value).Text = stationplan.BoxBarCode
|
||||
End With
|
||||
|
||||
|
||||
If StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed Then
|
||||
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Saved
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub UpdateGrid(stationplan As StationPackagePlan)
|
||||
If _stationPlan Is Nothing Then Return
|
||||
|
||||
With GrdStationPlan
|
||||
'If [Enum].TryParse(.Cell(RowItems.CheckSnTested, ColNames.Value).Text, stationplan.CheckSnTested) = False Then
|
||||
' MsgBox("更新CheckSnTested失败!")
|
||||
' Return
|
||||
'End If
|
||||
'If [Enum].TryParse(.Cell(RowItems.CheckSnPackaged, ColNames.Value).Text, stationplan.CheckSnPackaged) = False Then
|
||||
' MsgBox("更新CheckSnPackaged失败!")
|
||||
' Return
|
||||
'End If
|
||||
'If [Enum].TryParse(.Cell(RowItems.CheckSnMO, ColNames.Value).Text, stationplan.CheckSnMO) = False Then
|
||||
' MsgBox("更新CheckSnMO失败!")
|
||||
' Return
|
||||
'End If
|
||||
|
||||
'If [Enum].TryParse(.Cell(RowItems.BarCodeType, ColNames.Value).Text, stationplan.BarCodeType) = False Then
|
||||
' MsgBox("更新BarCodeType失败!")
|
||||
' Return
|
||||
'End If
|
||||
|
||||
'If [Enum].TryParse(.Cell(RowItems.MissingQuantity, ColNames.Value).Text, stationplan.MissingQuantity) = False Then
|
||||
' MsgBox("更新MissingQuantity失败!")
|
||||
' Return
|
||||
'End If
|
||||
|
||||
'stationplan.PictureCount = .Cell(RowItems.PictureCount, ColNames.Value).IntegerValue
|
||||
|
||||
'stationplan.UnlockKey = .Cell(RowItems.UnlockKey, ColNames.Value).Text
|
||||
|
||||
'stationplan.MissingQuantityKey = .Cell(RowItems.MissingQuantityKey, ColNames.Value).Text
|
||||
|
||||
stationplan.AutoPrint = .Cell(RowItems.AutoPrint, ColNames.Value).BooleanValue
|
||||
|
||||
'stationplan.ErrorSound = .Cell(RowItems.ErrorSound, ColNames.Value).Text
|
||||
' stationplan.TemplateFile = .Cell(RowItems.TemplateFile, ColNames.Value).Text
|
||||
|
||||
stationplan.BoxMumEditKey = .Cell(RowItems.BoxMumEditKey, ColNames.Value).Text
|
||||
|
||||
'stationplan.CompanyLogo = .Cell(RowItems.CompanyLogo, ColNames.Value).Text
|
||||
'stationplan.CompanyName = .Cell(RowItems.CompanyName, ColNames.Value).Text
|
||||
|
||||
'stationplan.BoxNumText = .Cell(RowItems.BoxNumText, ColNames.Value).Text
|
||||
'stationplan.BoxBarCode = .Cell(RowItems.BoxBarCode, ColNames.Value).Text
|
||||
End With
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub GrdStationPlan_ButtonClick(Sender As Object, e As FlexCell.Grid.ButtonClickEventArgs) Handles GrdStationPlan.ButtonClick
|
||||
Select Case e.Row
|
||||
'Case RowItems.ErrorSound
|
||||
' DlgOpenFile.Filter = "图像资源 (*.jpg;*.png;*.gif;*.ico)|*.jpg;*.png;*.gif;*.ico"
|
||||
'Case RowItems.TemplateFile
|
||||
' DlgOpenFile.Filter = "模板资源 (*.btw)|*.btw"
|
||||
' 'Case RowItems.CompanyLogo
|
||||
' DlgOpenFile.Filter = "图像资源 (*.jpg;*.png;*.gif;*.ico)|*.jpg;*.png;*.gif;*.ico"
|
||||
End Select
|
||||
|
||||
DlgOpenFile.CheckFileExists = True
|
||||
DlgOpenFile.CheckPathExists = True
|
||||
If DlgOpenFile.ShowDialog() <> DialogResult.OK Then Return
|
||||
|
||||
Dim fileName As String = $"{DlgOpenFile.SafeFileName}"
|
||||
Dim fileDir As String = UtsPath.GetStationPacketResourceDirPath(_stationPlan.ParentPacket.Name)
|
||||
Dim fliePath As String = $"{fileDir}\{fileName}"
|
||||
|
||||
GrdStationPlan.Cell(e.Row, ColNames.Value).Text = fileName
|
||||
|
||||
'导入文件
|
||||
Try
|
||||
IO.File.Copy(DlgOpenFile.FileName, fliePath, True)
|
||||
Catch ex As Exception
|
||||
MsgBox($"导入资源文件失败，{ex.Message}")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub GrdStationPlan_ComboDropDown(Sender As Object, e As FlexCell.Grid.ComboDropDownEventArgs) Handles GrdStationPlan.ComboDropDown
|
||||
GrdStationPlan.ComboBox(0).Items.Clear()
|
||||
Select Case e.Row
|
||||
'Case RowItems.CheckSnTested
|
||||
' GrdStationPlan.ComboBox(0).Items.AddRange([Enum].GetNames(GetType(CheckStatus)))
|
||||
'Case RowItems.CheckSnPackaged
|
||||
' GrdStationPlan.ComboBox(0).Items.AddRange([Enum].GetNames(GetType(CheckStatus)))
|
||||
'Case RowItems.CheckSnMO
|
||||
' GrdStationPlan.ComboBox(0).Items.AddRange([Enum].GetNames(GetType(CheckStatus)))
|
||||
'Case RowItems.MissingQuantity
|
||||
' GrdStationPlan.ComboBox(0).Items.AddRange([Enum].GetNames(GetType(MissCountStatus)))
|
||||
'Case RowItems.BarCodeType
|
||||
' GrdStationPlan.ComboBox(0).Items.AddRange([Enum].GetNames(GetType(BarcodeTypes)))
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub GrdStationPlan_CellChange(Sender As Object, e As FlexCell.Grid.CellChangeEventArgs) Handles GrdStationPlan.CellChange
|
||||
StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed
|
||||
End Sub
|
||||
|
||||
Enum ColNames
|
||||
SN
|
||||
Item
|
||||
Value
|
||||
Max
|
||||
End Enum
|
||||
|
||||
|
||||
|
||||
Enum RowItems
|
||||
''' <summary>固定行</summary>
|
||||
<System.ComponentModel.Description("固定行")>
|
||||
SN
|
||||
|
||||
'''' <summary>校验条码未测试后处理方式</summary>
|
||||
'<System.ComponentModel.Description("校验条码未测试后处理方式")>
|
||||
'CheckSnTested
|
||||
|
||||
'''' <summary>校验条码已参与包装后处理方式</summary>
|
||||
'<System.ComponentModel.Description("校验条码已参与包装后处理方式")>
|
||||
'CheckSnPackaged
|
||||
|
||||
'''' <summary>校验条码不属于指定MO后处理方式</summary>
|
||||
'<System.ComponentModel.Description("校验条码不属于指定MO后处理方式")>
|
||||
'CheckSnMO
|
||||
|
||||
'''' <summary>拍摄保存图像的数量</summary>
|
||||
'<System.ComponentModel.Description("拍摄保存图像的数量")>
|
||||
'PictureCount
|
||||
|
||||
'''' <summary>解锁密码</summary>
|
||||
'<System.ComponentModel.Description("解锁密码")>
|
||||
'UnlockKey
|
||||
|
||||
'''' <summary>条码类型</summary>
|
||||
'<System.ComponentModel.Description("条码类型")>
|
||||
'BarCodeType
|
||||
|
||||
'''' <summary>缺失条码数量后的处理方式</summary>
|
||||
'<System.ComponentModel.Description("缺失条码数量后的处理方式")>
|
||||
'MissingQuantity
|
||||
|
||||
'''' <summary>缺失条码数量后的解锁密码</summary>
|
||||
'<System.ComponentModel.Description("缺失条码数量后的解锁密码")>
|
||||
'MissingQuantityKey
|
||||
|
||||
''' <summary>是否自动打印</summary>
|
||||
<System.ComponentModel.Description("是否自动录入")>
|
||||
AutoPrint
|
||||
|
||||
'''' <summary>发生错误后报警文件</summary>
|
||||
'<System.ComponentModel.Description("发生错误后报警文件")>
|
||||
'ErrorSound
|
||||
|
||||
'''' <summary>模板文件名</summary>
|
||||
'<System.ComponentModel.Description("模板文件名")>
|
||||
'TemplateFile
|
||||
|
||||
''' <summary>箱号编辑密码</summary>
|
||||
<System.ComponentModel.Description("箱号编辑密码")>
|
||||
BoxMumEditKey
|
||||
|
||||
'''' <summary>公司Logo文件</summary>
|
||||
'<System.ComponentModel.Description("公司Logo文件")>
|
||||
'CompanyLogo
|
||||
|
||||
'''' <summary>公司名称</summary>
|
||||
'<System.ComponentModel.Description("公司名称")>
|
||||
'CompanyName
|
||||
|
||||
'''' <summary>箱号规则</summary>
|
||||
'<System.ComponentModel.Description("箱号规则")>
|
||||
'BoxNumText
|
||||
|
||||
'''' <summary>箱号条码</summary>
|
||||
'<System.ComponentModel.Description("箱号条码")>
|
||||
'BoxBarCode
|
||||
|
||||
Max
|
||||
End Enum
|
||||
|
||||
Private Sub GrdStationPlan_SelChange(Sender As Object, e As FlexCell.Grid.SelChangeEventArgs) Handles GrdStationPlan.SelChange
|
||||
If e.FirstRow <= RowItems.SN OrElse e.FirstRow > GrdStationPlan.Rows - 1 Then Return
|
||||
|
||||
Dim row As Integer = e.FirstRow
|
||||
Dim a As RowItems
|
||||
If [Enum].TryParse(row.ToString, a) Then
|
||||
LblDesc.Text = $"Row:{row}{vbCrLf}Desc:{GetEnumDescription(a)}"
|
||||
Else
|
||||
LblDesc.Text = $"Row:{row}{vbCrLf}Desc:无说明"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Function GetEnumDescription(enumValue As RowItems) As String
|
||||
Dim str As String = enumValue.ToString()
|
||||
Dim field As System.Reflection.FieldInfo = enumValue.GetType().GetField(str)
|
||||
Dim objs() As Object = field.GetCustomAttributes(GetType(System.ComponentModel.DescriptionAttribute), False)
|
||||
If objs Is Nothing OrElse objs.Length = 0 Then Return str
|
||||
Dim da As System.ComponentModel.DescriptionAttribute = CType(objs(0), ComponentModel.DescriptionAttribute)
|
||||
Return da.Description
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
485
SQLliteReading/AUTS_Package/ZQ/Mars/P3-装箱/ZQ_Mars_P3_FrmStationTest.Designer.vb
generated
Normal file
485
SQLliteReading/AUTS_Package/ZQ/Mars/P3-装箱/ZQ_Mars_P3_FrmStationTest.Designer.vb
generated
Normal file
@@ -0,0 +1,485 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class ZQ_Mars_P3_FrmStationTest
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form 重写 Dispose，以清理组件列表。
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Windows 窗体设计器所必需的
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'注意: 以下过程是 Windows 窗体设计器所必需的
|
||||
'可以使用 Windows 窗体设计器修改它。
|
||||
'不要使用代码编辑器修改它。
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
|
||||
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
|
||||
Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.SplitContainer4 = New System.Windows.Forms.SplitContainer()
|
||||
Me.TreeViewEx1 = New UTS_Core.UTSModule.Station.TreeViewEx()
|
||||
Me.lab1 = New System.Windows.Forms.Label()
|
||||
Me.txt_inputnum = New System.Windows.Forms.TextBox()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.txt_unitweight = New System.Windows.Forms.TextBox()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.txt_labstring = New System.Windows.Forms.TextBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.txt_SnCode = New System.Windows.Forms.TextBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.txt_colorbox = New System.Windows.Forms.TextBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.txt_MacCode = New System.Windows.Forms.TextBox()
|
||||
Me.SplitContainer5 = New System.Windows.Forms.SplitContainer()
|
||||
Me.lab_Test_cnt = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.lab_test_num = New System.Windows.Forms.Label()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||
Me.SplitContainer1.SuspendLayout()
|
||||
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer2.Panel1.SuspendLayout()
|
||||
Me.SplitContainer2.Panel2.SuspendLayout()
|
||||
Me.SplitContainer2.SuspendLayout()
|
||||
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer3.Panel1.SuspendLayout()
|
||||
Me.SplitContainer3.Panel2.SuspendLayout()
|
||||
Me.SplitContainer3.SuspendLayout()
|
||||
CType(Me.SplitContainer4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer4.Panel1.SuspendLayout()
|
||||
Me.SplitContainer4.Panel2.SuspendLayout()
|
||||
Me.SplitContainer4.SuspendLayout()
|
||||
CType(Me.SplitContainer5, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SplitContainer5.Panel1.SuspendLayout()
|
||||
Me.SplitContainer5.Panel2.SuspendLayout()
|
||||
Me.SplitContainer5.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SplitContainer1
|
||||
'
|
||||
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer1.Name = "SplitContainer1"
|
||||
'
|
||||
'SplitContainer1.Panel1
|
||||
'
|
||||
Me.SplitContainer1.Panel1.Controls.Add(Me.SplitContainer2)
|
||||
'
|
||||
'SplitContainer1.Panel2
|
||||
'
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.SplitContainer3)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(984, 561)
|
||||
Me.SplitContainer1.SplitterDistance = 307
|
||||
Me.SplitContainer1.TabIndex = 0
|
||||
'
|
||||
'SplitContainer2
|
||||
'
|
||||
Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer2.Name = "SplitContainer2"
|
||||
Me.SplitContainer2.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer2.Panel1
|
||||
'
|
||||
Me.SplitContainer2.Panel1.Controls.Add(Me.SplitContainer5)
|
||||
'
|
||||
'SplitContainer2.Panel2
|
||||
'
|
||||
Me.SplitContainer2.Panel2.Controls.Add(Me.RichTextBox1)
|
||||
Me.SplitContainer2.Size = New System.Drawing.Size(307, 561)
|
||||
Me.SplitContainer2.SplitterDistance = 177
|
||||
Me.SplitContainer2.TabIndex = 0
|
||||
'
|
||||
'RichTextBox1
|
||||
'
|
||||
Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.RichTextBox1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.RichTextBox1.Name = "RichTextBox1"
|
||||
Me.RichTextBox1.Size = New System.Drawing.Size(307, 380)
|
||||
Me.RichTextBox1.TabIndex = 1
|
||||
Me.RichTextBox1.Text = ""
|
||||
'
|
||||
'SplitContainer3
|
||||
'
|
||||
Me.SplitContainer3.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer3.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer3.Name = "SplitContainer3"
|
||||
Me.SplitContainer3.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||
'
|
||||
'SplitContainer3.Panel1
|
||||
'
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.Label2)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.Label1)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.TextBox2)
|
||||
Me.SplitContainer3.Panel1.Controls.Add(Me.TextBox1)
|
||||
'
|
||||
'SplitContainer3.Panel2
|
||||
'
|
||||
Me.SplitContainer3.Panel2.Controls.Add(Me.SplitContainer4)
|
||||
Me.SplitContainer3.Size = New System.Drawing.Size(673, 561)
|
||||
Me.SplitContainer3.SplitterDistance = 177
|
||||
Me.SplitContainer3.TabIndex = 0
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("宋体", 20.0!)
|
||||
Me.Label2.Location = New System.Drawing.Point(3, 107)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(107, 27)
|
||||
Me.Label2.TabIndex = 3
|
||||
Me.Label2.Text = "彩盒码:"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("宋体", 20.0!)
|
||||
Me.Label1.Location = New System.Drawing.Point(3, 32)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(107, 27)
|
||||
Me.Label1.TabIndex = 2
|
||||
Me.Label1.Text = "装箱码:"
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.Font = New System.Drawing.Font("宋体", 29.0!)
|
||||
Me.TextBox2.Location = New System.Drawing.Point(116, 90)
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Size = New System.Drawing.Size(525, 52)
|
||||
Me.TextBox2.TabIndex = 1
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Font = New System.Drawing.Font("宋体", 29.0!)
|
||||
Me.TextBox1.Location = New System.Drawing.Point(116, 32)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(525, 52)
|
||||
Me.TextBox1.TabIndex = 0
|
||||
'
|
||||
'SplitContainer4
|
||||
'
|
||||
Me.SplitContainer4.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer4.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer4.Name = "SplitContainer4"
|
||||
'
|
||||
'SplitContainer4.Panel1
|
||||
'
|
||||
Me.SplitContainer4.Panel1.Controls.Add(Me.TreeViewEx1)
|
||||
'
|
||||
'SplitContainer4.Panel2
|
||||
'
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.lab1)
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.txt_inputnum)
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.Button2)
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.Button1)
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.Label8)
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.txt_unitweight)
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.Label7)
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.txt_labstring)
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.Label6)
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.txt_SnCode)
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.Label5)
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.txt_colorbox)
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.Label4)
|
||||
Me.SplitContainer4.Panel2.Controls.Add(Me.txt_MacCode)
|
||||
Me.SplitContainer4.Size = New System.Drawing.Size(673, 380)
|
||||
Me.SplitContainer4.SplitterDistance = 320
|
||||
Me.SplitContainer4.TabIndex = 0
|
||||
'
|
||||
'TreeViewEx1
|
||||
'
|
||||
Me.TreeViewEx1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TreeViewEx1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.TreeViewEx1.Name = "TreeViewEx1"
|
||||
Me.TreeViewEx1.Size = New System.Drawing.Size(320, 380)
|
||||
Me.TreeViewEx1.TabIndex = 0
|
||||
'
|
||||
'lab1
|
||||
'
|
||||
Me.lab1.AutoSize = True
|
||||
Me.lab1.Font = New System.Drawing.Font("宋体", 10.0!)
|
||||
Me.lab1.Location = New System.Drawing.Point(32, 21)
|
||||
Me.lab1.Name = "lab1"
|
||||
Me.lab1.Size = New System.Drawing.Size(70, 14)
|
||||
Me.lab1.TabIndex = 21
|
||||
Me.lab1.Text = "装载数量:"
|
||||
Me.lab1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'txt_inputnum
|
||||
'
|
||||
Me.txt_inputnum.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.txt_inputnum.Location = New System.Drawing.Point(108, 18)
|
||||
Me.txt_inputnum.Name = "txt_inputnum"
|
||||
Me.txt_inputnum.ReadOnly = True
|
||||
Me.txt_inputnum.Size = New System.Drawing.Size(236, 23)
|
||||
Me.txt_inputnum.TabIndex = 20
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Location = New System.Drawing.Point(232, 285)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(89, 52)
|
||||
Me.Button2.TabIndex = 19
|
||||
Me.Button2.Text = "录入箱体信息"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(80, 285)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(89, 52)
|
||||
Me.Button1.TabIndex = 18
|
||||
Me.Button1.Text = "删除节点信息"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Font = New System.Drawing.Font("宋体", 10.0!)
|
||||
Me.Label8.Location = New System.Drawing.Point(18, 212)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(84, 14)
|
||||
Me.Label8.TabIndex = 17
|
||||
Me.Label8.Text = "UnitWeigth:"
|
||||
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'txt_unitweight
|
||||
'
|
||||
Me.txt_unitweight.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.txt_unitweight.Location = New System.Drawing.Point(108, 209)
|
||||
Me.txt_unitweight.Name = "txt_unitweight"
|
||||
Me.txt_unitweight.ReadOnly = True
|
||||
Me.txt_unitweight.Size = New System.Drawing.Size(236, 23)
|
||||
Me.txt_unitweight.TabIndex = 16
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Font = New System.Drawing.Font("宋体", 10.0!)
|
||||
Me.Label7.Location = New System.Drawing.Point(4, 176)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(98, 14)
|
||||
Me.Label7.TabIndex = 15
|
||||
Me.Label7.Text = "label_string:"
|
||||
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'txt_labstring
|
||||
'
|
||||
Me.txt_labstring.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.txt_labstring.Location = New System.Drawing.Point(110, 173)
|
||||
Me.txt_labstring.Name = "txt_labstring"
|
||||
Me.txt_labstring.ReadOnly = True
|
||||
Me.txt_labstring.Size = New System.Drawing.Size(236, 23)
|
||||
Me.txt_labstring.TabIndex = 14
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Font = New System.Drawing.Font("宋体", 10.0!)
|
||||
Me.Label6.Location = New System.Drawing.Point(46, 98)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(56, 14)
|
||||
Me.Label6.TabIndex = 13
|
||||
Me.Label6.Text = "SnCode:"
|
||||
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'txt_SnCode
|
||||
'
|
||||
Me.txt_SnCode.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.txt_SnCode.Location = New System.Drawing.Point(110, 95)
|
||||
Me.txt_SnCode.Name = "txt_SnCode"
|
||||
Me.txt_SnCode.ReadOnly = True
|
||||
Me.txt_SnCode.Size = New System.Drawing.Size(236, 23)
|
||||
Me.txt_SnCode.TabIndex = 12
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Font = New System.Drawing.Font("宋体", 10.0!)
|
||||
Me.Label5.Location = New System.Drawing.Point(4, 137)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(98, 14)
|
||||
Me.Label5.TabIndex = 11
|
||||
Me.Label5.Text = "ColorBoxCode:"
|
||||
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'txt_colorbox
|
||||
'
|
||||
Me.txt_colorbox.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.txt_colorbox.Location = New System.Drawing.Point(110, 134)
|
||||
Me.txt_colorbox.Name = "txt_colorbox"
|
||||
Me.txt_colorbox.ReadOnly = True
|
||||
Me.txt_colorbox.Size = New System.Drawing.Size(236, 23)
|
||||
Me.txt_colorbox.TabIndex = 10
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("宋体", 10.0!)
|
||||
Me.Label4.Location = New System.Drawing.Point(39, 59)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(63, 14)
|
||||
Me.Label4.TabIndex = 9
|
||||
Me.Label4.Text = "MacCode:"
|
||||
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'txt_MacCode
|
||||
'
|
||||
Me.txt_MacCode.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.txt_MacCode.Location = New System.Drawing.Point(110, 56)
|
||||
Me.txt_MacCode.Name = "txt_MacCode"
|
||||
Me.txt_MacCode.ReadOnly = True
|
||||
Me.txt_MacCode.Size = New System.Drawing.Size(236, 23)
|
||||
Me.txt_MacCode.TabIndex = 4
|
||||
'
|
||||
'SplitContainer5
|
||||
'
|
||||
Me.SplitContainer5.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SplitContainer5.Location = New System.Drawing.Point(0, 0)
|
||||
Me.SplitContainer5.Name = "SplitContainer5"
|
||||
'
|
||||
'SplitContainer5.Panel1
|
||||
'
|
||||
Me.SplitContainer5.Panel1.Controls.Add(Me.lab_Test_cnt)
|
||||
Me.SplitContainer5.Panel1.Controls.Add(Me.Label3)
|
||||
'
|
||||
'SplitContainer5.Panel2
|
||||
'
|
||||
Me.SplitContainer5.Panel2.Controls.Add(Me.lab_test_num)
|
||||
Me.SplitContainer5.Panel2.Controls.Add(Me.Label9)
|
||||
Me.SplitContainer5.Size = New System.Drawing.Size(307, 177)
|
||||
Me.SplitContainer5.SplitterDistance = 136
|
||||
Me.SplitContainer5.TabIndex = 2
|
||||
'
|
||||
'lab_Test_cnt
|
||||
'
|
||||
Me.lab_Test_cnt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.lab_Test_cnt.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lab_Test_cnt.Font = New System.Drawing.Font("宋体", 36.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.lab_Test_cnt.Location = New System.Drawing.Point(0, 71)
|
||||
Me.lab_Test_cnt.Name = "lab_Test_cnt"
|
||||
Me.lab_Test_cnt.Size = New System.Drawing.Size(136, 106)
|
||||
Me.lab_Test_cnt.TabIndex = 14
|
||||
Me.lab_Test_cnt.Text = "0个"
|
||||
Me.lab_Test_cnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.BackColor = System.Drawing.SystemColors.ActiveCaption
|
||||
Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Label3.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Label3.Font = New System.Drawing.Font("宋体", 16.0!, System.Drawing.FontStyle.Bold)
|
||||
Me.Label3.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(136, 71)
|
||||
Me.Label3.TabIndex = 13
|
||||
Me.Label3.Text = "总测试数量"
|
||||
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lab_test_num
|
||||
'
|
||||
Me.lab_test_num.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.lab_test_num.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lab_test_num.Font = New System.Drawing.Font("宋体", 36.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||
Me.lab_test_num.Location = New System.Drawing.Point(0, 71)
|
||||
Me.lab_test_num.Name = "lab_test_num"
|
||||
Me.lab_test_num.Size = New System.Drawing.Size(167, 106)
|
||||
Me.lab_test_num.TabIndex = 15
|
||||
Me.lab_test_num.Text = "0个"
|
||||
Me.lab_test_num.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.BackColor = System.Drawing.SystemColors.GradientActiveCaption
|
||||
Me.Label9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Label9.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Label9.Font = New System.Drawing.Font("宋体", 16.0!, System.Drawing.FontStyle.Bold)
|
||||
Me.Label9.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(167, 71)
|
||||
Me.Label9.TabIndex = 14
|
||||
Me.Label9.Text = "本次启动测试数量"
|
||||
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'ZQ_Mars_P3_FrmStationTest
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(984, 561)
|
||||
Me.Controls.Add(Me.SplitContainer1)
|
||||
Me.Name = "ZQ_Mars_P3_FrmStationTest"
|
||||
Me.Text = "ZQ_Mars_P3_FrmStationTest"
|
||||
Me.SplitContainer1.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer1.ResumeLayout(False)
|
||||
Me.SplitContainer2.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer2.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer2.ResumeLayout(False)
|
||||
Me.SplitContainer3.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer3.Panel1.PerformLayout()
|
||||
Me.SplitContainer3.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer3.ResumeLayout(False)
|
||||
Me.SplitContainer4.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer4.Panel2.ResumeLayout(False)
|
||||
Me.SplitContainer4.Panel2.PerformLayout()
|
||||
CType(Me.SplitContainer4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer4.ResumeLayout(False)
|
||||
Me.SplitContainer5.Panel1.ResumeLayout(False)
|
||||
Me.SplitContainer5.Panel2.ResumeLayout(False)
|
||||
CType(Me.SplitContainer5, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SplitContainer5.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents SplitContainer1 As SplitContainer
|
||||
Friend WithEvents SplitContainer2 As SplitContainer
|
||||
Friend WithEvents SplitContainer3 As SplitContainer
|
||||
Friend WithEvents TextBox2 As TextBox
|
||||
Friend WithEvents TextBox1 As TextBox
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents SplitContainer4 As SplitContainer
|
||||
Friend WithEvents TreeViewEx1 As UTS_Core.UTSModule.Station.TreeViewEx
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents txt_MacCode As TextBox
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents txt_labstring As TextBox
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents txt_SnCode As TextBox
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents txt_colorbox As TextBox
|
||||
Friend WithEvents Button2 As Button
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents txt_unitweight As TextBox
|
||||
Friend WithEvents lab1 As Label
|
||||
Friend WithEvents txt_inputnum As TextBox
|
||||
Friend WithEvents RichTextBox1 As RichTextBox
|
||||
Friend WithEvents SplitContainer5 As SplitContainer
|
||||
Friend WithEvents lab_Test_cnt As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents lab_test_num As Label
|
||||
Friend WithEvents Label9 As Label
|
||||
End Class
|
||||
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -0,0 +1,444 @@
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
Imports System.Text
|
||||
Imports Newtonsoft.Json
|
||||
Imports UTS_Core.DebugLog
|
||||
Imports UTS_Core.UTSModule
|
||||
Imports UTS_Core.UTSModule.Station
|
||||
Imports UTS_Core.UTSModule.Test
|
||||
Imports UTS_Core.UTSModule.Test.StatusMonitor
|
||||
|
||||
Public Class ZQ_Mars_P3_FrmStationTest
|
||||
Implements IProcessStation
|
||||
Private _utsApp As UtsAppForm
|
||||
Private _stationPlan As StationPackagePlan
|
||||
Private NodePtr As TreeNode
|
||||
'最大装载数量 赋值需要减一
|
||||
Private Max_Loading As Integer = 10
|
||||
|
||||
Private PrintfNum As Integer = 0
|
||||
Private Printfcnt As Integer = 0
|
||||
#Region "UTS框架"
|
||||
''' <summary>
|
||||
''' 站位改变事件
|
||||
''' </summary>
|
||||
Public Sub Station_Changed() Implements IProcessStation.StationChanged
|
||||
'Todo:站位变化代码
|
||||
ApplicationLog.WriteInfoLog($"测试页面站位变更中，PN：{_utsApp.ProcessStation.ParentProject.Name} - SN:{_utsApp.ProcessStation.Name} - TP:{_utsApp.ProcessStation.Packet.Name}!")
|
||||
|
||||
_stationPlan = CType(_utsApp.ProcessStation.Packet.StationPlan, StationPackagePlan)
|
||||
Integer.TryParse(_stationPlan.BoxMumEditKey, Max_Loading)
|
||||
Max_Loading = Max_Loading - 1
|
||||
'清除表格数据
|
||||
'InitBarcodeGrid()
|
||||
|
||||
ApplicationLog.WriteInfoLog($"测试页面站位变更完成!")
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' 初始化App
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
Private Function InitializeUtsApp() As Boolean
|
||||
_utsApp = UtsAppForm.CreateSingleton()
|
||||
_utsApp.AddStatisticsObserver(CType(Me, IProcessStation))
|
||||
|
||||
Try
|
||||
If _utsApp.IsInitialized = False Then
|
||||
_utsApp.Initialize(ProcessStation.StationTypeEnum.Package) 'Todo:可根据需要限定可选站位
|
||||
End If
|
||||
Catch ex As Exception
|
||||
ApplicationLog.WriteErrorLog($"初始化窗体失败,原因：{ex.Message}!")
|
||||
|
||||
MsgBox($"初始化窗体失败,原因：{ex.Message}")
|
||||
Close()
|
||||
Return False
|
||||
End Try
|
||||
Return True
|
||||
End Function
|
||||
''' <summary>
|
||||
''' 加载窗体
|
||||
''' </summary>
|
||||
''' <param name="parentControl"></param>
|
||||
Public Sub ShowForm(parentControl As Control)
|
||||
FormBorderStyle = FormBorderStyle.None
|
||||
TopLevel = False
|
||||
Dock = DockStyle.Fill
|
||||
Parent = parentControl
|
||||
|
||||
Show()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TheTestResults(dutSn As String, ispass As TestResult.TestResultEnum, datenow As Date, Optional FailMsg As RowNode = Nothing, Optional Customfield As Dictionary(Of String， String) = Nothing)
|
||||
|
||||
'重置信息
|
||||
_utsApp.TestResult.ResetTestResult()
|
||||
'产线索引
|
||||
_utsApp.TestResult.ProductionLineID = -1
|
||||
'测试开始时间
|
||||
_utsApp.TestResult.StartTime = datenow
|
||||
_utsApp.TestResult.DUT_SN = dutSn
|
||||
_utsApp.TestResult.TestResult = ispass
|
||||
_utsApp.TestResult.UsedTime = Now - datenow
|
||||
If Not IsNothing(FailMsg) Then
|
||||
_utsApp.TestResult.FailSteps.Add(FailMsg)
|
||||
End If
|
||||
|
||||
|
||||
If Not IsNothing(Customfield) Then
|
||||
For indexptr As Integer = 0 To Customfield.Count - 1
|
||||
_utsApp.TestResult.AddCustomRecord($"{Customfield.Keys(indexptr)}", $"{Customfield.Values(indexptr)}")
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
Try
|
||||
'提交测试记录,缺省参数默认为False，True则测试记录唯一,覆盖相同条码记录
|
||||
_utsApp.CommitTestResult(True)
|
||||
|
||||
If ispass = TestResult.TestResultEnum.Pass Then
|
||||
TestStatusMonitor.TestStatus = StatusMonitor.TestStatusMonitor.TestStatusEnum.TestPass
|
||||
Else
|
||||
TestStatusMonitor.TestStatus = TestStatusMonitor.TestStatusEnum.TestFail
|
||||
End If
|
||||
TestStatusMonitor.TestStatus = TestStatusMonitor.TestStatusEnum.TestPass
|
||||
Catch ex As Exception
|
||||
ApplicationLog.WriteErrorLog($"写入称量数据失败：{ex.Message}")
|
||||
MsgBox($"写入称量数据失败：{ex.Message}")
|
||||
'LblResult.Text = "FAIL"
|
||||
'LblResult.ForeColor = Color.Red
|
||||
TestStatusMonitor.TestStatus = TestStatusMonitor.TestStatusEnum.TestFail
|
||||
Return
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
#Region "Web 数据接口"
|
||||
|
||||
|
||||
Public Function AccessApi2(uart As String, dbName As String, theKey As String， Optional dic As Dictionary(Of String, String) = Nothing) As JsonPtr
|
||||
|
||||
Dim jsonString As String = String.Empty
|
||||
|
||||
Dim ptr As String = $"Pwd=actop00803&DBName={dbName}&Key={theKey}"
|
||||
If Not IsNothing（dic） Then
|
||||
ptr = ptr & $"&JsonData={JsonConvert.SerializeObject(dic)}"
|
||||
End If
|
||||
'/http://uts-data.com/CommonApi/Combind_Sn_Info? Pwd%3D%26*$@%23235%26DBName%3Duts_zongqing%26Key%3DBarcode%26Barcode%3D1
|
||||
Try
|
||||
jsonString = PostData(uart, ptr)
|
||||
Console.WriteLine(jsonString)
|
||||
|
||||
If jsonString = Nothing Then
|
||||
Return Nothing
|
||||
End If
|
||||
Dim login As JsonPtr = JsonConvert.DeserializeObject(Of JsonPtr)(jsonString)
|
||||
If login.Message.Contains（"成功"） Then
|
||||
Return login
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox($"{ex.Message}！盒码获取失败请联系管理员")
|
||||
Return Nothing
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function PostData(ByVal url As String, ByVal data As String) As String
|
||||
|
||||
ServicePointManager.Expect100Continue = False
|
||||
Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
|
||||
'//Post请求方式
|
||||
request.Method = "post"
|
||||
|
||||
'内容类型
|
||||
request.ContentType = "application/x-www-form-urlencoded"
|
||||
'将URL编码后的字符串转化为字节
|
||||
Dim encoding As New UTF8Encoding()
|
||||
Dim bys As Byte() = encoding.GetBytes(data)
|
||||
'设置请求的 ContentLength
|
||||
request.ContentLength = bys.Length
|
||||
'获得请 求流
|
||||
Dim newStream As Stream = request.GetRequestStream()
|
||||
newStream.Write(bys, 0, bys.Length)
|
||||
newStream.Close()
|
||||
'获得响应流
|
||||
Dim sr As StreamReader = New StreamReader(request.GetResponse().GetResponseStream)
|
||||
Return sr.ReadToEnd
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
#Region "UIEven"
|
||||
Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
|
||||
RichTextBox1.SelectionStart = RichTextBox1.TextLength
|
||||
RichTextBox1.ScrollToCaret()
|
||||
|
||||
End Sub
|
||||
Delegate Sub IPSetRichTextBox1Text(TextBox1 As RichTextBox, text As String， txtcolor As Color)
|
||||
Private Sub SetRichTextBox1Text(TextBox1 As RichTextBox, text As String， txtcolor As Color)
|
||||
If InvokeRequired = True Then
|
||||
Dim dev As New IPSetRichTextBox1Text(AddressOf SetRichTextBox1Text)
|
||||
Me.Invoke(dev, New Object() {TextBox1, text, txtcolor})
|
||||
Else
|
||||
With TextBox1
|
||||
.SuspendLayout()
|
||||
|
||||
|
||||
.SelectionColor = txtcolor
|
||||
|
||||
.AppendText(text & vbCrLf)
|
||||
.ResumeLayout(False)
|
||||
End With
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
Public Sub initTreeViewEx1()
|
||||
TreeViewEx1.Nodes.Clear()
|
||||
TreeViewEx1.ItemHeight = 21
|
||||
TreeViewEx1.CheckBoxes = False
|
||||
TreeViewEx1.HideSelection = True
|
||||
TreeViewEx1.SelectedImageKey = TreeViewEx1.ImageKey
|
||||
End Sub
|
||||
Private Sub TextBox1_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles TextBox1.PreviewKeyDown
|
||||
If e.KeyData = Keys.Enter Then
|
||||
If String.IsNullOrWhiteSpace(TextBox1.Text) Then
|
||||
MsgBox("箱号为空，请输入箱号！")
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim jsonclass As JsonPtr = AccessApi2("http://uts-data.com/CommonApi/Get_Sn_Info"， "uts_zongqing", TextBox1.Text.Trim)
|
||||
If IsNothing(jsonclass) Then
|
||||
NodePtr = New TreeNode
|
||||
NodePtr.Text = "箱体码:" & TextBox1.Text.Trim
|
||||
NodePtr.Tag = Now
|
||||
TextBox2.Focus()
|
||||
TextBox2.SelectAll()
|
||||
TextBox1.ReadOnly = True
|
||||
|
||||
TreeViewEx1.Nodes.Clear()
|
||||
TreeViewEx1.Nodes.Add(NodePtr)
|
||||
TreeViewEx1.Nodes(0).Expand()
|
||||
Else
|
||||
MsgBox("该箱号已使用，请更换箱号！")
|
||||
TextBox1.Focus()
|
||||
TextBox1.SelectAll()
|
||||
Return
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox2_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles TextBox2.PreviewKeyDown
|
||||
If e.KeyData = Keys.Enter Then
|
||||
If String.IsNullOrWhiteSpace(TextBox2.Text) Then
|
||||
MsgBox("彩盒码为空，请输入箱号！")
|
||||
TextBox2.Focus()
|
||||
TextBox2.SelectAll()
|
||||
Return
|
||||
End If
|
||||
If IsNothing(NodePtr) Then
|
||||
MsgBox("箱号为空，请输入箱号再进行录入")
|
||||
TextBox1.Focus()
|
||||
TextBox1.SelectAll()
|
||||
TextBox1.ReadOnly = False
|
||||
Return
|
||||
End If
|
||||
|
||||
If NodePtr.Nodes.Count < Max_Loading Then
|
||||
Dim jsonclass As JsonPtr = AccessApi2("http://uts-data.com/CommonApi/Get_Sn_Info", "uts_zongqing", TextBox2.Text.Trim)
|
||||
If IsNothing(jsonclass) Then
|
||||
MsgBox("未查询到彩盒码关联数据，请核实彩盒码！")
|
||||
TextBox2.Focus()
|
||||
TextBox2.SelectAll()
|
||||
Return
|
||||
End If
|
||||
|
||||
If DuplicateChecking(NodePtr, TextBox2.Text.Trim) Then
|
||||
|
||||
Dim node As New TreeNode
|
||||
node.Text = "彩盒码:" & TextBox2.Text.Trim
|
||||
node.Tag = jsonclass
|
||||
|
||||
NodePtr.Nodes.Add(node)
|
||||
NodePtr.ExpandAll()
|
||||
TextBox2.Focus()
|
||||
TextBox2.SelectAll()
|
||||
If _stationPlan.AutoPrint Then
|
||||
If NodePtr.Nodes.Count = Max_Loading Then
|
||||
TextBox1.Focus()
|
||||
TextBox1.SelectAll()
|
||||
TextBox1.ReadOnly = False
|
||||
Button2.PerformClick()
|
||||
Return
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Else
|
||||
MsgBox("彩盒码已记录，请输入箱号！")
|
||||
TextBox2.Focus()
|
||||
TextBox2.SelectAll()
|
||||
Return
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgBox($"装箱数已满，最大装载量为:{Max_Loading}")
|
||||
TextBox1.Focus()
|
||||
TextBox1.SelectAll()
|
||||
TextBox1.ReadOnly = False
|
||||
Return
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function DuplicateChecking(node As TreeNode， txt As String) As Boolean
|
||||
For Each index As TreeNode In node.Nodes
|
||||
If index.Text.Equals(txt.Trim) Then
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Sub ZQ_Mars_P3_FrmStationTest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
ApplicationLog.WriteInfoLog($"测试页面加载中。")
|
||||
If InitializeUtsApp() = False Then Return
|
||||
initTreeViewEx1()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TreeViewEx1_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles TreeViewEx1.NodeMouseClick
|
||||
If e.Button <> MouseButtons.Left Then Return
|
||||
Dim node As TreeNode = TreeViewEx1.SelectedNode
|
||||
|
||||
If node Is Nothing Then Return
|
||||
If node.Level = 0 Then
|
||||
txt_inputnum.Text = node.Nodes.Count.ToString
|
||||
txt_MacCode.Text = "------"
|
||||
txt_colorbox.Text = "------"
|
||||
txt_labstring.Text = "------"
|
||||
txt_SnCode.Text = "------"
|
||||
txt_unitweight.Text = "------"
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim jsonclass As JsonPtr = CType(node.Tag, JsonPtr)
|
||||
txt_MacCode.Text = jsonclass.Data.Mars_MacCodeP
|
||||
txt_colorbox.Text = jsonclass.Data.Mars_ColorBox_BarCode
|
||||
txt_inputnum.Text = "1"
|
||||
txt_labstring.Text = jsonclass.Data.Barcode & "/" & jsonclass.Data.Mars_MacCodeP
|
||||
txt_SnCode.Text = jsonclass.Data.Barcode
|
||||
txt_unitweight.Text = jsonclass.Data.Mars_UnitWeigth
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
If IsNothing(TreeViewEx1) Then Return
|
||||
Dim node As TreeNode = TreeViewEx1.SelectedNode
|
||||
If TreeViewEx1.Nodes(0).Equals（node.Text） Then
|
||||
If MsgBox("该节点为箱体节点，删除将丢失已存在该箱体的记录。是否删除？", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
|
||||
TreeViewEx1.Nodes.RemoveAt(0)
|
||||
TreeViewEx1.Nodes.Clear()
|
||||
TextBox1.Text = ""
|
||||
TextBox1.Focus()
|
||||
TextBox1.SelectAll()
|
||||
TextBox1.ReadOnly = False
|
||||
End If
|
||||
Else
|
||||
TreeViewEx1.Nodes(0).Nodes.Remove(node)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
If TreeViewEx1.Nodes.Count = 0 Then
|
||||
MsgBox("未添加箱体码信息，请先添加箱体码信息再进行数据录入！")
|
||||
Return
|
||||
ElseIf TreeViewEx1.Nodes.Count = 1 Then
|
||||
If TreeViewEx1.Nodes(0).Nodes.Count < Max_Loading Then
|
||||
If MsgBox("该箱体未满。是否继续装载？", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
|
||||
Return
|
||||
End If
|
||||
End If
|
||||
InputBoxInformation(TreeViewEx1)
|
||||
Else
|
||||
MsgBox("箱体码信息异常，请联系开发者")
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub InputBoxInformation(TreeView As UTS_Core.UTSModule.Station.TreeViewEx)
|
||||
Dim Customfield As New Dictionary(Of String， String)
|
||||
Dim headnode As TreeNode = TreeView.Nodes(0)
|
||||
Dim jsonclass As JsonPtr
|
||||
Dim ricttxt As String = $"{Now:yyyy:HH:mm:ss:fff}箱体号：{headnode.Text} {vbCrLf }"
|
||||
Dim datenow As Date = CDate(headnode.Tag)
|
||||
Dim strbuff() As String = headnode.Text.Split(CChar(":"))
|
||||
For i As Integer = 0 To headnode.Nodes.Count - 1
|
||||
Dim index As TreeNode = headnode.Nodes(i)
|
||||
jsonclass = CType(index.Tag, JsonPtr)
|
||||
Customfield.Clear()
|
||||
Customfield.Add("Mars_OutBoxCode", strbuff(1))
|
||||
|
||||
Customfield.Add("MacCode", jsonclass.Data.Mars_MacCodeP)
|
||||
Customfield.Add("SnCode", jsonclass.Data.Barcode)
|
||||
Customfield.Add("ColorBoxCode", jsonclass.Data.Mars_ColorBox_BarCode)
|
||||
Customfield.Add("label_string", jsonclass.Data.Barcode)
|
||||
Customfield.Add("Mars_UnitWeigth", jsonclass.Data.Mars_UnitWeigth)
|
||||
|
||||
If Not SetMars_OutBoxCode(strbuff(1), jsonclass.Data.Mars_ColorBox_BarCode) Then
|
||||
MsgBox($"第{i}个彩盒码录入数据库失败,请联系开发者。彩盒码：{jsonclass.Data.Mars_ColorBox_BarCode}")
|
||||
End If
|
||||
TheTestResults(jsonclass.Data.Barcode, TestResult.TestResultEnum.Pass, datenow, Nothing, Customfield)
|
||||
|
||||
ricttxt = $"{ricttxt}{i}:{index.Text }{vbCrLf }"
|
||||
Next
|
||||
ricttxt = $"{ricttxt}-----------------{vbCrLf}"
|
||||
SetRichTextBox1Text(RichTextBox1, ricttxt, Color.Blue)
|
||||
'TestBoxnum = TestBoxnum + 1
|
||||
'Label3.Text = TestBoxnum.ToString & "箱"
|
||||
|
||||
|
||||
PrintfNum = PrintfNum + 1
|
||||
'Label7.Text = PrintfNum.ToString & "个"
|
||||
lab_test_num.Text = PrintfNum.ToString & "箱"
|
||||
Printfcnt = My.Settings.Mars_P1_cnt + PrintfNum
|
||||
lab_Test_cnt.Text = Printfcnt.ToString & "箱"
|
||||
My.Settings.Save()
|
||||
End Sub
|
||||
|
||||
Public Function SetMars_OutBoxCode(BoxCode As String, colorcode As String) As Boolean
|
||||
Dim dic As New Dictionary(Of String, String）
|
||||
dic.Add("Mars_OutBoxCode"， BoxCode) '称重值
|
||||
dic.Add("Mars_ColorBox_BarCode"， colorcode)
|
||||
Dim Writesql As JsonPtr = AccessApi2("http://uts-data.com/CommonApi/Combind_Sn_Info", "uts_zongqing", "Mars_ColorBox_BarCode"， dic)
|
||||
If IsNothing(Writesql) Then
|
||||
Return False
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user