初始化提交
仓库转移到Gitea，初始化提交，可能丢失以前的git版本日志
This commit is contained in:
140
AUTS_ProductEntry/AUTS_ProductEntry.vbproj
Normal file
140
AUTS_ProductEntry/AUTS_ProductEntry.vbproj
Normal file
@@ -0,0 +1,140 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProjectGuid>{8FC266CE-FD61-4622-8B3C-9F6FFFD09A0C}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>AUTS_ProductEntry.My.MyApplication</StartupObject>
|
||||
<RootNamespace>AUTS_ProductEntry</RootNamespace>
|
||||
<AssemblyName>AUTS_ProductEntry</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
|
||||
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
|
||||
<Deterministic>true</Deterministic>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>AUTS_ProductEntry.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>AUTS_ProductEntry.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ApplicationIcon>iconfinder_60_973992.ico</ApplicationIcon>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Data.SQLite, Version=1.0.112.1, Culture=neutral, PublicKeyToken=db937bc2d44ff139, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\packages\System.Data.SQLite.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
<Reference Include="System.Core" />
|
||||
<Reference Include="System.Xml.Linq" />
|
||||
<Reference Include="System.Data.DataSetExtensions" />
|
||||
<Reference Include="System.Net.Http" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Drawing" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
<Import Include="System.Threading.Tasks" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="FrmMain.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FrmMain.Designer.vb">
|
||||
<DependentUpon>FrmMain.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
<DesignTime>True</DesignTime>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="FrmMain.resx">
|
||||
<DependentUpon>FrmMain.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="App.config" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="iconfinder_60_973992.ico" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<ProjectReference Include="..\UTS_Core\UTS_Core.vbproj">
|
||||
<Project>{33c6456c-f00d-41ac-a6fb-db0601495c6a}</Project>
|
||||
<Name>UTS_Core</Name>
|
||||
</ProjectReference>
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
</Project>
|
||||
44
AUTS_ProductEntry/App.config
Normal file
44
AUTS_ProductEntry/App.config
Normal file
@@ -0,0 +1,44 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<configSections>
|
||||
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<section name="AUTS_ProductEntry.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
|
||||
</sectionGroup>
|
||||
</configSections>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
|
||||
</startup>
|
||||
<runtime>
|
||||
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0" />
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.0.4.0" newVersion="4.0.4.0" />
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Memory" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.0.1.2" newVersion="4.0.1.2" />
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Google.Protobuf" publicKeyToken="a7d26565bac4d604" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-3.30.1.0" newVersion="3.30.1.0" />
|
||||
</dependentAssembly>
|
||||
</assemblyBinding>
|
||||
</runtime>
|
||||
<userSettings>
|
||||
<AUTS_ProductEntry.My.MySettings>
|
||||
<setting name="ProductionLine" serializeAs="String">
|
||||
<value />
|
||||
</setting>
|
||||
<setting name="Project" serializeAs="String">
|
||||
<value />
|
||||
</setting>
|
||||
<setting name="ProcessStation" serializeAs="String">
|
||||
<value />
|
||||
</setting>
|
||||
</AUTS_ProductEntry.My.MySettings>
|
||||
</userSettings>
|
||||
</configuration>
|
||||
278
AUTS_ProductEntry/FrmMain.Designer.vb
generated
Normal file
278
AUTS_ProductEntry/FrmMain.Designer.vb
generated
Normal file
@@ -0,0 +1,278 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class FrmMain
|
||||
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()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmMain))
|
||||
Me.lab_Result = New System.Windows.Forms.Label()
|
||||
Me.lab_ModelName = New System.Windows.Forms.Label()
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||
Me.RtxLog = New System.Windows.Forms.RichTextBox()
|
||||
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
Me.TssLblProductionLine = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.TssLblStaion = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.TsLblCheckSum = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.TssLblInvalidCount = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.TssLblValidCount = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.TssLblPassCount = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.TssLblFailCount = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.TssLblYield = New System.Windows.Forms.ToolStripStatusLabel()
|
||||
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
||||
Me.CboProductionLines = New System.Windows.Forms.ComboBox()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.TxtFirstRecord = New System.Windows.Forms.TextBox()
|
||||
Me.btn_OpenProject = New System.Windows.Forms.Button()
|
||||
Me.btn_StartProgramming = New System.Windows.Forms.Button()
|
||||
Me.GroupBox3.SuspendLayout
|
||||
Me.StatusStrip1.SuspendLayout
|
||||
Me.GroupBox4.SuspendLayout
|
||||
Me.GroupBox1.SuspendLayout
|
||||
Me.SuspendLayout
|
||||
'
|
||||
'lab_Result
|
||||
'
|
||||
Me.lab_Result.BackColor = System.Drawing.Color.Black
|
||||
Me.lab_Result.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
||||
Me.lab_Result.Font = New System.Drawing.Font("Consolas", 48!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
|
||||
Me.lab_Result.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0,Byte),Integer), CType(CType(192,Byte),Integer), CType(CType(0,Byte),Integer))
|
||||
Me.lab_Result.Location = New System.Drawing.Point(0, 95)
|
||||
Me.lab_Result.Name = "lab_Result"
|
||||
Me.lab_Result.Size = New System.Drawing.Size(404, 201)
|
||||
Me.lab_Result.TabIndex = 13
|
||||
Me.lab_Result.Text = "PASS"
|
||||
Me.lab_Result.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'lab_ModelName
|
||||
'
|
||||
Me.lab_ModelName.BackColor = System.Drawing.SystemColors.ActiveCaption
|
||||
Me.lab_ModelName.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
||||
Me.lab_ModelName.Font = New System.Drawing.Font("Consolas", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
|
||||
Me.lab_ModelName.Location = New System.Drawing.Point(0, -1)
|
||||
Me.lab_ModelName.Name = "lab_ModelName"
|
||||
Me.lab_ModelName.Size = New System.Drawing.Size(404, 85)
|
||||
Me.lab_ModelName.TabIndex = 12
|
||||
Me.lab_ModelName.Text = "SW-570"
|
||||
Me.lab_ModelName.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.RtxLog)
|
||||
Me.GroupBox3.Font = New System.Drawing.Font("宋体", 12!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(0, 302)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(740, 257)
|
||||
Me.GroupBox3.TabIndex = 17
|
||||
Me.GroupBox3.TabStop = false
|
||||
Me.GroupBox3.Text = "录入记录"
|
||||
'
|
||||
'RtxLog
|
||||
'
|
||||
Me.RtxLog.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.RtxLog.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.RtxLog.Location = New System.Drawing.Point(3, 22)
|
||||
Me.RtxLog.Name = "RtxLog"
|
||||
Me.RtxLog.Size = New System.Drawing.Size(734, 232)
|
||||
Me.RtxLog.TabIndex = 0
|
||||
Me.RtxLog.Text = ""
|
||||
'
|
||||
'StatusStrip1
|
||||
'
|
||||
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TssLblProductionLine, Me.TssLblStaion, Me.TsLblCheckSum, Me.TssLblInvalidCount, Me.TssLblValidCount, Me.TssLblPassCount, Me.TssLblFailCount, Me.TssLblYield})
|
||||
Me.StatusStrip1.Location = New System.Drawing.Point(0, 563)
|
||||
Me.StatusStrip1.Name = "StatusStrip1"
|
||||
Me.StatusStrip1.Size = New System.Drawing.Size(742, 22)
|
||||
Me.StatusStrip1.TabIndex = 19
|
||||
Me.StatusStrip1.Text = "StatusStrip1"
|
||||
'
|
||||
'TssLblProductionLine
|
||||
'
|
||||
Me.TssLblProductionLine.ForeColor = System.Drawing.Color.Black
|
||||
Me.TssLblProductionLine.Name = "TssLblProductionLine"
|
||||
Me.TssLblProductionLine.Size = New System.Drawing.Size(44, 17)
|
||||
Me.TssLblProductionLine.Text = "A-Line"
|
||||
'
|
||||
'TssLblStaion
|
||||
'
|
||||
Me.TssLblStaion.ForeColor = System.Drawing.Color.Black
|
||||
Me.TssLblStaion.Name = "TssLblStaion"
|
||||
Me.TssLblStaion.Size = New System.Drawing.Size(68, 17)
|
||||
Me.TssLblStaion.Text = "BLV-12 A1"
|
||||
'
|
||||
'TsLblCheckSum
|
||||
'
|
||||
Me.TsLblCheckSum.Name = "TsLblCheckSum"
|
||||
Me.TsLblCheckSum.Size = New System.Drawing.Size(64, 17)
|
||||
Me.TsLblCheckSum.Text = "Sum:0000"
|
||||
'
|
||||
'TssLblInvalidCount
|
||||
'
|
||||
Me.TssLblInvalidCount.Name = "TssLblInvalidCount"
|
||||
Me.TssLblInvalidCount.Size = New System.Drawing.Size(77, 17)
|
||||
Me.TssLblInvalidCount.Text = "Invalid:0000"
|
||||
'
|
||||
'TssLblValidCount
|
||||
'
|
||||
Me.TssLblValidCount.Name = "TssLblValidCount"
|
||||
Me.TssLblValidCount.Size = New System.Drawing.Size(68, 17)
|
||||
Me.TssLblValidCount.Text = "Valid:0000"
|
||||
'
|
||||
'TssLblPassCount
|
||||
'
|
||||
Me.TssLblPassCount.Name = "TssLblPassCount"
|
||||
Me.TssLblPassCount.Size = New System.Drawing.Size(65, 17)
|
||||
Me.TssLblPassCount.Text = "Pass:0000"
|
||||
'
|
||||
'TssLblFailCount
|
||||
'
|
||||
Me.TssLblFailCount.Name = "TssLblFailCount"
|
||||
Me.TssLblFailCount.Size = New System.Drawing.Size(58, 17)
|
||||
Me.TssLblFailCount.Text = "Fail:0000"
|
||||
'
|
||||
'TssLblYield
|
||||
'
|
||||
Me.TssLblYield.Name = "TssLblYield"
|
||||
Me.TssLblYield.Size = New System.Drawing.Size(81, 17)
|
||||
Me.TssLblYield.Text = "Yield:00.00%"
|
||||
'
|
||||
'GroupBox4
|
||||
'
|
||||
Me.GroupBox4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
|
||||
Me.GroupBox4.Controls.Add(Me.CboProductionLines)
|
||||
Me.GroupBox4.Font = New System.Drawing.Font("微软雅黑", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.GroupBox4.Location = New System.Drawing.Point(410, -1)
|
||||
Me.GroupBox4.Name = "GroupBox4"
|
||||
Me.GroupBox4.Size = New System.Drawing.Size(320, 85)
|
||||
Me.GroupBox4.TabIndex = 23
|
||||
Me.GroupBox4.TabStop = false
|
||||
Me.GroupBox4.Text = "产线"
|
||||
'
|
||||
'CboProductionLines
|
||||
'
|
||||
Me.CboProductionLines.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.CboProductionLines.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.CboProductionLines.Font = New System.Drawing.Font("Consolas", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
|
||||
Me.CboProductionLines.ForeColor = System.Drawing.Color.Gray
|
||||
Me.CboProductionLines.FormattingEnabled = true
|
||||
Me.CboProductionLines.Items.AddRange(New Object() {"Q1", "Q2", "Q3", "Q4"})
|
||||
Me.CboProductionLines.Location = New System.Drawing.Point(3, 35)
|
||||
Me.CboProductionLines.Name = "CboProductionLines"
|
||||
Me.CboProductionLines.Size = New System.Drawing.Size(314, 40)
|
||||
Me.CboProductionLines.TabIndex = 0
|
||||
Me.CboProductionLines.TabStop = false
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
|
||||
Me.GroupBox1.Controls.Add(Me.TxtFirstRecord)
|
||||
Me.GroupBox1.Font = New System.Drawing.Font("微软雅黑", 18!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(410, 81)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(320, 112)
|
||||
Me.GroupBox1.TabIndex = 22
|
||||
Me.GroupBox1.TabStop = false
|
||||
Me.GroupBox1.Text = "成品序号"
|
||||
'
|
||||
'TxtFirstRecord
|
||||
'
|
||||
Me.TxtFirstRecord.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TxtFirstRecord.Font = New System.Drawing.Font("Consolas", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
|
||||
Me.TxtFirstRecord.ImeMode = System.Windows.Forms.ImeMode.Disable
|
||||
Me.TxtFirstRecord.Location = New System.Drawing.Point(3, 35)
|
||||
Me.TxtFirstRecord.Name = "TxtFirstRecord"
|
||||
Me.TxtFirstRecord.Size = New System.Drawing.Size(314, 39)
|
||||
Me.TxtFirstRecord.TabIndex = 1
|
||||
Me.TxtFirstRecord.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'btn_OpenProject
|
||||
'
|
||||
Me.btn_OpenProject.Font = New System.Drawing.Font("微软雅黑", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.btn_OpenProject.Location = New System.Drawing.Point(410, 204)
|
||||
Me.btn_OpenProject.Name = "btn_OpenProject"
|
||||
Me.btn_OpenProject.Size = New System.Drawing.Size(140, 92)
|
||||
Me.btn_OpenProject.TabIndex = 21
|
||||
Me.btn_OpenProject.Text = "选择项目"
|
||||
Me.btn_OpenProject.UseVisualStyleBackColor = true
|
||||
'
|
||||
'btn_StartProgramming
|
||||
'
|
||||
Me.btn_StartProgramming.Font = New System.Drawing.Font("微软雅黑", 24!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134,Byte))
|
||||
Me.btn_StartProgramming.ForeColor = System.Drawing.Color.Blue
|
||||
Me.btn_StartProgramming.Location = New System.Drawing.Point(571, 204)
|
||||
Me.btn_StartProgramming.Name = "btn_StartProgramming"
|
||||
Me.btn_StartProgramming.Size = New System.Drawing.Size(159, 92)
|
||||
Me.btn_StartProgramming.TabIndex = 20
|
||||
Me.btn_StartProgramming.Text = "开始录入"
|
||||
Me.btn_StartProgramming.UseVisualStyleBackColor = true
|
||||
'
|
||||
'FrmMain
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 12!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(742, 585)
|
||||
Me.Controls.Add(Me.GroupBox4)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.Controls.Add(Me.btn_OpenProject)
|
||||
Me.Controls.Add(Me.btn_StartProgramming)
|
||||
Me.Controls.Add(Me.StatusStrip1)
|
||||
Me.Controls.Add(Me.GroupBox3)
|
||||
Me.Controls.Add(Me.lab_Result)
|
||||
Me.Controls.Add(Me.lab_ModelName)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
|
||||
Me.Name = "FrmMain"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Form1"
|
||||
Me.GroupBox3.ResumeLayout(false)
|
||||
Me.StatusStrip1.ResumeLayout(false)
|
||||
Me.StatusStrip1.PerformLayout
|
||||
Me.GroupBox4.ResumeLayout(false)
|
||||
Me.GroupBox1.ResumeLayout(false)
|
||||
Me.GroupBox1.PerformLayout
|
||||
Me.ResumeLayout(false)
|
||||
Me.PerformLayout
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents lab_Result As Label
|
||||
Friend WithEvents lab_ModelName As Label
|
||||
Friend WithEvents GroupBox3 As GroupBox
|
||||
Friend WithEvents RtxLog As RichTextBox
|
||||
Friend WithEvents StatusStrip1 As StatusStrip
|
||||
Friend WithEvents TssLblProductionLine As ToolStripStatusLabel
|
||||
Friend WithEvents TssLblStaion As ToolStripStatusLabel
|
||||
Friend WithEvents TsLblCheckSum As ToolStripStatusLabel
|
||||
Friend WithEvents TssLblInvalidCount As ToolStripStatusLabel
|
||||
Friend WithEvents TssLblValidCount As ToolStripStatusLabel
|
||||
Friend WithEvents TssLblPassCount As ToolStripStatusLabel
|
||||
Friend WithEvents TssLblFailCount As ToolStripStatusLabel
|
||||
Friend WithEvents TssLblYield As ToolStripStatusLabel
|
||||
Friend WithEvents GroupBox4 As GroupBox
|
||||
Friend WithEvents CboProductionLines As ComboBox
|
||||
Friend WithEvents GroupBox1 As GroupBox
|
||||
Friend WithEvents TxtFirstRecord As TextBox
|
||||
Friend WithEvents btn_OpenProject As Button
|
||||
Friend WithEvents btn_StartProgramming As Button
|
||||
End Class
|
||||
6296
AUTS_ProductEntry/FrmMain.resx
Normal file
6296
AUTS_ProductEntry/FrmMain.resx
Normal file
File diff suppressed because it is too large
Load Diff
207
AUTS_ProductEntry/FrmMain.vb
Normal file
207
AUTS_ProductEntry/FrmMain.vb
Normal file
@@ -0,0 +1,207 @@
|
||||
Imports UTS_Core.UTSModule
|
||||
Imports UTS_Core.UTSModule.Test
|
||||
|
||||
Public Class FrmMain
|
||||
Implements IProcessStation
|
||||
Implements IProductionLine
|
||||
|
||||
Private _utsApp As UtsAppForm
|
||||
|
||||
Public Sub ProductionLineChanged() Implements IProductionLine.ProductionLineChanged
|
||||
TssLblProductionLine.Text = CboProductionLines.Text
|
||||
|
||||
My.Settings.ProductionLine = CboProductionLines.Text
|
||||
End Sub
|
||||
|
||||
Public Sub StationChanged() Implements IProcessStation.StationChanged
|
||||
My.Settings.Project = _utsApp.ProcessStation.ParentProject.Name
|
||||
My.Settings.ProcessStation = _utsApp.ProcessStation.Name
|
||||
|
||||
UpdateStation(_utsApp.ProcessStation.ParentProject.Name, _utsApp.ProcessStation.Name)
|
||||
End Sub
|
||||
|
||||
Public Sub UpdateStation(projectName As String, stationName As String)
|
||||
If String.IsNullOrWhiteSpace(projectName) OrElse
|
||||
String.IsNullOrWhiteSpace(stationName) Then
|
||||
TssLblStaion.Text = $"Invalid Station"
|
||||
Else
|
||||
TssLblStaion.Text = $"{projectName} - {stationName}"
|
||||
lab_ModelName.Text = $"{projectName} - {stationName}"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
'自动保存设置
|
||||
My.Application.SaveMySettingsOnExit = True
|
||||
|
||||
'初始化UTS窗体信息,失败则关闭窗体
|
||||
If InitializeUtsApp() = False Then Return
|
||||
|
||||
'初始化界面信息
|
||||
InitializeForm()
|
||||
End Sub
|
||||
|
||||
Private Function InitializeUtsApp() As Boolean
|
||||
|
||||
_utsApp = UtsAppForm.CreateSingleton
|
||||
|
||||
Try
|
||||
If _utsApp.IsInitialized = False Then
|
||||
_utsApp.AddStatisticsObserver(Me)
|
||||
_utsApp.Initialize()
|
||||
_utsApp.LoadStation(My.Settings.Project, My.Settings.ProcessStation)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox($"Initialize UTSForm Error:{ex.Message}")
|
||||
Close()
|
||||
Return False
|
||||
End Try
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Sub InitializeForm()
|
||||
CboProductionLines.Items.Clear()
|
||||
CboProductionLines.Items.AddRange(_utsApp.ProductionLines.GetLineNames())
|
||||
CboProductionLines.SelectedIndex = CboProductionLines.Items.IndexOf(My.Settings.ProductionLine)
|
||||
|
||||
TxtFirstRecord.Clear()
|
||||
RtxLog.Clear()
|
||||
|
||||
Text = $"{Application.ProductName} {Application.ProductVersion} User:{_utsApp.Account.UserName}"
|
||||
End Sub
|
||||
|
||||
Private Sub CboProductionLine_DropDown(sender As Object, e As EventArgs) Handles CboProductionLines.DropDown
|
||||
'填充内容
|
||||
CboProductionLines.Items.Clear()
|
||||
CboProductionLines.Items.AddRange(_utsApp.ProductionLines.GetLineNames())
|
||||
End Sub
|
||||
|
||||
Private Sub CboProductionLines_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboProductionLines.SelectedIndexChanged
|
||||
ProductionLineChanged()
|
||||
End Sub
|
||||
|
||||
Private Sub Btn_OpenProject_Click(sender As Object, e As EventArgs) Handles btn_OpenProject.Click
|
||||
Try
|
||||
_utsApp.ChangeStation()
|
||||
Catch ex As Exception
|
||||
MsgBox($"ChangeStation Error:{ex.Message}")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Tb_FirstRecord_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtFirstRecord.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
SaveTestResult()
|
||||
|
||||
e.SuppressKeyPress = True
|
||||
e.Handled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Btn_StartProgramming_Click(sender As Object, e As EventArgs) Handles btn_StartProgramming.Click
|
||||
SaveTestResult()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub SaveTestResult()
|
||||
If _utsApp.ProcessStation Is Nothing Then
|
||||
MsgBox($"请选择项目与测试站后再尝试录入！")
|
||||
Return
|
||||
End If
|
||||
|
||||
If String.IsNullOrWhiteSpace(CboProductionLines.Text) Then
|
||||
MsgBox($"请选择生产线后再尝试录入！")
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim barcodeString As String = TxtFirstRecord.Text
|
||||
If String.IsNullOrWhiteSpace(barcodeString) Then
|
||||
MsgBox($"请输入PCB序号！")
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim saveDb As Boolean
|
||||
Try
|
||||
FillTestResult(barcodeString)
|
||||
_utsApp.CommitTestResult(uniqueRecord:=True)
|
||||
saveDb = True
|
||||
Catch ex As Exception
|
||||
MessageBox.Show($"测试结果录入失败：{ex.Message}", $"录入异常", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
|
||||
saveDb = False
|
||||
End Try
|
||||
|
||||
Static inputCount As Integer = 0
|
||||
inputCount += 1 : If inputCount > 9999 Then inputCount = 0
|
||||
RtxLog.SelectionStart = 0
|
||||
RtxLog.SelectionLength = RtxLog.TextLength
|
||||
RtxLog.SelectionColor = Color.Gray
|
||||
|
||||
If saveDb Then
|
||||
lab_Result.ForeColor = Color.Green
|
||||
lab_Result.Text = $"{barcodeString}{vbCrLf}Pass"
|
||||
|
||||
RtxLog.SelectionStart = RtxLog.TextLength
|
||||
RtxLog.SelectionColor = Color.Green
|
||||
AppendRecord($"{inputCount:D4}.BarcodeSn:{barcodeString},录入成功！")
|
||||
Else
|
||||
lab_Result.ForeColor = Color.Red
|
||||
lab_Result.Text = $"{barcodeString}{vbCrLf}Fail"
|
||||
|
||||
RtxLog.SelectionStart = RtxLog.TextLength
|
||||
RtxLog.SelectionColor = Color.Red
|
||||
AppendRecord($"{inputCount:D4}.BarcodeSn:{barcodeString},录入失败！")
|
||||
End If
|
||||
|
||||
TxtFirstRecord.Focus()
|
||||
TxtFirstRecord.SelectAll()
|
||||
End Sub
|
||||
|
||||
Public Sub AppendRecord(logString As String)
|
||||
If RtxLog.InvokeRequired Then '判断是否需要开委托
|
||||
RtxLog.Invoke(New Action(Of String)(AddressOf AppendRecord), New Object() {logString})
|
||||
Return
|
||||
End If
|
||||
|
||||
With RtxLog
|
||||
If .Lines.Length > 256 Then '超过上限则移除最初行内容
|
||||
.ReadOnly = False
|
||||
.SelectionStart = 0
|
||||
.SelectionLength = .GetFirstCharIndexFromLine(1)
|
||||
.SelectedText = String.Empty
|
||||
.ReadOnly = True
|
||||
.SelectionStart = .TextLength
|
||||
End If
|
||||
|
||||
.AppendText($"{Now:yyyy:MM:dd HH:mm:ss} - {logString}{vbNewLine}")
|
||||
|
||||
.ScrollToCaret()
|
||||
End With
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' 填充测试记录内容，每个应用程序这个部分有所差异
|
||||
''' </summary>
|
||||
Public Sub FillTestResult(barcodeString As String)
|
||||
_utsApp.TestResult.ResetTestResult()
|
||||
|
||||
'产线索引
|
||||
Dim lineID As Integer = _utsApp.ProductionLines(CboProductionLines.Text).ID
|
||||
_utsApp.TestResult.ProductionLineID = lineID
|
||||
|
||||
|
||||
'测试开始时间
|
||||
_utsApp.TestResult.StartTime = Now
|
||||
_utsApp.TestResult.DUT_SN = barcodeString
|
||||
_utsApp.TestResult.TestResult = TestResult.TestResultEnum.Pass
|
||||
End Sub
|
||||
|
||||
Private Sub lab_ModelName_Click(sender As Object, e As EventArgs) Handles lab_ModelName.Click
|
||||
Try
|
||||
DbConnect.DbConnector.SaveTestLogToRemote(UtsDb.RemotePrivateDb, "", Nothing, Nothing)
|
||||
Catch ex As Exception
|
||||
Console.WriteLine($"Save Error:{ex.Message}")
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
38
AUTS_ProductEntry/My Project/Application.Designer.vb
generated
Normal file
38
AUTS_ProductEntry/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,38 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' 此代码由工具生成。
|
||||
' 运行时版本:4.0.30319.42000
|
||||
'
|
||||
' 对此文件的更改可能会导致不正确的行为，并且如果
|
||||
' 重新生成代码，这些更改将会丢失。
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
'注意:此文件是自动生成的；请勿直接进行修改。若要更改，
|
||||
' 或者如果您在此文件中遇到生成错误，请转至项目设计器
|
||||
' (转至“项目属性”或在解决方案资源管理器中双击“我的项目”节点)，
|
||||
' 然后在“应用程序”选项卡中进行更改。
|
||||
'
|
||||
Partial Friend Class MyApplication
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Public Sub New()
|
||||
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
|
||||
Me.IsSingleInstance = false
|
||||
Me.EnableVisualStyles = true
|
||||
Me.SaveMySettingsOnExit = true
|
||||
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Protected Overrides Sub OnCreateMainForm()
|
||||
Me.MainForm = Global.AUTS_ProductEntry.FrmMain
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
10
AUTS_ProductEntry/My Project/Application.myapp
Normal file
10
AUTS_ProductEntry/My Project/Application.myapp
Normal file
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>true</MySubMain>
|
||||
<MainForm>FrmMain</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
35
AUTS_ProductEntry/My Project/AssemblyInfo.vb
Normal file
35
AUTS_ProductEntry/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' 有关程序集的一般信息由以下
|
||||
' 控制。更改这些特性值可修改
|
||||
' 与程序集关联的信息。
|
||||
|
||||
'查看程序集特性的值
|
||||
|
||||
<Assembly: AssemblyTitle("AUTS_ProductEntry")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("AUTS_ProductEntry")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2021")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'如果此项目向 COM 公开，则下列 GUID 用于 typelib 的 ID
|
||||
<Assembly: Guid("26fb9525-133d-47eb-9ba1-0f1bb96eb661")>
|
||||
|
||||
' 程序集的版本信息由下列四个值组成:
|
||||
'
|
||||
' 主版本
|
||||
' 次版本
|
||||
' 生成号
|
||||
' 修订号
|
||||
'
|
||||
'可以指定所有这些值，也可以使用“生成号”和“修订号”的默认值
|
||||
'通过使用 "*"，如下所示:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
63
AUTS_ProductEntry/My Project/Resources.Designer.vb
generated
Normal file
63
AUTS_ProductEntry/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' 此代码由工具生成。
|
||||
' 运行时版本:4.0.30319.42000
|
||||
'
|
||||
' 对此文件的更改可能会导致不正确的行为，并且如果
|
||||
' 重新生成代码，这些更改将会丢失。
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'此类是由 StronglyTypedResourceBuilder
|
||||
'类通过类似于 ResGen 或 Visual Studio 的工具自动生成的。
|
||||
'若要添加或移除成员，请编辑 .ResX 文件，然后重新运行 ResGen
|
||||
'(以 /str 作为命令选项)，或重新生成 VS 项目。
|
||||
'''<summary>
|
||||
''' 一个强类型的资源类，用于查找本地化的字符串等。
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' 返回此类使用的缓存的 ResourceManager 实例。
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("AUTS_ProductEntry.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' 重写当前线程的 CurrentUICulture 属性，对
|
||||
''' 使用此强类型资源类的所有资源查找执行重写。
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
117
AUTS_ProductEntry/My Project/Resources.resx
Normal file
117
AUTS_ProductEntry/My Project/Resources.resx
Normal file
@@ -0,0 +1,117 @@
|
||||
<?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.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: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" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
</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" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
109
AUTS_ProductEntry/My Project/Settings.Designer.vb
generated
Normal file
109
AUTS_ProductEntry/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,109 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' 此代码由工具生成。
|
||||
' 运行时版本:4.0.30319.42000
|
||||
'
|
||||
' 对此文件的更改可能会导致不正确的行为，并且如果
|
||||
' 重新生成代码，这些更改将会丢失。
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||
|
||||
#Region "My.Settings 自动保存功能"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
||||
Public Property ProductionLine() As String
|
||||
Get
|
||||
Return CType(Me("ProductionLine"),String)
|
||||
End Get
|
||||
Set
|
||||
Me("ProductionLine") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
||||
Public Property Project() As String
|
||||
Get
|
||||
Return CType(Me("Project"),String)
|
||||
End Get
|
||||
Set
|
||||
Me("Project") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("")> _
|
||||
Public Property ProcessStation() As String
|
||||
Get
|
||||
Return CType(Me("ProcessStation"),String)
|
||||
End Get
|
||||
Set
|
||||
Me("ProcessStation") = value
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.AUTS_ProductEntry.My.MySettings
|
||||
Get
|
||||
Return Global.AUTS_ProductEntry.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
15
AUTS_ProductEntry/My Project/Settings.settings
Normal file
15
AUTS_ProductEntry/My Project/Settings.settings
Normal file
@@ -0,0 +1,15 @@
|
||||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
|
||||
<Profiles />
|
||||
<Settings>
|
||||
<Setting Name="ProductionLine" Type="System.String" Scope="User">
|
||||
<Value Profile="(Default)" />
|
||||
</Setting>
|
||||
<Setting Name="Project" Type="System.String" Scope="User">
|
||||
<Value Profile="(Default)" />
|
||||
</Setting>
|
||||
<Setting Name="ProcessStation" Type="System.String" Scope="User">
|
||||
<Value Profile="(Default)" />
|
||||
</Setting>
|
||||
</Settings>
|
||||
</SettingsFile>
|
||||
BIN
AUTS_ProductEntry/iconfinder_60_973992.ico
Normal file
BIN
AUTS_ProductEntry/iconfinder_60_973992.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 361 KiB |
Reference in New Issue
Block a user