初始化提交

仓库转移到Gitea,初始化提交,可能丢失以前的git版本日志
This commit is contained in:
2025-11-27 16:41:05 +08:00
commit 027d0f8024
663 changed files with 171319 additions and 0 deletions

View File

@@ -0,0 +1,431 @@
Imports System.Windows.Forms
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class BM_ITM53_P1_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(BM_ITM53_P1_FrmStationPlan))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
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.StuMain = New System.Windows.Forms.StatusStrip()
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.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.TsmiDebugStart = New System.Windows.Forms.ToolStripMenuItem()
Me.TsmiDebugEnd = New System.Windows.Forms.ToolStripMenuItem()
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.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.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.ToolStrip1.SuspendLayout
Me.CmsPlanGrid.SuspendLayout
CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).BeginInit
Me.SplitContainer1.Panel1.SuspendLayout
Me.SplitContainer1.Panel2.SuspendLayout
Me.SplitContainer1.SuspendLayout
Me.GroupBox2.SuspendLayout
Me.SuspendLayout
'
'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(666, 36)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
'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)
'
'StuMain
'
Me.StuMain.Location = New System.Drawing.Point(0, 502)
Me.StuMain.Name = "StuMain"
Me.StuMain.Size = New System.Drawing.Size(666, 22)
Me.StuMain.TabIndex = 1
Me.StuMain.Text = "StatusStrip1"
'
'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 = "加载节点文件"
'
'ToolStripSeparator7
'
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
Me.ToolStripSeparator7.Size = New System.Drawing.Size(189, 6)
'
'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 = "退出执行"
'
'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 = "节点开始测试"
'
'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(666, 466)
Me.SplitContainer1.SplitterDistance = 301
Me.SplitContainer1.TabIndex = 3
'
'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(301, 466)
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, 402)
Me.LblDesc.Name = "LblDesc"
Me.LblDesc.Size = New System.Drawing.Size(295, 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(298, 375)
Me.GrdStationPlan.TabIndex = 4
Me.GrdStationPlan.UncheckedImage = Nothing
'
'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(361, 466)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = false
Me.GroupBox1.Text = "常规预览"
'
'FrmStationPlan
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 12!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(666, 524)
Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.StuMain)
Me.Controls.Add(Me.ToolStrip1)
Me.KeyPreview = true
Me.Name = "FrmStationPlan"
Me.Text = "Form1"
Me.ToolStrip1.ResumeLayout(false)
Me.ToolStrip1.PerformLayout
Me.CmsPlanGrid.ResumeLayout(false)
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.ResumeLayout(false)
Me.PerformLayout
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents StuMain As StatusStrip
Friend WithEvents CmsPlanGrid As ContextMenuStrip
Friend WithEvents MsiCopyNode As ToolStripMenuItem
Friend WithEvents MsiCutNode As ToolStripMenuItem
Friend WithEvents MsiNodePaste As ToolStripMenuItem
Friend WithEvents MsiSaveNodeFile As ToolStripMenuItem
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
Friend WithEvents TsBtnLoad As ToolStripButton
Friend WithEvents TsBtnSave As ToolStripButton
Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
Friend WithEvents MsiLoadNodeFile As ToolStripMenuItem
Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
Friend WithEvents MsiUndo As ToolStripMenuItem
Friend WithEvents MsiRedo As ToolStripMenuItem
Friend WithEvents TsBtnOpen As ToolStripButton
Friend WithEvents ToolStripSeparator7 As ToolStripSeparator
Friend WithEvents TsmiDebugStep As ToolStripMenuItem
Friend WithEvents TsmiDebugContinue As ToolStripMenuItem
Friend WithEvents TsmiDebugStart 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 TsmiDebugEnd As ToolStripMenuItem
Friend WithEvents ToolStripSeparator9 As ToolStripSeparator
Friend WithEvents TsmiDebugNode As ToolStripMenuItem
Friend WithEvents TsmiDebugNodeBegin As ToolStripMenuItem
Friend WithEvents TsBtnSaveAs As ToolStripButton
Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
Friend WithEvents DlgOpenFile As OpenFileDialog
Friend WithEvents SplitContainer1 As SplitContainer
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents LblDesc As Label
Friend WithEvents GrdStationPlan As FlexCell.Grid
End Class

View File

@@ -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="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</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="StuMain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>129, 17</value>
</metadata>
<metadata name="CmsPlanGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>230, 17</value>
</metadata>
<metadata name="DlgOpenFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>357, 17</value>
</metadata>
</root>

View File

@@ -0,0 +1,481 @@
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 BM_ITM53_P1_FrmStationPlan
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
''' <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.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 = "模板资源 (*.utsbct)|*.utsbct"
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

View File

@@ -0,0 +1,707 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class BM_ITM53_P1_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.components = New System.ComponentModel.Container()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.TsLblCameraStatus = New System.Windows.Forms.ToolStripStatusLabel()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.GrdPriview = New FlexCell.Grid()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.PicBox = New System.Windows.Forms.PictureBox()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.panel_NewRecord = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label()
Me.BtnStartEdit = New System.Windows.Forms.Button()
Me.CboMoList = New System.Windows.Forms.ComboBox()
Me.TxtDevSn = New System.Windows.Forms.TextBox()
Me.NudBoxNum = New System.Windows.Forms.NumericUpDown()
Me.BtnSearch = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.panel_Rework = New System.Windows.Forms.Panel()
Me.Label5 = New System.Windows.Forms.Label()
Me.TxtReworkSn = New System.Windows.Forms.TextBox()
Me.BtnReSn = New System.Windows.Forms.Button()
Me.BtnReBox = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.TxtReworkBoxNum = New System.Windows.Forms.TextBox()
Me.RdoRework = New System.Windows.Forms.RadioButton()
Me.RdoMassProduction = New System.Windows.Forms.RadioButton()
Me.BtnClear = New System.Windows.Forms.Button()
Me.BtnPrintPreview = New System.Windows.Forms.Button()
Me.BtnPrint = New System.Windows.Forms.Button()
Me.BtnCommit = New System.Windows.Forms.Button()
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
Me.SplitContainer4 = New System.Windows.Forms.SplitContainer()
Me.LblResult = New System.Windows.Forms.Label()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.TvwTestLog = New System.Windows.Forms.TreeView()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.GrdInput = New FlexCell.Grid()
Me.CmsInput = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.清除记录ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer3.Panel1.SuspendLayout()
Me.SplitContainer3.Panel2.SuspendLayout()
Me.SplitContainer3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.GroupBox5.SuspendLayout()
CType(Me.PicBox, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.panel_NewRecord.SuspendLayout()
CType(Me.NudBoxNum, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
Me.panel_Rework.SuspendLayout()
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer2.Panel1.SuspendLayout()
Me.SplitContainer2.SuspendLayout()
CType(Me.SplitContainer4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer4.Panel1.SuspendLayout()
Me.SplitContainer4.Panel2.SuspendLayout()
Me.SplitContainer4.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.CmsInput.SuspendLayout()
Me.SuspendLayout()
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsLblCameraStatus})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 548)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(707, 22)
Me.StatusStrip1.TabIndex = 1
Me.StatusStrip1.Text = "StatusStrip1"
'
'TsLblCameraStatus
'
Me.TsLblCameraStatus.ForeColor = System.Drawing.Color.Red
Me.TsLblCameraStatus.Name = "TsLblCameraStatus"
Me.TsLblCameraStatus.Size = New System.Drawing.Size(80, 17)
Me.TsLblCameraStatus.Text = "摄像头未连接"
'
'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.SplitContainer3)
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.TabControl1)
Me.SplitContainer1.Panel2.Controls.Add(Me.RdoRework)
Me.SplitContainer1.Panel2.Controls.Add(Me.RdoMassProduction)
Me.SplitContainer1.Panel2.Controls.Add(Me.BtnClear)
Me.SplitContainer1.Panel2.Controls.Add(Me.BtnPrintPreview)
Me.SplitContainer1.Panel2.Controls.Add(Me.BtnPrint)
Me.SplitContainer1.Panel2.Controls.Add(Me.BtnCommit)
Me.SplitContainer1.Panel2.Controls.Add(Me.SplitContainer2)
Me.SplitContainer1.Size = New System.Drawing.Size(707, 548)
Me.SplitContainer1.SplitterDistance = 278
Me.SplitContainer1.TabIndex = 2
'
'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.GroupBox4)
'
'SplitContainer3.Panel2
'
Me.SplitContainer3.Panel2.Controls.Add(Me.GroupBox5)
Me.SplitContainer3.Size = New System.Drawing.Size(278, 548)
Me.SplitContainer3.SplitterDistance = 332
Me.SplitContainer3.TabIndex = 45
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.GrdPriview)
Me.GroupBox4.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox4.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Bold)
Me.GroupBox4.ForeColor = System.Drawing.Color.Gray
Me.GroupBox4.Location = New System.Drawing.Point(0, 0)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(278, 332)
Me.GroupBox4.TabIndex = 45
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "打印预览"
'
'GrdPriview
'
Me.GrdPriview.BorderStyle = FlexCell.BorderStyleEnum.None
Me.GrdPriview.CheckedImage = Nothing
Me.GrdPriview.Cols = 3
Me.GrdPriview.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
Me.GrdPriview.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrdPriview.ExtendLastCol = True
Me.GrdPriview.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Bold)
Me.GrdPriview.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
Me.GrdPriview.Location = New System.Drawing.Point(3, 17)
Me.GrdPriview.Name = "GrdPriview"
Me.GrdPriview.Size = New System.Drawing.Size(272, 312)
Me.GrdPriview.TabIndex = 44
Me.GrdPriview.UncheckedImage = Nothing
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.PicBox)
Me.GroupBox5.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox5.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.GroupBox5.ForeColor = System.Drawing.Color.Gray
Me.GroupBox5.Location = New System.Drawing.Point(0, 0)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(278, 212)
Me.GroupBox5.TabIndex = 46
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "产品拍摄(双击拍摄)"
'
'PicBox
'
Me.PicBox.Dock = System.Windows.Forms.DockStyle.Fill
Me.PicBox.Location = New System.Drawing.Point(3, 17)
Me.PicBox.Name = "PicBox"
Me.PicBox.Size = New System.Drawing.Size(272, 192)
Me.PicBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PicBox.TabIndex = 0
Me.PicBox.TabStop = False
'
'TabControl1
'
Me.TabControl1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.ItemSize = New System.Drawing.Size(0, 1)
Me.TabControl1.Location = New System.Drawing.Point(65, -2)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(357, 84)
Me.TabControl1.SizeMode = System.Windows.Forms.TabSizeMode.Fixed
Me.TabControl1.TabIndex = 14
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.panel_NewRecord)
Me.TabPage1.Location = New System.Drawing.Point(4, 5)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(349, 75)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "TabPage1"
Me.TabPage1.UseVisualStyleBackColor = True
'
'panel_NewRecord
'
Me.panel_NewRecord.Controls.Add(Me.Label2)
Me.panel_NewRecord.Controls.Add(Me.BtnStartEdit)
Me.panel_NewRecord.Controls.Add(Me.CboMoList)
Me.panel_NewRecord.Controls.Add(Me.TxtDevSn)
Me.panel_NewRecord.Controls.Add(Me.NudBoxNum)
Me.panel_NewRecord.Controls.Add(Me.BtnSearch)
Me.panel_NewRecord.Controls.Add(Me.Label3)
Me.panel_NewRecord.Controls.Add(Me.Label1)
Me.panel_NewRecord.Dock = System.Windows.Forms.DockStyle.Fill
Me.panel_NewRecord.Location = New System.Drawing.Point(3, 3)
Me.panel_NewRecord.Name = "panel_NewRecord"
Me.panel_NewRecord.Size = New System.Drawing.Size(343, 69)
Me.panel_NewRecord.TabIndex = 10
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(6, 14)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(17, 12)
Me.Label2.TabIndex = 61
Me.Label2.Text = "SN"
'
'BtnStartEdit
'
Me.BtnStartEdit.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnStartEdit.Font = New System.Drawing.Font("宋体", 9.0!)
Me.BtnStartEdit.ForeColor = System.Drawing.Color.Black
Me.BtnStartEdit.Location = New System.Drawing.Point(271, 42)
Me.BtnStartEdit.Name = "BtnStartEdit"
Me.BtnStartEdit.Size = New System.Drawing.Size(69, 23)
Me.BtnStartEdit.TabIndex = 53
Me.BtnStartEdit.Text = "编辑解锁"
Me.BtnStartEdit.UseVisualStyleBackColor = True
'
'CboMoList
'
Me.CboMoList.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.CboMoList.FormattingEnabled = True
Me.CboMoList.Location = New System.Drawing.Point(29, 41)
Me.CboMoList.MaxDropDownItems = 12
Me.CboMoList.Name = "CboMoList"
Me.CboMoList.Size = New System.Drawing.Size(121, 20)
Me.CboMoList.TabIndex = 60
'
'TxtDevSn
'
Me.TxtDevSn.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TxtDevSn.Font = New System.Drawing.Font("黑体", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TxtDevSn.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.TxtDevSn.Location = New System.Drawing.Point(29, 8)
Me.TxtDevSn.Name = "TxtDevSn"
Me.TxtDevSn.Size = New System.Drawing.Size(236, 29)
Me.TxtDevSn.TabIndex = 0
Me.TxtDevSn.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'NudBoxNum
'
Me.NudBoxNum.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.NudBoxNum.Enabled = False
Me.NudBoxNum.Location = New System.Drawing.Point(191, 42)
Me.NudBoxNum.Maximum = New Decimal(New Integer() {999999999, 0, 0, 0})
Me.NudBoxNum.Name = "NudBoxNum"
Me.NudBoxNum.Size = New System.Drawing.Size(74, 21)
Me.NudBoxNum.TabIndex = 58
'
'BtnSearch
'
Me.BtnSearch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnSearch.Font = New System.Drawing.Font("黑体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.BtnSearch.ForeColor = System.Drawing.Color.Black
Me.BtnSearch.Location = New System.Drawing.Point(271, 7)
Me.BtnSearch.Name = "BtnSearch"
Me.BtnSearch.Size = New System.Drawing.Size(69, 29)
Me.BtnSearch.TabIndex = 1
Me.BtnSearch.Text = "搜索"
Me.BtnSearch.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(6, 44)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(17, 12)
Me.Label3.TabIndex = 59
Me.Label3.Text = "MO"
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(156, 47)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(29, 12)
Me.Label1.TabIndex = 56
Me.Label1.Text = "箱号"
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.panel_Rework)
Me.TabPage2.Location = New System.Drawing.Point(4, 5)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(349, 75)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "TabPage2"
Me.TabPage2.UseVisualStyleBackColor = True
'
'panel_Rework
'
Me.panel_Rework.Controls.Add(Me.Label5)
Me.panel_Rework.Controls.Add(Me.TxtReworkSn)
Me.panel_Rework.Controls.Add(Me.BtnReSn)
Me.panel_Rework.Controls.Add(Me.BtnReBox)
Me.panel_Rework.Controls.Add(Me.Label4)
Me.panel_Rework.Controls.Add(Me.TxtReworkBoxNum)
Me.panel_Rework.Dock = System.Windows.Forms.DockStyle.Fill
Me.panel_Rework.Location = New System.Drawing.Point(3, 3)
Me.panel_Rework.Name = "panel_Rework"
Me.panel_Rework.Size = New System.Drawing.Size(343, 69)
Me.panel_Rework.TabIndex = 13
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(46, 46)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(17, 12)
Me.Label5.TabIndex = 66
Me.Label5.Text = "SN"
'
'TxtReworkSn
'
Me.TxtReworkSn.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TxtReworkSn.Font = New System.Drawing.Font("黑体", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TxtReworkSn.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.TxtReworkSn.Location = New System.Drawing.Point(66, 37)
Me.TxtReworkSn.Name = "TxtReworkSn"
Me.TxtReworkSn.Size = New System.Drawing.Size(190, 26)
Me.TxtReworkSn.TabIndex = 64
Me.TxtReworkSn.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'BtnReSn
'
Me.BtnReSn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnReSn.Font = New System.Drawing.Font("黑体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.BtnReSn.ForeColor = System.Drawing.Color.Black
Me.BtnReSn.Location = New System.Drawing.Point(262, 36)
Me.BtnReSn.Name = "BtnReSn"
Me.BtnReSn.Size = New System.Drawing.Size(78, 29)
Me.BtnReSn.TabIndex = 65
Me.BtnReSn.Text = "序列号"
Me.BtnReSn.UseVisualStyleBackColor = True
'
'BtnReBox
'
Me.BtnReBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnReBox.Font = New System.Drawing.Font("黑体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.BtnReBox.ForeColor = System.Drawing.Color.Black
Me.BtnReBox.Location = New System.Drawing.Point(262, 5)
Me.BtnReBox.Name = "BtnReBox"
Me.BtnReBox.Size = New System.Drawing.Size(78, 29)
Me.BtnReBox.TabIndex = 63
Me.BtnReBox.Text = "箱号"
Me.BtnReBox.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(5, 13)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(59, 12)
Me.Label4.TabIndex = 62
Me.Label4.Text = "BoxNumber"
'
'TxtReworkBoxNum
'
Me.TxtReworkBoxNum.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TxtReworkBoxNum.Font = New System.Drawing.Font("黑体", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TxtReworkBoxNum.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.TxtReworkBoxNum.Location = New System.Drawing.Point(66, 5)
Me.TxtReworkBoxNum.Name = "TxtReworkBoxNum"
Me.TxtReworkBoxNum.Size = New System.Drawing.Size(190, 26)
Me.TxtReworkBoxNum.TabIndex = 1
Me.TxtReworkBoxNum.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'RdoRework
'
Me.RdoRework.AutoSize = True
Me.RdoRework.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.RdoRework.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
Me.RdoRework.Location = New System.Drawing.Point(6, 46)
Me.RdoRework.Name = "RdoRework"
Me.RdoRework.Size = New System.Drawing.Size(53, 23)
Me.RdoRework.TabIndex = 12
Me.RdoRework.Text = "返工"
Me.RdoRework.UseVisualStyleBackColor = True
'
'RdoMassProduction
'
Me.RdoMassProduction.AutoSize = True
Me.RdoMassProduction.Checked = True
Me.RdoMassProduction.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.RdoMassProduction.ForeColor = System.Drawing.Color.Green
Me.RdoMassProduction.Location = New System.Drawing.Point(6, 15)
Me.RdoMassProduction.Name = "RdoMassProduction"
Me.RdoMassProduction.Size = New System.Drawing.Size(53, 23)
Me.RdoMassProduction.TabIndex = 11
Me.RdoMassProduction.TabStop = True
Me.RdoMassProduction.Text = "量产"
Me.RdoMassProduction.UseVisualStyleBackColor = True
'
'BtnClear
'
Me.BtnClear.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.BtnClear.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.BtnClear.ForeColor = System.Drawing.Color.Green
Me.BtnClear.Location = New System.Drawing.Point(6, 516)
Me.BtnClear.Name = "BtnClear"
Me.BtnClear.Size = New System.Drawing.Size(55, 28)
Me.BtnClear.TabIndex = 9
Me.BtnClear.Text = "清除"
Me.BtnClear.UseVisualStyleBackColor = True
'
'BtnPrintPreview
'
Me.BtnPrintPreview.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.BtnPrintPreview.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.BtnPrintPreview.ForeColor = System.Drawing.Color.Green
Me.BtnPrintPreview.Location = New System.Drawing.Point(67, 516)
Me.BtnPrintPreview.Name = "BtnPrintPreview"
Me.BtnPrintPreview.Size = New System.Drawing.Size(60, 28)
Me.BtnPrintPreview.TabIndex = 8
Me.BtnPrintPreview.Text = "预览"
Me.BtnPrintPreview.UseVisualStyleBackColor = True
'
'BtnPrint
'
Me.BtnPrint.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.BtnPrint.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.BtnPrint.ForeColor = System.Drawing.Color.Green
Me.BtnPrint.Location = New System.Drawing.Point(133, 516)
Me.BtnPrint.Name = "BtnPrint"
Me.BtnPrint.Size = New System.Drawing.Size(83, 28)
Me.BtnPrint.TabIndex = 7
Me.BtnPrint.Text = "重新打印"
Me.BtnPrint.UseVisualStyleBackColor = True
'
'BtnCommit
'
Me.BtnCommit.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnCommit.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.BtnCommit.ForeColor = System.Drawing.Color.Green
Me.BtnCommit.Location = New System.Drawing.Point(263, 504)
Me.BtnCommit.Name = "BtnCommit"
Me.BtnCommit.Size = New System.Drawing.Size(162, 41)
Me.BtnCommit.TabIndex = 0
Me.BtnCommit.Text = "打印"
Me.BtnCommit.UseVisualStyleBackColor = True
'
'SplitContainer2
'
Me.SplitContainer2.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.SplitContainer2.Location = New System.Drawing.Point(3, 84)
Me.SplitContainer2.Name = "SplitContainer2"
Me.SplitContainer2.Orientation = System.Windows.Forms.Orientation.Horizontal
'
'SplitContainer2.Panel1
'
Me.SplitContainer2.Panel1.Controls.Add(Me.SplitContainer4)
Me.SplitContainer2.Panel2Collapsed = True
Me.SplitContainer2.Size = New System.Drawing.Size(422, 414)
Me.SplitContainer2.SplitterDistance = 383
Me.SplitContainer2.TabIndex = 6
'
'SplitContainer4
'
Me.SplitContainer4.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer4.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
Me.SplitContainer4.Location = New System.Drawing.Point(0, 0)
Me.SplitContainer4.Name = "SplitContainer4"
Me.SplitContainer4.Orientation = System.Windows.Forms.Orientation.Horizontal
'
'SplitContainer4.Panel1
'
Me.SplitContainer4.Panel1.Controls.Add(Me.LblResult)
Me.SplitContainer4.Panel1.Controls.Add(Me.GroupBox3)
'
'SplitContainer4.Panel2
'
Me.SplitContainer4.Panel2.Controls.Add(Me.GroupBox1)
Me.SplitContainer4.Size = New System.Drawing.Size(422, 414)
Me.SplitContainer4.SplitterDistance = 140
Me.SplitContainer4.TabIndex = 6
'
'LblResult
'
Me.LblResult.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.LblResult.BackColor = System.Drawing.Color.Black
Me.LblResult.Font = New System.Drawing.Font("微软雅黑", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.LblResult.ForeColor = System.Drawing.Color.Green
Me.LblResult.Location = New System.Drawing.Point(6, 20)
Me.LblResult.Name = "LblResult"
Me.LblResult.Size = New System.Drawing.Size(142, 114)
Me.LblResult.TabIndex = 5
Me.LblResult.Text = "PASS"
Me.LblResult.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'GroupBox3
'
Me.GroupBox3.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.GroupBox3.Controls.Add(Me.TvwTestLog)
Me.GroupBox3.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.GroupBox3.ForeColor = System.Drawing.Color.Gray
Me.GroupBox3.Location = New System.Drawing.Point(154, 3)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(268, 134)
Me.GroupBox3.TabIndex = 4
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "测试历史"
'
'TvwTestLog
'
Me.TvwTestLog.BackColor = System.Drawing.SystemColors.Window
Me.TvwTestLog.Dock = System.Windows.Forms.DockStyle.Fill
Me.TvwTestLog.ItemHeight = 20
Me.TvwTestLog.Location = New System.Drawing.Point(3, 17)
Me.TvwTestLog.Name = "TvwTestLog"
Me.TvwTestLog.Size = New System.Drawing.Size(262, 114)
Me.TvwTestLog.TabIndex = 1
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.GrdInput)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.GroupBox1.ForeColor = System.Drawing.Color.Gray
Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(422, 270)
Me.GroupBox1.TabIndex = 5
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "录入信息"
'
'GrdInput
'
Me.GrdInput.BorderStyle = FlexCell.BorderStyleEnum.None
Me.GrdInput.CheckedImage = Nothing
Me.GrdInput.Cols = 2
Me.GrdInput.ContextMenuStrip = Me.CmsInput
Me.GrdInput.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
Me.GrdInput.DisplayRowNumber = True
Me.GrdInput.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrdInput.ExtendLastCol = True
Me.GrdInput.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.GrdInput.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
Me.GrdInput.Location = New System.Drawing.Point(3, 17)
Me.GrdInput.Name = "GrdInput"
Me.GrdInput.Rows = 12
Me.GrdInput.Size = New System.Drawing.Size(416, 250)
Me.GrdInput.TabIndex = 0
Me.GrdInput.UncheckedImage = Nothing
'
'CmsInput
'
Me.CmsInput.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.清除记录ToolStripMenuItem})
Me.CmsInput.Name = "CmsInput"
Me.CmsInput.Size = New System.Drawing.Size(125, 26)
'
'清除记录ToolStripMenuItem
'
Me.清除记录ToolStripMenuItem.Name = "清除记录ToolStripMenuItem"
Me.清除记录ToolStripMenuItem.Size = New System.Drawing.Size(124, 22)
Me.清除记录ToolStripMenuItem.Text = "清除记录"
'
'FrmStationTest
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(707, 570)
Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.StatusStrip1)
Me.Name = "FrmStationTest"
Me.Text = "Form1"
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False)
Me.SplitContainer1.Panel2.PerformLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
Me.SplitContainer3.Panel1.ResumeLayout(False)
Me.SplitContainer3.Panel2.ResumeLayout(False)
CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer3.ResumeLayout(False)
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox5.ResumeLayout(False)
CType(Me.PicBox, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.panel_NewRecord.ResumeLayout(False)
Me.panel_NewRecord.PerformLayout()
CType(Me.NudBoxNum, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
Me.panel_Rework.ResumeLayout(False)
Me.panel_Rework.PerformLayout()
Me.SplitContainer2.Panel1.ResumeLayout(False)
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer2.ResumeLayout(False)
Me.SplitContainer4.Panel1.ResumeLayout(False)
Me.SplitContainer4.Panel2.ResumeLayout(False)
CType(Me.SplitContainer4, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer4.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.CmsInput.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents SplitContainer1 As SplitContainer
Friend WithEvents BtnCommit As Button
Friend WithEvents BtnSearch As Button
Friend WithEvents TxtDevSn As TextBox
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents TvwTestLog As TreeView
Friend WithEvents GrdPriview As FlexCell.Grid
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents SplitContainer2 As SplitContainer
Friend WithEvents GrdInput As FlexCell.Grid
Friend WithEvents GroupBox4 As GroupBox
Friend WithEvents TsLblCameraStatus As ToolStripStatusLabel
Friend WithEvents BtnStartEdit As Button
Friend WithEvents Label1 As Label
Friend WithEvents NudBoxNum As NumericUpDown
Friend WithEvents BtnPrint As Button
Friend WithEvents Label3 As Label
Friend WithEvents GroupBox5 As GroupBox
Friend WithEvents PicBox As PictureBox
Friend WithEvents CmsInput As ContextMenuStrip
Friend WithEvents 清除记录ToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BtnPrintPreview As Button
Friend WithEvents SplitContainer3 As SplitContainer
Friend WithEvents SplitContainer4 As SplitContainer
Friend WithEvents LblResult As Label
Friend WithEvents CboMoList As ComboBox
Friend WithEvents BtnClear As Button
Friend WithEvents Label2 As Label
Friend WithEvents panel_NewRecord As Panel
Friend WithEvents RdoRework As RadioButton
Friend WithEvents RdoMassProduction As RadioButton
Friend WithEvents panel_Rework As Panel
Friend WithEvents BtnReBox As Button
Friend WithEvents Label4 As Label
Friend WithEvents TxtReworkBoxNum As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents TxtReworkSn As TextBox
Friend WithEvents BtnReSn As Button
Friend WithEvents TabControl1 As TabControl
Friend WithEvents TabPage1 As TabPage
Friend WithEvents TabPage2 As TabPage
End Class

View File

@@ -0,0 +1,129 @@
<?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="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="CmsInput.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>140, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>49</value>
</metadata>
</root>

File diff suppressed because it is too large Load Diff