初始化提交
仓库转移到Gitea，初始化提交，可能丢失以前的git版本日志
This commit is contained in:
6
.cr/personal/Editor/Painting/Structural Highlighting.xml
Normal file
6
.cr/personal/Editor/Painting/Structural Highlighting.xml
Normal file
@@ -0,0 +1,6 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Root Type="DevExpress.CodeRush.VisualizePlugins.StructuralHighlighting.Options.StructuralHighlightingOptions">
|
||||||
|
<Options Language="Neutral">
|
||||||
|
<Enabled>False</Enabled>
|
||||||
|
</Options>
|
||||||
|
</Root>
|
||||||
47
.gitignore
vendored
Normal file
47
.gitignore
vendored
Normal file
@@ -0,0 +1,47 @@
|
|||||||
|
.vs/
|
||||||
|
|
||||||
|
# .NET编译生成文件
|
||||||
|
[Bb]in
|
||||||
|
[Oo]bj
|
||||||
|
[Dd]ebug*/
|
||||||
|
*.pdb
|
||||||
|
*.user
|
||||||
|
*.suo
|
||||||
|
*.cache
|
||||||
|
*.ilk
|
||||||
|
*.ncb
|
||||||
|
*.opensdf
|
||||||
|
*.sdf
|
||||||
|
*.vsp
|
||||||
|
*.vspscc
|
||||||
|
|
||||||
|
# 发布输出
|
||||||
|
publish/
|
||||||
|
*.pubxml
|
||||||
|
|
||||||
|
# NuGet包
|
||||||
|
packages/
|
||||||
|
*.nupkg
|
||||||
|
|
||||||
|
# Visual Studio临时文件
|
||||||
|
_ReSharper.*
|
||||||
|
*.resharper
|
||||||
|
[Tt]emp/
|
||||||
|
|
||||||
|
# MSTest测试结果
|
||||||
|
TestResults/
|
||||||
|
*.trx
|
||||||
|
|
||||||
|
# Rider IDE
|
||||||
|
.idea/
|
||||||
|
*.sln.iml
|
||||||
|
|
||||||
|
# VS Code
|
||||||
|
.vscode/
|
||||||
|
*.code-workspace
|
||||||
|
|
||||||
|
# 用户特定文件
|
||||||
|
*.userprefs
|
||||||
|
|
||||||
|
# 构建日志
|
||||||
|
msbuild.log
|
||||||
217
AUTS_AOI/AUTS_AOI.vbproj
Normal file
217
AUTS_AOI/AUTS_AOI.vbproj
Normal file
@@ -0,0 +1,217 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<Import Project="..\packages\OpenCvSharp4.runtime.win.4.6.0.20220608\build\net48\OpenCvSharp4.runtime.win.props" Condition="Exists('..\packages\OpenCvSharp4.runtime.win.4.6.0.20220608\build\net48\OpenCvSharp4.runtime.win.props')" />
|
||||||
|
<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>{63C0C05D-77F2-4F37-9D0E-2EF197337FCF}</ProjectGuid>
|
||||||
|
<OutputType>WinExe</OutputType>
|
||||||
|
<StartupObject>AUTS_AOI.My.MyApplication</StartupObject>
|
||||||
|
<RootNamespace>AUTS_AOI</RootNamespace>
|
||||||
|
<AssemblyName>AUTS_AOI</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>WindowsForms</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
|
||||||
|
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
|
||||||
|
<Deterministic>true</Deterministic>
|
||||||
|
<NuGetPackageImportStamp>
|
||||||
|
</NuGetPackageImportStamp>
|
||||||
|
<PublishUrl>publish\</PublishUrl>
|
||||||
|
<Install>true</Install>
|
||||||
|
<InstallFrom>Disk</InstallFrom>
|
||||||
|
<UpdateEnabled>false</UpdateEnabled>
|
||||||
|
<UpdateMode>Foreground</UpdateMode>
|
||||||
|
<UpdateInterval>7</UpdateInterval>
|
||||||
|
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||||
|
<UpdatePeriodically>false</UpdatePeriodically>
|
||||||
|
<UpdateRequired>false</UpdateRequired>
|
||||||
|
<MapFileExtensions>true</MapFileExtensions>
|
||||||
|
<ApplicationRevision>0</ApplicationRevision>
|
||||||
|
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
|
||||||
|
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||||
|
<UseApplicationTrust>false</UseApplicationTrust>
|
||||||
|
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||||
|
</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_AOI.xml</DocumentationFile>
|
||||||
|
<NoWarn>
|
||||||
|
</NoWarn>
|
||||||
|
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
|
||||||
|
</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_AOI.xml</DocumentationFile>
|
||||||
|
<NoWarn>
|
||||||
|
</NoWarn>
|
||||||
|
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>On</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>Off</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<ApplicationIcon>iconfinder_Instagram_571111.ico</ApplicationIcon>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<SignManifests>false</SignManifests>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<ManifestCertificateThumbprint>0A24DBE81683427A18C6FFDAD761CAAF5FF0B642</ManifestCertificateThumbprint>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="FluentFTP">
|
||||||
|
<HintPath>..\AUTS_UpdateService\FluentFTP.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="OpenCvSharp, Version=1.0.0.0, Culture=neutral, PublicKeyToken=6adad1e807fea099, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\OpenCvSharp4.4.6.0.20220608\lib\net48\OpenCvSharp.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="OpenCvSharp.Extensions, Version=1.0.0.0, Culture=neutral, PublicKeyToken=6adad1e807fea099, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\OpenCvSharp4.Extensions.4.6.0.20220608\lib\net48\OpenCvSharp.Extensions.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Buffers, Version=4.0.4.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\System.Buffers.4.6.0\lib\net462\System.Buffers.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Deployment" />
|
||||||
|
<Reference Include="System.Drawing" />
|
||||||
|
<Reference Include="System.Drawing.Common, Version=6.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\System.Drawing.Common.6.0.0\lib\net461\System.Drawing.Common.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System.Memory, Version=4.0.1.2, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\System.Memory.4.5.5\lib\net461\System.Memory.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System.Numerics" />
|
||||||
|
<Reference Include="System.Numerics.Vectors, Version=4.1.4.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\System.Numerics.Vectors.4.5.0\lib\net46\System.Numerics.Vectors.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.0.0\lib\net461\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System.Security" />
|
||||||
|
<Reference Include="System.ValueTuple, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\System.ValueTuple.4.5.0\lib\net47\System.ValueTuple.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System.Web" />
|
||||||
|
<Reference Include="System.Windows.Forms" />
|
||||||
|
<Reference Include="System.Xaml" />
|
||||||
|
<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="IStatisticsObserver.vb" />
|
||||||
|
<Compile Include="IFailTip.vb" />
|
||||||
|
<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>
|
||||||
|
<Compile Include="Statistics.vb" />
|
||||||
|
</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" />
|
||||||
|
<None Include="packages.config" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Content Include="iconfinder_Instagram_571111.ico" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<BootstrapperPackage Include=".NETFramework,Version=v4.8">
|
||||||
|
<Visible>False</Visible>
|
||||||
|
<ProductName>Microsoft .NET Framework 4.8 %28x86 和 x64%29</ProductName>
|
||||||
|
<Install>true</Install>
|
||||||
|
</BootstrapperPackage>
|
||||||
|
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
|
||||||
|
<Visible>False</Visible>
|
||||||
|
<ProductName>.NET Framework 3.5 SP1</ProductName>
|
||||||
|
<Install>false</Install>
|
||||||
|
</BootstrapperPackage>
|
||||||
|
</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" />
|
||||||
|
<Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ErrorText>这台计算机上缺少此项目引用的 NuGet 程序包。使用“NuGet 程序包还原”可下载这些程序包。有关更多信息，请参见 http://go.microsoft.com/fwlink/?LinkID=322105。缺少的文件是 {0}。</ErrorText>
|
||||||
|
</PropertyGroup>
|
||||||
|
<Error Condition="!Exists('..\packages\OpenCvSharp4.runtime.win.4.6.0.20220608\build\net48\OpenCvSharp4.runtime.win.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\OpenCvSharp4.runtime.win.4.6.0.20220608\build\net48\OpenCvSharp4.runtime.win.props'))" />
|
||||||
|
</Target>
|
||||||
|
</Project>
|
||||||
57
AUTS_AOI/App.config
Normal file
57
AUTS_AOI/App.config
Normal file
@@ -0,0 +1,57 @@
|
|||||||
|
<?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_AOI.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.Numerics.Vectors" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
|
||||||
|
<bindingRedirect oldVersion="0.0.0.0-4.1.4.0" newVersion="4.1.4.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_AOI.My.MySettings>
|
||||||
|
<setting name="Project" serializeAs="String">
|
||||||
|
<value />
|
||||||
|
</setting>
|
||||||
|
<setting name="ProcessStation" serializeAs="String">
|
||||||
|
<value />
|
||||||
|
</setting>
|
||||||
|
<setting name="ProductionLine" serializeAs="String">
|
||||||
|
<value />
|
||||||
|
</setting>
|
||||||
|
<setting name="UseCamera" serializeAs="String">
|
||||||
|
<value>True</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="CameraFrameIndex" serializeAs="String">
|
||||||
|
<value>4</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="DoubleCamera" serializeAs="String">
|
||||||
|
<value>True</value>
|
||||||
|
</setting>
|
||||||
|
</AUTS_AOI.My.MySettings>
|
||||||
|
</userSettings>
|
||||||
|
</configuration>
|
||||||
61
AUTS_AOI/CheckRecorder.vb
Normal file
61
AUTS_AOI/CheckRecorder.vb
Normal file
@@ -0,0 +1,61 @@
|
|||||||
|
Imports UTS_Core.Database
|
||||||
|
Imports UTS_Core.UTSModule
|
||||||
|
Imports UTS_Core.UTSModule.DbTableModel.Customer
|
||||||
|
|
||||||
|
Public Class CheckRecorder
|
||||||
|
|
||||||
|
Private ReadOnly _failTipDictionary As Dictionary(Of String, Integer)
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
_failTipDictionary = New Dictionary(Of String, Integer)()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Property TestLogTableName As String
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub Commit(failTip As String)
|
||||||
|
If _failTipDictionary.ContainsKey(failTip) Then
|
||||||
|
_failTipDictionary(failTip) += 1
|
||||||
|
Else
|
||||||
|
_failTipDictionary.Add(failTip, 1)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 获取当前倒叙排序的结果信息
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function UpdateFailStrings() As String()
|
||||||
|
Dim result As New List(Of String)
|
||||||
|
'排序
|
||||||
|
For Each valuePair As KeyValuePair(Of String, Integer) In _failTipDictionary.OrderByDescending(Function(x) x.Value)
|
||||||
|
result.Add(valuePair.Key)
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return result.ToArray()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub ReloadFailString()
|
||||||
|
If String.IsNullOrWhiteSpace(TestLogTableName) Then Return
|
||||||
|
|
||||||
|
'以本地库为准
|
||||||
|
Using db As New DbExecutor(UtsDb.LocalDbType, UtsDb.LocalConnString)
|
||||||
|
db.Open()
|
||||||
|
|
||||||
|
Dim cmdText As String
|
||||||
|
|
||||||
|
'统计日志表分组信息
|
||||||
|
cmdText = $"select `{TestLogTable.ColNamesEnum.QA_CheckResult}`,count(*) as count from `{TestLogTableName}` where `TestResult` = '0' group by `{TestLogTable.ColNamesEnum.QA_CheckResult}` order by count"
|
||||||
|
Dim dtTable As DataTable = db.ExecuteDataTable(cmdText)
|
||||||
|
|
||||||
|
For Each row As DataRow In dtTable.Rows
|
||||||
|
_failTipDictionary.Add(row($"{TestLogTable.ColNamesEnum.QA_CheckResult}").ToString(), CInt(row("count")))
|
||||||
|
Next
|
||||||
|
|
||||||
|
db.Close()
|
||||||
|
End Using
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
452
AUTS_AOI/FrmMain.Designer.vb
generated
Normal file
452
AUTS_AOI/FrmMain.Designer.vb
generated
Normal file
@@ -0,0 +1,452 @@
|
|||||||
|
<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.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.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.TsChangeStation = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
|
||||||
|
Me.TsCboCameraFrame = New System.Windows.Forms.ToolStripComboBox()
|
||||||
|
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
|
||||||
|
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||||
|
Me.RdBtnDouble = New System.Windows.Forms.RadioButton()
|
||||||
|
Me.RdBtnSingle = New System.Windows.Forms.RadioButton()
|
||||||
|
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.RtxRecord = New System.Windows.Forms.RichTextBox()
|
||||||
|
Me.LblResult = New System.Windows.Forms.Label()
|
||||||
|
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.CboProductionLines = New System.Windows.Forms.ComboBox()
|
||||||
|
Me.BtnCommit = New System.Windows.Forms.Button()
|
||||||
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.RtxBarcodeSn = New System.Windows.Forms.RichTextBox()
|
||||||
|
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
|
||||||
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.PicCamera1 = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.PicCamera2 = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.StatusStrip1.SuspendLayout()
|
||||||
|
Me.ToolStrip1.SuspendLayout()
|
||||||
|
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||||
|
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||||
|
Me.SplitContainer1.SuspendLayout()
|
||||||
|
Me.GroupBox3.SuspendLayout()
|
||||||
|
Me.GroupBox4.SuspendLayout()
|
||||||
|
Me.GroupBox1.SuspendLayout()
|
||||||
|
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SplitContainer2.Panel1.SuspendLayout()
|
||||||
|
Me.SplitContainer2.Panel2.SuspendLayout()
|
||||||
|
Me.SplitContainer2.SuspendLayout()
|
||||||
|
Me.GroupBox2.SuspendLayout()
|
||||||
|
CType(Me.PicCamera1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.GroupBox5.SuspendLayout()
|
||||||
|
CType(Me.PicCamera2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'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, 579)
|
||||||
|
Me.StatusStrip1.Name = "StatusStrip1"
|
||||||
|
Me.StatusStrip1.Size = New System.Drawing.Size(790, 22)
|
||||||
|
Me.StatusStrip1.TabIndex = 0
|
||||||
|
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%"
|
||||||
|
'
|
||||||
|
'ToolStrip1
|
||||||
|
'
|
||||||
|
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsChangeStation, Me.ToolStripLabel1, Me.TsCboCameraFrame, Me.ToolStripLabel2})
|
||||||
|
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.ToolStrip1.Name = "ToolStrip1"
|
||||||
|
Me.ToolStrip1.Size = New System.Drawing.Size(790, 40)
|
||||||
|
Me.ToolStrip1.TabIndex = 1
|
||||||
|
Me.ToolStrip1.Text = "ToolStrip1"
|
||||||
|
'
|
||||||
|
'TsChangeStation
|
||||||
|
'
|
||||||
|
Me.TsChangeStation.Image = CType(resources.GetObject("TsChangeStation.Image"), System.Drawing.Image)
|
||||||
|
Me.TsChangeStation.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TsChangeStation.Name = "TsChangeStation"
|
||||||
|
Me.TsChangeStation.Size = New System.Drawing.Size(60, 37)
|
||||||
|
Me.TsChangeStation.Text = "切换站位"
|
||||||
|
Me.TsChangeStation.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
|
||||||
|
Me.TsChangeStation.ToolTipText = "切换站位"
|
||||||
|
'
|
||||||
|
'ToolStripLabel1
|
||||||
|
'
|
||||||
|
Me.ToolStripLabel1.Name = "ToolStripLabel1"
|
||||||
|
Me.ToolStripLabel1.Size = New System.Drawing.Size(44, 37)
|
||||||
|
Me.ToolStripLabel1.Text = "分辨率"
|
||||||
|
'
|
||||||
|
'TsCboCameraFrame
|
||||||
|
'
|
||||||
|
Me.TsCboCameraFrame.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||||
|
Me.TsCboCameraFrame.Name = "TsCboCameraFrame"
|
||||||
|
Me.TsCboCameraFrame.Size = New System.Drawing.Size(121, 40)
|
||||||
|
'
|
||||||
|
'ToolStripLabel2
|
||||||
|
'
|
||||||
|
Me.ToolStripLabel2.Name = "ToolStripLabel2"
|
||||||
|
Me.ToolStripLabel2.Size = New System.Drawing.Size(0, 37)
|
||||||
|
'
|
||||||
|
'SplitContainer1
|
||||||
|
'
|
||||||
|
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
|
||||||
|
Me.SplitContainer1.Location = New System.Drawing.Point(0, 40)
|
||||||
|
Me.SplitContainer1.Name = "SplitContainer1"
|
||||||
|
'
|
||||||
|
'SplitContainer1.Panel1
|
||||||
|
'
|
||||||
|
Me.SplitContainer1.Panel1.Controls.Add(Me.RdBtnDouble)
|
||||||
|
Me.SplitContainer1.Panel1.Controls.Add(Me.RdBtnSingle)
|
||||||
|
Me.SplitContainer1.Panel1.Controls.Add(Me.GroupBox3)
|
||||||
|
Me.SplitContainer1.Panel1.Controls.Add(Me.LblResult)
|
||||||
|
Me.SplitContainer1.Panel1.Controls.Add(Me.GroupBox4)
|
||||||
|
Me.SplitContainer1.Panel1.Controls.Add(Me.BtnCommit)
|
||||||
|
Me.SplitContainer1.Panel1.Controls.Add(Me.GroupBox1)
|
||||||
|
'
|
||||||
|
'SplitContainer1.Panel2
|
||||||
|
'
|
||||||
|
Me.SplitContainer1.Panel2.Controls.Add(Me.SplitContainer2)
|
||||||
|
Me.SplitContainer1.Size = New System.Drawing.Size(790, 539)
|
||||||
|
Me.SplitContainer1.SplitterDistance = 429
|
||||||
|
Me.SplitContainer1.TabIndex = 0
|
||||||
|
Me.SplitContainer1.TabStop = False
|
||||||
|
'
|
||||||
|
'RdBtnDouble
|
||||||
|
'
|
||||||
|
Me.RdBtnDouble.AutoSize = True
|
||||||
|
Me.RdBtnDouble.Checked = True
|
||||||
|
Me.RdBtnDouble.Location = New System.Drawing.Point(347, 154)
|
||||||
|
Me.RdBtnDouble.Name = "RdBtnDouble"
|
||||||
|
Me.RdBtnDouble.Size = New System.Drawing.Size(71, 16)
|
||||||
|
Me.RdBtnDouble.TabIndex = 1
|
||||||
|
Me.RdBtnDouble.TabStop = True
|
||||||
|
Me.RdBtnDouble.Text = "双摄像头"
|
||||||
|
Me.RdBtnDouble.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'RdBtnSingle
|
||||||
|
'
|
||||||
|
Me.RdBtnSingle.AutoSize = True
|
||||||
|
Me.RdBtnSingle.Location = New System.Drawing.Point(259, 154)
|
||||||
|
Me.RdBtnSingle.Name = "RdBtnSingle"
|
||||||
|
Me.RdBtnSingle.Size = New System.Drawing.Size(71, 16)
|
||||||
|
Me.RdBtnSingle.TabIndex = 6
|
||||||
|
Me.RdBtnSingle.TabStop = True
|
||||||
|
Me.RdBtnSingle.Text = "单摄像头"
|
||||||
|
Me.RdBtnSingle.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'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.RtxRecord)
|
||||||
|
Me.GroupBox3.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GroupBox3.Location = New System.Drawing.Point(12, 172)
|
||||||
|
Me.GroupBox3.Name = "GroupBox3"
|
||||||
|
Me.GroupBox3.Size = New System.Drawing.Size(406, 317)
|
||||||
|
Me.GroupBox3.TabIndex = 2
|
||||||
|
Me.GroupBox3.TabStop = False
|
||||||
|
Me.GroupBox3.Text = "校验日志"
|
||||||
|
'
|
||||||
|
'RtxRecord
|
||||||
|
'
|
||||||
|
Me.RtxRecord.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||||
|
Me.RtxRecord.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.RtxRecord.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.RtxRecord.Location = New System.Drawing.Point(3, 22)
|
||||||
|
Me.RtxRecord.Name = "RtxRecord"
|
||||||
|
Me.RtxRecord.ReadOnly = True
|
||||||
|
Me.RtxRecord.Size = New System.Drawing.Size(400, 292)
|
||||||
|
Me.RtxRecord.TabIndex = 0
|
||||||
|
Me.RtxRecord.TabStop = False
|
||||||
|
Me.RtxRecord.Text = ""
|
||||||
|
'
|
||||||
|
'LblResult
|
||||||
|
'
|
||||||
|
Me.LblResult.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.LblResult.Font = New System.Drawing.Font("宋体", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.LblResult.Location = New System.Drawing.Point(12, 496)
|
||||||
|
Me.LblResult.Name = "LblResult"
|
||||||
|
Me.LblResult.Size = New System.Drawing.Size(249, 40)
|
||||||
|
Me.LblResult.TabIndex = 4
|
||||||
|
Me.LblResult.Text = "待开始测试"
|
||||||
|
Me.LblResult.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
|
'
|
||||||
|
'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("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GroupBox4.Location = New System.Drawing.Point(12, 9)
|
||||||
|
Me.GroupBox4.Name = "GroupBox4"
|
||||||
|
Me.GroupBox4.Size = New System.Drawing.Size(409, 50)
|
||||||
|
Me.GroupBox4.TabIndex = 3
|
||||||
|
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("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, 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, 22)
|
||||||
|
Me.CboProductionLines.Name = "CboProductionLines"
|
||||||
|
Me.CboProductionLines.Size = New System.Drawing.Size(403, 24)
|
||||||
|
Me.CboProductionLines.TabIndex = 0
|
||||||
|
Me.CboProductionLines.TabStop = False
|
||||||
|
'
|
||||||
|
'BtnCommit
|
||||||
|
'
|
||||||
|
Me.BtnCommit.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.BtnCommit.Font = New System.Drawing.Font("宋体", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.BtnCommit.Location = New System.Drawing.Point(313, 495)
|
||||||
|
Me.BtnCommit.Name = "BtnCommit"
|
||||||
|
Me.BtnCommit.Size = New System.Drawing.Size(105, 40)
|
||||||
|
Me.BtnCommit.TabIndex = 2
|
||||||
|
Me.BtnCommit.Text = "提交"
|
||||||
|
Me.BtnCommit.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'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.RtxBarcodeSn)
|
||||||
|
Me.GroupBox1.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GroupBox1.Location = New System.Drawing.Point(12, 65)
|
||||||
|
Me.GroupBox1.Name = "GroupBox1"
|
||||||
|
Me.GroupBox1.Size = New System.Drawing.Size(409, 86)
|
||||||
|
Me.GroupBox1.TabIndex = 0
|
||||||
|
Me.GroupBox1.TabStop = False
|
||||||
|
Me.GroupBox1.Text = "产品序号"
|
||||||
|
'
|
||||||
|
'RtxBarcodeSn
|
||||||
|
'
|
||||||
|
Me.RtxBarcodeSn.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||||
|
Me.RtxBarcodeSn.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.RtxBarcodeSn.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.RtxBarcodeSn.ForeColor = System.Drawing.Color.Gray
|
||||||
|
Me.RtxBarcodeSn.Location = New System.Drawing.Point(3, 22)
|
||||||
|
Me.RtxBarcodeSn.Name = "RtxBarcodeSn"
|
||||||
|
Me.RtxBarcodeSn.Size = New System.Drawing.Size(403, 61)
|
||||||
|
Me.RtxBarcodeSn.TabIndex = 0
|
||||||
|
Me.RtxBarcodeSn.Text = "123456ABCDEFabcdef"
|
||||||
|
'
|
||||||
|
'SplitContainer2
|
||||||
|
'
|
||||||
|
Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.SplitContainer2.IsSplitterFixed = True
|
||||||
|
Me.SplitContainer2.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.SplitContainer2.Name = "SplitContainer2"
|
||||||
|
Me.SplitContainer2.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||||
|
'
|
||||||
|
'SplitContainer2.Panel1
|
||||||
|
'
|
||||||
|
Me.SplitContainer2.Panel1.Controls.Add(Me.GroupBox2)
|
||||||
|
'
|
||||||
|
'SplitContainer2.Panel2
|
||||||
|
'
|
||||||
|
Me.SplitContainer2.Panel2.Controls.Add(Me.GroupBox5)
|
||||||
|
Me.SplitContainer2.Size = New System.Drawing.Size(357, 539)
|
||||||
|
Me.SplitContainer2.SplitterDistance = 258
|
||||||
|
Me.SplitContainer2.TabIndex = 0
|
||||||
|
'
|
||||||
|
'GroupBox2
|
||||||
|
'
|
||||||
|
Me.GroupBox2.Controls.Add(Me.PicCamera1)
|
||||||
|
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GroupBox2.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Regular, 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(357, 258)
|
||||||
|
Me.GroupBox2.TabIndex = 1
|
||||||
|
Me.GroupBox2.TabStop = False
|
||||||
|
Me.GroupBox2.Text = "主摄像头"
|
||||||
|
'
|
||||||
|
'PicCamera1
|
||||||
|
'
|
||||||
|
Me.PicCamera1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.PicCamera1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.PicCamera1.Location = New System.Drawing.Point(3, 25)
|
||||||
|
Me.PicCamera1.Name = "PicCamera1"
|
||||||
|
Me.PicCamera1.Size = New System.Drawing.Size(351, 230)
|
||||||
|
Me.PicCamera1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||||
|
Me.PicCamera1.TabIndex = 3
|
||||||
|
Me.PicCamera1.TabStop = False
|
||||||
|
'
|
||||||
|
'GroupBox5
|
||||||
|
'
|
||||||
|
Me.GroupBox5.Controls.Add(Me.PicCamera2)
|
||||||
|
Me.GroupBox5.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GroupBox5.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GroupBox5.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.GroupBox5.Name = "GroupBox5"
|
||||||
|
Me.GroupBox5.Size = New System.Drawing.Size(357, 277)
|
||||||
|
Me.GroupBox5.TabIndex = 2
|
||||||
|
Me.GroupBox5.TabStop = False
|
||||||
|
Me.GroupBox5.Text = "次摄像头"
|
||||||
|
'
|
||||||
|
'PicCamera2
|
||||||
|
'
|
||||||
|
Me.PicCamera2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.PicCamera2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.PicCamera2.Location = New System.Drawing.Point(3, 25)
|
||||||
|
Me.PicCamera2.Name = "PicCamera2"
|
||||||
|
Me.PicCamera2.Size = New System.Drawing.Size(351, 249)
|
||||||
|
Me.PicCamera2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||||
|
Me.PicCamera2.TabIndex = 3
|
||||||
|
Me.PicCamera2.TabStop = False
|
||||||
|
'
|
||||||
|
'FrmMain
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(790, 601)
|
||||||
|
Me.Controls.Add(Me.SplitContainer1)
|
||||||
|
Me.Controls.Add(Me.ToolStrip1)
|
||||||
|
Me.Controls.Add(Me.StatusStrip1)
|
||||||
|
Me.ForeColor = System.Drawing.Color.Gray
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
|
Me.Name = "FrmMain"
|
||||||
|
Me.Text = "Form1"
|
||||||
|
Me.StatusStrip1.ResumeLayout(False)
|
||||||
|
Me.StatusStrip1.PerformLayout()
|
||||||
|
Me.ToolStrip1.ResumeLayout(False)
|
||||||
|
Me.ToolStrip1.PerformLayout()
|
||||||
|
Me.SplitContainer1.Panel1.ResumeLayout(False)
|
||||||
|
Me.SplitContainer1.Panel1.PerformLayout()
|
||||||
|
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||||
|
CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).EndInit
|
||||||
|
Me.SplitContainer1.ResumeLayout(false)
|
||||||
|
Me.GroupBox3.ResumeLayout(false)
|
||||||
|
Me.GroupBox4.ResumeLayout(false)
|
||||||
|
Me.GroupBox1.ResumeLayout(false)
|
||||||
|
Me.SplitContainer2.Panel1.ResumeLayout(false)
|
||||||
|
Me.SplitContainer2.Panel2.ResumeLayout(false)
|
||||||
|
CType(Me.SplitContainer2,System.ComponentModel.ISupportInitialize).EndInit
|
||||||
|
Me.SplitContainer2.ResumeLayout(false)
|
||||||
|
Me.GroupBox2.ResumeLayout(false)
|
||||||
|
CType(Me.PicCamera1,System.ComponentModel.ISupportInitialize).EndInit
|
||||||
|
Me.GroupBox5.ResumeLayout(false)
|
||||||
|
CType(Me.PicCamera2,System.ComponentModel.ISupportInitialize).EndInit
|
||||||
|
Me.ResumeLayout(false)
|
||||||
|
Me.PerformLayout
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents StatusStrip1 As StatusStrip
|
||||||
|
Friend WithEvents ToolStrip1 As ToolStrip
|
||||||
|
Friend WithEvents TsChangeStation As ToolStripButton
|
||||||
|
Friend WithEvents SplitContainer1 As SplitContainer
|
||||||
|
Friend WithEvents GroupBox2 As GroupBox
|
||||||
|
Friend WithEvents GroupBox1 As GroupBox
|
||||||
|
Friend WithEvents RtxBarcodeSn As RichTextBox
|
||||||
|
Friend WithEvents RtxRecord As RichTextBox
|
||||||
|
Friend WithEvents GroupBox3 As GroupBox
|
||||||
|
Friend WithEvents TsLblCheckSum As ToolStripStatusLabel
|
||||||
|
Friend WithEvents TssLblPassCount As ToolStripStatusLabel
|
||||||
|
Friend WithEvents TssLblFailCount As ToolStripStatusLabel
|
||||||
|
Friend WithEvents BtnCommit As Button
|
||||||
|
Friend WithEvents TssLblStaion As ToolStripStatusLabel
|
||||||
|
Friend WithEvents TssLblYield As ToolStripStatusLabel
|
||||||
|
Friend WithEvents GroupBox4 As GroupBox
|
||||||
|
Friend WithEvents CboProductionLines As ComboBox
|
||||||
|
Friend WithEvents TssLblProductionLine As ToolStripStatusLabel
|
||||||
|
Friend WithEvents TssLblInvalidCount As ToolStripStatusLabel
|
||||||
|
Friend WithEvents TssLblValidCount As ToolStripStatusLabel
|
||||||
|
Friend WithEvents PicCamera1 As PictureBox
|
||||||
|
Friend WithEvents LblResult As Label
|
||||||
|
Friend WithEvents ToolStripLabel1 As ToolStripLabel
|
||||||
|
Friend WithEvents TsCboCameraFrame As ToolStripComboBox
|
||||||
|
Friend WithEvents ToolStripLabel2 As ToolStripLabel
|
||||||
|
Friend WithEvents SplitContainer2 As SplitContainer
|
||||||
|
Friend WithEvents GroupBox5 As GroupBox
|
||||||
|
Friend WithEvents PicCamera2 As PictureBox
|
||||||
|
Friend WithEvents RdBtnDouble As RadioButton
|
||||||
|
Friend WithEvents RdBtnSingle As RadioButton
|
||||||
|
End Class
|
||||||
1978
AUTS_AOI/FrmMain.resx
Normal file
1978
AUTS_AOI/FrmMain.resx
Normal file
File diff suppressed because it is too large
Load Diff
541
AUTS_AOI/FrmMain.vb
Normal file
541
AUTS_AOI/FrmMain.vb
Normal file
@@ -0,0 +1,541 @@
|
|||||||
|
Imports System.Text
|
||||||
|
Imports System.Threading
|
||||||
|
Imports OpenCvSharp
|
||||||
|
Imports OpenCvSharp.Extensions
|
||||||
|
Imports UTS_Core.UTSModule.Test
|
||||||
|
Imports UTS_Core.UTSModule
|
||||||
|
Imports UTS_Core.UTSModule.Station
|
||||||
|
|
||||||
|
Public Class FrmMain
|
||||||
|
Implements IStatisticsObserver
|
||||||
|
Implements IProcessStation
|
||||||
|
Implements IProductionLine
|
||||||
|
|
||||||
|
Private _ftp As FtpService
|
||||||
|
Private _utsApp As UtsAppForm
|
||||||
|
Private _checkStatistics As Statistics
|
||||||
|
|
||||||
|
Private _snSqliteChar As Char = "|"c
|
||||||
|
|
||||||
|
Private _useCamera As Boolean
|
||||||
|
Private _doubleCarera As Boolean
|
||||||
|
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}"
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub UpdateFailCount(failCount As Integer) Implements IStatisticsObserver.UpdateFailCount
|
||||||
|
TssLblFailCount.Text = $"Fail:{failCount:D4}"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub UpdatePassCount(passCount As Integer) Implements IStatisticsObserver.UpdatePassCount
|
||||||
|
TssLblPassCount.Text = $"Pass:{passCount:D4}"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub UpdateValidCount(validCount As Integer) Implements IStatisticsObserver.UpdateValidCount
|
||||||
|
TssLblValidCount.Text = $"Valid:{validCount:D4}"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub UpdateInvalidCount(invalidCount As Integer) Implements IStatisticsObserver.UpdateInvalidCount
|
||||||
|
TssLblInvalidCount.Text = $"Invalid:{invalidCount:D4}"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub UpdateSumCount(sumCount As Integer) Implements IStatisticsObserver.UpdateSumCount
|
||||||
|
TsLblCheckSum.Text = $"Sum:{sumCount:D4}"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub UpdateYield(yield As Double) Implements IStatisticsObserver.UpdateYield
|
||||||
|
Select Case yield
|
||||||
|
Case > 90
|
||||||
|
TssLblYield.ForeColor = Color.DarkGreen
|
||||||
|
Case > 75
|
||||||
|
TssLblYield.ForeColor = Color.Green
|
||||||
|
Case > 60
|
||||||
|
TssLblYield.ForeColor = Color.Orange
|
||||||
|
Case > 40
|
||||||
|
TssLblYield.ForeColor = Color.OrangeRed
|
||||||
|
Case Else
|
||||||
|
TssLblYield.ForeColor = Color.Red
|
||||||
|
End Select
|
||||||
|
|
||||||
|
TssLblYield.Text = $"Yield:{yield:F2}%"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
|
My.Application.SaveMySettingsOnExit = True
|
||||||
|
|
||||||
|
_checkStatistics = New Statistics()
|
||||||
|
_checkStatistics.AddStatisticsObserver(Me)
|
||||||
|
|
||||||
|
_utsApp = UtsAppForm.CreateSingleton()
|
||||||
|
Try
|
||||||
|
If _utsApp.IsInitialized = False Then
|
||||||
|
_utsApp.AddStatisticsObserver(Me)
|
||||||
|
_utsApp.Initialize(ProcessStation.StationTypeEnum.AOI)
|
||||||
|
_utsApp.LoadStation(My.Settings.Project, My.Settings.ProcessStation)
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox($"Initialize UTSForm Error:{ex.Message}")
|
||||||
|
Close()
|
||||||
|
Return
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Try
|
||||||
|
_ftp = New FtpService(UtsRegistry.FtpHost, CInt(_utsApp.License.FtpPort), _utsApp.License.FtpUser, _utsApp.License.FtpPwd)
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox($"Initialize FtpService Error:{ex.Message}")
|
||||||
|
Close()
|
||||||
|
Return
|
||||||
|
End Try
|
||||||
|
|
||||||
|
'初始化产线信息
|
||||||
|
CboProductionLines.Items.Clear()
|
||||||
|
CboProductionLines.Items.AddRange(_utsApp.ProductionLines.GetLineNames())
|
||||||
|
CboProductionLines.SelectedIndex = CboProductionLines.Items.IndexOf(My.Settings.ProductionLine)
|
||||||
|
|
||||||
|
_doubleCarera = My.Settings.DoubleCamera
|
||||||
|
If _doubleCarera Then
|
||||||
|
RdBtnDouble.Checked = True
|
||||||
|
Else
|
||||||
|
RdBtnSingle.Checked = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
TsCboCameraFrame.Items.Clear()
|
||||||
|
For Each siz As Size In _cameraFrame
|
||||||
|
TsCboCameraFrame.Items.Add($"{siz.Width}*{siz.Height}")
|
||||||
|
Next
|
||||||
|
TsCboCameraFrame.SelectedIndex = My.Settings.CameraFrameIndex
|
||||||
|
|
||||||
|
RtxBarcodeSn.Clear()
|
||||||
|
|
||||||
|
InitImageControl()
|
||||||
|
|
||||||
|
Text = $"{Application.ProductName} {Application.ProductVersion}"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub InitImageControl()
|
||||||
|
_imgControl(0) = PicCamera1
|
||||||
|
_imgControl(1) = PicCamera2
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub FrmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||||
|
SaveLogFile()
|
||||||
|
|
||||||
|
My.Settings.CameraFrameIndex = _selectFrameSizeIndex
|
||||||
|
My.Settings.DoubleCamera = _doubleCarera
|
||||||
|
|
||||||
|
_utsApp.Dispose()
|
||||||
|
|
||||||
|
CloseForm()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub CloseForm()
|
||||||
|
Text = $"Goodbye World."
|
||||||
|
|
||||||
|
For i As Double = 1 To 0 Step -0.05
|
||||||
|
Thread.Sleep(50)
|
||||||
|
Opacity = i
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub RtxDUT_SN_KeyDown(sender As Object, e As KeyEventArgs) Handles RtxBarcodeSn.KeyDown
|
||||||
|
If e.KeyCode = Keys.Enter Then
|
||||||
|
If String.IsNullOrWhiteSpace(RtxBarcodeSn.Text) = False Then
|
||||||
|
My.Computer.Keyboard.SendKeys("|")
|
||||||
|
|
||||||
|
e.SuppressKeyPress = True
|
||||||
|
e.Handled = True
|
||||||
|
End If
|
||||||
|
ElseIf e.KeyCode = Keys.Space Then
|
||||||
|
CommitTestResult()
|
||||||
|
|
||||||
|
e.SuppressKeyPress = True
|
||||||
|
e.Handled = True
|
||||||
|
|
||||||
|
Console.WriteLine($"{ e.SuppressKeyPress} { e.Handled}")
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Function UploadFileToFtp(localPath As String, remotePath As String) As Boolean
|
||||||
|
Try
|
||||||
|
_ftp.FtpUpload(remotePath, localPath)
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox($"上传图像[{localPath}]失败：{ex.Message}")
|
||||||
|
|
||||||
|
'todo:添加本地缓存上传失败图像，定期上传
|
||||||
|
|
||||||
|
'记录本地位置，上传文件位置，写入FTP的缓存数据库
|
||||||
|
|
||||||
|
'服务新增ftp同步任务，区分上传下载，
|
||||||
|
'
|
||||||
|
'
|
||||||
|
'记录ftp命令？
|
||||||
|
|
||||||
|
'只记录上传下载命令？
|
||||||
|
|
||||||
|
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
Return True
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function GetImageName(barCode As String, index As Integer) As String
|
||||||
|
Dim fileName As New StringBuilder
|
||||||
|
fileName.Append(_utsApp.ProcessStation.ParentProject.Name)
|
||||||
|
fileName.Append("_")
|
||||||
|
fileName.Append(_utsApp.ProcessStation.Name)
|
||||||
|
fileName.Append("_")
|
||||||
|
fileName.Append(barCode)
|
||||||
|
fileName.Append("_")
|
||||||
|
fileName.Append($"{Now:yyyyMMdd_HHmmss}")
|
||||||
|
fileName.Append("_")
|
||||||
|
fileName.Append($"{index}")
|
||||||
|
fileName.Append(".jpg")
|
||||||
|
|
||||||
|
Return fileName.ToString()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function SaveImageToLocal(localPath As String, index As Integer) As Boolean
|
||||||
|
If _imgControl(index).Image Is Nothing Then
|
||||||
|
MsgBox($"未检测到Camera[{index}] Image,录入失败")
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim img As Image = CType(_imgControl(index).Image.Clone(), Image)
|
||||||
|
Try
|
||||||
|
img.Save(localPath, Imaging.ImageFormat.Jpeg)
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox($"Save Camera[{index}] Image Error:{ex.Message}")
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return True
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub BtnCommit_Click(sender As Object, e As EventArgs) Handles BtnCommit.Click
|
||||||
|
CommitTestResult()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CommitTestResult()
|
||||||
|
If _utsApp.ProcessStation Is Nothing Then
|
||||||
|
MsgBox($"请选择项目与测试站后再尝试录入！")
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
|
||||||
|
If String.IsNullOrWhiteSpace(CboProductionLines.Text) Then
|
||||||
|
MsgBox($"请选择生产线后再尝试录入！")
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim barcodeString As String = RtxBarcodeSn.Text.ToUpper
|
||||||
|
If String.IsNullOrWhiteSpace(barcodeString) Then
|
||||||
|
MsgBox($"请输入合法的序列号！")
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim barcodeList As String() = barcodeString.Split(New Char() {_snSqliteChar}, StringSplitOptions.RemoveEmptyEntries)
|
||||||
|
If barcodeList.Count() = 0 Then Return
|
||||||
|
|
||||||
|
For Each barcode As String In barcodeList
|
||||||
|
|
||||||
|
If barcode.Length <> 8 Then
|
||||||
|
MsgBox($"录入失败,条码[{barcode}]长度非法,请检查后重新录入！")
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
|
||||||
|
Static imgDirPath As String = $"{Application.StartupPath}\Img"
|
||||||
|
If IO.Directory.Exists(imgDirPath) = False Then IO.Directory.CreateDirectory(imgDirPath)
|
||||||
|
|
||||||
|
Dim imgFileName As String = GetImageName(barcode, 0)
|
||||||
|
Dim imgLocalPath As String = $"{imgDirPath}\{imgFileName}"
|
||||||
|
Dim imgRemotePath As String = $"/uts_Manager/AUTS/{_utsApp.License.VendorName}/AOI/{_utsApp.ProcessStation.ParentProject.Index}/{imgFileName}"
|
||||||
|
If SaveImageToLocal(imgLocalPath, 0) = False Then Return
|
||||||
|
If UploadFileToFtp(imgLocalPath, imgRemotePath) = False Then Return
|
||||||
|
|
||||||
|
Dim imgFileName2 As String = GetImageName(barcode, 1)
|
||||||
|
|
||||||
|
Dim imgRemotePath2 As String = ""
|
||||||
|
|
||||||
|
If _doubleCarera Then
|
||||||
|
Dim imgLocalPath2 As String = $"{imgDirPath}\{imgFileName2}"
|
||||||
|
If SaveImageToLocal(imgLocalPath2, 1) = False Then Return
|
||||||
|
|
||||||
|
imgRemotePath2 = $"/uts_Manager/AUTS/{_utsApp.License.VendorName}/AOI/{_utsApp.ProcessStation.ParentProject.Index}/{imgFileName2}"
|
||||||
|
If UploadFileToFtp(imgLocalPath2, imgRemotePath2) = False Then Return
|
||||||
|
End If
|
||||||
|
|
||||||
|
Try
|
||||||
|
FillTestResult(barcode, imgRemotePath, imgRemotePath2)
|
||||||
|
_utsApp.CommitTestResult()
|
||||||
|
|
||||||
|
_checkStatistics.AddPassCount()
|
||||||
|
AppendRecord(True, _utsApp.ProcessStation.ParentProject.Index, _utsApp.ProcessStation.StationID, _utsApp.TestResult.OrderID, _utsApp.TestResult.DUT_SN, "Pass")
|
||||||
|
|
||||||
|
LblResult.Text = $"{_utsApp.ProcessStation.ParentProject.Index:D2}-{_utsApp.ProcessStation.StationID:D2}-{_utsApp.TestResult.OrderID:D6}-{_utsApp.TestResult.DUT_SN} 录入成功"
|
||||||
|
LblResult.ForeColor = Color.Green
|
||||||
|
Catch ex As Exception
|
||||||
|
_checkStatistics.AddInvalidCount()
|
||||||
|
MsgBox($"测试结果录入失败：{ex.Message}")
|
||||||
|
LblResult.Text = $"{_utsApp.TestResult.DUT_SN} 录入失败"
|
||||||
|
LblResult.ForeColor = Color.Red
|
||||||
|
End Try
|
||||||
|
Next
|
||||||
|
|
||||||
|
TestResultCommitted()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 填充测试记录内容，每个应用程序这个部分有所差异
|
||||||
|
''' </summary>
|
||||||
|
Public Sub FillTestResult(barcodeSn As String, imgPath As String, imgPath2 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 = barcodeSn
|
||||||
|
|
||||||
|
_utsApp.TestResult.TestResult = TestResult.TestResultEnum.Pass
|
||||||
|
|
||||||
|
_utsApp.TestResult.AddCustomRecord("ImagePath", imgPath)
|
||||||
|
|
||||||
|
_utsApp.TestResult.AddCustomRecord("ImagePath2", imgPath2)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub TestResultCommitted()
|
||||||
|
|
||||||
|
RtxBarcodeSn.Focus()
|
||||||
|
RtxBarcodeSn.SelectAll()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub TsChangeStation_Click(sender As Object, e As EventArgs) Handles TsChangeStation.Click
|
||||||
|
Try
|
||||||
|
Dim filed As New Dictionary(Of String, String) From {{"ImagePath", "varchar(128)"}, {"ImagePath2", "varchar(128)"}}
|
||||||
|
|
||||||
|
_utsApp.ChangeStation(filed)
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox($"ChangeStation Error:{ex.Message}")
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 添加提示信息
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="checkResult">校验结果</param>
|
||||||
|
''' <param name="log">提示信息</param>
|
||||||
|
Private Sub AppendRecord(checkResult As Boolean, pid As Integer, sid As Integer, order As Integer, barcode As String, log As String)
|
||||||
|
Static recordMaxCount As Integer = 256
|
||||||
|
Static recordCount As Integer = 1
|
||||||
|
|
||||||
|
With RtxRecord
|
||||||
|
.Enabled = False
|
||||||
|
|
||||||
|
If recordCount >= recordMaxCount Then
|
||||||
|
SaveLogFile()
|
||||||
|
|
||||||
|
.Clear()
|
||||||
|
recordCount = 1
|
||||||
|
End If
|
||||||
|
|
||||||
|
.SelectionStart = .TextLength
|
||||||
|
.SelectionColor = Color.Black
|
||||||
|
.AppendText($"{recordCount:D4} ")
|
||||||
|
|
||||||
|
.SelectionStart = .TextLength
|
||||||
|
.SelectionColor = Color.DarkBlue
|
||||||
|
.AppendText($"{Now:MMdd_HH:mm:ss} ")
|
||||||
|
|
||||||
|
.SelectionStart = .TextLength
|
||||||
|
.SelectionColor = Color.Black
|
||||||
|
.AppendText($"{pid:D2}-")
|
||||||
|
|
||||||
|
.SelectionStart = .TextLength
|
||||||
|
.SelectionColor = Color.Black
|
||||||
|
.AppendText($"{sid:D2} ")
|
||||||
|
|
||||||
|
.SelectionStart = .TextLength
|
||||||
|
.SelectionColor = Color.DarkSeaGreen
|
||||||
|
.AppendText($"{order:D6} ")
|
||||||
|
|
||||||
|
.SelectionStart = .TextLength
|
||||||
|
.SelectionColor = Color.DarkOrange
|
||||||
|
.AppendText($"{barcode,8} ")
|
||||||
|
|
||||||
|
.SelectionStart = .TextLength
|
||||||
|
.SelectionColor = CType(IIf(checkResult, Color.Green, Color.Red), Color)
|
||||||
|
.AppendText($"{log}{vbNewLine}")
|
||||||
|
|
||||||
|
recordCount += 1
|
||||||
|
|
||||||
|
.ScrollToCaret()
|
||||||
|
.Enabled = True
|
||||||
|
End With
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub SaveLogFile()
|
||||||
|
Dim dirPath As String = $"{Application.StartupPath}\Log"
|
||||||
|
Dim filePath As String = $"{dirPath}\Log_{Now:yyyyMMdd_HHmmss}.txt"
|
||||||
|
|
||||||
|
If IO.Directory.Exists(dirPath) = False Then IO.Directory.CreateDirectory(dirPath)
|
||||||
|
RtxRecord.SaveFile(filePath, RichTextBoxStreamType.TextTextOleObjs)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CboProductionLines_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboProductionLines.SelectedIndexChanged
|
||||||
|
ProductionLineChanged()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#Region "相机"
|
||||||
|
Private ReadOnly _imgControl(1) As PictureBox
|
||||||
|
|
||||||
|
Private ReadOnly _camera(1) As VideoCapture
|
||||||
|
|
||||||
|
Private ReadOnly _frameChanged(1) As Boolean
|
||||||
|
|
||||||
|
Private _selectFrameSizeIndex As Integer
|
||||||
|
|
||||||
|
Private ReadOnly _cameraFrame() As Size = {New Size(640, 480), New Size(1280, 960), New Size(2048, 1536), New Size(2560, 1920), New Size(3200, 2400), New Size(3840, 2880)}
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub UpdateText(w As Integer, h As Integer, fps As Double)
|
||||||
|
If InvokeRequired Then
|
||||||
|
Invoke(New Action(Sub()
|
||||||
|
Text = $"{Application.ProductName} {Application.ProductVersion} Camera : {w} * {h} : {CInt(fps)} Fps"
|
||||||
|
End Sub))
|
||||||
|
Else
|
||||||
|
Text = $"{Application.ProductName} {Application.ProductVersion} Camera : {w} * {h} : {CInt(fps)} Fps"
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 打开摄像头显示图像
|
||||||
|
''' </summary>
|
||||||
|
Private Sub OpenVideoThread(state As Object)
|
||||||
|
Dim index As Integer = CInt(state)
|
||||||
|
While _useCamera
|
||||||
|
|
||||||
|
Thread.Sleep(10)
|
||||||
|
|
||||||
|
If _doubleCarera = False AndAlso index = 1 Then
|
||||||
|
|
||||||
|
If _camera(index) IsNot Nothing Then
|
||||||
|
_camera(index).Release()
|
||||||
|
_camera(index).Dispose()
|
||||||
|
_camera(index) = Nothing
|
||||||
|
_imgControl(index).Image = Nothing
|
||||||
|
End If
|
||||||
|
|
||||||
|
Continue While
|
||||||
|
End If
|
||||||
|
|
||||||
|
If _camera(index) Is Nothing Then
|
||||||
|
_camera(index) = New VideoCapture(index) '打开默认的相机使用默认为0
|
||||||
|
|
||||||
|
'摄像头为4:3
|
||||||
|
If _selectFrameSizeIndex <> -1 Then
|
||||||
|
_camera(index).FrameWidth = _cameraFrame(_selectFrameSizeIndex).Width
|
||||||
|
_camera(index).FrameHeight = _cameraFrame(_selectFrameSizeIndex).Height
|
||||||
|
Else
|
||||||
|
_camera(index).FrameWidth = 2560
|
||||||
|
_camera(index).FrameHeight = 1920
|
||||||
|
End If
|
||||||
|
|
||||||
|
_camera(index).Fps = 30 '采集率FTP
|
||||||
|
_camera(index).Saturation = 60 '图像饱和度
|
||||||
|
_camera(index).Gain = 0 '图像增益
|
||||||
|
_camera(index).Contrast = 0 '对比度
|
||||||
|
_camera(index).Hue = 20 '色调
|
||||||
|
_camera(index).Brightness = 0
|
||||||
|
_camera(index).Exposure = 0 '曝光度
|
||||||
|
|
||||||
|
If _camera(index).IsOpened() = False Then
|
||||||
|
Thread.Sleep(1000)
|
||||||
|
Continue While
|
||||||
|
End If
|
||||||
|
|
||||||
|
UpdateText(_camera(index).FrameWidth, _camera(index).FrameHeight, _camera(index).Fps)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If _frameChanged(index) Then
|
||||||
|
Console.WriteLine($"分辨率切换!")
|
||||||
|
_camera(index).Release()
|
||||||
|
_camera(index).Dispose()
|
||||||
|
_camera(index) = Nothing
|
||||||
|
|
||||||
|
_frameChanged(index) = False
|
||||||
|
|
||||||
|
Continue While
|
||||||
|
End If
|
||||||
|
|
||||||
|
Using src As New Mat
|
||||||
|
If _camera(index).Read(src) = False Then
|
||||||
|
Console.WriteLine($"图像为空!")
|
||||||
|
_camera(index).Release()
|
||||||
|
_camera(index).Dispose()
|
||||||
|
_camera(index) = Nothing
|
||||||
|
|
||||||
|
Continue While
|
||||||
|
End If
|
||||||
|
|
||||||
|
Cv2.Flip(src, src, FlipMode.XY) '反转图像
|
||||||
|
_imgControl(index).Image = src.ToBitmap
|
||||||
|
End Using
|
||||||
|
|
||||||
|
GC.Collect()
|
||||||
|
End While
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub FrmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||||
|
_useCamera = True
|
||||||
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf OpenVideoThread), 0)
|
||||||
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf OpenVideoThread), 1)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub TsCboCameraFrame_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TsCboCameraFrame.SelectedIndexChanged
|
||||||
|
_frameChanged(0) = True
|
||||||
|
_frameChanged(1) = True
|
||||||
|
_selectFrameSizeIndex = TsCboCameraFrame.SelectedIndex
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub RdBtnDouble_CheckedChanged(sender As Object, e As EventArgs) Handles RdBtnDouble.CheckedChanged
|
||||||
|
_doubleCarera = RdBtnDouble.Checked
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub RtxRecord_TextChanged(sender As Object, e As EventArgs) Handles RtxRecord.TextChanged
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
End Class
|
||||||
51
AUTS_AOI/FtpService.vb
Normal file
51
AUTS_AOI/FtpService.vb
Normal file
@@ -0,0 +1,51 @@
|
|||||||
|
Imports FluentFTP
|
||||||
|
|
||||||
|
Public Class FtpService
|
||||||
|
Private _ftpUser As String
|
||||||
|
Private _ftpPwd As String
|
||||||
|
Private _ftpPort As Integer
|
||||||
|
Private _ftpHost As String
|
||||||
|
|
||||||
|
Sub New(host As String, port As Integer, user As String, pwd As String)
|
||||||
|
_ftpHost = host
|
||||||
|
_ftpPort = port
|
||||||
|
_ftpUser = user
|
||||||
|
_ftpPwd = pwd
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub OnValidateCertificate(control As FtpClient, e As FtpSslValidationEventArgs)
|
||||||
|
e.Accept = True
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 文件上传,覆盖式上传,文件夹不存在则回创建文件夹
|
||||||
|
''' </summary>
|
||||||
|
Public Sub UploadFile(remotePath As String, loadPath As String)
|
||||||
|
Using ftpClient As New FtpClient(_ftpHost, _ftpPort, _ftpUser, _ftpPwd)
|
||||||
|
AddHandler ftpClient.ValidateCertificate, AddressOf OnValidateCertificate
|
||||||
|
ftpClient.EncryptionMode = FtpEncryptionMode.Auto
|
||||||
|
|
||||||
|
ftpClient.Connect()
|
||||||
|
ftpClient.UploadFile(loadPath, remotePath, FtpRemoteExists.Overwrite, True)
|
||||||
|
ftpClient.Disconnect()
|
||||||
|
End Using
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 文件下载
|
||||||
|
''' 从FTP下载压缩包，到本地指定路径
|
||||||
|
''' </summary>
|
||||||
|
Public Sub DownloadFile(remotePath As String, loadPath As String)
|
||||||
|
Using ftpClient As New FtpClient(_ftpHost, _ftpPort, _ftpUser, _ftpPwd)
|
||||||
|
AddHandler ftpClient.ValidateCertificate, AddressOf OnValidateCertificate
|
||||||
|
ftpClient.EncryptionMode = FtpEncryptionMode.Auto
|
||||||
|
|
||||||
|
ftpClient.Connect()
|
||||||
|
ftpClient.DownloadFile(loadPath, remotePath)
|
||||||
|
ftpClient.Disconnect()
|
||||||
|
End Using
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
3
AUTS_AOI/IFailTip.vb
Normal file
3
AUTS_AOI/IFailTip.vb
Normal file
@@ -0,0 +1,3 @@
|
|||||||
|
Public Interface IFailTip
|
||||||
|
Sub UpdateFailTips(failTips() As String)
|
||||||
|
End Interface
|
||||||
15
AUTS_AOI/IStatisticsObserver.vb
Normal file
15
AUTS_AOI/IStatisticsObserver.vb
Normal file
@@ -0,0 +1,15 @@
|
|||||||
|
Public Interface IStatisticsObserver
|
||||||
|
Sub UpdateFailCount(failCount As Integer)
|
||||||
|
|
||||||
|
Sub UpdatePassCount(passCount As Integer)
|
||||||
|
|
||||||
|
|
||||||
|
Sub UpdateValidCount(validCount As Integer)
|
||||||
|
|
||||||
|
Sub UpdateInvalidCount(invalidCount As Integer)
|
||||||
|
|
||||||
|
Sub UpdateSumCount(sumCount As Integer)
|
||||||
|
|
||||||
|
|
||||||
|
Sub UpdateYield(yield As Double)
|
||||||
|
End Interface
|
||||||
38
AUTS_AOI/My Project/Application.Designer.vb
generated
Normal file
38
AUTS_AOI/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_AOI.FrmMain
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
10
AUTS_AOI/My Project/Application.myapp
Normal file
10
AUTS_AOI/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_AOI/My Project/AssemblyInfo.vb
Normal file
35
AUTS_AOI/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
' 有关程序集的一般信息由以下
|
||||||
|
' 控制。更改这些特性值可修改
|
||||||
|
' 与程序集关联的信息。
|
||||||
|
|
||||||
|
'查看程序集特性的值
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("AUTS_AOI")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("")>
|
||||||
|
<Assembly: AssemblyProduct("AUTS_AOI")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © 2021")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'如果此项目向 COM 公开，则下列 GUID 用于 typelib 的 ID
|
||||||
|
<Assembly: Guid("17469f21-f87e-49db-a07a-eab96b4e1476")>
|
||||||
|
|
||||||
|
' 程序集的版本信息由下列四个值组成:
|
||||||
|
'
|
||||||
|
' 主版本
|
||||||
|
' 次版本
|
||||||
|
' 生成号
|
||||||
|
' 修订号
|
||||||
|
'
|
||||||
|
'可以指定所有这些值，也可以使用“生成号”和“修订号”的默认值
|
||||||
|
'通过使用 "*"，如下所示:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.3.1.0")>
|
||||||
63
AUTS_AOI/My Project/Resources.Designer.vb
generated
Normal file
63
AUTS_AOI/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_AOI.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_AOI/My Project/Resources.resx
Normal file
117
AUTS_AOI/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>
|
||||||
145
AUTS_AOI/My Project/Settings.Designer.vb
generated
Normal file
145
AUTS_AOI/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,145 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <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 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
|
||||||
|
|
||||||
|
<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("True")> _
|
||||||
|
Public Property UseCamera() As Boolean
|
||||||
|
Get
|
||||||
|
Return CType(Me("UseCamera"),Boolean)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("UseCamera") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("4")> _
|
||||||
|
Public Property CameraFrameIndex() As Integer
|
||||||
|
Get
|
||||||
|
Return CType(Me("CameraFrameIndex"),Integer)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("CameraFrameIndex") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
|
||||||
|
Public Property DoubleCamera() As Boolean
|
||||||
|
Get
|
||||||
|
Return CType(Me("DoubleCamera"),Boolean)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("DoubleCamera") = 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_AOI.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.AUTS_AOI.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
24
AUTS_AOI/My Project/Settings.settings
Normal file
24
AUTS_AOI/My Project/Settings.settings
Normal file
@@ -0,0 +1,24 @@
|
|||||||
|
<?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="Project" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)" />
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="ProcessStation" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)" />
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="ProductionLine" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)" />
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="UseCamera" Type="System.Boolean" Scope="User">
|
||||||
|
<Value Profile="(Default)">True</Value>
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="CameraFrameIndex" Type="System.Int32" Scope="User">
|
||||||
|
<Value Profile="(Default)">4</Value>
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="DoubleCamera" Type="System.Boolean" Scope="User">
|
||||||
|
<Value Profile="(Default)">True</Value>
|
||||||
|
</Setting>
|
||||||
|
</Settings>
|
||||||
|
</SettingsFile>
|
||||||
161
AUTS_AOI/Statistics.vb
Normal file
161
AUTS_AOI/Statistics.vb
Normal file
@@ -0,0 +1,161 @@
|
|||||||
|
''' <summary>
|
||||||
|
''' 生产统计类（当前类线程仅限同步中使用）
|
||||||
|
''' </summary>
|
||||||
|
Public Class Statistics
|
||||||
|
''' <summary>
|
||||||
|
''' 校验总数,包含有效校验与无效检验
|
||||||
|
''' </summary>
|
||||||
|
Private _checkCount As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 检验有效总数中无效总数
|
||||||
|
''' </summary>
|
||||||
|
Private _invalidCount As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 检验总数中有效总数
|
||||||
|
''' </summary>
|
||||||
|
Private _validCount As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 检验有效总数中失败总数
|
||||||
|
''' </summary>
|
||||||
|
Private _failCount As Integer
|
||||||
|
''' <summary>
|
||||||
|
''' 检验有效总数中通过总数
|
||||||
|
''' </summary>
|
||||||
|
Private _passCount As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 产品运行时良品率,通过总数除以有效总数
|
||||||
|
''' </summary>
|
||||||
|
Private _yield As Double
|
||||||
|
|
||||||
|
Private ReadOnly _observerList As List(Of IStatisticsObserver)
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
_checkCount = 0
|
||||||
|
_failCount = 0
|
||||||
|
_passCount = 0
|
||||||
|
|
||||||
|
_observerList = New List(Of IStatisticsObserver)()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public ReadOnly Property CheckCount() As Integer
|
||||||
|
Get
|
||||||
|
Return _checkCount
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public ReadOnly Property InvalidCount() As Integer
|
||||||
|
Get
|
||||||
|
Return _invalidCount
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public ReadOnly Property FailCount() As Integer
|
||||||
|
Get
|
||||||
|
Return _failCount
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public ReadOnly Property PassCount() As Integer
|
||||||
|
Get
|
||||||
|
Return _passCount
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub AddFailCount()
|
||||||
|
_failCount += 1
|
||||||
|
UpdateFailCount(_failCount)
|
||||||
|
|
||||||
|
_validCount +=1
|
||||||
|
UpdateValidCount(_validCount)
|
||||||
|
|
||||||
|
_checkCount += 1
|
||||||
|
UpdateSumCount(_checkCount)
|
||||||
|
|
||||||
|
|
||||||
|
_yield = (_passCount / _validCount) * 100
|
||||||
|
UpdateYield(_yield)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub AddPassCount()
|
||||||
|
_passCount += 1
|
||||||
|
UpdatePassCount(_passCount)
|
||||||
|
|
||||||
|
_validCount +=1
|
||||||
|
UpdateValidCount(_validCount)
|
||||||
|
|
||||||
|
_checkCount += 1
|
||||||
|
UpdateSumCount(_checkCount)
|
||||||
|
|
||||||
|
_yield = (_passCount / _validCount) * 100
|
||||||
|
UpdateYield(_yield)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub AddInvalidCount()
|
||||||
|
_invalidCount += 1
|
||||||
|
UpdateInvalidCount(_invalidCount)
|
||||||
|
|
||||||
|
_checkCount += 1
|
||||||
|
UpdateSumCount(_checkCount)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub AddStatisticsObserver(observer As IStatisticsObserver)
|
||||||
|
_observerList.Add(observer)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RemoveStatisticsObserver(observer As IStatisticsObserver)
|
||||||
|
_observerList.Remove(observer)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub ClearStatisticsObserver()
|
||||||
|
_observerList.Clear()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub UpdateFailCount(count As Integer)
|
||||||
|
For Each observer As IStatisticsObserver In _observerList
|
||||||
|
observer.UpdateFailCount(count)
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub UpdatePassCount(count As Integer)
|
||||||
|
For Each observer As IStatisticsObserver In _observerList
|
||||||
|
observer.UpdatePassCount(count)
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub UpdateValidCount(count As Integer)
|
||||||
|
For Each observer As IStatisticsObserver In _observerList
|
||||||
|
observer.UpdateValidCount(count)
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub UpdateInvalidCount(count As Integer)
|
||||||
|
For Each observer As IStatisticsObserver In _observerList
|
||||||
|
observer.UpdateInvalidCount(count)
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub UpdateSumCount(count As Integer)
|
||||||
|
For Each observer As IStatisticsObserver In _observerList
|
||||||
|
observer.UpdateSumCount(count)
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub UpdateYield(yield As Double)
|
||||||
|
For Each observer As IStatisticsObserver In _observerList
|
||||||
|
observer.UpdateYield(yield)
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
BIN
AUTS_AOI/iconfinder_Instagram_571111.ico
Normal file
BIN
AUTS_AOI/iconfinder_Instagram_571111.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 107 KiB |
12
AUTS_AOI/packages.config
Normal file
12
AUTS_AOI/packages.config
Normal file
@@ -0,0 +1,12 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<packages>
|
||||||
|
<package id="OpenCvSharp4" version="4.6.0.20220608" targetFramework="net48" />
|
||||||
|
<package id="OpenCvSharp4.Extensions" version="4.6.0.20220608" targetFramework="net48" />
|
||||||
|
<package id="OpenCvSharp4.runtime.win" version="4.6.0.20220608" targetFramework="net48" />
|
||||||
|
<package id="System.Buffers" version="4.6.0" targetFramework="net48" />
|
||||||
|
<package id="System.Drawing.Common" version="6.0.0" targetFramework="net48" />
|
||||||
|
<package id="System.Memory" version="4.5.5" targetFramework="net48" />
|
||||||
|
<package id="System.Numerics.Vectors" version="4.5.0" targetFramework="net48" />
|
||||||
|
<package id="System.Runtime.CompilerServices.Unsafe" version="6.0.0" targetFramework="net48" />
|
||||||
|
<package id="System.ValueTuple" version="4.5.0" targetFramework="net48" />
|
||||||
|
</packages>
|
||||||
147
AUTS_Assembly/AUTS_Assembly.vbproj
Normal file
147
AUTS_Assembly/AUTS_Assembly.vbproj
Normal file
@@ -0,0 +1,147 @@
|
|||||||
|
<?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>{8DAB8B67-D59B-4413-9024-8FA8EBBE821D}</ProjectGuid>
|
||||||
|
<OutputType>WinExe</OutputType>
|
||||||
|
<StartupObject>AUTS_Assembly.My.MyApplication</StartupObject>
|
||||||
|
<RootNamespace>AUTS_Assembly</RootNamespace>
|
||||||
|
<AssemblyName>AUTS_Assembly</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_Assembly.xml</DocumentationFile>
|
||||||
|
<NoWarn>
|
||||||
|
</NoWarn>
|
||||||
|
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
|
||||||
|
</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_Assembly.xml</DocumentationFile>
|
||||||
|
<NoWarn>
|
||||||
|
</NoWarn>
|
||||||
|
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>On</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>Off</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<ApplicationIcon>iconfinder_60_939814.ico</ApplicationIcon>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="FluentFTP">
|
||||||
|
<HintPath>..\packages\FluentFTP.33.0.3\lib\net45\FluentFTP.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Data.SQLite">
|
||||||
|
<HintPath>..\UTS_Core\bin\Debug\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="ApplicationEvents.vb" />
|
||||||
|
<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_939814.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>
|
||||||
50
AUTS_Assembly/App.config
Normal file
50
AUTS_Assembly/App.config
Normal file
@@ -0,0 +1,50 @@
|
|||||||
|
<?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_Assembly.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_Assembly.My.MySettings>
|
||||||
|
<setting name="Project" serializeAs="String">
|
||||||
|
<value />
|
||||||
|
</setting>
|
||||||
|
<setting name="ProcessStation" serializeAs="String">
|
||||||
|
<value />
|
||||||
|
</setting>
|
||||||
|
<setting name="ProductionLine" serializeAs="String">
|
||||||
|
<value />
|
||||||
|
</setting>
|
||||||
|
<setting name="SingleSn" serializeAs="String">
|
||||||
|
<value>True</value>
|
||||||
|
</setting>
|
||||||
|
<setting name="BarCount" serializeAs="String">
|
||||||
|
<value>1</value>
|
||||||
|
</setting>
|
||||||
|
</AUTS_Assembly.My.MySettings>
|
||||||
|
</userSettings>
|
||||||
|
</configuration>
|
||||||
10
AUTS_Assembly/ApplicationEvents.vb
Normal file
10
AUTS_Assembly/ApplicationEvents.vb
Normal file
@@ -0,0 +1,10 @@
|
|||||||
|
Namespace My
|
||||||
|
' 以下事件可用于 MyApplication:
|
||||||
|
' Startup:应用程序启动时在创建启动窗体之前引发。
|
||||||
|
' Shutdown:在关闭所有应用程序窗体后引发。如果应用程序非正常终止，则不会引发此事件。
|
||||||
|
' UnhandledException:在应用程序遇到未经处理的异常时引发。
|
||||||
|
' StartupNextInstance:在启动单实例应用程序且应用程序已处于活动状态时引发。
|
||||||
|
' NetworkAvailabilityChanged:在连接或断开网络连接时引发。
|
||||||
|
Partial Friend Class MyApplication
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
416
AUTS_Assembly/FrmMain.Designer.vb
generated
Normal file
416
AUTS_Assembly/FrmMain.Designer.vb
generated
Normal file
@@ -0,0 +1,416 @@
|
|||||||
|
<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.BtnOpenProject = New System.Windows.Forms.Button()
|
||||||
|
Me.BtnStartProgramming = New System.Windows.Forms.Button()
|
||||||
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.TxtThirdRecord = New System.Windows.Forms.TextBox()
|
||||||
|
Me.TxtFifthRecord = New System.Windows.Forms.TextBox()
|
||||||
|
Me.TxtFourthRecord = New System.Windows.Forms.TextBox()
|
||||||
|
Me.RadFour = New System.Windows.Forms.RadioButton()
|
||||||
|
Me.RadThree = New System.Windows.Forms.RadioButton()
|
||||||
|
Me.RadTwo = New System.Windows.Forms.RadioButton()
|
||||||
|
Me.RadSingle = New System.Windows.Forms.RadioButton()
|
||||||
|
Me.TxtSecondRecord = New System.Windows.Forms.TextBox()
|
||||||
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.TxtFirstRecord = New System.Windows.Forms.TextBox()
|
||||||
|
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.RtxLog = New System.Windows.Forms.RichTextBox()
|
||||||
|
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.CboProductionLines = New System.Windows.Forms.ComboBox()
|
||||||
|
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.TssLblPassCount = New System.Windows.Forms.ToolStripStatusLabel()
|
||||||
|
Me.TssLblFailCount = New System.Windows.Forms.ToolStripStatusLabel()
|
||||||
|
Me.TssLblYield = New System.Windows.Forms.ToolStripStatusLabel()
|
||||||
|
Me.GroupBox2.SuspendLayout()
|
||||||
|
Me.GroupBox1.SuspendLayout()
|
||||||
|
Me.GroupBox3.SuspendLayout()
|
||||||
|
Me.GroupBox4.SuspendLayout()
|
||||||
|
Me.StatusStrip1.SuspendLayout()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'lab_Result
|
||||||
|
'
|
||||||
|
Me.lab_Result.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
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", 27.75!, 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(447, 84)
|
||||||
|
Me.lab_Result.Name = "lab_Result"
|
||||||
|
Me.lab_Result.Size = New System.Drawing.Size(433, 112)
|
||||||
|
Me.lab_Result.TabIndex = 13
|
||||||
|
Me.lab_Result.Text = "PASS"
|
||||||
|
Me.lab_Result.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
|
'
|
||||||
|
'lab_ModelName
|
||||||
|
'
|
||||||
|
Me.lab_ModelName.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
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(447, 9)
|
||||||
|
Me.lab_ModelName.Name = "lab_ModelName"
|
||||||
|
Me.lab_ModelName.Size = New System.Drawing.Size(433, 67)
|
||||||
|
Me.lab_ModelName.TabIndex = 12
|
||||||
|
Me.lab_ModelName.Text = "SW-570"
|
||||||
|
Me.lab_ModelName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
|
'
|
||||||
|
'BtnOpenProject
|
||||||
|
'
|
||||||
|
Me.BtnOpenProject.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.BtnOpenProject.Font = New System.Drawing.Font("微软雅黑", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.BtnOpenProject.Location = New System.Drawing.Point(447, 204)
|
||||||
|
Me.BtnOpenProject.Name = "BtnOpenProject"
|
||||||
|
Me.BtnOpenProject.Size = New System.Drawing.Size(169, 104)
|
||||||
|
Me.BtnOpenProject.TabIndex = 11
|
||||||
|
Me.BtnOpenProject.Text = "选择项目"
|
||||||
|
Me.BtnOpenProject.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'BtnStartProgramming
|
||||||
|
'
|
||||||
|
Me.BtnStartProgramming.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.BtnStartProgramming.Font = New System.Drawing.Font("微软雅黑", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.BtnStartProgramming.ForeColor = System.Drawing.Color.Blue
|
||||||
|
Me.BtnStartProgramming.Location = New System.Drawing.Point(622, 204)
|
||||||
|
Me.BtnStartProgramming.Name = "BtnStartProgramming"
|
||||||
|
Me.BtnStartProgramming.Size = New System.Drawing.Size(258, 104)
|
||||||
|
Me.BtnStartProgramming.TabIndex = 10
|
||||||
|
Me.BtnStartProgramming.Text = "开始录入"
|
||||||
|
Me.BtnStartProgramming.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'GroupBox2
|
||||||
|
'
|
||||||
|
Me.GroupBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.TxtThirdRecord)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.TxtFifthRecord)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.TxtFourthRecord)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.RadFour)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.RadThree)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.RadTwo)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.RadSingle)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.TxtSecondRecord)
|
||||||
|
Me.GroupBox2.Font = New System.Drawing.Font("微软雅黑", 15.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GroupBox2.ForeColor = System.Drawing.Color.Blue
|
||||||
|
Me.GroupBox2.Location = New System.Drawing.Point(3, 143)
|
||||||
|
Me.GroupBox2.Name = "GroupBox2"
|
||||||
|
Me.GroupBox2.Size = New System.Drawing.Size(439, 165)
|
||||||
|
Me.GroupBox2.TabIndex = 15
|
||||||
|
Me.GroupBox2.TabStop = False
|
||||||
|
Me.GroupBox2.Text = "其他序号"
|
||||||
|
'
|
||||||
|
'TxtThirdRecord
|
||||||
|
'
|
||||||
|
Me.TxtThirdRecord.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.TxtThirdRecord.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
||||||
|
Me.TxtThirdRecord.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.TxtThirdRecord.ImeMode = System.Windows.Forms.ImeMode.Disable
|
||||||
|
Me.TxtThirdRecord.Location = New System.Drawing.Point(0, 72)
|
||||||
|
Me.TxtThirdRecord.Multiline = True
|
||||||
|
Me.TxtThirdRecord.Name = "TxtThirdRecord"
|
||||||
|
Me.TxtThirdRecord.Size = New System.Drawing.Size(433, 26)
|
||||||
|
Me.TxtThirdRecord.TabIndex = 11
|
||||||
|
Me.TxtThirdRecord.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||||
|
'
|
||||||
|
'TxtFifthRecord
|
||||||
|
'
|
||||||
|
Me.TxtFifthRecord.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.TxtFifthRecord.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
||||||
|
Me.TxtFifthRecord.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.TxtFifthRecord.ImeMode = System.Windows.Forms.ImeMode.Disable
|
||||||
|
Me.TxtFifthRecord.Location = New System.Drawing.Point(0, 134)
|
||||||
|
Me.TxtFifthRecord.Name = "TxtFifthRecord"
|
||||||
|
Me.TxtFifthRecord.Size = New System.Drawing.Size(433, 29)
|
||||||
|
Me.TxtFifthRecord.TabIndex = 10
|
||||||
|
Me.TxtFifthRecord.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||||
|
'
|
||||||
|
'TxtFourthRecord
|
||||||
|
'
|
||||||
|
Me.TxtFourthRecord.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.TxtFourthRecord.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
||||||
|
Me.TxtFourthRecord.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.TxtFourthRecord.ImeMode = System.Windows.Forms.ImeMode.Disable
|
||||||
|
Me.TxtFourthRecord.Location = New System.Drawing.Point(0, 103)
|
||||||
|
Me.TxtFourthRecord.Multiline = True
|
||||||
|
Me.TxtFourthRecord.Name = "TxtFourthRecord"
|
||||||
|
Me.TxtFourthRecord.Size = New System.Drawing.Size(433, 26)
|
||||||
|
Me.TxtFourthRecord.TabIndex = 9
|
||||||
|
Me.TxtFourthRecord.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||||
|
'
|
||||||
|
'RadFour
|
||||||
|
'
|
||||||
|
Me.RadFour.AutoSize = True
|
||||||
|
Me.RadFour.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.RadFour.Location = New System.Drawing.Point(370, 15)
|
||||||
|
Me.RadFour.Name = "RadFour"
|
||||||
|
Me.RadFour.Size = New System.Drawing.Size(62, 21)
|
||||||
|
Me.RadFour.TabIndex = 8
|
||||||
|
Me.RadFour.TabStop = True
|
||||||
|
Me.RadFour.Tag = "4"
|
||||||
|
Me.RadFour.Text = "四条码"
|
||||||
|
Me.RadFour.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'RadThree
|
||||||
|
'
|
||||||
|
Me.RadThree.AutoSize = True
|
||||||
|
Me.RadThree.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.RadThree.Location = New System.Drawing.Point(281, 15)
|
||||||
|
Me.RadThree.Name = "RadThree"
|
||||||
|
Me.RadThree.Size = New System.Drawing.Size(62, 21)
|
||||||
|
Me.RadThree.TabIndex = 7
|
||||||
|
Me.RadThree.TabStop = True
|
||||||
|
Me.RadThree.Tag = "3"
|
||||||
|
Me.RadThree.Text = "三条码"
|
||||||
|
Me.RadThree.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'RadTwo
|
||||||
|
'
|
||||||
|
Me.RadTwo.AutoSize = True
|
||||||
|
Me.RadTwo.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.RadTwo.Location = New System.Drawing.Point(192, 15)
|
||||||
|
Me.RadTwo.Name = "RadTwo"
|
||||||
|
Me.RadTwo.Size = New System.Drawing.Size(62, 21)
|
||||||
|
Me.RadTwo.TabIndex = 6
|
||||||
|
Me.RadTwo.TabStop = True
|
||||||
|
Me.RadTwo.Tag = "2"
|
||||||
|
Me.RadTwo.Text = "双条码"
|
||||||
|
Me.RadTwo.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'RadSingle
|
||||||
|
'
|
||||||
|
Me.RadSingle.AutoSize = True
|
||||||
|
Me.RadSingle.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.RadSingle.Location = New System.Drawing.Point(103, 15)
|
||||||
|
Me.RadSingle.Name = "RadSingle"
|
||||||
|
Me.RadSingle.Size = New System.Drawing.Size(62, 21)
|
||||||
|
Me.RadSingle.TabIndex = 5
|
||||||
|
Me.RadSingle.TabStop = True
|
||||||
|
Me.RadSingle.Tag = "1"
|
||||||
|
Me.RadSingle.Text = "单条码"
|
||||||
|
Me.RadSingle.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'TxtSecondRecord
|
||||||
|
'
|
||||||
|
Me.TxtSecondRecord.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.TxtSecondRecord.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
||||||
|
Me.TxtSecondRecord.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.TxtSecondRecord.ImeMode = System.Windows.Forms.ImeMode.Disable
|
||||||
|
Me.TxtSecondRecord.Location = New System.Drawing.Point(0, 41)
|
||||||
|
Me.TxtSecondRecord.Name = "TxtSecondRecord"
|
||||||
|
Me.TxtSecondRecord.Size = New System.Drawing.Size(433, 29)
|
||||||
|
Me.TxtSecondRecord.TabIndex = 2
|
||||||
|
Me.TxtSecondRecord.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||||
|
'
|
||||||
|
'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("微软雅黑", 15.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GroupBox1.Location = New System.Drawing.Point(3, 72)
|
||||||
|
Me.GroupBox1.Name = "GroupBox1"
|
||||||
|
Me.GroupBox1.Size = New System.Drawing.Size(439, 65)
|
||||||
|
Me.GroupBox1.TabIndex = 16
|
||||||
|
Me.GroupBox1.TabStop = False
|
||||||
|
Me.GroupBox1.Text = "成品序号"
|
||||||
|
'
|
||||||
|
'TxtFirstRecord
|
||||||
|
'
|
||||||
|
Me.TxtFirstRecord.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
|
||||||
|
Me.TxtFirstRecord.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.TxtFirstRecord.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.TxtFirstRecord.ImeMode = System.Windows.Forms.ImeMode.Disable
|
||||||
|
Me.TxtFirstRecord.Location = New System.Drawing.Point(3, 30)
|
||||||
|
Me.TxtFirstRecord.Name = "TxtFirstRecord"
|
||||||
|
Me.TxtFirstRecord.Size = New System.Drawing.Size(433, 29)
|
||||||
|
Me.TxtFirstRecord.TabIndex = 1
|
||||||
|
Me.TxtFirstRecord.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||||
|
'
|
||||||
|
'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.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GroupBox3.Location = New System.Drawing.Point(0, 314)
|
||||||
|
Me.GroupBox3.Name = "GroupBox3"
|
||||||
|
Me.GroupBox3.Size = New System.Drawing.Size(878, 245)
|
||||||
|
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(872, 220)
|
||||||
|
Me.RtxLog.TabIndex = 0
|
||||||
|
Me.RtxLog.Text = ""
|
||||||
|
'
|
||||||
|
'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("微软雅黑", 15.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GroupBox4.Location = New System.Drawing.Point(3, 2)
|
||||||
|
Me.GroupBox4.Name = "GroupBox4"
|
||||||
|
Me.GroupBox4.Size = New System.Drawing.Size(439, 64)
|
||||||
|
Me.GroupBox4.TabIndex = 18
|
||||||
|
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("微软雅黑", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, 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, 30)
|
||||||
|
Me.CboProductionLines.Name = "CboProductionLines"
|
||||||
|
Me.CboProductionLines.Size = New System.Drawing.Size(433, 34)
|
||||||
|
Me.CboProductionLines.TabIndex = 0
|
||||||
|
Me.CboProductionLines.TabStop = False
|
||||||
|
'
|
||||||
|
'StatusStrip1
|
||||||
|
'
|
||||||
|
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TssLblProductionLine, Me.TssLblStaion, Me.TsLblCheckSum, 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(880, 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"
|
||||||
|
'
|
||||||
|
'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%"
|
||||||
|
'
|
||||||
|
'FrmMain
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 12!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(880, 585)
|
||||||
|
Me.Controls.Add(Me.StatusStrip1)
|
||||||
|
Me.Controls.Add(Me.GroupBox4)
|
||||||
|
Me.Controls.Add(Me.GroupBox3)
|
||||||
|
Me.Controls.Add(Me.GroupBox2)
|
||||||
|
Me.Controls.Add(Me.GroupBox1)
|
||||||
|
Me.Controls.Add(Me.lab_Result)
|
||||||
|
Me.Controls.Add(Me.lab_ModelName)
|
||||||
|
Me.Controls.Add(Me.BtnOpenProject)
|
||||||
|
Me.Controls.Add(Me.BtnStartProgramming)
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
|
||||||
|
Me.Name = "FrmMain"
|
||||||
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||||
|
Me.Text = "Form1"
|
||||||
|
Me.GroupBox2.ResumeLayout(false)
|
||||||
|
Me.GroupBox2.PerformLayout
|
||||||
|
Me.GroupBox1.ResumeLayout(false)
|
||||||
|
Me.GroupBox1.PerformLayout
|
||||||
|
Me.GroupBox3.ResumeLayout(false)
|
||||||
|
Me.GroupBox4.ResumeLayout(false)
|
||||||
|
Me.StatusStrip1.ResumeLayout(false)
|
||||||
|
Me.StatusStrip1.PerformLayout
|
||||||
|
Me.ResumeLayout(false)
|
||||||
|
Me.PerformLayout
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents lab_Result As Label
|
||||||
|
Friend WithEvents lab_ModelName As Label
|
||||||
|
Friend WithEvents BtnOpenProject As Button
|
||||||
|
Friend WithEvents BtnStartProgramming As Button
|
||||||
|
Friend WithEvents GroupBox2 As GroupBox
|
||||||
|
Friend WithEvents TxtSecondRecord As TextBox
|
||||||
|
Friend WithEvents GroupBox1 As GroupBox
|
||||||
|
Friend WithEvents TxtFirstRecord As TextBox
|
||||||
|
Friend WithEvents GroupBox3 As GroupBox
|
||||||
|
Friend WithEvents RtxLog As RichTextBox
|
||||||
|
Friend WithEvents GroupBox4 As GroupBox
|
||||||
|
Friend WithEvents CboProductionLines As ComboBox
|
||||||
|
Friend WithEvents StatusStrip1 As StatusStrip
|
||||||
|
Friend WithEvents TssLblProductionLine As ToolStripStatusLabel
|
||||||
|
Friend WithEvents TssLblStaion As ToolStripStatusLabel
|
||||||
|
Friend WithEvents TsLblCheckSum As ToolStripStatusLabel
|
||||||
|
Friend WithEvents TssLblPassCount As ToolStripStatusLabel
|
||||||
|
Friend WithEvents TssLblFailCount As ToolStripStatusLabel
|
||||||
|
Friend WithEvents TssLblYield As ToolStripStatusLabel
|
||||||
|
Friend WithEvents RadSingle As RadioButton
|
||||||
|
Friend WithEvents RadTwo As RadioButton
|
||||||
|
Friend WithEvents RadThree As RadioButton
|
||||||
|
Friend WithEvents RadFour As RadioButton
|
||||||
|
Friend WithEvents TxtFourthRecord As TextBox
|
||||||
|
Friend WithEvents TxtFifthRecord As TextBox
|
||||||
|
Friend WithEvents TxtThirdRecord As TextBox
|
||||||
|
End Class
|
||||||
6296
AUTS_Assembly/FrmMain.resx
Normal file
6296
AUTS_Assembly/FrmMain.resx
Normal file
File diff suppressed because it is too large
Load Diff
382
AUTS_Assembly/FrmMain.vb
Normal file
382
AUTS_Assembly/FrmMain.vb
Normal file
@@ -0,0 +1,382 @@
|
|||||||
|
Imports System.Text
|
||||||
|
Imports UTS_Core.UTSModule
|
||||||
|
Imports UTS_Core.UTSModule.Station
|
||||||
|
Imports UTS_Core.UTSModule.Test
|
||||||
|
|
||||||
|
Public Class FrmMain
|
||||||
|
Implements IProcessStation
|
||||||
|
Implements IProductionLine
|
||||||
|
|
||||||
|
Private _utsApp As UtsAppForm
|
||||||
|
|
||||||
|
Private _txtList As New List(Of TextBox)
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 条码总数
|
||||||
|
''' </summary>
|
||||||
|
Private _barCodeCount As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 测试总数
|
||||||
|
''' </summary>
|
||||||
|
Private _testCount As Integer = 0
|
||||||
|
''' <summary>
|
||||||
|
''' 测试成功总数
|
||||||
|
''' </summary>
|
||||||
|
Private _testFailCount As Integer = 0
|
||||||
|
''' <summary>
|
||||||
|
''' 测试失败总数
|
||||||
|
''' </summary>
|
||||||
|
Private _testPassCount As Integer = 0
|
||||||
|
|
||||||
|
|
||||||
|
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(ProcessStation.StationTypeEnum.Assem)
|
||||||
|
_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)
|
||||||
|
|
||||||
|
_txtList.Clear()
|
||||||
|
_txtList.Add(TxtFirstRecord)
|
||||||
|
_txtList.Add(TxtSecondRecord)
|
||||||
|
_txtList.Add(TxtThirdRecord)
|
||||||
|
_txtList.Add(TxtFourthRecord)
|
||||||
|
_txtList.Add(TxtFifthRecord)
|
||||||
|
|
||||||
|
RtxLog.Clear()
|
||||||
|
|
||||||
|
_barCodeCount = My.Settings.BarCount
|
||||||
|
If _barCodeCount < 1 Then _barCodeCount = 1
|
||||||
|
If _barCodeCount > 4 Then _barCodeCount = 4
|
||||||
|
Select Case _barCodeCount
|
||||||
|
Case 1
|
||||||
|
RadSingle.Checked = True
|
||||||
|
Case 2
|
||||||
|
RadTwo.Checked = True
|
||||||
|
Case 3
|
||||||
|
RadThree.Checked = True
|
||||||
|
Case 4
|
||||||
|
RadFour.Checked = True
|
||||||
|
End Select
|
||||||
|
|
||||||
|
Text = $"{Application.ProductName} {Application.ProductVersion} User:{_utsApp.Account.UserName}"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CboProductionLines_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboProductionLines.SelectedIndexChanged
|
||||||
|
ProductionLineChanged()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub BtnOpenProject_Click(sender As Object, e As EventArgs) Handles BtnOpenProject.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
|
||||||
|
|
||||||
|
e.SuppressKeyPress = True
|
||||||
|
e.Handled = True
|
||||||
|
|
||||||
|
TxtSecondRecord.Focus()
|
||||||
|
TxtSecondRecord.SelectAll()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Tb_SecondRecord_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtSecondRecord.KeyDown
|
||||||
|
If e.KeyCode <> Keys.Enter Then Return
|
||||||
|
|
||||||
|
e.SuppressKeyPress = True
|
||||||
|
e.Handled = True
|
||||||
|
|
||||||
|
If _barCodeCount > 1 Then
|
||||||
|
TxtThirdRecord.Focus()
|
||||||
|
TxtThirdRecord.SelectAll()
|
||||||
|
Else
|
||||||
|
'此处为单个条码对应的执行逻辑
|
||||||
|
SaveTestResult()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub TxtThirdRecord_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtThirdRecord.KeyDown
|
||||||
|
If e.KeyCode <> Keys.Enter Then Return
|
||||||
|
|
||||||
|
e.SuppressKeyPress = True
|
||||||
|
e.Handled = True
|
||||||
|
|
||||||
|
If _barCodeCount > 2 Then
|
||||||
|
TxtFourthRecord.Focus()
|
||||||
|
TxtFourthRecord.SelectAll()
|
||||||
|
Else
|
||||||
|
SaveTestResult()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub TxtFourthRecord_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtFourthRecord.KeyDown
|
||||||
|
If e.KeyCode <> Keys.Enter Then Return
|
||||||
|
|
||||||
|
e.SuppressKeyPress = True
|
||||||
|
e.Handled = True
|
||||||
|
|
||||||
|
If _barCodeCount > 3 Then
|
||||||
|
TxtFifthRecord.Focus()
|
||||||
|
TxtFifthRecord.SelectAll()
|
||||||
|
Else
|
||||||
|
SaveTestResult()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub TxtFifthRecord_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtFifthRecord.KeyDown
|
||||||
|
If e.KeyCode <> Keys.Enter Then Return
|
||||||
|
|
||||||
|
e.SuppressKeyPress = True
|
||||||
|
e.Handled = True
|
||||||
|
|
||||||
|
If _barCodeCount > 4 Then
|
||||||
|
MsgBox("条码达到上限,请重新选择条码数")
|
||||||
|
Else
|
||||||
|
SaveTestResult()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub BtnStartProgramming_Click(sender As Object, e As EventArgs) Handles BtnStartProgramming.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
|
||||||
|
|
||||||
|
If String.IsNullOrWhiteSpace(TxtFirstRecord.Text) Then
|
||||||
|
MsgBox($"请输入成品序号！")
|
||||||
|
TxtFirstRecord.Focus()
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim snMain As String = TxtFirstRecord.Text
|
||||||
|
Dim sb As New StringBuilder
|
||||||
|
Dim snLst As New List(Of String)
|
||||||
|
snLst.Add(TxtFirstRecord.Text)
|
||||||
|
|
||||||
|
For i As Integer = 1 To _barCodeCount
|
||||||
|
If String.IsNullOrWhiteSpace(_txtList(i).Text) Then
|
||||||
|
MsgBox($"请输入第 [{i}] 个其他序号！")
|
||||||
|
_txtList(i).Focus()
|
||||||
|
Return
|
||||||
|
Else
|
||||||
|
If snLst.Contains(_txtList(i).Text) Then
|
||||||
|
MsgBox($"第 [{i}] 个序号 [{_txtList(i).Text}] 与已有序号重复,请重新输入！")
|
||||||
|
_txtList(i).SelectAll()
|
||||||
|
_txtList(i).Focus()
|
||||||
|
Return
|
||||||
|
Else
|
||||||
|
snLst.Add(_txtList(i).Text)
|
||||||
|
sb.Append($"{_txtList(i).Text},")
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Dim assemblyString As String = sb.ToString()
|
||||||
|
|
||||||
|
If assemblyString.Length >= 128 Then
|
||||||
|
MsgBox($"整机序号超过128个字符,无法录入,请联系管理员！")
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
|
||||||
|
assemblyString = assemblyString.Replace("，"c, ",")
|
||||||
|
If assemblyString.EndsWith(","c) OrElse assemblyString.EndsWith("，"c) Then
|
||||||
|
assemblyString = assemblyString.Substring(0, assemblyString.Length - 1)
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim saveDb As Boolean
|
||||||
|
Try
|
||||||
|
FillTestResult(snMain, assemblyString)
|
||||||
|
_utsApp.CommitTestResult(uniqueRecord:=True)
|
||||||
|
|
||||||
|
DbConnect.DbConnector.SaveOtherSn(snLst, _utsApp.ProcessStation, _utsApp.TestResult)
|
||||||
|
|
||||||
|
saveDb = True
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox($"测试结果录入失败：{ex.Message}")
|
||||||
|
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 = $"{snMain}-Pass"
|
||||||
|
|
||||||
|
RtxLog.SelectionStart = RtxLog.TextLength
|
||||||
|
RtxLog.SelectionColor = Color.Green
|
||||||
|
AppendRecord($"{inputCount:D4}.BarcodeSn:{snMain},AssemblySn:{assemblyString},录入成功！")
|
||||||
|
_testPassCount += 1
|
||||||
|
Else
|
||||||
|
lab_Result.ForeColor = Color.Red
|
||||||
|
lab_Result.Text = $"{snMain}-Fail"
|
||||||
|
|
||||||
|
RtxLog.SelectionStart = RtxLog.TextLength
|
||||||
|
RtxLog.SelectionColor = Color.Red
|
||||||
|
AppendRecord($"{inputCount:D4}.BarcodeSn:{snMain},AssemblySn:{assemblyString},录入失败！")
|
||||||
|
_testFailCount += 1
|
||||||
|
End If
|
||||||
|
|
||||||
|
_testCount += 1
|
||||||
|
|
||||||
|
TssLblPassCount.Text = "Pass:" & _testPassCount.ToString
|
||||||
|
TssLblFailCount.Text = "Fail:" & _testFailCount.ToString
|
||||||
|
TsLblCheckSum.Text = "Sum:" & _testCount.ToString
|
||||||
|
TssLblYield.Text = "Yield:" & (_testPassCount / _testCount * 100).ToString("F2") & "%"
|
||||||
|
|
||||||
|
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, assemblyString 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
|
||||||
|
|
||||||
|
'自定义字段
|
||||||
|
_utsApp.TestResult.AddCustomRecord("AssemblySn", $"{assemblyString}")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub RadSingle_CheckedChanged(sender As Object, e As EventArgs) Handles RadTwo.CheckedChanged, RadThree.CheckedChanged, RadSingle.CheckedChanged, RadFour.CheckedChanged
|
||||||
|
Dim rad As RadioButton = CType(sender, RadioButton)
|
||||||
|
If rad.Checked Then
|
||||||
|
_barCodeCount = CInt(rad.Tag)
|
||||||
|
My.Settings.BarCount = _barCodeCount
|
||||||
|
|
||||||
|
Select Case _barCodeCount
|
||||||
|
Case 1
|
||||||
|
TxtSecondRecord.Visible = True
|
||||||
|
TxtThirdRecord.Visible = False
|
||||||
|
TxtFourthRecord.Visible = False
|
||||||
|
TxtFifthRecord.Visible = False
|
||||||
|
Case 2
|
||||||
|
TxtSecondRecord.Visible = True
|
||||||
|
TxtThirdRecord.Visible = True
|
||||||
|
TxtFourthRecord.Visible = False
|
||||||
|
TxtFifthRecord.Visible = False
|
||||||
|
Case 3
|
||||||
|
TxtSecondRecord.Visible = True
|
||||||
|
TxtThirdRecord.Visible = True
|
||||||
|
TxtFourthRecord.Visible = True
|
||||||
|
TxtFifthRecord.Visible = False
|
||||||
|
Case 4
|
||||||
|
TxtSecondRecord.Visible = True
|
||||||
|
TxtThirdRecord.Visible = True
|
||||||
|
TxtFourthRecord.Visible = True
|
||||||
|
TxtFifthRecord.Visible = True
|
||||||
|
End Select
|
||||||
|
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
38
AUTS_Assembly/My Project/Application.Designer.vb
generated
Normal file
38
AUTS_Assembly/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_Assembly.FrmMain
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
10
AUTS_Assembly/My Project/Application.myapp
Normal file
10
AUTS_Assembly/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_Assembly/My Project/AssemblyInfo.vb
Normal file
35
AUTS_Assembly/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
' 有关程序集的一般信息由以下
|
||||||
|
' 控制。更改这些特性值可修改
|
||||||
|
' 与程序集关联的信息。
|
||||||
|
|
||||||
|
'查看程序集特性的值
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("AUTS_Assembly")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("")>
|
||||||
|
<Assembly: AssemblyProduct("AUTS_Assembly")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © 2020")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'如果此项目向 COM 公开，则下列 GUID 用于 typelib 的 ID
|
||||||
|
<Assembly: Guid("7916ee8a-7f3c-49af-b4b5-1446c7611ad3")>
|
||||||
|
|
||||||
|
' 程序集的版本信息由下列四个值组成:
|
||||||
|
'
|
||||||
|
' 主版本
|
||||||
|
' 次版本
|
||||||
|
' 生成号
|
||||||
|
' 修订号
|
||||||
|
'
|
||||||
|
'可以指定所有这些值，也可以使用“生成号”和“修订号”的默认值
|
||||||
|
'通过使用 "*"，如下所示:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.1.1")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.1.1.1")>
|
||||||
63
AUTS_Assembly/My Project/Resources.Designer.vb
generated
Normal file
63
AUTS_Assembly/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_Assembly.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_Assembly/My Project/Resources.resx
Normal file
117
AUTS_Assembly/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>
|
||||||
133
AUTS_Assembly/My Project/Settings.Designer.vb
generated
Normal file
133
AUTS_Assembly/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,133 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <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 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
|
||||||
|
|
||||||
|
<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("True")> _
|
||||||
|
Public Property SingleSn() As Boolean
|
||||||
|
Get
|
||||||
|
Return CType(Me("SingleSn"),Boolean)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("SingleSn") = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Configuration.DefaultSettingValueAttribute("1")> _
|
||||||
|
Public Property BarCount() As Integer
|
||||||
|
Get
|
||||||
|
Return CType(Me("BarCount"),Integer)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("BarCount") = 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_Assembly.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.AUTS_Assembly.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
21
AUTS_Assembly/My Project/Settings.settings
Normal file
21
AUTS_Assembly/My Project/Settings.settings
Normal file
@@ -0,0 +1,21 @@
|
|||||||
|
<?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="Project" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)" />
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="ProcessStation" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)" />
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="ProductionLine" Type="System.String" Scope="User">
|
||||||
|
<Value Profile="(Default)" />
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="SingleSn" Type="System.Boolean" Scope="User">
|
||||||
|
<Value Profile="(Default)">True</Value>
|
||||||
|
</Setting>
|
||||||
|
<Setting Name="BarCount" Type="System.Int32" Scope="User">
|
||||||
|
<Value Profile="(Default)">1</Value>
|
||||||
|
</Setting>
|
||||||
|
</Settings>
|
||||||
|
</SettingsFile>
|
||||||
BIN
AUTS_Assembly/iconfinder_60_939814.ico
Normal file
BIN
AUTS_Assembly/iconfinder_60_939814.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 361 KiB |
167
AUTS_DataService/AUTS_DataService.vbproj
Normal file
167
AUTS_DataService/AUTS_DataService.vbproj
Normal file
@@ -0,0 +1,167 @@
|
|||||||
|
<?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>{163446E7-7512-4ECE-819D-AF1A139E3DFB}</ProjectGuid>
|
||||||
|
<OutputType>WinExe</OutputType>
|
||||||
|
<StartupObject>AUTS_DataService.Service1</StartupObject>
|
||||||
|
<RootNamespace>AUTS_DataService</RootNamespace>
|
||||||
|
<AssemblyName>AUTS_DataService</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>Console</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_DataService.xml</DocumentationFile>
|
||||||
|
<NoWarn>
|
||||||
|
</NoWarn>
|
||||||
|
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
|
||||||
|
</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_DataService.xml</DocumentationFile>
|
||||||
|
<NoWarn>
|
||||||
|
</NoWarn>
|
||||||
|
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>On</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>Off</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="FluentFTP">
|
||||||
|
<HintPath>..\packages\FluentFTP.33.0.3\lib\net45\FluentFTP.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="MySql.Data, Version=8.0.26.0, Culture=neutral, PublicKeyToken=c5687fc88969c44d, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>..\UTS_Core\bin\Debug\MySql.Data.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="Newtonsoft.Json, Version=6.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>..\UTS_Core\bin\Debug\Newtonsoft.Json.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Configuration.Install" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Deployment" />
|
||||||
|
<Reference Include="System.Drawing" />
|
||||||
|
<Reference Include="System.Management" />
|
||||||
|
<Reference Include="System.ServiceProcess" />
|
||||||
|
<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.Diagnostics" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
<Import Include="System.Threading.Tasks" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="ServiceError.vb" />
|
||||||
|
<Compile Include="UtsGroup\ServiceGroup.vb" />
|
||||||
|
<Compile Include="ServiceLog.vb" />
|
||||||
|
<Compile Include="ServiceConfig.vb" />
|
||||||
|
<Compile Include="ServiceTask\ServiceTasks.vb" />
|
||||||
|
<Compile Include="UtsApp\UtsApp.vb" />
|
||||||
|
<Compile Include="UtsApp\UtsAppManager.vb" />
|
||||||
|
<Compile Include="UtsGroup\ServiceGroupManager.vb" />
|
||||||
|
<Compile Include="UtsWeb\CheckSum.vb" />
|
||||||
|
<Compile Include="ServiceTask\DbSynchronizer.vb" />
|
||||||
|
<Compile Include="ServiceTask\DbSyncServiceTask.vb" />
|
||||||
|
<Compile Include="UtsWeb\IDataPacket.vb" />
|
||||||
|
<Compile Include="ServiceTask\JsonFileListen.vb" />
|
||||||
|
<Compile Include="ServiceTask\ListenJsonFileServiceTask.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="ProjectInstaller.Designer.vb">
|
||||||
|
<DependentUpon>ProjectInstaller.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="ProjectInstaller.vb">
|
||||||
|
<SubType>Component</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Service1.vb">
|
||||||
|
<SubType>Component</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Service1.Designer.vb">
|
||||||
|
<DependentUpon>Service1.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<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>
|
||||||
|
<Compile Include="ServiceSettings.vb" />
|
||||||
|
<Compile Include="UtsWeb\UtsWebPacket.vb" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="ProjectInstaller.resx">
|
||||||
|
<DependentUpon>ProjectInstaller.vb</DependentUpon>
|
||||||
|
</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>
|
||||||
|
<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>
|
||||||
42
AUTS_DataService/App.config
Normal file
42
AUTS_DataService/App.config
Normal file
@@ -0,0 +1,42 @@
|
|||||||
|
<?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_DataService.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>
|
||||||
|
<userSettings>
|
||||||
|
<AUTS_DataService.My.MySettings>
|
||||||
|
<setting name="dbLogType" serializeAs="String">
|
||||||
|
<value>30</value>
|
||||||
|
</setting>
|
||||||
|
</AUTS_DataService.My.MySettings>
|
||||||
|
</userSettings>
|
||||||
|
<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="Google.Protobuf" publicKeyToken="a7d26565bac4d604" culture="neutral" />
|
||||||
|
<bindingRedirect oldVersion="0.0.0.0-3.30.1.0" newVersion="3.30.1.0" />
|
||||||
|
</dependentAssembly>
|
||||||
|
<dependentAssembly>
|
||||||
|
<assemblyIdentity name="BouncyCastle.Crypto" publicKeyToken="0e99375e54769942" culture="neutral" />
|
||||||
|
<bindingRedirect oldVersion="0.0.0.0-1.8.5.0" newVersion="1.8.5.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>
|
||||||
|
</assemblyBinding>
|
||||||
|
</runtime>
|
||||||
|
</configuration>
|
||||||
13
AUTS_DataService/My Project/Application.Designer.vb
generated
Normal file
13
AUTS_DataService/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' 此代码由工具生成。
|
||||||
|
' 运行时版本:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' 对此文件的更改可能会导致不正确的行为，并且如果
|
||||||
|
' 重新生成代码，这些更改将会丢失。
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
10
AUTS_DataService/My Project/Application.myapp
Normal file
10
AUTS_DataService/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>false</MySubMain>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<ApplicationType>3</ApplicationType>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
</MyApplicationData>
|
||||||
35
AUTS_DataService/My Project/AssemblyInfo.vb
Normal file
35
AUTS_DataService/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
' 有关程序集的一般信息由以下
|
||||||
|
' 控制。更改这些特性值可修改
|
||||||
|
' 与程序集关联的信息。
|
||||||
|
|
||||||
|
'查看程序集特性的值
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("AUTS_DataService")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("Microsoft")>
|
||||||
|
<Assembly: AssemblyProduct("AUTS_DataService")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © Microsoft 2020")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'如果此项目向 COM 公开，则下列 GUID 用于 typelib 的 ID
|
||||||
|
<Assembly: Guid("ce81e273-2959-4d63-90b0-54545ed20a06")>
|
||||||
|
|
||||||
|
' 程序集的版本信息由下列四个值组成:
|
||||||
|
'
|
||||||
|
' 主版本
|
||||||
|
' 次版本
|
||||||
|
' 生成号
|
||||||
|
' 修订号
|
||||||
|
'
|
||||||
|
'可以指定所有这些值，也可以使用“生成号”和“修订号”的默认值
|
||||||
|
'通过使用 "*"，如下所示:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("2.6.0.1")>
|
||||||
|
<Assembly: AssemblyFileVersion("2.6.0.1")>
|
||||||
63
AUTS_DataService/My Project/Resources.Designer.vb
generated
Normal file
63
AUTS_DataService/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_DataService.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_DataService/My Project/Resources.resx
Normal file
117
AUTS_DataService/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>
|
||||||
85
AUTS_DataService/My Project/Settings.Designer.vb
generated
Normal file
85
AUTS_DataService/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,85 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <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("30")> _
|
||||||
|
Public Property dbLogType() As Byte
|
||||||
|
Get
|
||||||
|
Return CType(Me("dbLogType"),Byte)
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
Me("dbLogType") = 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_DataService.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.AUTS_DataService.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
9
AUTS_DataService/My Project/Settings.settings
Normal file
9
AUTS_DataService/My Project/Settings.settings
Normal file
@@ -0,0 +1,9 @@
|
|||||||
|
<?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="dbLogType" Type="System.Byte" Scope="User">
|
||||||
|
<Value Profile="(Default)">30</Value>
|
||||||
|
</Setting>
|
||||||
|
</Settings>
|
||||||
|
</SettingsFile>
|
||||||
47
AUTS_DataService/ProjectInstaller.Designer.vb
generated
Normal file
47
AUTS_DataService/ProjectInstaller.Designer.vb
generated
Normal file
@@ -0,0 +1,47 @@
|
|||||||
|
<System.ComponentModel.RunInstaller(True)> Partial Class ProjectInstaller
|
||||||
|
Inherits System.Configuration.Install.Installer
|
||||||
|
|
||||||
|
'Installer 重写 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
|
||||||
|
|
||||||
|
'组件设计器所必需的
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'注意: 以下过程是组件设计器所必需的
|
||||||
|
'可使用组件设计器修改它。
|
||||||
|
'不要使用代码编辑器修改它。
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()>
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Me.ServiceProcessInstaller1 = New System.ServiceProcess.ServiceProcessInstaller()
|
||||||
|
Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller()
|
||||||
|
'
|
||||||
|
'ServiceProcessInstaller1
|
||||||
|
'
|
||||||
|
Me.ServiceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalSystem
|
||||||
|
Me.ServiceProcessInstaller1.Password = Nothing
|
||||||
|
Me.ServiceProcessInstaller1.Username = Nothing
|
||||||
|
'
|
||||||
|
'ServiceInstaller1
|
||||||
|
'
|
||||||
|
Me.ServiceInstaller1.Description = "AUTS_DataService"
|
||||||
|
Me.ServiceInstaller1.DisplayName = "AUTS_DataService"
|
||||||
|
Me.ServiceInstaller1.ServiceName = "AUTS_DataService"
|
||||||
|
Me.ServiceInstaller1.StartType = System.ServiceProcess.ServiceStartMode.Automatic
|
||||||
|
'
|
||||||
|
'ProjectInstaller
|
||||||
|
'
|
||||||
|
Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1})
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Private WithEvents ServiceInstaller1 As ServiceProcess.ServiceInstaller
|
||||||
|
Private WithEvents ServiceProcessInstaller1 As ServiceProcess.ServiceProcessInstaller
|
||||||
|
End Class
|
||||||
129
AUTS_DataService/ProjectInstaller.resx
Normal file
129
AUTS_DataService/ProjectInstaller.resx
Normal 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="ServiceProcessInstaller1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>17, 56</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="ServiceInstaller1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>14, 22</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||||
|
<value>False</value>
|
||||||
|
</metadata>
|
||||||
|
</root>
|
||||||
16
AUTS_DataService/ProjectInstaller.vb
Normal file
16
AUTS_DataService/ProjectInstaller.vb
Normal file
@@ -0,0 +1,16 @@
|
|||||||
|
Imports System.ComponentModel
|
||||||
|
Imports System.Configuration.Install
|
||||||
|
|
||||||
|
Public Class ProjectInstaller
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
MyBase.New()
|
||||||
|
|
||||||
|
'组件设计器需要此调用。
|
||||||
|
InitializeComponent()
|
||||||
|
|
||||||
|
'调用 InitializeComponent 后添加初始化代码
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
48
AUTS_DataService/Service1.Designer.vb
generated
Normal file
48
AUTS_DataService/Service1.Designer.vb
generated
Normal file
@@ -0,0 +1,48 @@
|
|||||||
|
Imports System.ServiceProcess
|
||||||
|
|
||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class Service1
|
||||||
|
Inherits System.ServiceProcess.ServiceBase
|
||||||
|
|
||||||
|
'UserService 重写 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
|
||||||
|
|
||||||
|
' 此进程的主入口点
|
||||||
|
<MTAThread()> _
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Shared Sub Main()
|
||||||
|
Dim ServicesToRun() As System.ServiceProcess.ServiceBase
|
||||||
|
|
||||||
|
' 同一进程内可运行多个 NT 服务。若要将
|
||||||
|
' 另一个服务添加到此进程中，请更改下行以
|
||||||
|
' 创建另一个服务对象。例如，
|
||||||
|
'
|
||||||
|
' ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
|
||||||
|
'
|
||||||
|
ServicesToRun = New System.ServiceProcess.ServiceBase() {New Service1}
|
||||||
|
|
||||||
|
System.ServiceProcess.ServiceBase.Run(ServicesToRun)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'组件设计器所必需的
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
' 注意: 以下过程是组件设计器所必需的
|
||||||
|
' 可使用组件设计器修改它。
|
||||||
|
'不要使用代码编辑器修改它。
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
components = New System.ComponentModel.Container()
|
||||||
|
Me.ServiceName = "Service1"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
2233
AUTS_DataService/Service1.vb
Normal file
2233
AUTS_DataService/Service1.vb
Normal file
File diff suppressed because it is too large
Load Diff
294
AUTS_DataService/ServiceConfig.vb
Normal file
294
AUTS_DataService/ServiceConfig.vb
Normal file
@@ -0,0 +1,294 @@
|
|||||||
|
Imports System.Management
|
||||||
|
Imports System.Net
|
||||||
|
Imports UTS_Core.Database
|
||||||
|
Imports UTS_Core.UTSModule
|
||||||
|
Imports UTS_Core.UTSModule.DbTableModel.Manage
|
||||||
|
|
||||||
|
Public Class ServiceConfig
|
||||||
|
Private _privateIP As String
|
||||||
|
|
||||||
|
Private _publicIP As String
|
||||||
|
|
||||||
|
Private _mac As String
|
||||||
|
|
||||||
|
Private ReadOnly _dsIndex As Integer
|
||||||
|
|
||||||
|
Private ReadOnly _dsName As String
|
||||||
|
|
||||||
|
Private ReadOnly _dsVerString As String
|
||||||
|
|
||||||
|
Private _usVerString As String
|
||||||
|
|
||||||
|
Private ReadOnly _usName As String
|
||||||
|
|
||||||
|
Private _dsVer As Version
|
||||||
|
|
||||||
|
Private _usVer As Version
|
||||||
|
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
_dsIndex = CInt(UtsRegistry.DataServiceIndex)
|
||||||
|
_dsName = My.Application.Info.ProductName
|
||||||
|
_dsVer = My.Application.Info.Version
|
||||||
|
_dsVerString = My.Application.Info.Version.ToString
|
||||||
|
_usName = UtsRegistry.UpdateServiceName
|
||||||
|
_usVerString = UtsRegistry.UpdateServiceVersion
|
||||||
|
If Version.TryParse(_usVerString, _usVer) = False Then
|
||||||
|
_usVer = New Version(0, 0, 0, 0)
|
||||||
|
End If
|
||||||
|
|
||||||
|
BarnchNet = UtsRegistry.BarnchNet
|
||||||
|
|
||||||
|
If Integer.TryParse(UtsRegistry.Roles, Roles) = False Then
|
||||||
|
Roles = 0
|
||||||
|
End If
|
||||||
|
|
||||||
|
IsDBProxyConn = 0
|
||||||
|
CacheCount = 0
|
||||||
|
DbStatus = 0
|
||||||
|
FtpStatus = 0
|
||||||
|
NetworkNeiborhood = ""
|
||||||
|
|
||||||
|
UsConnected = 0
|
||||||
|
|
||||||
|
InitMacAndLocalIP()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public ReadOnly Property DsIndex() As Integer
|
||||||
|
Get
|
||||||
|
Return _dsIndex
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 数据服务的数据服务的名称
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property DsName() As String
|
||||||
|
Get
|
||||||
|
Return _dsName
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 数据服务的版本字符串
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property DsVerString() As String
|
||||||
|
Get
|
||||||
|
Return _dsVerString
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 更新服务的版本字符串
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property UsVerString() As String
|
||||||
|
Get
|
||||||
|
Return _usVerString
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
_usVerString = value
|
||||||
|
If Version.TryParse(_usVerString, _usVer) = False Then
|
||||||
|
_usVer = New Version(0, 0, 0, 0)
|
||||||
|
End If
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 数据服务的版本
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property DsVersion() As Version
|
||||||
|
Get
|
||||||
|
Return _dsVer
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 更新服务的版本
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property UsVersion() As Version
|
||||||
|
Get
|
||||||
|
Return _usVer
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 更新服务的名称
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property UsName() As String
|
||||||
|
Get
|
||||||
|
Return _usName
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 设备的局域网IP
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property PrivateIP() As String
|
||||||
|
Get
|
||||||
|
Return _privateIP
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 设备的MAC地址
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property Mac() As String
|
||||||
|
Get
|
||||||
|
Return _mac
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 与更新服务的连接状态
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property UsConnected As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 设备运行中产生的异常
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Private Property ErrMsg As String
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 局域网中与主机的连接状态
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property IsDBProxyConn As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 设备加入的子网名称
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property BarnchNet As String
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 当前设备在局域网中的角色
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property Roles As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 网上邻居集合
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property NetworkNeiborhood As String
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 当前缓存表字段数量
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property CacheCount As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 云端数据库连接状态
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property DbStatus As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Ftp服务器连接状态
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property FtpStatus As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 私有IP地址变化
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="ip"></param>
|
||||||
|
Public Event PrivateIPChanged(ip As String)
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' MAC地址变化
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="mac"></param>
|
||||||
|
Public Event MACChanged(mac As String)
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub UpdateErrMsg(type As String, msg As String)
|
||||||
|
ErrMsg = $"{type},{msg}"
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 初始化MAC地址与获取本地IP
|
||||||
|
''' </summary>
|
||||||
|
Public Sub InitMacAndLocalIP()
|
||||||
|
' Dim ip As String
|
||||||
|
Dim mac As String
|
||||||
|
Dim searcher As New ManagementObjectSearcher("select * from win32_NetworkAdapterConfiguration")
|
||||||
|
Dim moc2 As ManagementObjectCollection = searcher.Get()
|
||||||
|
For Each mo As ManagementObject In moc2
|
||||||
|
If CBool(mo("IPEnabled")) Then
|
||||||
|
mac = mo("MACAddress").ToString()
|
||||||
|
If String.Compare(_mac, mac) <> 0 Then
|
||||||
|
_mac = mac
|
||||||
|
'触发MAC地址变化
|
||||||
|
RaiseEvent MACChanged(_mac)
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim a() As String = CType(mo("IpAddress"), String())
|
||||||
|
|
||||||
|
Dim address As IPAddress = Nothing
|
||||||
|
For Each ip As String In a
|
||||||
|
If IPAddress.TryParse(ip, address) Then
|
||||||
|
|
||||||
|
'使用IPV4地址
|
||||||
|
If address.AddressFamily = Sockets.AddressFamily.InterNetwork Then
|
||||||
|
|
||||||
|
If String.Compare(_privateIP, ip) <> 0 Then
|
||||||
|
'触发IP地址变化
|
||||||
|
_privateIP = ip
|
||||||
|
RaiseEvent PrivateIPChanged(_privateIP)
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 上传服务信息至数据库
|
||||||
|
''' </summary>
|
||||||
|
Public Sub UpdateServiceInfo()
|
||||||
|
Using db As New DbExecutor(UtsDb.RemoteDbType, UtsDb.RemoteConnString)
|
||||||
|
db.Open()
|
||||||
|
|
||||||
|
Dim cmdText As String
|
||||||
|
Dim tbName As String = DataServiceListTable.TableName
|
||||||
|
Dim filed As New Dictionary(Of String, String)
|
||||||
|
filed.Add($"{DataServiceListTable.ColNames.ServiceVersion}", DsVerString)
|
||||||
|
filed.Add($"{DataServiceListTable.ColNames.CacheCount}", CacheCount.ToString)
|
||||||
|
filed.Add($"{DataServiceListTable.ColNames.IsDBProxyConn}", IsDBProxyConn.ToString)
|
||||||
|
filed.Add($"{DataServiceListTable.ColNames.NetworkNeiborhood}", NetworkNeiborhood)
|
||||||
|
|
||||||
|
If String.IsNullOrEmpty(ErrMsg) = False Then
|
||||||
|
filed.Add($"{DataServiceListTable.ColNames.ErrMsg}", ErrMsg)
|
||||||
|
ErrMsg = String.Empty
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim condition As String = $"`{DataServiceListTable.ColNames.ID}` = {_dsIndex}"
|
||||||
|
cmdText = db.CmdHelper.DbUpdate(UtsDb.RemotePublicDb, tbName, filed, condition)
|
||||||
|
|
||||||
|
Try
|
||||||
|
db.ExecuteNonQuery(cmdText)
|
||||||
|
Catch ex As Exception
|
||||||
|
ServiceLog.WriteErrorLog($"Update ServiceTable Error:{ex.Message}")
|
||||||
|
End Try
|
||||||
|
|
||||||
|
db.Close()
|
||||||
|
End Using
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
7
AUTS_DataService/ServiceError.vb
Normal file
7
AUTS_DataService/ServiceError.vb
Normal file
@@ -0,0 +1,7 @@
|
|||||||
|
Public Class ServiceError
|
||||||
|
Public Shared Event ServiceError(type As String, msg As String)
|
||||||
|
|
||||||
|
Public Shared Sub RecodeError(type As String, msg As String)
|
||||||
|
RaiseEvent ServiceError(type, msg)
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
334
AUTS_DataService/ServiceLog.vb
Normal file
334
AUTS_DataService/ServiceLog.vb
Normal file
@@ -0,0 +1,334 @@
|
|||||||
|
Imports UTS_Core.Database
|
||||||
|
Imports UTS_Core.UTSModule
|
||||||
|
Imports UTS_Core.UTSModule.DbConnect
|
||||||
|
Imports UTS_Core.UTSModule.DbTableModel.Manage
|
||||||
|
|
||||||
|
Public Class ServiceLog
|
||||||
|
|
||||||
|
Private Shared ReadOnly LogLock As New Object()
|
||||||
|
|
||||||
|
Private Shared ReadOnly LogQueue As New List(Of Dictionary(Of String, String))
|
||||||
|
|
||||||
|
''' <summary>厂商名</summary>
|
||||||
|
Public Shared VendorName As String
|
||||||
|
|
||||||
|
''' <summary>公网IP</summary>
|
||||||
|
Public Shared PublicIp As String
|
||||||
|
|
||||||
|
''' <summary>本地IP</summary>
|
||||||
|
Public Shared PrivateIp As String
|
||||||
|
|
||||||
|
''' <summary>本地MAC地址</summary>
|
||||||
|
Public Shared MAC As String
|
||||||
|
|
||||||
|
''' <summary>服务索引</summary>
|
||||||
|
Public Shared DsIndex As Integer
|
||||||
|
|
||||||
|
''' <summary>数据服务版本</summary>
|
||||||
|
Public Shared DsVersion As String
|
||||||
|
|
||||||
|
''' <summary>更新服务版本</summary>
|
||||||
|
Public Shared UsVersion As String
|
||||||
|
|
||||||
|
''' <summary>存入数据库日志类型</summary>
|
||||||
|
Public Shared DbLogType As Byte
|
||||||
|
|
||||||
|
''' <summary>日志文件夹路径</summary>
|
||||||
|
Public Shared Property LogDirPath As String
|
||||||
|
Get
|
||||||
|
Return UTS_Core.DebugLog.ApplicationLog.LogDirPath
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
UTS_Core.DebugLog.ApplicationLog.LogDirPath = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>日志文件前缀</summary>
|
||||||
|
Public Shared Property LogFilePrefix As String
|
||||||
|
Get
|
||||||
|
Return UTS_Core.DebugLog.ApplicationLog.LogFilePrefix
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
UTS_Core.DebugLog.ApplicationLog.LogFilePrefix = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property LogFilePath() As String
|
||||||
|
Get
|
||||||
|
Return UTS_Core.DebugLog.ApplicationLog.LogFilePath
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>在线状态</summary>
|
||||||
|
Public Shared Online As Boolean
|
||||||
|
|
||||||
|
''' <summary>将日志写入到本地文件</summary>
|
||||||
|
Public Shared Sub WriteErrorLogToFile(logText As String)
|
||||||
|
UTS_Core.DebugLog.ApplicationLog.WriteErrorLog(logText)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 写入致命错误至本地与云端数据库
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="logText">日志内容</param>
|
||||||
|
Public Shared Sub WriteFatalLog(logText As String)
|
||||||
|
WriteLogToLogQueue(UTS_Core.DebugLog.ApplicationLog.LogTypes.Fatal, logText)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Shared Sub WriteErrorLog(logText As String)
|
||||||
|
WriteLogToLogQueue(UTS_Core.DebugLog.ApplicationLog.LogTypes.Error, logText)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Shared Sub WriteWarningLog(logText As String)
|
||||||
|
WriteLogToLogQueue(UTS_Core.DebugLog.ApplicationLog.LogTypes.Warn, logText)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Shared Sub WriteInfoLog(logText As String)
|
||||||
|
WriteLogToLogQueue(UTS_Core.DebugLog.ApplicationLog.LogTypes.Info, logText)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Shared Sub WriteDebugLog(logText As String)
|
||||||
|
WriteLogToLogQueue(UTS_Core.DebugLog.ApplicationLog.LogTypes.Debug, logText)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 添加日志内容至缓存的日志队列中
|
||||||
|
''' 调用SaveLogQueueToDb将队列中的数据写入到数据库
|
||||||
|
'''
|
||||||
|
''' Tip:缓存队列仅记录每条日志不同的内容,例如写入时间，日志类型，日志内容等
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="logType"></param>
|
||||||
|
''' <param name="logText"></param>
|
||||||
|
Public Shared Sub WriteLogToLogQueue(logType As UTS_Core.DebugLog.ApplicationLog.LogTypes, logText As String)
|
||||||
|
UTS_Core.DebugLog.ApplicationLog.WriteLog($"{logType}", logText) '写入本地文本日志
|
||||||
|
If ((DbLogType >> logType) And 1) = 0 Then Return '过滤不入库的信息
|
||||||
|
|
||||||
|
Dim dicFiled As New Dictionary(Of String, String)
|
||||||
|
|
||||||
|
dicFiled.Add($"{DataServiceLogTable.ColNames.DateTime}", $"{Now:yyyy-MM-dd HH:mm:ss}")
|
||||||
|
|
||||||
|
dicFiled.Add($"{DataServiceLogTable.ColNames.LogType}", $"{logType}")
|
||||||
|
dicFiled.Add($"{DataServiceLogTable.ColNames.LogText}", $"{logText.Replace("'"c, """"c).Replace("`", """"c)}")
|
||||||
|
|
||||||
|
SyncLock LogLock
|
||||||
|
LogQueue.Add(dicFiled) '将日志信息放入缓冲队列
|
||||||
|
End SyncLock
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Shared Sub SaveLogToLocalDb(count As Integer, Optional saveCache As Boolean = False)
|
||||||
|
Dim tableName As String = DataServiceLogTable.TableName
|
||||||
|
Using db As New DbExecutor(UtsDb.LocalDbType, UtsDb.LocalConnString)
|
||||||
|
db.Open()
|
||||||
|
|
||||||
|
db.BeginTransaction()
|
||||||
|
|
||||||
|
Dim dicFiled As Dictionary(Of String, String)
|
||||||
|
Dim cmdText As String
|
||||||
|
Dim cmdHelper As DbCmdHelper = DbCmdHelper.CreateCmdHelper(UtsDb.RemoteDbType)
|
||||||
|
|
||||||
|
SyncLock LogLock
|
||||||
|
For i As Integer = 0 To count - 1
|
||||||
|
dicFiled = LogQueue.Item(i)
|
||||||
|
|
||||||
|
'修改上传方式为插值方式
|
||||||
|
Dim colName As String
|
||||||
|
Dim colNames As New List(Of String)
|
||||||
|
Dim remoteFileds As New Dictionary(Of String, String)
|
||||||
|
Try
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.ServiceID}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.Int32, colName, DsIndex)
|
||||||
|
remoteFileds.Add(colName, DsIndex.ToString)
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.ServiceVersion}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.AnsiString, colName, DsVersion)
|
||||||
|
remoteFileds.Add(colName, DsVersion)
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.UpdateServiceVersion}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.AnsiString, colName, UsVersion)
|
||||||
|
remoteFileds.Add(colName, UsVersion)
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.VendorName}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.AnsiString, colName, VendorName)
|
||||||
|
remoteFileds.Add(colName, VendorName)
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.DateTime}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.DateTime, colName, dicFiled(colName))
|
||||||
|
remoteFileds.Add(colName, dicFiled(colName))
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.PublicIp}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.AnsiString, colName, PublicIp)
|
||||||
|
remoteFileds.Add(colName, PublicIp)
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.PrivateIp}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.AnsiString, colName, PrivateIp)
|
||||||
|
remoteFileds.Add(colName, PrivateIp)
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.LogType}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.AnsiString, colName, dicFiled(colName))
|
||||||
|
remoteFileds.Add(colName, dicFiled(colName))
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.LogText}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.AnsiString, colName, dicFiled(colName))
|
||||||
|
remoteFileds.Add(colName, dicFiled(colName).Replace("'", " ").Replace("’", " "))
|
||||||
|
|
||||||
|
cmdText = db.CmdHelper.InsertParam(tableName, colNames)
|
||||||
|
|
||||||
|
db.ExecuteNonQuery(cmdText) '执行语句
|
||||||
|
Catch ex As Exception
|
||||||
|
WriteErrorLogToFile($"Write LogQueue To Local DB Error: {ex.Message}")
|
||||||
|
Continue For
|
||||||
|
End Try
|
||||||
|
|
||||||
|
|
||||||
|
If saveCache Then
|
||||||
|
Try
|
||||||
|
cmdText = cmdHelper.DbInsert(UtsDb.RemotePublicDb, tableName, remoteFileds)
|
||||||
|
DbConnector.SaveCmdStringToCacheTable(db, cmdText) '执行命令入缓存库
|
||||||
|
Catch ex As Exception
|
||||||
|
WriteErrorLogToFile($"Write LogQueue To Chche DB Error: {ex.Message}")
|
||||||
|
Continue For
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End SyncLock
|
||||||
|
|
||||||
|
db.CommitTransaction()
|
||||||
|
db.Close()
|
||||||
|
End Using
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Shared Function SaveLogToRemoteDb(count As Integer) As Boolean
|
||||||
|
Dim tableName As String = DataServiceLogTable.TableName
|
||||||
|
Using db As New DbExecutor(UtsDb.RemoteDbType, UtsDb.RemoteConnString)
|
||||||
|
db.Open()
|
||||||
|
|
||||||
|
db.BeginTransaction()
|
||||||
|
|
||||||
|
Dim dicFiled As Dictionary(Of String, String)
|
||||||
|
Dim cmdText As String
|
||||||
|
Dim colName As String
|
||||||
|
Dim colNames As New List(Of String)
|
||||||
|
|
||||||
|
For i As Integer = 0 To count - 1
|
||||||
|
colNames.Clear()
|
||||||
|
dicFiled = LogQueue.Item(i)
|
||||||
|
|
||||||
|
Try
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.ServiceID}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.Int32, colName, DsIndex)
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.ServiceVersion}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.AnsiString, colName, DsVersion)
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.UpdateServiceVersion}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.AnsiString, colName, UsVersion)
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.VendorName}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.AnsiString, colName, VendorName)
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.DateTime}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.DateTime, colName, dicFiled(colName))
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.PublicIp}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.AnsiString, colName, PublicIp)
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.PrivateIp}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.AnsiString, colName, PrivateIp)
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.Mac}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.AnsiString, colName, MAC)
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.LogType}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.AnsiString, colName, dicFiled(colName))
|
||||||
|
|
||||||
|
colName = $"{DataServiceLogTable.ColNames.LogText}"
|
||||||
|
colNames.Add(colName)
|
||||||
|
db.AddDbParameter(DbType.AnsiString, colName, dicFiled(colName))
|
||||||
|
|
||||||
|
cmdText = db.CmdHelper.DbInsertParam(UtsDb.RemotePublicDb, tableName, colNames)
|
||||||
|
|
||||||
|
db.ExecuteNonQuery(cmdText) '执行语句
|
||||||
|
|
||||||
|
db.ClearDbParameter()
|
||||||
|
Catch ex As Exception
|
||||||
|
WriteErrorLogToFile($"[{i}]Write LogQueue To Remote DB Error: {ex.Message}")
|
||||||
|
|
||||||
|
Try
|
||||||
|
db.RollbackTransaction()
|
||||||
|
db.Close()
|
||||||
|
Catch ex2 As Exception
|
||||||
|
WriteErrorLogToFile($"Write LogQueue To Remote DB Rollback Transaction Error: {ex.Message}")
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
Next
|
||||||
|
|
||||||
|
db.CommitTransaction()
|
||||||
|
db.Close()
|
||||||
|
End Using
|
||||||
|
|
||||||
|
Return True
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Shared Sub SaveLogQueueToDb()
|
||||||
|
If LogQueue.Count <= 0 Then Return
|
||||||
|
|
||||||
|
Dim count As Integer = LogQueue.Count
|
||||||
|
Dim saveCache As Boolean
|
||||||
|
SyncLock LogLock
|
||||||
|
'执行
|
||||||
|
saveCache = SaveLogToRemoteDb(count) = False
|
||||||
|
SaveLogToLocalDb(count, saveCache)
|
||||||
|
|
||||||
|
'删除
|
||||||
|
For i As Integer = 0 To count - 1
|
||||||
|
LogQueue.RemoveAt(0)
|
||||||
|
Next
|
||||||
|
End SyncLock
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 创建数据服务日志表,数据服务独有
|
||||||
|
''' </summary>
|
||||||
|
Public Shared Sub CreateServiceLogTable()
|
||||||
|
|
||||||
|
Using db As New DbExecutor(UtsDb.LocalDbType, UtsDb.LocalConnString)
|
||||||
|
db.Open()
|
||||||
|
|
||||||
|
Dim cmdText As String = DataServiceLogTable.CreateTableString("", DbExecutor.DbTypeEnum.Sqlite)
|
||||||
|
|
||||||
|
db.ExecuteNonQuery(cmdText)
|
||||||
|
|
||||||
|
db.Close()
|
||||||
|
End Using
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
16
AUTS_DataService/ServiceSettings.vb
Normal file
16
AUTS_DataService/ServiceSettings.vb
Normal file
@@ -0,0 +1,16 @@
|
|||||||
|
Imports System.Xml.Serialization
|
||||||
|
Imports UTS_Core.UTSModule.Service
|
||||||
|
|
||||||
|
|
||||||
|
<XmlInclude(GetType(ServiceSettings))>
|
||||||
|
<XmlInclude(GetType(ServiceTask))>
|
||||||
|
<XmlInclude(GetType(DbSyncServiceTask))>
|
||||||
|
<XmlInclude(GetType(ListenJsonFileServiceTask))>
|
||||||
|
Public Class ServiceSettings
|
||||||
|
Public Tasks As List(Of ServiceTask)
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
Tasks = New List(Of ServiceTask)()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
219
AUTS_DataService/ServiceTask/DbSyncServiceTask.vb
Normal file
219
AUTS_DataService/ServiceTask/DbSyncServiceTask.vb
Normal file
@@ -0,0 +1,219 @@
|
|||||||
|
Imports System.Threading
|
||||||
|
Imports System.Xml.Serialization
|
||||||
|
Imports UTS_Core.Database
|
||||||
|
Imports UTS_Core.UTSModule
|
||||||
|
Imports UTS_Core.UTSModule.Service
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 数据库同步类
|
||||||
|
''' </summary>
|
||||||
|
<XmlInclude(GetType(DbSyncServiceTask))>
|
||||||
|
Public Class DbSyncServiceTask
|
||||||
|
Inherits ServiceTask
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
TaskType = ServiceTaskTypeEnum.DbSync
|
||||||
|
TaskStatus = ServiceTaskStatusEnum.Stop
|
||||||
|
TaskName = "DbSync_Default"
|
||||||
|
|
||||||
|
Interval = 5
|
||||||
|
|
||||||
|
|
||||||
|
LocalDbType = UtsDb.LocalDbType
|
||||||
|
LocalConnString = UtsDb.LocalConnString
|
||||||
|
|
||||||
|
RemoteDbType = UtsDb.RemoteDbType
|
||||||
|
RemoteConnString = UtsDb.RemoteConnString
|
||||||
|
RemotePublicDb = UtsDb.RemotePublicDb
|
||||||
|
RemotePrivateDb = UtsDb.RemotePrivateDb
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub New(name As String, param As Dictionary(Of String, String))
|
||||||
|
TaskType = ServiceTaskTypeEnum.DbSync
|
||||||
|
TaskStatus = ServiceTaskStatusEnum.Stop
|
||||||
|
TaskName = name
|
||||||
|
|
||||||
|
LocalDbType = UtsDb.LocalDbType
|
||||||
|
LocalConnString = UtsDb.LocalConnString
|
||||||
|
|
||||||
|
RemoteDbType = UtsDb.RemoteDbType
|
||||||
|
RemoteConnString = UtsDb.RemoteConnString
|
||||||
|
RemotePublicDb = UtsDb.RemotePublicDb
|
||||||
|
RemotePrivateDb = UtsDb.RemotePrivateDb
|
||||||
|
|
||||||
|
SetParams(param)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub StartCallback(stat As Object)
|
||||||
|
While TaskStatus = ServiceTaskStatusEnum.Start
|
||||||
|
|
||||||
|
'同步任务
|
||||||
|
Try
|
||||||
|
Dim syncParam As DbSynchronizer.SyncParam
|
||||||
|
syncParam.LocalConnString = LocalConnString
|
||||||
|
syncParam.LocalType = LocalDbType
|
||||||
|
syncParam.RemoteType = RemoteDbType
|
||||||
|
syncParam.RemoteConnString = RemoteConnString
|
||||||
|
syncParam.PublicDb = RemotePublicDb
|
||||||
|
syncParam.PrivateDb = RemotePrivateDb
|
||||||
|
|
||||||
|
'开始数据库同步
|
||||||
|
Dim sync As DbSynchronizer
|
||||||
|
sync = New DbSynchronizer(syncParam)
|
||||||
|
sync.SyncDatabase()
|
||||||
|
ServiceLog.WriteInfoLog($"DbSynchronizer Succeeded!")
|
||||||
|
|
||||||
|
'更新数据库更新时间
|
||||||
|
LastUpdateTime = $"{Now:yyyy-MM-dd HH:mm:ss}"
|
||||||
|
Catch ex As Exception
|
||||||
|
ServiceLog.WriteErrorLog($"TaskName:{TaskName},SyncDatabase Error:{ex.Message}")
|
||||||
|
End Try
|
||||||
|
|
||||||
|
'等待任务
|
||||||
|
Dim lastTime As Date = Now
|
||||||
|
While (Now - lastTime).TotalMinutes < Interval
|
||||||
|
If TaskStatus = ServiceTaskStatusEnum.Stop Then
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
|
||||||
|
Thread.Sleep(1000)
|
||||||
|
End While
|
||||||
|
|
||||||
|
End While
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Sub Start()
|
||||||
|
TaskStatus = ServiceTaskStatusEnum.Start
|
||||||
|
|
||||||
|
If _syncThread IsNot Nothing AndAlso _syncThread.IsAlive Then
|
||||||
|
ServiceLog.WriteDebugLog($"SyncThread IsAlive!")
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
|
||||||
|
_syncThread = New Thread(AddressOf StartCallback)
|
||||||
|
_syncThread.IsBackground = True
|
||||||
|
_syncThread.Start()
|
||||||
|
|
||||||
|
ServiceLog.WriteDebugLog($"DbSync Start!")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Sub [Stop]()
|
||||||
|
TaskStatus = ServiceTaskStatusEnum.Stop
|
||||||
|
|
||||||
|
Dim lastTime As Date = Now
|
||||||
|
While _syncThread IsNot Nothing AndAlso _syncThread.IsAlive
|
||||||
|
If (Now - lastTime).TotalMilliseconds > 10000 Then
|
||||||
|
_syncThread.Abort()
|
||||||
|
End If
|
||||||
|
|
||||||
|
Thread.Sleep(100)
|
||||||
|
End While
|
||||||
|
ServiceLog.WriteInfoLog($"DbSync Stop!")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Sub Restart()
|
||||||
|
If _syncThread IsNot Nothing AndAlso _syncThread.IsAlive Then
|
||||||
|
[Stop]()
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Start()
|
||||||
|
ServiceLog.WriteInfoLog($"DbSync Restart!")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Sub SetParams(params As Dictionary(Of String, String))
|
||||||
|
Dim tmpStatus As ServiceTaskStatusEnum = TaskStatus
|
||||||
|
Dim tmpInterval As Integer = Interval
|
||||||
|
|
||||||
|
'将转换后的数据填充至临时缓存,一遍设置失败时可以保留上一次数据
|
||||||
|
For Each param As KeyValuePair(Of String, String) In params
|
||||||
|
Select Case param.Key
|
||||||
|
Case "Interval"
|
||||||
|
If Integer.TryParse(param.Value, tmpInterval) = False Then
|
||||||
|
Throw New Exception($"Error Interval :{param.Value}")
|
||||||
|
End If
|
||||||
|
Case "LocalDbType"
|
||||||
|
'If [Enum].TryParse(param.Value, tmpLocalType) = False Then
|
||||||
|
' Throw New Exception($"Error LocalDbType :{param.Value}")
|
||||||
|
'End If
|
||||||
|
Case "LocalConnString"
|
||||||
|
'tmpLocalConnString = UTS_Core.Security.Aes128.DecryptStr(param.Value, UTS_Core.Security.Aes128.ServerAesKey)
|
||||||
|
Case "Status", "Type", "Name" '不处理的字段
|
||||||
|
|
||||||
|
|
||||||
|
Case Else
|
||||||
|
ServiceLog.WriteWarningLog($"DbSync Unknown param name :{param.Key}")
|
||||||
|
End Select
|
||||||
|
Next
|
||||||
|
|
||||||
|
TaskStatus = tmpStatus
|
||||||
|
Interval = tmpInterval
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Function GetParams() As Dictionary(Of String, String)
|
||||||
|
Dim params As New Dictionary(Of String, String)
|
||||||
|
params.Add("Type", TaskType.ToString())
|
||||||
|
params.Add("Name", TaskName)
|
||||||
|
params.Add("Status", TaskStatus.ToString())
|
||||||
|
params.Add("Interval", Interval.ToString())
|
||||||
|
params.Add("LocalDbType", LocalDbType.ToString())
|
||||||
|
params.Add("LocalConnString", UTS_Core.Security.Aes128.EncryptStr(LocalConnString, UTS_Core.Security.Aes128.ServerAesKey))
|
||||||
|
|
||||||
|
Return params
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 远程数据库的类型
|
||||||
|
''' </summary>
|
||||||
|
Private RemoteDbType As DbExecutor.DbTypeEnum
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 远程数据库的连接字符串
|
||||||
|
''' </summary>
|
||||||
|
Private RemoteConnString As String
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 远端公共数据库名
|
||||||
|
''' </summary>
|
||||||
|
Private RemotePublicDb As String
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 远端私有库名
|
||||||
|
''' </summary>
|
||||||
|
Private RemotePrivateDb As String
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 本地数据库的类型
|
||||||
|
''' </summary>
|
||||||
|
Private LocalDbType As DbExecutor.DbTypeEnum
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 本地数据库的连接字符串
|
||||||
|
''' </summary>
|
||||||
|
Private LocalConnString As String
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 同步间隔,单位分钟,默认5分钟,最小值为1分钟
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property Interval() As Integer
|
||||||
|
|
||||||
|
Private _syncThread As Thread
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 最后一次更新的时间字符串
|
||||||
|
''' </summary>
|
||||||
|
Public Shared LastUpdateTime As String = ""
|
||||||
|
End Class
|
||||||
678
AUTS_DataService/ServiceTask/DbSynchronizer.vb
Normal file
678
AUTS_DataService/ServiceTask/DbSynchronizer.vb
Normal file
@@ -0,0 +1,678 @@
|
|||||||
|
Imports System.Data.Common
|
||||||
|
Imports System.Text
|
||||||
|
Imports MySql.Data.MySqlClient
|
||||||
|
Imports UTS_Core.Database
|
||||||
|
Imports UTS_Core.UTSModule.DbTableModel
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 数据库同步器
|
||||||
|
''' </summary>
|
||||||
|
Public Class DbSynchronizer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 同步表内容
|
||||||
|
''' </summary>
|
||||||
|
Structure SyncTableScheme
|
||||||
|
''' <summary>表名</summary>
|
||||||
|
Public TableName As String
|
||||||
|
''' <summary>同步类型</summary>
|
||||||
|
Public SyncType As String
|
||||||
|
''' <summary>是否存在当前数据表</summary>
|
||||||
|
Public IsExistsTable As Boolean
|
||||||
|
''' <summary>更新版本</summary>
|
||||||
|
Public RevisionID As String
|
||||||
|
''' <summary>上一次更新时间字符串</summary>
|
||||||
|
Public LastSyncTime As String
|
||||||
|
''' <summary>同步后更新的时间字符串</summary>
|
||||||
|
Public NowSyncTime As String
|
||||||
|
End Structure
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 同步数据库参数
|
||||||
|
''' </summary>
|
||||||
|
Structure SyncParam
|
||||||
|
Public PublicDb As String
|
||||||
|
|
||||||
|
Public PrivateDb As String
|
||||||
|
|
||||||
|
Public RemoteType As DbExecutor.DbTypeEnum
|
||||||
|
|
||||||
|
Public RemoteConnString As String
|
||||||
|
|
||||||
|
Public LocalType As DbExecutor.DbTypeEnum
|
||||||
|
|
||||||
|
Public LocalConnString As String
|
||||||
|
End Structure
|
||||||
|
|
||||||
|
|
||||||
|
Sub New(param As SyncParam)
|
||||||
|
Parameters = param
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 连接参数
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property Parameters() As SyncParam
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 同步数据库，开始同步
|
||||||
|
''' </summary>
|
||||||
|
Public Sub SyncDatabase()
|
||||||
|
Using remoteDb As New DbExecutor(Parameters.RemoteType, Parameters.RemoteConnString)
|
||||||
|
remoteDb.Open()
|
||||||
|
|
||||||
|
Using localDb As New DbExecutor(Parameters.LocalType, Parameters.LocalConnString)
|
||||||
|
localDb.Open()
|
||||||
|
|
||||||
|
SyncDatabase(localDb, remoteDb, Parameters.PublicDb, Parameters.PrivateDb)
|
||||||
|
|
||||||
|
localDb.Close()
|
||||||
|
End Using
|
||||||
|
|
||||||
|
remoteDb.Close()
|
||||||
|
End Using
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 同步数据库执行过程
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="localDb">本地数据库执行器</param>
|
||||||
|
''' <param name="remoteDb">云端数据库执行器</param>
|
||||||
|
''' <param name="publicDb">远端数据库公共库名</param>
|
||||||
|
''' <param name="privateDb">远端数据库私有库名</param>
|
||||||
|
Public Sub SyncDatabase(localDb As DbExecutor, remoteDb As DbExecutor, publicDb As String, privateDb As String)
|
||||||
|
If remoteDb Is Nothing Then Return
|
||||||
|
If localDb Is Nothing Then Return
|
||||||
|
|
||||||
|
'上传本地缓存数据
|
||||||
|
remoteDb.BeginTransaction()
|
||||||
|
UploadCacheData(remoteDb, localDb)
|
||||||
|
remoteDb.CommitTransaction()
|
||||||
|
ServiceLog.WriteDebugLog($"UploadCacheData Successded!")
|
||||||
|
|
||||||
|
'获取需要公有下载的数据表
|
||||||
|
DownloadSyncTable(remoteDb, localDb, publicDb, Manage.SyncListTable.TableName)
|
||||||
|
ServiceLog.WriteDebugLog($"Download Puclic SyncTable Successded!")
|
||||||
|
|
||||||
|
'获取需要私有下载的数据表
|
||||||
|
DownloadSyncTable(remoteDb, localDb, privateDb, Customer.SyncListTable.TableName)
|
||||||
|
ServiceLog.WriteDebugLog($"Download Private SyncTable Successded!")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 上传本地缓存数据，DataTable的方式
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="remoteDb">远程数据库执行器</param>
|
||||||
|
''' <param name="localDb">本地数据库执行器</param>
|
||||||
|
Private Sub UploadCacheData(remoteDb As DbExecutor, localDb As DbExecutor)
|
||||||
|
|
||||||
|
CreateCacheTableWhenNotExists(localDb)
|
||||||
|
|
||||||
|
Dim dataTable As DataTable = SearchCacheData(localDb)
|
||||||
|
|
||||||
|
UploadCacheData(remoteDb, localDb, dataTable)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#Region "上传本地缓存数据"
|
||||||
|
''' <summary>
|
||||||
|
''' 本地创建缓存记录表,如果不存在则创建
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="localDb">本地数据库的执行器</param>
|
||||||
|
Private Sub CreateCacheTableWhenNotExists(localDb As DbExecutor)
|
||||||
|
localDb.ExecuteNonQuery(LocalPrivate.CacheTable.CreateTableString)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 查询本地未上传的数据,单次查询5000条数据
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="localDb">本地数据库的执行器</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
Private Function SearchCacheData(localDb As DbExecutor) As DataTable
|
||||||
|
Dim tableName As String = LocalPrivate.CacheTable.TableName
|
||||||
|
Dim colNames As String = $"{LocalPrivate.CacheTable.ColNamesEnum.ID},{LocalPrivate.CacheTable.ColNamesEnum.SqlCmd}"
|
||||||
|
Dim condition As String = $"{LocalPrivate.CacheTable.ColNamesEnum.IsUpload} = 0 order by `{LocalPrivate.CacheTable.ColNamesEnum.ID}` Limit 5000"
|
||||||
|
Dim cmdText As String = localDb.CmdHelper.Search(colNames, tableName, condition)
|
||||||
|
Return localDb.ExecuteDataTable(cmdText)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 上传本地数据至云端数据库
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="remoteDb"></param>
|
||||||
|
''' <param name="localDb"></param>
|
||||||
|
''' <param name="dataTable"></param>
|
||||||
|
Private Sub UploadCacheData(remoteDb As DbExecutor, localDb As DbExecutor, dataTable As DataTable)
|
||||||
|
ServiceLog.WriteDebugLog($"Begin Upload Cache DataTable [{dataTable.Rows.Count}] Rows!")
|
||||||
|
For Each row As DataRow In dataTable.Rows
|
||||||
|
Try
|
||||||
|
Dim cmdText As String = row(LocalPrivate.CacheTable.ColNamesEnum.SqlCmd.ToString()).ToString()
|
||||||
|
remoteDb.ExecuteNonQuery(cmdText)
|
||||||
|
|
||||||
|
Catch ex As MySqlException
|
||||||
|
'记录失败
|
||||||
|
Dim id As String = row(LocalPrivate.CacheTable.ColNamesEnum.ID.ToString()).ToString()
|
||||||
|
|
||||||
|
ServiceLog.WriteErrorLog($"UploadData Error:{ex.Message},ErrorNumber:{ex.Number},ID:{id}")
|
||||||
|
|
||||||
|
Select Case ex.Number
|
||||||
|
Case MySqlErrorCode.DuplicateFieldName '重复字段
|
||||||
|
ServiceLog.WriteInfoLog($"DuplicateFieldName,Ignore the error!")
|
||||||
|
Case Else
|
||||||
|
ServiceLog.WriteWarningLog($"Unknown,Continue to perform!")
|
||||||
|
Exit For
|
||||||
|
End Select
|
||||||
|
Catch ex As Exception
|
||||||
|
'记录失败
|
||||||
|
ServiceLog.WriteErrorLog($"UploadData Error:{ex.Message}")
|
||||||
|
|
||||||
|
ServiceError.RecodeError("DbSync", $"UploadData Error:{ex.Message}")
|
||||||
|
Exit For
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Try
|
||||||
|
DeleteUploadData(localDb, row(LocalPrivate.CacheTable.ColNamesEnum.ID).ToString)
|
||||||
|
Catch ex As Exception
|
||||||
|
'记录失败
|
||||||
|
ServiceLog.WriteErrorLog($"UpdateCacheTable Error:{ex.Message}")
|
||||||
|
End Try
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 数据上传完成后,删除本地数据库中对应序号的记录
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="localDb"></param>
|
||||||
|
''' <param name="sn"></param>
|
||||||
|
Private Sub DeleteUploadData(localDb As DbExecutor, sn As String)
|
||||||
|
Dim tableName As String = LocalPrivate.CacheTable.TableName
|
||||||
|
Dim condition As String = $"{LocalPrivate.CacheTable.ColNamesEnum.ID} = '{sn}'"
|
||||||
|
localDb.ExecuteNonQuery(localDb.CmdHelper.DeleteRows(tableName, condition))
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "获取需要下载表集合"
|
||||||
|
''' <summary>
|
||||||
|
''' 比对本地与云端版本表,下载变化的数据表
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="remoteDb"></param>
|
||||||
|
''' <param name="localDb"></param>
|
||||||
|
''' <param name="dbName"></param>
|
||||||
|
''' <param name="tbName"></param>
|
||||||
|
Public Sub DownloadSyncTable(remoteDb As DbExecutor, localDb As DbExecutor, dbName As String, tbName As String)
|
||||||
|
Dim downloadTables As List(Of SyncTableScheme)
|
||||||
|
downloadTables = CompareVersionTable(remoteDb, localDb, dbName, tbName)
|
||||||
|
UpdateTables(remoteDb, localDb, dbName, downloadTables) '更新本地数据
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 比较本地与云端版本表的差异,获取需要下载的数据表
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="remoteDb"></param>
|
||||||
|
''' <param name="localDb"></param>
|
||||||
|
''' <param name="tableName"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
Private Function CompareVersionTable(remoteDb As DbExecutor, localDb As DbExecutor, dbName As String, tableName As String) As List(Of SyncTableScheme)
|
||||||
|
CreateVersionTableWhenNotExists(localDb)
|
||||||
|
Dim localTable As DataTable = localDb.ExecuteDataTable(localDb.CmdHelper.SearchAll(Customer.SyncListTable.TableName))
|
||||||
|
Dim remoteTable As DataTable = remoteDb.ExecuteDataTable(remoteDb.CmdHelper.DbSearchAll(dbName, tableName))
|
||||||
|
Return CompareVersionTable(localTable, remoteTable)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 创建本地数据库表版本记录表
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="localDb"></param>
|
||||||
|
Private Sub CreateVersionTableWhenNotExists(localDb As DbExecutor)
|
||||||
|
Try
|
||||||
|
localDb.ExecuteNonQuery(Customer.SyncListTable.CreateTableString(localDb.DatabaseType))
|
||||||
|
Catch ex As Exception
|
||||||
|
'记录失败
|
||||||
|
ServiceLog.WriteErrorLog($"CreateVersionTableWhenNotExists Error:{ex.Message}")
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 比较本地与云端版本表的差异
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="srcDataTable">源DataTable</param>
|
||||||
|
''' <param name="destDataTable">目标DataTable</param>
|
||||||
|
''' <returns>差异信息列表</returns>
|
||||||
|
Private Function CompareVersionTable(srcDataTable As DataTable, destDataTable As DataTable) As List(Of SyncTableScheme)
|
||||||
|
Dim result As New List(Of SyncTableScheme)
|
||||||
|
Dim srcTableName As String
|
||||||
|
Dim destTableName As String
|
||||||
|
Dim isFind As Boolean
|
||||||
|
Dim srcReVId As String = String.Empty
|
||||||
|
Dim destRevId As String
|
||||||
|
For i As Integer = 0 To destDataTable.Rows.Count - 1
|
||||||
|
destTableName = $"{destDataTable.Rows(i)($"{Customer.SyncListTable.ColNamesEnum.TableName}")}"
|
||||||
|
isFind = False
|
||||||
|
|
||||||
|
For j As Integer = 0 To srcDataTable.Rows.Count - 1
|
||||||
|
srcTableName = $"{srcDataTable.Rows(j)($"{Customer.SyncListTable.ColNamesEnum.TableName}")}"
|
||||||
|
|
||||||
|
If String.Compare(destTableName, srcTableName, True) = 0 Then
|
||||||
|
srcReVId = $"{srcDataTable.Rows(j)($"{Customer.SyncListTable.ColNamesEnum.RevisionID}")}"
|
||||||
|
isFind = True
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
If isFind Then
|
||||||
|
destRevId = $"{destDataTable.Rows(i)($"{Customer.SyncListTable.ColNamesEnum.RevisionID}")}"
|
||||||
|
If String.Compare(srcReVId, destRevId, True) <> 0 Then '源表中存在记录且与目的表记录时间不相同
|
||||||
|
result.Add(New SyncTableScheme() With {.TableName = destTableName,
|
||||||
|
.SyncType = $"{destDataTable.Rows(i)($"{Customer.SyncListTable.ColNamesEnum.SyncType}")}",
|
||||||
|
.LastSyncTime = $"{srcDataTable.Rows(i)($"{Customer.SyncListTable.ColNamesEnum.SyncTime}")}",
|
||||||
|
.RevisionID = destRevId,
|
||||||
|
.IsExistsTable = True})
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
result.Add(New SyncTableScheme() With {.TableName = destTableName,
|
||||||
|
.SyncType = $"{destDataTable.Rows(i)($"{Customer.SyncListTable.ColNamesEnum.SyncType}")}",
|
||||||
|
.LastSyncTime = $"2000-01-01 00:00:00",
|
||||||
|
.RevisionID = $"{destDataTable.Rows(i)($"{Customer.SyncListTable.ColNamesEnum.RevisionID}")}",
|
||||||
|
.IsExistsTable = False})
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Return result
|
||||||
|
End Function
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "下载远程数据至本地"
|
||||||
|
''' <summary>
|
||||||
|
''' 更新下载数据表
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="remoteDb">远程数据库执行器</param>
|
||||||
|
''' <param name="localDb">本地数据库执行器</param>
|
||||||
|
''' <param name="tables">需要同步的数据表信息集合</param>
|
||||||
|
Private Sub UpdateTables(remoteDb As DbExecutor, localDb As DbExecutor, dbName As String, tables As List(Of SyncTableScheme))
|
||||||
|
Dim ts As Date
|
||||||
|
Try
|
||||||
|
ts = CDate(remoteDb.ExecuteScalar("select current_timestamp()"))
|
||||||
|
Catch ex As Exception
|
||||||
|
ServiceLog.WriteErrorLog($"Get DB System Time Error:{ex.Message}")
|
||||||
|
Return
|
||||||
|
End Try
|
||||||
|
|
||||||
|
For Each table As SyncTableScheme In tables
|
||||||
|
table.NowSyncTime = ts.ToString("yyyy-MM-dd HH:mm:ss")
|
||||||
|
localDb.BeginTransaction()
|
||||||
|
Try
|
||||||
|
If String.Compare(table.SyncType, "all", True) = 0 Then
|
||||||
|
UpdateTableForAll(remoteDb, localDb, dbName, table)
|
||||||
|
ElseIf String.Compare(table.SyncType, "new", True) = 0 Then
|
||||||
|
'增量更新Update限制,必须包含ID、UpdateTime字段，且ID字段为主键
|
||||||
|
UpdateTableForNew(remoteDb, localDb, dbName, table)
|
||||||
|
Else
|
||||||
|
UpdateTableForAll(remoteDb, localDb, dbName, table)
|
||||||
|
End If
|
||||||
|
|
||||||
|
UpdateVersionTable(localDb, table)
|
||||||
|
Catch ex As Exception
|
||||||
|
ServiceLog.WriteErrorLog($"UpdateTable {table.TableName} Error:{ex.Message}")
|
||||||
|
End Try
|
||||||
|
localDb.CommitTransaction()
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 下载修改全表修改部分的方式下载表
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="remoteDb"></param>
|
||||||
|
''' <param name="localDb"></param>
|
||||||
|
''' <param name="dbName"></param>
|
||||||
|
''' <param name="table"></param>
|
||||||
|
Private Sub UpdateTableForNew(remoteDb As DbExecutor, localDb As DbExecutor, dbName As String, table As SyncTableScheme)
|
||||||
|
Dim maxID As Integer = 0
|
||||||
|
If table.IsExistsTable = False Then
|
||||||
|
Dim remoteTable As DataTable = remoteDb.ExecuteDataTable(remoteDb.CmdHelper.DbSearchAll(dbName, table.TableName, "1 = 0"))
|
||||||
|
Dim createTableString As String = CreateTableStringByDataTable(table.TableName, remoteTable) '获取建表语句
|
||||||
|
localDb.ExecuteNonQuery(createTableString)
|
||||||
|
Else
|
||||||
|
'查询本地最大ID,主键必须为ID
|
||||||
|
Dim cmd As String = localDb.CmdHelper.SearchOrder(New List(Of String)() From {"ID"}, table.TableName, "ORDER BY [ID] DESC LIMIT 1")
|
||||||
|
Dim maxIdObject As Object = localDb.ExecuteScalar(cmd)
|
||||||
|
If IsDBNull(maxIdObject) = False Then
|
||||||
|
maxID = CInt(maxIdObject)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
'通过dataReader插入数据,查询远程更新时间后的所有内容
|
||||||
|
Using reader As DbDataReader = remoteDb.ExecuteReader(remoteDb.CmdHelper.DbSearchAll(dbName, table.TableName, $"`UpdateTime` > '{table.LastSyncTime}'"))
|
||||||
|
While reader.Read()
|
||||||
|
If CInt(reader("ID")) > maxID Then '小于最大ID则更新,大于最大ID则插入
|
||||||
|
InsertDataByDataReader(localDb, table.TableName, reader)
|
||||||
|
Else
|
||||||
|
UpdateDataByDataReader(localDb, table.TableName, reader)
|
||||||
|
End If
|
||||||
|
End While
|
||||||
|
reader.Close()
|
||||||
|
End Using
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 更新全表的方式下载表
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="remoteDb"></param>
|
||||||
|
''' <param name="localDb"></param>
|
||||||
|
''' <param name="table"></param>
|
||||||
|
Private Sub UpdateTableForAll(remoteDb As DbExecutor, localDb As DbExecutor, dbName As String, table As SyncTableScheme)
|
||||||
|
'删除本地表
|
||||||
|
If table.IsExistsTable Then
|
||||||
|
localDb.ExecuteNonQuery(localDb.CmdHelper.DropTable(table.TableName))
|
||||||
|
End If
|
||||||
|
|
||||||
|
'新建表(考虑是否应该查询总数后,依此取1000行的方式下载,或考虑使用DataReader)
|
||||||
|
Dim remoteTable As DataTable = remoteDb.ExecuteDataTable(remoteDb.CmdHelper.DbSearchAll(dbName, table.TableName, "1 = 0"))
|
||||||
|
Dim createTableString As String = CreateTableStringByDataTable(table.TableName, remoteTable) '获取建表语句
|
||||||
|
localDb.ExecuteNonQuery(createTableString)
|
||||||
|
|
||||||
|
'通过dataReader插入数据
|
||||||
|
Using reader As DbDataReader = remoteDb.ExecuteReader(remoteDb.CmdHelper.DbSearchAll(dbName, table.TableName))
|
||||||
|
While reader.Read()
|
||||||
|
InsertDataByDataReader(localDb, table.TableName, reader)
|
||||||
|
End While
|
||||||
|
reader.Close()
|
||||||
|
End Using
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub UpdateDataByDataReader(localDb As DbExecutor, tableName As String, dbReader As DbDataReader)
|
||||||
|
Dim colNames As New List(Of String)
|
||||||
|
|
||||||
|
Using comm As DbCommand = localDb.CreateCommand()
|
||||||
|
For i As Integer = 0 To dbReader.FieldCount - 1
|
||||||
|
colNames.Add(dbReader.GetName(i))
|
||||||
|
|
||||||
|
Dim param As DbParameter = comm.CreateParameter()
|
||||||
|
param.DbType = DbType.Object
|
||||||
|
param.ParameterName = $"@{dbReader.GetName(i)}"
|
||||||
|
param.Value = dbReader.Item(i)
|
||||||
|
|
||||||
|
comm.Parameters.Add(param)
|
||||||
|
Next
|
||||||
|
|
||||||
|
comm.CommandText = localDb.CmdHelper.UpdateParam(tableName, colNames, $"`ID` = {dbReader("ID")}")
|
||||||
|
|
||||||
|
comm.ExecuteNonQuery()
|
||||||
|
End Using
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub InsertDataByDataReader(localDb As DbExecutor, tableName As String, dbReader As DbDataReader)
|
||||||
|
Dim colNames As New List(Of String)
|
||||||
|
|
||||||
|
Using comm As DbCommand = localDb.CreateCommand()
|
||||||
|
For i As Integer = 0 To dbReader.FieldCount - 1
|
||||||
|
colNames.Add(dbReader.GetName(i))
|
||||||
|
|
||||||
|
Dim param As DbParameter = comm.CreateParameter()
|
||||||
|
param.DbType = DbType.Object
|
||||||
|
param.ParameterName = $"@{dbReader.GetName(i)}"
|
||||||
|
param.Value = dbReader.Item(i)
|
||||||
|
|
||||||
|
comm.Parameters.Add(param)
|
||||||
|
Next
|
||||||
|
|
||||||
|
comm.CommandText = localDb.CmdHelper.InsertParam(tableName, colNames)
|
||||||
|
|
||||||
|
comm.ExecuteNonQuery()
|
||||||
|
End Using
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 将目标DataTable的所有数据插入到指定数据表中,不检测是否需要新增列
|
||||||
|
'''
|
||||||
|
''' 后续插入字符需要区别数值与字符串
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="localDb"></param>
|
||||||
|
''' <param name="tableName"></param>
|
||||||
|
''' <param name="dataTable"></param>
|
||||||
|
Private Sub InsertDataByDataTable(localDb As DbExecutor, tableName As String, dataTable As DataTable)
|
||||||
|
Dim colNameParams As New Dictionary(Of String, String)
|
||||||
|
' Dim colParamValues As New Dictionary(Of String, Object)
|
||||||
|
|
||||||
|
For Each dtRow As DataRow In dataTable.Rows
|
||||||
|
For Each dtCol As DataColumn In dataTable.Columns
|
||||||
|
colNameParams.Add(dtCol.ColumnName, $"@{dtCol.ColumnName}")
|
||||||
|
' colParamValues.Add($"@{dtCol.ColumnName}", dtRow(dtCol.ColumnName))
|
||||||
|
|
||||||
|
'存疑是否可以修改
|
||||||
|
Dim param As DbParameter = localDb.Command.CreateParameter()
|
||||||
|
param.DbType = DbType.Object
|
||||||
|
param.ParameterName = $"@{dtCol.ColumnName}"
|
||||||
|
param.Value = dtRow(dtCol.ColumnName)
|
||||||
|
|
||||||
|
localDb.Command.Parameters.Add(param)
|
||||||
|
Next
|
||||||
|
|
||||||
|
Dim cmdText As String = localDb.CmdHelper.Insert(tableName, colNameParams)
|
||||||
|
localDb.ExecuteNonQuery(cmdText) '执行插入
|
||||||
|
localDb.Command.Parameters.Clear() '清空参数
|
||||||
|
|
||||||
|
|
||||||
|
colNameParams.Clear() '复位
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 更新本地数据成功后,同步更新本地版本记录表
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="localDb">本地数据库执行器</param>
|
||||||
|
''' <param name="table">需要同步的数据表信息</param>
|
||||||
|
Private Sub UpdateVersionTable(localDb As DbExecutor, table As SyncTableScheme)
|
||||||
|
Dim tableName As String = Customer.SyncListTable.TableName
|
||||||
|
Dim cmdText As String
|
||||||
|
|
||||||
|
If table.IsExistsTable Then
|
||||||
|
Dim colNameValue As New Dictionary(Of String, String) From {
|
||||||
|
{$"{Customer.SyncListTable.ColNamesEnum.RevisionID}", table.RevisionID},
|
||||||
|
{$"{Customer.SyncListTable.ColNamesEnum.SyncTime}", table.NowSyncTime}
|
||||||
|
}
|
||||||
|
Dim condition As String = $"{Customer.SyncListTable.ColNamesEnum.TableName} = '{table.TableName}'"
|
||||||
|
cmdText = localDb.CmdHelper.Update(tableName, colNameValue, condition)
|
||||||
|
Else
|
||||||
|
Dim colNameValue As New Dictionary(Of String, String) From {
|
||||||
|
{$"{Customer.SyncListTable.ColNamesEnum.TableName}", table.TableName},
|
||||||
|
{$"{Customer.SyncListTable.ColNamesEnum.RevisionID}", table.RevisionID},
|
||||||
|
{$"{Customer.SyncListTable.ColNamesEnum.SyncType}", table.SyncType},
|
||||||
|
{$"{Customer.SyncListTable.ColNamesEnum.SyncTime}", table.NowSyncTime}
|
||||||
|
}
|
||||||
|
cmdText = localDb.CmdHelper.Insert(tableName, colNameValue)
|
||||||
|
End If
|
||||||
|
|
||||||
|
Try
|
||||||
|
localDb.ExecuteNonQuery(cmdText)
|
||||||
|
Catch ex As Exception
|
||||||
|
ServiceLog.WriteErrorLog($"UpdateVersionTable Error:{ex.Message}")
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#Region "数据类型转换"
|
||||||
|
Enum SystemTypeEnum
|
||||||
|
[AnsiString]
|
||||||
|
[AnsiStringFixedLength]
|
||||||
|
Binary
|
||||||
|
[Boolean]
|
||||||
|
[Byte]
|
||||||
|
[DateTime]
|
||||||
|
[Decimal]
|
||||||
|
[Double]
|
||||||
|
[Guid]
|
||||||
|
[Int16]
|
||||||
|
[Int32]
|
||||||
|
[Int64]
|
||||||
|
[SByte]
|
||||||
|
[Single]
|
||||||
|
[String]
|
||||||
|
[TimeSpan]
|
||||||
|
[UInt16]
|
||||||
|
[UInt32]
|
||||||
|
[UInt64]
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 将.net数据类型转换为Sqlite数据类型
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="dataType">.net数据类型</param>
|
||||||
|
''' <returns>转换后的Sqlite数据类型</returns>
|
||||||
|
Public Shared Function ConvertSystemTypeToSqliteType(dataType As String) As String
|
||||||
|
Dim reType As String
|
||||||
|
|
||||||
|
Select Case dataType
|
||||||
|
Case SystemTypeEnum.AnsiString.ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.Varchar.ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.[AnsiStringFixedLength].ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.Nchar.ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.Binary.ToString(), SystemTypeEnum.Byte.ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.Blob.ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.[Boolean].ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.Bit.ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.[DateTime].ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.Datetime.ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.[Decimal].ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.[Decimal].ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.[Double].ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.Real.ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.[Guid].ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.UniqueIdentifier.ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.[Int16].ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.SmallInt.ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.[Int32].ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.[Integer].ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.[Int64].ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.[Integer].ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.[SByte].ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.TinyInt.ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.[Single].ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.[Single].ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.[String].ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.Nvarchar.ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.TimeSpan.ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.Datetime.ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.[UInt16].ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.SmallUint.ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.[UInt32].ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.Uint.ToString()
|
||||||
|
|
||||||
|
Case SystemTypeEnum.[UInt64].ToString()
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.UnsignedInteger.ToString()
|
||||||
|
|
||||||
|
Case "Byte[]"
|
||||||
|
reType = Sqlite.DataParam.DataTypeEnum.Blob.ToString()
|
||||||
|
|
||||||
|
Case Else
|
||||||
|
'reType = Sqlite.DataParam.DataTypeEnum.Varchar.ToString()
|
||||||
|
Throw New Exception($"ConvertSystemTypeToSqliteType，UnDealType:{dataType}{vbNewLine}")
|
||||||
|
End Select
|
||||||
|
|
||||||
|
Return reType
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 通过解析DbDataReader列名与列类型,暂不可用
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="tableName"></param>
|
||||||
|
''' <param name="reader"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
Private Function CreateTableStringByDataReader(tableName As String, reader As DbDataReader) As String
|
||||||
|
Dim builder As New StringBuilder
|
||||||
|
builder.Append($"CREATE TABLE If Not Exists [{tableName}] (")
|
||||||
|
|
||||||
|
For i As Integer = 0 To reader.FieldCount - 1
|
||||||
|
If i = 0 Then
|
||||||
|
'应该修改成通用的类型转换
|
||||||
|
builder.Append($"[{reader.GetName(i)}] {ConvertSystemTypeToSqliteType(reader.GetDataTypeName(i))}")
|
||||||
|
Else
|
||||||
|
builder.Append($", [{reader.GetName(i)}] {ConvertSystemTypeToSqliteType(reader.GetDataTypeName(i))}")
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
builder.Append(" )")
|
||||||
|
Return builder.ToString()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 通过解析DataTable,获取建表语句
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="tableName">数据表名</param>
|
||||||
|
''' <param name="destTable">需要解析的内存数据表</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
Private Function CreateTableStringByDataTable(tableName As String, destTable As DataTable) As String
|
||||||
|
Dim builder As New StringBuilder
|
||||||
|
builder.Append($"CREATE TABLE If Not Exists [{tableName}] (")
|
||||||
|
For i As Integer = 0 To destTable.Columns.Count - 1
|
||||||
|
If i = 0 Then
|
||||||
|
'应该修改成通用的类型转换
|
||||||
|
builder.Append($"[{destTable.Columns(i).ColumnName}] {ConvertSystemTypeToSqliteType(destTable.Columns(i).DataType.Name)}")
|
||||||
|
Else
|
||||||
|
builder.Append($", [{destTable.Columns(i).ColumnName}] {ConvertSystemTypeToSqliteType(destTable.Columns(i).DataType.Name)}")
|
||||||
|
End If
|
||||||
|
|
||||||
|
'列名长度
|
||||||
|
If destTable.Columns(i).MaxLength > -1 Then
|
||||||
|
builder.Append($"({destTable.Columns(i).MaxLength})")
|
||||||
|
End If
|
||||||
|
|
||||||
|
'列为空
|
||||||
|
If destTable.Columns(i).AllowDBNull = False Then
|
||||||
|
builder.Append($" NOT NULL")
|
||||||
|
End If
|
||||||
|
|
||||||
|
'列自增(默认列自增为主键)
|
||||||
|
If destTable.Columns(i).AutoIncrement Then
|
||||||
|
builder.Append($" PRIMARY KEY AutoIncrement")
|
||||||
|
'Else
|
||||||
|
' '唯一值
|
||||||
|
' If destTable.Columns(i).Unique Then
|
||||||
|
' builder.Append($" Unique")
|
||||||
|
' End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
''默认值
|
||||||
|
'If destTable.Columns(i).DefaultValue IsNot Nothing Then
|
||||||
|
' If String.IsNullOrEmpty(destTable.Columns(i).DefaultValue.ToString()) = False Then
|
||||||
|
' builder.Append($" DEFAULT '{destTable.Columns(i).DefaultValue}'")
|
||||||
|
' End If
|
||||||
|
'End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
builder.Append(" )")
|
||||||
|
Return builder.ToString()
|
||||||
|
End Function
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
33
AUTS_DataService/ServiceTask/IServiceTask.vb
Normal file
33
AUTS_DataService/ServiceTask/IServiceTask.vb
Normal file
@@ -0,0 +1,33 @@
|
|||||||
|
''' <summary>
|
||||||
|
''' 任务类型接口，每个任务必须实现的功能
|
||||||
|
''' </summary>
|
||||||
|
Public Interface IServiceTask
|
||||||
|
''' <summary>
|
||||||
|
''' 任务开始
|
||||||
|
''' </summary>
|
||||||
|
Sub Start()
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 任务退出
|
||||||
|
''' </summary>
|
||||||
|
Sub [Stop]()
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 重启任务
|
||||||
|
''' </summary>
|
||||||
|
Sub Restart()
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 设置任务参数
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="params"></param>
|
||||||
|
Sub SetParams(params As Dictionary(Of String, String))
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 获取任务参数
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Function GetParams() As Dictionary(Of String, String)
|
||||||
|
|
||||||
|
|
||||||
|
End Interface
|
||||||
127
AUTS_DataService/ServiceTask/JsonFileListen.vb
Normal file
127
AUTS_DataService/ServiceTask/JsonFileListen.vb
Normal file
@@ -0,0 +1,127 @@
|
|||||||
|
Imports System.IO
|
||||||
|
Imports Newtonsoft.Json
|
||||||
|
|
||||||
|
Imports UTS_Core.Database
|
||||||
|
Imports UTS_Core.UTSModule.DbConnect
|
||||||
|
|
||||||
|
Public Class JsonFileListen
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 读取文件并将内容保存在本地数据库中
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="path"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function ReadFile(db As DbExecutor, path As String) As Boolean
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Begin ReadFile!")
|
||||||
|
|
||||||
|
If File.Exists(path) = False Then
|
||||||
|
Throw New Exception($"{path}不存在！")
|
||||||
|
End If
|
||||||
|
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Get fileLength!")
|
||||||
|
|
||||||
|
Dim fileInfo As New FileInfo(path) '获取文件大小
|
||||||
|
If fileInfo.Length = 0 Then Return True
|
||||||
|
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Begin Read Text String!")
|
||||||
|
|
||||||
|
Using reader As New StreamReader(path)
|
||||||
|
While reader.Peek() <> -1
|
||||||
|
Dim line As String = reader.ReadLine()
|
||||||
|
If String.IsNullOrWhiteSpace(line) Then Continue While '过滤信息
|
||||||
|
line = line.Replace("\", "\\") '处理转义字符
|
||||||
|
|
||||||
|
Dim tmpField As Dictionary(Of String, String)
|
||||||
|
Try
|
||||||
|
tmpField = CType(JsonConvert.DeserializeObject(line, GetType(Dictionary(Of String, String))), Dictionary(Of String, String))
|
||||||
|
Catch ex As Exception
|
||||||
|
ServiceLog.WriteErrorLog($"FileListen JsonConvertToKeyValue Error:{ex.Message};JsonString:{line}")
|
||||||
|
Continue While
|
||||||
|
End Try
|
||||||
|
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Filter Text String!")
|
||||||
|
|
||||||
|
''过滤缺失字段字符串
|
||||||
|
If tmpField.ContainsKey("ProjectName") = False OrElse tmpField.ContainsKey("StationName") = False Then
|
||||||
|
ServiceLog.WriteErrorLog($"FileListen Unexist ProjectName Or StationName Filed,JsonString:{line}")
|
||||||
|
Continue While
|
||||||
|
End If
|
||||||
|
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Filter Text String Success!")
|
||||||
|
|
||||||
|
'数据处理，根据表名进行分类，增删必要字段
|
||||||
|
Dim tableName As String
|
||||||
|
Try
|
||||||
|
Dim projectIndex As Integer = DbConnector.SearchProjectIndex(db, tmpField("ProjectName"))
|
||||||
|
Dim stationIndex As Integer = DbConnector.SearchStationIndex(db, projectIndex, tmpField("StationName"))
|
||||||
|
tableName = UTS_Core.UTSModule.DbTableModel.Customer.TestLogTable.TableName(projectIndex, stationIndex)
|
||||||
|
Catch ex As Exception
|
||||||
|
ServiceLog.WriteErrorLog($"FileListen GetTestLogTableName Error:{ex.Message};ProjectName:{tmpField("ProjectName")};StationName:{tmpField("StationName")}")
|
||||||
|
Continue While
|
||||||
|
End Try
|
||||||
|
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Begin CreateTestLogTable!")
|
||||||
|
|
||||||
|
Try '本地表格新建
|
||||||
|
DbConnector.UtsCreateTestLogTableToLocal(db, tableName)
|
||||||
|
Catch ex As Exception
|
||||||
|
ServiceLog.WriteErrorLog($"FileListen CreateTestLogTable Error:{ex.Message}")
|
||||||
|
Continue While
|
||||||
|
End Try
|
||||||
|
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Begin CreateTestLogTable Success!")
|
||||||
|
|
||||||
|
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Begin Filter Db Filed!")
|
||||||
|
|
||||||
|
|
||||||
|
Dim fields As New Dictionary(Of String, String) '入库字段
|
||||||
|
For Each valuePair As KeyValuePair(Of String, String) In tmpField
|
||||||
|
If String.IsNullOrWhiteSpace(valuePair.Key) Then Continue For
|
||||||
|
If String.Compare(valuePair.Key, "ProjectName", True) = 0 Then Continue For
|
||||||
|
If String.Compare(valuePair.Key, "StationName", True) = 0 Then Continue For
|
||||||
|
|
||||||
|
If String.Compare(valuePair.Key, "ProductionLineID", True) = 0 Then
|
||||||
|
If String.IsNullOrWhiteSpace(valuePair.Value) Then Continue For
|
||||||
|
End If
|
||||||
|
|
||||||
|
If String.Compare(valuePair.Key, "OrderID", True) = 0 Then
|
||||||
|
If String.IsNullOrWhiteSpace(valuePair.Value) Then Continue For
|
||||||
|
End If
|
||||||
|
|
||||||
|
If String.Compare(valuePair.Key, "ServiceID", True) = 0 Then
|
||||||
|
If String.IsNullOrWhiteSpace(valuePair.Value) Then Continue For
|
||||||
|
End If
|
||||||
|
|
||||||
|
If String.Compare(valuePair.Key, "UserID", True) = 0 Then
|
||||||
|
If String.IsNullOrWhiteSpace(valuePair.Value) Then Continue For
|
||||||
|
End If
|
||||||
|
|
||||||
|
fields.Add(valuePair.Key, valuePair.Value) '过滤字段，保留有效字段
|
||||||
|
Next
|
||||||
|
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Begin Filter Db Filed Success!")
|
||||||
|
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen SaveTestRecord!")
|
||||||
|
Try '存储
|
||||||
|
DbConnector.UtsInsertToLocal(db, UTS_Core.UTSModule.UtsDb.RemotePrivateDb, tableName, fields)
|
||||||
|
Catch ex As Exception
|
||||||
|
ServiceLog.WriteErrorLog($"FileListen SaveTestRecord Error:{ex.Message}")
|
||||||
|
Continue While
|
||||||
|
End Try
|
||||||
|
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen SaveTestRecord Success!")
|
||||||
|
End While
|
||||||
|
|
||||||
|
reader.Close()
|
||||||
|
End Using
|
||||||
|
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Begin Clear!")
|
||||||
|
|
||||||
|
File.WriteAllText(path, String.Empty) '清空文件内容,由于多地同时写的原因，有可能会失败
|
||||||
|
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Success!")
|
||||||
|
|
||||||
|
Return True
|
||||||
|
End Function
|
||||||
|
End Class
|
||||||
162
AUTS_DataService/ServiceTask/ListenJsonFileServiceTask.vb
Normal file
162
AUTS_DataService/ServiceTask/ListenJsonFileServiceTask.vb
Normal file
@@ -0,0 +1,162 @@
|
|||||||
|
Imports System.Threading
|
||||||
|
Imports System.Xml.Serialization
|
||||||
|
Imports UTS_Core.UTSModule.Service
|
||||||
|
|
||||||
|
<XmlInclude(GetType(ListenJsonFileServiceTask))>
|
||||||
|
Public Class ListenJsonFileServiceTask
|
||||||
|
Inherits ServiceTask
|
||||||
|
|
||||||
|
Private ReadOnly _jsonFile As JsonFileListen
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
TaskType = ServiceTaskTypeEnum.ListenJsonFile
|
||||||
|
TaskStatus = ServiceTaskStatusEnum.Stop
|
||||||
|
TaskName = "ListenJsonFile"
|
||||||
|
|
||||||
|
_jsonFile = New JsonFileListen()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub New(name As String)
|
||||||
|
TaskType = ServiceTaskTypeEnum.ListenJsonFile
|
||||||
|
TaskStatus = ServiceTaskStatusEnum.Stop
|
||||||
|
TaskName = name
|
||||||
|
|
||||||
|
_jsonFile = New JsonFileListen()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub New(name As String, param As Dictionary(Of String, String))
|
||||||
|
TaskType = ServiceTaskTypeEnum.ListenJsonFile
|
||||||
|
TaskStatus = ServiceTaskStatusEnum.Stop
|
||||||
|
TaskName = name
|
||||||
|
|
||||||
|
_jsonFile = New JsonFileListen()
|
||||||
|
|
||||||
|
SetParams(param)
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 具体的执行过程
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="stat">状态值,暂未启用</param>
|
||||||
|
Private Sub StartCallback(stat As Object)
|
||||||
|
While TaskStatus = ServiceTaskStatusEnum.Start
|
||||||
|
ServiceLog.WriteInfoLog($"SyncTask Wait Timeout.")
|
||||||
|
|
||||||
|
'等待任务
|
||||||
|
Dim lastTime As DateTime = Now
|
||||||
|
While (Now - lastTime).TotalMinutes < Interval
|
||||||
|
If TaskStatus = ServiceTaskStatusEnum.Stop Then
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
|
||||||
|
Thread.Sleep(1000)
|
||||||
|
End While
|
||||||
|
|
||||||
|
|
||||||
|
Using localDb As New UTS_Core.Database.DbExecutor(UTS_Core.UTSModule.UtsDb.LocalDbType, UTS_Core.UTSModule.UtsDb.LocalConnString) '连接本地字符串
|
||||||
|
localDb.Open()
|
||||||
|
localDb.BeginTransaction()
|
||||||
|
Try
|
||||||
|
_jsonFile.ReadFile(localDb, FilePath)
|
||||||
|
Catch ex As Exception
|
||||||
|
ServiceLog.WriteErrorLog($"_jsonFile.ReadFile TaskName:{TaskName},ListenJsonFile Error:{ex.Message}")
|
||||||
|
End Try
|
||||||
|
localDb.CommitTransaction()
|
||||||
|
localDb.Close()
|
||||||
|
End Using
|
||||||
|
End While
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Sub Start()
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Befor StartCallback")
|
||||||
|
|
||||||
|
TaskStatus = ServiceTaskStatusEnum.Start
|
||||||
|
|
||||||
|
If _syncThread IsNot Nothing AndAlso _syncThread.IsAlive Then
|
||||||
|
ServiceLog.WriteInfoLog($"FileListenThread IsAlive!")
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
|
||||||
|
_syncThread = New Thread(AddressOf StartCallback)
|
||||||
|
_syncThread.IsBackground = True
|
||||||
|
_syncThread.Start()
|
||||||
|
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen After StartCallback")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Sub [Stop]()
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Befor Stop!")
|
||||||
|
TaskStatus = ServiceTaskStatusEnum.Stop
|
||||||
|
|
||||||
|
Dim lastTime As DateTime = Now
|
||||||
|
While _syncThread IsNot Nothing AndAlso _syncThread.IsAlive
|
||||||
|
If (Now - lastTime).TotalMilliseconds > 10000 Then
|
||||||
|
_syncThread.Abort()
|
||||||
|
End If
|
||||||
|
|
||||||
|
Thread.Sleep(10)
|
||||||
|
End While
|
||||||
|
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Stop!")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Sub Restart()
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Befor Restart!")
|
||||||
|
If _syncThread IsNot Nothing AndAlso _syncThread.IsAlive Then
|
||||||
|
[Stop]()
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Start()
|
||||||
|
ServiceLog.WriteInfoLog($"FileListen Restart!")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Sub SetParams(params As Dictionary(Of String, String))
|
||||||
|
Dim tmpStatus As ServiceTaskStatusEnum
|
||||||
|
Dim tmpInterval As Integer
|
||||||
|
Dim tmpPath As String = String.Empty
|
||||||
|
|
||||||
|
'将转换后的数据填充至临时缓存,一遍设置失败时可以保留上一次数据
|
||||||
|
For Each param As KeyValuePair(Of String, String) In params
|
||||||
|
Select Case param.Key
|
||||||
|
Case "Interval"
|
||||||
|
If Integer.TryParse(param.Value, tmpInterval) = False Then
|
||||||
|
Throw New Exception($"Error Interval :{param.Value}")
|
||||||
|
End If
|
||||||
|
Case "Path"
|
||||||
|
tmpPath = param.Value
|
||||||
|
Case "Status", "Type", "Name" '不处理的字段
|
||||||
|
End Select
|
||||||
|
Next
|
||||||
|
|
||||||
|
TaskStatus = tmpStatus
|
||||||
|
Interval = tmpInterval
|
||||||
|
FilePath = tmpPath
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Overrides Function GetParams() As Dictionary(Of String, String)
|
||||||
|
Dim params As New Dictionary(Of String, String) From {
|
||||||
|
{"Type", TaskType.ToString()},
|
||||||
|
{"Name", TaskName},
|
||||||
|
{"Status", TaskStatus.ToString()},
|
||||||
|
{"Interval", Interval.ToString()},
|
||||||
|
{"Path", FilePath}
|
||||||
|
}
|
||||||
|
Return params
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Property Interval() As Integer
|
||||||
|
|
||||||
|
Public Property FilePath() As String
|
||||||
|
|
||||||
|
Private _syncThread As Thread
|
||||||
|
End Class
|
||||||
88
AUTS_DataService/ServiceTask/ServiceTask.vb
Normal file
88
AUTS_DataService/ServiceTask/ServiceTask.vb
Normal file
@@ -0,0 +1,88 @@
|
|||||||
|
Imports System.Xml.Serialization
|
||||||
|
|
||||||
|
|
||||||
|
<Serializable>
|
||||||
|
<XmlInclude(GetType(DbSyncServiceTask))>
|
||||||
|
<XmlInclude(GetType(ListenJsonFileServiceTask))>
|
||||||
|
Public MustInherit Class ServiceTask
|
||||||
|
Implements IServiceTask
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 服务任务类型枚举集合
|
||||||
|
''' </summary>
|
||||||
|
Enum ServiceTaskTypeEnum
|
||||||
|
''' <summary>
|
||||||
|
''' 数据库同步
|
||||||
|
''' </summary>
|
||||||
|
DbSync
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 监听Json文件
|
||||||
|
''' </summary>
|
||||||
|
ListenJsonFile
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 服务任务状态枚举值
|
||||||
|
''' </summary>
|
||||||
|
Enum ServiceTaskStatusEnum
|
||||||
|
''' <summary>
|
||||||
|
''' 启动状态
|
||||||
|
''' </summary>
|
||||||
|
Start
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 停止状态
|
||||||
|
''' </summary>
|
||||||
|
[Stop]
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 服务任务类型
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property TaskType() As ServiceTaskTypeEnum
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 服务任务名，服务任务的唯一索引
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property TaskName() As String
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 服务任务的状态
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property TaskStatus() As ServiceTaskStatusEnum
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 任务开启
|
||||||
|
''' </summary>
|
||||||
|
Public MustOverride Sub Start() Implements IServiceTask.Start
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 任务停止
|
||||||
|
''' </summary>
|
||||||
|
Public MustOverride Sub [Stop]() Implements IServiceTask.[Stop]
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 任务重启
|
||||||
|
''' </summary>
|
||||||
|
Public MustOverride Sub Restart() Implements IServiceTask.Restart
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 任务参数集合设置
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="params">任务参数键值对</param>
|
||||||
|
Public MustOverride Sub SetParams(params As Dictionary(Of String, String)) Implements IServiceTask.SetParams
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 任务参数集合获取
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public MustOverride Function GetParams() As Dictionary(Of String, String) Implements IServiceTask.GetParams
|
||||||
|
|
||||||
|
End Class
|
||||||
230
AUTS_DataService/ServiceTask/ServiceTasks.vb
Normal file
230
AUTS_DataService/ServiceTask/ServiceTasks.vb
Normal file
@@ -0,0 +1,230 @@
|
|||||||
|
Imports UTS_Core.UTSModule.Service
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 服务任务列表,管理服务的所有任务
|
||||||
|
''' </summary>
|
||||||
|
Public Class ServiceTasks
|
||||||
|
Private ReadOnly _tasks As Dictionary(Of String, ServiceTask)
|
||||||
|
|
||||||
|
Public Event AddTask(task As Dictionary(Of String, String))
|
||||||
|
Public Event UpdateTask(task As Dictionary(Of String, String))
|
||||||
|
Public Event DelTask(task As String)
|
||||||
|
Public Event ClearTask()
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
_tasks = New Dictionary(Of String, ServiceTask)()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 任务总数
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function Count() As Integer
|
||||||
|
Return _tasks.Count
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 获取所有的服务任务
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function GetAllServiceTasks() As List(Of ServiceTask)
|
||||||
|
Return _tasks.Values.ToList()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 添加任务,默认开启任务
|
||||||
|
''' </summary>
|
||||||
|
Public Sub Add(task As ServiceTask, Optional start As Boolean = True)
|
||||||
|
If String.IsNullOrEmpty(task.TaskName) Then '无效的任务名
|
||||||
|
Throw New Exception($"TaskName {task.TaskName} is invalid!")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If _tasks.ContainsKey(task.TaskName) Then '已存在的任务名
|
||||||
|
Throw New Exception($"TaskName {task.TaskName} already exists!")
|
||||||
|
End If
|
||||||
|
|
||||||
|
_tasks.Add(task.TaskName, task)
|
||||||
|
If start Then task.Start() '默认添加任务时，开启任务
|
||||||
|
RaiseEvent AddTask(task.GetParams())
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 添加任务，默认开启服务
|
||||||
|
''' </summary>
|
||||||
|
Public Sub Add(taskInfo As Dictionary(Of String, String), Optional start As Boolean = True)
|
||||||
|
If taskInfo.ContainsKey("Type") AndAlso taskInfo.ContainsKey("Name") Then
|
||||||
|
Dim task As ServiceTask
|
||||||
|
Select Case taskInfo("Type")'根据类型进行不同任务的初始化
|
||||||
|
Case $"{ ServiceTask.ServiceTaskTypeEnum.DbSync}"
|
||||||
|
task = New DbSyncServiceTask(taskInfo("Name"), taskInfo)
|
||||||
|
Add(task, start)
|
||||||
|
ServiceLog.WriteInfoLog($"taskParam:{task.TaskName} {task.TaskStatus} {task.TaskType}")
|
||||||
|
Case $"{ ServiceTask.ServiceTaskTypeEnum.ListenJsonFile}"
|
||||||
|
task = New ListenJsonFileServiceTask(taskInfo("Name"), taskInfo)
|
||||||
|
Add(task, start)
|
||||||
|
Case Else
|
||||||
|
Throw New Exception($"Unknown Type:{taskInfo("Type")}")
|
||||||
|
End Select
|
||||||
|
Else
|
||||||
|
Throw New Exception($"AddTask Invalid TaskInfo")
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 添加任务列表
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="tasks"></param>
|
||||||
|
Public Sub AddRange(tasks As List(Of ServiceTask), Optional start As Boolean = True)
|
||||||
|
For Each task As ServiceTask In tasks
|
||||||
|
Add(task, start)
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 移除指定的服务任务
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="task"></param>
|
||||||
|
Sub Remove(task As ServiceTask)
|
||||||
|
If _tasks.ContainsKey(task.TaskName) Then
|
||||||
|
task.Stop()
|
||||||
|
RaiseEvent DelTask(task.TaskName)
|
||||||
|
_tasks.Remove(task.TaskName)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 移除指定名称的服务任务
|
||||||
|
''' </summary>
|
||||||
|
Sub RemoveAt(taskName As String)
|
||||||
|
If _tasks.ContainsKey(taskName) Then
|
||||||
|
Remove(_tasks.Item(taskName))
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 清空所有的服务任务
|
||||||
|
''' </summary>
|
||||||
|
Sub Clear()
|
||||||
|
'关闭所有任务
|
||||||
|
For Each task As KeyValuePair(Of String, ServiceTask) In _tasks
|
||||||
|
task.Value.Stop()
|
||||||
|
Next
|
||||||
|
|
||||||
|
'清空任务列表
|
||||||
|
_tasks.Clear()
|
||||||
|
RaiseEvent ClearTask()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 设置指定任务的任务参数
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="taskName"></param>
|
||||||
|
''' <param name="param"></param>
|
||||||
|
Public Sub SetTaskParams(taskName As String, param As Dictionary(Of String, String))
|
||||||
|
If _tasks.ContainsKey(taskName) = False Then '不存在的任务
|
||||||
|
Throw New Exception($"TaskName {taskName} is nonexistent!")
|
||||||
|
End If
|
||||||
|
_tasks.Item(taskName).SetParams(param)
|
||||||
|
RaiseEvent UpdateTask(_tasks.Item(taskName).GetParams())
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 返回指定任务名称的任务参数
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="taskName"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function GetTaskParams(taskName As String) As Dictionary(Of String, String)
|
||||||
|
If _tasks.ContainsKey(taskName) = False Then '不存在的任务
|
||||||
|
Throw New Exception($"TaskName {taskName} is nonexistent!")
|
||||||
|
End If
|
||||||
|
Return _tasks.Item(taskName).GetParams()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 获取所有任务的参数信息
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function GetAllTasksParam() As List(Of Dictionary(Of String, String))
|
||||||
|
Dim allParams As New List(Of Dictionary(Of String, String))
|
||||||
|
For Each task As KeyValuePair(Of String, ServiceTask) In _tasks
|
||||||
|
allParams.Add(task.Value.GetParams())
|
||||||
|
Next
|
||||||
|
Return allParams
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Sub StartTask(taskName As String)
|
||||||
|
If _tasks.ContainsKey(taskName) = False Then '不存在的任务
|
||||||
|
Throw New Exception($"TaskName {taskName} is nonexistent!")
|
||||||
|
End If
|
||||||
|
|
||||||
|
_tasks.Item(taskName).Start()
|
||||||
|
RaiseEvent UpdateTask(_tasks.Item(taskName).GetParams())
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
'''开启所有任务
|
||||||
|
''' </summary>
|
||||||
|
Public Sub StartAllTasks()
|
||||||
|
For Each task As KeyValuePair(Of String, ServiceTask) In _tasks
|
||||||
|
task.Value.Start()
|
||||||
|
RaiseEvent UpdateTask(task.Value.GetParams())
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 结束休眠,立即执行任务
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="taskName"></param>
|
||||||
|
Public Sub RestartTask(taskName As String)
|
||||||
|
If _tasks.ContainsKey(taskName) = False Then '不存在的任务
|
||||||
|
Throw New Exception($"TaskName {taskName} is nonexistent!")
|
||||||
|
End If
|
||||||
|
|
||||||
|
_tasks.Item(taskName).Restart()
|
||||||
|
RaiseEvent UpdateTask(_tasks.Item(taskName).GetParams())
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
'''开启所有任务
|
||||||
|
''' </summary>
|
||||||
|
Public Sub RestartAllTasks()
|
||||||
|
For Each task As KeyValuePair(Of String, ServiceTask) In _tasks
|
||||||
|
task.Value.Restart()
|
||||||
|
RaiseEvent UpdateTask(task.Value.GetParams())
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 停止指定任务名的任务
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="taskName"></param>
|
||||||
|
Public Sub StopTask(taskName As String)
|
||||||
|
If _tasks.ContainsKey(taskName) = False Then '不存在的任务
|
||||||
|
Throw New Exception($"TaskName {taskName} is nonexistent!")
|
||||||
|
End If
|
||||||
|
|
||||||
|
_tasks.Item(taskName).Stop()
|
||||||
|
RaiseEvent UpdateTask(_tasks.Item(taskName).GetParams())
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
'''停止所有任务
|
||||||
|
''' </summary>
|
||||||
|
Public Sub StopAllTasks()
|
||||||
|
For Each task As KeyValuePair(Of String, ServiceTask) In _tasks
|
||||||
|
task.Value.Stop()
|
||||||
|
RaiseEvent UpdateTask(task.Value.GetParams())
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
55
AUTS_DataService/UtsApp/UtsApp.vb
Normal file
55
AUTS_DataService/UtsApp/UtsApp.vb
Normal file
@@ -0,0 +1,55 @@
|
|||||||
|
Imports System.Net.Sockets
|
||||||
|
Imports Newtonsoft.Json
|
||||||
|
Imports Newtonsoft.Json.Converters
|
||||||
|
Imports UTS_Core.UTSModule.Test.StatusMonitor
|
||||||
|
Public Class UtsApp
|
||||||
|
Public Property Name As String
|
||||||
|
|
||||||
|
Public Property ProjectName As String
|
||||||
|
|
||||||
|
Public Property StationName As String
|
||||||
|
|
||||||
|
Public Property TestPlan As String
|
||||||
|
|
||||||
|
Public Property Version As String
|
||||||
|
|
||||||
|
<JsonConverter(GetType(StringEnumConverter))>
|
||||||
|
Public Property Status As AppStatus
|
||||||
|
|
||||||
|
<JsonIgnore>
|
||||||
|
Public Property UtsStatus As ComportStatusMonitor.ComPortConnectStatusEnum
|
||||||
|
|
||||||
|
<JsonIgnore>
|
||||||
|
Public Property TestStatus As TestCommandStatusMonitor.TestCommandStatusEnum
|
||||||
|
|
||||||
|
<JsonIgnore>
|
||||||
|
Public Property Client As TcpClient
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
Name = String.Empty
|
||||||
|
ProjectName = String.Empty
|
||||||
|
StationName = String.Empty
|
||||||
|
TestPlan = String.Empty
|
||||||
|
Version = String.Empty
|
||||||
|
|
||||||
|
UtsStatus = ComportStatusMonitor.ComPortConnectStatusEnum.UnConnected
|
||||||
|
TestStatus = TestCommandStatusMonitor.TestCommandStatusEnum.None
|
||||||
|
Status = AppStatus.Closed
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Enum AppStatus
|
||||||
|
''' <summary>
|
||||||
|
''' 已启动
|
||||||
|
''' </summary>
|
||||||
|
Started
|
||||||
|
''' <summary>
|
||||||
|
''' 已关闭
|
||||||
|
''' </summary>
|
||||||
|
Closed
|
||||||
|
End Enum
|
||||||
|
End Class
|
||||||
83
AUTS_DataService/UtsApp/UtsAppManager.vb
Normal file
83
AUTS_DataService/UtsApp/UtsAppManager.vb
Normal file
@@ -0,0 +1,83 @@
|
|||||||
|
Public Class UtsAppManager
|
||||||
|
''' <summary>
|
||||||
|
''' 设备运行APP列表,键为APP名称，值为App对象
|
||||||
|
''' </summary>
|
||||||
|
Private _appDic As Dictionary(Of String, UtsApp)
|
||||||
|
|
||||||
|
Private _clientDic As Dictionary(Of Net.Sockets.TcpClient, UtsApp)
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
_appDic = New Dictionary(Of String, UtsApp)
|
||||||
|
_clientDic = New Dictionary(Of Net.Sockets.TcpClient, UtsApp)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub AddApp(app As UtsApp)
|
||||||
|
If _appDic.ContainsKey(app.Name) = False Then
|
||||||
|
_appDic.Add(app.Name, app)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 判断App是否存在队列中
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="appName"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function AppExists(appName As String) As Boolean
|
||||||
|
Return _appDic.ContainsKey(appName)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 获取UtsApp对象，没有则添加对象至队列后再返回
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="appName"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function GetApp(appName As String) As UtsApp
|
||||||
|
Static lock As New Object
|
||||||
|
|
||||||
|
SyncLock lock
|
||||||
|
If _appDic.ContainsKey(appName) = False Then
|
||||||
|
ServiceLog.WriteDebugLog($"{appName} Add!")
|
||||||
|
_appDic.Add(appName, New UtsApp())
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
|
||||||
|
Return _appDic(appName)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 获取当前App列表
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function GetAllApps() As List(Of UtsApp)
|
||||||
|
Return _appDic.Values.ToList()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function GetClientBindApp(client As Net.Sockets.TcpClient) As UtsApp
|
||||||
|
If _clientDic.ContainsKey(client) Then
|
||||||
|
Return _clientDic(client)
|
||||||
|
Else
|
||||||
|
Return Nothing
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Sub BindClientAndApp(client As Net.Sockets.TcpClient, app As UtsApp)
|
||||||
|
Static lock As New Object
|
||||||
|
|
||||||
|
SyncLock lock
|
||||||
|
If _clientDic.ContainsKey(client) = False Then
|
||||||
|
_clientDic.Add(client, app)
|
||||||
|
ServiceLog.WriteDebugLog($"{_clientDic(client).Name} Connect!")
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub CancelClientBind(client As Net.Sockets.TcpClient)
|
||||||
|
If _clientDic.ContainsKey(client) Then
|
||||||
|
ServiceLog.WriteDebugLog($"{_clientDic(client).Name} Disconnect!")
|
||||||
|
_clientDic(client).Status = UtsApp.AppStatus.Closed
|
||||||
|
_clientDic(client).Client = Nothing
|
||||||
|
_clientDic.Remove(client)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
31
AUTS_DataService/UtsGroup/ServiceGroup.vb
Normal file
31
AUTS_DataService/UtsGroup/ServiceGroup.vb
Normal file
@@ -0,0 +1,31 @@
|
|||||||
|
Public Class ServiceGroup
|
||||||
|
Sub New()
|
||||||
|
'Fileds = New Dictionary(Of String, String)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 当前服务所属子网组
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property ServiceGroup As String
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 当前服务索引
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property ServiceIndex As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 当前命令类型
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property Type As String
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 当前包号
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property Index As Integer
|
||||||
|
|
||||||
|
Public Property GroupInfo As New Dictionary(Of String, String)
|
||||||
|
End Class
|
||||||
116
AUTS_DataService/UtsGroup/ServiceGroupManager.vb
Normal file
116
AUTS_DataService/UtsGroup/ServiceGroupManager.vb
Normal file
@@ -0,0 +1,116 @@
|
|||||||
|
Imports System.Text
|
||||||
|
|
||||||
|
Public Class ServiceGroupManager
|
||||||
|
''' <summary>历史通讯数据服务集合</summary>
|
||||||
|
Private _groupService As Dictionary(Of Integer, OtherService)
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
_groupService = New Dictionary(Of Integer, OtherService)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 添加网上邻居，已存在则更新存活时间与状态
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="other"></param>
|
||||||
|
Public Sub Add(other As OtherService)
|
||||||
|
If _groupService.ContainsKey(other.ServiceIndex) Then
|
||||||
|
_groupService(other.ServiceIndex).LastTime = Now
|
||||||
|
_groupService(other.ServiceIndex).IsAlive = True
|
||||||
|
Else
|
||||||
|
_groupService.Add(other.ServiceIndex, other)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 校验其他服务的当前发送包索引是否与上一包索引重复，相同返回True，不相同返回False
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function CheckServiceSendIndex(serviceId As Integer, sendId As Integer) As Boolean
|
||||||
|
If _groupService.ContainsKey(serviceId) Then
|
||||||
|
If _groupService(serviceId).LastPacketIndex = sendId Then
|
||||||
|
Return True
|
||||||
|
Else
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 校验服务是否存活
|
||||||
|
''' </summary>
|
||||||
|
Public Sub CheckAliveService()
|
||||||
|
For Each other As KeyValuePair(Of Integer, OtherService) In _groupService
|
||||||
|
If (Now - other.Value.LastTime).TotalSeconds > 30 Then
|
||||||
|
other.Value.IsAlive = False
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 获取存活状态的所有网上邻居的索引字符串，以逗号分割
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function GetAliveServiceIndexString() As String
|
||||||
|
'排序后输出
|
||||||
|
Dim sb As New StringBuilder
|
||||||
|
Dim bt() As Integer = _groupService.Keys.ToArray()
|
||||||
|
Array.Sort(bt)
|
||||||
|
For i As Integer = 0 To bt.Length - 1
|
||||||
|
If _groupService(bt(i)).IsAlive = False Then Continue For
|
||||||
|
If sb.Length = 0 Then
|
||||||
|
sb.Append(bt(i))
|
||||||
|
Else
|
||||||
|
sb.Append("," & bt(i))
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return sb.ToString
|
||||||
|
|
||||||
|
|
||||||
|
'原来的顺序输出
|
||||||
|
'For Each other As KeyValuePair(Of Integer, OtherService) In _groupService
|
||||||
|
' If other.Value.IsAlive = False Then Continue For
|
||||||
|
' If sb.Length = 0 Then
|
||||||
|
' sb.Append(other.Key)
|
||||||
|
' Else
|
||||||
|
' sb.Append("," & other.Key)
|
||||||
|
' End If
|
||||||
|
'Next
|
||||||
|
End Function
|
||||||
|
End Class
|
||||||
|
|
||||||
|
|
||||||
|
Public Class OtherService
|
||||||
|
Sub New(index As Integer, packetIndex As Integer)
|
||||||
|
ServiceIndex = index
|
||||||
|
LastPacketIndex = packetIndex
|
||||||
|
LastTime = Now
|
||||||
|
IsAlive = True
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 最后通讯时间
|
||||||
|
''' </summary>
|
||||||
|
Public Property LastTime As DateTime
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 最后通讯包ID
|
||||||
|
''' </summary>
|
||||||
|
Public Property LastPacketIndex As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 服务索引
|
||||||
|
''' </summary>
|
||||||
|
Public Property ServiceIndex As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 是否判定为在线
|
||||||
|
''' </summary>
|
||||||
|
Public Property IsAlive As Boolean
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
18
AUTS_DataService/UtsWeb/CheckSum.vb
Normal file
18
AUTS_DataService/UtsWeb/CheckSum.vb
Normal file
@@ -0,0 +1,18 @@
|
|||||||
|
Public Class CheckSum
|
||||||
|
''' <summary>
|
||||||
|
''' 获取数据包的和校验
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="packet">数据包的内容</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Shared Function GetPacketCheck(packet() As Byte) As Byte
|
||||||
|
Dim result As Integer
|
||||||
|
|
||||||
|
'当packet的相加综合超过INT_MAX则会异常
|
||||||
|
For Each b As Byte In packet
|
||||||
|
result += b
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return CByte(&HFF - (result And &HFF))
|
||||||
|
End Function
|
||||||
|
|
||||||
|
End Class
|
||||||
5
AUTS_DataService/UtsWeb/IDataPacket.vb
Normal file
5
AUTS_DataService/UtsWeb/IDataPacket.vb
Normal file
@@ -0,0 +1,5 @@
|
|||||||
|
Public Interface IDataPacket
|
||||||
|
Function FillPacket(cmd As Byte, param() As Byte) As Byte()
|
||||||
|
Function CheckPacket(packet() As Byte) As Boolean
|
||||||
|
|
||||||
|
End Interface
|
||||||
194
AUTS_DataService/UtsWeb/UtsWebPacket.vb
Normal file
194
AUTS_DataService/UtsWeb/UtsWebPacket.vb
Normal file
@@ -0,0 +1,194 @@
|
|||||||
|
Imports System.Net
|
||||||
|
|
||||||
|
Public Class UtsWebPacket
|
||||||
|
Implements IDataPacket
|
||||||
|
|
||||||
|
Private _packetSn As Integer
|
||||||
|
|
||||||
|
Sub New()
|
||||||
|
_packetSn = 0
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Function FillPacket(cmd As Byte) As Byte()
|
||||||
|
Dim packet(PacketBits.Command) As Byte
|
||||||
|
packet(PacketBits.Head) = &HAA
|
||||||
|
packet(PacketBits.SerialNumber) = CByte(_packetSn)
|
||||||
|
packet(PacketBits.ParamLength) = &H0
|
||||||
|
packet(PacketBits.ParamLength + 1) = &H0
|
||||||
|
packet(PacketBits.CheckValue) = &H0
|
||||||
|
packet(PacketBits.Command) = cmd
|
||||||
|
packet(PacketBits.CheckValue) = CheckSum.GetPacketCheck(packet)
|
||||||
|
|
||||||
|
_packetSn += 1
|
||||||
|
If _packetSn > &HFF Then _packetSn = 0
|
||||||
|
Return packet
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 用于填充发送包
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="cmd">发送包命令</param>
|
||||||
|
''' <param name="param">发送包参数</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function FillPacket(cmd As Byte, param() As Byte) As Byte() Implements IDataPacket.FillPacket
|
||||||
|
Dim packet(PacketBits.Command + param.Length) As Byte
|
||||||
|
packet(PacketBits.Head) = &HAA
|
||||||
|
packet(PacketBits.SerialNumber) = CByte(_packetSn)
|
||||||
|
Array.Copy(BitConverter.GetBytes(CShort(param.Length)), 0, packet, PacketBits.ParamLength, 2)
|
||||||
|
packet(PacketBits.CheckValue) = &H0
|
||||||
|
packet(PacketBits.Command) = cmd
|
||||||
|
|
||||||
|
Array.Copy(param, 0, packet, PacketBits.Param, param.Length)
|
||||||
|
packet(PacketBits.CheckValue) = CheckSum.GetPacketCheck(packet)
|
||||||
|
|
||||||
|
_packetSn += 1
|
||||||
|
If _packetSn > &HFF Then _packetSn = 0
|
||||||
|
Return packet
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' 一般用于填充回复包
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="sn">接收包序号</param>
|
||||||
|
''' <param name="cmd">接收包命令</param>
|
||||||
|
''' <param name="param">回复包参数</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function FillPacket(sn As Byte, cmd As Byte, param() As Byte) As Byte()
|
||||||
|
Dim packet(PacketBits.Command + param.Length) As Byte
|
||||||
|
packet(PacketBits.Head) = &HAA
|
||||||
|
packet(PacketBits.SerialNumber) = sn
|
||||||
|
Array.Copy(BitConverter.GetBytes(CShort(param.Length)), 0, packet, PacketBits.ParamLength, 2)
|
||||||
|
packet(PacketBits.CheckValue) = &H0
|
||||||
|
packet(PacketBits.Command) = cmd
|
||||||
|
|
||||||
|
Array.Copy(param, 0, packet, PacketBits.Param, param.Length)
|
||||||
|
|
||||||
|
packet(PacketBits.CheckValue) = CheckSum.GetPacketCheck(packet)
|
||||||
|
|
||||||
|
Return packet
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Function CheckPacket(packet() As Byte) As Boolean Implements IDataPacket.CheckPacket
|
||||||
|
If packet(PacketBits.Head) <> &HAA Then
|
||||||
|
Throw New Exception($"Invalid Packet Head!Src:{packet(PacketBits.Head)} Dest:{&HAA}")
|
||||||
|
End If
|
||||||
|
|
||||||
|
'If packet(PacketBits.SerialNumber) <> _packetSn Then
|
||||||
|
' Throw New Exception($"Invalid Packet Sn!Src: {packet(PacketBits.SerialNumber)} Dest:{_packetSn}")
|
||||||
|
'End If
|
||||||
|
|
||||||
|
Dim destLength As Integer = packet.Length - PacketBits.Param
|
||||||
|
|
||||||
|
If BitConverter.ToInt16(packet, PacketBits.ParamLength) <> destLength Then
|
||||||
|
Throw New Exception($"Invalid Packet Lengnt!Src:{packet(PacketBits.ParamLength)} Dest:{destLength}")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If CheckSum.GetPacketCheck(packet) <> &H0 Then
|
||||||
|
Throw New Exception($"Invalid Packet CheckValue!Src:{BitConverter.ToString(packet)}")
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Enum PacketBits
|
||||||
|
''' <summary>包头</summary>
|
||||||
|
Head
|
||||||
|
|
||||||
|
''' <summary>序号</summary>
|
||||||
|
SerialNumber
|
||||||
|
|
||||||
|
''' <summary>包长,两位,小端模式</summary>
|
||||||
|
ParamLength
|
||||||
|
|
||||||
|
''' <summary>校验</summary>
|
||||||
|
CheckValue = ParamLength + 2
|
||||||
|
|
||||||
|
''' <summary>命令</summary>
|
||||||
|
Command
|
||||||
|
|
||||||
|
''' <summary>参数</summary>
|
||||||
|
Param
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
|
||||||
|
<Flags>
|
||||||
|
Enum Commands
|
||||||
|
''' <summary>心跳包</summary>
|
||||||
|
Heartbeat = &H1
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>设置日志上报</summary>
|
||||||
|
SetLogType = &H2
|
||||||
|
|
||||||
|
''' <summary>读取日志上报</summary>
|
||||||
|
GetLogType = &H3
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>服务任务状态变化时，主动上报状态</summary>
|
||||||
|
UploadTaskStatus = &H10
|
||||||
|
|
||||||
|
''' <summary>增加服务任务</summary>
|
||||||
|
AddServiceTask = &H11
|
||||||
|
|
||||||
|
''' <summary>删除服务任务</summary>
|
||||||
|
DelServiceTask = &H12
|
||||||
|
|
||||||
|
''' <summary>获取服务任务</summary>
|
||||||
|
GetServiceTask = &H13
|
||||||
|
|
||||||
|
''' <summary>设置服务任务</summary>
|
||||||
|
SetServiceTask = &H14
|
||||||
|
|
||||||
|
''' <summary>开启服务任务</summary>
|
||||||
|
StartServiceTask = &H15
|
||||||
|
|
||||||
|
''' <summary>停止服务任务</summary>
|
||||||
|
StopServiceTask = &H16
|
||||||
|
|
||||||
|
''' <summary>重启服务任务</summary>
|
||||||
|
RestartServiceTask = &H17
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>上传文件</summary>
|
||||||
|
UploadFile = &H21
|
||||||
|
|
||||||
|
''' <summary>读取指定文件大小</summary>
|
||||||
|
ReadFileSize = &H22
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>App状态变化时，主动上报状态</summary>
|
||||||
|
UploadAppStatus = &H30
|
||||||
|
|
||||||
|
''' <summary>获取App状态</summary>
|
||||||
|
GetAppStatus = &H31
|
||||||
|
|
||||||
|
''' <summary>设置App状态</summary>
|
||||||
|
SetAppStatus = &H32
|
||||||
|
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
|
||||||
|
Public Class PublicIpChangedEventArgs
|
||||||
|
Inherits EventArgs
|
||||||
|
|
||||||
|
Sub New(ip As IPAddress)
|
||||||
|
PublicIP = ip
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Property PublicIP As IPAddress
|
||||||
|
End Class
|
||||||
|
|
||||||
|
Public Class AddTaskEventArgs
|
||||||
|
Inherits EventArgs
|
||||||
|
|
||||||
|
Sub New(jsonString As String)
|
||||||
|
Me.JsonString = jsonString
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Property JsonString As String
|
||||||
|
End Class
|
||||||
|
End Class
|
||||||
248
AUTS_DataService/WebService.vb
Normal file
248
AUTS_DataService/WebService.vb
Normal file
@@ -0,0 +1,248 @@
|
|||||||
|
'Imports System.Net
|
||||||
|
'Imports System.Net.Sockets
|
||||||
|
|
||||||
|
'Public Class WebService
|
||||||
|
' Implements IDisposable
|
||||||
|
|
||||||
|
' Enum PacketDataEnum
|
||||||
|
' Head
|
||||||
|
' SerialNumber
|
||||||
|
' ParamLength
|
||||||
|
' CheckValue
|
||||||
|
' Command
|
||||||
|
' Param
|
||||||
|
' End Enum
|
||||||
|
|
||||||
|
' <Flags()>
|
||||||
|
' Enum PacketSendCmdEnum
|
||||||
|
' Heartbeat = &H1
|
||||||
|
|
||||||
|
' End Enum
|
||||||
|
|
||||||
|
' <Flags()>
|
||||||
|
' Enum PacketReceiveCmdEnum
|
||||||
|
' Heartbeat = &HA1
|
||||||
|
|
||||||
|
' End Enum
|
||||||
|
|
||||||
|
' Private _localPublicIp As String
|
||||||
|
|
||||||
|
' Private ReadOnly _udpClient As UdpClient
|
||||||
|
|
||||||
|
' Private _sendPacketSn As Integer
|
||||||
|
|
||||||
|
' Private ReadOnly _hostName As String
|
||||||
|
|
||||||
|
' Private ReadOnly _remotePort As Integer
|
||||||
|
|
||||||
|
' Private _online As Boolean
|
||||||
|
|
||||||
|
' Private _failCount As Integer
|
||||||
|
|
||||||
|
' Sub New(hostName As String, port As Integer)
|
||||||
|
' _hostName = hostName
|
||||||
|
' _remotePort = port
|
||||||
|
|
||||||
|
' _udpClient = New UdpClient()
|
||||||
|
' _sendPacketSn = 0
|
||||||
|
|
||||||
|
' RetryCount = 2
|
||||||
|
' RetryInterval = 5
|
||||||
|
' WaitRelayTimeout = 2000
|
||||||
|
|
||||||
|
' _online = False
|
||||||
|
' _localPublicIp = String.Empty
|
||||||
|
' End Sub
|
||||||
|
|
||||||
|
|
||||||
|
' Public ReadOnly Property LocalPublicIp() As String
|
||||||
|
' Get
|
||||||
|
' Return _localPublicIp
|
||||||
|
' End Get
|
||||||
|
' End Property
|
||||||
|
|
||||||
|
|
||||||
|
' Public ReadOnly Property Online() As Boolean
|
||||||
|
' Get
|
||||||
|
' Return _online
|
||||||
|
' End Get
|
||||||
|
' End Property
|
||||||
|
|
||||||
|
' ''' <summary>
|
||||||
|
' ''' 重试次数，不包含第一次发送次数，默认值2
|
||||||
|
' ''' </summary>
|
||||||
|
' ''' <returns></returns>
|
||||||
|
' Public Property RetryCount() As Integer
|
||||||
|
|
||||||
|
' ''' <summary>
|
||||||
|
' ''' 重试间隔,单位ms，默认5ms
|
||||||
|
' ''' </summary>
|
||||||
|
' ''' <returns></returns>
|
||||||
|
' Public Property RetryInterval() As Integer
|
||||||
|
|
||||||
|
' ''' <summary>
|
||||||
|
' ''' 等待接收超时时间,单位ms,默认2000ms
|
||||||
|
' ''' </summary>
|
||||||
|
' ''' <returns></returns>
|
||||||
|
' Public Property WaitRelayTimeout() As Integer
|
||||||
|
|
||||||
|
|
||||||
|
' Public Sub SendHeartbeatPacket(serviceIndex As Integer)
|
||||||
|
' Dim sendByte() As Byte = FillPacket(CByte(PacketSendCmdEnum.Heartbeat), BitConverter.GetBytes(serviceIndex))
|
||||||
|
|
||||||
|
' Send(sendByte)
|
||||||
|
' End Sub
|
||||||
|
|
||||||
|
|
||||||
|
' Public Function FillPacket(cmd As Byte, param() As Byte) As Byte()
|
||||||
|
' Dim result(PacketDataEnum.Command + param.Length) As Byte
|
||||||
|
' result(PacketDataEnum.Head) = &HAA
|
||||||
|
' result(PacketDataEnum.SerialNumber) = CByte(_sendPacketSn)
|
||||||
|
' result(PacketDataEnum.ParamLength) = CByte(param.Length)
|
||||||
|
' result(PacketDataEnum.CheckValue) = &H0
|
||||||
|
' result(PacketDataEnum.Command) = cmd
|
||||||
|
|
||||||
|
' Array.Copy(param, 0, result, PacketDataEnum.Param, param.Length)
|
||||||
|
' result(PacketDataEnum.CheckValue) = GetCheckSum(result)
|
||||||
|
|
||||||
|
' Return result
|
||||||
|
' End Function
|
||||||
|
|
||||||
|
|
||||||
|
' Public Sub Send(packet() As Byte)
|
||||||
|
' Static receivedReply As Boolean = False
|
||||||
|
' Static waitReplyStartTime As DateTime
|
||||||
|
|
||||||
|
' receivedReply = False
|
||||||
|
' For i As Integer = 0 To RetryCount
|
||||||
|
' _udpClient.Send(packet, packet.Length, _hostName, _remotePort)
|
||||||
|
' waitReplyStartTime = Now
|
||||||
|
|
||||||
|
|
||||||
|
' While receivedReply = False AndAlso (Now - waitReplyStartTime).TotalMilliseconds < WaitRelayTimeout
|
||||||
|
' If _udpClient.Available <= 0 Then
|
||||||
|
' Threading.Thread.Sleep(50)
|
||||||
|
' Continue While
|
||||||
|
' End If
|
||||||
|
|
||||||
|
' Dim ep As IPEndPoint = Nothing
|
||||||
|
' Dim receiveByte() As Byte = _udpClient.Receive(ep)
|
||||||
|
|
||||||
|
' '校验
|
||||||
|
' Try
|
||||||
|
' CheckPacket(receiveByte)
|
||||||
|
' Catch ex As Exception
|
||||||
|
' ApplicationLog.WriteErrorLog($"Check Receive Data Error:{ex.Message}")
|
||||||
|
' Continue While
|
||||||
|
' End Try
|
||||||
|
|
||||||
|
|
||||||
|
' '处理
|
||||||
|
' Try
|
||||||
|
' DealPacket(receiveByte)
|
||||||
|
' Catch ex As Exception
|
||||||
|
' ApplicationLog.WriteErrorLog($"Deal Receive Data Error:{ex.Message}")
|
||||||
|
' Continue While
|
||||||
|
' End Try
|
||||||
|
|
||||||
|
' receivedReply = True
|
||||||
|
' End While
|
||||||
|
|
||||||
|
' If receivedReply Then
|
||||||
|
' Exit For
|
||||||
|
' End If
|
||||||
|
|
||||||
|
' Threading.Thread.Sleep(RetryInterval)
|
||||||
|
' Next
|
||||||
|
|
||||||
|
' If _sendPacketSn + 1 >= 256 Then
|
||||||
|
' _sendPacketSn = 0
|
||||||
|
' Else
|
||||||
|
' _sendPacketSn += 1
|
||||||
|
' End If
|
||||||
|
|
||||||
|
' If receivedReply = False Then
|
||||||
|
' _failCount += 1
|
||||||
|
' If _failCount >= 3 Then
|
||||||
|
' _failCount = 3
|
||||||
|
' _online = False
|
||||||
|
' End If
|
||||||
|
' Else
|
||||||
|
' _failCount = 0
|
||||||
|
' _online = True
|
||||||
|
' End If
|
||||||
|
' End Sub
|
||||||
|
|
||||||
|
|
||||||
|
' Private Sub CheckPacket(packet() As Byte)
|
||||||
|
' If packet(PacketDataEnum.Head) <> &HAA Then
|
||||||
|
' Throw New Exception($"Invalid Packet Head!Src:{packet(PacketDataEnum.Head)} Dest:{&HAA}")
|
||||||
|
' End If
|
||||||
|
|
||||||
|
' If packet(PacketDataEnum.SerialNumber) <> _sendPacketSn Then
|
||||||
|
' Throw New Exception($"Invalid Packet Sn!Src: {packet(PacketDataEnum.SerialNumber)} Dest:{_sendPacketSn}")
|
||||||
|
' End If
|
||||||
|
|
||||||
|
' Dim destLength As Integer = packet.Length - PacketDataEnum.Param
|
||||||
|
' If packet(PacketDataEnum.ParamLength) <> destLength Then
|
||||||
|
' Throw New Exception($"Invalid Packet Lengnt!Src:{packet(PacketDataEnum.ParamLength)} Dest:{destLength}")
|
||||||
|
' End If
|
||||||
|
|
||||||
|
' If GetBytesSum(packet) <> &HFF Then
|
||||||
|
' Throw New Exception($"Invalid Packet CheckValue!Src:{BitConverter.ToString(packet)}")
|
||||||
|
' End If
|
||||||
|
|
||||||
|
' End Sub
|
||||||
|
|
||||||
|
|
||||||
|
' Private Function GetCheckSum(packet() As Byte) As Byte
|
||||||
|
' Dim result As Integer
|
||||||
|
|
||||||
|
' For Each b As Byte In packet
|
||||||
|
' result += b
|
||||||
|
' result = result And &HFF
|
||||||
|
' Next
|
||||||
|
|
||||||
|
' Return CByte(&HFF - result)
|
||||||
|
' End Function
|
||||||
|
|
||||||
|
|
||||||
|
' Private Function GetBytesSum(packet() As Byte) As Byte
|
||||||
|
' Dim result As Integer
|
||||||
|
|
||||||
|
' For Each b As Byte In packet
|
||||||
|
' result += b
|
||||||
|
' result = result And &HFF
|
||||||
|
' Next
|
||||||
|
|
||||||
|
' Return CByte(result)
|
||||||
|
' End Function
|
||||||
|
|
||||||
|
|
||||||
|
' Public Sub DealPacket(packet() As Byte)
|
||||||
|
' Select Case packet(PacketDataEnum.Command)
|
||||||
|
' Case CByte(PacketReceiveCmdEnum.Heartbeat)
|
||||||
|
' DealHeartbeatPacket(packet)
|
||||||
|
' Case Else
|
||||||
|
' Throw New Exception($"Unknown Command:{packet(PacketDataEnum.Command)}")
|
||||||
|
' End Select
|
||||||
|
|
||||||
|
' End Sub
|
||||||
|
|
||||||
|
|
||||||
|
' Private Sub DealHeartbeatPacket(packet() As Byte)
|
||||||
|
' Dim tmpIp As String
|
||||||
|
' tmpIp = $"{packet(PacketDataEnum.Param)}.{packet(PacketDataEnum.Param + 1)}.{packet(PacketDataEnum.Param + 2)}.{packet(PacketDataEnum.Param + 3)}"
|
||||||
|
|
||||||
|
' If String.Compare(LocalPublicIp,tmpIp) <> 0 Then
|
||||||
|
' _localPublicIp = tmpIp
|
||||||
|
' End If
|
||||||
|
|
||||||
|
' End Sub
|
||||||
|
|
||||||
|
' Public Sub Dispose() Implements IDisposable.Dispose
|
||||||
|
' _udpClient.Dispose()
|
||||||
|
|
||||||
|
' End Sub
|
||||||
|
|
||||||
|
'End Class
|
||||||
105
AUTS_DataService/版本说明.txt
Normal file
105
AUTS_DataService/版本说明.txt
Normal file
@@ -0,0 +1,105 @@
|
|||||||
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||||
|
1<><31><EFBFBD>ƶ˽<C6B6><CBBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ⣺Weistech
|
||||||
|
<20><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD>SW-430-BattTestTool
|
||||||
|
|
||||||
|
2<><32><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˺ţ<CBBA>sa
|
||||||
|
<20><>¼<EFBFBD><C2BC><EFBFBD>룺%*UgFTR#SW*kj?n
|
||||||
|
Զ<><D4B6>IP<49><50>122.152.232.170
|
||||||
|
<20><><EFBFBD>ʶ˿<CAB6>:2233
|
||||||
|
|
||||||
|
3<><33><EFBFBD><EFBFBD><EFBFBD>ݱ<EFBFBD><DDB1>ֶΣ<D6B6>
|
||||||
|
Device:<3A><><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD>
|
||||||
|
FW<46><57><EFBFBD>̼<EFBFBD><CCBC>汾<EFBFBD><E6B1BE>
|
||||||
|
SN<53><4E><EFBFBD><EFBFBD><EFBFBD>к<EFBFBD> <20><>ͨ<EFBFBD><CDA8>ɨ<EFBFBD><C9A8>ǹɨ<C7B9><C9A8><EFBFBD><EFBFBD><EFBFBD>룩
|
||||||
|
DateTime_1st<73><74><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>
|
||||||
|
BattLevel_1st<73><74><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>¼<EFBFBD><C2BC>ʱ<EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD>
|
||||||
|
DateTime_2nd<6E><64><EFBFBD>ڶ<EFBFBD><DAB6><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>
|
||||||
|
BattLevel_2nd<6E><64><EFBFBD>ڶ<EFBFBD><DAB6><EFBFBD>¼<EFBFBD><C2BC>ʱ<EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD>
|
||||||
|
|
||||||
|
TimeDiff<66><66><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ó<EFBFBD><C3B3><EFBFBD>
|
||||||
|
BattDiff<66><66><EFBFBD><EFBFBD><EFBFBD>ε<EFBFBD><CEB5><EFBFBD><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ó<EFBFBD><C3B3><EFBFBD>
|
||||||
|
|
||||||
|
4<><34>ʹ<EFBFBD><CAB9>ʱ<EFBFBD><CAB1><EFBFBD>û<EFBFBD><C3BB>ȸ<EFBFBD><C8B8><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>ϵ磬Ȼ<E7A3AC><C8BB><EFBFBD><EFBFBD><EFBFBD>е<EFBFBD>һ<EFBFBD><D2BB>¼<EFBFBD>롣
|
||||||
|
<20><>һ<EFBFBD><D2BB>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><F3A3ACBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>죬Ȼ<ECA3AC><C8BB>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>еڶ<D0B5><DAB6><EFBFBD>¼<EFBFBD>롣
|
||||||
|
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܾ<EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ʾ<EFBFBD>û<EFBFBD><C3BB><EFBFBD>
|
||||||
|
1<><31><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>¼<EFBFBD><C2BC>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>100%
|
||||||
|
2<><32><EFBFBD>ڶ<EFBFBD><DAB6><EFBFBD>¼<EFBFBD><C2BC>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF>в<EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||||
|
3<><33><EFBFBD><EFBFBD><EFBFBD>ͱ<EFBFBD><CDB1>Ų<EFBFBD><C5B2>Ի<EFBFBD>FW<46>汾<EFBFBD><E6B1BE><EFBFBD><EFBFBD>
|
||||||
|
|
||||||
|
5<><35><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֻ<EFBFBD><D6BB>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><F2BFAABA>IJ<EFBFBD><C4B2><EFBFBD><EFBFBD>Ļ<EFBFBD><C4BB>ͣ<EFBFBD><CDA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>л<EFBFBD><D0BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݶ<EFBFBD>Ҫд<D2AA><D0B4><EFBFBD>ƶ<EFBFBD><C6B6><EFBFBD><EFBFBD>ݿ<EFBFBD>
|
||||||
|
6<><36><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>кŲ<D0BA>ѯ<EFBFBD><D1AF><EFBFBD>ݼ<EFBFBD>¼
|
||||||
|
|
||||||
|
|
||||||
|
V1.0.0: 2020-06-19 Momo/QiZhengBiao Frist Released
|
||||||
|
|
||||||
|
V2.0.0: 2020-7-20 Momo
|
||||||
|
1<><31><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>¼<EFBFBD>룬ԭ<EBA3AC><EFBFBD><DEB6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ100%<25><><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>90~100%֮<>䣬<EFBFBD><E4A3AC><EFBFBD><EFBFBD>С<EFBFBD><D0A1>100%<25><>
|
||||||
|
|
||||||
|
V2.1.0: 2020-7-27 Momo
|
||||||
|
1<><31><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>¼<EFBFBD>룬<EFBFBD><EBA3AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>30~99%֮<>䡣
|
||||||
|
2<><32><EFBFBD><EFBFBD>FW<46>汾<EFBFBD><E6B1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>V1_36<33><36>
|
||||||
|
|
||||||
|
V2.2.0<EFBFBD><EFBFBD>2020-8-21 Qizhenbiao
|
||||||
|
1<><31><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><DEB6>ģ<DEB8>30~95%֮<>䣬<EFBFBD><E4A3AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD>ܾ<F3B2A2BE>¼<EFBFBD><C2BC>
|
||||||
|
2<><32><EFBFBD>ڶ<EFBFBD><DAB6>ε<EFBFBD><CEB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֱ<EFBFBD><D6B1><EFBFBD>С<EFBFBD>ڵ<EFBFBD><DAB5>ڵ<EFBFBD>һ<EFBFBD>ε<EFBFBD><CEB5><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD>ܾ<F3B2A2BE>¼<EFBFBD><C2BC>
|
||||||
|
3<><33><EFBFBD>ڶ<EFBFBD><DAB6>ε<EFBFBD><CEB5><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD>һ<EFBFBD><D2BB>¼<EFBFBD><C2BC><EFBFBD><EFBFBD>48~144Сʱ<D0A1><CAB1>2~6<>죩֮<ECA3A9>䣬<EFBFBD><E4A3AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD>ܾ<F3B2A2BE>¼<EFBFBD><C2BC>
|
||||||
|
4<><34><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>ǰ<EFBFBD><C7B0><EFBFBD>£<EFBFBD><C2A3><EFBFBD><EFBFBD>ε<EFBFBD><CEB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-5%~0%֮<>䣬<EFBFBD><E4A3AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Χ<EFBFBD><CEA7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD>룬<EFBFBD>ж<EFBFBD>Ϊʧ<CEAA>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ժ<EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ,<2C><><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>PASS<53><53>FAIL<49><4C>ʾ<EFBFBD><CABE>
|
||||||
|
5<><35><EFBFBD>ڼ<EFBFBD><DABC>ز<EFBFBD><D8B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD>4<EFBFBD><34><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||||
|
6<><36><EFBFBD>ڼ<EFBFBD><DABC>ز<EFBFBD><D8B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>0%<25><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ժ<EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD>ֱ<EFBFBD>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||||
|
7<><37><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˫<EFBFBD><CBAB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><F2A3ACB0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||||
|
8<><38>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͳ<EFBFBD>ƣ<EFBFBD><C6A3><EFBFBD>һ<EFBFBD><D2BB>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڶ<EFBFBD><DAB6><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>
|
||||||
|
|
||||||
|
V2.2.1.1<EFBFBD><EFBFBD>2020-8-21 Qizhenbiao
|
||||||
|
1<><31>ָ<EFBFBD><D6B8>Sn<53><6E>ѯʱ<D1AF><CAB1>Ӧ<EFBFBD><D3A6>ȫ<EFBFBD><C8AB><EFBFBD><EFBFBD>ѯ<EFBFBD><D1AF>ͳ<EFBFBD>ƹ<EFBFBD><C6B9>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>ʾ<EFBFBD><CABE>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD><EFBFBD>Բ<EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE>ɫ<EFBFBD><C9AB>δ<EFBFBD><CEB4><EFBFBD>ɲ<EFBFBD><C9B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE>ɫ<EFBFBD><C9AB>
|
||||||
|
2<><32>Sn<53><6E>ѯ֧<D1AF><D6A7>ɨ<EFBFBD><C9A8><EFBFBD><EFBFBD><EFBFBD>룬<EFBFBD><EBA3AC><EFBFBD><EFBFBD>ѯһ<D1AF><D2BB><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧<EFBFBD>ַ<EFBFBD>Χ<EFBFBD><CEA7><EFBFBD>ݲ<EFBFBD>ѯ<EFBFBD><D1AF>
|
||||||
|
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯʱ<D1AF><CAB1><EFBFBD>꽹<EFBFBD><EABDB9><EFBFBD>Զ<EFBFBD><D4B6>ص<EFBFBD>SN<53><4E><EFBFBD><EFBFBD><EFBFBD><EFBFBD><F2A3ACB2>ҽ<EFBFBD><D2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȫѡ<C8AB><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɨ<EFBFBD><C9A8>ǹɨ<C7B9><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||||
|
3<><33><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯʱ<D1AF><CAB1>pass<73><73>fail<69><6C>ʾ<EFBFBD><CABE>ɫ<EFBFBD><C9AB>ͬʱ<CDAC><CAB1><EFBFBD>Ͻ<EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD>ʾPASS<53><53>FAIL<49><4C><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>в<EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE>---<2D><><EFBFBD><EFBFBD>
|
||||||
|
4, ÿ<>γ<EFBFBD><CEB3><EFBFBD><EFBFBD>ر<EFBFBD>ǰ<EFBFBD><C7B0><EFBFBD>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>xls<6C><73>ʽ<EFBFBD>ı<EFBFBD><C4B1>ݡ<EFBFBD>
|
||||||
|
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> app.path\DATA\BAK\ Ŀ¼<C4BF>£<EFBFBD><C2A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>DAT_BAK_20200827_111606<30><36>
|
||||||
|
|
||||||
|
V2.2.2.0<EFBFBD><EFBFBD>2020-8-21 Qizhenbiao
|
||||||
|
1<><31><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>豸<EFBFBD><E8B1B8><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>зǿ<D0B7><C7BF>жϣ<D0B6><CFA3><EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>ʱ<EFBFBD><CAB1><EFBFBD>µ<EFBFBD><C2B5>쳣<EFBFBD><ECB3A3>
|
||||||
|
|
||||||
|
|
||||||
|
V2.3.0.0<EFBFBD><EFBFBD>2020-9-10 MomoWen
|
||||||
|
1<><31><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>ԭ2~6<>죬<EFBFBD><ECA3AC>Ϊ8~12<31>졣
|
||||||
|
2<><32><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԭС<D4AD>ڵ<EFBFBD><DAB5><EFBFBD>5%<25><><EFBFBD><EFBFBD>ΪС<CEAA><D0A1>5%<25><>
|
||||||
|
3<><33>ÿ<EFBFBD>ιرճ<D8B1><D5B3><EFBFBD><F2A3ACB1><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
|
||||||
|
|
||||||
|
V2.4.0.0<EFBFBD><EFBFBD>2020-9-15 QiZhengbiao
|
||||||
|
1<><31><EFBFBD><EFBFBD><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD>β<EFBFBD><CEB2><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>β<EFBFBD><CEB2><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>һ<EFBFBD>Ρ<EFBFBD><CEA1>ڶ<EFBFBD><DAB6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݶ<EFBFBD><DDB6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>㣬ֱ<E3A3AC>ӱȽϵ<C8BD><CFB5><EFBFBD>ֵ<EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=50%Ϊpass<73><73>
|
||||||
|
2<><32>load<61><64><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD>β<EFBFBD><CEB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҳ<EFBFBD><D2B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Dz<EFBFBD><C7B2><EFBFBD><EFBFBD><EFBFBD>pass<73><73>fail<69>ж<EFBFBD>
|
||||||
|
3<><33>load<61><64><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>Ե<EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݼ<EFBFBD><DDBC><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>жϣ<D0B6>С<EFBFBD><D0A1>8<EFBFBD><38><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>12<31><32><EFBFBD>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD><C3B5><EFBFBD>ɫ<EFBFBD><C9AB>ɫ<EFBFBD><C9AB>ע<EFBFBD><D7A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD><EFBFBD>Ե<EFBFBD><D4B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ж<EFBFBD>pass<73><73>fail<69><6C><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>
|
||||||
|
4<><34><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>һ<EFBFBD>㣬<EFBFBD><E3A3AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD>
|
||||||
|
|
||||||
|
V2.5.0.0:2020-11-02 Qizengbiao
|
||||||
|
1.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>UTS_Core<72><65><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||||
|
|
||||||
|
V2.5.1.0:2020-12-09 Qizengbiao
|
||||||
|
1.<2E><><EFBFBD><EFBFBD><EFBFBD>ε<EFBFBD><CEB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Լ<EFBFBD><D4BC><EFBFBD>ԭ8~12<31>죬<EFBFBD><EFBFBD>Ϊ6~12<31><32>
|
||||||
|
|
||||||
|
V2.5.3.0:2020-12-10 Qizengbiao
|
||||||
|
1.<2E>ϴ<EFBFBD><CFB4><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ΪDevSN<53>ֶ<EFBFBD>
|
||||||
|
2.<2E><>һ<EFBFBD><D2BB>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>Ӽ<EFBFBD>¼UserID<49><44>StartTime
|
||||||
|
3.<2E>ڶ<EFBFBD><DAB6><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>Ӽ<EFBFBD>¼TestResult
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
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 |
Binary file not shown.
|
After Width: | Height: | Size: 361 KiB |
194
AUTS_Repair/AUTS_Repair.vbproj
Normal file
194
AUTS_Repair/AUTS_Repair.vbproj
Normal file
@@ -0,0 +1,194 @@
|
|||||||
|
<?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>{DA8F65CE-2AE0-41F5-9BA8-27BAFDA270F8}</ProjectGuid>
|
||||||
|
<OutputType>WinExe</OutputType>
|
||||||
|
<StartupObject>AUTS_Repair.My.MyApplication</StartupObject>
|
||||||
|
<RootNamespace>AUTS_Repair</RootNamespace>
|
||||||
|
<AssemblyName>AUTS_Repair</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>WindowsForms</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
|
||||||
|
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
|
||||||
|
<Deterministic>true</Deterministic>
|
||||||
|
<NuGetPackageImportStamp>
|
||||||
|
</NuGetPackageImportStamp>
|
||||||
|
</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_Repair.xml</DocumentationFile>
|
||||||
|
<NoWarn>
|
||||||
|
</NoWarn>
|
||||||
|
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
|
||||||
|
</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_Repair.xml</DocumentationFile>
|
||||||
|
<NoWarn>
|
||||||
|
</NoWarn>
|
||||||
|
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>On</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>Off</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<ApplicationIcon>1287509_tools_configuration_control_options_repair_icon.ico</ApplicationIcon>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="FlexCell, Version=4.7.0.0, Culture=neutral, PublicKeyToken=6f86587eb70ee309, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>C:\Program Files (x86)\FlexCell Technologies\FlexCell.NET4\bin\FlexCell.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="FluentFTP, Version=33.0.3.0, Culture=neutral, PublicKeyToken=f4af092b1d8df44f, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\FluentFTP.33.0.3\lib\net45\FluentFTP.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Buffers, Version=4.0.4.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\System.Buffers.4.6.0\lib\net462\System.Buffers.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Deployment" />
|
||||||
|
<Reference Include="System.Drawing" />
|
||||||
|
<Reference Include="System.Drawing.Common, Version=6.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\System.Drawing.Common.6.0.0\lib\net461\System.Drawing.Common.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System.Memory, Version=4.0.1.2, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\System.Memory.4.5.5\lib\net461\System.Memory.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System.Numerics" />
|
||||||
|
<Reference Include="System.Numerics.Vectors, Version=4.1.4.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\System.Numerics.Vectors.4.5.0\lib\net46\System.Numerics.Vectors.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.0.0\lib\net461\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System.ValueTuple, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\System.ValueTuple.4.5.0\lib\net47\System.ValueTuple.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System.Web" />
|
||||||
|
<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" />
|
||||||
|
<Reference Include="TeeChart, Version=4.1.2017.2153, Culture=neutral, PublicKeyToken=9c8126276c77bdb7, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>bin\Debug\TeeChart.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
</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="Form1.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Form1.Designer.vb">
|
||||||
|
<DependentUpon>Form1.vb</DependentUpon>
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="FrmCheckLog.Designer.vb">
|
||||||
|
<DependentUpon>FrmCheckLog.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="FrmCheckLog.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="FrmImage.Designer.vb">
|
||||||
|
<DependentUpon>FrmImage.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="FrmImage.vb">
|
||||||
|
<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="Form1.resx">
|
||||||
|
<DependentUpon>Form1.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="FrmCheckLog.resx">
|
||||||
|
<DependentUpon>FrmCheckLog.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="FrmImage.resx">
|
||||||
|
<DependentUpon>FrmImage.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" />
|
||||||
|
<None Include="packages.config" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Content Include="1287509_tools_configuration_control_options_repair_icon.ico" />
|
||||||
|
<None Include="bin\Debug\RepairImage\NoImg40_30.png" />
|
||||||
|
<None Include="Resources\NoImagePreview.bmp" />
|
||||||
|
</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>
|
||||||
26
AUTS_Repair/App.config
Normal file
26
AUTS_Repair/App.config
Normal file
@@ -0,0 +1,26 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<configuration>
|
||||||
|
<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>
|
||||||
|
</configuration>
|
||||||
933
AUTS_Repair/Form1.Designer.vb
generated
Normal file
933
AUTS_Repair/Form1.Designer.vb
generated
Normal file
@@ -0,0 +1,933 @@
|
|||||||
|
<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()
|
||||||
|
Me.components = New System.ComponentModel.Container()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmMain))
|
||||||
|
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||||
|
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||||
|
Me.TabRepairSource = New System.Windows.Forms.TabControl()
|
||||||
|
Me.TabPage8 = New System.Windows.Forms.TabPage()
|
||||||
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.TxtDevSn = New System.Windows.Forms.TextBox()
|
||||||
|
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.TvwTestLog = New System.Windows.Forms.TreeView()
|
||||||
|
Me.lblPassFailDisplay = New System.Windows.Forms.Label()
|
||||||
|
Me.TabPage9 = New System.Windows.Forms.TabPage()
|
||||||
|
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.TvwTestLog_Request = New System.Windows.Forms.TreeView()
|
||||||
|
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||||
|
Me.TvwRepairRequest = New System.Windows.Forms.TreeView()
|
||||||
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.TxtMarketSn = New System.Windows.Forms.TextBox()
|
||||||
|
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
|
||||||
|
Me.GrpTestLog = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.BtnCheckTest = New System.Windows.Forms.Button()
|
||||||
|
Me.TabControl2 = New System.Windows.Forms.TabControl()
|
||||||
|
Me.TabPage6 = New System.Windows.Forms.TabPage()
|
||||||
|
Me.GrdSnRecord = New FlexCell.Grid()
|
||||||
|
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
||||||
|
Me.GrdAllRecord = New FlexCell.Grid()
|
||||||
|
Me.TabPage4 = New System.Windows.Forms.TabPage()
|
||||||
|
Me.GrdPassRecord = New FlexCell.Grid()
|
||||||
|
Me.TabPage5 = New System.Windows.Forms.TabPage()
|
||||||
|
Me.GrdFailRecord = New FlexCell.Grid()
|
||||||
|
Me.GrpRepairLog = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.BtnCheckRepair = New System.Windows.Forms.Button()
|
||||||
|
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||||
|
Me.TabPage7 = New System.Windows.Forms.TabPage()
|
||||||
|
Me.GrdSnRepair = New FlexCell.Grid()
|
||||||
|
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||||
|
Me.GrdTestPlan = New FlexCell.Grid()
|
||||||
|
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||||
|
Me.GrdErrCode = New FlexCell.Grid()
|
||||||
|
Me.Label7 = New System.Windows.Forms.Label()
|
||||||
|
Me.CboRepairScheme = New System.Windows.Forms.ComboBox()
|
||||||
|
Me.CboRepairReason = New System.Windows.Forms.ComboBox()
|
||||||
|
Me.CboRepairType = New System.Windows.Forms.ComboBox()
|
||||||
|
Me.Label5 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label4 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label3 = New System.Windows.Forms.Label()
|
||||||
|
Me.CboRepairResult = New System.Windows.Forms.ComboBox()
|
||||||
|
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||||
|
Me.TsmiCopy = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.TsmiPaste = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.TsmiDelete = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||||
|
Me.完整图像ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.TsBtnImg0 = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TsBtnImg1 = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TsBtnImg2 = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TsBtnImg3 = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.Label2 = New System.Windows.Forms.Label()
|
||||||
|
Me.BtnCommit = New System.Windows.Forms.Button()
|
||||||
|
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||||
|
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||||
|
Me.SplitContainer1.SuspendLayout()
|
||||||
|
Me.TabRepairSource.SuspendLayout()
|
||||||
|
Me.TabPage8.SuspendLayout()
|
||||||
|
Me.GroupBox2.SuspendLayout()
|
||||||
|
Me.GroupBox3.SuspendLayout()
|
||||||
|
Me.TabPage9.SuspendLayout()
|
||||||
|
Me.GroupBox5.SuspendLayout()
|
||||||
|
Me.GroupBox4.SuspendLayout()
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.GroupBox1.SuspendLayout()
|
||||||
|
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SplitContainer2.Panel1.SuspendLayout()
|
||||||
|
Me.SplitContainer2.Panel2.SuspendLayout()
|
||||||
|
Me.SplitContainer2.SuspendLayout()
|
||||||
|
Me.GrpTestLog.SuspendLayout()
|
||||||
|
Me.TabControl2.SuspendLayout()
|
||||||
|
Me.TabPage6.SuspendLayout()
|
||||||
|
Me.TabPage3.SuspendLayout()
|
||||||
|
Me.TabPage4.SuspendLayout()
|
||||||
|
Me.TabPage5.SuspendLayout()
|
||||||
|
Me.GrpRepairLog.SuspendLayout()
|
||||||
|
Me.TabControl1.SuspendLayout()
|
||||||
|
Me.TabPage7.SuspendLayout()
|
||||||
|
Me.TabPage1.SuspendLayout()
|
||||||
|
Me.TabPage2.SuspendLayout()
|
||||||
|
Me.ToolStrip2.SuspendLayout()
|
||||||
|
Me.ContextMenuStrip1.SuspendLayout()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'StatusStrip1
|
||||||
|
'
|
||||||
|
Me.StatusStrip1.Location = New System.Drawing.Point(0, 679)
|
||||||
|
Me.StatusStrip1.Name = "StatusStrip1"
|
||||||
|
Me.StatusStrip1.Size = New System.Drawing.Size(798, 22)
|
||||||
|
Me.StatusStrip1.TabIndex = 2
|
||||||
|
Me.StatusStrip1.Text = "StatusStrip1"
|
||||||
|
'
|
||||||
|
'SplitContainer1
|
||||||
|
'
|
||||||
|
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
|
||||||
|
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.SplitContainer1.Name = "SplitContainer1"
|
||||||
|
'
|
||||||
|
'SplitContainer1.Panel1
|
||||||
|
'
|
||||||
|
Me.SplitContainer1.Panel1.Controls.Add(Me.TabRepairSource)
|
||||||
|
'
|
||||||
|
'SplitContainer1.Panel2
|
||||||
|
'
|
||||||
|
Me.SplitContainer1.Panel2.Controls.Add(Me.SplitContainer2)
|
||||||
|
Me.SplitContainer1.Panel2.Controls.Add(Me.Label7)
|
||||||
|
Me.SplitContainer1.Panel2.Controls.Add(Me.CboRepairScheme)
|
||||||
|
Me.SplitContainer1.Panel2.Controls.Add(Me.CboRepairReason)
|
||||||
|
Me.SplitContainer1.Panel2.Controls.Add(Me.CboRepairType)
|
||||||
|
Me.SplitContainer1.Panel2.Controls.Add(Me.Label5)
|
||||||
|
Me.SplitContainer1.Panel2.Controls.Add(Me.Label4)
|
||||||
|
Me.SplitContainer1.Panel2.Controls.Add(Me.Label3)
|
||||||
|
Me.SplitContainer1.Panel2.Controls.Add(Me.CboRepairResult)
|
||||||
|
Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip2)
|
||||||
|
Me.SplitContainer1.Panel2.Controls.Add(Me.Label2)
|
||||||
|
Me.SplitContainer1.Panel2.Controls.Add(Me.BtnCommit)
|
||||||
|
Me.SplitContainer1.Size = New System.Drawing.Size(798, 679)
|
||||||
|
Me.SplitContainer1.SplitterDistance = 296
|
||||||
|
Me.SplitContainer1.TabIndex = 3
|
||||||
|
'
|
||||||
|
'TabRepairSource
|
||||||
|
'
|
||||||
|
Me.TabRepairSource.Controls.Add(Me.TabPage8)
|
||||||
|
Me.TabRepairSource.Controls.Add(Me.TabPage9)
|
||||||
|
Me.TabRepairSource.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.TabRepairSource.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.TabRepairSource.Name = "TabRepairSource"
|
||||||
|
Me.TabRepairSource.SelectedIndex = 0
|
||||||
|
Me.TabRepairSource.Size = New System.Drawing.Size(296, 679)
|
||||||
|
Me.TabRepairSource.TabIndex = 6
|
||||||
|
'
|
||||||
|
'TabPage8
|
||||||
|
'
|
||||||
|
Me.TabPage8.Controls.Add(Me.GroupBox2)
|
||||||
|
Me.TabPage8.Controls.Add(Me.GroupBox3)
|
||||||
|
Me.TabPage8.Controls.Add(Me.lblPassFailDisplay)
|
||||||
|
Me.TabPage8.Location = New System.Drawing.Point(4, 22)
|
||||||
|
Me.TabPage8.Name = "TabPage8"
|
||||||
|
Me.TabPage8.Padding = New System.Windows.Forms.Padding(3)
|
||||||
|
Me.TabPage8.Size = New System.Drawing.Size(288, 653)
|
||||||
|
Me.TabPage8.TabIndex = 0
|
||||||
|
Me.TabPage8.Text = "生产返修"
|
||||||
|
Me.TabPage8.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'GroupBox2
|
||||||
|
'
|
||||||
|
Me.GroupBox2.Controls.Add(Me.TxtDevSn)
|
||||||
|
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
|
Me.GroupBox2.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GroupBox2.Location = New System.Drawing.Point(3, 3)
|
||||||
|
Me.GroupBox2.Name = "GroupBox2"
|
||||||
|
Me.GroupBox2.Size = New System.Drawing.Size(282, 51)
|
||||||
|
Me.GroupBox2.TabIndex = 2
|
||||||
|
Me.GroupBox2.TabStop = False
|
||||||
|
Me.GroupBox2.Text = "产品条码"
|
||||||
|
'
|
||||||
|
'TxtDevSn
|
||||||
|
'
|
||||||
|
Me.TxtDevSn.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.TxtDevSn.BackColor = System.Drawing.Color.White
|
||||||
|
Me.TxtDevSn.Font = New System.Drawing.Font("黑体", 15.75!, 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(3, 15)
|
||||||
|
Me.TxtDevSn.Name = "TxtDevSn"
|
||||||
|
Me.TxtDevSn.Size = New System.Drawing.Size(273, 31)
|
||||||
|
Me.TxtDevSn.TabIndex = 0
|
||||||
|
Me.TxtDevSn.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||||
|
'
|
||||||
|
'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.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GroupBox3.Location = New System.Drawing.Point(2, 140)
|
||||||
|
Me.GroupBox3.Name = "GroupBox3"
|
||||||
|
Me.GroupBox3.Size = New System.Drawing.Size(283, 510)
|
||||||
|
Me.GroupBox3.TabIndex = 3
|
||||||
|
Me.GroupBox3.TabStop = False
|
||||||
|
Me.GroupBox3.Text = "测试历史"
|
||||||
|
'
|
||||||
|
'TvwTestLog
|
||||||
|
'
|
||||||
|
Me.TvwTestLog.BackColor = System.Drawing.SystemColors.InactiveBorder
|
||||||
|
Me.TvwTestLog.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.TvwTestLog.ItemHeight = 20
|
||||||
|
Me.TvwTestLog.Location = New System.Drawing.Point(3, 21)
|
||||||
|
Me.TvwTestLog.Name = "TvwTestLog"
|
||||||
|
Me.TvwTestLog.Size = New System.Drawing.Size(277, 486)
|
||||||
|
Me.TvwTestLog.TabIndex = 1
|
||||||
|
'
|
||||||
|
'lblPassFailDisplay
|
||||||
|
'
|
||||||
|
Me.lblPassFailDisplay.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.lblPassFailDisplay.BackColor = System.Drawing.SystemColors.ActiveCaptionText
|
||||||
|
Me.lblPassFailDisplay.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||||
|
Me.lblPassFailDisplay.Font = New System.Drawing.Font("Calibri", 48.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.lblPassFailDisplay.ForeColor = System.Drawing.Color.White
|
||||||
|
Me.lblPassFailDisplay.Location = New System.Drawing.Point(4, 57)
|
||||||
|
Me.lblPassFailDisplay.Name = "lblPassFailDisplay"
|
||||||
|
Me.lblPassFailDisplay.Size = New System.Drawing.Size(279, 80)
|
||||||
|
Me.lblPassFailDisplay.TabIndex = 5
|
||||||
|
Me.lblPassFailDisplay.Text = "No Test"
|
||||||
|
Me.lblPassFailDisplay.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||||
|
'
|
||||||
|
'TabPage9
|
||||||
|
'
|
||||||
|
Me.TabPage9.Controls.Add(Me.GroupBox5)
|
||||||
|
Me.TabPage9.Controls.Add(Me.GroupBox4)
|
||||||
|
Me.TabPage9.Controls.Add(Me.GroupBox1)
|
||||||
|
Me.TabPage9.Location = New System.Drawing.Point(4, 22)
|
||||||
|
Me.TabPage9.Name = "TabPage9"
|
||||||
|
Me.TabPage9.Padding = New System.Windows.Forms.Padding(3)
|
||||||
|
Me.TabPage9.Size = New System.Drawing.Size(288, 653)
|
||||||
|
Me.TabPage9.TabIndex = 1
|
||||||
|
Me.TabPage9.Text = "市场返修"
|
||||||
|
Me.TabPage9.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'GroupBox5
|
||||||
|
'
|
||||||
|
Me.GroupBox5.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.GroupBox5.Controls.Add(Me.TvwTestLog_Request)
|
||||||
|
Me.GroupBox5.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GroupBox5.Location = New System.Drawing.Point(3, 52)
|
||||||
|
Me.GroupBox5.Name = "GroupBox5"
|
||||||
|
Me.GroupBox5.Size = New System.Drawing.Size(282, 255)
|
||||||
|
Me.GroupBox5.TabIndex = 5
|
||||||
|
Me.GroupBox5.TabStop = False
|
||||||
|
Me.GroupBox5.Text = "测试历史"
|
||||||
|
'
|
||||||
|
'TvwTestLog_Request
|
||||||
|
'
|
||||||
|
Me.TvwTestLog_Request.BackColor = System.Drawing.SystemColors.InactiveBorder
|
||||||
|
Me.TvwTestLog_Request.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.TvwTestLog_Request.ItemHeight = 20
|
||||||
|
Me.TvwTestLog_Request.Location = New System.Drawing.Point(3, 21)
|
||||||
|
Me.TvwTestLog_Request.Name = "TvwTestLog_Request"
|
||||||
|
Me.TvwTestLog_Request.Size = New System.Drawing.Size(276, 231)
|
||||||
|
Me.TvwTestLog_Request.TabIndex = 1
|
||||||
|
'
|
||||||
|
'GroupBox4
|
||||||
|
'
|
||||||
|
Me.GroupBox4.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.GroupBox4.Controls.Add(Me.PictureBox1)
|
||||||
|
Me.GroupBox4.Controls.Add(Me.TvwRepairRequest)
|
||||||
|
Me.GroupBox4.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GroupBox4.Location = New System.Drawing.Point(0, 307)
|
||||||
|
Me.GroupBox4.Name = "GroupBox4"
|
||||||
|
Me.GroupBox4.Size = New System.Drawing.Size(285, 343)
|
||||||
|
Me.GroupBox4.TabIndex = 4
|
||||||
|
Me.GroupBox4.TabStop = False
|
||||||
|
Me.GroupBox4.Text = "报修信息"
|
||||||
|
'
|
||||||
|
'PictureBox1
|
||||||
|
'
|
||||||
|
Me.PictureBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.PictureBox1.Location = New System.Drawing.Point(6, 242)
|
||||||
|
Me.PictureBox1.Name = "PictureBox1"
|
||||||
|
Me.PictureBox1.Size = New System.Drawing.Size(276, 101)
|
||||||
|
Me.PictureBox1.TabIndex = 5
|
||||||
|
Me.PictureBox1.TabStop = False
|
||||||
|
'
|
||||||
|
'TvwRepairRequest
|
||||||
|
'
|
||||||
|
Me.TvwRepairRequest.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.TvwRepairRequest.BackColor = System.Drawing.SystemColors.InactiveBorder
|
||||||
|
Me.TvwRepairRequest.ItemHeight = 20
|
||||||
|
Me.TvwRepairRequest.Location = New System.Drawing.Point(6, 21)
|
||||||
|
Me.TvwRepairRequest.Name = "TvwRepairRequest"
|
||||||
|
Me.TvwRepairRequest.Size = New System.Drawing.Size(276, 223)
|
||||||
|
Me.TvwRepairRequest.TabIndex = 1
|
||||||
|
'
|
||||||
|
'GroupBox1
|
||||||
|
'
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TxtMarketSn)
|
||||||
|
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
|
Me.GroupBox1.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GroupBox1.Location = New System.Drawing.Point(3, 3)
|
||||||
|
Me.GroupBox1.Name = "GroupBox1"
|
||||||
|
Me.GroupBox1.Size = New System.Drawing.Size(282, 51)
|
||||||
|
Me.GroupBox1.TabIndex = 3
|
||||||
|
Me.GroupBox1.TabStop = False
|
||||||
|
Me.GroupBox1.Text = "产品条码"
|
||||||
|
'
|
||||||
|
'TxtMarketSn
|
||||||
|
'
|
||||||
|
Me.TxtMarketSn.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.TxtMarketSn.BackColor = System.Drawing.Color.White
|
||||||
|
Me.TxtMarketSn.Font = New System.Drawing.Font("黑体", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.TxtMarketSn.ImeMode = System.Windows.Forms.ImeMode.Disable
|
||||||
|
Me.TxtMarketSn.Location = New System.Drawing.Point(3, 15)
|
||||||
|
Me.TxtMarketSn.Name = "TxtMarketSn"
|
||||||
|
Me.TxtMarketSn.Size = New System.Drawing.Size(273, 31)
|
||||||
|
Me.TxtMarketSn.TabIndex = 0
|
||||||
|
Me.TxtMarketSn.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||||
|
'
|
||||||
|
'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, 3)
|
||||||
|
Me.SplitContainer2.Name = "SplitContainer2"
|
||||||
|
Me.SplitContainer2.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||||
|
'
|
||||||
|
'SplitContainer2.Panel1
|
||||||
|
'
|
||||||
|
Me.SplitContainer2.Panel1.Controls.Add(Me.GrpTestLog)
|
||||||
|
'
|
||||||
|
'SplitContainer2.Panel2
|
||||||
|
'
|
||||||
|
Me.SplitContainer2.Panel2.Controls.Add(Me.GrpRepairLog)
|
||||||
|
Me.SplitContainer2.Size = New System.Drawing.Size(490, 552)
|
||||||
|
Me.SplitContainer2.SplitterDistance = 276
|
||||||
|
Me.SplitContainer2.TabIndex = 17
|
||||||
|
'
|
||||||
|
'GrpTestLog
|
||||||
|
'
|
||||||
|
Me.GrpTestLog.Controls.Add(Me.BtnCheckTest)
|
||||||
|
Me.GrpTestLog.Controls.Add(Me.TabControl2)
|
||||||
|
Me.GrpTestLog.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GrpTestLog.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GrpTestLog.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.GrpTestLog.Name = "GrpTestLog"
|
||||||
|
Me.GrpTestLog.Size = New System.Drawing.Size(490, 276)
|
||||||
|
Me.GrpTestLog.TabIndex = 7
|
||||||
|
Me.GrpTestLog.TabStop = False
|
||||||
|
Me.GrpTestLog.Text = "测试记录"
|
||||||
|
'
|
||||||
|
'BtnCheckTest
|
||||||
|
'
|
||||||
|
Me.BtnCheckTest.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.BtnCheckTest.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.BtnCheckTest.Location = New System.Drawing.Point(404, 16)
|
||||||
|
Me.BtnCheckTest.Name = "BtnCheckTest"
|
||||||
|
Me.BtnCheckTest.Size = New System.Drawing.Size(82, 28)
|
||||||
|
Me.BtnCheckTest.TabIndex = 1
|
||||||
|
Me.BtnCheckTest.Text = "筛选"
|
||||||
|
Me.BtnCheckTest.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'TabControl2
|
||||||
|
'
|
||||||
|
Me.TabControl2.Controls.Add(Me.TabPage6)
|
||||||
|
Me.TabControl2.Controls.Add(Me.TabPage3)
|
||||||
|
Me.TabControl2.Controls.Add(Me.TabPage4)
|
||||||
|
Me.TabControl2.Controls.Add(Me.TabPage5)
|
||||||
|
Me.TabControl2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.TabControl2.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.TabControl2.HotTrack = True
|
||||||
|
Me.TabControl2.Location = New System.Drawing.Point(3, 21)
|
||||||
|
Me.TabControl2.Margin = New System.Windows.Forms.Padding(0)
|
||||||
|
Me.TabControl2.Name = "TabControl2"
|
||||||
|
Me.TabControl2.SelectedIndex = 0
|
||||||
|
Me.TabControl2.Size = New System.Drawing.Size(484, 252)
|
||||||
|
Me.TabControl2.TabIndex = 7
|
||||||
|
'
|
||||||
|
'TabPage6
|
||||||
|
'
|
||||||
|
Me.TabPage6.Controls.Add(Me.GrdSnRecord)
|
||||||
|
Me.TabPage6.Location = New System.Drawing.Point(4, 26)
|
||||||
|
Me.TabPage6.Margin = New System.Windows.Forms.Padding(0)
|
||||||
|
Me.TabPage6.Name = "TabPage6"
|
||||||
|
Me.TabPage6.Size = New System.Drawing.Size(476, 222)
|
||||||
|
Me.TabPage6.TabIndex = 3
|
||||||
|
Me.TabPage6.Text = "本条码记录"
|
||||||
|
Me.TabPage6.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'GrdSnRecord
|
||||||
|
'
|
||||||
|
Me.GrdSnRecord.BorderStyle = FlexCell.BorderStyleEnum.None
|
||||||
|
Me.GrdSnRecord.CheckedImage = Nothing
|
||||||
|
Me.GrdSnRecord.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||||
|
Me.GrdSnRecord.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GrdSnRecord.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GrdSnRecord.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
|
Me.GrdSnRecord.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.GrdSnRecord.Name = "GrdSnRecord"
|
||||||
|
Me.GrdSnRecord.Size = New System.Drawing.Size(476, 222)
|
||||||
|
Me.GrdSnRecord.TabIndex = 2
|
||||||
|
Me.GrdSnRecord.UncheckedImage = Nothing
|
||||||
|
'
|
||||||
|
'TabPage3
|
||||||
|
'
|
||||||
|
Me.TabPage3.Controls.Add(Me.GrdAllRecord)
|
||||||
|
Me.TabPage3.Location = New System.Drawing.Point(4, 26)
|
||||||
|
Me.TabPage3.Margin = New System.Windows.Forms.Padding(0)
|
||||||
|
Me.TabPage3.Name = "TabPage3"
|
||||||
|
Me.TabPage3.Size = New System.Drawing.Size(476, 222)
|
||||||
|
Me.TabPage3.TabIndex = 0
|
||||||
|
Me.TabPage3.Text = "全部记录"
|
||||||
|
Me.TabPage3.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'GrdAllRecord
|
||||||
|
'
|
||||||
|
Me.GrdAllRecord.BorderStyle = FlexCell.BorderStyleEnum.None
|
||||||
|
Me.GrdAllRecord.CheckedImage = Nothing
|
||||||
|
Me.GrdAllRecord.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||||
|
Me.GrdAllRecord.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GrdAllRecord.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GrdAllRecord.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
|
Me.GrdAllRecord.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.GrdAllRecord.Name = "GrdAllRecord"
|
||||||
|
Me.GrdAllRecord.Size = New System.Drawing.Size(476, 222)
|
||||||
|
Me.GrdAllRecord.TabIndex = 0
|
||||||
|
Me.GrdAllRecord.UncheckedImage = Nothing
|
||||||
|
'
|
||||||
|
'TabPage4
|
||||||
|
'
|
||||||
|
Me.TabPage4.Controls.Add(Me.GrdPassRecord)
|
||||||
|
Me.TabPage4.Location = New System.Drawing.Point(4, 26)
|
||||||
|
Me.TabPage4.Margin = New System.Windows.Forms.Padding(0)
|
||||||
|
Me.TabPage4.Name = "TabPage4"
|
||||||
|
Me.TabPage4.Size = New System.Drawing.Size(476, 222)
|
||||||
|
Me.TabPage4.TabIndex = 1
|
||||||
|
Me.TabPage4.Text = "成功记录"
|
||||||
|
Me.TabPage4.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'GrdPassRecord
|
||||||
|
'
|
||||||
|
Me.GrdPassRecord.BorderStyle = FlexCell.BorderStyleEnum.None
|
||||||
|
Me.GrdPassRecord.CheckedImage = Nothing
|
||||||
|
Me.GrdPassRecord.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||||
|
Me.GrdPassRecord.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GrdPassRecord.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GrdPassRecord.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
|
Me.GrdPassRecord.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.GrdPassRecord.Name = "GrdPassRecord"
|
||||||
|
Me.GrdPassRecord.Size = New System.Drawing.Size(476, 222)
|
||||||
|
Me.GrdPassRecord.TabIndex = 1
|
||||||
|
Me.GrdPassRecord.UncheckedImage = Nothing
|
||||||
|
'
|
||||||
|
'TabPage5
|
||||||
|
'
|
||||||
|
Me.TabPage5.Controls.Add(Me.GrdFailRecord)
|
||||||
|
Me.TabPage5.Location = New System.Drawing.Point(4, 26)
|
||||||
|
Me.TabPage5.Margin = New System.Windows.Forms.Padding(0)
|
||||||
|
Me.TabPage5.Name = "TabPage5"
|
||||||
|
Me.TabPage5.Size = New System.Drawing.Size(476, 222)
|
||||||
|
Me.TabPage5.TabIndex = 2
|
||||||
|
Me.TabPage5.Text = "失败记录"
|
||||||
|
Me.TabPage5.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'GrdFailRecord
|
||||||
|
'
|
||||||
|
Me.GrdFailRecord.BorderStyle = FlexCell.BorderStyleEnum.None
|
||||||
|
Me.GrdFailRecord.CheckedImage = Nothing
|
||||||
|
Me.GrdFailRecord.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||||
|
Me.GrdFailRecord.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GrdFailRecord.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GrdFailRecord.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
|
Me.GrdFailRecord.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.GrdFailRecord.Name = "GrdFailRecord"
|
||||||
|
Me.GrdFailRecord.Size = New System.Drawing.Size(476, 222)
|
||||||
|
Me.GrdFailRecord.TabIndex = 2
|
||||||
|
Me.GrdFailRecord.UncheckedImage = Nothing
|
||||||
|
'
|
||||||
|
'GrpRepairLog
|
||||||
|
'
|
||||||
|
Me.GrpRepairLog.Controls.Add(Me.BtnCheckRepair)
|
||||||
|
Me.GrpRepairLog.Controls.Add(Me.TabControl1)
|
||||||
|
Me.GrpRepairLog.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GrpRepairLog.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GrpRepairLog.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.GrpRepairLog.Name = "GrpRepairLog"
|
||||||
|
Me.GrpRepairLog.Size = New System.Drawing.Size(490, 272)
|
||||||
|
Me.GrpRepairLog.TabIndex = 6
|
||||||
|
Me.GrpRepairLog.TabStop = False
|
||||||
|
Me.GrpRepairLog.Text = "维修记录"
|
||||||
|
'
|
||||||
|
'BtnCheckRepair
|
||||||
|
'
|
||||||
|
Me.BtnCheckRepair.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.BtnCheckRepair.Font = New System.Drawing.Font("微软雅黑", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.BtnCheckRepair.Location = New System.Drawing.Point(401, 15)
|
||||||
|
Me.BtnCheckRepair.Name = "BtnCheckRepair"
|
||||||
|
Me.BtnCheckRepair.Size = New System.Drawing.Size(82, 28)
|
||||||
|
Me.BtnCheckRepair.TabIndex = 8
|
||||||
|
Me.BtnCheckRepair.Text = "筛选"
|
||||||
|
Me.BtnCheckRepair.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'TabControl1
|
||||||
|
'
|
||||||
|
Me.TabControl1.Controls.Add(Me.TabPage7)
|
||||||
|
Me.TabControl1.Controls.Add(Me.TabPage1)
|
||||||
|
Me.TabControl1.Controls.Add(Me.TabPage2)
|
||||||
|
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.TabControl1.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.TabControl1.HotTrack = True
|
||||||
|
Me.TabControl1.Location = New System.Drawing.Point(3, 21)
|
||||||
|
Me.TabControl1.Margin = New System.Windows.Forms.Padding(0)
|
||||||
|
Me.TabControl1.Name = "TabControl1"
|
||||||
|
Me.TabControl1.SelectedIndex = 0
|
||||||
|
Me.TabControl1.Size = New System.Drawing.Size(484, 248)
|
||||||
|
Me.TabControl1.TabIndex = 7
|
||||||
|
'
|
||||||
|
'TabPage7
|
||||||
|
'
|
||||||
|
Me.TabPage7.Controls.Add(Me.GrdSnRepair)
|
||||||
|
Me.TabPage7.Location = New System.Drawing.Point(4, 26)
|
||||||
|
Me.TabPage7.Name = "TabPage7"
|
||||||
|
Me.TabPage7.Size = New System.Drawing.Size(476, 218)
|
||||||
|
Me.TabPage7.TabIndex = 2
|
||||||
|
Me.TabPage7.Text = "本条码记录"
|
||||||
|
Me.TabPage7.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'GrdSnRepair
|
||||||
|
'
|
||||||
|
Me.GrdSnRepair.BorderStyle = FlexCell.BorderStyleEnum.None
|
||||||
|
Me.GrdSnRepair.CheckedImage = Nothing
|
||||||
|
Me.GrdSnRepair.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||||
|
Me.GrdSnRepair.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GrdSnRepair.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GrdSnRepair.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
|
Me.GrdSnRepair.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.GrdSnRepair.Name = "GrdSnRepair"
|
||||||
|
Me.GrdSnRepair.Size = New System.Drawing.Size(476, 218)
|
||||||
|
Me.GrdSnRepair.TabIndex = 2
|
||||||
|
Me.GrdSnRepair.UncheckedImage = Nothing
|
||||||
|
'
|
||||||
|
'TabPage1
|
||||||
|
'
|
||||||
|
Me.TabPage1.Controls.Add(Me.GrdTestPlan)
|
||||||
|
Me.TabPage1.Location = New System.Drawing.Point(4, 26)
|
||||||
|
Me.TabPage1.Margin = New System.Windows.Forms.Padding(0)
|
||||||
|
Me.TabPage1.Name = "TabPage1"
|
||||||
|
Me.TabPage1.Size = New System.Drawing.Size(476, 218)
|
||||||
|
Me.TabPage1.TabIndex = 0
|
||||||
|
Me.TabPage1.Text = "相同失败步骤"
|
||||||
|
Me.TabPage1.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'GrdTestPlan
|
||||||
|
'
|
||||||
|
Me.GrdTestPlan.BorderStyle = FlexCell.BorderStyleEnum.None
|
||||||
|
Me.GrdTestPlan.CheckedImage = Nothing
|
||||||
|
Me.GrdTestPlan.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||||
|
Me.GrdTestPlan.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GrdTestPlan.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GrdTestPlan.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
|
Me.GrdTestPlan.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.GrdTestPlan.Name = "GrdTestPlan"
|
||||||
|
Me.GrdTestPlan.Size = New System.Drawing.Size(476, 218)
|
||||||
|
Me.GrdTestPlan.TabIndex = 0
|
||||||
|
Me.GrdTestPlan.UncheckedImage = Nothing
|
||||||
|
'
|
||||||
|
'TabPage2
|
||||||
|
'
|
||||||
|
Me.TabPage2.Controls.Add(Me.GrdErrCode)
|
||||||
|
Me.TabPage2.Location = New System.Drawing.Point(4, 26)
|
||||||
|
Me.TabPage2.Margin = New System.Windows.Forms.Padding(0)
|
||||||
|
Me.TabPage2.Name = "TabPage2"
|
||||||
|
Me.TabPage2.Size = New System.Drawing.Size(476, 218)
|
||||||
|
Me.TabPage2.TabIndex = 1
|
||||||
|
Me.TabPage2.Text = "相同错误码"
|
||||||
|
Me.TabPage2.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'GrdErrCode
|
||||||
|
'
|
||||||
|
Me.GrdErrCode.BorderStyle = FlexCell.BorderStyleEnum.None
|
||||||
|
Me.GrdErrCode.CheckedImage = Nothing
|
||||||
|
Me.GrdErrCode.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||||
|
Me.GrdErrCode.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GrdErrCode.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.GrdErrCode.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
|
Me.GrdErrCode.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.GrdErrCode.Name = "GrdErrCode"
|
||||||
|
Me.GrdErrCode.Size = New System.Drawing.Size(476, 218)
|
||||||
|
Me.GrdErrCode.TabIndex = 1
|
||||||
|
Me.GrdErrCode.UncheckedImage = Nothing
|
||||||
|
'
|
||||||
|
'Label7
|
||||||
|
'
|
||||||
|
Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label7.AutoSize = True
|
||||||
|
Me.Label7.Location = New System.Drawing.Point(10, 644)
|
||||||
|
Me.Label7.Name = "Label7"
|
||||||
|
Me.Label7.Size = New System.Drawing.Size(53, 12)
|
||||||
|
Me.Label7.TabIndex = 16
|
||||||
|
Me.Label7.Text = "故障图像"
|
||||||
|
'
|
||||||
|
'CboRepairScheme
|
||||||
|
'
|
||||||
|
Me.CboRepairScheme.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.CboRepairScheme.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
|
||||||
|
Me.CboRepairScheme.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
|
||||||
|
Me.CboRepairScheme.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.CboRepairScheme.FormattingEnabled = True
|
||||||
|
Me.CboRepairScheme.Location = New System.Drawing.Point(66, 592)
|
||||||
|
Me.CboRepairScheme.Name = "CboRepairScheme"
|
||||||
|
Me.CboRepairScheme.Size = New System.Drawing.Size(427, 25)
|
||||||
|
Me.CboRepairScheme.TabIndex = 0
|
||||||
|
'
|
||||||
|
'CboRepairReason
|
||||||
|
'
|
||||||
|
Me.CboRepairReason.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.CboRepairReason.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||||
|
Me.CboRepairReason.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.CboRepairReason.FormattingEnabled = True
|
||||||
|
Me.CboRepairReason.Location = New System.Drawing.Point(228, 561)
|
||||||
|
Me.CboRepairReason.Name = "CboRepairReason"
|
||||||
|
Me.CboRepairReason.Size = New System.Drawing.Size(102, 25)
|
||||||
|
Me.CboRepairReason.TabIndex = 0
|
||||||
|
'
|
||||||
|
'CboRepairType
|
||||||
|
'
|
||||||
|
Me.CboRepairType.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.CboRepairType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||||
|
Me.CboRepairType.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.CboRepairType.FormattingEnabled = True
|
||||||
|
Me.CboRepairType.Location = New System.Drawing.Point(66, 561)
|
||||||
|
Me.CboRepairType.Name = "CboRepairType"
|
||||||
|
Me.CboRepairType.Size = New System.Drawing.Size(102, 25)
|
||||||
|
Me.CboRepairType.TabIndex = 0
|
||||||
|
'
|
||||||
|
'Label5
|
||||||
|
'
|
||||||
|
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label5.AutoSize = True
|
||||||
|
Me.Label5.Location = New System.Drawing.Point(173, 568)
|
||||||
|
Me.Label5.Name = "Label5"
|
||||||
|
Me.Label5.Size = New System.Drawing.Size(53, 12)
|
||||||
|
Me.Label5.TabIndex = 13
|
||||||
|
Me.Label5.Text = "返修原因"
|
||||||
|
'
|
||||||
|
'Label4
|
||||||
|
'
|
||||||
|
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label4.AutoSize = True
|
||||||
|
Me.Label4.Location = New System.Drawing.Point(10, 567)
|
||||||
|
Me.Label4.Name = "Label4"
|
||||||
|
Me.Label4.Size = New System.Drawing.Size(53, 12)
|
||||||
|
Me.Label4.TabIndex = 12
|
||||||
|
Me.Label4.Text = "返修类型"
|
||||||
|
'
|
||||||
|
'Label3
|
||||||
|
'
|
||||||
|
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label3.AutoSize = True
|
||||||
|
Me.Label3.Location = New System.Drawing.Point(10, 598)
|
||||||
|
Me.Label3.Name = "Label3"
|
||||||
|
Me.Label3.Size = New System.Drawing.Size(53, 12)
|
||||||
|
Me.Label3.TabIndex = 11
|
||||||
|
Me.Label3.Text = "返修方案"
|
||||||
|
'
|
||||||
|
'CboRepairResult
|
||||||
|
'
|
||||||
|
Me.CboRepairResult.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.CboRepairResult.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||||
|
Me.CboRepairResult.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.CboRepairResult.FormattingEnabled = True
|
||||||
|
Me.CboRepairResult.Location = New System.Drawing.Point(387, 561)
|
||||||
|
Me.CboRepairResult.Name = "CboRepairResult"
|
||||||
|
Me.CboRepairResult.Size = New System.Drawing.Size(106, 25)
|
||||||
|
Me.CboRepairResult.TabIndex = 0
|
||||||
|
'
|
||||||
|
'ToolStrip2
|
||||||
|
'
|
||||||
|
Me.ToolStrip2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.ToolStrip2.ContextMenuStrip = Me.ContextMenuStrip1
|
||||||
|
Me.ToolStrip2.Dock = System.Windows.Forms.DockStyle.None
|
||||||
|
Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(60, 45)
|
||||||
|
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsBtnImg0, Me.TsBtnImg1, Me.TsBtnImg2, Me.TsBtnImg3})
|
||||||
|
Me.ToolStrip2.Location = New System.Drawing.Point(66, 624)
|
||||||
|
Me.ToolStrip2.Name = "ToolStrip2"
|
||||||
|
Me.ToolStrip2.Size = New System.Drawing.Size(252, 48)
|
||||||
|
Me.ToolStrip2.TabIndex = 0
|
||||||
|
Me.ToolStrip2.Text = "ToolStrip2"
|
||||||
|
'
|
||||||
|
'ContextMenuStrip1
|
||||||
|
'
|
||||||
|
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TsmiCopy, Me.TsmiPaste, Me.TsmiDelete, Me.ToolStripSeparator1, Me.完整图像ToolStripMenuItem})
|
||||||
|
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||||
|
Me.ContextMenuStrip1.Size = New System.Drawing.Size(125, 98)
|
||||||
|
'
|
||||||
|
'TsmiCopy
|
||||||
|
'
|
||||||
|
Me.TsmiCopy.Name = "TsmiCopy"
|
||||||
|
Me.TsmiCopy.Size = New System.Drawing.Size(124, 22)
|
||||||
|
Me.TsmiCopy.Text = "复制图像"
|
||||||
|
'
|
||||||
|
'TsmiPaste
|
||||||
|
'
|
||||||
|
Me.TsmiPaste.Name = "TsmiPaste"
|
||||||
|
Me.TsmiPaste.Size = New System.Drawing.Size(124, 22)
|
||||||
|
Me.TsmiPaste.Text = "粘贴图像"
|
||||||
|
'
|
||||||
|
'TsmiDelete
|
||||||
|
'
|
||||||
|
Me.TsmiDelete.Name = "TsmiDelete"
|
||||||
|
Me.TsmiDelete.Size = New System.Drawing.Size(124, 22)
|
||||||
|
Me.TsmiDelete.Text = "删除图像"
|
||||||
|
'
|
||||||
|
'ToolStripSeparator1
|
||||||
|
'
|
||||||
|
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||||
|
Me.ToolStripSeparator1.Size = New System.Drawing.Size(121, 6)
|
||||||
|
'
|
||||||
|
'完整图像ToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.完整图像ToolStripMenuItem.Name = "完整图像ToolStripMenuItem"
|
||||||
|
Me.完整图像ToolStripMenuItem.Size = New System.Drawing.Size(124, 22)
|
||||||
|
Me.完整图像ToolStripMenuItem.Text = "完整图像"
|
||||||
|
'
|
||||||
|
'TsBtnImg0
|
||||||
|
'
|
||||||
|
Me.TsBtnImg0.AutoSize = False
|
||||||
|
Me.TsBtnImg0.Checked = True
|
||||||
|
Me.TsBtnImg0.CheckState = System.Windows.Forms.CheckState.Checked
|
||||||
|
Me.TsBtnImg0.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TsBtnImg0.Image = Global.AUTS_Repair.My.Resources.Resources.NoImg40_30
|
||||||
|
Me.TsBtnImg0.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TsBtnImg0.Name = "TsBtnImg0"
|
||||||
|
Me.TsBtnImg0.Size = New System.Drawing.Size(60, 45)
|
||||||
|
Me.TsBtnImg0.Tag = "0"
|
||||||
|
Me.TsBtnImg0.Text = "图1"
|
||||||
|
Me.TsBtnImg0.TextImageRelation = System.Windows.Forms.TextImageRelation.Overlay
|
||||||
|
'
|
||||||
|
'TsBtnImg1
|
||||||
|
'
|
||||||
|
Me.TsBtnImg1.AutoSize = False
|
||||||
|
Me.TsBtnImg1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.TsBtnImg1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TsBtnImg1.Image = Global.AUTS_Repair.My.Resources.Resources.NoImg40_30
|
||||||
|
Me.TsBtnImg1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TsBtnImg1.Name = "TsBtnImg1"
|
||||||
|
Me.TsBtnImg1.Size = New System.Drawing.Size(60, 45)
|
||||||
|
Me.TsBtnImg1.Tag = "1"
|
||||||
|
Me.TsBtnImg1.Text = "图2"
|
||||||
|
Me.TsBtnImg1.TextImageRelation = System.Windows.Forms.TextImageRelation.Overlay
|
||||||
|
'
|
||||||
|
'TsBtnImg2
|
||||||
|
'
|
||||||
|
Me.TsBtnImg2.AutoSize = False
|
||||||
|
Me.TsBtnImg2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.TsBtnImg2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TsBtnImg2.Image = Global.AUTS_Repair.My.Resources.Resources.NoImg40_30
|
||||||
|
Me.TsBtnImg2.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TsBtnImg2.Name = "TsBtnImg2"
|
||||||
|
Me.TsBtnImg2.Size = New System.Drawing.Size(60, 45)
|
||||||
|
Me.TsBtnImg2.Tag = "2"
|
||||||
|
Me.TsBtnImg2.Text = "图3"
|
||||||
|
Me.TsBtnImg2.TextImageRelation = System.Windows.Forms.TextImageRelation.Overlay
|
||||||
|
'
|
||||||
|
'TsBtnImg3
|
||||||
|
'
|
||||||
|
Me.TsBtnImg3.AutoSize = False
|
||||||
|
Me.TsBtnImg3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
|
Me.TsBtnImg3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TsBtnImg3.Image = Global.AUTS_Repair.My.Resources.Resources.NoImg40_30
|
||||||
|
Me.TsBtnImg3.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TsBtnImg3.Name = "TsBtnImg3"
|
||||||
|
Me.TsBtnImg3.Size = New System.Drawing.Size(60, 45)
|
||||||
|
Me.TsBtnImg3.Tag = "3"
|
||||||
|
Me.TsBtnImg3.Text = "图4"
|
||||||
|
Me.TsBtnImg3.TextImageRelation = System.Windows.Forms.TextImageRelation.Overlay
|
||||||
|
'
|
||||||
|
'Label2
|
||||||
|
'
|
||||||
|
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label2.AutoSize = True
|
||||||
|
Me.Label2.Location = New System.Drawing.Point(333, 568)
|
||||||
|
Me.Label2.Name = "Label2"
|
||||||
|
Me.Label2.Size = New System.Drawing.Size(53, 12)
|
||||||
|
Me.Label2.TabIndex = 10
|
||||||
|
Me.Label2.Text = "返修结果"
|
||||||
|
'
|
||||||
|
'BtnCommit
|
||||||
|
'
|
||||||
|
Me.BtnCommit.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.BtnCommit.Font = New System.Drawing.Font("微软雅黑", 15.75!, 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(371, 623)
|
||||||
|
Me.BtnCommit.Name = "BtnCommit"
|
||||||
|
Me.BtnCommit.Size = New System.Drawing.Size(122, 49)
|
||||||
|
Me.BtnCommit.TabIndex = 2
|
||||||
|
Me.BtnCommit.Text = "提交"
|
||||||
|
Me.BtnCommit.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'FrmMain
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(798, 701)
|
||||||
|
Me.Controls.Add(Me.SplitContainer1)
|
||||||
|
Me.Controls.Add(Me.StatusStrip1)
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
|
Me.KeyPreview = True
|
||||||
|
Me.Name = "FrmMain"
|
||||||
|
Me.Text = "RepairStation"
|
||||||
|
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.TabRepairSource.ResumeLayout(False)
|
||||||
|
Me.TabPage8.ResumeLayout(False)
|
||||||
|
Me.GroupBox2.ResumeLayout(False)
|
||||||
|
Me.GroupBox2.PerformLayout()
|
||||||
|
Me.GroupBox3.ResumeLayout(False)
|
||||||
|
Me.TabPage9.ResumeLayout(False)
|
||||||
|
Me.GroupBox5.ResumeLayout(False)
|
||||||
|
Me.GroupBox4.ResumeLayout(False)
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.GroupBox1.ResumeLayout(False)
|
||||||
|
Me.GroupBox1.PerformLayout()
|
||||||
|
Me.SplitContainer2.Panel1.ResumeLayout(False)
|
||||||
|
Me.SplitContainer2.Panel2.ResumeLayout(False)
|
||||||
|
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.SplitContainer2.ResumeLayout(False)
|
||||||
|
Me.GrpTestLog.ResumeLayout(False)
|
||||||
|
Me.TabControl2.ResumeLayout(False)
|
||||||
|
Me.TabPage6.ResumeLayout(False)
|
||||||
|
Me.TabPage3.ResumeLayout(False)
|
||||||
|
Me.TabPage4.ResumeLayout(False)
|
||||||
|
Me.TabPage5.ResumeLayout(False)
|
||||||
|
Me.GrpRepairLog.ResumeLayout(False)
|
||||||
|
Me.TabControl1.ResumeLayout(False)
|
||||||
|
Me.TabPage7.ResumeLayout(False)
|
||||||
|
Me.TabPage1.ResumeLayout(False)
|
||||||
|
Me.TabPage2.ResumeLayout(False)
|
||||||
|
Me.ToolStrip2.ResumeLayout(False)
|
||||||
|
Me.ToolStrip2.PerformLayout()
|
||||||
|
Me.ContextMenuStrip1.ResumeLayout(False)
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
Me.PerformLayout()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents StatusStrip1 As StatusStrip
|
||||||
|
Friend WithEvents SplitContainer1 As SplitContainer
|
||||||
|
Friend WithEvents TxtDevSn As TextBox
|
||||||
|
Friend WithEvents ToolStrip2 As ToolStrip
|
||||||
|
Friend WithEvents TsBtnImg0 As ToolStripButton
|
||||||
|
Friend WithEvents GroupBox3 As GroupBox
|
||||||
|
Friend WithEvents TvwTestLog As TreeView
|
||||||
|
Friend WithEvents GroupBox2 As GroupBox
|
||||||
|
Friend WithEvents BtnCommit As Button
|
||||||
|
Friend WithEvents TsBtnImg1 As ToolStripButton
|
||||||
|
Friend WithEvents TsBtnImg2 As ToolStripButton
|
||||||
|
Friend WithEvents TsBtnImg3 As ToolStripButton
|
||||||
|
Friend WithEvents lblPassFailDisplay As Label
|
||||||
|
Friend WithEvents CboRepairType As ComboBox
|
||||||
|
Friend WithEvents CboRepairScheme As ComboBox
|
||||||
|
Friend WithEvents CboRepairReason As ComboBox
|
||||||
|
Friend WithEvents GrpTestLog As GroupBox
|
||||||
|
Friend WithEvents TabControl2 As TabControl
|
||||||
|
Friend WithEvents TabPage3 As TabPage
|
||||||
|
Friend WithEvents GrdAllRecord As FlexCell.Grid
|
||||||
|
Friend WithEvents TabPage4 As TabPage
|
||||||
|
Friend WithEvents GrdPassRecord As FlexCell.Grid
|
||||||
|
Friend WithEvents GrpRepairLog As GroupBox
|
||||||
|
Friend WithEvents TabControl1 As TabControl
|
||||||
|
Friend WithEvents TabPage1 As TabPage
|
||||||
|
Friend WithEvents GrdTestPlan As FlexCell.Grid
|
||||||
|
Friend WithEvents TabPage2 As TabPage
|
||||||
|
Friend WithEvents GrdErrCode As FlexCell.Grid
|
||||||
|
Friend WithEvents CboRepairResult As ComboBox
|
||||||
|
Friend WithEvents TabPage5 As TabPage
|
||||||
|
Friend WithEvents GrdFailRecord As FlexCell.Grid
|
||||||
|
Friend WithEvents TabPage6 As TabPage
|
||||||
|
Friend WithEvents GrdSnRecord As FlexCell.Grid
|
||||||
|
Friend WithEvents Label2 As Label
|
||||||
|
Friend WithEvents Label7 As Label
|
||||||
|
Friend WithEvents Label5 As Label
|
||||||
|
Friend WithEvents Label4 As Label
|
||||||
|
Friend WithEvents Label3 As Label
|
||||||
|
Friend WithEvents SplitContainer2 As SplitContainer
|
||||||
|
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
|
||||||
|
Friend WithEvents TsmiCopy As ToolStripMenuItem
|
||||||
|
Friend WithEvents TsmiPaste As ToolStripMenuItem
|
||||||
|
Friend WithEvents TsmiDelete As ToolStripMenuItem
|
||||||
|
Friend WithEvents TabPage7 As TabPage
|
||||||
|
Friend WithEvents GrdSnRepair As FlexCell.Grid
|
||||||
|
Friend WithEvents TabRepairSource As TabControl
|
||||||
|
Friend WithEvents TabPage8 As TabPage
|
||||||
|
Friend WithEvents TabPage9 As TabPage
|
||||||
|
Friend WithEvents GroupBox1 As GroupBox
|
||||||
|
Friend WithEvents TxtMarketSn As TextBox
|
||||||
|
Friend WithEvents GroupBox4 As GroupBox
|
||||||
|
Friend WithEvents TvwRepairRequest As TreeView
|
||||||
|
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
|
||||||
|
Friend WithEvents 完整图像ToolStripMenuItem As ToolStripMenuItem
|
||||||
|
Friend WithEvents BtnCheckTest As Button
|
||||||
|
Friend WithEvents BtnCheckRepair As Button
|
||||||
|
Friend WithEvents PictureBox1 As PictureBox
|
||||||
|
Friend WithEvents GroupBox5 As GroupBox
|
||||||
|
Friend WithEvents TvwTestLog_Request As TreeView
|
||||||
|
End Class
|
||||||
6305
AUTS_Repair/Form1.resx
Normal file
6305
AUTS_Repair/Form1.resx
Normal file
File diff suppressed because it is too large
Load Diff
1124
AUTS_Repair/Form1.vb
Normal file
1124
AUTS_Repair/Form1.vb
Normal file
File diff suppressed because it is too large
Load Diff
78
AUTS_Repair/FrmCheckLog.Designer.vb
generated
Normal file
78
AUTS_Repair/FrmCheckLog.Designer.vb
generated
Normal file
@@ -0,0 +1,78 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class FrmCheckLog
|
||||||
|
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.Grid1 = New FlexCell.Grid()
|
||||||
|
Me.BtnOk = New System.Windows.Forms.Button()
|
||||||
|
Me.BtnCencel = New System.Windows.Forms.Button()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'Grid1
|
||||||
|
'
|
||||||
|
Me.Grid1.BorderStyle = FlexCell.BorderStyleEnum.None
|
||||||
|
Me.Grid1.CheckedImage = Nothing
|
||||||
|
Me.Grid1.DefaultFont = New System.Drawing.Font("宋体", 9.0!)
|
||||||
|
Me.Grid1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
|
||||||
|
Me.Grid1.GridColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
|
Me.Grid1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.Grid1.Name = "Grid1"
|
||||||
|
Me.Grid1.Size = New System.Drawing.Size(303, 405)
|
||||||
|
Me.Grid1.TabIndex = 0
|
||||||
|
Me.Grid1.UncheckedImage = Nothing
|
||||||
|
'
|
||||||
|
'BtnOk
|
||||||
|
'
|
||||||
|
Me.BtnOk.Location = New System.Drawing.Point(143, 423)
|
||||||
|
Me.BtnOk.Name = "BtnOk"
|
||||||
|
Me.BtnOk.Size = New System.Drawing.Size(64, 22)
|
||||||
|
Me.BtnOk.TabIndex = 1
|
||||||
|
Me.BtnOk.Text = "确定"
|
||||||
|
Me.BtnOk.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'BtnCencel
|
||||||
|
'
|
||||||
|
Me.BtnCencel.Location = New System.Drawing.Point(216, 422)
|
||||||
|
Me.BtnCencel.Name = "BtnCencel"
|
||||||
|
Me.BtnCencel.Size = New System.Drawing.Size(75, 23)
|
||||||
|
Me.BtnCencel.TabIndex = 2
|
||||||
|
Me.BtnCencel.Text = "取消"
|
||||||
|
Me.BtnCencel.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'FrmCheckLog
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(303, 450)
|
||||||
|
Me.Controls.Add(Me.BtnCencel)
|
||||||
|
Me.Controls.Add(Me.BtnOk)
|
||||||
|
Me.Controls.Add(Me.Grid1)
|
||||||
|
Me.Name = "FrmCheckLog"
|
||||||
|
Me.Text = "FrmCheckLog"
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents Grid1 As FlexCell.Grid
|
||||||
|
Friend WithEvents BtnOk As Button
|
||||||
|
Friend WithEvents BtnCencel As Button
|
||||||
|
End Class
|
||||||
120
AUTS_Repair/FrmCheckLog.resx
Normal file
120
AUTS_Repair/FrmCheckLog.resx
Normal file
@@ -0,0 +1,120 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
||||||
46
AUTS_Repair/FrmCheckLog.vb
Normal file
46
AUTS_Repair/FrmCheckLog.vb
Normal file
@@ -0,0 +1,46 @@
|
|||||||
|
Public Class FrmCheckLog
|
||||||
|
Private Sub FrmCheckLog_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
|
Text = "选择显示列"
|
||||||
|
InitGrid()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public CheckRows As Dictionary(Of String, String)
|
||||||
|
|
||||||
|
Private Sub InitGrid()
|
||||||
|
With Grid1
|
||||||
|
.AutoRedraw = False
|
||||||
|
.DisplayRowNumber = True
|
||||||
|
|
||||||
|
.Cols = 3
|
||||||
|
.Rows = CheckRows.Count + 1
|
||||||
|
.ExtendLastCol = True
|
||||||
|
|
||||||
|
.Column(1).CellType = FlexCell.CellTypeEnum.CheckBox
|
||||||
|
|
||||||
|
For i As Integer = 0 To CheckRows.Count - 1
|
||||||
|
.Cell(i + 1, 1).Text = CheckRows.Values(i)
|
||||||
|
.Cell(i + 1, 2).Text = CheckRows.Keys(i)
|
||||||
|
Next
|
||||||
|
|
||||||
|
.AutoRedraw = True
|
||||||
|
.Refresh()
|
||||||
|
End With
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub BtnOk_Click(sender As Object, e As EventArgs) Handles BtnOk.Click
|
||||||
|
DialogResult = DialogResult.OK
|
||||||
|
|
||||||
|
For i As Integer = 1 To Grid1.Rows - 1
|
||||||
|
If Grid1.Cell(i, 1).BooleanValue Then
|
||||||
|
CheckRows(Grid1.Cell(i, 2).Text) = "1"
|
||||||
|
Else
|
||||||
|
CheckRows(Grid1.Cell(i, 2).Text) = "0"
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub BtnCencel_Click(sender As Object, e As EventArgs) Handles BtnCencel.Click
|
||||||
|
DialogResult = DialogResult.Cancel
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
57
AUTS_Repair/FrmImage.Designer.vb
generated
Normal file
57
AUTS_Repair/FrmImage.Designer.vb
generated
Normal file
@@ -0,0 +1,57 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class FrmImage
|
||||||
|
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.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'PictureBox1
|
||||||
|
'
|
||||||
|
Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.PictureBox1.Name = "PictureBox1"
|
||||||
|
Me.PictureBox1.Size = New System.Drawing.Size(584, 441)
|
||||||
|
Me.PictureBox1.TabIndex = 0
|
||||||
|
Me.PictureBox1.TabStop = False
|
||||||
|
'
|
||||||
|
'FrmImage
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(584, 441)
|
||||||
|
Me.Controls.Add(Me.PictureBox1)
|
||||||
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||||
|
Me.Name = "FrmImage"
|
||||||
|
Me.ShowIcon = False
|
||||||
|
Me.ShowInTaskbar = False
|
||||||
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
|
||||||
|
Me.Text = "Frm"
|
||||||
|
Me.TopMost = True
|
||||||
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents PictureBox1 As PictureBox
|
||||||
|
End Class
|
||||||
120
AUTS_Repair/FrmImage.resx
Normal file
120
AUTS_Repair/FrmImage.resx
Normal file
@@ -0,0 +1,120 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
||||||
13
AUTS_Repair/FrmImage.vb
Normal file
13
AUTS_Repair/FrmImage.vb
Normal file
@@ -0,0 +1,13 @@
|
|||||||
|
Public Class FrmImage
|
||||||
|
Public Shadows Function ShowImage(img As Image) As DialogResult
|
||||||
|
Using frm As New FrmImage
|
||||||
|
frm.PictureBox1.Image = img
|
||||||
|
Return frm.ShowDialog()
|
||||||
|
End Using
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Sub FrmImage_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
|
PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
|
||||||
|
Text = $"Image"
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
38
AUTS_Repair/My Project/Application.Designer.vb
generated
Normal file
38
AUTS_Repair/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_Repair.FrmMain
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
10
AUTS_Repair/My Project/Application.myapp
Normal file
10
AUTS_Repair/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_Repair/My Project/AssemblyInfo.vb
Normal file
35
AUTS_Repair/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
' 有关程序集的一般信息由以下
|
||||||
|
' 控制。更改这些特性值可修改
|
||||||
|
' 与程序集关联的信息。
|
||||||
|
|
||||||
|
'查看程序集特性的值
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("AUTS_Repair")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("")>
|
||||||
|
<Assembly: AssemblyProduct("AUTS_Repair")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © 2021")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'如果此项目向 COM 公开，则下列 GUID 用于 typelib 的 ID
|
||||||
|
<Assembly: Guid("dc7139a5-4f3a-4173-836f-b35f0054e739")>
|
||||||
|
|
||||||
|
' 程序集的版本信息由下列四个值组成:
|
||||||
|
'
|
||||||
|
' 主版本
|
||||||
|
' 次版本
|
||||||
|
' 生成号
|
||||||
|
' 修订号
|
||||||
|
'
|
||||||
|
'可以指定所有这些值，也可以使用“生成号”和“修订号”的默认值
|
||||||
|
'通过使用 "*"，如下所示:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.1.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.1.0.0")>
|
||||||
73
AUTS_Repair/My Project/Resources.Designer.vb
generated
Normal file
73
AUTS_Repair/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <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_Repair.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
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' 查找 System.Drawing.Bitmap 类型的本地化资源。
|
||||||
|
'''</summary>
|
||||||
|
Friend ReadOnly Property NoImg40_30() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("NoImg40_30", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
124
AUTS_Repair/My Project/Resources.resx
Normal file
124
AUTS_Repair/My Project/Resources.resx
Normal file
@@ -0,0 +1,124 @@
|
|||||||
|
<?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>
|
||||||
|
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||||
|
<data name="NoImg40_30" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\bin\Debug\RepairImage\NoImg40_30.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
73
AUTS_Repair/My Project/Settings.Designer.vb
generated
Normal file
73
AUTS_Repair/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </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", "11.0.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 Auto-Save Functionality"
|
||||||
|
#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(ByVal sender As Global.System.Object, ByVal 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
|
||||||
|
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_Repair.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.AUTS_Repair.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user