Merge branch 'rc' of http://172.16.1.76:3000/caihao/SXS20240115 into rc
# Conflicts: # SRC/MESWin/ENT/ET_TestData14278/ET_Subcontractor.vbproj.vspscc # SRC/MESWin/ENT/ET_TestData14278/My Project/Application.Designer.vb # SRC/MESWin/ENT/ET_TestData14278/My Project/Application.myapp # SRC/MESWin/ENT/ET_TestData14278/My Project/AssemblyInfo.vb # SRC/MESWin/ENT/ET_TestData14278/My Project/BuildIncrementVersionInfo.vb # SRC/MESWin/ENT/ET_TestData14278/My Project/Resources.Designer.vb # SRC/MESWin/ENT/ET_TestData14278/My Project/Resources.resx # SRC/MESWin/ENT/ET_TestData14278/My Project/Settings.Designer.vb # SRC/MESWin/ENT/ET_TestData14278/My Project/Settings.settings # SRC/MESWin/ENT/ET_TestData14278/My Project/licenses.licx # SRC/MESWin/ENT/ET_TestData14278/iMES.snk # SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.sln # SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.vbproj # SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.vbproj.user # SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.vbproj.vspscc # SRC/MESWin/SYS1/ET_21674/My Project/Application.Designer.vb # SRC/MESWin/SYS1/ET_21674/My Project/Application.myapp # SRC/MESWin/SYS1/ET_21674/My Project/AssemblyInfo.vb # SRC/MESWin/SYS1/ET_21674/My Project/BuildIncrementVersionInfo.vb # SRC/MESWin/SYS1/ET_21674/My Project/Resources.Designer.vb # SRC/MESWin/SYS1/ET_21674/My Project/Resources.resx # SRC/MESWin/SYS1/ET_21674/My Project/Settings.Designer.vb # SRC/MESWin/SYS1/ET_21674/My Project/Settings.settings # SRC/MESWin/SYS1/ET_21674/My Project/licenses.licx # SRC/MESWin/SYS1/ET_21674/frmSubcontractor.resx # SRC/MESWin/SYS1/ET_21674/frmSubcontractor.vb # SRC/MESWin/SYS1/ET_21674/frmSubcontractorContDef.resx # SRC/MESWin/SYS1/ET_21674/frmSubcontractorContDef.vb # SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.resx # SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb # SRC/MESWin/SYS1/ET_21674/frmTeacherContDef.resx # SRC/MESWin/SYS1/ET_21674/frmTeacherContDef.vb # SRC/MESWin/SYS1/ET_21674/frmTeacherDef.resx # SRC/MESWin/SYS1/ET_21674/frmTeacherDef.vb # SRC/MESWin/SYS1/ET_21674/iMES.snk # SRC/MESWin/SYS2/SYSENT21687/ET_Subcontractor.sln # SRC/MESWin/SYS2/SYSENT21687/ET_Subcontractor.vbproj # SRC/MESWin/SYS2/SYSENT21687/frmSubcontractor.resx # SRC/MESWin/SYS2/SYSENT21687/frmSubcontractorContDef.resx # SRC/MESWin/SYS2/SYSENT21687/frmSubcontractorContDef.vb # SRC/MESWin/SYS2/SYSENT21687/frmSubcontractorDef.resx # SRC/MESWin/SYS2/SYSENT21687/frmSubcontractorDef.vb # SRC/MESWin/SYS4/21691/ET_Subcontractor.sln # SRC/MESWin/SYS4/21691/ET_Subcontractor.vbproj # SRC/MESWin/SYS4/21691/ET_Subcontractor.vbproj.vspscc # SRC/MESWin/SYS4/21691/My Project/Application.Designer.vb # SRC/MESWin/SYS4/21691/My Project/Application.myapp # SRC/MESWin/SYS4/21691/My Project/AssemblyInfo.vb # SRC/MESWin/SYS4/21691/My Project/BuildIncrementVersionInfo.vb # SRC/MESWin/SYS4/21691/My Project/Resources.Designer.vb # SRC/MESWin/SYS4/21691/My Project/Resources.resx # SRC/MESWin/SYS4/21691/My Project/Settings.Designer.vb # SRC/MESWin/SYS4/21691/My Project/Settings.settings # SRC/MESWin/SYS4/21691/My Project/licenses.licx # SRC/MESWin/SYS4/21691/frmSubcontractor.resx # SRC/MESWin/SYS4/21691/frmSubcontractor.vb # SRC/MESWin/SYS4/21691/frmSubcontractorContDef.resx # SRC/MESWin/SYS4/21691/frmSubcontractorContDef.vb # SRC/MESWin/SYS4/21691/frmSubcontractorDef.resx # SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb # SRC/MESWin/SYS4/21691/iMES.snk # SRC/MEStc_SXS/tcENT_21674/clsENT_21674.cs # SRC/wsSXS/wxENT_21674/wsENT_21674.cs
This commit is contained in:
fenghongdan
commit
dd4e6c82e6
@ -1,25 +0,0 @@
|
|||||||
|
|
||||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
|
||||||
# Visual Studio Version 16
|
|
||||||
VisualStudioVersion = 16.0.34407.143
|
|
||||||
MinimumVisualStudioVersion = 10.0.40219.1
|
|
||||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ET_Subcontractor", "ET_Subcontractor.vbproj", "{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}"
|
|
||||||
EndProject
|
|
||||||
Global
|
|
||||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
|
||||||
Debug|x86 = Debug|x86
|
|
||||||
Release|x86 = Release|x86
|
|
||||||
EndGlobalSection
|
|
||||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
|
||||||
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Debug|x86.ActiveCfg = Debug|x86
|
|
||||||
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Debug|x86.Build.0 = Debug|x86
|
|
||||||
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Release|x86.ActiveCfg = Release|x86
|
|
||||||
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Release|x86.Build.0 = Release|x86
|
|
||||||
EndGlobalSection
|
|
||||||
GlobalSection(SolutionProperties) = preSolution
|
|
||||||
HideSolutionNode = FALSE
|
|
||||||
EndGlobalSection
|
|
||||||
GlobalSection(ExtensibilityGlobals) = postSolution
|
|
||||||
SolutionGuid = {BCC83B33-4B36-4EB9-B200-F5C49DEAEE65}
|
|
||||||
EndGlobalSection
|
|
||||||
EndGlobal
|
|
||||||
@ -1,194 +0,0 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<Project ToolsVersion="12.0" DefaultTargets="Build" 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)' == '' ">x86</Platform>
|
|
||||||
<ProjectGuid>{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}</ProjectGuid>
|
|
||||||
<OutputType>Library</OutputType>
|
|
||||||
<RootNamespace>ENT_StuBasis</RootNamespace>
|
|
||||||
<AssemblyName>ENT_StuBasis</AssemblyName>
|
|
||||||
<FileAlignment>512</FileAlignment>
|
|
||||||
<MyType>Windows</MyType>
|
|
||||||
<TargetFrameworkVersion>v4.7.2</TargetFrameworkVersion>
|
|
||||||
<TargetFrameworkProfile />
|
|
||||||
<SccProjectName>SAK</SccProjectName>
|
|
||||||
<SccLocalPath>SAK</SccLocalPath>
|
|
||||||
<SccAuxPath>SAK</SccAuxPath>
|
|
||||||
<SccProvider>SAK</SccProvider>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionExplicit>On</OptionExplicit>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionCompare>Binary</OptionCompare>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionStrict>Off</OptionStrict>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionInfer>On</OptionInfer>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
|
|
||||||
<DebugSymbols>true</DebugSymbols>
|
|
||||||
<DefineDebug>true</DefineDebug>
|
|
||||||
<DefineTrace>true</DefineTrace>
|
|
||||||
<OutputPath>..\..\..\MESClient\</OutputPath>
|
|
||||||
<DocumentationFile>ENT_StuBasis.xml</DocumentationFile>
|
|
||||||
<WarningLevel>0</WarningLevel>
|
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
|
||||||
<DebugType>full</DebugType>
|
|
||||||
<PlatformTarget>x86</PlatformTarget>
|
|
||||||
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
|
||||||
<Prefer32Bit>false</Prefer32Bit>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
|
|
||||||
<DefineTrace>true</DefineTrace>
|
|
||||||
<OutputPath>..\..\..\MESClient\</OutputPath>
|
|
||||||
<DocumentationFile>ENT_StuBasis.xml</DocumentationFile>
|
|
||||||
<Optimize>true</Optimize>
|
|
||||||
<WarningLevel>0</WarningLevel>
|
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
|
||||||
<DebugType>pdbonly</DebugType>
|
|
||||||
<PlatformTarget>x86</PlatformTarget>
|
|
||||||
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
|
||||||
<Prefer32Bit>false</Prefer32Bit>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<SignAssembly>true</SignAssembly>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<AssemblyOriginatorKeyFile>iMES.snk</AssemblyOriginatorKeyFile>
|
|
||||||
</PropertyGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<Reference Include="Infragistics4.Win.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Win.UltraWinGrid.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.UltraWinGrid.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.UltraWinEditors.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Win.Misc.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.Misc.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Shared.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Shared.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="COM_Kit">
|
|
||||||
<HintPath>..\..\..\MESClient\COM_Kit.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="iMESExceptionManager">
|
|
||||||
<HintPath>..\..\..\MES_C_DLL\iMESExceptionManager.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="iMESUltraGrid">
|
|
||||||
<HintPath>..\..\..\MES_C_DLL\iMESUltraGrid.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="System" />
|
|
||||||
<Reference Include="System.Data" />
|
|
||||||
<Reference Include="System.Drawing" />
|
|
||||||
<Reference Include="System.Windows.Forms" />
|
|
||||||
<Reference Include="System.Xml" />
|
|
||||||
<Reference Include="System.Core" />
|
|
||||||
<Reference Include="System.Xml.Linq" />
|
|
||||||
</ItemGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<Import Include="COM_Kit.clsGlobalVariables" />
|
|
||||||
<Import Include="COM_Kit.clsKit" />
|
|
||||||
<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.Drawing" />
|
|
||||||
<Import Include="System.Linq" />
|
|
||||||
<Import Include="System.Windows.Forms" />
|
|
||||||
<Import Include="System.Xml" />
|
|
||||||
<Import Include="System.Xml.Linq" />
|
|
||||||
<Import Include="System.Threading.Tasks" />
|
|
||||||
</ItemGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<Compile Include="..\..\shared file\modConstant.vb">
|
|
||||||
<Link>modConstant.vb</Link>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="frmSubcontractor.vb">
|
|
||||||
<SubType>Form</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="frmSubcontractorContDef.vb">
|
|
||||||
<SubType>Form</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="frmSubcontractorDef.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="frmSubcontractor.resx">
|
|
||||||
<DependentUpon>frmSubcontractor.vb</DependentUpon>
|
|
||||||
</EmbeddedResource>
|
|
||||||
<EmbeddedResource Include="frmSubcontractorContDef.resx">
|
|
||||||
<DependentUpon>frmSubcontractorContDef.vb</DependentUpon>
|
|
||||||
</EmbeddedResource>
|
|
||||||
<EmbeddedResource Include="frmSubcontractorDef.resx">
|
|
||||||
<DependentUpon>frmSubcontractorDef.vb</DependentUpon>
|
|
||||||
</EmbeddedResource>
|
|
||||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
|
||||||
<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="iMES.snk" />
|
|
||||||
<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>
|
|
||||||
</ItemGroup>
|
|
||||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
|
||||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
|
||||||
Other similar extension points exist, see Microsoft.Common.targets.
|
|
||||||
<Target Name="BeforeBuild">
|
|
||||||
</Target>
|
|
||||||
<Target Name="AfterBuild">
|
|
||||||
</Target>
|
|
||||||
-->
|
|
||||||
<Import Project="..\..\shared file\MakeVersion.targets" Condition="exists('..\..\shared file\MakeVersion.targets')" />
|
|
||||||
</Project>
|
|
||||||
@ -1,63 +0,0 @@
|
|||||||
'------------------------------------------------------------------------------
|
|
||||||
' <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("ENT_StuBasis.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
|
|
||||||
@ -1,73 +0,0 @@
|
|||||||
'------------------------------------------------------------------------------
|
|
||||||
' <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
|
|
||||||
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.ENT_StuBasis.My.MySettings
|
|
||||||
Get
|
|
||||||
Return Global.ENT_StuBasis.My.MySettings.Default
|
|
||||||
End Get
|
|
||||||
End Property
|
|
||||||
End Module
|
|
||||||
End Namespace
|
|
||||||
@ -1,8 +0,0 @@
|
|||||||
Infragistics.Win.Misc.UltraGroupBox, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.Misc.UltraLabel, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.Misc.UltraButton, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.UltraWinEditors.UltraRadioButton, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.UltraWinEditors.UltraControlContainerEditor, Infragistics4.Win.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.UltraWinEditors.UltraComboEditor, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.Misc.UltraPanel, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.UltraWinEditors.UltraTextEditor, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
@ -1,123 +0,0 @@
|
|||||||
<?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="UltraControlContainerEditor1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>17, 17</value>
|
|
||||||
</metadata>
|
|
||||||
</root>
|
|
||||||
File diff suppressed because it is too large
Load Diff
@ -1,507 +0,0 @@
|
|||||||
Imports iMESExceptionManager
|
|
||||||
|
|
||||||
Public Class frmStuBasisContDef
|
|
||||||
|
|
||||||
Inherits COM_Kit.frmDefTemplat
|
|
||||||
|
|
||||||
'//Public Variables
|
|
||||||
Public EditDataRow As DataRow
|
|
||||||
Public DefMode As Integer = 0 '0. ADD, 1.Edit, 2. Copy
|
|
||||||
|
|
||||||
Public StuBasisNo As String = defString
|
|
||||||
Public PrivFunNo As String = defString
|
|
||||||
|
|
||||||
'//Web Service相關變數
|
|
||||||
' 2016 YF, Dim wsENT As New wsENT.wsENT
|
|
||||||
Dim InXml As String
|
|
||||||
Dim OutXml As String
|
|
||||||
|
|
||||||
Dim strIdentity As String
|
|
||||||
Dim strParameter As String
|
|
||||||
Dim intDataStamp As Integer '紀錄DataStamp
|
|
||||||
|
|
||||||
#Region " Windows Form Designer generated code "
|
|
||||||
|
|
||||||
Public Sub New()
|
|
||||||
MyBase.New()
|
|
||||||
|
|
||||||
'This call is required by the Windows Form Designer.
|
|
||||||
InitializeComponent()
|
|
||||||
|
|
||||||
'Add any initialization after the InitializeComponent() call
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
'Form overrides dispose to clean up the component list.
|
|
||||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
||||||
If disposing Then
|
|
||||||
If Not (components Is Nothing) Then
|
|
||||||
components.Dispose()
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
MyBase.Dispose(disposing)
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
'Required by the Windows Form Designer
|
|
||||||
Private components As System.ComponentModel.IContainer
|
|
||||||
|
|
||||||
'NOTE: The following procedure is required by the Windows Form Designer
|
|
||||||
'It can be modified using the Windows Form Designer.
|
|
||||||
'Do not modify it using the code editor.
|
|
||||||
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
|
|
||||||
Friend WithEvents lblTelNo As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblDescription As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblTeacherName As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblStuBasisNo As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents gbxStuBasisContData As System.Windows.Forms.GroupBox
|
|
||||||
Friend WithEvents txtStuBasisNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtTeacherName As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtTelNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
||||||
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
|
||||||
Me.gbxStuBasisContData = New System.Windows.Forms.GroupBox()
|
|
||||||
Me.lblTelNo = New System.Windows.Forms.Label()
|
|
||||||
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
|
||||||
Me.lblDescription = New System.Windows.Forms.Label()
|
|
||||||
Me.lblStuBasisNo = New System.Windows.Forms.Label()
|
|
||||||
Me.lblTeacherName = New System.Windows.Forms.Label()
|
|
||||||
Me.txtStuBasisNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtTeacherName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtTelNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
Me.gbxStuBasisContData.SuspendLayout()
|
|
||||||
CType(Me.txtStuBasisNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtTeacherName, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
Me.SuspendLayout()
|
|
||||||
'
|
|
||||||
'gbxBasisData
|
|
||||||
'
|
|
||||||
Me.gbxBasisData.Location = New System.Drawing.Point(12, 322)
|
|
||||||
Me.gbxBasisData.Size = New System.Drawing.Size(472, 70)
|
|
||||||
'
|
|
||||||
'btnApply
|
|
||||||
'
|
|
||||||
Me.btnApply.Location = New System.Drawing.Point(396, 401)
|
|
||||||
'
|
|
||||||
'btnConfirm
|
|
||||||
'
|
|
||||||
Me.btnConfirm.Location = New System.Drawing.Point(208, 401)
|
|
||||||
'
|
|
||||||
'btnClose
|
|
||||||
'
|
|
||||||
Me.btnClose.Location = New System.Drawing.Point(302, 401)
|
|
||||||
'
|
|
||||||
'gbxStuBasisContData
|
|
||||||
'
|
|
||||||
Me.gbxStuBasisContData.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.gbxStuBasisContData.Controls.Add(Me.lblTelNo)
|
|
||||||
Me.gbxStuBasisContData.Controls.Add(Me.txtDescription)
|
|
||||||
Me.gbxStuBasisContData.Controls.Add(Me.lblDescription)
|
|
||||||
Me.gbxStuBasisContData.Controls.Add(Me.lblStuBasisNo)
|
|
||||||
Me.gbxStuBasisContData.Controls.Add(Me.lblTeacherName)
|
|
||||||
Me.gbxStuBasisContData.Controls.Add(Me.txtStuBasisNo)
|
|
||||||
Me.gbxStuBasisContData.Controls.Add(Me.txtTeacherName)
|
|
||||||
Me.gbxStuBasisContData.Controls.Add(Me.txtTelNo)
|
|
||||||
Me.gbxStuBasisContData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.gbxStuBasisContData.Location = New System.Drawing.Point(15, 8)
|
|
||||||
Me.gbxStuBasisContData.Name = "gbxStuBasisContData"
|
|
||||||
Me.gbxStuBasisContData.Size = New System.Drawing.Size(469, 306)
|
|
||||||
Me.gbxStuBasisContData.TabIndex = 0
|
|
||||||
Me.gbxStuBasisContData.TabStop = False
|
|
||||||
Me.gbxStuBasisContData.Text = "ENT StuBasis Contactor Data"
|
|
||||||
'
|
|
||||||
'lblTelNo
|
|
||||||
'
|
|
||||||
Me.lblTelNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblTelNo.Location = New System.Drawing.Point(24, 90)
|
|
||||||
Me.lblTelNo.Name = "lblTelNo"
|
|
||||||
Me.lblTelNo.Size = New System.Drawing.Size(86, 14)
|
|
||||||
Me.lblTelNo.TabIndex = 4
|
|
||||||
Me.lblTelNo.Text = "TelNo"
|
|
||||||
Me.lblTelNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'txtDescription
|
|
||||||
'
|
|
||||||
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.txtDescription.Location = New System.Drawing.Point(120, 138)
|
|
||||||
Me.txtDescription.Name = "txtDescription"
|
|
||||||
Me.txtDescription.Size = New System.Drawing.Size(336, 108)
|
|
||||||
Me.txtDescription.TabIndex = 15
|
|
||||||
Me.txtDescription.Text = ""
|
|
||||||
'
|
|
||||||
'lblDescription
|
|
||||||
'
|
|
||||||
Me.lblDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblDescription.Location = New System.Drawing.Point(28, 138)
|
|
||||||
Me.lblDescription.Name = "lblDescription"
|
|
||||||
Me.lblDescription.Size = New System.Drawing.Size(86, 14)
|
|
||||||
Me.lblDescription.TabIndex = 14
|
|
||||||
Me.lblDescription.Text = "Description"
|
|
||||||
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblStuBasisNo
|
|
||||||
'
|
|
||||||
Me.lblStuBasisNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblStuBasisNo.Location = New System.Drawing.Point(14, 29)
|
|
||||||
Me.lblStuBasisNo.Name = "lblStuBasisNo"
|
|
||||||
Me.lblStuBasisNo.Size = New System.Drawing.Size(96, 14)
|
|
||||||
Me.lblStuBasisNo.TabIndex = 0
|
|
||||||
Me.lblStuBasisNo.Text = "StuBasis No"
|
|
||||||
Me.lblStuBasisNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblTeacherName
|
|
||||||
'
|
|
||||||
Me.lblTeacherName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblTeacherName.Location = New System.Drawing.Point(24, 59)
|
|
||||||
Me.lblTeacherName.Name = "lblTeacherName"
|
|
||||||
Me.lblTeacherName.Size = New System.Drawing.Size(86, 14)
|
|
||||||
Me.lblTeacherName.TabIndex = 2
|
|
||||||
Me.lblTeacherName.Text = "Teacher Name"
|
|
||||||
Me.lblTeacherName.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'txtStuBasisNo
|
|
||||||
'
|
|
||||||
Me.txtStuBasisNo.Location = New System.Drawing.Point(120, 24)
|
|
||||||
Me.txtStuBasisNo.Name = "txtStuBasisNo"
|
|
||||||
Me.txtStuBasisNo.ReadOnly = True
|
|
||||||
Me.txtStuBasisNo.Size = New System.Drawing.Size(114, 22)
|
|
||||||
Me.txtStuBasisNo.TabIndex = 1
|
|
||||||
Me.txtStuBasisNo.TabStop = False
|
|
||||||
'
|
|
||||||
'txtTeacherName
|
|
||||||
'
|
|
||||||
Appearance1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtTeacherName.Appearance = Appearance1
|
|
||||||
Me.txtTeacherName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtTeacherName.Location = New System.Drawing.Point(120, 56)
|
|
||||||
Me.txtTeacherName.Name = "txtTeacherName"
|
|
||||||
Me.txtTeacherName.Size = New System.Drawing.Size(160, 22)
|
|
||||||
Me.txtTeacherName.TabIndex = 3
|
|
||||||
'
|
|
||||||
'txtTelNo
|
|
||||||
'
|
|
||||||
Me.txtTelNo.Location = New System.Drawing.Point(120, 88)
|
|
||||||
Me.txtTelNo.Name = "txtTelNo"
|
|
||||||
Me.txtTelNo.Size = New System.Drawing.Size(114, 22)
|
|
||||||
Me.txtTelNo.TabIndex = 5
|
|
||||||
'
|
|
||||||
'frmStuBasisContDef
|
|
||||||
'
|
|
||||||
Me.ClientSize = New System.Drawing.Size(496, 446)
|
|
||||||
Me.Controls.Add(Me.gbxStuBasisContData)
|
|
||||||
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.Name = "frmStuBasisContDef"
|
|
||||||
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
|
||||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
||||||
Me.Text = "ENT StuBasis Contactor Define"
|
|
||||||
Me.Controls.SetChildIndex(Me.btnClose, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.btnApply, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.gbxStuBasisContData, 0)
|
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
Me.gbxStuBasisContData.ResumeLayout(False)
|
|
||||||
Me.gbxStuBasisContData.PerformLayout()
|
|
||||||
CType(Me.txtStuBasisNo, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtTeacherName, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
Me.ResumeLayout(False)
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
Private Sub frmStuBasisContDef_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
Select Case DefMode
|
|
||||||
Case 0
|
|
||||||
Me.Text = Me.Text & "(ADD)"
|
|
||||||
Case 1
|
|
||||||
Me.Text = Me.Text & "(EDIT)"
|
|
||||||
Case 2
|
|
||||||
Me.Text = Me.Text & "(Copy)"
|
|
||||||
Case Else
|
|
||||||
Me.Text = Me.Text & "(Unknown)"
|
|
||||||
End Select
|
|
||||||
|
|
||||||
'做為MainForm判斷是否重新LoadData的依據()
|
|
||||||
gReturnKeyValue = ""
|
|
||||||
|
|
||||||
' 2016 YF, wsENT.Url = LocalizeWebService(wsENT.Url.ToString)
|
|
||||||
' 2016 YF, wsENT.EnableDecompression = True
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
SetCreateDate(Now)
|
|
||||||
SetCreator(gUserNo)
|
|
||||||
End If
|
|
||||||
If Not EditDataRow Is Nothing Then '修改 or Copy
|
|
||||||
txtStuBasisNo.Text = EditDataRow.Item("StuBasisNo").ToString
|
|
||||||
txtTeacherName.Text = EditDataRow.Item("ContactorName").ToString
|
|
||||||
txtTelNo.Text = EditDataRow.Item("TelNo").ToString
|
|
||||||
'txtDescription是RichTextBox(Control, 因為TextBox無法正常顯示多行換行的資料)
|
|
||||||
txtDescription.Text = EditDataRow.Item("Description").ToString
|
|
||||||
If DefMode = 1 Then
|
|
||||||
If (Not IsDBNull(EditDataRow("Creator"))) Then
|
|
||||||
SetCreateDate(Convert.ToDateTime(EditDataRow.Item("CreateDate")))
|
|
||||||
SetCreator(EditDataRow.Item("Creator").ToString)
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
If DefMode = 0 Then 'Add
|
|
||||||
txtStuBasisNo.Text = StuBasisNo
|
|
||||||
SetCreateDate(Now)
|
|
||||||
SetCreator(gUserNo)
|
|
||||||
ElseIf DefMode = 1 Then 'Edit
|
|
||||||
txtTeacherName.ReadOnly = True
|
|
||||||
SetReviseDate(Now)
|
|
||||||
SetReviser(gUserNo)
|
|
||||||
intDataStamp = EditDataRow.Item("DataStamp")
|
|
||||||
End If
|
|
||||||
|
|
||||||
btnApplyEnabled = False
|
|
||||||
|
|
||||||
'語系切換
|
|
||||||
Call ExeChangeResource(Me, gLanguageMode)
|
|
||||||
ExeGroupControlPriv(Me, PrivFunNo)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub frmStuBasisContDef_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
txtTeacherName.Focus()
|
|
||||||
Else
|
|
||||||
txtTelNo.Focus()
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
If funAddorEdit(sender) < 0 Then Exit Sub
|
|
||||||
|
|
||||||
Me.Close()
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
Me.Close()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
If funAddorEdit(sender) < 0 Then Exit Sub
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
txtTeacherName.Focus()
|
|
||||||
Else
|
|
||||||
txtTelNo.Focus()
|
|
||||||
End If
|
|
||||||
|
|
||||||
btnApplyEnabled = False
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#Region "Control KeyPress"
|
|
||||||
|
|
||||||
Private Sub txtStuBasisNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStuBasisNo.Click
|
|
||||||
txtStuBasisNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtStuBasisNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStuBasisNo.Enter
|
|
||||||
txtStuBasisNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtStuBasisNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtStuBasisNo.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtStuBasisNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStuBasisNo.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtContactorName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherName.Click
|
|
||||||
txtTeacherName.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtContactorName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherName.Enter
|
|
||||||
txtTeacherName.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtContactorName_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTeacherName.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
'Private Sub txtContactorName_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Leave
|
|
||||||
'xtContactorName.Text <> "" And txtEMail.Text = "" Then
|
|
||||||
' txtEMail.Text = txtContactorName.Text & "@"
|
|
||||||
'End If
|
|
||||||
' txtContactorName.Text = UCase(txtContactorName.Text)
|
|
||||||
'End Sub
|
|
||||||
|
|
||||||
Private Sub txtContactorName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherName.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTelNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.Click
|
|
||||||
txtTelNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTelNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.Enter
|
|
||||||
txtTelNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTelNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTelNo.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTelNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
|
|
||||||
Private Sub txtFaxNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtFaxNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
|
|
||||||
Private Sub txtTitle_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTitle_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
|
|
||||||
Private Sub txtAddress_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtAddress_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Click
|
|
||||||
txtDescription.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Enter
|
|
||||||
txtDescription.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtDescription.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
#Region "Others"
|
|
||||||
|
|
||||||
Private Function funAddorEdit(sender As Object) As Integer
|
|
||||||
|
|
||||||
funAddorEdit = -1
|
|
||||||
|
|
||||||
'******************************************************************************
|
|
||||||
'1.基本檢查()
|
|
||||||
'******************************************************************************
|
|
||||||
If txtStuBasisNo.Text = "" Then
|
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%StuBasisNo%]"), MsgBoxStyle.Exclamation, Me.Text)
|
|
||||||
txtStuBasisNo.Focus()
|
|
||||||
Exit Function
|
|
||||||
End If
|
|
||||||
If txtTeacherName.Text = "" Then
|
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%TeacherName%]"), MsgBoxStyle.Exclamation, Me.Text)
|
|
||||||
txtTeacherName.Focus()
|
|
||||||
Exit Function
|
|
||||||
End If
|
|
||||||
|
|
||||||
'******************************************************************************
|
|
||||||
'2.寫回資料庫()
|
|
||||||
'******************************************************************************
|
|
||||||
Dim XmlDoc As New XmlDocument
|
|
||||||
|
|
||||||
Try
|
|
||||||
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
|
||||||
strParameter = CombineXMLParameter("stubasisno", "StuBasisNo", "String", CInput(txtStuBasisNo.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("teachername", "teachername", "String", CInput(txtTeacherName.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
|
|
||||||
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
|
||||||
strParameter += CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
|
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
|
||||||
' 2016 YF, OutXml = wsENT.AddStuBasisCont(InXml)
|
|
||||||
OutXml = InvokeSrv("SXS.ws_21685.AddStuBasisCont", InXml)
|
|
||||||
|
|
||||||
Else 'Edit
|
|
||||||
' 增加Datastamp
|
|
||||||
strParameter += CombineXMLParameter("datastamp", "Datastamp", "Integer", intDataStamp, "")
|
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
|
||||||
' 2016 YF, OutXml = wsENT.EditStuBasisCont(InXml)
|
|
||||||
OutXml = InvokeSrv("SXS.ws_21685.EditStuBasisCont", InXml)
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
XmlDoc.LoadXml(OutXml)
|
|
||||||
If ChkExecutionSuccess(XmlDoc) Then
|
|
||||||
gReturnKeyValue = txtTeacherName.Text
|
|
||||||
|
|
||||||
funAddorEdit = 0
|
|
||||||
If sender.Equals(btnApply) Then
|
|
||||||
intDataStamp += 1
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
|
|
||||||
End If
|
|
||||||
|
|
||||||
Catch ex As Exception
|
|
||||||
'MsgBox("Unexpected Error. Add or Edit ENT StuBasis Contactor Failed!," & e1.Message, MsgBoxStyle.Exclamation)
|
|
||||||
ExceptionManager.iMESShowDialog(defWinErrCode, ex.Message, ex.StackTrace)
|
|
||||||
End Try
|
|
||||||
|
|
||||||
XmlDoc = Nothing
|
|
||||||
|
|
||||||
End Function
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
|
|
||||||
Private Sub frmStuBasisContDef_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
||||||
' 2016 YF, If Not wsENT Is Nothing Then wsENT.Dispose()
|
|
||||||
End Sub
|
|
||||||
End Class
|
|
||||||
|
|
||||||
@ -1,482 +0,0 @@
|
|||||||
Imports iMESExceptionManager
|
|
||||||
|
|
||||||
Public Class frmStuBasisDef
|
|
||||||
|
|
||||||
Inherits COM_Kit.frmDefTemplat
|
|
||||||
|
|
||||||
'//Public Variables
|
|
||||||
Public EditDataRow As DataRow
|
|
||||||
Public DefMode As Integer = 0 '0. ADD, 1.Edit, 2. Copy
|
|
||||||
Public PrivFunNo As String = defString
|
|
||||||
|
|
||||||
'//Web Service相關變數
|
|
||||||
' 2016 YF, Dim wsENT As New wsENT.wsENT
|
|
||||||
Dim InXml As String
|
|
||||||
Dim OutXml As String
|
|
||||||
|
|
||||||
Dim strIdentity As String
|
|
||||||
Dim strParameter As String
|
|
||||||
Friend WithEvents Sex As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents lblStudentSex As Label
|
|
||||||
Dim intDataStamp As Integer '紀錄DataStamp
|
|
||||||
|
|
||||||
#Region " Windows Form Designer generated code "
|
|
||||||
|
|
||||||
Public Sub New()
|
|
||||||
MyBase.New()
|
|
||||||
|
|
||||||
'This call is required by the Windows Form Designer.
|
|
||||||
InitializeComponent()
|
|
||||||
|
|
||||||
'Add any initialization after the InitializeComponent() call
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
'Form overrides dispose to clean up the component list.
|
|
||||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
||||||
If disposing Then
|
|
||||||
If Not (components Is Nothing) Then
|
|
||||||
components.Dispose()
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
MyBase.Dispose(disposing)
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
'Required by the Windows Form Designer
|
|
||||||
Private components As System.ComponentModel.IContainer
|
|
||||||
|
|
||||||
'NOTE: The following procedure is required by the Windows Form Designer
|
|
||||||
'It can be modified using the Windows Form Designer.
|
|
||||||
'Do not modify it using the code editor.
|
|
||||||
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
|
|
||||||
Friend WithEvents lblDescription As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblStudentId As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblStudentName As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblSex As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents gbxStudentData As System.Windows.Forms.GroupBox
|
|
||||||
Friend WithEvents txtStuBasisNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtStuBasisName As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtSex As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
||||||
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
|
||||||
Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
|
||||||
Dim Appearance3 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
|
||||||
Me.gbxStudentData = New System.Windows.Forms.GroupBox()
|
|
||||||
Me.Sex = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.lblStudentSex = New System.Windows.Forms.Label()
|
|
||||||
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
|
||||||
Me.lblDescription = New System.Windows.Forms.Label()
|
|
||||||
Me.lblStudentId = New System.Windows.Forms.Label()
|
|
||||||
Me.lblStudentName = New System.Windows.Forms.Label()
|
|
||||||
Me.txtStuBasisNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtStuBasisName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
Me.gbxStudentData.SuspendLayout()
|
|
||||||
CType(Me.Sex, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtStuBasisNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtStuBasisName, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
Me.SuspendLayout()
|
|
||||||
'
|
|
||||||
'gbxBasisData
|
|
||||||
'
|
|
||||||
Me.gbxBasisData.Location = New System.Drawing.Point(12, 257)
|
|
||||||
Me.gbxBasisData.Size = New System.Drawing.Size(512, 70)
|
|
||||||
'
|
|
||||||
'btnApply
|
|
||||||
'
|
|
||||||
Me.btnApply.Location = New System.Drawing.Point(436, 336)
|
|
||||||
'
|
|
||||||
'btnConfirm
|
|
||||||
'
|
|
||||||
Me.btnConfirm.Location = New System.Drawing.Point(248, 336)
|
|
||||||
'
|
|
||||||
'btnClose
|
|
||||||
'
|
|
||||||
Me.btnClose.Location = New System.Drawing.Point(342, 336)
|
|
||||||
'
|
|
||||||
'gbxStudentData
|
|
||||||
'
|
|
||||||
Me.gbxStudentData.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.gbxStudentData.Controls.Add(Me.Sex)
|
|
||||||
Me.gbxStudentData.Controls.Add(Me.lblStudentSex)
|
|
||||||
Me.gbxStudentData.Controls.Add(Me.txtDescription)
|
|
||||||
Me.gbxStudentData.Controls.Add(Me.lblDescription)
|
|
||||||
Me.gbxStudentData.Controls.Add(Me.lblStudentId)
|
|
||||||
Me.gbxStudentData.Controls.Add(Me.lblStudentName)
|
|
||||||
Me.gbxStudentData.Controls.Add(Me.txtStuBasisNo)
|
|
||||||
Me.gbxStudentData.Controls.Add(Me.txtStuBasisName)
|
|
||||||
Me.gbxStudentData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.gbxStudentData.Location = New System.Drawing.Point(12, 8)
|
|
||||||
Me.gbxStudentData.Name = "gbxStudentData"
|
|
||||||
Me.gbxStudentData.Size = New System.Drawing.Size(512, 241)
|
|
||||||
Me.gbxStudentData.TabIndex = 7
|
|
||||||
Me.gbxStudentData.TabStop = False
|
|
||||||
Me.gbxStudentData.Text = "Student Data"
|
|
||||||
'
|
|
||||||
'Sex
|
|
||||||
'
|
|
||||||
Appearance1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.Sex.Appearance = Appearance1
|
|
||||||
Me.Sex.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.Sex.Location = New System.Drawing.Point(128, 88)
|
|
||||||
Me.Sex.Name = "Sex"
|
|
||||||
Me.Sex.Size = New System.Drawing.Size(154, 30)
|
|
||||||
Me.Sex.TabIndex = 15
|
|
||||||
'
|
|
||||||
'lblStudentSex
|
|
||||||
'
|
|
||||||
Me.lblStudentSex.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblStudentSex.Location = New System.Drawing.Point(10, 88)
|
|
||||||
Me.lblStudentSex.Name = "lblStudentSex"
|
|
||||||
Me.lblStudentSex.Size = New System.Drawing.Size(112, 32)
|
|
||||||
Me.lblStudentSex.TabIndex = 14
|
|
||||||
Me.lblStudentSex.Text = "Student Sex"
|
|
||||||
Me.lblStudentSex.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'txtDescription
|
|
||||||
'
|
|
||||||
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.txtDescription.Location = New System.Drawing.Point(126, 131)
|
|
||||||
Me.txtDescription.Name = "txtDescription"
|
|
||||||
Me.txtDescription.Size = New System.Drawing.Size(334, 67)
|
|
||||||
Me.txtDescription.TabIndex = 2
|
|
||||||
Me.txtDescription.Text = ""
|
|
||||||
'
|
|
||||||
'lblDescription
|
|
||||||
'
|
|
||||||
Me.lblDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblDescription.Location = New System.Drawing.Point(56, 131)
|
|
||||||
Me.lblDescription.Name = "lblDescription"
|
|
||||||
Me.lblDescription.Size = New System.Drawing.Size(64, 14)
|
|
||||||
Me.lblDescription.TabIndex = 13
|
|
||||||
Me.lblDescription.Text = "Description"
|
|
||||||
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblStudentId
|
|
||||||
'
|
|
||||||
Me.lblStudentId.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblStudentId.Location = New System.Drawing.Point(24, 24)
|
|
||||||
Me.lblStudentId.Name = "lblStudentId"
|
|
||||||
Me.lblStudentId.Size = New System.Drawing.Size(96, 32)
|
|
||||||
Me.lblStudentId.TabIndex = 5
|
|
||||||
Me.lblStudentId.Text = "Student ID"
|
|
||||||
Me.lblStudentId.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblStudentName
|
|
||||||
'
|
|
||||||
Me.lblStudentName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblStudentName.Location = New System.Drawing.Point(8, 56)
|
|
||||||
Me.lblStudentName.Name = "lblStudentName"
|
|
||||||
Me.lblStudentName.Size = New System.Drawing.Size(112, 32)
|
|
||||||
Me.lblStudentName.TabIndex = 9
|
|
||||||
Me.lblStudentName.Text = "Student Name"
|
|
||||||
Me.lblStudentName.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'txtStuBasisNo
|
|
||||||
'
|
|
||||||
Appearance2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtStuBasisNo.Appearance = Appearance2
|
|
||||||
Me.txtStuBasisNo.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtStuBasisNo.Location = New System.Drawing.Point(128, 24)
|
|
||||||
Me.txtStuBasisNo.Name = "txtStuBasisNo"
|
|
||||||
Me.txtStuBasisNo.Size = New System.Drawing.Size(152, 30)
|
|
||||||
Me.txtStuBasisNo.TabIndex = 0
|
|
||||||
'
|
|
||||||
'txtStuBasisName
|
|
||||||
'
|
|
||||||
Appearance3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtStuBasisName.Appearance = Appearance3
|
|
||||||
Me.txtStuBasisName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtStuBasisName.Location = New System.Drawing.Point(128, 55)
|
|
||||||
Me.txtStuBasisName.Name = "txtStuBasisName"
|
|
||||||
Me.txtStuBasisName.Size = New System.Drawing.Size(152, 30)
|
|
||||||
Me.txtStuBasisName.TabIndex = 1
|
|
||||||
'
|
|
||||||
'frmStuBasisDef
|
|
||||||
'
|
|
||||||
Me.ClientSize = New System.Drawing.Size(536, 381)
|
|
||||||
Me.Controls.Add(Me.gbxStudentData)
|
|
||||||
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.Name = "frmStuBasisDef"
|
|
||||||
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
|
||||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
||||||
Me.Text = "ENT Student Define"
|
|
||||||
Me.Controls.SetChildIndex(Me.btnClose, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.btnApply, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.gbxStudentData, 0)
|
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
Me.gbxStudentData.ResumeLayout(False)
|
|
||||||
Me.gbxStudentData.PerformLayout()
|
|
||||||
CType(Me.Sex, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtStuBasisNo, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtStuBasisName, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
Me.ResumeLayout(False)
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
Private Sub frmStuBasisDef_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
Select Case DefMode
|
|
||||||
Case 0
|
|
||||||
Me.Text = Me.Text & "(ADD)"
|
|
||||||
Case 1
|
|
||||||
Me.Text = Me.Text & "(EDIT)"
|
|
||||||
Case 2
|
|
||||||
Me.Text = Me.Text & "(Copy)"
|
|
||||||
Case Else
|
|
||||||
Me.Text = Me.Text & "(Unknown)"
|
|
||||||
End Select
|
|
||||||
|
|
||||||
'做為MainForm判斷是否重新LoadData的依據
|
|
||||||
gReturnKeyValue = ""
|
|
||||||
|
|
||||||
' 2016 YF, wsENT.Url = LocalizeWebService(wsENT.Url.ToString)
|
|
||||||
' 2016 YF, wsENT.EnableDecompression = True
|
|
||||||
|
|
||||||
If Not EditDataRow Is Nothing Then
|
|
||||||
txtStuBasisNo.Text = EditDataRow.Item("StuBasisNo").ToString
|
|
||||||
txtStuBasisName.Text = EditDataRow.Item("StuBasisName").ToString
|
|
||||||
'txtDescription是RichTextBox Control,因為TextBox無法正常顯示多行換行的資料
|
|
||||||
txtDescription.Text = EditDataRow.Item("Description").ToString
|
|
||||||
End If
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
|
||||||
SetCreator(gUserNo)
|
|
||||||
SetCreateDate(Now)
|
|
||||||
ElseIf DefMode = 1 Then 'Edit
|
|
||||||
txtStuBasisNo.ReadOnly = True
|
|
||||||
SetCreator(EditDataRow.Item("Creator").ToString)
|
|
||||||
SetCreateDate(Convert.ToDateTime(EditDataRow.Item("CreateDate")))
|
|
||||||
SetReviser(gUserNo)
|
|
||||||
SetReviseDate(Now)
|
|
||||||
intDataStamp = EditDataRow.Item("DataStamp")
|
|
||||||
End If
|
|
||||||
|
|
||||||
btnApplyEnabled = False
|
|
||||||
|
|
||||||
'語系切換
|
|
||||||
Call ExeChangeResource(Me, gLanguageMode)
|
|
||||||
ExeGroupControlPriv(Me, PrivFunNo)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub frmStuBasisDef_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
txtStuBasisNo.Focus()
|
|
||||||
Else
|
|
||||||
txtStuBasisName.Focus()
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConfirm.Click
|
|
||||||
Try
|
|
||||||
' 调用funAddorEdit函数并将sender作为参数传递
|
|
||||||
Dim result As Integer = funAddorEdit(sender)
|
|
||||||
|
|
||||||
' 根据需要处理结果
|
|
||||||
If result = 0 Then
|
|
||||||
' 函数成功执行
|
|
||||||
Me.Close()
|
|
||||||
Else
|
|
||||||
' 函数遇到错误或验证失败
|
|
||||||
End If
|
|
||||||
Catch ex As Exception
|
|
||||||
' 处理意外错误
|
|
||||||
ExceptionManager.iMESShowDialog(defWinErrCode, ex.Message, ex.StackTrace)
|
|
||||||
End Try
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
|
|
||||||
Protected Overrides Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
Me.Close()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
If funAddorEdit(sender) < 0 Then Exit Sub
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
txtStuBasisNo.Focus()
|
|
||||||
Else
|
|
||||||
txtStuBasisName.Focus()
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
btnApplyEnabled = False
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub frmStuBasisDef_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
||||||
' 2016 YF, If Not wsENT Is Nothing Then wsENT.Dispose()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#Region "Control KeyPress"
|
|
||||||
|
|
||||||
Private Sub txtStuBasisNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStuBasisNo.Click
|
|
||||||
txtStuBasisNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtStuBasisNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStuBasisNo.Enter
|
|
||||||
txtStuBasisNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtStuBasisNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtStuBasisNo.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtStuBasisNo_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStuBasisNo.Leave
|
|
||||||
txtStuBasisNo.Text = UCase(txtStuBasisNo.Text)
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtStuBasisNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStuBasisNo.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtStuBasisName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStuBasisName.Click
|
|
||||||
txtStuBasisName.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtStuBasisName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStuBasisName.Enter
|
|
||||||
txtStuBasisName.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtStuBasisName_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtStuBasisName.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtStuBasisName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStuBasisName.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Click
|
|
||||||
txtDescription.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Enter
|
|
||||||
txtDescription.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
#Region "Others"
|
|
||||||
|
|
||||||
Private Function funAddorEdit(sender As Object) As Integer
|
|
||||||
|
|
||||||
funAddorEdit = -1
|
|
||||||
|
|
||||||
'******************************************************************************
|
|
||||||
'1.基本檢查
|
|
||||||
'******************************************************************************
|
|
||||||
If txtStuBasisNo.Text = "" Then
|
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%StuBasisNo%]"), MsgBoxStyle.Exclamation, Me.Text)
|
|
||||||
txtStuBasisNo.Focus()
|
|
||||||
Exit Function
|
|
||||||
End If
|
|
||||||
|
|
||||||
If txtStuBasisName.Text = "" Then
|
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%StuBasisName%]"), MsgBoxStyle.Exclamation, Me.Text)
|
|
||||||
txtStuBasisName.Focus()
|
|
||||||
Exit Function
|
|
||||||
End If
|
|
||||||
|
|
||||||
If Sex.Text = "" Then
|
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%Sex%]"), MsgBoxStyle.Exclamation, Me.Text)
|
|
||||||
Sex.Focus()
|
|
||||||
Exit Function
|
|
||||||
End If
|
|
||||||
|
|
||||||
'2.
|
|
||||||
'******************************************************************************
|
|
||||||
'寫回資料庫
|
|
||||||
'******************************************************************************
|
|
||||||
Dim XmlDoc As New XmlDocument
|
|
||||||
|
|
||||||
Try
|
|
||||||
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
|
||||||
strParameter = CombineXMLParameter("stubasisno", "StuBasisNo", "String", CInput(txtStuBasisNo.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("stubasisname", "StuBasisName", "String", CInput(txtStuBasisName.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("sex", "Sex", "String", CInput(Sex.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
|
||||||
strParameter = strParameter & CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("createdate", "CreateDate", "DateTime", Format(Now, "yyyy/MM/dd HH:mm:ss"), "")
|
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
|
||||||
|
|
||||||
' 2016 YF, OutXml = ws_21685.AddStuBasis(InXml)
|
|
||||||
OutXml = InvokeSrv("SXS.ws_21685.AddStuBasis", InXml)
|
|
||||||
|
|
||||||
Else
|
|
||||||
'修改
|
|
||||||
strParameter = strParameter & CombineXMLParameter("issuestate", "IssueState", "String", EditDataRow.Item("IssueState").ToString, "")
|
|
||||||
' 增加Datastamp
|
|
||||||
strParameter += CombineXMLParameter("datastamp", "Datastamp", "Integer", intDataStamp, "")
|
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
|
||||||
|
|
||||||
' 2016 YF, OutXml = wsENT.EditStuBasis(InXml)
|
|
||||||
OutXml = InvokeSrv("SXS.ws_21685.EditStuBasis", InXml)
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
XmlDoc.LoadXml(OutXml)
|
|
||||||
If ChkExecutionSuccess(XmlDoc) Then
|
|
||||||
gReturnKeyValue = txtStuBasisNo.Text
|
|
||||||
|
|
||||||
funAddorEdit = 0
|
|
||||||
If sender.Equals(btnApply) Then
|
|
||||||
intDataStamp += 1
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
|
|
||||||
End If
|
|
||||||
|
|
||||||
Catch ex As Exception
|
|
||||||
'MsgBox("Unexpected Error. Add or Edit ENT StuBasis Failed!," & e1.Message, MsgBoxStyle.Exclamation)
|
|
||||||
ExceptionManager.iMESShowDialog(defWinErrCode, ex.Message, ex.StackTrace)
|
|
||||||
End Try
|
|
||||||
|
|
||||||
XmlDoc = Nothing
|
|
||||||
|
|
||||||
End Function
|
|
||||||
|
|
||||||
Private Sub lblStuBasisNo_Click(sender As Object, e As EventArgs) Handles lblStudentId.Click
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub lblDescription_Click(sender As Object, e As EventArgs) Handles lblDescription.Click
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub UltraTextEditor1_ValueChanged(sender As Object, e As EventArgs) Handles Sex.ValueChanged
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
End Class
|
|
||||||
|
|
||||||
@ -6,8 +6,13 @@
|
|||||||
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||||
<ProjectGuid>{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}</ProjectGuid>
|
<ProjectGuid>{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}</ProjectGuid>
|
||||||
<OutputType>Library</OutputType>
|
<OutputType>Library</OutputType>
|
||||||
<RootNamespace>ET_Subcontractor_21708</RootNamespace>
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/ET_Subcontractor.vbproj
|
||||||
<AssemblyName>ET_Subcontractor_21708</AssemblyName>
|
<RootNamespace>ET_Subcontractor_21691</RootNamespace>
|
||||||
|
<AssemblyName>ET_Subcontractor_21691</AssemblyName>
|
||||||
|
========
|
||||||
|
<RootNamespace>ET_Teacher_M</RootNamespace>
|
||||||
|
<AssemblyName>ET_Teacher_M</AssemblyName>
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.vbproj
|
||||||
<FileAlignment>512</FileAlignment>
|
<FileAlignment>512</FileAlignment>
|
||||||
<MyType>Windows</MyType>
|
<MyType>Windows</MyType>
|
||||||
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
|
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
|
||||||
@ -34,7 +39,11 @@
|
|||||||
<DefineDebug>true</DefineDebug>
|
<DefineDebug>true</DefineDebug>
|
||||||
<DefineTrace>true</DefineTrace>
|
<DefineTrace>true</DefineTrace>
|
||||||
<OutputPath>..\..\..\MESClient\</OutputPath>
|
<OutputPath>..\..\..\MESClient\</OutputPath>
|
||||||
<DocumentationFile>ET_Subcontractor_21708.xml</DocumentationFile>
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/ET_Subcontractor.vbproj
|
||||||
|
<DocumentationFile>ET_Subcontractor_21691.xml</DocumentationFile>
|
||||||
|
========
|
||||||
|
<DocumentationFile>ET_Teacher_M.xml</DocumentationFile>
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.vbproj
|
||||||
<WarningLevel>0</WarningLevel>
|
<WarningLevel>0</WarningLevel>
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
<DebugType>full</DebugType>
|
<DebugType>full</DebugType>
|
||||||
@ -45,7 +54,11 @@
|
|||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
|
||||||
<DefineTrace>true</DefineTrace>
|
<DefineTrace>true</DefineTrace>
|
||||||
<OutputPath>..\..\..\MESClient\</OutputPath>
|
<OutputPath>..\..\..\MESClient\</OutputPath>
|
||||||
<DocumentationFile>ET_Subcontractor_21708.xml</DocumentationFile>
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/ET_Subcontractor.vbproj
|
||||||
|
<DocumentationFile>ET_Subcontractor_21691.xml</DocumentationFile>
|
||||||
|
========
|
||||||
|
<DocumentationFile>ET_Teacher_M.xml</DocumentationFile>
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.vbproj
|
||||||
<Optimize>true</Optimize>
|
<Optimize>true</Optimize>
|
||||||
<WarningLevel>0</WarningLevel>
|
<WarningLevel>0</WarningLevel>
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
@ -129,10 +142,10 @@
|
|||||||
<Compile Include="frmSubcontractor.vb">
|
<Compile Include="frmSubcontractor.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="frmSubcontractorContDef.vb">
|
<Compile Include="frmTeacherContDef.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="frmSubcontractorDef.vb">
|
<Compile Include="frmTeacherDef.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
@ -156,11 +169,11 @@
|
|||||||
<EmbeddedResource Include="frmSubcontractor.resx">
|
<EmbeddedResource Include="frmSubcontractor.resx">
|
||||||
<DependentUpon>frmSubcontractor.vb</DependentUpon>
|
<DependentUpon>frmSubcontractor.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="frmSubcontractorContDef.resx">
|
<EmbeddedResource Include="frmTeacherContDef.resx">
|
||||||
<DependentUpon>frmSubcontractorContDef.vb</DependentUpon>
|
<DependentUpon>frmTeacherContDef.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="frmSubcontractorDef.resx">
|
<EmbeddedResource Include="frmTeacherDef.resx">
|
||||||
<DependentUpon>frmSubcontractorDef.vb</DependentUpon>
|
<DependentUpon>frmTeacherDef.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||||
<EmbeddedResource Include="My Project\Resources.resx">
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
@ -1,6 +1,6 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ReferencePath>E:\MESEnv\607.4\MESsc\SClientSource\</ReferencePath>
|
<ReferencePath>D:\Program Files\work\IIS\607.4\MESsc\SClientSource\</ReferencePath>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
</Project>
|
</Project>
|
||||||
@ -39,7 +39,11 @@ Namespace My.Resources
|
|||||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||||
Get
|
Get
|
||||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ET_Subcontractor_21690.Resources", GetType(Resources).Assembly)
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/My Project/Resources.Designer.vb
|
||||||
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ET_Subcontractor_21691.Resources", GetType(Resources).Assembly)
|
||||||
|
========
|
||||||
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ET_Teacher_M.Resources", GetType(Resources).Assembly)
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/My Project/Resources.Designer.vb
|
||||||
resourceMan = temp
|
resourceMan = temp
|
||||||
End If
|
End If
|
||||||
Return resourceMan
|
Return resourceMan
|
||||||
@ -64,9 +64,15 @@ Namespace My
|
|||||||
Friend Module MySettingsProperty
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
Friend ReadOnly Property Settings() As Global.ET_Subcontractor_21681.My.MySettings
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/My Project/Settings.Designer.vb
|
||||||
|
Friend ReadOnly Property Settings() As Global.ET_Subcontractor_21691.My.MySettings
|
||||||
Get
|
Get
|
||||||
Return Global.ET_Subcontractor_21681.My.MySettings.Default
|
Return Global.ET_Subcontractor_21691.My.MySettings.Default
|
||||||
|
========
|
||||||
|
Friend ReadOnly Property Settings() As Global.ET_Teacher_M.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.ET_Teacher_M.My.MySettings.Default
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/My Project/Settings.Designer.vb
|
||||||
End Get
|
End Get
|
||||||
End Property
|
End Property
|
||||||
End Module
|
End Module
|
||||||
@ -2,7 +2,7 @@
|
|||||||
|
|
||||||
Imports Infragistics.Win
|
Imports Infragistics.Win
|
||||||
Imports Infragistics.Win.UltraWinGrid
|
Imports Infragistics.Win.UltraWinGrid
|
||||||
Public Class frmTestData21706
|
Public Class frmTeacher
|
||||||
|
|
||||||
Inherits COM_Kit.frmBasisTemplat
|
Inherits COM_Kit.frmBasisTemplat
|
||||||
|
|
||||||
@ -22,12 +22,12 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
Dim dsENT As New DataSet '資料集：儲存取回之資料?
|
Dim dsENT As New DataSet '資料集：儲存取回之資料?
|
||||||
|
|
||||||
Dim tblENTSubcontractor As String '儲存取回資料表的名稱(master)?
|
Dim AA_21674TEACHER As String '儲存取回資料表的名稱(master)?
|
||||||
Dim tblENTSubcontractorCont As String '明細資料表名稱(detail)
|
Dim AA_21674TeacherCont As String '明細資料表名稱(detail)
|
||||||
Dim strFilter As String 'Filter string及列印的過濾條件
|
Dim strFilter As String 'Filter string及列印的過濾條件
|
||||||
|
|
||||||
'//其他共用變數
|
'//其他共用變數
|
||||||
Dim SubcontractorNo As String 'for Gird to Focus
|
Dim TeacherNo As String 'for Gird to Focus
|
||||||
Dim ContactorName As String 'for DetailGrid to Focus
|
Dim ContactorName As String 'for DetailGrid to Focus
|
||||||
Dim ugrRow As Infragistics.Win.UltraWinGrid.UltraGridRow
|
Dim ugrRow As Infragistics.Win.UltraWinGrid.UltraGridRow
|
||||||
Friend WithEvents btnAdd As Misc.UltraButton
|
Friend WithEvents btnAdd As Misc.UltraButton
|
||||||
@ -35,7 +35,7 @@ Public Class frmTestData21706
|
|||||||
Friend WithEvents btnDel As Misc.UltraButton
|
Friend WithEvents btnDel As Misc.UltraButton
|
||||||
Friend WithEvents btnCopy As Misc.UltraButton
|
Friend WithEvents btnCopy As Misc.UltraButton
|
||||||
Friend WithEvents btnApprove As Misc.UltraButton
|
Friend WithEvents btnApprove As Misc.UltraButton
|
||||||
Friend WithEvents iugSubcontractor As iMESUltraGrid.iMESUltraGridControl
|
Friend WithEvents iugTeacher As iMESUltraGrid.iMESUltraGridControl
|
||||||
Dim i As Integer
|
Dim i As Integer
|
||||||
|
|
||||||
#Region " Windows Form Designer generated code "
|
#Region " Windows Form Designer generated code "
|
||||||
@ -82,7 +82,7 @@ Public Class frmTestData21706
|
|||||||
Me.btnDel = New Infragistics.Win.Misc.UltraButton()
|
Me.btnDel = New Infragistics.Win.Misc.UltraButton()
|
||||||
Me.btnCopy = New Infragistics.Win.Misc.UltraButton()
|
Me.btnCopy = New Infragistics.Win.Misc.UltraButton()
|
||||||
Me.btnApprove = New Infragistics.Win.Misc.UltraButton()
|
Me.btnApprove = New Infragistics.Win.Misc.UltraButton()
|
||||||
Me.iugSubcontractor = New iMESUltraGrid.iMESUltraGridControl()
|
Me.iugTeacher = New iMESUltraGrid.iMESUltraGridControl()
|
||||||
Me.SuspendLayout()
|
Me.SuspendLayout()
|
||||||
'
|
'
|
||||||
'btnClose
|
'btnClose
|
||||||
@ -210,33 +210,33 @@ Public Class frmTestData21706
|
|||||||
Me.btnApprove.TabIndex = 24
|
Me.btnApprove.TabIndex = 24
|
||||||
Me.btnApprove.Text = "Approve(&Y)"
|
Me.btnApprove.Text = "Approve(&Y)"
|
||||||
'
|
'
|
||||||
'iugSubcontractor
|
'iugTeacher
|
||||||
'
|
'
|
||||||
Me.iugSubcontractor.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
Me.iugTeacher.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.iugSubcontractor.EnterDirection = iMESUltraGrid.iMESUltraGridControl.EnterDirectionEnum.Down
|
Me.iugTeacher.EnterDirection = iMESUltraGrid.iMESUltraGridControl.EnterDirectionEnum.Down
|
||||||
Me.iugSubcontractor.GroupBoxPromptText = "Drag a column header here to group by that column."
|
Me.iugTeacher.GroupBoxPromptText = "Drag a column header here to group by that column."
|
||||||
Me.iugSubcontractor.GroupBoxTextForeColor = System.Drawing.Color.Red
|
Me.iugTeacher.GroupBoxTextForeColor = System.Drawing.Color.Red
|
||||||
Me.iugSubcontractor.Identity = "IMes"
|
Me.iugTeacher.Identity = "IMes"
|
||||||
Me.iugSubcontractor.IdentityForm = ""
|
Me.iugTeacher.IdentityForm = ""
|
||||||
Me.iugSubcontractor.LayOutFilePath = ""
|
Me.iugTeacher.LayOutFilePath = ""
|
||||||
Me.iugSubcontractor.Location = New System.Drawing.Point(12, 53)
|
Me.iugTeacher.Location = New System.Drawing.Point(12, 53)
|
||||||
Me.iugSubcontractor.Name = "iugSubcontractor"
|
Me.iugTeacher.Name = "iugTeacher"
|
||||||
Me.iugSubcontractor.PrintFitWidthToPages = 0
|
Me.iugTeacher.PrintFitWidthToPages = 0
|
||||||
Me.iugSubcontractor.PrintLandscape = True
|
Me.iugTeacher.PrintLandscape = True
|
||||||
Me.iugSubcontractor.PrintPageFooter = ""
|
Me.iugTeacher.PrintPageFooter = ""
|
||||||
Me.iugSubcontractor.PrintPageFooterHAlign = Infragistics.Win.HAlign.[Default]
|
Me.iugTeacher.PrintPageFooterHAlign = Infragistics.Win.HAlign.[Default]
|
||||||
Me.iugSubcontractor.PrintPageFooterHeight = 20
|
Me.iugTeacher.PrintPageFooterHeight = 20
|
||||||
Me.iugSubcontractor.PrintPageHeader = ""
|
Me.iugTeacher.PrintPageHeader = ""
|
||||||
Me.iugSubcontractor.PrintPageHeaderHAlign = Infragistics.Win.HAlign.[Default]
|
Me.iugTeacher.PrintPageHeaderHAlign = Infragistics.Win.HAlign.[Default]
|
||||||
Me.iugSubcontractor.PrintPageHeaderHeight = 20
|
Me.iugTeacher.PrintPageHeaderHeight = 20
|
||||||
Me.iugSubcontractor.PrintZoom = 1.0R
|
Me.iugTeacher.PrintZoom = 1.0R
|
||||||
Me.iugSubcontractor.Size = New System.Drawing.Size(894, 192)
|
Me.iugTeacher.Size = New System.Drawing.Size(894, 192)
|
||||||
Me.iugSubcontractor.TabIndex = 25
|
Me.iugTeacher.TabIndex = 25
|
||||||
Me.iugSubcontractor.UserNo = "IMes"
|
Me.iugTeacher.UserNo = "IMes"
|
||||||
'
|
'
|
||||||
'frmTestData_21706
|
'frmTeacher
|
||||||
'
|
'
|
||||||
Me.ClientSize = New System.Drawing.Size(1008, 591)
|
Me.ClientSize = New System.Drawing.Size(1008, 591)
|
||||||
Me.Controls.Add(Me.btnClose)
|
Me.Controls.Add(Me.btnClose)
|
||||||
@ -245,7 +245,7 @@ Public Class frmTestData21706
|
|||||||
Me.Controls.Add(Me.btnDCopy)
|
Me.Controls.Add(Me.btnDCopy)
|
||||||
Me.Controls.Add(Me.btnCopy)
|
Me.Controls.Add(Me.btnCopy)
|
||||||
Me.Controls.Add(Me.btnDDel)
|
Me.Controls.Add(Me.btnDDel)
|
||||||
Me.Controls.Add(Me.iugSubcontractor)
|
Me.Controls.Add(Me.iugTeacher)
|
||||||
Me.Controls.Add(Me.btnDEdit)
|
Me.Controls.Add(Me.btnDEdit)
|
||||||
Me.Controls.Add(Me.btnAdd)
|
Me.Controls.Add(Me.btnAdd)
|
||||||
Me.Controls.Add(Me.btnDAdd)
|
Me.Controls.Add(Me.btnDAdd)
|
||||||
@ -253,8 +253,8 @@ Public Class frmTestData21706
|
|||||||
Me.Controls.Add(Me.iugDetail)
|
Me.Controls.Add(Me.iugDetail)
|
||||||
Me.Controls.Add(Me.btnEdit)
|
Me.Controls.Add(Me.btnEdit)
|
||||||
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.Name = "frmTestData_21706"
|
Me.Name = "frmTeacher"
|
||||||
Me.Text = "ENT TestData21706"
|
Me.Text = "ENT Teacher"
|
||||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||||
Me.Controls.SetChildIndex(Me.btnEdit, 0)
|
Me.Controls.SetChildIndex(Me.btnEdit, 0)
|
||||||
Me.Controls.SetChildIndex(Me.iugDetail, 0)
|
Me.Controls.SetChildIndex(Me.iugDetail, 0)
|
||||||
@ -262,7 +262,7 @@ Public Class frmTestData21706
|
|||||||
Me.Controls.SetChildIndex(Me.btnDAdd, 0)
|
Me.Controls.SetChildIndex(Me.btnDAdd, 0)
|
||||||
Me.Controls.SetChildIndex(Me.btnAdd, 0)
|
Me.Controls.SetChildIndex(Me.btnAdd, 0)
|
||||||
Me.Controls.SetChildIndex(Me.btnDEdit, 0)
|
Me.Controls.SetChildIndex(Me.btnDEdit, 0)
|
||||||
Me.Controls.SetChildIndex(Me.iugSubcontractor, 0)
|
Me.Controls.SetChildIndex(Me.iugTeacher, 0)
|
||||||
Me.Controls.SetChildIndex(Me.btnDDel, 0)
|
Me.Controls.SetChildIndex(Me.btnDDel, 0)
|
||||||
Me.Controls.SetChildIndex(Me.btnCopy, 0)
|
Me.Controls.SetChildIndex(Me.btnCopy, 0)
|
||||||
Me.Controls.SetChildIndex(Me.btnDCopy, 0)
|
Me.Controls.SetChildIndex(Me.btnDCopy, 0)
|
||||||
@ -285,10 +285,10 @@ Public Class frmTestData21706
|
|||||||
Call funiMESUltraGridIni() 'Grid初始設定
|
Call funiMESUltraGridIni() 'Grid初始設定
|
||||||
|
|
||||||
'//取出資料
|
'//取出資料
|
||||||
Call funLoadSubcontractor()
|
Call funLoadTeacher()
|
||||||
|
|
||||||
SetIssueState(Issue.Unfrozen) '預設在Unforzen上
|
SetIssueState(Issue.Unfrozen) '預設在Unforzen上
|
||||||
SetSearchFieldName(New String() {"SubcontractorNo", "SubcontractorNaME"}) '設置搜尋欄位
|
SetSearchFieldName(New String() {"TeacherNo", "TeacherNaME"}) '設置搜尋欄位
|
||||||
|
|
||||||
|
|
||||||
'語系切換
|
'語系切換
|
||||||
@ -309,15 +309,15 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
Select Case GetIssueState()
|
Select Case GetIssueState()
|
||||||
Case Issue.Unfrozen
|
Case Issue.Unfrozen
|
||||||
dsENT.Tables(tblENTSubcontractor).DefaultView.RowFilter = "IssueState=0"
|
dsENT.Tables(AA_21674TEACHER).DefaultView.RowFilter = "IssueState=0"
|
||||||
Case Issue.Pending
|
Case Issue.Pending
|
||||||
dsENT.Tables(tblENTSubcontractor).DefaultView.RowFilter = "IssueState=1"
|
dsENT.Tables(AA_21674TEACHER).DefaultView.RowFilter = "IssueState=1"
|
||||||
Case Issue.Active
|
Case Issue.Active
|
||||||
dsENT.Tables(tblENTSubcontractor).DefaultView.RowFilter = "IssueState=2"
|
dsENT.Tables(AA_21674TEACHER).DefaultView.RowFilter = "IssueState=2"
|
||||||
Case Issue.Unused
|
Case Issue.Unused
|
||||||
dsENT.Tables(tblENTSubcontractor).DefaultView.RowFilter = "IssueState=-1"
|
dsENT.Tables(AA_21674TEACHER).DefaultView.RowFilter = "IssueState=-1"
|
||||||
End Select
|
End Select
|
||||||
Me.iugSubcontractor.iMESUltraGrid.DataSource = dsENT.Tables(tblENTSubcontractor).DefaultView
|
Me.iugTeacher.iMESUltraGrid.DataSource = dsENT.Tables(AA_21674TEACHER).DefaultView
|
||||||
Call funShowActiveDetail()
|
Call funShowActiveDetail()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@ -327,24 +327,24 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
|
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
|
||||||
|
|
||||||
Dim fSubcontractorDef As New frmTestData21706Def
|
Dim frmTeacherDef As New frmTeacherDef
|
||||||
|
|
||||||
fSubcontractorDef.DefMode = 0
|
frmTeacherDef.DefMode = 0
|
||||||
fSubcontractorDef.ShowDialog(Me)
|
frmTeacherDef.ShowDialog(Me)
|
||||||
fSubcontractorDef.Dispose()
|
frmTeacherDef.Dispose()
|
||||||
|
|
||||||
If gReturnKeyValue = "" Then Exit Sub
|
If gReturnKeyValue = "" Then Exit Sub
|
||||||
|
|
||||||
SubcontractorNo = gReturnKeyValue
|
TeacherNo = gReturnKeyValue
|
||||||
|
|
||||||
'重新取出資料
|
'重新取出資料
|
||||||
Call funLoadSubcontractor()
|
Call funLoadTeacher()
|
||||||
|
|
||||||
If GetIssueState() = Issue.Unfrozen Then
|
If GetIssueState() = Issue.Unfrozen Then
|
||||||
ugrRow = FindRecordPosition(iugSubcontractor, "SubcontractorNo", SubcontractorNo)
|
ugrRow = FindRecordPosition(iugTeacher, "TeacherNo", TeacherNo)
|
||||||
If Not ugrRow Is Nothing Then
|
If Not ugrRow Is Nothing Then
|
||||||
Me.iugSubcontractor.iMESUltraGrid.ActiveRow = ugrRow
|
Me.iugTeacher.iMESUltraGrid.ActiveRow = ugrRow
|
||||||
Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Selected = True
|
Me.iugTeacher.iMESUltraGrid.ActiveRow.Selected = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@ -354,16 +354,16 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
If Not Me.iugSubcontractor.iMESUltraGrid.ActiveRow Is Nothing Then
|
If Not Me.iugTeacher.iMESUltraGrid.ActiveRow Is Nothing Then
|
||||||
'IsGroupByRow不做任何處理
|
'IsGroupByRow不做任何處理
|
||||||
If iugSubcontractor.iMESUltraGrid.ActiveRow.IsGroupByRow Then
|
If iugTeacher.iMESUltraGrid.ActiveRow.IsGroupByRow Then
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
Dim Rows As DataRow()
|
Dim Rows As DataRow()
|
||||||
|
|
||||||
'找出DataSet中在目前游標列的資料列(DataRow)
|
'找出DataSet中在目前游標列的資料列(DataRow)
|
||||||
Rows = dsENT.Tables(tblENTSubcontractor).Select("SubcontractorNo = '" _
|
Rows = dsENT.Tables(AA_21674TEACHER).Select("TeacherNo = '" _
|
||||||
& Replace(Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Cells("SubcontractorNo").Value.ToString, "'", "''") & "'")
|
& Replace(Me.iugTeacher.iMESUltraGrid.ActiveRow.Cells("TeacherNo").Value.ToString, "'", "''") & "'")
|
||||||
|
|
||||||
'核准狀態為"Unfrozen"者才可修改
|
'核准狀態為"Unfrozen"者才可修改
|
||||||
|
|
||||||
@ -372,24 +372,24 @@ Public Class frmTestData21706
|
|||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim fSubcontractorDef As New frmTestData21706Def
|
Dim fTeacherDef As New frmTeacherDef
|
||||||
fSubcontractorDef.DefMode = 1
|
fTeacherDef.DefMode = 1
|
||||||
fSubcontractorDef.EditDataRow = Rows(0)
|
fTeacherDef.EditDataRow = Rows(0)
|
||||||
fSubcontractorDef.ShowDialog(Me)
|
fTeacherDef.ShowDialog(Me)
|
||||||
fSubcontractorDef.Dispose()
|
fTeacherDef.Dispose()
|
||||||
|
|
||||||
If gReturnKeyValue = "" Then Exit Sub
|
If gReturnKeyValue = "" Then Exit Sub
|
||||||
|
|
||||||
SubcontractorNo = gReturnKeyValue
|
TeacherNo = gReturnKeyValue
|
||||||
|
|
||||||
'重新取出資料
|
'重新取出資料
|
||||||
Call funLoadSubcontractor()
|
Call funLoadTeacher()
|
||||||
|
|
||||||
If GetIssueState() = Issue.Unfrozen Then
|
If GetIssueState() = Issue.Unfrozen Then
|
||||||
ugrRow = FindRecordPosition(iugSubcontractor, "SubcontractorNo", SubcontractorNo)
|
ugrRow = FindRecordPosition(iugTeacher, "TeacherNo", TeacherNo)
|
||||||
If Not ugrRow Is Nothing Then
|
If Not ugrRow Is Nothing Then
|
||||||
Me.iugSubcontractor.iMESUltraGrid.ActiveRow = ugrRow
|
Me.iugTeacher.iMESUltraGrid.ActiveRow = ugrRow
|
||||||
Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Selected = True
|
Me.iugTeacher.iMESUltraGrid.ActiveRow.Selected = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@ -401,16 +401,16 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
|
|
||||||
'1.先檢查是否為單筆,是:將其Selecte
|
'1.先檢查是否為單筆,是:將其Selecte
|
||||||
If Me.iugSubcontractor.iMESUltraGrid.ActiveRow Is Nothing Then Exit Sub
|
If Me.iugTeacher.iMESUltraGrid.ActiveRow Is Nothing Then Exit Sub
|
||||||
If iugSubcontractor.iMESUltraGrid.ActiveRow.IsGroupByRow Then Exit Sub
|
If iugTeacher.iMESUltraGrid.ActiveRow.IsGroupByRow Then Exit Sub
|
||||||
Cursor.Current = Cursors.WaitCursor
|
Cursor.Current = Cursors.WaitCursor
|
||||||
If Not Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Selected Then
|
If Not Me.iugTeacher.iMESUltraGrid.ActiveRow.Selected Then
|
||||||
Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Selected = True
|
Me.iugTeacher.iMESUltraGrid.ActiveRow.Selected = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'2.Multi
|
'2.Multi
|
||||||
If Me.iugSubcontractor.iMESUltraGrid.Selected.Rows.Count > 0 Then
|
If Me.iugTeacher.iMESUltraGrid.Selected.Rows.Count > 0 Then
|
||||||
If Me.iugSubcontractor.iMESUltraGrid.Selected.Rows.Item(0).IsGroupByRow Then
|
If Me.iugTeacher.iMESUltraGrid.Selected.Rows.Item(0).IsGroupByRow Then
|
||||||
Exit Sub 'Selected.Rows,不會包含GroupRow & 一般的Row在一起,故若是GroupRow不做任何處理
|
Exit Sub 'Selected.Rows,不會包含GroupRow & 一般的Row在一起,故若是GroupRow不做任何處理
|
||||||
End If
|
End If
|
||||||
If iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-100001", "[%ARE YOU SURE TO DELETE ALL SELECTED RECORDS%]"), MsgBoxStyle.OkCancel + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2, Me.Text) = MsgBoxResult.Cancel Then
|
If iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-100001", "[%ARE YOU SURE TO DELETE ALL SELECTED RECORDS%]"), MsgBoxStyle.OkCancel + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2, Me.Text) = MsgBoxResult.Cancel Then
|
||||||
@ -423,18 +423,18 @@ Public Class frmTestData21706
|
|||||||
Dim intIssueState As Integer
|
Dim intIssueState As Integer
|
||||||
|
|
||||||
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
||||||
For i = 0 To Me.iugSubcontractor.iMESUltraGrid.Selected.Rows.Count - 1
|
For i = 0 To Me.iugTeacher.iMESUltraGrid.Selected.Rows.Count - 1
|
||||||
intIssueState = Me.iugSubcontractor.iMESUltraGrid.Selected.Rows(i).Cells("IssueState").Value
|
intIssueState = Me.iugTeacher.iMESUltraGrid.Selected.Rows(i).Cells("IssueState").Value
|
||||||
If intIssueState = 0 Or intIssueState = -1 Or intIssueState = 2 Then '狀態為Unforzen或Unused時直接刪除
|
If intIssueState = 0 Or intIssueState = -1 Or intIssueState = 2 Then '狀態為Unforzen或Unused時直接刪除
|
||||||
|
|
||||||
strParameter = CombineXMLParameter("SubcontractorNo", "SubcontractorNo", "String", CInput(Me.iugSubcontractor.iMESUltraGrid.Selected.Rows(i).Cells("SubcontractorNo").Value.ToString), "")
|
strParameter = CombineXMLParameter("TeacherNo", "TeacherNo", "String", CInput(Me.iugTeacher.iMESUltraGrid.Selected.Rows(i).Cells("TeacherNo").Value.ToString), "")
|
||||||
strParameter = strParameter & CombineXMLParameter("issuestate", "IssueState", "String", CInput(intIssueState), "")
|
strParameter = strParameter & CombineXMLParameter("issuestate", "IssueState", "String", CInput(intIssueState), "")
|
||||||
strParameter = strParameter & CombineXMLParameter("datastamp", "DataStamp", "Integer", iugSubcontractor.iMESUltraGrid.Selected.Rows(i).Cells("DataStamp").Value, "")
|
strParameter = strParameter & CombineXMLParameter("datastamp", "DataStamp", "Integer", iugTeacher.iMESUltraGrid.Selected.Rows(i).Cells("DataStamp").Value, "")
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||||||
Try
|
Try
|
||||||
' 2016 YF, OutXml = wsENT.DelSubcontractor(InXml)
|
' 2016 YF, OutXml = wsENT.DelSubcontractor(InXml)
|
||||||
'OutXml = InvokeSrv("wsENT.DelSubcontractor", InXml)
|
'OutXml = InvokeSrv("wsENT.DelSubcontractor", InXml)
|
||||||
OutXml = InvokeSrv("SXS.wsENT_21706.DelSubcontractor", InXml)
|
OutXml = InvokeSrv("SXS.wsENT_21674.DelTeacher", InXml)
|
||||||
|
|
||||||
XmlDoc.LoadXml(OutXml)
|
XmlDoc.LoadXml(OutXml)
|
||||||
If ChkExecutionSuccess(XmlDoc) Then
|
If ChkExecutionSuccess(XmlDoc) Then
|
||||||
@ -458,7 +458,7 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
If blnReLoad Then
|
If blnReLoad Then
|
||||||
|
|
||||||
Call funLoadSubcontractor()
|
Call funLoadTeacher()
|
||||||
|
|
||||||
Call funShowActiveDetail()
|
Call funShowActiveDetail()
|
||||||
|
|
||||||
@ -474,34 +474,34 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
If Not Me.iugSubcontractor.iMESUltraGrid.ActiveRow Is Nothing Then
|
If Not Me.iugTeacher.iMESUltraGrid.ActiveRow Is Nothing Then
|
||||||
'IsGroupByRow不做任何處理
|
'IsGroupByRow不做任何處理
|
||||||
If iugSubcontractor.iMESUltraGrid.ActiveRow.IsGroupByRow Then
|
If iugTeacher.iMESUltraGrid.ActiveRow.IsGroupByRow Then
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
Dim Rows As DataRow()
|
Dim Rows As DataRow()
|
||||||
|
|
||||||
'找出DataSet中在目前游標列的資料列(DataRow)
|
'找出DataSet中在目前游標列的資料列(DataRow)
|
||||||
Rows = dsENT.Tables(tblENTSubcontractor).Select("SubcontractorNo = '" _
|
Rows = dsENT.Tables(AA_21674TEACHER).Select("TeacherNo = '" _
|
||||||
& Replace(Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Cells("SubcontractorNo").Value.ToString, "'", "''") & "'")
|
& Replace(Me.iugTeacher.iMESUltraGrid.ActiveRow.Cells("TeacherNo").Value.ToString, "'", "''") & "'")
|
||||||
|
|
||||||
Dim fSubcontractorDef As New frmTestData21706Def
|
Dim fSubcontractorDef As New frmTeacherDef
|
||||||
fSubcontractorDef.DefMode = 2
|
fSubcontractorDef.DefMode = 2
|
||||||
fSubcontractorDef.EditDataRow = Rows(0)
|
fSubcontractorDef.EditDataRow = Rows(0)
|
||||||
fSubcontractorDef.ShowDialog(Me)
|
fSubcontractorDef.ShowDialog(Me)
|
||||||
|
|
||||||
If gReturnKeyValue = "" Then Exit Sub
|
If gReturnKeyValue = "" Then Exit Sub
|
||||||
|
|
||||||
SubcontractorNo = gReturnKeyValue
|
TeacherNo = gReturnKeyValue
|
||||||
|
|
||||||
'重新取出資料
|
'重新取出資料
|
||||||
Call funLoadSubcontractor()
|
Call funLoadTeacher()
|
||||||
|
|
||||||
If GetIssueState() = Issue.Unfrozen Then
|
If GetIssueState() = Issue.Unfrozen Then
|
||||||
ugrRow = FindRecordPosition(iugSubcontractor, "SubcontractorNo", SubcontractorNo)
|
ugrRow = FindRecordPosition(iugTeacher, "TeacherNo", TeacherNo)
|
||||||
If Not ugrRow Is Nothing Then
|
If Not ugrRow Is Nothing Then
|
||||||
Me.iugSubcontractor.iMESUltraGrid.ActiveRow = ugrRow
|
Me.iugTeacher.iMESUltraGrid.ActiveRow = ugrRow
|
||||||
Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Selected = True
|
Me.iugTeacher.iMESUltraGrid.ActiveRow.Selected = True
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@ -513,16 +513,16 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
|
|
||||||
'1.先檢查是否為單筆,是:將其Selecte
|
'1.先檢查是否為單筆,是:將其Selecte
|
||||||
If Me.iugSubcontractor.iMESUltraGrid.ActiveRow Is Nothing Then Exit Sub
|
If Me.iugTeacher.iMESUltraGrid.ActiveRow Is Nothing Then Exit Sub
|
||||||
If iugSubcontractor.iMESUltraGrid.ActiveRow.IsGroupByRow Then Exit Sub
|
If iugTeacher.iMESUltraGrid.ActiveRow.IsGroupByRow Then Exit Sub
|
||||||
Cursor.Current = Cursors.WaitCursor
|
Cursor.Current = Cursors.WaitCursor
|
||||||
If Not Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Selected Then
|
If Not Me.iugTeacher.iMESUltraGrid.ActiveRow.Selected Then
|
||||||
Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Selected = True
|
Me.iugTeacher.iMESUltraGrid.ActiveRow.Selected = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'2.Multi
|
'2.Multi
|
||||||
If Me.iugSubcontractor.iMESUltraGrid.Selected.Rows.Count > 0 Then
|
If Me.iugTeacher.iMESUltraGrid.Selected.Rows.Count > 0 Then
|
||||||
If Me.iugSubcontractor.iMESUltraGrid.Selected.Rows.Item(0).IsGroupByRow Then
|
If Me.iugTeacher.iMESUltraGrid.Selected.Rows.Item(0).IsGroupByRow Then
|
||||||
Exit Sub 'Selected.Rows,不會包含GroupRow & 一般的Row在一起,故若是GroupRow不做任何處理
|
Exit Sub 'Selected.Rows,不會包含GroupRow & 一般的Row在一起,故若是GroupRow不做任何處理
|
||||||
End If
|
End If
|
||||||
If iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-100002", "[%ARE YOU SURE TO APPROVE ALL SELECTED RECORDS%]"), MsgBoxStyle.OkCancel + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2, Me.Text) = MsgBoxResult.Cancel Then
|
If iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-100002", "[%ARE YOU SURE TO APPROVE ALL SELECTED RECORDS%]"), MsgBoxStyle.OkCancel + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2, Me.Text) = MsgBoxResult.Cancel Then
|
||||||
@ -535,18 +535,18 @@ Public Class frmTestData21706
|
|||||||
Dim intIssueState As Integer
|
Dim intIssueState As Integer
|
||||||
|
|
||||||
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
||||||
For i = 0 To Me.iugSubcontractor.iMESUltraGrid.Selected.Rows.Count - 1
|
For i = 0 To Me.iugTeacher.iMESUltraGrid.Selected.Rows.Count - 1
|
||||||
intIssueState = Me.iugSubcontractor.iMESUltraGrid.Selected.Rows(i).Cells("IssueState").Value
|
intIssueState = Me.iugTeacher.iMESUltraGrid.Selected.Rows(i).Cells("IssueState").Value
|
||||||
If intIssueState = 0 Then
|
If intIssueState = 0 Then
|
||||||
strParameter = CombineXMLParameter("SubcontractorNo", "SubcontractorNo", "String", CInput(Me.iugSubcontractor.iMESUltraGrid.Selected.Rows(i).Cells("SubcontractorNo").Value.ToString), "")
|
strParameter = CombineXMLParameter("teacherno", "TeacherNo", "String", CInput(Me.iugTeacher.iMESUltraGrid.Selected.Rows(i).Cells("TeacherNo").Value.ToString), "")
|
||||||
strParameter += CombineXMLParameter("issuestate", "IssueState", "String", intIssueState, "")
|
strParameter += CombineXMLParameter("issuestate", "IssueState", "String", intIssueState, "")
|
||||||
strParameter += CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
|
strParameter += CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
|
||||||
strParameter = strParameter & CombineXMLParameter("datastamp", "DataStamp", "Integer", iugSubcontractor.iMESUltraGrid.Selected.Rows(i).Cells("DataStamp").Value, "")
|
strParameter = strParameter & CombineXMLParameter("datastamp", "DataStamp", "Integer", iugTeacher.iMESUltraGrid.Selected.Rows(i).Cells("DataStamp").Value, "")
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||||||
Try
|
Try
|
||||||
' 2016 YF, OutXml = wsENT.ApproveSubcontractor(InXml)
|
' 2016 YF, OutXml = wsENT.ApproveSubcontractor(InXml)
|
||||||
'OutXml = InvokeSrv("wsENT.ApproveSubcontractor", InXml)
|
'OutXml = InvokeSrv("wsENT.ApproveSubcontractor", InXml)
|
||||||
OutXml = InvokeSrv("SXS.wsENT_21706.ApproveTestData21706", InXml)
|
OutXml = InvokeSrv("SXS.wsENT_21674.ApproveTeacher", InXml)
|
||||||
|
|
||||||
XmlDoc.LoadXml(OutXml)
|
XmlDoc.LoadXml(OutXml)
|
||||||
If ChkExecutionSuccess(XmlDoc) Then
|
If ChkExecutionSuccess(XmlDoc) Then
|
||||||
@ -570,7 +570,7 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
If blnReLoad Then
|
If blnReLoad Then
|
||||||
|
|
||||||
Call funLoadSubcontractor()
|
Call funLoadTeacher()
|
||||||
|
|
||||||
Call funShowActiveDetail()
|
Call funShowActiveDetail()
|
||||||
|
|
||||||
@ -584,13 +584,13 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
Private Sub btnDAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDAdd.Click
|
Private Sub btnDAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDAdd.Click
|
||||||
|
|
||||||
If Not Me.iugSubcontractor.iMESUltraGrid.ActiveRow Is Nothing Then
|
If Not Me.iugTeacher.iMESUltraGrid.ActiveRow Is Nothing Then
|
||||||
|
|
||||||
'Dim Rows As DataRow()
|
'Dim Rows As DataRow()
|
||||||
Dim fSubcontractorContDef As New frmTestData21706ContDef
|
Dim fSubcontractorContDef As New frmTeacherContDef
|
||||||
|
|
||||||
fSubcontractorContDef.DefMode = 0
|
'fSubcontractorContDef.DefMode = 0
|
||||||
fSubcontractorContDef.SubcontractorNo = Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Cells("SubcontractorNo").Value.ToString
|
' fSubcontractorContDef.TeacherNo = Me.iugTeacher.iMESUltraGrid.ActiveRow.Cells("TeacherNo").Value.ToString
|
||||||
fSubcontractorContDef.ShowDialog(Me)
|
fSubcontractorContDef.ShowDialog(Me)
|
||||||
|
|
||||||
If gReturnKeyValue = "" Then Exit Sub
|
If gReturnKeyValue = "" Then Exit Sub
|
||||||
@ -598,7 +598,7 @@ Public Class frmTestData21706
|
|||||||
ContactorName = gReturnKeyValue
|
ContactorName = gReturnKeyValue
|
||||||
|
|
||||||
'重新取出資料
|
'重新取出資料
|
||||||
Call funLoadSubcontractorCont(Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Cells("SubcontractorNo").Value.ToString)
|
Call funLoadTeacherCont(Me.iugTeacher.iMESUltraGrid.ActiveRow.Cells("TeacherNo").Value.ToString)
|
||||||
|
|
||||||
ugrRow = FindRecordPosition(iugDetail, "ContactorName", ContactorName)
|
ugrRow = FindRecordPosition(iugDetail, "ContactorName", ContactorName)
|
||||||
If Not ugrRow Is Nothing Then
|
If Not ugrRow Is Nothing Then
|
||||||
@ -611,19 +611,19 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
Private Sub btnDEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDEdit.Click
|
Private Sub btnDEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDEdit.Click
|
||||||
|
|
||||||
If Not Me.iugSubcontractor.iMESUltraGrid.ActiveRow Is Nothing And Not Me.iugDetail.iMESUltraGrid.ActiveRow Is Nothing Then
|
If Not Me.iugTeacher.iMESUltraGrid.ActiveRow Is Nothing And Not Me.iugDetail.iMESUltraGrid.ActiveRow Is Nothing Then
|
||||||
If iugSubcontractor.iMESUltraGrid.ActiveRow.IsGroupByRow OrElse iugDetail.iMESUltraGrid.ActiveRow.IsGroupByRow Then Exit Sub
|
If iugTeacher.iMESUltraGrid.ActiveRow.IsGroupByRow OrElse iugDetail.iMESUltraGrid.ActiveRow.IsGroupByRow Then Exit Sub
|
||||||
Dim Rows As DataRow()
|
Dim Rows As DataRow()
|
||||||
|
|
||||||
'找出DataSet中在目前游標列的資料列(DataRow)
|
'找出DataSet中在目前游標列的資料列(DataRow)
|
||||||
Rows = dsENT.Tables(tblENTSubcontractorCont).Select("SubcontractorNo = '" _
|
Rows = dsENT.Tables(AA_21674TeacherCont).Select("TeacherNo = '" _
|
||||||
& Replace(Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Cells("SubcontractorNo").Value.ToString, "'", "''") & "'" _
|
& Replace(Me.iugTeacher.iMESUltraGrid.ActiveRow.Cells("TeacherNo").Value.ToString, "'", "''") & "'" _
|
||||||
& " And ContactorName = '" & Replace(Me.iugDetail.iMESUltraGrid.ActiveRow.Cells("ContactorName").Value.ToString, "'", "''") & "'")
|
& " And ContactorName = '" & Replace(Me.iugDetail.iMESUltraGrid.ActiveRow.Cells("ContactorName").Value.ToString, "'", "''") & "'")
|
||||||
|
|
||||||
Dim fSubcontractorContDef As New frmTestData21706ContDef
|
Dim fSubcontractorContDef As New frmTeacherContDef
|
||||||
fSubcontractorContDef.DefMode = 1
|
fSubcontractorContDef.DefMode = 1
|
||||||
fSubcontractorContDef.EditDataRow = Rows(0)
|
fSubcontractorContDef.EditDataRow = Rows(0)
|
||||||
fSubcontractorContDef.SubcontractorNo = Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Cells("SubcontractorNo").Value.ToString
|
'fSubcontractorContDef.TeacherNo = Me.iugTeacher.iMESUltraGrid.ActiveRow.Cells("TeacherNo").Value.ToString
|
||||||
fSubcontractorContDef.ShowDialog(Me)
|
fSubcontractorContDef.ShowDialog(Me)
|
||||||
|
|
||||||
If gReturnKeyValue = "" Then Exit Sub
|
If gReturnKeyValue = "" Then Exit Sub
|
||||||
@ -631,7 +631,7 @@ Public Class frmTestData21706
|
|||||||
ContactorName = gReturnKeyValue
|
ContactorName = gReturnKeyValue
|
||||||
|
|
||||||
'重新取出資料
|
'重新取出資料
|
||||||
Call funLoadSubcontractorCont(Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Cells("SubcontractorNo").Value.ToString)
|
Call funLoadTeacherCont(Me.iugTeacher.iMESUltraGrid.ActiveRow.Cells("TeacherNo").Value.ToString)
|
||||||
|
|
||||||
ugrRow = FindRecordPosition(iugDetail, "ContactorName", ContactorName)
|
ugrRow = FindRecordPosition(iugDetail, "ContactorName", ContactorName)
|
||||||
If Not ugrRow Is Nothing Then
|
If Not ugrRow Is Nothing Then
|
||||||
@ -674,7 +674,7 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
||||||
For i = 0 To Me.iugDetail.iMESUltraGrid.Selected.Rows.Count - 1
|
For i = 0 To Me.iugDetail.iMESUltraGrid.Selected.Rows.Count - 1
|
||||||
strParameter = CombineXMLParameter("SubcontractorNo", "SubcontractorNo", "String", CInput(Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Cells("SubcontractorNo").Value.ToString), "")
|
strParameter = CombineXMLParameter("TeacherNo", "TeacherNo", "String", CInput(Me.iugTeacher.iMESUltraGrid.ActiveRow.Cells("TeacherNo").Value.ToString), "")
|
||||||
strParameter = strParameter & CombineXMLParameter("ContactorName", "ContactorName", "String", CInput(Me.iugDetail.iMESUltraGrid.Selected.Rows(i).Cells("ContactorName").Value.ToString), "")
|
strParameter = strParameter & CombineXMLParameter("ContactorName", "ContactorName", "String", CInput(Me.iugDetail.iMESUltraGrid.Selected.Rows(i).Cells("ContactorName").Value.ToString), "")
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||||||
Try
|
Try
|
||||||
@ -700,7 +700,7 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
XmlDoc = Nothing
|
XmlDoc = Nothing
|
||||||
|
|
||||||
If blnReLoad Then Call funLoadSubcontractorCont(Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Cells("SubcontractorNo").Value.ToString)
|
If blnReLoad Then Call funLoadTeacherCont(Me.iugTeacher.iMESUltraGrid.ActiveRow.Cells("TeacherNo").Value.ToString)
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@ -710,19 +710,19 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
Private Sub btnDCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDCopy.Click
|
Private Sub btnDCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDCopy.Click
|
||||||
|
|
||||||
If Not Me.iugSubcontractor.iMESUltraGrid.ActiveRow Is Nothing And Not Me.iugDetail.iMESUltraGrid.ActiveRow Is Nothing Then
|
If Not Me.iugTeacher.iMESUltraGrid.ActiveRow Is Nothing And Not Me.iugDetail.iMESUltraGrid.ActiveRow Is Nothing Then
|
||||||
If iugSubcontractor.iMESUltraGrid.ActiveRow.IsGroupByRow OrElse iugDetail.iMESUltraGrid.ActiveRow.IsGroupByRow Then Exit Sub
|
If iugTeacher.iMESUltraGrid.ActiveRow.IsGroupByRow OrElse iugDetail.iMESUltraGrid.ActiveRow.IsGroupByRow Then Exit Sub
|
||||||
Dim Rows As DataRow()
|
Dim Rows As DataRow()
|
||||||
|
|
||||||
'找出DataSet中在目前游標列的資料列(DataRow)
|
'找出DataSet中在目前游標列的資料列(DataRow)
|
||||||
Rows = dsENT.Tables(tblENTSubcontractorCont).Select("SubcontractorNo = '" _
|
Rows = dsENT.Tables(AA_21674TeacherCont).Select("TeacherNo = '" _
|
||||||
& Replace(Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Cells("SubcontractorNo").Value.ToString, "'", "''") & "'" _
|
& Replace(Me.iugTeacher.iMESUltraGrid.ActiveRow.Cells("TeacherNo").Value.ToString, "'", "''") & "'" _
|
||||||
& " And ContactorName = '" & Replace(Me.iugDetail.iMESUltraGrid.ActiveRow.Cells("ContactorName").Value.ToString, "'", "''") & "'")
|
& " And ContactorName = '" & Replace(Me.iugDetail.iMESUltraGrid.ActiveRow.Cells("ContactorName").Value.ToString, "'", "''") & "'")
|
||||||
|
|
||||||
Dim fSubcontractorContDef As New frmTestData21706ContDef
|
Dim fSubcontractorContDef As New frmTeacherContDef
|
||||||
fSubcontractorContDef.DefMode = 2
|
fSubcontractorContDef.DefMode = 2
|
||||||
fSubcontractorContDef.EditDataRow = Rows(0)
|
fSubcontractorContDef.EditDataRow = Rows(0)
|
||||||
fSubcontractorContDef.SubcontractorNo = Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Cells("SubcontractorNo").Value.ToString
|
'fSubcontractorContDef.TeacherNo = Me.iugTeacher.iMESUltraGrid.ActiveRow.Cells("TeacherNo").Value.ToString
|
||||||
fSubcontractorContDef.ShowDialog(Me)
|
fSubcontractorContDef.ShowDialog(Me)
|
||||||
|
|
||||||
If gReturnKeyValue = "" Then Exit Sub
|
If gReturnKeyValue = "" Then Exit Sub
|
||||||
@ -730,7 +730,7 @@ Public Class frmTestData21706
|
|||||||
ContactorName = gReturnKeyValue
|
ContactorName = gReturnKeyValue
|
||||||
|
|
||||||
'重新取出資料
|
'重新取出資料
|
||||||
Call funLoadSubcontractorCont(Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Cells("SubcontractorNo").Value.ToString)
|
Call funLoadTeacherCont(Me.iugTeacher.iMESUltraGrid.ActiveRow.Cells("TeacherNo").Value.ToString)
|
||||||
|
|
||||||
ugrRow = FindRecordPosition(iugDetail, "ContactorName", ContactorName)
|
ugrRow = FindRecordPosition(iugDetail, "ContactorName", ContactorName)
|
||||||
If Not ugrRow Is Nothing Then
|
If Not ugrRow Is Nothing Then
|
||||||
@ -752,8 +752,8 @@ Public Class frmTestData21706
|
|||||||
Dim proMail As New System.Diagnostics.Process
|
Dim proMail As New System.Diagnostics.Process
|
||||||
Dim strAccount As String
|
Dim strAccount As String
|
||||||
|
|
||||||
Rows = dsENT.Tables(tblENTSubcontractorCont).Select("SubcontractorNo = '" _
|
Rows = dsENT.Tables(AA_21674TeacherCont).Select("TeacherNo = '" _
|
||||||
& Replace(Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Cells("SubcontractorNo").Value.ToString, "'", "''") & "'" _
|
& Replace(Me.iugTeacher.iMESUltraGrid.ActiveRow.Cells("TeacherNo").Value.ToString, "'", "''") & "'" _
|
||||||
& " And ContactorName = '" & Replace(Me.iugDetail.iMESUltraGrid.ActiveRow.Cells("ContactorName").Value.ToString, "'", "''") & "'")
|
& " And ContactorName = '" & Replace(Me.iugDetail.iMESUltraGrid.ActiveRow.Cells("ContactorName").Value.ToString, "'", "''") & "'")
|
||||||
|
|
||||||
strAccount = "mailto:" & Rows(0).Item("EMail").ToString
|
strAccount = "mailto:" & Rows(0).Item("EMail").ToString
|
||||||
@ -770,24 +770,24 @@ Public Class frmTestData21706
|
|||||||
Protected Overrides Sub btnQuery_Click(sender As Object, e As EventArgs)
|
Protected Overrides Sub btnQuery_Click(sender As Object, e As EventArgs)
|
||||||
Cursor.Current = Cursors.WaitCursor
|
Cursor.Current = Cursors.WaitCursor
|
||||||
|
|
||||||
funLoadSubcontractor()
|
funLoadTeacher()
|
||||||
|
|
||||||
Cursor.Current = Cursors.Default
|
Cursor.Current = Cursors.Default
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
#Region "Ultra Grid"
|
#Region "Ultra Grid"
|
||||||
|
|
||||||
Private Sub iugSubcontractor_iMESUltraGrid_InitializeLayOut(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinGrid.InitializeLayoutEventArgs) Handles iugSubcontractor.iMESUltraGrid_InitializeLayOut
|
Private Sub iugSubcontractor_iMESUltraGrid_InitializeLayOut(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinGrid.InitializeLayoutEventArgs) Handles iugTeacher.iMESUltraGrid_InitializeLayOut
|
||||||
|
|
||||||
With e.Layout
|
With e.Layout
|
||||||
With .Bands(0).Columns("SubcontractorNo")
|
With .Bands(0).Columns("TeacherNo")
|
||||||
.Header.Caption = "SubcontractorNo"
|
.Header.Caption = "TeacherNo"
|
||||||
.Width = 110
|
.Width = 110
|
||||||
.Hidden = False
|
.Hidden = False
|
||||||
.Header.VisiblePosition = 0
|
.Header.VisiblePosition = 0
|
||||||
End With
|
End With
|
||||||
With .Bands(0).Columns("SubcontractorName")
|
With .Bands(0).Columns("TeacherName")
|
||||||
.Header.Caption = "SubcontractorName"
|
.Header.Caption = "TeacherName"
|
||||||
.Width = 110
|
.Width = 110
|
||||||
.Hidden = False
|
.Hidden = False
|
||||||
.CellMultiLine = DefaultableBoolean.True
|
.CellMultiLine = DefaultableBoolean.True
|
||||||
@ -841,11 +841,11 @@ Public Class frmTestData21706
|
|||||||
Call ExeChangeResource(Me, gLanguageMode)
|
Call ExeChangeResource(Me, gLanguageMode)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub iugSubcontractor_iMESUltraGrid_AfterRowActivate(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles iugSubcontractor.iMESUltraGrid_AfterRowActivate
|
Private Sub iugSubcontractor_iMESUltraGrid_AfterRowActivate(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles iugTeacher.iMESUltraGrid_AfterRowActivate
|
||||||
|
|
||||||
'IsGroupByRow不做任何處理
|
'IsGroupByRow不做任何處理
|
||||||
If Not iugSubcontractor.iMESUltraGrid.ActiveRow.IsGroupByRow Then
|
If Not iugTeacher.iMESUltraGrid.ActiveRow.IsGroupByRow Then
|
||||||
Call funLoadSubcontractorCont(Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Cells("SubcontractorNo").Value.ToString)
|
Call funLoadTeacherCont(Me.iugTeacher.iMESUltraGrid.ActiveRow.Cells("TeacherNo").Value.ToString)
|
||||||
Else
|
Else
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
@ -855,14 +855,14 @@ Public Class frmTestData21706
|
|||||||
Private Sub iugDetail_iMESUltraGrid_InitializeLayOut(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.InitializeLayoutEventArgs) Handles iugDetail.iMESUltraGrid_InitializeLayOut
|
Private Sub iugDetail_iMESUltraGrid_InitializeLayOut(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.InitializeLayoutEventArgs) Handles iugDetail.iMESUltraGrid_InitializeLayOut
|
||||||
|
|
||||||
With e.Layout
|
With e.Layout
|
||||||
With .Bands(0).Columns("SubcontractorNo")
|
With .Bands(0).Columns("TeacherNo")
|
||||||
.Header.Caption = "SubcontractorNo"
|
.Header.Caption = "TeacherNo"
|
||||||
.Width = 110
|
.Width = 110
|
||||||
.Hidden = False
|
.Hidden = False
|
||||||
.Header.VisiblePosition = 0
|
.Header.VisiblePosition = 0
|
||||||
End With
|
End With
|
||||||
With .Bands(0).Columns("ContactorName")
|
With .Bands(0).Columns("TeacherContName")
|
||||||
.Header.Caption = "ContactorName"
|
.Header.Caption = "TeacherContName"
|
||||||
.Width = 110
|
.Width = 110
|
||||||
.Hidden = False
|
.Hidden = False
|
||||||
.Header.VisiblePosition = 1
|
.Header.VisiblePosition = 1
|
||||||
@ -948,11 +948,11 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
'//取出tblENTSubcontractor 外包商資料
|
'//取出tblENTSubcontractor 外包商資料
|
||||||
|
|
||||||
Private Sub funLoadSubcontractor()
|
Private Sub funLoadTeacher()
|
||||||
|
|
||||||
'先判斷是否dataset中已有ENTSubcontractor之datatable,若有,需先remove否則會有錯誤
|
'先判斷是否dataset中已有ENTSubcontractor之datatable,若有,需先remove否則會有錯誤
|
||||||
If Not IsNothing(dsENT.Tables(tblENTSubcontractor)) Then
|
If Not IsNothing(dsENT.Tables(AA_21674TEACHER)) Then
|
||||||
dsENT.Tables.Remove(tblENTSubcontractor)
|
dsENT.Tables.Remove(AA_21674TEACHER)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'組InXml的字串
|
'組InXml的字串
|
||||||
@ -964,9 +964,9 @@ Public Class frmTestData21706
|
|||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||||||
|
|
||||||
Try
|
Try
|
||||||
' 2016 YF, OutXml = wsENT.LoadSubcontractor(InXml)
|
' 2016 YF, OutXml = wsENT.LoadTeacher(InXml)
|
||||||
'OutXml = InvokeSrv("wsENT.LoadSubcontractor", InXml)
|
'OutXml = InvokeSrv("wsENT.LoadTeacher", InXml)
|
||||||
OutXml = InvokeSrv("SXS.wsENT_21706.LoadTestData21706", InXml)
|
OutXml = InvokeSrv("SXS.wsENT_21674.LoadTeacher", InXml)
|
||||||
|
|
||||||
Dim XmlDoc As New XmlDocument '處理Xml字串之物件?
|
Dim XmlDoc As New XmlDocument '處理Xml字串之物件?
|
||||||
|
|
||||||
@ -976,10 +976,10 @@ Public Class frmTestData21706
|
|||||||
If ChkExecutionSuccess(XmlDoc) Then
|
If ChkExecutionSuccess(XmlDoc) Then
|
||||||
'讀取取出資料表之名稱
|
'讀取取出資料表之名稱
|
||||||
|
|
||||||
tblENTSubcontractor = XmlDoc.GetElementsByTagName("returnvalue").Item(0).SelectNodes("loadTestData21706").Item(0).SelectNodes("name").Item(0).InnerXml
|
AA_21674TEACHER = XmlDoc.GetElementsByTagName("returnvalue").Item(0).SelectNodes("LoadTeacher").Item(0).SelectNodes("name").Item(0).InnerXml
|
||||||
'取出Schema,dataset讀取Schema可防止Null Field及DateTime的問題
|
'取出Schema,dataset讀取Schema可防止Null Field及DateTime的問題
|
||||||
|
|
||||||
XmlSchema = XmlDoc.DocumentElement.GetElementsByTagName("loadTestData21706").Item(0).SelectNodes("schema").Item(0).InnerXml
|
XmlSchema = XmlDoc.DocumentElement.GetElementsByTagName("LoadTeacher").Item(0).SelectNodes("schema").Item(0).InnerXml
|
||||||
If XmlSchema <> "" Then
|
If XmlSchema <> "" Then
|
||||||
'將XML讀入String Reader object中,因為Dataset讀入XML時必須透過String Reader物件
|
'將XML讀入String Reader object中,因為Dataset讀入XML時必須透過String Reader物件
|
||||||
tmpStringReader = New System.IO.StringReader(XmlSchema)
|
tmpStringReader = New System.IO.StringReader(XmlSchema)
|
||||||
@ -988,7 +988,7 @@ Public Class frmTestData21706
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
'取出Data
|
'取出Data
|
||||||
XmlData = XmlDoc.DocumentElement.GetElementsByTagName("loadTestData21706").Item(0).SelectNodes("value").Item(0).InnerXml
|
XmlData = XmlDoc.DocumentElement.GetElementsByTagName("LoadTeacher").Item(0).SelectNodes("value").Item(0).InnerXml
|
||||||
If XmlData <> "" Then
|
If XmlData <> "" Then
|
||||||
tmpStringReader = New System.IO.StringReader(XmlData)
|
tmpStringReader = New System.IO.StringReader(XmlData)
|
||||||
dsENT.ReadXml(tmpStringReader, XmlReadMode.InferSchema)
|
dsENT.ReadXml(tmpStringReader, XmlReadMode.InferSchema)
|
||||||
@ -1007,10 +1007,10 @@ Public Class frmTestData21706
|
|||||||
strFilter = FilterByInteger(strFilter, "IssueState", -1)
|
strFilter = FilterByInteger(strFilter, "IssueState", -1)
|
||||||
End Select
|
End Select
|
||||||
|
|
||||||
dsENT.Tables(tblENTSubcontractor).DefaultView.RowFilter = strFilter
|
dsENT.Tables(AA_21674TEACHER).DefaultView.RowFilter = strFilter
|
||||||
dsENT.Tables(tblENTSubcontractor).DefaultView.Sort = "SubcontractorNo"
|
dsENT.Tables(AA_21674TEACHER).DefaultView.Sort = "TeacherNo"
|
||||||
|
|
||||||
Me.iugSubcontractor.iMESUltraGrid.DataSource = dsENT.Tables(tblENTSubcontractor).DefaultView
|
Me.iugTeacher.iMESUltraGrid.DataSource = dsENT.Tables(AA_21674TEACHER).DefaultView
|
||||||
|
|
||||||
Else
|
Else
|
||||||
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
|
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
|
||||||
@ -1026,23 +1026,23 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
'//取出tblENTSubcontractorCont聯絡人資料
|
'//取出AA_21674TeacherCont聯絡人資料
|
||||||
|
|
||||||
Private Sub funLoadSubcontractorCont(ByRef SubcontractorNo As String)
|
Private Sub funLoadTeacherCont(ByRef TeacherNo As String)
|
||||||
|
|
||||||
If Not IsNothing(dsENT.Tables(tblENTSubcontractorCont)) Then
|
If Not IsNothing(dsENT.Tables(AA_21674TeacherCont)) Then
|
||||||
dsENT.Tables.Remove(tblENTSubcontractorCont)
|
dsENT.Tables.Remove(AA_21674TeacherCont)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'組InXml的字串
|
'組InXml的字串
|
||||||
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
||||||
strParameter = CombineXMLParameter("SubcontractorNo", "SubcontractorNo", "String", SubcontractorNo, "")
|
strParameter = CombineXMLParameter("teacherno", "TeacherNo", "String", TeacherNo, "")
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||||||
|
|
||||||
Try
|
Try
|
||||||
' 2016 YF, OutXml = wsENT.LoadSubcontractorCont(InXml)
|
' 2016 YF, OutXml = wsENT.LoadTeacherCont(InXml)
|
||||||
'OutXml = InvokeSrv("wsENT.LoadSubcontractorCont", InXml)
|
'OutXml = InvokeSrv("wsENT.LoadTeacherCont", InXml)
|
||||||
OutXml = InvokeSrv("SXS.wsENT.LoadSubcontractorCont", InXml)
|
OutXml = InvokeSrv("SXS.wsENT_21674.LoadTeacherCont", InXml)
|
||||||
|
|
||||||
Dim XmlDoc As New XmlDocument '處理Xml字串之物件?
|
Dim XmlDoc As New XmlDocument '處理Xml字串之物件?
|
||||||
|
|
||||||
@ -1051,9 +1051,9 @@ Public Class frmTestData21706
|
|||||||
If ChkExecutionSuccess(XmlDoc) Then
|
If ChkExecutionSuccess(XmlDoc) Then
|
||||||
'讀取取出資料表之名稱
|
'讀取取出資料表之名稱
|
||||||
|
|
||||||
tblENTSubcontractorCont = XmlDoc.GetElementsByTagName("returnvalue").Item(0).SelectNodes("loadSubcontractorcont").Item(0).SelectNodes("name").Item(0).InnerXml
|
AA_21674TeacherCont = XmlDoc.GetElementsByTagName("returnvalue").Item(0).SelectNodes("LoadTeachercont").Item(0).SelectNodes("name").Item(0).InnerXml
|
||||||
'取出Schema,dataset讀取Schema可防止Null Field及DateTime的問題
|
'取出Schema,dataset讀取Schema可防止Null Field及DateTime的問題
|
||||||
XmlSchema = XmlDoc.DocumentElement.GetElementsByTagName("loadSubcontractorcont").Item(0).SelectNodes("schema").Item(0).InnerXml
|
XmlSchema = XmlDoc.DocumentElement.GetElementsByTagName("LoadTeachercont").Item(0).SelectNodes("schema").Item(0).InnerXml
|
||||||
If XmlSchema <> "" Then
|
If XmlSchema <> "" Then
|
||||||
'將XML讀入String Reader object中,因為Dataset讀入XML時必須透過String Reader物件
|
'將XML讀入String Reader object中,因為Dataset讀入XML時必須透過String Reader物件
|
||||||
tmpStringReader = New System.IO.StringReader(XmlSchema)
|
tmpStringReader = New System.IO.StringReader(XmlSchema)
|
||||||
@ -1062,14 +1062,14 @@ Public Class frmTestData21706
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
'取出Data
|
'取出Data
|
||||||
XmlData = XmlDoc.DocumentElement.GetElementsByTagName("loadSubcontractorcont").Item(0).SelectNodes("value").Item(0).InnerXml
|
XmlData = XmlDoc.DocumentElement.GetElementsByTagName("LoadTeachercont").Item(0).SelectNodes("value").Item(0).InnerXml
|
||||||
If XmlData <> "" Then
|
If XmlData <> "" Then
|
||||||
tmpStringReader = New System.IO.StringReader(XmlData)
|
tmpStringReader = New System.IO.StringReader(XmlData)
|
||||||
dsENT.ReadXml(tmpStringReader, XmlReadMode.InferSchema)
|
dsENT.ReadXml(tmpStringReader, XmlReadMode.InferSchema)
|
||||||
tmpStringReader.Close()
|
tmpStringReader.Close()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Me.iugDetail.iMESUltraGrid.DataSource = dsENT.Tables(tblENTSubcontractorCont).DefaultView
|
Me.iugDetail.iMESUltraGrid.DataSource = dsENT.Tables(AA_21674TeacherCont).DefaultView
|
||||||
|
|
||||||
Else
|
Else
|
||||||
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
|
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
|
||||||
@ -1086,18 +1086,18 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
Private Sub funShowActiveDetail()
|
Private Sub funShowActiveDetail()
|
||||||
|
|
||||||
If Me.iugSubcontractor.iMESUltraGrid.ActiveRow Is Nothing Then
|
If Me.iugTeacher.iMESUltraGrid.ActiveRow Is Nothing Then
|
||||||
Me.iugDetail.iMESUltraGrid.DataSource = Nothing
|
Me.iugDetail.iMESUltraGrid.DataSource = Nothing
|
||||||
Else
|
Else
|
||||||
Call funLoadSubcontractorCont(Me.iugSubcontractor.iMESUltraGrid.ActiveRow.Cells("SubcontractorNo").Value.ToString)
|
Call funLoadTeacherCont(Me.iugTeacher.iMESUltraGrid.ActiveRow.Cells("TeacherNo").Value.ToString)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub funiMESUltraGridIni()
|
Private Sub funiMESUltraGridIni()
|
||||||
|
|
||||||
'iugSubcontractor 初始設定
|
'iugTeacher 初始設定
|
||||||
With Me.iugSubcontractor.iMESUltraGrid
|
With Me.iugTeacher.iMESUltraGrid
|
||||||
.Text = ""
|
.Text = ""
|
||||||
.DisplayLayout.GroupByBox.Hidden = True
|
.DisplayLayout.GroupByBox.Hidden = True
|
||||||
.DisplayLayout.UseFixedHeaders = False
|
.DisplayLayout.UseFixedHeaders = False
|
||||||
@ -1105,7 +1105,7 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
'系統會以UserNo做為Layout的檔名
|
'系統會以UserNo做為Layout的檔名
|
||||||
|
|
||||||
iugSubcontractor.UserNo = gUserNo
|
iugTeacher.UserNo = gUserNo
|
||||||
|
|
||||||
'iugDetail 初始設定
|
'iugDetail 初始設定
|
||||||
With Me.iugDetail.iMESUltraGrid.DisplayLayout
|
With Me.iugDetail.iMESUltraGrid.DisplayLayout
|
||||||
@ -1122,6 +1122,10 @@ Public Class frmTestData21706
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub iugTeacher_Load(sender As Object, e As EventArgs) Handles iugTeacher.Load
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
@ -1,6 +1,6 @@
|
|||||||
Imports iMESExceptionManager
|
Imports iMESExceptionManager
|
||||||
|
|
||||||
Public Class frmTestData21706ContDef
|
Public Class frmSubcontractorContDef
|
||||||
|
|
||||||
Inherits COM_Kit.frmDefTemplat
|
Inherits COM_Kit.frmDefTemplat
|
||||||
|
|
||||||
@ -1,6 +1,6 @@
|
|||||||
Imports iMESExceptionManager
|
Imports iMESExceptionManager
|
||||||
|
|
||||||
Public Class frmTestData21671Def
|
Public Class frmSubcontractorDef
|
||||||
|
|
||||||
Inherits COM_Kit.frmDefTemplat
|
Inherits COM_Kit.frmDefTemplat
|
||||||
|
|
||||||
@ -16,8 +16,13 @@ Public Class frmTestData21671Def
|
|||||||
|
|
||||||
Dim strIdentity As String
|
Dim strIdentity As String
|
||||||
Dim strParameter As String
|
Dim strParameter As String
|
||||||
Friend WithEvents RichTextBox1 As RichTextBox
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
Friend WithEvents dll21671_01 As Label
|
Friend WithEvents lblTelNo As Label
|
||||||
|
Friend WithEvents txtTelNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
||||||
|
Friend WithEvents lblEMail As Label
|
||||||
|
Friend WithEvents txtEMail As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
||||||
|
========
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
Dim intDataStamp As Integer '紀錄DataStamp
|
Dim intDataStamp As Integer '紀錄DataStamp
|
||||||
|
|
||||||
#Region " Windows Form Designer generated code "
|
#Region " Windows Form Designer generated code "
|
||||||
@ -59,27 +64,49 @@ Public Class frmTestData21671Def
|
|||||||
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
||||||
Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
||||||
Me.gbxSubcontractorData = New System.Windows.Forms.GroupBox()
|
Me.gbxSubcontractorData = New System.Windows.Forms.GroupBox()
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
|
Me.txtEMail = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
|
Me.lblEMail = New System.Windows.Forms.Label()
|
||||||
|
Me.txtTelNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
|
Me.lblTelNo = New System.Windows.Forms.Label()
|
||||||
|
========
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
||||||
Me.lblDescription = New System.Windows.Forms.Label()
|
Me.lblDescription = New System.Windows.Forms.Label()
|
||||||
Me.lblSubcontractorNo = New System.Windows.Forms.Label()
|
Me.lblSubcontractorNo = New System.Windows.Forms.Label()
|
||||||
Me.lblSubcontractorName = New System.Windows.Forms.Label()
|
Me.lblSubcontractorName = New System.Windows.Forms.Label()
|
||||||
Me.txtSubcontractorNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
Me.txtSubcontractorNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
Me.txtSubcontractorName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
Me.txtSubcontractorName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
Me.dll21671_01 = New System.Windows.Forms.Label()
|
|
||||||
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
|
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
Me.gbxSubcontractorData.SuspendLayout()
|
Me.gbxSubcontractorData.SuspendLayout()
|
||||||
|
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
CType(Me.txtSubcontractorName, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.txtSubcontractorName, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
Me.SuspendLayout()
|
Me.SuspendLayout()
|
||||||
'
|
'
|
||||||
'gbxBasisData
|
'gbxBasisData
|
||||||
'
|
'
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
|
Me.gbxBasisData.Location = New System.Drawing.Point(12, 211)
|
||||||
|
========
|
||||||
Me.gbxBasisData.Location = New System.Drawing.Point(12, 185)
|
Me.gbxBasisData.Location = New System.Drawing.Point(12, 185)
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
Me.gbxBasisData.Size = New System.Drawing.Size(479, 70)
|
Me.gbxBasisData.Size = New System.Drawing.Size(479, 70)
|
||||||
'
|
'
|
||||||
'btnApply
|
'btnApply
|
||||||
'
|
'
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
|
Me.btnApply.Location = New System.Drawing.Point(403, 290)
|
||||||
|
'
|
||||||
|
'btnConfirm
|
||||||
|
'
|
||||||
|
Me.btnConfirm.Location = New System.Drawing.Point(215, 290)
|
||||||
|
'
|
||||||
|
'btnClose
|
||||||
|
'
|
||||||
|
Me.btnClose.Location = New System.Drawing.Point(309, 290)
|
||||||
|
========
|
||||||
Me.btnApply.Location = New System.Drawing.Point(403, 264)
|
Me.btnApply.Location = New System.Drawing.Point(403, 264)
|
||||||
'
|
'
|
||||||
'btnConfirm
|
'btnConfirm
|
||||||
@ -89,14 +116,20 @@ Public Class frmTestData21671Def
|
|||||||
'btnClose
|
'btnClose
|
||||||
'
|
'
|
||||||
Me.btnClose.Location = New System.Drawing.Point(309, 264)
|
Me.btnClose.Location = New System.Drawing.Point(309, 264)
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
'
|
'
|
||||||
'gbxSubcontractorData
|
'gbxSubcontractorData
|
||||||
'
|
'
|
||||||
Me.gbxSubcontractorData.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
Me.gbxSubcontractorData.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.RichTextBox1)
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.dll21671_01)
|
Me.gbxSubcontractorData.Controls.Add(Me.txtEMail)
|
||||||
|
Me.gbxSubcontractorData.Controls.Add(Me.lblEMail)
|
||||||
|
Me.gbxSubcontractorData.Controls.Add(Me.txtTelNo)
|
||||||
|
Me.gbxSubcontractorData.Controls.Add(Me.lblTelNo)
|
||||||
|
========
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtDescription)
|
Me.gbxSubcontractorData.Controls.Add(Me.txtDescription)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblDescription)
|
Me.gbxSubcontractorData.Controls.Add(Me.lblDescription)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblSubcontractorNo)
|
Me.gbxSubcontractorData.Controls.Add(Me.lblSubcontractorNo)
|
||||||
@ -106,24 +139,65 @@ Public Class frmTestData21671Def
|
|||||||
Me.gbxSubcontractorData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.gbxSubcontractorData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.gbxSubcontractorData.Location = New System.Drawing.Point(12, 8)
|
Me.gbxSubcontractorData.Location = New System.Drawing.Point(12, 8)
|
||||||
Me.gbxSubcontractorData.Name = "gbxSubcontractorData"
|
Me.gbxSubcontractorData.Name = "gbxSubcontractorData"
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
|
Me.gbxSubcontractorData.Size = New System.Drawing.Size(479, 195)
|
||||||
|
========
|
||||||
Me.gbxSubcontractorData.Size = New System.Drawing.Size(479, 169)
|
Me.gbxSubcontractorData.Size = New System.Drawing.Size(479, 169)
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
Me.gbxSubcontractorData.TabIndex = 7
|
Me.gbxSubcontractorData.TabIndex = 7
|
||||||
Me.gbxSubcontractorData.TabStop = False
|
Me.gbxSubcontractorData.TabStop = False
|
||||||
Me.gbxSubcontractorData.Text = "Subcontractor Data"
|
Me.gbxSubcontractorData.Text = "Subcontractor Data"
|
||||||
'
|
'
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
|
'txtEMail
|
||||||
|
'
|
||||||
|
Me.txtEMail.Location = New System.Drawing.Point(326, 83)
|
||||||
|
Me.txtEMail.Name = "txtEMail"
|
||||||
|
Me.txtEMail.Size = New System.Drawing.Size(136, 22)
|
||||||
|
Me.txtEMail.TabIndex = 17
|
||||||
|
'
|
||||||
|
'lblEMail
|
||||||
|
'
|
||||||
|
Me.lblEMail.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.lblEMail.Location = New System.Drawing.Point(256, 83)
|
||||||
|
Me.lblEMail.Name = "lblEMail"
|
||||||
|
Me.lblEMail.Size = New System.Drawing.Size(64, 14)
|
||||||
|
Me.lblEMail.TabIndex = 16
|
||||||
|
Me.lblEMail.Text = "EMail"
|
||||||
|
Me.lblEMail.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
|
'
|
||||||
|
'txtTelNo
|
||||||
|
'
|
||||||
|
Me.txtTelNo.Location = New System.Drawing.Point(128, 83)
|
||||||
|
Me.txtTelNo.Name = "txtTelNo"
|
||||||
|
Me.txtTelNo.Size = New System.Drawing.Size(114, 22)
|
||||||
|
Me.txtTelNo.TabIndex = 15
|
||||||
|
'
|
||||||
|
'lblTelNo
|
||||||
|
'
|
||||||
|
Me.lblTelNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.lblTelNo.Location = New System.Drawing.Point(34, 83)
|
||||||
|
Me.lblTelNo.Name = "lblTelNo"
|
||||||
|
Me.lblTelNo.Size = New System.Drawing.Size(86, 14)
|
||||||
|
Me.lblTelNo.TabIndex = 14
|
||||||
|
Me.lblTelNo.Text = "TelNo"
|
||||||
|
Me.lblTelNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
|
'
|
||||||
|
========
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
'txtDescription
|
'txtDescription
|
||||||
'
|
'
|
||||||
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.txtDescription.Location = New System.Drawing.Point(128, 86)
|
Me.txtDescription.Location = New System.Drawing.Point(128, 111)
|
||||||
Me.txtDescription.Name = "txtDescription"
|
Me.txtDescription.Name = "txtDescription"
|
||||||
Me.txtDescription.Size = New System.Drawing.Size(316, 33)
|
Me.txtDescription.Size = New System.Drawing.Size(334, 67)
|
||||||
Me.txtDescription.TabIndex = 2
|
Me.txtDescription.TabIndex = 2
|
||||||
Me.txtDescription.Text = ""
|
Me.txtDescription.Text = ""
|
||||||
'
|
'
|
||||||
'lblDescription
|
'lblDescription
|
||||||
'
|
'
|
||||||
Me.lblDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.lblDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.lblDescription.Location = New System.Drawing.Point(56, 88)
|
Me.lblDescription.Location = New System.Drawing.Point(58, 114)
|
||||||
Me.lblDescription.Name = "lblDescription"
|
Me.lblDescription.Name = "lblDescription"
|
||||||
Me.lblDescription.Size = New System.Drawing.Size(64, 14)
|
Me.lblDescription.Size = New System.Drawing.Size(64, 14)
|
||||||
Me.lblDescription.TabIndex = 13
|
Me.lblDescription.TabIndex = 13
|
||||||
@ -157,7 +231,7 @@ Public Class frmTestData21671Def
|
|||||||
Me.txtSubcontractorNo.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
Me.txtSubcontractorNo.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
Me.txtSubcontractorNo.Location = New System.Drawing.Point(128, 24)
|
Me.txtSubcontractorNo.Location = New System.Drawing.Point(128, 24)
|
||||||
Me.txtSubcontractorNo.Name = "txtSubcontractorNo"
|
Me.txtSubcontractorNo.Name = "txtSubcontractorNo"
|
||||||
Me.txtSubcontractorNo.Size = New System.Drawing.Size(152, 26)
|
Me.txtSubcontractorNo.Size = New System.Drawing.Size(152, 22)
|
||||||
Me.txtSubcontractorNo.TabIndex = 0
|
Me.txtSubcontractorNo.TabIndex = 0
|
||||||
'
|
'
|
||||||
'txtSubcontractorName
|
'txtSubcontractorName
|
||||||
@ -167,31 +241,16 @@ Public Class frmTestData21671Def
|
|||||||
Me.txtSubcontractorName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
Me.txtSubcontractorName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
Me.txtSubcontractorName.Location = New System.Drawing.Point(128, 55)
|
Me.txtSubcontractorName.Location = New System.Drawing.Point(128, 55)
|
||||||
Me.txtSubcontractorName.Name = "txtSubcontractorName"
|
Me.txtSubcontractorName.Name = "txtSubcontractorName"
|
||||||
Me.txtSubcontractorName.Size = New System.Drawing.Size(334, 26)
|
Me.txtSubcontractorName.Size = New System.Drawing.Size(334, 22)
|
||||||
Me.txtSubcontractorName.TabIndex = 1
|
Me.txtSubcontractorName.TabIndex = 1
|
||||||
'
|
'
|
||||||
'dll21671_01
|
|
||||||
'
|
|
||||||
Me.dll21671_01.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.dll21671_01.Location = New System.Drawing.Point(56, 128)
|
|
||||||
Me.dll21671_01.Name = "dll21671_01"
|
|
||||||
Me.dll21671_01.Size = New System.Drawing.Size(64, 14)
|
|
||||||
Me.dll21671_01.TabIndex = 14
|
|
||||||
Me.dll21671_01.Text = "AGE"
|
|
||||||
Me.dll21671_01.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'RichTextBox1
|
|
||||||
'
|
|
||||||
Me.RichTextBox1.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.RichTextBox1.Location = New System.Drawing.Point(128, 125)
|
|
||||||
Me.RichTextBox1.Name = "RichTextBox1"
|
|
||||||
Me.RichTextBox1.Size = New System.Drawing.Size(120, 33)
|
|
||||||
Me.RichTextBox1.TabIndex = 15
|
|
||||||
Me.RichTextBox1.Text = ""
|
|
||||||
'
|
|
||||||
'frmSubcontractorDef
|
'frmSubcontractorDef
|
||||||
'
|
'
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
|
Me.ClientSize = New System.Drawing.Size(503, 335)
|
||||||
|
========
|
||||||
Me.ClientSize = New System.Drawing.Size(503, 309)
|
Me.ClientSize = New System.Drawing.Size(503, 309)
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
Me.Controls.Add(Me.gbxSubcontractorData)
|
Me.Controls.Add(Me.gbxSubcontractorData)
|
||||||
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.Name = "frmSubcontractorDef"
|
Me.Name = "frmSubcontractorDef"
|
||||||
@ -206,6 +265,8 @@ Public Class frmTestData21671Def
|
|||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
|
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
Me.gbxSubcontractorData.ResumeLayout(False)
|
Me.gbxSubcontractorData.ResumeLayout(False)
|
||||||
Me.gbxSubcontractorData.PerformLayout()
|
Me.gbxSubcontractorData.PerformLayout()
|
||||||
|
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).EndInit()
|
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
CType(Me.txtSubcontractorName, System.ComponentModel.ISupportInitialize).EndInit()
|
CType(Me.txtSubcontractorName, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
Me.ResumeLayout(False)
|
Me.ResumeLayout(False)
|
||||||
@ -239,8 +300,9 @@ Public Class frmTestData21671Def
|
|||||||
txtSubcontractorNo.Text = EditDataRow.Item("SubcontractorNo").ToString
|
txtSubcontractorNo.Text = EditDataRow.Item("SubcontractorNo").ToString
|
||||||
txtSubcontractorName.Text = EditDataRow.Item("SubcontractorName").ToString
|
txtSubcontractorName.Text = EditDataRow.Item("SubcontractorName").ToString
|
||||||
'txtDescription是RichTextBox Control,因為TextBox無法正常顯示多行換行的資料
|
'txtDescription是RichTextBox Control,因為TextBox無法正常顯示多行換行的資料
|
||||||
|
txtTelNo.Text = EditDataRow.Item("TelNo").ToString
|
||||||
|
txtEMail.Text = EditDataRow.Item("EMail").ToString
|
||||||
txtDescription.Text = EditDataRow.Item("Description").ToString
|
txtDescription.Text = EditDataRow.Item("Description").ToString
|
||||||
dll21671_01.Text = EditDataRow.Item("AGE").ToString
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
||||||
@ -398,8 +460,9 @@ Public Class frmTestData21671Def
|
|||||||
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
||||||
strParameter = CombineXMLParameter("subcontractorno", "SubcontractorNo", "String", CInput(txtSubcontractorNo.Text), "")
|
strParameter = CombineXMLParameter("subcontractorno", "SubcontractorNo", "String", CInput(txtSubcontractorNo.Text), "")
|
||||||
strParameter = strParameter & CombineXMLParameter("subcontractorname", "SubcontractorName", "String", CInput(txtSubcontractorName.Text), "")
|
strParameter = strParameter & CombineXMLParameter("subcontractorname", "SubcontractorName", "String", CInput(txtSubcontractorName.Text), "")
|
||||||
|
strParameter = strParameter & CombineXMLParameter("telno", "TelNo", "String", CInput(txtTelNo.Text), "")
|
||||||
|
strParameter = strParameter & CombineXMLParameter("email", "EMail", "String", CInput(txtEMail.Text), "")
|
||||||
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
|
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
|
||||||
strParameter = strParameter & CombineXMLParameter("AGE", "AGE", "String", dll21671_01.Text, "")
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
||||||
strParameter = strParameter & CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
|
strParameter = strParameter & CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
|
||||||
@ -407,7 +470,11 @@ Public Class frmTestData21671Def
|
|||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||||||
|
|
||||||
' 2016 YF, OutXml = wsENT.AddSubcontractor(InXml)
|
' 2016 YF, OutXml = wsENT.AddSubcontractor(InXml)
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
OutXml = InvokeSrv("SXS.wsENT.AddSubcontractor", InXml)
|
OutXml = InvokeSrv("SXS.wsENT.AddSubcontractor", InXml)
|
||||||
|
========
|
||||||
|
OutXml = InvokeSrv("wsENT.AddSubcontractor", InXml)
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
|
|
||||||
Else
|
Else
|
||||||
'修改
|
'修改
|
||||||
@ -417,7 +484,11 @@ Public Class frmTestData21671Def
|
|||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||||||
|
|
||||||
' 2016 YF, OutXml = wsENT.EditSubcontractor(InXml)
|
' 2016 YF, OutXml = wsENT.EditSubcontractor(InXml)
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
OutXml = InvokeSrv("SXS.wsENT.EditSubcontractor", InXml)
|
OutXml = InvokeSrv("SXS.wsENT.EditSubcontractor", InXml)
|
||||||
|
========
|
||||||
|
OutXml = InvokeSrv("wsENT.EditSubcontractor", InXml)
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@ -442,6 +513,13 @@ Public Class frmTestData21671Def
|
|||||||
|
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
|
Private Sub lblTelNo_Click(sender As Object, e As EventArgs) Handles lblTelNo.Click
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
========
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
@ -1,6 +1,6 @@
|
|||||||
Imports iMESExceptionManager
|
Imports iMESExceptionManager
|
||||||
|
|
||||||
Public Class frmTestData21681ContDef
|
Public Class frmTeacherContDef
|
||||||
|
|
||||||
Inherits COM_Kit.frmDefTemplat
|
Inherits COM_Kit.frmDefTemplat
|
||||||
|
|
||||||
@ -55,8 +55,8 @@ Public Class frmTestData21681ContDef
|
|||||||
Friend WithEvents lblFaxNo As System.Windows.Forms.Label
|
Friend WithEvents lblFaxNo As System.Windows.Forms.Label
|
||||||
Friend WithEvents lblTelNo As System.Windows.Forms.Label
|
Friend WithEvents lblTelNo As System.Windows.Forms.Label
|
||||||
Friend WithEvents lblDescription As System.Windows.Forms.Label
|
Friend WithEvents lblDescription As System.Windows.Forms.Label
|
||||||
Friend WithEvents lblContactorName As System.Windows.Forms.Label
|
Friend WithEvents lblTeacherContName As System.Windows.Forms.Label
|
||||||
Friend WithEvents lblSubcontractorNo As System.Windows.Forms.Label
|
Friend WithEvents lblTeacherNo As System.Windows.Forms.Label
|
||||||
Friend WithEvents gbxSubcontractorContData As System.Windows.Forms.GroupBox
|
Friend WithEvents gbxSubcontractorContData As System.Windows.Forms.GroupBox
|
||||||
Friend WithEvents txtSubcontractorNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
Friend WithEvents txtSubcontractorNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
||||||
Friend WithEvents txtContactorName As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
Friend WithEvents txtContactorName As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
||||||
@ -79,8 +79,8 @@ Public Class frmTestData21681ContDef
|
|||||||
Me.lblTelNo = New System.Windows.Forms.Label()
|
Me.lblTelNo = New System.Windows.Forms.Label()
|
||||||
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
||||||
Me.lblDescription = New System.Windows.Forms.Label()
|
Me.lblDescription = New System.Windows.Forms.Label()
|
||||||
Me.lblSubcontractorNo = New System.Windows.Forms.Label()
|
Me.lblTeacherNo = New System.Windows.Forms.Label()
|
||||||
Me.lblContactorName = New System.Windows.Forms.Label()
|
Me.lblTeacherContName = New System.Windows.Forms.Label()
|
||||||
Me.txtSubcontractorNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
Me.txtSubcontractorNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
Me.txtContactorName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
Me.txtContactorName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
Me.txtTelNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
Me.txtTelNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
@ -128,8 +128,8 @@ Public Class frmTestData21681ContDef
|
|||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblTelNo)
|
Me.gbxSubcontractorContData.Controls.Add(Me.lblTelNo)
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtDescription)
|
Me.gbxSubcontractorContData.Controls.Add(Me.txtDescription)
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblDescription)
|
Me.gbxSubcontractorContData.Controls.Add(Me.lblDescription)
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblSubcontractorNo)
|
Me.gbxSubcontractorContData.Controls.Add(Me.lblTeacherNo)
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblContactorName)
|
Me.gbxSubcontractorContData.Controls.Add(Me.lblTeacherContName)
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtSubcontractorNo)
|
Me.gbxSubcontractorContData.Controls.Add(Me.txtSubcontractorNo)
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtContactorName)
|
Me.gbxSubcontractorContData.Controls.Add(Me.txtContactorName)
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtTelNo)
|
Me.gbxSubcontractorContData.Controls.Add(Me.txtTelNo)
|
||||||
@ -238,25 +238,25 @@ Public Class frmTestData21681ContDef
|
|||||||
Me.lblDescription.Text = "Description"
|
Me.lblDescription.Text = "Description"
|
||||||
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
|
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
'
|
'
|
||||||
'lblSubcontractorNo
|
'lblTeacherNo
|
||||||
'
|
'
|
||||||
Me.lblSubcontractorNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.lblTeacherNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.lblSubcontractorNo.Location = New System.Drawing.Point(14, 29)
|
Me.lblTeacherNo.Location = New System.Drawing.Point(14, 29)
|
||||||
Me.lblSubcontractorNo.Name = "lblSubcontractorNo"
|
Me.lblTeacherNo.Name = "lblTeacherNo"
|
||||||
Me.lblSubcontractorNo.Size = New System.Drawing.Size(96, 14)
|
Me.lblTeacherNo.Size = New System.Drawing.Size(96, 14)
|
||||||
Me.lblSubcontractorNo.TabIndex = 0
|
Me.lblTeacherNo.TabIndex = 0
|
||||||
Me.lblSubcontractorNo.Text = "Subcontractor No"
|
Me.lblTeacherNo.Text = "Teacher No"
|
||||||
Me.lblSubcontractorNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
Me.lblTeacherNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
'
|
'
|
||||||
'lblContactorName
|
'lblTeacherContName
|
||||||
'
|
'
|
||||||
Me.lblContactorName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.lblTeacherContName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.lblContactorName.Location = New System.Drawing.Point(24, 59)
|
Me.lblTeacherContName.Location = New System.Drawing.Point(24, 59)
|
||||||
Me.lblContactorName.Name = "lblContactorName"
|
Me.lblTeacherContName.Name = "lblTeacherContName"
|
||||||
Me.lblContactorName.Size = New System.Drawing.Size(86, 14)
|
Me.lblTeacherContName.Size = New System.Drawing.Size(86, 14)
|
||||||
Me.lblContactorName.TabIndex = 2
|
Me.lblTeacherContName.TabIndex = 2
|
||||||
Me.lblContactorName.Text = "Contactor Name"
|
Me.lblTeacherContName.Text = "TeacherCont Name"
|
||||||
Me.lblContactorName.TextAlign = System.Drawing.ContentAlignment.TopRight
|
Me.lblTeacherContName.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
'
|
'
|
||||||
'txtSubcontractorNo
|
'txtSubcontractorNo
|
||||||
'
|
'
|
||||||
@ -284,12 +284,12 @@ Public Class frmTestData21681ContDef
|
|||||||
Me.txtTelNo.Size = New System.Drawing.Size(114, 22)
|
Me.txtTelNo.Size = New System.Drawing.Size(114, 22)
|
||||||
Me.txtTelNo.TabIndex = 5
|
Me.txtTelNo.TabIndex = 5
|
||||||
'
|
'
|
||||||
'frmSubcontractorContDef
|
'frmTeacherContDef
|
||||||
'
|
'
|
||||||
Me.ClientSize = New System.Drawing.Size(496, 446)
|
Me.ClientSize = New System.Drawing.Size(496, 446)
|
||||||
Me.Controls.Add(Me.gbxSubcontractorContData)
|
Me.Controls.Add(Me.gbxSubcontractorContData)
|
||||||
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.Name = "frmSubcontractorContDef"
|
Me.Name = "frmTeacherContDef"
|
||||||
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
||||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||||
Me.Text = "ENT Subcontractor Contactor Define"
|
Me.Text = "ENT Subcontractor Contactor Define"
|
||||||
@ -1,6 +1,6 @@
|
|||||||
Imports iMESExceptionManager
|
Imports iMESExceptionManager
|
||||||
|
|
||||||
Public Class frmSubcontractorDef
|
Public Class frmTeacherDef
|
||||||
|
|
||||||
Inherits COM_Kit.frmDefTemplat
|
Inherits COM_Kit.frmDefTemplat
|
||||||
|
|
||||||
@ -48,25 +48,25 @@ Public Class frmSubcontractorDef
|
|||||||
'Do not modify it using the code editor.
|
'Do not modify it using the code editor.
|
||||||
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
|
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
|
||||||
Friend WithEvents lblDescription As System.Windows.Forms.Label
|
Friend WithEvents lblDescription As System.Windows.Forms.Label
|
||||||
Friend WithEvents lblStudentNo As System.Windows.Forms.Label
|
Friend WithEvents lblTeacherNo As System.Windows.Forms.Label
|
||||||
Friend WithEvents lblStudentName As System.Windows.Forms.Label
|
Friend WithEvents lblTeacherName As System.Windows.Forms.Label
|
||||||
Friend WithEvents gbxSubcontractorData As System.Windows.Forms.GroupBox
|
Friend WithEvents gbxTeacherData As System.Windows.Forms.GroupBox
|
||||||
Friend WithEvents txtStudentNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
Friend WithEvents txtTeacherNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
||||||
Friend WithEvents txtStudentName As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
Friend WithEvents txtTeacherName As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
||||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||||
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
||||||
Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
||||||
Me.gbxSubcontractorData = New System.Windows.Forms.GroupBox()
|
Me.gbxTeacherData = New System.Windows.Forms.GroupBox()
|
||||||
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
||||||
Me.lblDescription = New System.Windows.Forms.Label()
|
Me.lblDescription = New System.Windows.Forms.Label()
|
||||||
Me.lblStudentNo = New System.Windows.Forms.Label()
|
Me.lblTeacherNo = New System.Windows.Forms.Label()
|
||||||
Me.lblStudentName = New System.Windows.Forms.Label()
|
Me.lblTeacherName = New System.Windows.Forms.Label()
|
||||||
Me.txtStudentNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
Me.txtTeacherNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
Me.txtStudentName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
Me.txtTeacherName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
Me.gbxSubcontractorData.SuspendLayout()
|
Me.gbxTeacherData.SuspendLayout()
|
||||||
CType(Me.txtStudentNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.txtTeacherNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
CType(Me.txtStudentName, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.txtTeacherName, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
Me.SuspendLayout()
|
Me.SuspendLayout()
|
||||||
'
|
'
|
||||||
'gbxBasisData
|
'gbxBasisData
|
||||||
@ -86,24 +86,24 @@ Public Class frmSubcontractorDef
|
|||||||
'
|
'
|
||||||
Me.btnClose.Location = New System.Drawing.Point(309, 264)
|
Me.btnClose.Location = New System.Drawing.Point(309, 264)
|
||||||
'
|
'
|
||||||
'gbxSubcontractorData
|
'gbxTeacherData
|
||||||
'
|
'
|
||||||
Me.gbxSubcontractorData.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
Me.gbxTeacherData.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtDescription)
|
Me.gbxTeacherData.Controls.Add(Me.txtDescription)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblDescription)
|
Me.gbxTeacherData.Controls.Add(Me.lblDescription)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblStudentNo)
|
Me.gbxTeacherData.Controls.Add(Me.lblTeacherNo)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblStudentName)
|
Me.gbxTeacherData.Controls.Add(Me.lblTeacherName)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtStudentNo)
|
Me.gbxTeacherData.Controls.Add(Me.txtTeacherNo)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtStudentName)
|
Me.gbxTeacherData.Controls.Add(Me.txtTeacherName)
|
||||||
Me.gbxSubcontractorData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.gbxTeacherData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.gbxSubcontractorData.Location = New System.Drawing.Point(12, 8)
|
Me.gbxTeacherData.Location = New System.Drawing.Point(12, 8)
|
||||||
Me.gbxSubcontractorData.Name = "gbxSubcontractorData"
|
Me.gbxTeacherData.Name = "gbxTeacherData"
|
||||||
Me.gbxSubcontractorData.Size = New System.Drawing.Size(479, 169)
|
Me.gbxTeacherData.Size = New System.Drawing.Size(479, 169)
|
||||||
Me.gbxSubcontractorData.TabIndex = 7
|
Me.gbxTeacherData.TabIndex = 7
|
||||||
Me.gbxSubcontractorData.TabStop = False
|
Me.gbxTeacherData.TabStop = False
|
||||||
Me.gbxSubcontractorData.Text = "Subcontractor Data"
|
Me.gbxTeacherData.Text = "Teacher Data"
|
||||||
'
|
'
|
||||||
'txtDescription
|
'txtDescription
|
||||||
'
|
'
|
||||||
@ -124,65 +124,65 @@ Public Class frmSubcontractorDef
|
|||||||
Me.lblDescription.Text = "Description"
|
Me.lblDescription.Text = "Description"
|
||||||
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
|
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
'
|
'
|
||||||
'lblStudentNo
|
'lblTeacherNo
|
||||||
'
|
'
|
||||||
Me.lblStudentNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.lblTeacherNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.lblStudentNo.Location = New System.Drawing.Point(24, 24)
|
Me.lblTeacherNo.Location = New System.Drawing.Point(24, 24)
|
||||||
Me.lblStudentNo.Name = "lblStudentNo"
|
Me.lblTeacherNo.Name = "lblTeacherNo"
|
||||||
Me.lblStudentNo.Size = New System.Drawing.Size(96, 32)
|
Me.lblTeacherNo.Size = New System.Drawing.Size(96, 32)
|
||||||
Me.lblStudentNo.TabIndex = 5
|
Me.lblTeacherNo.TabIndex = 5
|
||||||
Me.lblStudentNo.Text = "Student No"
|
Me.lblTeacherNo.Text = "Teacher No"
|
||||||
Me.lblStudentNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
Me.lblTeacherNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
'
|
'
|
||||||
'lblStudentName
|
'lblTeacherName
|
||||||
'
|
'
|
||||||
Me.lblStudentName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.lblTeacherName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.lblStudentName.Location = New System.Drawing.Point(8, 56)
|
Me.lblTeacherName.Location = New System.Drawing.Point(8, 56)
|
||||||
Me.lblStudentName.Name = "lblStudentName"
|
Me.lblTeacherName.Name = "lblTeacherName"
|
||||||
Me.lblStudentName.Size = New System.Drawing.Size(112, 32)
|
Me.lblTeacherName.Size = New System.Drawing.Size(112, 32)
|
||||||
Me.lblStudentName.TabIndex = 9
|
Me.lblTeacherName.TabIndex = 9
|
||||||
Me.lblStudentName.Text = "Student Name"
|
Me.lblTeacherName.Text = "Teacher Name"
|
||||||
Me.lblStudentName.TextAlign = System.Drawing.ContentAlignment.TopRight
|
Me.lblTeacherName.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
'
|
'
|
||||||
'txtStudentNo
|
'txtTeacherNo
|
||||||
'
|
'
|
||||||
Appearance1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
Appearance1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
Me.txtStudentNo.Appearance = Appearance1
|
Me.txtTeacherNo.Appearance = Appearance1
|
||||||
Me.txtStudentNo.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
Me.txtTeacherNo.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
Me.txtStudentNo.Location = New System.Drawing.Point(128, 24)
|
Me.txtTeacherNo.Location = New System.Drawing.Point(128, 24)
|
||||||
Me.txtStudentNo.Name = "txtStudentNo"
|
Me.txtTeacherNo.Name = "txtTeacherNo"
|
||||||
Me.txtStudentNo.Size = New System.Drawing.Size(152, 22)
|
Me.txtTeacherNo.Size = New System.Drawing.Size(152, 22)
|
||||||
Me.txtStudentNo.TabIndex = 0
|
Me.txtTeacherNo.TabIndex = 0
|
||||||
'
|
'
|
||||||
'txtStudentName
|
'txtTeacherName
|
||||||
'
|
'
|
||||||
Appearance2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
Appearance2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
Me.txtStudentName.Appearance = Appearance2
|
Me.txtTeacherName.Appearance = Appearance2
|
||||||
Me.txtStudentName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
Me.txtTeacherName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
Me.txtStudentName.Location = New System.Drawing.Point(128, 55)
|
Me.txtTeacherName.Location = New System.Drawing.Point(128, 55)
|
||||||
Me.txtStudentName.Name = "txtStudentName"
|
Me.txtTeacherName.Name = "txtTeacherName"
|
||||||
Me.txtStudentName.Size = New System.Drawing.Size(334, 22)
|
Me.txtTeacherName.Size = New System.Drawing.Size(334, 22)
|
||||||
Me.txtStudentName.TabIndex = 1
|
Me.txtTeacherName.TabIndex = 1
|
||||||
'
|
'
|
||||||
'frmSubcontractorDef
|
'frmTeacherDef
|
||||||
'
|
'
|
||||||
Me.ClientSize = New System.Drawing.Size(503, 309)
|
Me.ClientSize = New System.Drawing.Size(503, 309)
|
||||||
Me.Controls.Add(Me.gbxSubcontractorData)
|
Me.Controls.Add(Me.gbxTeacherData)
|
||||||
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.Name = "frmSubcontractorDef"
|
Me.Name = "frmTeacherDef"
|
||||||
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
||||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||||
Me.Text = "ENT Subcontractor Define"
|
Me.Text = "ENT Teacher Define"
|
||||||
Me.Controls.SetChildIndex(Me.btnClose, 0)
|
Me.Controls.SetChildIndex(Me.btnClose, 0)
|
||||||
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
|
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
|
||||||
Me.Controls.SetChildIndex(Me.btnApply, 0)
|
Me.Controls.SetChildIndex(Me.btnApply, 0)
|
||||||
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
|
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
|
||||||
Me.Controls.SetChildIndex(Me.gbxSubcontractorData, 0)
|
Me.Controls.SetChildIndex(Me.gbxTeacherData, 0)
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
|
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
Me.gbxSubcontractorData.ResumeLayout(False)
|
Me.gbxTeacherData.ResumeLayout(False)
|
||||||
Me.gbxSubcontractorData.PerformLayout()
|
Me.gbxTeacherData.PerformLayout()
|
||||||
CType(Me.txtStudentNo, System.ComponentModel.ISupportInitialize).EndInit()
|
CType(Me.txtTeacherNo, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
CType(Me.txtStudentName, System.ComponentModel.ISupportInitialize).EndInit()
|
CType(Me.txtTeacherName, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
Me.ResumeLayout(False)
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
@ -211,8 +211,8 @@ Public Class frmSubcontractorDef
|
|||||||
' 2016 YF, wsENT.EnableDecompression = True
|
' 2016 YF, wsENT.EnableDecompression = True
|
||||||
|
|
||||||
If Not EditDataRow Is Nothing Then
|
If Not EditDataRow Is Nothing Then
|
||||||
txtStudentNo.Text = EditDataRow.Item("StudentNo").ToString
|
txtTeacherNo.Text = EditDataRow.Item("TeacherNo").ToString
|
||||||
txtStudentName.Text = EditDataRow.Item("StudentName").ToString
|
txtTeacherName.Text = EditDataRow.Item("TeacherName").ToString
|
||||||
'txtDescription是RichTextBox Control,因為TextBox無法正常顯示多行換行的資料
|
'txtDescription是RichTextBox Control,因為TextBox無法正常顯示多行換行的資料
|
||||||
txtDescription.Text = EditDataRow.Item("Description").ToString
|
txtDescription.Text = EditDataRow.Item("Description").ToString
|
||||||
End If
|
End If
|
||||||
@ -221,7 +221,7 @@ Public Class frmSubcontractorDef
|
|||||||
SetCreator(gUserNo)
|
SetCreator(gUserNo)
|
||||||
SetCreateDate(Now)
|
SetCreateDate(Now)
|
||||||
ElseIf DefMode = 1 Then 'Edit
|
ElseIf DefMode = 1 Then 'Edit
|
||||||
txtStudentNo.ReadOnly = True
|
txtTeacherNo.ReadOnly = True
|
||||||
SetCreator(EditDataRow.Item("Creator").ToString)
|
SetCreator(EditDataRow.Item("Creator").ToString)
|
||||||
SetCreateDate(Convert.ToDateTime(EditDataRow.Item("CreateDate")))
|
SetCreateDate(Convert.ToDateTime(EditDataRow.Item("CreateDate")))
|
||||||
SetReviser(gUserNo)
|
SetReviser(gUserNo)
|
||||||
@ -241,9 +241,9 @@ Public Class frmSubcontractorDef
|
|||||||
|
|
||||||
Private Sub frmSubcontractorDef_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
|
Private Sub frmSubcontractorDef_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
If DefMode = 0 Or DefMode = 2 Then
|
||||||
txtStudentNo.Focus()
|
txtTeacherNo.Focus()
|
||||||
Else
|
Else
|
||||||
txtStudentName.Focus()
|
txtTeacherName.Focus()
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@ -270,9 +270,9 @@ Public Class frmSubcontractorDef
|
|||||||
If funAddorEdit(sender) < 0 Then Exit Sub
|
If funAddorEdit(sender) < 0 Then Exit Sub
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
If DefMode = 0 Or DefMode = 2 Then
|
||||||
txtStudentNo.Focus()
|
txtTeacherNo.Focus()
|
||||||
Else
|
Else
|
||||||
txtStudentName.Focus()
|
txtTeacherName.Focus()
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@ -287,43 +287,43 @@ Public Class frmSubcontractorDef
|
|||||||
|
|
||||||
#Region "Control KeyPress"
|
#Region "Control KeyPress"
|
||||||
|
|
||||||
Private Sub txtStudentNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStudentNo.Click
|
Private Sub txtSubcontractorNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherNo.Click
|
||||||
txtStudentNo.SelectAll()
|
txtTeacherNo.SelectAll()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub txtStudentNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStudentNo.Enter
|
Private Sub txtSubcontractorNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherNo.Enter
|
||||||
txtStudentNo.SelectAll()
|
txtTeacherNo.SelectAll()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub txtStudentNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtStudentNo.KeyPress
|
Private Sub txtSubcontractorNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTeacherNo.KeyPress
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
If e.KeyChar = Convert.ToChar(13) Then
|
||||||
SendKeys.Send("{TAB}")
|
SendKeys.Send("{TAB}")
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub txtStudentNo_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStudentNo.Leave
|
Private Sub txtSubcontractorNo_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherNo.Leave
|
||||||
txtStudentNo.Text = UCase(txtStudentNo.Text)
|
txtTeacherNo.Text = UCase(txtTeacherNo.Text)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub txtStudentNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStudentNo.TextChanged
|
Private Sub txtSubcontractorNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherNo.TextChanged
|
||||||
btnApplyEnabled = True
|
btnApplyEnabled = True
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub txtStudentName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStudentName.Click
|
Private Sub txtSubcontractorName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherName.Click
|
||||||
txtStudentName.SelectAll()
|
txtTeacherName.SelectAll()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub txtStudentName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStudentName.Enter
|
Private Sub txtSubcontractorName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherName.Enter
|
||||||
txtStudentName.SelectAll()
|
txtTeacherName.SelectAll()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub txtStudentName_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtStudentName.KeyPress
|
Private Sub txtSubcontractorName_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTeacherName.KeyPress
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
If e.KeyChar = Convert.ToChar(13) Then
|
||||||
SendKeys.Send("{TAB}")
|
SendKeys.Send("{TAB}")
|
||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub txtStudentName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStudentName.TextChanged
|
Private Sub txtSubcontractorName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeacherName.TextChanged
|
||||||
btnApplyEnabled = True
|
btnApplyEnabled = True
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@ -350,15 +350,15 @@ Public Class frmSubcontractorDef
|
|||||||
'******************************************************************************
|
'******************************************************************************
|
||||||
'1.基本檢查
|
'1.基本檢查
|
||||||
'******************************************************************************
|
'******************************************************************************
|
||||||
If txtStudentNo.Text = "" Then
|
If txtTeacherNo.Text = "" Then
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%StudentNo%]"), MsgBoxStyle.Exclamation, Me.Text)
|
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%TeacherNo%]"), MsgBoxStyle.Exclamation, Me.Text)
|
||||||
txtStudentNo.Focus()
|
txtTeacherNo.Focus()
|
||||||
Exit Function
|
Exit Function
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If txtStudentName.Text = "" Then
|
If txtTeacherName.Text = "" Then
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%StudentName%]"), MsgBoxStyle.Exclamation, Me.Text)
|
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%TeacherName%]"), MsgBoxStyle.Exclamation, Me.Text)
|
||||||
txtStudentName.Focus()
|
txtTeacherName.Focus()
|
||||||
Exit Function
|
Exit Function
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@ -370,8 +370,8 @@ Public Class frmSubcontractorDef
|
|||||||
|
|
||||||
Try
|
Try
|
||||||
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
||||||
strParameter = CombineXMLParameter("StudentNo", "StudentNo", "String", CInput(txtStudentNo.Text), "")
|
strParameter = CombineXMLParameter("teacherno", "TeacherNo", "String", CInput(txtTeacherNo.Text), "")
|
||||||
strParameter = strParameter & CombineXMLParameter("StudentName", "StudentName", "String", CInput(txtStudentName.Text), "")
|
strParameter = strParameter & CombineXMLParameter("teachername", "TeacherName", "String", CInput(txtTeacherName.Text), "")
|
||||||
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
|
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
||||||
@ -380,7 +380,7 @@ Public Class frmSubcontractorDef
|
|||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||||||
|
|
||||||
' 2016 YF, OutXml = wsENT.AddSubcontractor(InXml)
|
' 2016 YF, OutXml = wsENT.AddSubcontractor(InXml)
|
||||||
OutXml = InvokeSrv("wsENT.AddSubcontractor", InXml)
|
OutXml = InvokeSrv("SXS.wsENT_21674.AddTeacher", InXml)
|
||||||
|
|
||||||
Else
|
Else
|
||||||
'修改
|
'修改
|
||||||
@ -390,13 +390,13 @@ Public Class frmSubcontractorDef
|
|||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||||||
|
|
||||||
' 2016 YF, OutXml = wsENT.EditSubcontractor(InXml)
|
' 2016 YF, OutXml = wsENT.EditSubcontractor(InXml)
|
||||||
OutXml = InvokeSrv("wsENT.EditSubcontractor", InXml)
|
OutXml = InvokeSrv("SXS.wsENT_21674.EditTeacher", InXml)
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
XmlDoc.LoadXml(OutXml)
|
XmlDoc.LoadXml(OutXml)
|
||||||
If ChkExecutionSuccess(XmlDoc) Then
|
If ChkExecutionSuccess(XmlDoc) Then
|
||||||
gReturnKeyValue = txtStudentNo.Text
|
gReturnKeyValue = txtTeacherNo.Text
|
||||||
|
|
||||||
funAddorEdit = 0
|
funAddorEdit = 0
|
||||||
If sender.Equals(btnApply) Then
|
If sender.Equals(btnApply) Then
|
||||||
@ -415,6 +415,18 @@ Public Class frmSubcontractorDef
|
|||||||
|
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
|
Private Sub lblSubcontractorNo_Click(sender As Object, e As EventArgs) Handles lblTeacherNo.Click
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnConfirm_Click_1(sender As Object, e As EventArgs) Handles btnConfirm.Click
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub lblSubcontractorName_Click(sender As Object, e As EventArgs) Handles lblTeacherName.Click
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
@ -1,10 +0,0 @@
|
|||||||
""
|
|
||||||
{
|
|
||||||
"FILE_VERSION" = "9237"
|
|
||||||
"ENLISTMENT_CHOICE" = "NEVER"
|
|
||||||
"PROJECT_FILE_RELATIVE_PATH" = ""
|
|
||||||
"NUMBER_OF_EXCLUDED_FILES" = "0"
|
|
||||||
"ORIGINAL_PROJECT_FILE_PATH" = ""
|
|
||||||
"NUMBER_OF_NESTED_PROJECTS" = "0"
|
|
||||||
"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER"
|
|
||||||
}
|
|
||||||
@ -1,13 +0,0 @@
|
|||||||
'------------------------------------------------------------------------------
|
|
||||||
' <auto-generated>
|
|
||||||
' 此代码由工具生成。
|
|
||||||
' 运行时版本:4.0.30319.42000
|
|
||||||
'
|
|
||||||
' 对此文件的更改可能会导致不正确的行为，并且如果
|
|
||||||
' 重新生成代码，这些更改将会丢失。
|
|
||||||
' </auto-generated>
|
|
||||||
'------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
Option Strict On
|
|
||||||
Option Explicit On
|
|
||||||
|
|
||||||
@ -1,10 +0,0 @@
|
|||||||
<?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>1</ApplicationType>
|
|
||||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
|
||||||
</MyApplicationData>
|
|
||||||
@ -1,35 +0,0 @@
|
|||||||
Imports System
|
|
||||||
Imports System.Reflection
|
|
||||||
Imports System.Runtime.InteropServices
|
|
||||||
|
|
||||||
' 組件的一般資訊是由下列的屬性集控制。
|
|
||||||
' 變更這些屬性的值即可修改組件的相關
|
|
||||||
' 資訊。
|
|
||||||
|
|
||||||
' 檢閱組件屬性的值
|
|
||||||
|
|
||||||
<Assembly: AssemblyTitle("ET_Subcontractor")>
|
|
||||||
<Assembly: AssemblyDescription("")>
|
|
||||||
<Assembly: AssemblyCompany("iMES Technology Inc.")>
|
|
||||||
<Assembly: AssemblyProduct("MESSeries 6")>
|
|
||||||
<Assembly: AssemblyCopyright("Copyright © iMES Technology Inc.")>
|
|
||||||
<Assembly: AssemblyTrademark("")>
|
|
||||||
|
|
||||||
<Assembly: ComVisible(False)>
|
|
||||||
|
|
||||||
'下列 GUID 為專案公開 (Expose) 至 COM 時所要使用的 typelib ID
|
|
||||||
<Assembly: Guid("cb602012-a17f-433f-b777-ace6a6a676c1")>
|
|
||||||
|
|
||||||
' 組件的版本資訊由下列四個值所組成:
|
|
||||||
'
|
|
||||||
' 主要版本
|
|
||||||
' 次要版本
|
|
||||||
' 組建編號
|
|
||||||
' 修訂編號
|
|
||||||
'
|
|
||||||
' 您可以指定所有的值，也可以依照以下的方式，使用 '*' 將組建和修訂編號
|
|
||||||
' 指定為預設值:
|
|
||||||
' <Assembly: AssemblyVersion("1.0.*")>
|
|
||||||
|
|
||||||
<Assembly: AssemblyVersion("6.0.0.0")>
|
|
||||||
|
|
||||||
@ -1 +0,0 @@
|
|||||||
<Assembly: Reflection.AssemblyFileVersion("6.0.5.40116")>
|
|
||||||
@ -1,63 +0,0 @@
|
|||||||
'------------------------------------------------------------------------------
|
|
||||||
' <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("ET_Subcontractor_21708.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
|
|
||||||
@ -1,117 +0,0 @@
|
|||||||
<?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>
|
|
||||||
@ -1,73 +0,0 @@
|
|||||||
'------------------------------------------------------------------------------
|
|
||||||
' <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
|
|
||||||
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.ET_Subcontractor_21708.My.MySettings
|
|
||||||
Get
|
|
||||||
Return Global.ET_Subcontractor_21708.My.MySettings.Default
|
|
||||||
End Get
|
|
||||||
End Property
|
|
||||||
End Module
|
|
||||||
End Namespace
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
<?xml version='1.0' encoding='utf-8'?>
|
|
||||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
|
||||||
<Profiles>
|
|
||||||
<Profile Name="(Default)" />
|
|
||||||
</Profiles>
|
|
||||||
<Settings />
|
|
||||||
</SettingsFile>
|
|
||||||
File diff suppressed because it is too large
Load Diff
@ -1,656 +0,0 @@
|
|||||||
Imports iMESExceptionManager
|
|
||||||
|
|
||||||
Public Class frmSubcontractorContDef
|
|
||||||
|
|
||||||
Inherits COM_Kit.frmDefTemplat
|
|
||||||
|
|
||||||
'//Public Variables
|
|
||||||
Public EditDataRow As DataRow
|
|
||||||
Public DefMode As Integer = 0 '0. ADD, 1.Edit, 2. Copy
|
|
||||||
|
|
||||||
Public StudentNo As String = defString
|
|
||||||
Public PrivFunNo As String = defString
|
|
||||||
|
|
||||||
'//Web Service相關變數
|
|
||||||
' 2016 YF, Dim wsENT As New wsENT.wsENT
|
|
||||||
Dim InXml As String
|
|
||||||
Dim OutXml As String
|
|
||||||
|
|
||||||
Dim strIdentity As String
|
|
||||||
Dim strParameter As String
|
|
||||||
Dim intDataStamp As Integer '紀錄DataStamp
|
|
||||||
|
|
||||||
#Region " Windows Form Designer generated code "
|
|
||||||
|
|
||||||
Public Sub New()
|
|
||||||
MyBase.New()
|
|
||||||
|
|
||||||
'This call is required by the Windows Form Designer.
|
|
||||||
InitializeComponent()
|
|
||||||
|
|
||||||
'Add any initialization after the InitializeComponent() call
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
'Form overrides dispose to clean up the component list.
|
|
||||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
||||||
If disposing Then
|
|
||||||
If Not (components Is Nothing) Then
|
|
||||||
components.Dispose()
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
MyBase.Dispose(disposing)
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
'Required by the Windows Form Designer
|
|
||||||
Private components As System.ComponentModel.IContainer
|
|
||||||
|
|
||||||
'NOTE: The following procedure is required by the Windows Form Designer
|
|
||||||
'It can be modified using the Windows Form Designer.
|
|
||||||
'Do not modify it using the code editor.
|
|
||||||
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
|
|
||||||
Friend WithEvents lblAddress As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblEMail As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblNickName As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblQQno As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblTelNo As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblDescription As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblContactorName As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblSubcontractorNo As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents gbxSubcontractorContData As System.Windows.Forms.GroupBox
|
|
||||||
Friend WithEvents txtSubcontractorNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtContactorName As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtQQno As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtTelNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtEMail As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtNickName As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtAddress As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
||||||
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
|
||||||
Me.gbxSubcontractorContData = New System.Windows.Forms.GroupBox()
|
|
||||||
Me.txtAddress = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtEMail = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtNickName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtQQno = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.lblAddress = New System.Windows.Forms.Label()
|
|
||||||
Me.lblEMail = New System.Windows.Forms.Label()
|
|
||||||
Me.lblNickName = New System.Windows.Forms.Label()
|
|
||||||
Me.lblQQno = New System.Windows.Forms.Label()
|
|
||||||
Me.lblTelNo = New System.Windows.Forms.Label()
|
|
||||||
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
|
||||||
Me.lblDescription = New System.Windows.Forms.Label()
|
|
||||||
Me.lblSubcontractorNo = New System.Windows.Forms.Label()
|
|
||||||
Me.lblContactorName = New System.Windows.Forms.Label()
|
|
||||||
Me.txtSubcontractorNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtContactorName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtTelNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
Me.gbxSubcontractorContData.SuspendLayout()
|
|
||||||
CType(Me.txtAddress, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtNickName, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtQQno, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtContactorName, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
Me.SuspendLayout()
|
|
||||||
'
|
|
||||||
'gbxBasisData
|
|
||||||
'
|
|
||||||
Me.gbxBasisData.Location = New System.Drawing.Point(12, 322)
|
|
||||||
Me.gbxBasisData.Size = New System.Drawing.Size(472, 70)
|
|
||||||
'
|
|
||||||
'btnApply
|
|
||||||
'
|
|
||||||
Me.btnApply.Location = New System.Drawing.Point(396, 401)
|
|
||||||
'
|
|
||||||
'btnConfirm
|
|
||||||
'
|
|
||||||
Me.btnConfirm.Location = New System.Drawing.Point(208, 401)
|
|
||||||
'
|
|
||||||
'btnClose
|
|
||||||
'
|
|
||||||
Me.btnClose.Location = New System.Drawing.Point(302, 401)
|
|
||||||
'
|
|
||||||
'gbxSubcontractorContData
|
|
||||||
'
|
|
||||||
Me.gbxSubcontractorContData.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.gbxSubcontractorContData.Controls.Add(Me.txtAddress)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtEMail)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtNickName)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtQQno)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblAddress)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblEMail)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblNickName)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblQQno)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblTelNo)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtDescription)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblDescription)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblSubcontractorNo)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblContactorName)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtSubcontractorNo)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtContactorName)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtTelNo)
|
|
||||||
Me.gbxSubcontractorContData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.gbxSubcontractorContData.Location = New System.Drawing.Point(15, 8)
|
|
||||||
Me.gbxSubcontractorContData.Name = "gbxSubcontractorContData"
|
|
||||||
Me.gbxSubcontractorContData.Size = New System.Drawing.Size(469, 306)
|
|
||||||
Me.gbxSubcontractorContData.TabIndex = 0
|
|
||||||
Me.gbxSubcontractorContData.TabStop = False
|
|
||||||
Me.gbxSubcontractorContData.Text = "ENT Subcontractor Contactor Data"
|
|
||||||
'
|
|
||||||
'txtAddress
|
|
||||||
'
|
|
||||||
Me.txtAddress.Location = New System.Drawing.Point(120, 152)
|
|
||||||
Me.txtAddress.Name = "txtAddress"
|
|
||||||
Me.txtAddress.Size = New System.Drawing.Size(336, 22)
|
|
||||||
Me.txtAddress.TabIndex = 13
|
|
||||||
'
|
|
||||||
'txtEMail
|
|
||||||
'
|
|
||||||
Me.txtEMail.Location = New System.Drawing.Point(320, 120)
|
|
||||||
Me.txtEMail.Name = "txtEMail"
|
|
||||||
Me.txtEMail.Size = New System.Drawing.Size(136, 22)
|
|
||||||
Me.txtEMail.TabIndex = 11
|
|
||||||
'
|
|
||||||
'txtNickName
|
|
||||||
'
|
|
||||||
Me.txtNickName.Location = New System.Drawing.Point(120, 120)
|
|
||||||
Me.txtNickName.Name = "txtNickName"
|
|
||||||
Me.txtNickName.Size = New System.Drawing.Size(114, 22)
|
|
||||||
Me.txtNickName.TabIndex = 9
|
|
||||||
'
|
|
||||||
'txtQQno
|
|
||||||
'
|
|
||||||
Me.txtQQno.Location = New System.Drawing.Point(320, 88)
|
|
||||||
Me.txtQQno.Name = "txtQQno"
|
|
||||||
Me.txtQQno.Size = New System.Drawing.Size(136, 22)
|
|
||||||
Me.txtQQno.TabIndex = 7
|
|
||||||
'
|
|
||||||
'lblAddress
|
|
||||||
'
|
|
||||||
Me.lblAddress.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblAddress.Location = New System.Drawing.Point(24, 154)
|
|
||||||
Me.lblAddress.Name = "lblAddress"
|
|
||||||
Me.lblAddress.Size = New System.Drawing.Size(86, 14)
|
|
||||||
Me.lblAddress.TabIndex = 12
|
|
||||||
Me.lblAddress.Text = "Address"
|
|
||||||
Me.lblAddress.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblEMail
|
|
||||||
'
|
|
||||||
Me.lblEMail.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblEMail.Location = New System.Drawing.Point(248, 123)
|
|
||||||
Me.lblEMail.Name = "lblEMail"
|
|
||||||
Me.lblEMail.Size = New System.Drawing.Size(64, 14)
|
|
||||||
Me.lblEMail.TabIndex = 10
|
|
||||||
Me.lblEMail.Text = "EMail"
|
|
||||||
Me.lblEMail.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblNickName
|
|
||||||
'
|
|
||||||
Me.lblNickName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblNickName.Location = New System.Drawing.Point(24, 121)
|
|
||||||
Me.lblNickName.Name = "lblNickName"
|
|
||||||
Me.lblNickName.Size = New System.Drawing.Size(86, 14)
|
|
||||||
Me.lblNickName.TabIndex = 8
|
|
||||||
Me.lblNickName.Text = "NickName"
|
|
||||||
Me.lblNickName.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblQQno
|
|
||||||
'
|
|
||||||
Me.lblQQno.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblQQno.Location = New System.Drawing.Point(248, 90)
|
|
||||||
Me.lblQQno.Name = "lblQQno"
|
|
||||||
Me.lblQQno.Size = New System.Drawing.Size(64, 14)
|
|
||||||
Me.lblQQno.TabIndex = 6
|
|
||||||
Me.lblQQno.Text = "QQno"
|
|
||||||
Me.lblQQno.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblTelNo
|
|
||||||
'
|
|
||||||
Me.lblTelNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblTelNo.Location = New System.Drawing.Point(24, 90)
|
|
||||||
Me.lblTelNo.Name = "lblTelNo"
|
|
||||||
Me.lblTelNo.Size = New System.Drawing.Size(86, 14)
|
|
||||||
Me.lblTelNo.TabIndex = 4
|
|
||||||
Me.lblTelNo.Text = "TelNo"
|
|
||||||
Me.lblTelNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'txtDescription
|
|
||||||
'
|
|
||||||
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.txtDescription.Location = New System.Drawing.Point(120, 184)
|
|
||||||
Me.txtDescription.Name = "txtDescription"
|
|
||||||
Me.txtDescription.Size = New System.Drawing.Size(336, 108)
|
|
||||||
Me.txtDescription.TabIndex = 15
|
|
||||||
Me.txtDescription.Text = ""
|
|
||||||
'
|
|
||||||
'lblDescription
|
|
||||||
'
|
|
||||||
Me.lblDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblDescription.Location = New System.Drawing.Point(24, 186)
|
|
||||||
Me.lblDescription.Name = "lblDescription"
|
|
||||||
Me.lblDescription.Size = New System.Drawing.Size(86, 14)
|
|
||||||
Me.lblDescription.TabIndex = 14
|
|
||||||
Me.lblDescription.Text = "Description"
|
|
||||||
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblSubcontractorNo
|
|
||||||
'
|
|
||||||
Me.lblSubcontractorNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblSubcontractorNo.Location = New System.Drawing.Point(14, 29)
|
|
||||||
Me.lblSubcontractorNo.Name = "lblSubcontractorNo"
|
|
||||||
Me.lblSubcontractorNo.Size = New System.Drawing.Size(96, 14)
|
|
||||||
Me.lblSubcontractorNo.TabIndex = 0
|
|
||||||
Me.lblSubcontractorNo.Text = "Subcontractor No"
|
|
||||||
Me.lblSubcontractorNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblContactorName
|
|
||||||
'
|
|
||||||
Me.lblContactorName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblContactorName.Location = New System.Drawing.Point(24, 59)
|
|
||||||
Me.lblContactorName.Name = "lblContactorName"
|
|
||||||
Me.lblContactorName.Size = New System.Drawing.Size(86, 14)
|
|
||||||
Me.lblContactorName.TabIndex = 2
|
|
||||||
Me.lblContactorName.Text = "Contactor Name"
|
|
||||||
Me.lblContactorName.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'txtSubcontractorNo
|
|
||||||
'
|
|
||||||
Me.txtSubcontractorNo.Location = New System.Drawing.Point(120, 24)
|
|
||||||
Me.txtSubcontractorNo.Name = "txtSubcontractorNo"
|
|
||||||
Me.txtSubcontractorNo.ReadOnly = True
|
|
||||||
Me.txtSubcontractorNo.Size = New System.Drawing.Size(114, 22)
|
|
||||||
Me.txtSubcontractorNo.TabIndex = 1
|
|
||||||
Me.txtSubcontractorNo.TabStop = False
|
|
||||||
'
|
|
||||||
'txtContactorName
|
|
||||||
'
|
|
||||||
Appearance1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtContactorName.Appearance = Appearance1
|
|
||||||
Me.txtContactorName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtContactorName.Location = New System.Drawing.Point(120, 56)
|
|
||||||
Me.txtContactorName.Name = "txtContactorName"
|
|
||||||
Me.txtContactorName.Size = New System.Drawing.Size(160, 22)
|
|
||||||
Me.txtContactorName.TabIndex = 3
|
|
||||||
'
|
|
||||||
'txtTelNo
|
|
||||||
'
|
|
||||||
Me.txtTelNo.Location = New System.Drawing.Point(120, 88)
|
|
||||||
Me.txtTelNo.Name = "txtTelNo"
|
|
||||||
Me.txtTelNo.Size = New System.Drawing.Size(114, 22)
|
|
||||||
Me.txtTelNo.TabIndex = 5
|
|
||||||
'
|
|
||||||
'frmSubcontractorContDef
|
|
||||||
'
|
|
||||||
Me.ClientSize = New System.Drawing.Size(496, 446)
|
|
||||||
Me.Controls.Add(Me.gbxSubcontractorContData)
|
|
||||||
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.Name = "frmSubcontractorContDef"
|
|
||||||
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
|
||||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
||||||
Me.Text = "ENT Subcontractor Contactor Define"
|
|
||||||
Me.Controls.SetChildIndex(Me.btnClose, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.btnApply, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.gbxSubcontractorContData, 0)
|
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
Me.gbxSubcontractorContData.ResumeLayout(False)
|
|
||||||
Me.gbxSubcontractorContData.PerformLayout()
|
|
||||||
CType(Me.txtAddress, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtNickName, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtQQno, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtContactorName, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
Me.ResumeLayout(False)
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
Private Sub frmSubcontractorContDef_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
Select Case DefMode
|
|
||||||
Case 0
|
|
||||||
Me.Text = Me.Text & "(ADD)"
|
|
||||||
Case 1
|
|
||||||
Me.Text = Me.Text & "(EDIT)"
|
|
||||||
Case 2
|
|
||||||
Me.Text = Me.Text & "(Copy)"
|
|
||||||
Case Else
|
|
||||||
Me.Text = Me.Text & "(Unknown)"
|
|
||||||
End Select
|
|
||||||
|
|
||||||
'做為MainForm判斷是否重新LoadData的依據()
|
|
||||||
gReturnKeyValue = ""
|
|
||||||
|
|
||||||
' 2016 YF, wsENT.Url = LocalizeWebService(wsENT.Url.ToString)
|
|
||||||
' 2016 YF, wsENT.EnableDecompression = True
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
SetCreateDate(Now)
|
|
||||||
SetCreator(gUserNo)
|
|
||||||
End If
|
|
||||||
If Not EditDataRow Is Nothing Then '修改 or Copy
|
|
||||||
txtSubcontractorNo.Text = EditDataRow.Item("SubcontractorNo").ToString
|
|
||||||
txtContactorName.Text = EditDataRow.Item("ContactorName").ToString
|
|
||||||
txtTelNo.Text = EditDataRow.Item("TelNo").ToString
|
|
||||||
txtQQno.Text = EditDataRow.Item("QQno").ToString
|
|
||||||
txtNickName.Text = EditDataRow.Item("NickName").ToString
|
|
||||||
txtAddress.Text = EditDataRow.Item("Address").ToString
|
|
||||||
txtEMail.Text = EditDataRow.Item("EMail").ToString
|
|
||||||
'txtDescription是RichTextBox(Control, 因為TextBox無法正常顯示多行換行的資料)
|
|
||||||
txtDescription.Text = EditDataRow.Item("Description").ToString
|
|
||||||
If DefMode = 1 Then
|
|
||||||
If (Not IsDBNull(EditDataRow("Creator"))) Then
|
|
||||||
SetCreateDate(Convert.ToDateTime(EditDataRow.Item("CreateDate")))
|
|
||||||
SetCreator(EditDataRow.Item("Creator").ToString)
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
If DefMode = 0 Then 'Add
|
|
||||||
txtSubcontractorNo.Text = StudentNo
|
|
||||||
SetCreateDate(Now)
|
|
||||||
SetCreator(gUserNo)
|
|
||||||
ElseIf DefMode = 1 Then 'Edit
|
|
||||||
txtContactorName.ReadOnly = True
|
|
||||||
SetReviseDate(Now)
|
|
||||||
SetReviser(gUserNo)
|
|
||||||
intDataStamp = EditDataRow.Item("DataStamp")
|
|
||||||
End If
|
|
||||||
|
|
||||||
btnApplyEnabled = False
|
|
||||||
|
|
||||||
'語系切換
|
|
||||||
Call ExeChangeResource(Me, gLanguageMode)
|
|
||||||
ExeGroupControlPriv(Me, PrivFunNo)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub frmSubcontractorContDef_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
txtContactorName.Focus()
|
|
||||||
Else
|
|
||||||
txtTelNo.Focus()
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
If funAddorEdit(sender) < 0 Then Exit Sub
|
|
||||||
|
|
||||||
Me.Close()
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
Me.Close()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
If funAddorEdit(sender) < 0 Then Exit Sub
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
txtContactorName.Focus()
|
|
||||||
Else
|
|
||||||
txtTelNo.Focus()
|
|
||||||
End If
|
|
||||||
|
|
||||||
txtEMail.Text = ""
|
|
||||||
btnApplyEnabled = False
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#Region "Control KeyPress"
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Click
|
|
||||||
txtSubcontractorNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Enter
|
|
||||||
txtSubcontractorNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSubcontractorNo.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtContactorName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Click
|
|
||||||
txtContactorName.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtContactorName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Enter
|
|
||||||
txtContactorName.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtContactorName_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtContactorName.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtContactorName_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Leave
|
|
||||||
If txtContactorName.Text <> "" And txtEMail.Text = "" Then
|
|
||||||
txtEMail.Text = txtContactorName.Text & "@"
|
|
||||||
End If
|
|
||||||
txtContactorName.Text = UCase(txtContactorName.Text)
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtContactorName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTelNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.Click
|
|
||||||
txtTelNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTelNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.Enter
|
|
||||||
txtTelNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTelNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTelNo.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTelNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtQQno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtQQno.Click
|
|
||||||
txtQQno.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtQQno_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtQQno.Enter
|
|
||||||
txtQQno.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtQQno_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtQQno.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtQQno_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtQQno.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtNickName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNickName.Click
|
|
||||||
txtNickName.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtNickName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNickName.Enter
|
|
||||||
txtNickName.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtNickName_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNickName.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtNickName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNickName.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtEMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEMail.Click
|
|
||||||
txtEMail.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtEMail_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEMail.Enter
|
|
||||||
txtEMail.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtEMail_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtEMail.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtEMail_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEMail.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtAddress_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAddress.Click
|
|
||||||
txtAddress.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtAddress_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAddress.Enter
|
|
||||||
txtAddress.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtAddress_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtAddress.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtAddress_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAddress.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Click
|
|
||||||
txtDescription.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Enter
|
|
||||||
txtDescription.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtDescription.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
#Region "Others"
|
|
||||||
|
|
||||||
Private Function funAddorEdit(sender As Object) As Integer
|
|
||||||
|
|
||||||
funAddorEdit = -1
|
|
||||||
|
|
||||||
'******************************************************************************
|
|
||||||
'1.基本檢查()
|
|
||||||
'******************************************************************************
|
|
||||||
If txtSubcontractorNo.Text = "" Then
|
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%SubcontractorNo%]"), MsgBoxStyle.Exclamation, Me.Text)
|
|
||||||
txtSubcontractorNo.Focus()
|
|
||||||
Exit Function
|
|
||||||
End If
|
|
||||||
If txtContactorName.Text = "" Then
|
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%ContactorName%]"), MsgBoxStyle.Exclamation, Me.Text)
|
|
||||||
txtContactorName.Focus()
|
|
||||||
Exit Function
|
|
||||||
End If
|
|
||||||
|
|
||||||
'******************************************************************************
|
|
||||||
'2.寫回資料庫()
|
|
||||||
'******************************************************************************
|
|
||||||
Dim XmlDoc As New XmlDocument
|
|
||||||
|
|
||||||
Try
|
|
||||||
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
|
||||||
strParameter = CombineXMLParameter("subcontractorno", "SubcontractorNo", "String", CInput(txtSubcontractorNo.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("contactorname", "ContactorName", "String", CInput(txtContactorName.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("telno", "TelNo", "String", txtTelNo.Text, "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("QQno", "QQno", "String", txtQQno.Text, "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("NickName", "NickName", "String", CInput(txtNickName.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("address", "Address", "String", CInput(txtAddress.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("email", "EMail", "String", CInput(txtEMail.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
|
|
||||||
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
|
||||||
strParameter += CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
|
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
|
||||||
' 2016 YF, OutXml = wsENT.AddSubcontractorCont(InXml)
|
|
||||||
OutXml = InvokeSrv("SXS.wsENT.AddSubcontractorCont", InXml)
|
|
||||||
|
|
||||||
Else 'Edit
|
|
||||||
' 增加Datastamp
|
|
||||||
strParameter += CombineXMLParameter("datastamp", "Datastamp", "Integer", intDataStamp, "")
|
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
|
||||||
' 2016 YF, OutXml = wsENT.EditSubcontractorCont(InXml)
|
|
||||||
OutXml = InvokeSrv("SXS.wsENT.EditSubcontractorCont", InXml)
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
XmlDoc.LoadXml(OutXml)
|
|
||||||
If ChkExecutionSuccess(XmlDoc) Then
|
|
||||||
gReturnKeyValue = txtContactorName.Text
|
|
||||||
|
|
||||||
funAddorEdit = 0
|
|
||||||
If sender.Equals(btnApply) Then
|
|
||||||
intDataStamp += 1
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
|
|
||||||
End If
|
|
||||||
|
|
||||||
Catch ex As Exception
|
|
||||||
'MsgBox("Unexpected Error. Add or Edit ENT Subcontractor Contactor Failed!," & e1.Message, MsgBoxStyle.Exclamation)
|
|
||||||
ExceptionManager.iMESShowDialog(defWinErrCode, ex.Message, ex.StackTrace)
|
|
||||||
End Try
|
|
||||||
|
|
||||||
XmlDoc = Nothing
|
|
||||||
|
|
||||||
End Function
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
|
|
||||||
Private Sub frmSubcontractorContDef_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
||||||
' 2016 YF, If Not wsENT Is Nothing Then wsENT.Dispose()
|
|
||||||
End Sub
|
|
||||||
End Class
|
|
||||||
|
|
||||||
Binary file not shown.
@ -6,8 +6,8 @@
|
|||||||
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||||
<ProjectGuid>{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}</ProjectGuid>
|
<ProjectGuid>{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}</ProjectGuid>
|
||||||
<OutputType>Library</OutputType>
|
<OutputType>Library</OutputType>
|
||||||
<RootNamespace>ET_Subcontractor_21681</RootNamespace>
|
<RootNamespace>ET_Subcontractor_21687</RootNamespace>
|
||||||
<AssemblyName>ET_Subcontractor_21681</AssemblyName>
|
<AssemblyName>ET_Subcontractor_21687</AssemblyName>
|
||||||
<FileAlignment>512</FileAlignment>
|
<FileAlignment>512</FileAlignment>
|
||||||
<MyType>Windows</MyType>
|
<MyType>Windows</MyType>
|
||||||
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
|
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
|
||||||
@ -34,7 +34,7 @@
|
|||||||
<DefineDebug>true</DefineDebug>
|
<DefineDebug>true</DefineDebug>
|
||||||
<DefineTrace>true</DefineTrace>
|
<DefineTrace>true</DefineTrace>
|
||||||
<OutputPath>..\..\..\MESClient\</OutputPath>
|
<OutputPath>..\..\..\MESClient\</OutputPath>
|
||||||
<DocumentationFile>ET_Subcontractor_21681.xml</DocumentationFile>
|
<DocumentationFile>ET_Subcontractor_21687.xml</DocumentationFile>
|
||||||
<WarningLevel>0</WarningLevel>
|
<WarningLevel>0</WarningLevel>
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
<DebugType>full</DebugType>
|
<DebugType>full</DebugType>
|
||||||
@ -45,7 +45,7 @@
|
|||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
|
||||||
<DefineTrace>true</DefineTrace>
|
<DefineTrace>true</DefineTrace>
|
||||||
<OutputPath>..\..\..\MESClient\</OutputPath>
|
<OutputPath>..\..\..\MESClient\</OutputPath>
|
||||||
<DocumentationFile>ET_Subcontractor_21681.xml</DocumentationFile>
|
<DocumentationFile>ET_Subcontractor_21687.xml</DocumentationFile>
|
||||||
<Optimize>true</Optimize>
|
<Optimize>true</Optimize>
|
||||||
<WarningLevel>0</WarningLevel>
|
<WarningLevel>0</WarningLevel>
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
@ -1,6 +1,6 @@
|
|||||||
Imports iMESExceptionManager
|
Imports iMESExceptionManager
|
||||||
|
|
||||||
Public Class frmSubcontractorContDef21690
|
Public Class frmSubcontractorContDef
|
||||||
|
|
||||||
Inherits COM_Kit.frmDefTemplat
|
Inherits COM_Kit.frmDefTemplat
|
||||||
|
|
||||||
@ -18,6 +18,18 @@ Public Class frmSubcontractorContDef21690
|
|||||||
|
|
||||||
Dim strIdentity As String
|
Dim strIdentity As String
|
||||||
Dim strParameter As String
|
Dim strParameter As String
|
||||||
|
Friend WithEvents gbxBasisData As Infragistics.Win.Misc.UltraGroupBox
|
||||||
|
Friend WithEvents txtReviseDate As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
||||||
|
Friend WithEvents txtReviser As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
||||||
|
Friend WithEvents lblReviseDate As Infragistics.Win.Misc.UltraLabel
|
||||||
|
Friend WithEvents lblReviser As Infragistics.Win.Misc.UltraLabel
|
||||||
|
Friend WithEvents txtCreateDate As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
||||||
|
Friend WithEvents txtCreator As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
||||||
|
Friend WithEvents lblCreateDate As Infragistics.Win.Misc.UltraLabel
|
||||||
|
Friend WithEvents lblCreator As Infragistics.Win.Misc.UltraLabel
|
||||||
|
Friend WithEvents btnApply As Infragistics.Win.Misc.UltraButton
|
||||||
|
Friend WithEvents btnConfirm As Infragistics.Win.Misc.UltraButton
|
||||||
|
Friend WithEvents btnClose As Infragistics.Win.Misc.UltraButton
|
||||||
Dim intDataStamp As Integer '紀錄DataStamp
|
Dim intDataStamp As Integer '紀錄DataStamp
|
||||||
|
|
||||||
#Region " Windows Form Designer generated code "
|
#Region " Windows Form Designer generated code "
|
||||||
@ -67,6 +79,18 @@ Public Class frmSubcontractorContDef21690
|
|||||||
Friend WithEvents txtAddress As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
Friend WithEvents txtAddress As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
||||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||||
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
||||||
|
Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
||||||
|
Dim Appearance3 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
||||||
|
Dim Appearance4 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
||||||
|
Dim Appearance5 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
||||||
|
Me.txtReviseDate = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
|
Me.txtReviser = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
|
Me.lblReviseDate = New Infragistics.Win.Misc.UltraLabel()
|
||||||
|
Me.lblReviser = New Infragistics.Win.Misc.UltraLabel()
|
||||||
|
Me.txtCreateDate = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
|
Me.txtCreator = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
|
Me.lblCreateDate = New Infragistics.Win.Misc.UltraLabel()
|
||||||
|
Me.lblCreator = New Infragistics.Win.Misc.UltraLabel()
|
||||||
Me.gbxSubcontractorContData = New System.Windows.Forms.GroupBox()
|
Me.gbxSubcontractorContData = New System.Windows.Forms.GroupBox()
|
||||||
Me.txtAddress = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
Me.txtAddress = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
Me.txtEMail = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
Me.txtEMail = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
@ -85,6 +109,10 @@ Public Class frmSubcontractorContDef21690
|
|||||||
Me.txtContactorName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
Me.txtContactorName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
Me.txtTelNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
Me.txtTelNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.txtReviseDate, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.txtReviser, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.txtCreateDate, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
CType(Me.txtCreator, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
Me.gbxSubcontractorContData.SuspendLayout()
|
Me.gbxSubcontractorContData.SuspendLayout()
|
||||||
CType(Me.txtAddress, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.txtAddress, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
@ -102,15 +130,111 @@ Public Class frmSubcontractorContDef21690
|
|||||||
'
|
'
|
||||||
'btnApply
|
'btnApply
|
||||||
'
|
'
|
||||||
Me.btnApply.Location = New System.Drawing.Point(396, 401)
|
Me.btnApply.Location = New System.Drawing.Point(395, 401)
|
||||||
'
|
'
|
||||||
'btnConfirm
|
'btnConfirm
|
||||||
'
|
'
|
||||||
Me.btnConfirm.Location = New System.Drawing.Point(208, 401)
|
Me.btnConfirm.Location = New System.Drawing.Point(207, 401)
|
||||||
'
|
'
|
||||||
'btnClose
|
'btnClose
|
||||||
'
|
'
|
||||||
Me.btnClose.Location = New System.Drawing.Point(302, 401)
|
Me.btnClose.Location = New System.Drawing.Point(301, 401)
|
||||||
|
'
|
||||||
|
'txtReviseDate
|
||||||
|
'
|
||||||
|
Me.txtReviseDate.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.txtReviseDate.Location = New System.Drawing.Point(327, 39)
|
||||||
|
Me.txtReviseDate.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
|
||||||
|
Me.txtReviseDate.Name = "txtReviseDate"
|
||||||
|
Me.txtReviseDate.ReadOnly = True
|
||||||
|
Me.txtReviseDate.Size = New System.Drawing.Size(140, 21)
|
||||||
|
Me.txtReviseDate.TabIndex = 31
|
||||||
|
'
|
||||||
|
'txtReviser
|
||||||
|
'
|
||||||
|
Me.txtReviser.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.txtReviser.Location = New System.Drawing.Point(100, 39)
|
||||||
|
Me.txtReviser.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
|
||||||
|
Me.txtReviser.Name = "txtReviser"
|
||||||
|
Me.txtReviser.ReadOnly = True
|
||||||
|
Me.txtReviser.Size = New System.Drawing.Size(140, 21)
|
||||||
|
Me.txtReviser.TabIndex = 29
|
||||||
|
'
|
||||||
|
'lblReviseDate
|
||||||
|
'
|
||||||
|
Me.lblReviseDate.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Appearance1.TextHAlignAsString = "Right"
|
||||||
|
Appearance1.TextVAlignAsString = "Middle"
|
||||||
|
Me.lblReviseDate.Appearance = Appearance1
|
||||||
|
Me.lblReviseDate.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.lblReviseDate.Location = New System.Drawing.Point(246, 40)
|
||||||
|
Me.lblReviseDate.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
|
||||||
|
Me.lblReviseDate.Name = "lblReviseDate"
|
||||||
|
Me.lblReviseDate.Size = New System.Drawing.Size(75, 22)
|
||||||
|
Me.lblReviseDate.TabIndex = 30
|
||||||
|
Me.lblReviseDate.Text = "Revise Date"
|
||||||
|
'
|
||||||
|
'lblReviser
|
||||||
|
'
|
||||||
|
Me.lblReviser.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Appearance2.TextHAlignAsString = "Right"
|
||||||
|
Appearance2.TextVAlignAsString = "Middle"
|
||||||
|
Me.lblReviser.Appearance = Appearance2
|
||||||
|
Me.lblReviser.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.lblReviser.Location = New System.Drawing.Point(19, 40)
|
||||||
|
Me.lblReviser.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
|
||||||
|
Me.lblReviser.Name = "lblReviser"
|
||||||
|
Me.lblReviser.Size = New System.Drawing.Size(75, 22)
|
||||||
|
Me.lblReviser.TabIndex = 28
|
||||||
|
Me.lblReviser.Text = "Reviser"
|
||||||
|
'
|
||||||
|
'txtCreateDate
|
||||||
|
'
|
||||||
|
Me.txtCreateDate.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.txtCreateDate.Location = New System.Drawing.Point(327, 7)
|
||||||
|
Me.txtCreateDate.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
|
||||||
|
Me.txtCreateDate.Name = "txtCreateDate"
|
||||||
|
Me.txtCreateDate.ReadOnly = True
|
||||||
|
Me.txtCreateDate.Size = New System.Drawing.Size(140, 21)
|
||||||
|
Me.txtCreateDate.TabIndex = 27
|
||||||
|
'
|
||||||
|
'txtCreator
|
||||||
|
'
|
||||||
|
Me.txtCreator.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.txtCreator.Location = New System.Drawing.Point(100, 7)
|
||||||
|
Me.txtCreator.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
|
||||||
|
Me.txtCreator.Name = "txtCreator"
|
||||||
|
Me.txtCreator.ReadOnly = True
|
||||||
|
Me.txtCreator.Size = New System.Drawing.Size(140, 21)
|
||||||
|
Me.txtCreator.TabIndex = 25
|
||||||
|
'
|
||||||
|
'lblCreateDate
|
||||||
|
'
|
||||||
|
Me.lblCreateDate.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Appearance3.TextHAlignAsString = "Right"
|
||||||
|
Appearance3.TextVAlignAsString = "Middle"
|
||||||
|
Me.lblCreateDate.Appearance = Appearance3
|
||||||
|
Me.lblCreateDate.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.lblCreateDate.Location = New System.Drawing.Point(246, 8)
|
||||||
|
Me.lblCreateDate.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
|
||||||
|
Me.lblCreateDate.Name = "lblCreateDate"
|
||||||
|
Me.lblCreateDate.Size = New System.Drawing.Size(75, 22)
|
||||||
|
Me.lblCreateDate.TabIndex = 26
|
||||||
|
Me.lblCreateDate.Text = "Create Date"
|
||||||
|
'
|
||||||
|
'lblCreator
|
||||||
|
'
|
||||||
|
Me.lblCreator.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Appearance4.TextHAlignAsString = "Right"
|
||||||
|
Appearance4.TextVAlignAsString = "Middle"
|
||||||
|
Me.lblCreator.Appearance = Appearance4
|
||||||
|
Me.lblCreator.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.lblCreator.Location = New System.Drawing.Point(19, 8)
|
||||||
|
Me.lblCreator.Margin = New System.Windows.Forms.Padding(3, 5, 3, 5)
|
||||||
|
Me.lblCreator.Name = "lblCreator"
|
||||||
|
Me.lblCreator.Size = New System.Drawing.Size(75, 22)
|
||||||
|
Me.lblCreator.TabIndex = 24
|
||||||
|
Me.lblCreator.Text = "Creator"
|
||||||
'
|
'
|
||||||
'gbxSubcontractorContData
|
'gbxSubcontractorContData
|
||||||
'
|
'
|
||||||
@ -269,8 +393,8 @@ Public Class frmSubcontractorContDef21690
|
|||||||
'
|
'
|
||||||
'txtContactorName
|
'txtContactorName
|
||||||
'
|
'
|
||||||
Appearance1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
Appearance5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
Me.txtContactorName.Appearance = Appearance1
|
Me.txtContactorName.Appearance = Appearance5
|
||||||
Me.txtContactorName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
Me.txtContactorName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
Me.txtContactorName.Location = New System.Drawing.Point(120, 56)
|
Me.txtContactorName.Location = New System.Drawing.Point(120, 56)
|
||||||
Me.txtContactorName.Name = "txtContactorName"
|
Me.txtContactorName.Name = "txtContactorName"
|
||||||
@ -284,21 +408,25 @@ Public Class frmSubcontractorContDef21690
|
|||||||
Me.txtTelNo.Size = New System.Drawing.Size(114, 22)
|
Me.txtTelNo.Size = New System.Drawing.Size(114, 22)
|
||||||
Me.txtTelNo.TabIndex = 5
|
Me.txtTelNo.TabIndex = 5
|
||||||
'
|
'
|
||||||
'frmSubcontractorContDef21690
|
'frmSubcontractorContDef
|
||||||
'
|
'
|
||||||
Me.ClientSize = New System.Drawing.Size(496, 446)
|
Me.ClientSize = New System.Drawing.Size(496, 446)
|
||||||
Me.Controls.Add(Me.gbxSubcontractorContData)
|
Me.Controls.Add(Me.gbxSubcontractorContData)
|
||||||
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.Name = "frmSubcontractorContDef21690"
|
Me.Name = "frmSubcontractorContDef"
|
||||||
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
||||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||||
Me.Text = "ENT Subcontractor Contactor Define"
|
Me.Text = "ENT Subcontractor Contactor Define"
|
||||||
|
Me.Controls.SetChildIndex(Me.gbxSubcontractorContData, 0)
|
||||||
Me.Controls.SetChildIndex(Me.btnClose, 0)
|
Me.Controls.SetChildIndex(Me.btnClose, 0)
|
||||||
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
|
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
|
||||||
Me.Controls.SetChildIndex(Me.btnApply, 0)
|
Me.Controls.SetChildIndex(Me.btnApply, 0)
|
||||||
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
|
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
|
||||||
Me.Controls.SetChildIndex(Me.gbxSubcontractorContData, 0)
|
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
|
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.txtReviseDate, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.txtReviser, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.txtCreateDate, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
CType(Me.txtCreator, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
Me.gbxSubcontractorContData.ResumeLayout(False)
|
Me.gbxSubcontractorContData.ResumeLayout(False)
|
||||||
Me.gbxSubcontractorContData.PerformLayout()
|
Me.gbxSubcontractorContData.PerformLayout()
|
||||||
CType(Me.txtAddress, System.ComponentModel.ISupportInitialize).EndInit()
|
CType(Me.txtAddress, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
@ -615,14 +743,14 @@ Public Class frmSubcontractorContDef21690
|
|||||||
strParameter += CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
|
strParameter += CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||||||
' 2016 YF, OutXml = wsENT.AddSubcontractorCont(InXml)
|
' 2016 YF, OutXml = wsENT.AddSubcontractorCont(InXml)
|
||||||
OutXml = InvokeSrv("SXS.wsENT.AddSubcontractorCont", InXml)
|
OutXml = InvokeSrv("SXS687.wsENT.AddSubcontractorCont", InXml)
|
||||||
|
|
||||||
Else 'Edit
|
Else 'Edit
|
||||||
' 增加Datastamp
|
' 增加Datastamp
|
||||||
strParameter += CombineXMLParameter("datastamp", "Datastamp", "Integer", intDataStamp, "")
|
strParameter += CombineXMLParameter("datastamp", "Datastamp", "Integer", intDataStamp, "")
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||||||
' 2016 YF, OutXml = wsENT.EditSubcontractorCont(InXml)
|
' 2016 YF, OutXml = wsENT.EditSubcontractorCont(InXml)
|
||||||
OutXml = InvokeSrv("SXS.wsENT.EditSubcontractorCont", InXml)
|
OutXml = InvokeSrv("SXS687.wsENT.EditSubcontractorCont", InXml)
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@ -652,9 +780,5 @@ Public Class frmSubcontractorContDef21690
|
|||||||
Private Sub frmSubcontractorContDef_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
Private Sub frmSubcontractorContDef_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
||||||
' 2016 YF, If Not wsENT Is Nothing Then wsENT.Dispose()
|
' 2016 YF, If Not wsENT Is Nothing Then wsENT.Dispose()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_ValueChanged(sender As Object, e As EventArgs) Handles txtSubcontractorNo.ValueChanged
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
@ -1,6 +1,6 @@
|
|||||||
Imports iMESExceptionManager
|
Imports iMESExceptionManager
|
||||||
|
|
||||||
Public Class frmTestData21706Def
|
Public Class frmSubcontractorDef
|
||||||
|
|
||||||
Inherits COM_Kit.frmDefTemplat
|
Inherits COM_Kit.frmDefTemplat
|
||||||
|
|
||||||
@ -16,6 +16,8 @@ Public Class frmTestData21706Def
|
|||||||
|
|
||||||
Dim strIdentity As String
|
Dim strIdentity As String
|
||||||
Dim strParameter As String
|
Dim strParameter As String
|
||||||
|
Friend WithEvents Label1 As Label
|
||||||
|
|
||||||
Dim intDataStamp As Integer '紀錄DataStamp
|
Dim intDataStamp As Integer '紀錄DataStamp
|
||||||
|
|
||||||
#Region " Windows Form Designer generated code "
|
#Region " Windows Form Designer generated code "
|
||||||
@ -47,6 +49,7 @@ Public Class frmTestData21706Def
|
|||||||
'It can be modified using the Windows Form Designer.
|
'It can be modified using the Windows Form Designer.
|
||||||
'Do not modify it using the code editor.
|
'Do not modify it using the code editor.
|
||||||
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
|
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
|
||||||
|
Friend WithEvents txtbox As System.Windows.Forms.RichTextBox
|
||||||
Friend WithEvents lblDescription As System.Windows.Forms.Label
|
Friend WithEvents lblDescription As System.Windows.Forms.Label
|
||||||
Friend WithEvents lblSubcontractorNo As System.Windows.Forms.Label
|
Friend WithEvents lblSubcontractorNo As System.Windows.Forms.Label
|
||||||
Friend WithEvents lblSubcontractorName As System.Windows.Forms.Label
|
Friend WithEvents lblSubcontractorName As System.Windows.Forms.Label
|
||||||
@ -57,6 +60,8 @@ Public Class frmTestData21706Def
|
|||||||
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
||||||
Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
||||||
Me.gbxSubcontractorData = New System.Windows.Forms.GroupBox()
|
Me.gbxSubcontractorData = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
|
Me.txtbox = New System.Windows.Forms.RichTextBox()
|
||||||
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
||||||
Me.lblDescription = New System.Windows.Forms.Label()
|
Me.lblDescription = New System.Windows.Forms.Label()
|
||||||
Me.lblSubcontractorNo = New System.Windows.Forms.Label()
|
Me.lblSubcontractorNo = New System.Windows.Forms.Label()
|
||||||
@ -71,26 +76,28 @@ Public Class frmTestData21706Def
|
|||||||
'
|
'
|
||||||
'gbxBasisData
|
'gbxBasisData
|
||||||
'
|
'
|
||||||
Me.gbxBasisData.Location = New System.Drawing.Point(12, 185)
|
Me.gbxBasisData.Location = New System.Drawing.Point(12, 323)
|
||||||
Me.gbxBasisData.Size = New System.Drawing.Size(479, 70)
|
Me.gbxBasisData.Size = New System.Drawing.Size(479, 70)
|
||||||
'
|
'
|
||||||
'btnApply
|
'btnApply
|
||||||
'
|
'
|
||||||
Me.btnApply.Location = New System.Drawing.Point(403, 264)
|
Me.btnApply.Location = New System.Drawing.Point(403, 402)
|
||||||
'
|
'
|
||||||
'btnConfirm
|
'btnConfirm
|
||||||
'
|
'
|
||||||
Me.btnConfirm.Location = New System.Drawing.Point(215, 264)
|
Me.btnConfirm.Location = New System.Drawing.Point(215, 402)
|
||||||
'
|
'
|
||||||
'btnClose
|
'btnClose
|
||||||
'
|
'
|
||||||
Me.btnClose.Location = New System.Drawing.Point(309, 264)
|
Me.btnClose.Location = New System.Drawing.Point(309, 402)
|
||||||
'
|
'
|
||||||
'gbxSubcontractorData
|
'gbxSubcontractorData
|
||||||
'
|
'
|
||||||
Me.gbxSubcontractorData.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
Me.gbxSubcontractorData.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.gbxSubcontractorData.Controls.Add(Me.Label1)
|
||||||
|
Me.gbxSubcontractorData.Controls.Add(Me.txtbox)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtDescription)
|
Me.gbxSubcontractorData.Controls.Add(Me.txtDescription)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblDescription)
|
Me.gbxSubcontractorData.Controls.Add(Me.lblDescription)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblSubcontractorNo)
|
Me.gbxSubcontractorData.Controls.Add(Me.lblSubcontractorNo)
|
||||||
@ -100,11 +107,30 @@ Public Class frmTestData21706Def
|
|||||||
Me.gbxSubcontractorData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.gbxSubcontractorData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.gbxSubcontractorData.Location = New System.Drawing.Point(12, 8)
|
Me.gbxSubcontractorData.Location = New System.Drawing.Point(12, 8)
|
||||||
Me.gbxSubcontractorData.Name = "gbxSubcontractorData"
|
Me.gbxSubcontractorData.Name = "gbxSubcontractorData"
|
||||||
Me.gbxSubcontractorData.Size = New System.Drawing.Size(479, 169)
|
Me.gbxSubcontractorData.Size = New System.Drawing.Size(479, 307)
|
||||||
Me.gbxSubcontractorData.TabIndex = 7
|
Me.gbxSubcontractorData.TabIndex = 7
|
||||||
Me.gbxSubcontractorData.TabStop = False
|
Me.gbxSubcontractorData.TabStop = False
|
||||||
Me.gbxSubcontractorData.Text = "Subcontractor Data"
|
Me.gbxSubcontractorData.Text = "Subcontractor Data"
|
||||||
'
|
'
|
||||||
|
'Label1
|
||||||
|
'
|
||||||
|
Me.Label1.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.Label1.Location = New System.Drawing.Point(58, 162)
|
||||||
|
Me.Label1.Name = "Label1"
|
||||||
|
Me.Label1.Size = New System.Drawing.Size(64, 14)
|
||||||
|
Me.Label1.TabIndex = 15
|
||||||
|
Me.Label1.Text = "testTXT"
|
||||||
|
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
|
'
|
||||||
|
'txtbox
|
||||||
|
'
|
||||||
|
Me.txtbox.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.txtbox.Location = New System.Drawing.Point(128, 159)
|
||||||
|
Me.txtbox.Name = "txtbox"
|
||||||
|
Me.txtbox.Size = New System.Drawing.Size(334, 67)
|
||||||
|
Me.txtbox.TabIndex = 14
|
||||||
|
Me.txtbox.Text = ""
|
||||||
|
'
|
||||||
'txtDescription
|
'txtDescription
|
||||||
'
|
'
|
||||||
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
@ -151,7 +177,7 @@ Public Class frmTestData21706Def
|
|||||||
Me.txtSubcontractorNo.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
Me.txtSubcontractorNo.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
Me.txtSubcontractorNo.Location = New System.Drawing.Point(128, 24)
|
Me.txtSubcontractorNo.Location = New System.Drawing.Point(128, 24)
|
||||||
Me.txtSubcontractorNo.Name = "txtSubcontractorNo"
|
Me.txtSubcontractorNo.Name = "txtSubcontractorNo"
|
||||||
Me.txtSubcontractorNo.Size = New System.Drawing.Size(152, 22)
|
Me.txtSubcontractorNo.Size = New System.Drawing.Size(152, 26)
|
||||||
Me.txtSubcontractorNo.TabIndex = 0
|
Me.txtSubcontractorNo.TabIndex = 0
|
||||||
'
|
'
|
||||||
'txtSubcontractorName
|
'txtSubcontractorName
|
||||||
@ -161,12 +187,12 @@ Public Class frmTestData21706Def
|
|||||||
Me.txtSubcontractorName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
Me.txtSubcontractorName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||||
Me.txtSubcontractorName.Location = New System.Drawing.Point(128, 55)
|
Me.txtSubcontractorName.Location = New System.Drawing.Point(128, 55)
|
||||||
Me.txtSubcontractorName.Name = "txtSubcontractorName"
|
Me.txtSubcontractorName.Name = "txtSubcontractorName"
|
||||||
Me.txtSubcontractorName.Size = New System.Drawing.Size(334, 22)
|
Me.txtSubcontractorName.Size = New System.Drawing.Size(334, 26)
|
||||||
Me.txtSubcontractorName.TabIndex = 1
|
Me.txtSubcontractorName.TabIndex = 1
|
||||||
'
|
'
|
||||||
'frmSubcontractorDef
|
'frmSubcontractorDef
|
||||||
'
|
'
|
||||||
Me.ClientSize = New System.Drawing.Size(503, 309)
|
Me.ClientSize = New System.Drawing.Size(503, 447)
|
||||||
Me.Controls.Add(Me.gbxSubcontractorData)
|
Me.Controls.Add(Me.gbxSubcontractorData)
|
||||||
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.Name = "frmSubcontractorDef"
|
Me.Name = "frmSubcontractorDef"
|
||||||
@ -215,6 +241,7 @@ Public Class frmTestData21706Def
|
|||||||
txtSubcontractorName.Text = EditDataRow.Item("SubcontractorName").ToString
|
txtSubcontractorName.Text = EditDataRow.Item("SubcontractorName").ToString
|
||||||
'txtDescription是RichTextBox Control,因為TextBox無法正常顯示多行換行的資料
|
'txtDescription是RichTextBox Control,因為TextBox無法正常顯示多行換行的資料
|
||||||
txtDescription.Text = EditDataRow.Item("Description").ToString
|
txtDescription.Text = EditDataRow.Item("Description").ToString
|
||||||
|
txtbox.Text = EditDataRow.Item("Test21687").ToString
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
||||||
@ -247,7 +274,7 @@ Public Class frmTestData21706Def
|
|||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Protected Overrides Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
Protected Overrides Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConfirm.Click
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
Cursor.Current = Cursors.WaitCursor
|
||||||
|
|
||||||
@ -335,6 +362,10 @@ Public Class frmTestData21706Def
|
|||||||
txtDescription.SelectAll()
|
txtDescription.SelectAll()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub txtbox_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Enter, txtbox.Enter
|
||||||
|
txtbox.SelectAll()
|
||||||
|
End Sub
|
||||||
|
|
||||||
Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
|
Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
|
||||||
btnApplyEnabled = True
|
btnApplyEnabled = True
|
||||||
End Sub
|
End Sub
|
||||||
@ -373,6 +404,7 @@ Public Class frmTestData21706Def
|
|||||||
strParameter = CombineXMLParameter("subcontractorno", "SubcontractorNo", "String", CInput(txtSubcontractorNo.Text), "")
|
strParameter = CombineXMLParameter("subcontractorno", "SubcontractorNo", "String", CInput(txtSubcontractorNo.Text), "")
|
||||||
strParameter = strParameter & CombineXMLParameter("subcontractorname", "SubcontractorName", "String", CInput(txtSubcontractorName.Text), "")
|
strParameter = strParameter & CombineXMLParameter("subcontractorname", "SubcontractorName", "String", CInput(txtSubcontractorName.Text), "")
|
||||||
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
|
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
|
||||||
|
strParameter = strParameter & CombineXMLParameter("test21687", "Test21687", "String", CInput(txtbox.Text), "")
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
||||||
strParameter = strParameter & CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
|
strParameter = strParameter & CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
|
||||||
@ -380,7 +412,7 @@ Public Class frmTestData21706Def
|
|||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||||||
|
|
||||||
' 2016 YF, OutXml = wsENT.AddSubcontractor(InXml)
|
' 2016 YF, OutXml = wsENT.AddSubcontractor(InXml)
|
||||||
OutXml = InvokeSrv("SXS.wsENT_21706.AddTestData21706", InXml)
|
OutXml = InvokeSrv("SXS687.wsENT.AddSubcontractor", InXml)
|
||||||
|
|
||||||
Else
|
Else
|
||||||
'修改
|
'修改
|
||||||
@ -390,7 +422,7 @@ Public Class frmTestData21706Def
|
|||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||||||
|
|
||||||
' 2016 YF, OutXml = wsENT.EditSubcontractor(InXml)
|
' 2016 YF, OutXml = wsENT.EditSubcontractor(InXml)
|
||||||
OutXml = InvokeSrv("SXS.wsENT_21706.EditTestData21706", InXml)
|
OutXml = InvokeSrv("SXS687.wsENT.EditSubcontractor", InXml)
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@ -415,6 +447,11 @@ Public Class frmTestData21706Def
|
|||||||
|
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
|
Private Sub txtbox_TextChanged(sender As Object, e As EventArgs) Handles txtbox.TextChanged
|
||||||
|
btnApplyEnabled = True
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
@ -1,10 +0,0 @@
|
|||||||
""
|
|
||||||
{
|
|
||||||
"FILE_VERSION" = "9237"
|
|
||||||
"ENLISTMENT_CHOICE" = "NEVER"
|
|
||||||
"PROJECT_FILE_RELATIVE_PATH" = ""
|
|
||||||
"NUMBER_OF_EXCLUDED_FILES" = "0"
|
|
||||||
"ORIGINAL_PROJECT_FILE_PATH" = ""
|
|
||||||
"NUMBER_OF_NESTED_PROJECTS" = "0"
|
|
||||||
"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER"
|
|
||||||
}
|
|
||||||
@ -1,194 +0,0 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<Project ToolsVersion="12.0" DefaultTargets="Build" 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)' == '' ">x86</Platform>
|
|
||||||
<ProjectGuid>{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}</ProjectGuid>
|
|
||||||
<OutputType>Library</OutputType>
|
|
||||||
<RootNamespace>ET_Subcontractor_21690</RootNamespace>
|
|
||||||
<AssemblyName>ET_Subcontractor_21690</AssemblyName>
|
|
||||||
<FileAlignment>512</FileAlignment>
|
|
||||||
<MyType>Windows</MyType>
|
|
||||||
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
|
|
||||||
<TargetFrameworkProfile />
|
|
||||||
<SccProjectName>SAK</SccProjectName>
|
|
||||||
<SccLocalPath>SAK</SccLocalPath>
|
|
||||||
<SccAuxPath>SAK</SccAuxPath>
|
|
||||||
<SccProvider>SAK</SccProvider>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionExplicit>On</OptionExplicit>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionCompare>Binary</OptionCompare>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionStrict>Off</OptionStrict>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionInfer>On</OptionInfer>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
|
|
||||||
<DebugSymbols>true</DebugSymbols>
|
|
||||||
<DefineDebug>true</DefineDebug>
|
|
||||||
<DefineTrace>true</DefineTrace>
|
|
||||||
<OutputPath>..\..\..\MESClient\</OutputPath>
|
|
||||||
<DocumentationFile>ET_Subcontractor_21690.xml</DocumentationFile>
|
|
||||||
<WarningLevel>0</WarningLevel>
|
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
|
||||||
<DebugType>full</DebugType>
|
|
||||||
<PlatformTarget>x86</PlatformTarget>
|
|
||||||
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
|
||||||
<Prefer32Bit>false</Prefer32Bit>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
|
|
||||||
<DefineTrace>true</DefineTrace>
|
|
||||||
<OutputPath>..\..\..\MESClient\</OutputPath>
|
|
||||||
<DocumentationFile>ET_Subcontractor_21690.xml</DocumentationFile>
|
|
||||||
<Optimize>true</Optimize>
|
|
||||||
<WarningLevel>0</WarningLevel>
|
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
|
||||||
<DebugType>pdbonly</DebugType>
|
|
||||||
<PlatformTarget>x86</PlatformTarget>
|
|
||||||
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
|
||||||
<Prefer32Bit>false</Prefer32Bit>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<SignAssembly>true</SignAssembly>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<AssemblyOriginatorKeyFile>iMES.snk</AssemblyOriginatorKeyFile>
|
|
||||||
</PropertyGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<Reference Include="Infragistics4.Win.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Win.UltraWinGrid.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.UltraWinGrid.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.UltraWinEditors.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Win.Misc.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.Misc.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Shared.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Shared.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="COM_Kit">
|
|
||||||
<HintPath>..\..\..\MESClient\COM_Kit.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="iMESExceptionManager">
|
|
||||||
<HintPath>..\..\..\MES_C_DLL\iMESExceptionManager.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="iMESUltraGrid">
|
|
||||||
<HintPath>..\..\..\MES_C_DLL\iMESUltraGrid.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="System" />
|
|
||||||
<Reference Include="System.Data" />
|
|
||||||
<Reference Include="System.Drawing" />
|
|
||||||
<Reference Include="System.Windows.Forms" />
|
|
||||||
<Reference Include="System.Xml" />
|
|
||||||
<Reference Include="System.Core" />
|
|
||||||
<Reference Include="System.Xml.Linq" />
|
|
||||||
</ItemGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<Import Include="COM_Kit.clsGlobalVariables" />
|
|
||||||
<Import Include="COM_Kit.clsKit" />
|
|
||||||
<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.Drawing" />
|
|
||||||
<Import Include="System.Linq" />
|
|
||||||
<Import Include="System.Windows.Forms" />
|
|
||||||
<Import Include="System.Xml" />
|
|
||||||
<Import Include="System.Xml.Linq" />
|
|
||||||
<Import Include="System.Threading.Tasks" />
|
|
||||||
</ItemGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<Compile Include="..\..\shared file\modConstant.vb">
|
|
||||||
<Link>modConstant.vb</Link>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="frmSubcontractor21690.vb">
|
|
||||||
<SubType>Form</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="frmSubcontractorContDef21690.vb">
|
|
||||||
<SubType>Form</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="frmSubcontractorDef21690.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="frmSubcontractor21690.resx">
|
|
||||||
<DependentUpon>frmSubcontractor21690.vb</DependentUpon>
|
|
||||||
</EmbeddedResource>
|
|
||||||
<EmbeddedResource Include="frmSubcontractorContDef21690.resx">
|
|
||||||
<DependentUpon>frmSubcontractorContDef21690.vb</DependentUpon>
|
|
||||||
</EmbeddedResource>
|
|
||||||
<EmbeddedResource Include="frmSubcontractorDef21690.resx">
|
|
||||||
<DependentUpon>frmSubcontractorDef21690.vb</DependentUpon>
|
|
||||||
</EmbeddedResource>
|
|
||||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
|
||||||
<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="iMES.snk" />
|
|
||||||
<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>
|
|
||||||
</ItemGroup>
|
|
||||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
|
||||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
|
||||||
Other similar extension points exist, see Microsoft.Common.targets.
|
|
||||||
<Target Name="BeforeBuild">
|
|
||||||
</Target>
|
|
||||||
<Target Name="AfterBuild">
|
|
||||||
</Target>
|
|
||||||
-->
|
|
||||||
<Import Project="..\..\shared file\MakeVersion.targets" Condition="exists('..\..\shared file\MakeVersion.targets')" />
|
|
||||||
</Project>
|
|
||||||
@ -1,6 +0,0 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
|
||||||
<PropertyGroup>
|
|
||||||
<ReferencePath>D:\gitdinghua\1.16\SRC\MES_C_DLL\;D:\dinghualuxiang\607.4\607.4\MESsc\SClientSource\;D:\gitdinghua\1.16\SRC\</ReferencePath>
|
|
||||||
</PropertyGroup>
|
|
||||||
</Project>
|
|
||||||
@ -1,13 +0,0 @@
|
|||||||
'------------------------------------------------------------------------------
|
|
||||||
' <auto-generated>
|
|
||||||
' 此代码由工具生成。
|
|
||||||
' 运行时版本:4.0.30319.42000
|
|
||||||
'
|
|
||||||
' 对此文件的更改可能会导致不正确的行为，并且如果
|
|
||||||
' 重新生成代码，这些更改将会丢失。
|
|
||||||
' </auto-generated>
|
|
||||||
'------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
Option Strict On
|
|
||||||
Option Explicit On
|
|
||||||
|
|
||||||
@ -1,10 +0,0 @@
|
|||||||
<?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>1</ApplicationType>
|
|
||||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
|
||||||
</MyApplicationData>
|
|
||||||
@ -1,35 +0,0 @@
|
|||||||
Imports System
|
|
||||||
Imports System.Reflection
|
|
||||||
Imports System.Runtime.InteropServices
|
|
||||||
|
|
||||||
' 組件的一般資訊是由下列的屬性集控制。
|
|
||||||
' 變更這些屬性的值即可修改組件的相關
|
|
||||||
' 資訊。
|
|
||||||
|
|
||||||
' 檢閱組件屬性的值
|
|
||||||
|
|
||||||
<Assembly: AssemblyTitle("ET_Subcontractor")>
|
|
||||||
<Assembly: AssemblyDescription("")>
|
|
||||||
<Assembly: AssemblyCompany("iMES Technology Inc.")>
|
|
||||||
<Assembly: AssemblyProduct("MESSeries 6")>
|
|
||||||
<Assembly: AssemblyCopyright("Copyright © iMES Technology Inc.")>
|
|
||||||
<Assembly: AssemblyTrademark("")>
|
|
||||||
|
|
||||||
<Assembly: ComVisible(False)>
|
|
||||||
|
|
||||||
'下列 GUID 為專案公開 (Expose) 至 COM 時所要使用的 typelib ID
|
|
||||||
<Assembly: Guid("cb602012-a17f-433f-b777-ace6a6a676c1")>
|
|
||||||
|
|
||||||
' 組件的版本資訊由下列四個值所組成:
|
|
||||||
'
|
|
||||||
' 主要版本
|
|
||||||
' 次要版本
|
|
||||||
' 組建編號
|
|
||||||
' 修訂編號
|
|
||||||
'
|
|
||||||
' 您可以指定所有的值，也可以依照以下的方式，使用 '*' 將組建和修訂編號
|
|
||||||
' 指定為預設值:
|
|
||||||
' <Assembly: AssemblyVersion("1.0.*")>
|
|
||||||
|
|
||||||
<Assembly: AssemblyVersion("6.0.0.0")>
|
|
||||||
|
|
||||||
@ -1 +0,0 @@
|
|||||||
<Assembly: Reflection.AssemblyFileVersion("6.0.5.40117")>
|
|
||||||
@ -1,117 +0,0 @@
|
|||||||
<?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>
|
|
||||||
@ -1,73 +0,0 @@
|
|||||||
'------------------------------------------------------------------------------
|
|
||||||
' <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
|
|
||||||
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.ET_Subcontractor_21690.My.MySettings
|
|
||||||
Get
|
|
||||||
Return Global.ET_Subcontractor_21690.My.MySettings.Default
|
|
||||||
End Get
|
|
||||||
End Property
|
|
||||||
End Module
|
|
||||||
End Namespace
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
<?xml version='1.0' encoding='utf-8'?>
|
|
||||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
|
||||||
<Profiles>
|
|
||||||
<Profile Name="(Default)" />
|
|
||||||
</Profiles>
|
|
||||||
<Settings />
|
|
||||||
</SettingsFile>
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
Infragistics.Win.Misc.UltraButton, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.UltraWinEditors.UltraRadioButton, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.UltraWinEditors.UltraComboEditor, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.Misc.UltraGroupBox, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.UltraWinEditors.UltraTextEditor, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.Misc.UltraLabel, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.Misc.UltraPanel, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
@ -1,177 +0,0 @@
|
|||||||
<?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="txtSearchFieldValue.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>193, 88</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="cboSearchFieldName.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>17, 88</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="btnQuery.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>797, 50</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="lblLIKE1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>699, 50</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="rdoUnused.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>452, 50</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="rdoActive.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>344, 50</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="rdoPending.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>223, 50</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="rdoUnfrozen.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>361, 88</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="btnClose.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>119, 50</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="btnEMail.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>832, 12</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="btnDCopy.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>720, 12</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="btnDDel.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>619, 12</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="btnDEdit.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>515, 12</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="btnDAdd.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>409, 12</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="btnAdd.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>313, 12</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="btnEdit.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>219, 12</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="btnDel.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>128, 12</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="btnCopy.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>17, 50</value>
|
|
||||||
</metadata>
|
|
||||||
<metadata name="btnApprove.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
|
||||||
<value>487, 88</value>
|
|
||||||
</metadata>
|
|
||||||
</root>
|
|
||||||
File diff suppressed because it is too large
Load Diff
@ -1,120 +0,0 @@
|
|||||||
<?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>
|
|
||||||
@ -1,120 +0,0 @@
|
|||||||
<?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>
|
|
||||||
@ -1,466 +0,0 @@
|
|||||||
Imports iMESExceptionManager
|
|
||||||
|
|
||||||
Public Class frmSubcontractorDef21690
|
|
||||||
|
|
||||||
Inherits COM_Kit.frmDefTemplat
|
|
||||||
|
|
||||||
'//Public Variables
|
|
||||||
Public EditDataRow As DataRow
|
|
||||||
Public DefMode As Integer = 0 '0. ADD, 1.Edit, 2. Copy
|
|
||||||
Public PrivFunNo As String = defString
|
|
||||||
|
|
||||||
'//Web Service相關變數
|
|
||||||
' 2016 YF, Dim wsENT As New wsENT.wsENT
|
|
||||||
Dim InXml As String
|
|
||||||
Dim OutXml As String
|
|
||||||
|
|
||||||
Dim strIdentity As String
|
|
||||||
Dim strParameter As String
|
|
||||||
Friend WithEvents lblSubcontractorName As Label
|
|
||||||
Friend WithEvents txtXiXi As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Dim intDataStamp As Integer '紀錄DataStamp
|
|
||||||
|
|
||||||
#Region " Windows Form Designer generated code "
|
|
||||||
|
|
||||||
Public Sub New()
|
|
||||||
MyBase.New()
|
|
||||||
|
|
||||||
'This call is required by the Windows Form Designer.
|
|
||||||
InitializeComponent()
|
|
||||||
|
|
||||||
'Add any initialization after the InitializeComponent() call
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
'Form overrides dispose to clean up the component list.
|
|
||||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
||||||
If disposing Then
|
|
||||||
If Not (components Is Nothing) Then
|
|
||||||
components.Dispose()
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
MyBase.Dispose(disposing)
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
'Required by the Windows Form Designer
|
|
||||||
Private components As System.ComponentModel.IContainer
|
|
||||||
|
|
||||||
'NOTE: The following procedure is required by the Windows Form Designer
|
|
||||||
'It can be modified using the Windows Form Designer.
|
|
||||||
'Do not modify it using the code editor.
|
|
||||||
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
|
|
||||||
Friend WithEvents lblDescription As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblSubcontractorNo As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblXiXi As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents gbxSubcontractorData As System.Windows.Forms.GroupBox
|
|
||||||
Friend WithEvents txtSubcontractorNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtSubcontractorName As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
||||||
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
|
||||||
Me.gbxSubcontractorData = New System.Windows.Forms.GroupBox()
|
|
||||||
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
|
||||||
Me.lblDescription = New System.Windows.Forms.Label()
|
|
||||||
Me.lblSubcontractorNo = New System.Windows.Forms.Label()
|
|
||||||
Me.lblXiXi = New System.Windows.Forms.Label()
|
|
||||||
Me.txtSubcontractorNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtSubcontractorName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtXiXi = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.lblSubcontractorName = New System.Windows.Forms.Label()
|
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
Me.gbxSubcontractorData.SuspendLayout()
|
|
||||||
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtSubcontractorName, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtXiXi, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
Me.SuspendLayout()
|
|
||||||
'
|
|
||||||
'gbxBasisData
|
|
||||||
'
|
|
||||||
Me.gbxBasisData.Location = New System.Drawing.Point(12, 185)
|
|
||||||
Me.gbxBasisData.Size = New System.Drawing.Size(479, 70)
|
|
||||||
'
|
|
||||||
'btnApply
|
|
||||||
'
|
|
||||||
Me.btnApply.Location = New System.Drawing.Point(403, 264)
|
|
||||||
'
|
|
||||||
'btnConfirm
|
|
||||||
'
|
|
||||||
Me.btnConfirm.Location = New System.Drawing.Point(215, 264)
|
|
||||||
'
|
|
||||||
'btnClose
|
|
||||||
'
|
|
||||||
Me.btnClose.Location = New System.Drawing.Point(309, 264)
|
|
||||||
'
|
|
||||||
'gbxSubcontractorData
|
|
||||||
'
|
|
||||||
Me.gbxSubcontractorData.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.gbxSubcontractorData.Controls.Add(Me.txtDescription)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblDescription)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblSubcontractorNo)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblXiXi)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblSubcontractorName)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtSubcontractorNo)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtSubcontractorName)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtXiXi)
|
|
||||||
Me.gbxSubcontractorData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.gbxSubcontractorData.Location = New System.Drawing.Point(12, 8)
|
|
||||||
Me.gbxSubcontractorData.Name = "gbxSubcontractorData"
|
|
||||||
Me.gbxSubcontractorData.Size = New System.Drawing.Size(479, 169)
|
|
||||||
Me.gbxSubcontractorData.TabIndex = 7
|
|
||||||
Me.gbxSubcontractorData.TabStop = False
|
|
||||||
Me.gbxSubcontractorData.Text = "Subcontractor Data"
|
|
||||||
'
|
|
||||||
'txtDescription
|
|
||||||
'
|
|
||||||
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.txtDescription.Location = New System.Drawing.Point(128, 110)
|
|
||||||
Me.txtDescription.Name = "txtDescription"
|
|
||||||
Me.txtDescription.Size = New System.Drawing.Size(334, 67)
|
|
||||||
Me.txtDescription.TabIndex = 2
|
|
||||||
Me.txtDescription.Text = ""
|
|
||||||
'
|
|
||||||
'lblDescription
|
|
||||||
'
|
|
||||||
Me.lblDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblDescription.Location = New System.Drawing.Point(56, 110)
|
|
||||||
Me.lblDescription.Name = "lblDescription"
|
|
||||||
Me.lblDescription.Size = New System.Drawing.Size(64, 14)
|
|
||||||
Me.lblDescription.TabIndex = 13
|
|
||||||
Me.lblDescription.Text = "Description"
|
|
||||||
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblSubcontractorNo
|
|
||||||
'
|
|
||||||
Me.lblSubcontractorNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblSubcontractorNo.Location = New System.Drawing.Point(24, 24)
|
|
||||||
Me.lblSubcontractorNo.Name = "lblSubcontractorNo"
|
|
||||||
Me.lblSubcontractorNo.Size = New System.Drawing.Size(96, 32)
|
|
||||||
Me.lblSubcontractorNo.TabIndex = 5
|
|
||||||
Me.lblSubcontractorNo.Text = "Subcontractor No"
|
|
||||||
Me.lblSubcontractorNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblXiXi
|
|
||||||
'
|
|
||||||
Me.lblXiXi.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblXiXi.Location = New System.Drawing.Point(6, 86)
|
|
||||||
Me.lblXiXi.Name = "lblXiXi"
|
|
||||||
Me.lblXiXi.Size = New System.Drawing.Size(112, 18)
|
|
||||||
Me.lblXiXi.TabIndex = 9
|
|
||||||
Me.lblXiXi.Text = "XiXi"
|
|
||||||
Me.lblXiXi.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'txtSubcontractorNo
|
|
||||||
'
|
|
||||||
Appearance1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtSubcontractorNo.Appearance = Appearance1
|
|
||||||
Me.txtSubcontractorNo.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtSubcontractorNo.Location = New System.Drawing.Point(128, 24)
|
|
||||||
Me.txtSubcontractorNo.Name = "txtSubcontractorNo"
|
|
||||||
Me.txtSubcontractorNo.Size = New System.Drawing.Size(152, 22)
|
|
||||||
Me.txtSubcontractorNo.TabIndex = 0
|
|
||||||
'
|
|
||||||
'txtSubcontractorName
|
|
||||||
'
|
|
||||||
Me.txtSubcontractorName.Location = New System.Drawing.Point(128, 55)
|
|
||||||
Me.txtSubcontractorName.Name = "txtSubcontractorName"
|
|
||||||
Me.txtSubcontractorName.Size = New System.Drawing.Size(334, 22)
|
|
||||||
Me.txtSubcontractorName.TabIndex = 1
|
|
||||||
'
|
|
||||||
'txtXiXi
|
|
||||||
'
|
|
||||||
Me.txtXiXi.Location = New System.Drawing.Point(128, 82)
|
|
||||||
Me.txtXiXi.Name = "txtXiXi"
|
|
||||||
Me.txtXiXi.Size = New System.Drawing.Size(100, 22)
|
|
||||||
Me.txtXiXi.TabIndex = 14
|
|
||||||
'
|
|
||||||
'lblSubcontractorName
|
|
||||||
'
|
|
||||||
Me.lblSubcontractorName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblSubcontractorName.Location = New System.Drawing.Point(8, 56)
|
|
||||||
Me.lblSubcontractorName.Name = "lblSubcontractorName"
|
|
||||||
Me.lblSubcontractorName.Size = New System.Drawing.Size(112, 32)
|
|
||||||
Me.lblSubcontractorName.TabIndex = 9
|
|
||||||
Me.lblSubcontractorName.Text = "Subcontractor Name"
|
|
||||||
Me.lblSubcontractorName.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'frmSubcontractorDef21690
|
|
||||||
'
|
|
||||||
Me.ClientSize = New System.Drawing.Size(503, 309)
|
|
||||||
Me.Controls.Add(Me.gbxSubcontractorData)
|
|
||||||
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.Name = "frmSubcontractorDef21690"
|
|
||||||
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
|
||||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
||||||
Me.Text = "ENT Subcontractor Define"
|
|
||||||
Me.Controls.SetChildIndex(Me.btnClose, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.btnApply, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.gbxSubcontractorData, 0)
|
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
Me.gbxSubcontractorData.ResumeLayout(False)
|
|
||||||
Me.gbxSubcontractorData.PerformLayout()
|
|
||||||
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtSubcontractorName, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtXiXi, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
Me.ResumeLayout(False)
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
Private Sub frmSubcontractorDef_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
Select Case DefMode
|
|
||||||
Case 0
|
|
||||||
Me.Text = Me.Text & "(ADD)"
|
|
||||||
Case 1
|
|
||||||
Me.Text = Me.Text & "(EDIT)"
|
|
||||||
Case 2
|
|
||||||
Me.Text = Me.Text & "(Copy)"
|
|
||||||
Case Else
|
|
||||||
Me.Text = Me.Text & "(Unknown)"
|
|
||||||
End Select
|
|
||||||
|
|
||||||
'做為MainForm判斷是否重新LoadData的依據
|
|
||||||
gReturnKeyValue = ""
|
|
||||||
|
|
||||||
' 2016 YF, wsENT.Url = LocalizeWebService(wsENT.Url.ToString)
|
|
||||||
' 2016 YF, wsENT.EnableDecompression = True
|
|
||||||
|
|
||||||
If Not EditDataRow Is Nothing Then
|
|
||||||
txtXiXi.Text = EditDataRow.Item("XiXi").ToString
|
|
||||||
txtSubcontractorNo.Text = EditDataRow.Item("SubcontractorNO").ToString
|
|
||||||
txtSubcontractorName.Text = EditDataRow.Item("SubcontractorName").ToString
|
|
||||||
'txtDescription是RichTextBox Control,因為TextBox無法正常顯示多行換行的資料
|
|
||||||
txtDescription.Text = EditDataRow.Item("Description").ToString
|
|
||||||
End If
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
|
||||||
SetCreator(gUserNo)
|
|
||||||
SetCreateDate(Now)
|
|
||||||
ElseIf DefMode = 1 Then 'Edit
|
|
||||||
txtSubcontractorNo.ReadOnly = True
|
|
||||||
SetReviser(gUserNo)
|
|
||||||
SetReviseDate(Now)
|
|
||||||
intDataStamp = EditDataRow.Item("DataStamp")
|
|
||||||
End If
|
|
||||||
|
|
||||||
btnApplyEnabled = False
|
|
||||||
|
|
||||||
'語系切換
|
|
||||||
Call ExeChangeResource(Me, gLanguageMode)
|
|
||||||
ExeGroupControlPriv(Me, PrivFunNo)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub frmSubcontractorDef_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
txtSubcontractorNo.Focus()
|
|
||||||
Else
|
|
||||||
txtSubcontractorName.Focus()
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
If funAddorEdit(sender) < 0 Then Exit Sub
|
|
||||||
|
|
||||||
Me.Close()
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
Me.Close()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
If funAddorEdit(sender) < 0 Then Exit Sub
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
txtSubcontractorNo.Focus()
|
|
||||||
Else
|
|
||||||
txtSubcontractorName.Focus()
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
btnApplyEnabled = False
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub frmSubcontractorDef_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
||||||
' 2016 YF, If Not wsENT Is Nothing Then wsENT.Dispose()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#Region "Control KeyPress"
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Click
|
|
||||||
txtSubcontractorNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Enter
|
|
||||||
txtSubcontractorNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSubcontractorNo.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Leave
|
|
||||||
txtSubcontractorNo.Text = UCase(txtSubcontractorNo.Text)
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorName.Click
|
|
||||||
txtSubcontractorName.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorName.Enter
|
|
||||||
txtSubcontractorName.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorName_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSubcontractorName.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorName.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Click
|
|
||||||
txtDescription.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Enter
|
|
||||||
txtDescription.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
#Region "Others"
|
|
||||||
|
|
||||||
Private Function funAddorEdit(sender As Object) As Integer
|
|
||||||
|
|
||||||
funAddorEdit = -1
|
|
||||||
|
|
||||||
'******************************************************************************
|
|
||||||
'1.基本檢查
|
|
||||||
'******************************************************************************
|
|
||||||
If txtSubcontractorNo.Text = "" Then
|
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%SubcontractorNo%]"), MsgBoxStyle.Exclamation, Me.Text)
|
|
||||||
txtSubcontractorNo.Focus()
|
|
||||||
Exit Function
|
|
||||||
End If
|
|
||||||
|
|
||||||
If txtSubcontractorName.Text = "" Then
|
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%SubcontractorName%]"), MsgBoxStyle.Exclamation, Me.Text)
|
|
||||||
txtSubcontractorName.Focus()
|
|
||||||
Exit Function
|
|
||||||
End If
|
|
||||||
|
|
||||||
'2.
|
|
||||||
'******************************************************************************
|
|
||||||
'寫回資料庫
|
|
||||||
'******************************************************************************
|
|
||||||
Dim XmlDoc As New XmlDocument
|
|
||||||
|
|
||||||
Try
|
|
||||||
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
|
||||||
strParameter = CombineXMLParameter("subcontractorno", "SubcontractorNo", "String", CInput(txtSubcontractorNo.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("subcontractorname", "SubcontractorName", "String", CInput(txtSubcontractorName.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("xixi", "XiXi", "String", CInput(txtXiXi.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
|
||||||
strParameter = strParameter & CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("createdate", "CreateDate", "DateTime", Format(Now, "yyyy/MM/dd HH:mm:ss"), "")
|
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
|
||||||
|
|
||||||
' 2016 YF, OutXml = wsENT.AddSubcontractor(InXml)
|
|
||||||
OutXml = InvokeSrv("SXS.wsENT21690.AddSubcontractor", InXml)
|
|
||||||
|
|
||||||
Else
|
|
||||||
'修改
|
|
||||||
strParameter = strParameter & CombineXMLParameter("issuestate", "IssueState", "String", EditDataRow.Item("IssueState").ToString, "")
|
|
||||||
' 增加Datastamp
|
|
||||||
strParameter += CombineXMLParameter("datastamp", "Datastamp", "Integer", intDataStamp, "")
|
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
|
||||||
|
|
||||||
' 2016 YF, OutXml = wsENT.EditSubcontractor(InXml)
|
|
||||||
OutXml = InvokeSrv("SXS.wsENT21690.EditSubcontractor", InXml)
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
XmlDoc.LoadXml(OutXml)
|
|
||||||
If ChkExecutionSuccess(XmlDoc) Then
|
|
||||||
gReturnKeyValue = txtSubcontractorNo.Text
|
|
||||||
|
|
||||||
funAddorEdit = 0
|
|
||||||
If sender.Equals(btnApply) Then
|
|
||||||
intDataStamp += 1
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
|
|
||||||
End If
|
|
||||||
|
|
||||||
Catch ex As Exception
|
|
||||||
'MsgBox("Unexpected Error. Add or Edit ENT Subcontractor Failed!," & e1.Message, MsgBoxStyle.Exclamation)
|
|
||||||
ExceptionManager.iMESShowDialog(defWinErrCode, ex.Message, ex.StackTrace)
|
|
||||||
End Try
|
|
||||||
|
|
||||||
XmlDoc = Nothing
|
|
||||||
|
|
||||||
End Function
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_ValueChanged(sender As Object, e As EventArgs) Handles txtSubcontractorNo.ValueChanged
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub gbxBasisData_Click(sender As Object, e As EventArgs) Handles gbxBasisData.Click
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorName_ValueChanged(sender As Object, e As EventArgs) Handles txtSubcontractorName.ValueChanged
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub lblSubcontractorNo_Click(sender As Object, e As EventArgs) Handles lblSubcontractorNo.Click
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtXiXi_ValueChanged(sender As Object, e As EventArgs) Handles txtXiXi.ValueChanged
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub lblDescription_Click(sender As Object, e As EventArgs) Handles lblDescription.Click
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
End Class
|
|
||||||
|
|
||||||
Binary file not shown.
@ -6,8 +6,13 @@
|
|||||||
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||||
<ProjectGuid>{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}</ProjectGuid>
|
<ProjectGuid>{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}</ProjectGuid>
|
||||||
<OutputType>Library</OutputType>
|
<OutputType>Library</OutputType>
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/ET_Subcontractor.vbproj
|
||||||
<RootNamespace>ET_Subcontractor_21691</RootNamespace>
|
<RootNamespace>ET_Subcontractor_21691</RootNamespace>
|
||||||
<AssemblyName>ET_Subcontractor_21691</AssemblyName>
|
<AssemblyName>ET_Subcontractor_21691</AssemblyName>
|
||||||
|
========
|
||||||
|
<RootNamespace>ET_Teacher_M</RootNamespace>
|
||||||
|
<AssemblyName>ET_Teacher_M</AssemblyName>
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.vbproj
|
||||||
<FileAlignment>512</FileAlignment>
|
<FileAlignment>512</FileAlignment>
|
||||||
<MyType>Windows</MyType>
|
<MyType>Windows</MyType>
|
||||||
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
|
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
|
||||||
@ -34,7 +39,11 @@
|
|||||||
<DefineDebug>true</DefineDebug>
|
<DefineDebug>true</DefineDebug>
|
||||||
<DefineTrace>true</DefineTrace>
|
<DefineTrace>true</DefineTrace>
|
||||||
<OutputPath>..\..\..\MESClient\</OutputPath>
|
<OutputPath>..\..\..\MESClient\</OutputPath>
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/ET_Subcontractor.vbproj
|
||||||
<DocumentationFile>ET_Subcontractor_21691.xml</DocumentationFile>
|
<DocumentationFile>ET_Subcontractor_21691.xml</DocumentationFile>
|
||||||
|
========
|
||||||
|
<DocumentationFile>ET_Teacher_M.xml</DocumentationFile>
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.vbproj
|
||||||
<WarningLevel>0</WarningLevel>
|
<WarningLevel>0</WarningLevel>
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
<DebugType>full</DebugType>
|
<DebugType>full</DebugType>
|
||||||
@ -45,7 +54,11 @@
|
|||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
|
||||||
<DefineTrace>true</DefineTrace>
|
<DefineTrace>true</DefineTrace>
|
||||||
<OutputPath>..\..\..\MESClient\</OutputPath>
|
<OutputPath>..\..\..\MESClient\</OutputPath>
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/ET_Subcontractor.vbproj
|
||||||
<DocumentationFile>ET_Subcontractor_21691.xml</DocumentationFile>
|
<DocumentationFile>ET_Subcontractor_21691.xml</DocumentationFile>
|
||||||
|
========
|
||||||
|
<DocumentationFile>ET_Teacher_M.xml</DocumentationFile>
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/ET_Subcontractor.vbproj
|
||||||
<Optimize>true</Optimize>
|
<Optimize>true</Optimize>
|
||||||
<WarningLevel>0</WarningLevel>
|
<WarningLevel>0</WarningLevel>
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
@ -129,10 +142,10 @@
|
|||||||
<Compile Include="frmSubcontractor.vb">
|
<Compile Include="frmSubcontractor.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="frmSubcontractorContDef.vb">
|
<Compile Include="frmTeacherContDef.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="frmSubcontractorDef.vb">
|
<Compile Include="frmTeacherDef.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
@ -156,11 +169,11 @@
|
|||||||
<EmbeddedResource Include="frmSubcontractor.resx">
|
<EmbeddedResource Include="frmSubcontractor.resx">
|
||||||
<DependentUpon>frmSubcontractor.vb</DependentUpon>
|
<DependentUpon>frmSubcontractor.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="frmSubcontractorContDef.resx">
|
<EmbeddedResource Include="frmTeacherContDef.resx">
|
||||||
<DependentUpon>frmSubcontractorContDef.vb</DependentUpon>
|
<DependentUpon>frmTeacherContDef.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="frmSubcontractorDef.resx">
|
<EmbeddedResource Include="frmTeacherDef.resx">
|
||||||
<DependentUpon>frmSubcontractorDef.vb</DependentUpon>
|
<DependentUpon>frmTeacherDef.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||||
<EmbeddedResource Include="My Project\Resources.resx">
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
|||||||
@ -39,7 +39,11 @@ Namespace My.Resources
|
|||||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||||
Get
|
Get
|
||||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/My Project/Resources.Designer.vb
|
||||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ET_Subcontractor_21691.Resources", GetType(Resources).Assembly)
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ET_Subcontractor_21691.Resources", GetType(Resources).Assembly)
|
||||||
|
========
|
||||||
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ET_Teacher_M.Resources", GetType(Resources).Assembly)
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/My Project/Resources.Designer.vb
|
||||||
resourceMan = temp
|
resourceMan = temp
|
||||||
End If
|
End If
|
||||||
Return resourceMan
|
Return resourceMan
|
||||||
|
|||||||
@ -64,9 +64,15 @@ Namespace My
|
|||||||
Friend Module MySettingsProperty
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/My Project/Settings.Designer.vb
|
||||||
Friend ReadOnly Property Settings() As Global.ET_Subcontractor_21691.My.MySettings
|
Friend ReadOnly Property Settings() As Global.ET_Subcontractor_21691.My.MySettings
|
||||||
Get
|
Get
|
||||||
Return Global.ET_Subcontractor_21691.My.MySettings.Default
|
Return Global.ET_Subcontractor_21691.My.MySettings.Default
|
||||||
|
========
|
||||||
|
Friend ReadOnly Property Settings() As Global.ET_Teacher_M.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.ET_Teacher_M.My.MySettings.Default
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/My Project/Settings.Designer.vb
|
||||||
End Get
|
End Get
|
||||||
End Property
|
End Property
|
||||||
End Module
|
End Module
|
||||||
|
|||||||
@ -16,10 +16,13 @@ Public Class frmSubcontractorDef
|
|||||||
|
|
||||||
Dim strIdentity As String
|
Dim strIdentity As String
|
||||||
Dim strParameter As String
|
Dim strParameter As String
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
Friend WithEvents lblTelNo As Label
|
Friend WithEvents lblTelNo As Label
|
||||||
Friend WithEvents txtTelNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
Friend WithEvents txtTelNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
||||||
Friend WithEvents lblEMail As Label
|
Friend WithEvents lblEMail As Label
|
||||||
Friend WithEvents txtEMail As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
Friend WithEvents txtEMail As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
||||||
|
========
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
Dim intDataStamp As Integer '紀錄DataStamp
|
Dim intDataStamp As Integer '紀錄DataStamp
|
||||||
|
|
||||||
#Region " Windows Form Designer generated code "
|
#Region " Windows Form Designer generated code "
|
||||||
@ -61,10 +64,13 @@ Public Class frmSubcontractorDef
|
|||||||
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
||||||
Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
||||||
Me.gbxSubcontractorData = New System.Windows.Forms.GroupBox()
|
Me.gbxSubcontractorData = New System.Windows.Forms.GroupBox()
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
Me.txtEMail = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
Me.txtEMail = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
Me.lblEMail = New System.Windows.Forms.Label()
|
Me.lblEMail = New System.Windows.Forms.Label()
|
||||||
Me.txtTelNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
Me.txtTelNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
||||||
Me.lblTelNo = New System.Windows.Forms.Label()
|
Me.lblTelNo = New System.Windows.Forms.Label()
|
||||||
|
========
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
||||||
Me.lblDescription = New System.Windows.Forms.Label()
|
Me.lblDescription = New System.Windows.Forms.Label()
|
||||||
Me.lblSubcontractorNo = New System.Windows.Forms.Label()
|
Me.lblSubcontractorNo = New System.Windows.Forms.Label()
|
||||||
@ -81,11 +87,16 @@ Public Class frmSubcontractorDef
|
|||||||
'
|
'
|
||||||
'gbxBasisData
|
'gbxBasisData
|
||||||
'
|
'
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
Me.gbxBasisData.Location = New System.Drawing.Point(12, 211)
|
Me.gbxBasisData.Location = New System.Drawing.Point(12, 211)
|
||||||
|
========
|
||||||
|
Me.gbxBasisData.Location = New System.Drawing.Point(12, 185)
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
Me.gbxBasisData.Size = New System.Drawing.Size(479, 70)
|
Me.gbxBasisData.Size = New System.Drawing.Size(479, 70)
|
||||||
'
|
'
|
||||||
'btnApply
|
'btnApply
|
||||||
'
|
'
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
Me.btnApply.Location = New System.Drawing.Point(403, 290)
|
Me.btnApply.Location = New System.Drawing.Point(403, 290)
|
||||||
'
|
'
|
||||||
'btnConfirm
|
'btnConfirm
|
||||||
@ -95,16 +106,30 @@ Public Class frmSubcontractorDef
|
|||||||
'btnClose
|
'btnClose
|
||||||
'
|
'
|
||||||
Me.btnClose.Location = New System.Drawing.Point(309, 290)
|
Me.btnClose.Location = New System.Drawing.Point(309, 290)
|
||||||
|
========
|
||||||
|
Me.btnApply.Location = New System.Drawing.Point(403, 264)
|
||||||
|
'
|
||||||
|
'btnConfirm
|
||||||
|
'
|
||||||
|
Me.btnConfirm.Location = New System.Drawing.Point(215, 264)
|
||||||
|
'
|
||||||
|
'btnClose
|
||||||
|
'
|
||||||
|
Me.btnClose.Location = New System.Drawing.Point(309, 264)
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
'
|
'
|
||||||
'gbxSubcontractorData
|
'gbxSubcontractorData
|
||||||
'
|
'
|
||||||
Me.gbxSubcontractorData.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
Me.gbxSubcontractorData.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtEMail)
|
Me.gbxSubcontractorData.Controls.Add(Me.txtEMail)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblEMail)
|
Me.gbxSubcontractorData.Controls.Add(Me.lblEMail)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtTelNo)
|
Me.gbxSubcontractorData.Controls.Add(Me.txtTelNo)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblTelNo)
|
Me.gbxSubcontractorData.Controls.Add(Me.lblTelNo)
|
||||||
|
========
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtDescription)
|
Me.gbxSubcontractorData.Controls.Add(Me.txtDescription)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblDescription)
|
Me.gbxSubcontractorData.Controls.Add(Me.lblDescription)
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblSubcontractorNo)
|
Me.gbxSubcontractorData.Controls.Add(Me.lblSubcontractorNo)
|
||||||
@ -114,11 +139,16 @@ Public Class frmSubcontractorDef
|
|||||||
Me.gbxSubcontractorData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.gbxSubcontractorData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.gbxSubcontractorData.Location = New System.Drawing.Point(12, 8)
|
Me.gbxSubcontractorData.Location = New System.Drawing.Point(12, 8)
|
||||||
Me.gbxSubcontractorData.Name = "gbxSubcontractorData"
|
Me.gbxSubcontractorData.Name = "gbxSubcontractorData"
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
Me.gbxSubcontractorData.Size = New System.Drawing.Size(479, 195)
|
Me.gbxSubcontractorData.Size = New System.Drawing.Size(479, 195)
|
||||||
|
========
|
||||||
|
Me.gbxSubcontractorData.Size = New System.Drawing.Size(479, 169)
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
Me.gbxSubcontractorData.TabIndex = 7
|
Me.gbxSubcontractorData.TabIndex = 7
|
||||||
Me.gbxSubcontractorData.TabStop = False
|
Me.gbxSubcontractorData.TabStop = False
|
||||||
Me.gbxSubcontractorData.Text = "Subcontractor Data"
|
Me.gbxSubcontractorData.Text = "Subcontractor Data"
|
||||||
'
|
'
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
'txtEMail
|
'txtEMail
|
||||||
'
|
'
|
||||||
Me.txtEMail.Location = New System.Drawing.Point(326, 83)
|
Me.txtEMail.Location = New System.Drawing.Point(326, 83)
|
||||||
@ -153,6 +183,8 @@ Public Class frmSubcontractorDef
|
|||||||
Me.lblTelNo.Text = "TelNo"
|
Me.lblTelNo.Text = "TelNo"
|
||||||
Me.lblTelNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
Me.lblTelNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
'
|
'
|
||||||
|
========
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
'txtDescription
|
'txtDescription
|
||||||
'
|
'
|
||||||
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
@ -214,7 +246,11 @@ Public Class frmSubcontractorDef
|
|||||||
'
|
'
|
||||||
'frmSubcontractorDef
|
'frmSubcontractorDef
|
||||||
'
|
'
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
Me.ClientSize = New System.Drawing.Size(503, 335)
|
Me.ClientSize = New System.Drawing.Size(503, 335)
|
||||||
|
========
|
||||||
|
Me.ClientSize = New System.Drawing.Size(503, 309)
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
Me.Controls.Add(Me.gbxSubcontractorData)
|
Me.Controls.Add(Me.gbxSubcontractorData)
|
||||||
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.Name = "frmSubcontractorDef"
|
Me.Name = "frmSubcontractorDef"
|
||||||
@ -434,7 +470,11 @@ Public Class frmSubcontractorDef
|
|||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||||||
|
|
||||||
' 2016 YF, OutXml = wsENT.AddSubcontractor(InXml)
|
' 2016 YF, OutXml = wsENT.AddSubcontractor(InXml)
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
OutXml = InvokeSrv("SXS.wsENT.AddSubcontractor", InXml)
|
OutXml = InvokeSrv("SXS.wsENT.AddSubcontractor", InXml)
|
||||||
|
========
|
||||||
|
OutXml = InvokeSrv("wsENT.AddSubcontractor", InXml)
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
|
|
||||||
Else
|
Else
|
||||||
'修改
|
'修改
|
||||||
@ -444,7 +484,11 @@ Public Class frmSubcontractorDef
|
|||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||||||
|
|
||||||
' 2016 YF, OutXml = wsENT.EditSubcontractor(InXml)
|
' 2016 YF, OutXml = wsENT.EditSubcontractor(InXml)
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
OutXml = InvokeSrv("SXS.wsENT.EditSubcontractor", InXml)
|
OutXml = InvokeSrv("SXS.wsENT.EditSubcontractor", InXml)
|
||||||
|
========
|
||||||
|
OutXml = InvokeSrv("wsENT.EditSubcontractor", InXml)
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
@ -469,10 +513,13 @@ Public Class frmSubcontractorDef
|
|||||||
|
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
|
<<<<<<<< HEAD:SRC/MESWin/SYS4/21691/frmSubcontractorDef.vb
|
||||||
Private Sub lblTelNo_Click(sender As Object, e As EventArgs) Handles lblTelNo.Click
|
Private Sub lblTelNo_Click(sender As Object, e As EventArgs) Handles lblTelNo.Click
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
========
|
||||||
|
>>>>>>>> dc359766c3664933829094578fcef17205eebc35:SRC/MESWin/SYS1/ET_21674/frmSubcontractorDef.vb
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@ -1,10 +0,0 @@
|
|||||||
""
|
|
||||||
{
|
|
||||||
"FILE_VERSION" = "9237"
|
|
||||||
"ENLISTMENT_CHOICE" = "NEVER"
|
|
||||||
"PROJECT_FILE_RELATIVE_PATH" = ""
|
|
||||||
"NUMBER_OF_EXCLUDED_FILES" = "0"
|
|
||||||
"ORIGINAL_PROJECT_FILE_PATH" = ""
|
|
||||||
"NUMBER_OF_NESTED_PROJECTS" = "0"
|
|
||||||
"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER"
|
|
||||||
}
|
|
||||||
@ -1,31 +0,0 @@
|
|||||||
|
|
||||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
|
||||||
# Visual Studio Version 16
|
|
||||||
VisualStudioVersion = 16.0.34407.143
|
|
||||||
MinimumVisualStudioVersion = 10.0.40219.1
|
|
||||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ET_Subcontractor_21706", "ET_Subcontractor_21706.vbproj", "{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}"
|
|
||||||
EndProject
|
|
||||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Test", "..\..\Test\Test.vbproj", "{C4A48E3F-38E4-4E88-A47D-FA5510686E57}"
|
|
||||||
EndProject
|
|
||||||
Global
|
|
||||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
|
||||||
Debug|x86 = Debug|x86
|
|
||||||
Release|x86 = Release|x86
|
|
||||||
EndGlobalSection
|
|
||||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
|
||||||
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Debug|x86.ActiveCfg = Debug|x86
|
|
||||||
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Debug|x86.Build.0 = Debug|x86
|
|
||||||
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Release|x86.ActiveCfg = Release|x86
|
|
||||||
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Release|x86.Build.0 = Release|x86
|
|
||||||
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Debug|x86.ActiveCfg = Debug|x86
|
|
||||||
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Debug|x86.Build.0 = Debug|x86
|
|
||||||
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Release|x86.ActiveCfg = Release|x86
|
|
||||||
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Release|x86.Build.0 = Release|x86
|
|
||||||
EndGlobalSection
|
|
||||||
GlobalSection(SolutionProperties) = preSolution
|
|
||||||
HideSolutionNode = FALSE
|
|
||||||
EndGlobalSection
|
|
||||||
GlobalSection(ExtensibilityGlobals) = postSolution
|
|
||||||
SolutionGuid = {90AD5AEC-CF5E-4F34-BF22-34D3D94B3E15}
|
|
||||||
EndGlobalSection
|
|
||||||
EndGlobal
|
|
||||||
@ -1,194 +0,0 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<Project ToolsVersion="12.0" DefaultTargets="Build" 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)' == '' ">x86</Platform>
|
|
||||||
<ProjectGuid>{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}</ProjectGuid>
|
|
||||||
<OutputType>Library</OutputType>
|
|
||||||
<RootNamespace>ET_Subcontractor_21706</RootNamespace>
|
|
||||||
<AssemblyName>ET_Subcontractor_21706</AssemblyName>
|
|
||||||
<FileAlignment>512</FileAlignment>
|
|
||||||
<MyType>Windows</MyType>
|
|
||||||
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
|
|
||||||
<TargetFrameworkProfile />
|
|
||||||
<SccProjectName>SAK</SccProjectName>
|
|
||||||
<SccLocalPath>SAK</SccLocalPath>
|
|
||||||
<SccAuxPath>SAK</SccAuxPath>
|
|
||||||
<SccProvider>SAK</SccProvider>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionExplicit>On</OptionExplicit>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionCompare>Binary</OptionCompare>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionStrict>Off</OptionStrict>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionInfer>On</OptionInfer>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
|
|
||||||
<DebugSymbols>true</DebugSymbols>
|
|
||||||
<DefineDebug>true</DefineDebug>
|
|
||||||
<DefineTrace>true</DefineTrace>
|
|
||||||
<OutputPath>..\..\..\MESClient\</OutputPath>
|
|
||||||
<DocumentationFile>ET_Subcontractor_21706.xml</DocumentationFile>
|
|
||||||
<WarningLevel>0</WarningLevel>
|
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
|
||||||
<DebugType>full</DebugType>
|
|
||||||
<PlatformTarget>x86</PlatformTarget>
|
|
||||||
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
|
||||||
<Prefer32Bit>false</Prefer32Bit>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
|
|
||||||
<DefineTrace>true</DefineTrace>
|
|
||||||
<OutputPath>..\..\..\MESClient\</OutputPath>
|
|
||||||
<DocumentationFile>ET_Subcontractor_21706.xml</DocumentationFile>
|
|
||||||
<Optimize>true</Optimize>
|
|
||||||
<WarningLevel>0</WarningLevel>
|
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
|
||||||
<DebugType>pdbonly</DebugType>
|
|
||||||
<PlatformTarget>x86</PlatformTarget>
|
|
||||||
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
|
||||||
<Prefer32Bit>false</Prefer32Bit>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<SignAssembly>true</SignAssembly>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<AssemblyOriginatorKeyFile>iMES.snk</AssemblyOriginatorKeyFile>
|
|
||||||
</PropertyGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<Reference Include="Infragistics4.Win.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Win.UltraWinGrid.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.UltraWinGrid.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.UltraWinEditors.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Win.Misc.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.Misc.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Shared.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Shared.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="COM_Kit">
|
|
||||||
<HintPath>..\..\..\MESClient\COM_Kit.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="iMESExceptionManager">
|
|
||||||
<HintPath>..\..\..\MES_C_DLL\iMESExceptionManager.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="iMESUltraGrid">
|
|
||||||
<HintPath>..\..\..\MES_C_DLL\iMESUltraGrid.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="System" />
|
|
||||||
<Reference Include="System.Data" />
|
|
||||||
<Reference Include="System.Drawing" />
|
|
||||||
<Reference Include="System.Windows.Forms" />
|
|
||||||
<Reference Include="System.Xml" />
|
|
||||||
<Reference Include="System.Core" />
|
|
||||||
<Reference Include="System.Xml.Linq" />
|
|
||||||
</ItemGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<Import Include="COM_Kit.clsGlobalVariables" />
|
|
||||||
<Import Include="COM_Kit.clsKit" />
|
|
||||||
<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.Drawing" />
|
|
||||||
<Import Include="System.Linq" />
|
|
||||||
<Import Include="System.Windows.Forms" />
|
|
||||||
<Import Include="System.Xml" />
|
|
||||||
<Import Include="System.Xml.Linq" />
|
|
||||||
<Import Include="System.Threading.Tasks" />
|
|
||||||
</ItemGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<Compile Include="..\..\shared file\modConstant.vb">
|
|
||||||
<Link>modConstant.vb</Link>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="frmSubcontractor21706.vb">
|
|
||||||
<SubType>Form</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="frmSubcontractorContDef.vb">
|
|
||||||
<SubType>Form</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="frmSubcontractorDef.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="frmSubcontractor21706.resx">
|
|
||||||
<DependentUpon>frmSubcontractor21706.vb</DependentUpon>
|
|
||||||
</EmbeddedResource>
|
|
||||||
<EmbeddedResource Include="frmSubcontractorContDef.resx">
|
|
||||||
<DependentUpon>frmSubcontractorContDef.vb</DependentUpon>
|
|
||||||
</EmbeddedResource>
|
|
||||||
<EmbeddedResource Include="frmSubcontractorDef.resx">
|
|
||||||
<DependentUpon>frmSubcontractorDef.vb</DependentUpon>
|
|
||||||
</EmbeddedResource>
|
|
||||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
|
||||||
<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="iMES.snk" />
|
|
||||||
<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>
|
|
||||||
</ItemGroup>
|
|
||||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
|
||||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
|
||||||
Other similar extension points exist, see Microsoft.Common.targets.
|
|
||||||
<Target Name="BeforeBuild">
|
|
||||||
</Target>
|
|
||||||
<Target Name="AfterBuild">
|
|
||||||
</Target>
|
|
||||||
-->
|
|
||||||
<Import Project="..\..\shared file\MakeVersion.targets" Condition="exists('..\..\shared file\MakeVersion.targets')" />
|
|
||||||
</Project>
|
|
||||||
@ -1,13 +0,0 @@
|
|||||||
'------------------------------------------------------------------------------
|
|
||||||
' <auto-generated>
|
|
||||||
' 此代码由工具生成。
|
|
||||||
' 运行时版本:4.0.30319.42000
|
|
||||||
'
|
|
||||||
' 对此文件的更改可能会导致不正确的行为，并且如果
|
|
||||||
' 重新生成代码，这些更改将会丢失。
|
|
||||||
' </auto-generated>
|
|
||||||
'------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
Option Strict On
|
|
||||||
Option Explicit On
|
|
||||||
|
|
||||||
@ -1,10 +0,0 @@
|
|||||||
<?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>1</ApplicationType>
|
|
||||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
|
||||||
</MyApplicationData>
|
|
||||||
@ -1,35 +0,0 @@
|
|||||||
Imports System
|
|
||||||
Imports System.Reflection
|
|
||||||
Imports System.Runtime.InteropServices
|
|
||||||
|
|
||||||
' 組件的一般資訊是由下列的屬性集控制。
|
|
||||||
' 變更這些屬性的值即可修改組件的相關
|
|
||||||
' 資訊。
|
|
||||||
|
|
||||||
' 檢閱組件屬性的值
|
|
||||||
|
|
||||||
<Assembly: AssemblyTitle("ET_Subcontractor")>
|
|
||||||
<Assembly: AssemblyDescription("")>
|
|
||||||
<Assembly: AssemblyCompany("iMES Technology Inc.")>
|
|
||||||
<Assembly: AssemblyProduct("MESSeries 6")>
|
|
||||||
<Assembly: AssemblyCopyright("Copyright © iMES Technology Inc.")>
|
|
||||||
<Assembly: AssemblyTrademark("")>
|
|
||||||
|
|
||||||
<Assembly: ComVisible(False)>
|
|
||||||
|
|
||||||
'下列 GUID 為專案公開 (Expose) 至 COM 時所要使用的 typelib ID
|
|
||||||
<Assembly: Guid("cb602012-a17f-433f-b777-ace6a6a676c1")>
|
|
||||||
|
|
||||||
' 組件的版本資訊由下列四個值所組成:
|
|
||||||
'
|
|
||||||
' 主要版本
|
|
||||||
' 次要版本
|
|
||||||
' 組建編號
|
|
||||||
' 修訂編號
|
|
||||||
'
|
|
||||||
' 您可以指定所有的值，也可以依照以下的方式，使用 '*' 將組建和修訂編號
|
|
||||||
' 指定為預設值:
|
|
||||||
' <Assembly: AssemblyVersion("1.0.*")>
|
|
||||||
|
|
||||||
<Assembly: AssemblyVersion("6.0.0.0")>
|
|
||||||
|
|
||||||
@ -1 +0,0 @@
|
|||||||
<Assembly: Reflection.AssemblyFileVersion("6.0.5.40117")>
|
|
||||||
@ -1,63 +0,0 @@
|
|||||||
'------------------------------------------------------------------------------
|
|
||||||
' <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("ET_Subcontractor_21706.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
|
|
||||||
@ -1,117 +0,0 @@
|
|||||||
<?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>
|
|
||||||
@ -1,73 +0,0 @@
|
|||||||
'------------------------------------------------------------------------------
|
|
||||||
' <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
|
|
||||||
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.ET_Subcontractor_21706.My.MySettings
|
|
||||||
Get
|
|
||||||
Return Global.ET_Subcontractor_21706.My.MySettings.Default
|
|
||||||
End Get
|
|
||||||
End Property
|
|
||||||
End Module
|
|
||||||
End Namespace
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
<?xml version='1.0' encoding='utf-8'?>
|
|
||||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
|
||||||
<Profiles>
|
|
||||||
<Profile Name="(Default)" />
|
|
||||||
</Profiles>
|
|
||||||
<Settings />
|
|
||||||
</SettingsFile>
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
Infragistics.Win.Misc.UltraButton, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.UltraWinEditors.UltraRadioButton, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.UltraWinEditors.UltraComboEditor, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.Misc.UltraGroupBox, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.UltraWinEditors.UltraTextEditor, Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.Misc.UltraLabel, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
Infragistics.Win.Misc.UltraPanel, Infragistics4.Win.Misc.v19.1, Version=19.1.20191.294, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb
|
|
||||||
5
SRC/MESWin/SYS4/21706/frmDemo21706.Designer.vb
generated
5
SRC/MESWin/SYS4/21706/frmDemo21706.Designer.vb
generated
@ -1,5 +0,0 @@
|
|||||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
|
||||||
Partial Class frmDemo21706
|
|
||||||
|
|
||||||
|
|
||||||
End Class
|
|
||||||
@ -1,120 +0,0 @@
|
|||||||
<?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>
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
Public Class frmDemo21706
|
|
||||||
|
|
||||||
End Class
|
|
||||||
@ -1,120 +0,0 @@
|
|||||||
<?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>
|
|
||||||
File diff suppressed because it is too large
Load Diff
@ -1,688 +0,0 @@
|
|||||||
Imports iMESExceptionManager
|
|
||||||
|
|
||||||
Public Class frmSubcontractorContDef
|
|
||||||
|
|
||||||
Inherits COM_Kit.frmDefTemplat
|
|
||||||
|
|
||||||
'//Public Variables
|
|
||||||
Public EditDataRow As DataRow
|
|
||||||
Public DefMode As Integer = 0 '0. ADD, 1.Edit, 2. Copy
|
|
||||||
|
|
||||||
Public SubcontractorNo As String = defString
|
|
||||||
Public PrivFunNo As String = defString
|
|
||||||
|
|
||||||
'//Web Service相關變數
|
|
||||||
' 2016 YF, Dim wsENT As New wsENT.wsENT
|
|
||||||
Dim InXml As String
|
|
||||||
Dim OutXml As String
|
|
||||||
|
|
||||||
Dim strIdentity As String
|
|
||||||
Dim strParameter As String
|
|
||||||
Friend WithEvents lblNote21706 As Label
|
|
||||||
Friend WithEvents txtNote21706 As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Dim intDataStamp As Integer '紀錄DataStamp
|
|
||||||
|
|
||||||
#Region " Windows Form Designer generated code "
|
|
||||||
|
|
||||||
Public Sub New()
|
|
||||||
MyBase.New()
|
|
||||||
|
|
||||||
'This call is required by the Windows Form Designer.
|
|
||||||
InitializeComponent()
|
|
||||||
|
|
||||||
'Add any initialization after the InitializeComponent() call
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
'Form overrides dispose to clean up the component list.
|
|
||||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
||||||
If disposing Then
|
|
||||||
If Not (components Is Nothing) Then
|
|
||||||
components.Dispose()
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
MyBase.Dispose(disposing)
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
'Required by the Windows Form Designer
|
|
||||||
Private components As System.ComponentModel.IContainer
|
|
||||||
|
|
||||||
'NOTE: The following procedure is required by the Windows Form Designer
|
|
||||||
'It can be modified using the Windows Form Designer.
|
|
||||||
'Do not modify it using the code editor.
|
|
||||||
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
|
|
||||||
Friend WithEvents lblAddress As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblEMail As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblTitle As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblFaxNo As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblTelNo As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblDescription As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblContactorName As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblSubcontractorNo As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents gbxSubcontractorContData As System.Windows.Forms.GroupBox
|
|
||||||
Friend WithEvents txtSubcontractorNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtContactorName As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtFaxNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtTelNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtEMail As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtTitle As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtAddress As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
||||||
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
|
||||||
Me.gbxSubcontractorContData = New System.Windows.Forms.GroupBox()
|
|
||||||
Me.lblNote21706 = New System.Windows.Forms.Label()
|
|
||||||
Me.txtNote21706 = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtAddress = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtEMail = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtTitle = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtFaxNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.lblAddress = New System.Windows.Forms.Label()
|
|
||||||
Me.lblEMail = New System.Windows.Forms.Label()
|
|
||||||
Me.lblTitle = New System.Windows.Forms.Label()
|
|
||||||
Me.lblFaxNo = New System.Windows.Forms.Label()
|
|
||||||
Me.lblTelNo = New System.Windows.Forms.Label()
|
|
||||||
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
|
||||||
Me.lblDescription = New System.Windows.Forms.Label()
|
|
||||||
Me.lblSubcontractorNo = New System.Windows.Forms.Label()
|
|
||||||
Me.lblContactorName = New System.Windows.Forms.Label()
|
|
||||||
Me.txtSubcontractorNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtContactorName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtTelNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
Me.gbxSubcontractorContData.SuspendLayout()
|
|
||||||
CType(Me.txtNote21706, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtAddress, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtTitle, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtFaxNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtContactorName, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
Me.SuspendLayout()
|
|
||||||
'
|
|
||||||
'gbxBasisData
|
|
||||||
'
|
|
||||||
Me.gbxBasisData.Location = New System.Drawing.Point(12, 354)
|
|
||||||
Me.gbxBasisData.Size = New System.Drawing.Size(476, 70)
|
|
||||||
'
|
|
||||||
'btnApply
|
|
||||||
'
|
|
||||||
Me.btnApply.Location = New System.Drawing.Point(400, 433)
|
|
||||||
'
|
|
||||||
'btnConfirm
|
|
||||||
'
|
|
||||||
Me.btnConfirm.Location = New System.Drawing.Point(212, 433)
|
|
||||||
'
|
|
||||||
'btnClose
|
|
||||||
'
|
|
||||||
Me.btnClose.Location = New System.Drawing.Point(306, 433)
|
|
||||||
'
|
|
||||||
'gbxSubcontractorContData
|
|
||||||
'
|
|
||||||
Me.gbxSubcontractorContData.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.gbxSubcontractorContData.Controls.Add(Me.lblNote21706)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtNote21706)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtAddress)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtEMail)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtTitle)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtFaxNo)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblAddress)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblEMail)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblTitle)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblFaxNo)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblTelNo)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtDescription)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblDescription)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblSubcontractorNo)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.lblContactorName)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtSubcontractorNo)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtContactorName)
|
|
||||||
Me.gbxSubcontractorContData.Controls.Add(Me.txtTelNo)
|
|
||||||
Me.gbxSubcontractorContData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.gbxSubcontractorContData.Location = New System.Drawing.Point(15, 8)
|
|
||||||
Me.gbxSubcontractorContData.Name = "gbxSubcontractorContData"
|
|
||||||
Me.gbxSubcontractorContData.Size = New System.Drawing.Size(473, 338)
|
|
||||||
Me.gbxSubcontractorContData.TabIndex = 0
|
|
||||||
Me.gbxSubcontractorContData.TabStop = False
|
|
||||||
Me.gbxSubcontractorContData.Text = "ENT Subcontractor Contactor Data"
|
|
||||||
'
|
|
||||||
'lblNote21706
|
|
||||||
'
|
|
||||||
Me.lblNote21706.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblNote21706.Location = New System.Drawing.Point(24, 302)
|
|
||||||
Me.lblNote21706.Name = "lblNote21706"
|
|
||||||
Me.lblNote21706.Size = New System.Drawing.Size(86, 14)
|
|
||||||
Me.lblNote21706.TabIndex = 17
|
|
||||||
Me.lblNote21706.Text = "Note 21706"
|
|
||||||
Me.lblNote21706.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'txtNote21706
|
|
||||||
'
|
|
||||||
Me.txtNote21706.Location = New System.Drawing.Point(120, 298)
|
|
||||||
Me.txtNote21706.Name = "txtNote21706"
|
|
||||||
Me.txtNote21706.Size = New System.Drawing.Size(114, 22)
|
|
||||||
Me.txtNote21706.TabIndex = 16
|
|
||||||
'
|
|
||||||
'txtAddress
|
|
||||||
'
|
|
||||||
Me.txtAddress.Location = New System.Drawing.Point(120, 152)
|
|
||||||
Me.txtAddress.Name = "txtAddress"
|
|
||||||
Me.txtAddress.Size = New System.Drawing.Size(336, 22)
|
|
||||||
Me.txtAddress.TabIndex = 13
|
|
||||||
'
|
|
||||||
'txtEMail
|
|
||||||
'
|
|
||||||
Me.txtEMail.Location = New System.Drawing.Point(320, 120)
|
|
||||||
Me.txtEMail.Name = "txtEMail"
|
|
||||||
Me.txtEMail.Size = New System.Drawing.Size(136, 22)
|
|
||||||
Me.txtEMail.TabIndex = 11
|
|
||||||
'
|
|
||||||
'txtTitle
|
|
||||||
'
|
|
||||||
Me.txtTitle.Location = New System.Drawing.Point(120, 120)
|
|
||||||
Me.txtTitle.Name = "txtTitle"
|
|
||||||
Me.txtTitle.Size = New System.Drawing.Size(114, 22)
|
|
||||||
Me.txtTitle.TabIndex = 9
|
|
||||||
'
|
|
||||||
'txtFaxNo
|
|
||||||
'
|
|
||||||
Me.txtFaxNo.Location = New System.Drawing.Point(320, 88)
|
|
||||||
Me.txtFaxNo.Name = "txtFaxNo"
|
|
||||||
Me.txtFaxNo.Size = New System.Drawing.Size(136, 22)
|
|
||||||
Me.txtFaxNo.TabIndex = 7
|
|
||||||
'
|
|
||||||
'lblAddress
|
|
||||||
'
|
|
||||||
Me.lblAddress.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblAddress.Location = New System.Drawing.Point(24, 154)
|
|
||||||
Me.lblAddress.Name = "lblAddress"
|
|
||||||
Me.lblAddress.Size = New System.Drawing.Size(86, 14)
|
|
||||||
Me.lblAddress.TabIndex = 12
|
|
||||||
Me.lblAddress.Text = "Address"
|
|
||||||
Me.lblAddress.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblEMail
|
|
||||||
'
|
|
||||||
Me.lblEMail.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblEMail.Location = New System.Drawing.Point(248, 123)
|
|
||||||
Me.lblEMail.Name = "lblEMail"
|
|
||||||
Me.lblEMail.Size = New System.Drawing.Size(64, 14)
|
|
||||||
Me.lblEMail.TabIndex = 10
|
|
||||||
Me.lblEMail.Text = "EMail"
|
|
||||||
Me.lblEMail.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblTitle
|
|
||||||
'
|
|
||||||
Me.lblTitle.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblTitle.Location = New System.Drawing.Point(24, 123)
|
|
||||||
Me.lblTitle.Name = "lblTitle"
|
|
||||||
Me.lblTitle.Size = New System.Drawing.Size(86, 14)
|
|
||||||
Me.lblTitle.TabIndex = 8
|
|
||||||
Me.lblTitle.Text = "Title"
|
|
||||||
Me.lblTitle.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblFaxNo
|
|
||||||
'
|
|
||||||
Me.lblFaxNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblFaxNo.Location = New System.Drawing.Point(248, 90)
|
|
||||||
Me.lblFaxNo.Name = "lblFaxNo"
|
|
||||||
Me.lblFaxNo.Size = New System.Drawing.Size(64, 14)
|
|
||||||
Me.lblFaxNo.TabIndex = 6
|
|
||||||
Me.lblFaxNo.Text = "FaxNo"
|
|
||||||
Me.lblFaxNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblTelNo
|
|
||||||
'
|
|
||||||
Me.lblTelNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblTelNo.Location = New System.Drawing.Point(24, 90)
|
|
||||||
Me.lblTelNo.Name = "lblTelNo"
|
|
||||||
Me.lblTelNo.Size = New System.Drawing.Size(86, 14)
|
|
||||||
Me.lblTelNo.TabIndex = 4
|
|
||||||
Me.lblTelNo.Text = "TelNo"
|
|
||||||
Me.lblTelNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'txtDescription
|
|
||||||
'
|
|
||||||
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.txtDescription.Location = New System.Drawing.Point(120, 184)
|
|
||||||
Me.txtDescription.Name = "txtDescription"
|
|
||||||
Me.txtDescription.Size = New System.Drawing.Size(336, 108)
|
|
||||||
Me.txtDescription.TabIndex = 15
|
|
||||||
Me.txtDescription.Text = ""
|
|
||||||
'
|
|
||||||
'lblDescription
|
|
||||||
'
|
|
||||||
Me.lblDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblDescription.Location = New System.Drawing.Point(24, 186)
|
|
||||||
Me.lblDescription.Name = "lblDescription"
|
|
||||||
Me.lblDescription.Size = New System.Drawing.Size(86, 14)
|
|
||||||
Me.lblDescription.TabIndex = 14
|
|
||||||
Me.lblDescription.Text = "Description"
|
|
||||||
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblSubcontractorNo
|
|
||||||
'
|
|
||||||
Me.lblSubcontractorNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblSubcontractorNo.Location = New System.Drawing.Point(14, 29)
|
|
||||||
Me.lblSubcontractorNo.Name = "lblSubcontractorNo"
|
|
||||||
Me.lblSubcontractorNo.Size = New System.Drawing.Size(96, 14)
|
|
||||||
Me.lblSubcontractorNo.TabIndex = 0
|
|
||||||
Me.lblSubcontractorNo.Text = "Subcontractor No"
|
|
||||||
Me.lblSubcontractorNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblContactorName
|
|
||||||
'
|
|
||||||
Me.lblContactorName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblContactorName.Location = New System.Drawing.Point(24, 59)
|
|
||||||
Me.lblContactorName.Name = "lblContactorName"
|
|
||||||
Me.lblContactorName.Size = New System.Drawing.Size(86, 14)
|
|
||||||
Me.lblContactorName.TabIndex = 2
|
|
||||||
Me.lblContactorName.Text = "Contactor Name"
|
|
||||||
Me.lblContactorName.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'txtSubcontractorNo
|
|
||||||
'
|
|
||||||
Me.txtSubcontractorNo.Location = New System.Drawing.Point(120, 24)
|
|
||||||
Me.txtSubcontractorNo.Name = "txtSubcontractorNo"
|
|
||||||
Me.txtSubcontractorNo.ReadOnly = True
|
|
||||||
Me.txtSubcontractorNo.Size = New System.Drawing.Size(114, 22)
|
|
||||||
Me.txtSubcontractorNo.TabIndex = 1
|
|
||||||
Me.txtSubcontractorNo.TabStop = False
|
|
||||||
'
|
|
||||||
'txtContactorName
|
|
||||||
'
|
|
||||||
Appearance1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtContactorName.Appearance = Appearance1
|
|
||||||
Me.txtContactorName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtContactorName.Location = New System.Drawing.Point(120, 56)
|
|
||||||
Me.txtContactorName.Name = "txtContactorName"
|
|
||||||
Me.txtContactorName.Size = New System.Drawing.Size(160, 22)
|
|
||||||
Me.txtContactorName.TabIndex = 3
|
|
||||||
'
|
|
||||||
'txtTelNo
|
|
||||||
'
|
|
||||||
Me.txtTelNo.Location = New System.Drawing.Point(120, 88)
|
|
||||||
Me.txtTelNo.Name = "txtTelNo"
|
|
||||||
Me.txtTelNo.Size = New System.Drawing.Size(114, 22)
|
|
||||||
Me.txtTelNo.TabIndex = 5
|
|
||||||
'
|
|
||||||
'frmSubcontractorContDef
|
|
||||||
'
|
|
||||||
Me.ClientSize = New System.Drawing.Size(500, 478)
|
|
||||||
Me.Controls.Add(Me.gbxSubcontractorContData)
|
|
||||||
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.Name = "frmSubcontractorContDef"
|
|
||||||
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
|
||||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
||||||
Me.Text = "ENT Subcontractor Contactor Define"
|
|
||||||
Me.Controls.SetChildIndex(Me.btnClose, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.btnApply, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.gbxSubcontractorContData, 0)
|
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
Me.gbxSubcontractorContData.ResumeLayout(False)
|
|
||||||
Me.gbxSubcontractorContData.PerformLayout()
|
|
||||||
CType(Me.txtNote21706, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtAddress, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtEMail, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtTitle, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtFaxNo, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtContactorName, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtTelNo, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
Me.ResumeLayout(False)
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
Private Sub frmSubcontractorContDef_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
Select Case DefMode
|
|
||||||
Case 0
|
|
||||||
Me.Text = Me.Text & "(ADD)"
|
|
||||||
Case 1
|
|
||||||
Me.Text = Me.Text & "(EDIT)"
|
|
||||||
Case 2
|
|
||||||
Me.Text = Me.Text & "(Copy)"
|
|
||||||
Case Else
|
|
||||||
Me.Text = Me.Text & "(Unknown)"
|
|
||||||
End Select
|
|
||||||
|
|
||||||
'做為MainForm判斷是否重新LoadData的依據()
|
|
||||||
gReturnKeyValue = ""
|
|
||||||
|
|
||||||
' 2016 YF, wsENT.Url = LocalizeWebService(wsENT.Url.ToString)
|
|
||||||
' 2016 YF, wsENT.EnableDecompression = True
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
SetCreateDate(Now)
|
|
||||||
SetCreator(gUserNo)
|
|
||||||
End If
|
|
||||||
If Not EditDataRow Is Nothing Then '修改 or Copy
|
|
||||||
txtSubcontractorNo.Text = EditDataRow.Item("SubcontractorNo").ToString
|
|
||||||
txtContactorName.Text = EditDataRow.Item("ContactorName").ToString
|
|
||||||
txtTelNo.Text = EditDataRow.Item("TelNo").ToString
|
|
||||||
txtFaxNo.Text = EditDataRow.Item("FaxNo").ToString
|
|
||||||
txtTitle.Text = EditDataRow.Item("Title").ToString
|
|
||||||
txtAddress.Text = EditDataRow.Item("Address").ToString
|
|
||||||
txtEMail.Text = EditDataRow.Item("EMail").ToString
|
|
||||||
'txtDescription是RichTextBox(Control, 因為TextBox無法正常顯示多行換行的資料)
|
|
||||||
txtDescription.Text = EditDataRow.Item("Description").ToString
|
|
||||||
'以下为自己添加的字段
|
|
||||||
txtNote21706.Text = EditDataRow.Item("Note21706").ToString
|
|
||||||
If DefMode = 1 Then
|
|
||||||
If (Not IsDBNull(EditDataRow("Creator"))) Then
|
|
||||||
SetCreateDate(Convert.ToDateTime(EditDataRow.Item("CreateDate")))
|
|
||||||
SetCreator(EditDataRow.Item("Creator").ToString)
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
If DefMode = 0 Then 'Add
|
|
||||||
txtSubcontractorNo.Text = SubcontractorNo
|
|
||||||
SetCreateDate(Now)
|
|
||||||
SetCreator(gUserNo)
|
|
||||||
ElseIf DefMode = 1 Then 'Edit
|
|
||||||
txtContactorName.ReadOnly = True
|
|
||||||
SetReviseDate(Now)
|
|
||||||
SetReviser(gUserNo)
|
|
||||||
intDataStamp = EditDataRow.Item("DataStamp")
|
|
||||||
End If
|
|
||||||
|
|
||||||
btnApplyEnabled = False
|
|
||||||
|
|
||||||
'語系切換
|
|
||||||
Call ExeChangeResource(Me, gLanguageMode)
|
|
||||||
ExeGroupControlPriv(Me, PrivFunNo)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub frmSubcontractorContDef_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
txtContactorName.Focus()
|
|
||||||
Else
|
|
||||||
txtTelNo.Focus()
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
If funAddorEdit(sender) < 0 Then Exit Sub
|
|
||||||
|
|
||||||
Me.Close()
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
Me.Close()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
If funAddorEdit(sender) < 0 Then Exit Sub
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
txtContactorName.Focus()
|
|
||||||
Else
|
|
||||||
txtTelNo.Focus()
|
|
||||||
End If
|
|
||||||
|
|
||||||
txtEMail.Text = ""
|
|
||||||
btnApplyEnabled = False
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#Region "Control KeyPress"
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Click
|
|
||||||
txtSubcontractorNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Enter
|
|
||||||
txtSubcontractorNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSubcontractorNo.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtContactorName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Click
|
|
||||||
txtContactorName.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtContactorName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Enter
|
|
||||||
txtContactorName.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtContactorName_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtContactorName.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtContactorName_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.Leave
|
|
||||||
If txtContactorName.Text <> "" And txtEMail.Text = "" Then
|
|
||||||
txtEMail.Text = txtContactorName.Text & "@"
|
|
||||||
End If
|
|
||||||
txtContactorName.Text = UCase(txtContactorName.Text)
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtContactorName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtContactorName.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTelNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.Click
|
|
||||||
txtTelNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTelNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.Enter
|
|
||||||
txtTelNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTelNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTelNo.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTelNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTelNo.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtFaxNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFaxNo.Click
|
|
||||||
txtFaxNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtFaxNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFaxNo.Enter
|
|
||||||
txtFaxNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtFaxNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtFaxNo.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtFaxNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtFaxNo.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTitle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTitle.Click
|
|
||||||
txtTitle.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTitle_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTitle.Enter
|
|
||||||
txtTitle.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTitle_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTitle.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtTitle_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTitle.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtEMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEMail.Click
|
|
||||||
txtEMail.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtEMail_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEMail.Enter
|
|
||||||
txtEMail.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtEMail_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtEMail.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtEMail_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEMail.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtAddress_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAddress.Click
|
|
||||||
txtAddress.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtAddress_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAddress.Enter
|
|
||||||
txtAddress.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtAddress_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtAddress.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtAddress_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAddress.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Click
|
|
||||||
txtDescription.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Enter
|
|
||||||
txtDescription.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtDescription.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
#Region "Others"
|
|
||||||
|
|
||||||
Private Function funAddorEdit(sender As Object) As Integer
|
|
||||||
|
|
||||||
funAddorEdit = -1
|
|
||||||
|
|
||||||
'******************************************************************************
|
|
||||||
'1.基本檢查()
|
|
||||||
'******************************************************************************
|
|
||||||
If txtSubcontractorNo.Text = "" Then
|
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%SubcontractorNo%]"), MsgBoxStyle.Exclamation, Me.Text)
|
|
||||||
txtSubcontractorNo.Focus()
|
|
||||||
Exit Function
|
|
||||||
End If
|
|
||||||
If txtContactorName.Text = "" Then
|
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%ContactorName%]"), MsgBoxStyle.Exclamation, Me.Text)
|
|
||||||
txtContactorName.Focus()
|
|
||||||
Exit Function
|
|
||||||
End If
|
|
||||||
|
|
||||||
'******************************************************************************
|
|
||||||
'2.寫回資料庫()
|
|
||||||
'******************************************************************************
|
|
||||||
Dim XmlDoc As New XmlDocument
|
|
||||||
|
|
||||||
Try
|
|
||||||
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
|
||||||
strParameter = CombineXMLParameter("subcontractorno", "SubcontractorNo", "String", CInput(txtSubcontractorNo.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("contactorname", "ContactorName", "String", CInput(txtContactorName.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("telno", "TelNo", "String", txtTelNo.Text, "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("faxno", "FaxNo", "String", txtFaxNo.Text, "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("title", "Title", "String", CInput(txtTitle.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("address", "Address", "String", CInput(txtAddress.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("email", "EMail", "String", CInput(txtEMail.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
|
|
||||||
'以下为自己添加的字段
|
|
||||||
strParameter = strParameter & CombineXMLParameter("note21706", "Note21706", "String", CInput(txtNote21706.Text), "")
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
|
||||||
strParameter += CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
|
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
|
||||||
' 2016 YF, OutXml = wsENT.AddSubcontractorCont(InXml)
|
|
||||||
'OutXml = InvokeSrv("SXS.wsENT.AddSubcontractorCont", InXml)
|
|
||||||
'调用客制化方法
|
|
||||||
OutXml = InvokeSrv("SXS.wsENT.AddSubcontractorContCustom", InXml)
|
|
||||||
|
|
||||||
Else 'Edit
|
|
||||||
' 增加Datastamp
|
|
||||||
strParameter += CombineXMLParameter("datastamp", "Datastamp", "Integer", intDataStamp, "")
|
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
|
||||||
' 2016 YF, OutXml = wsENT.EditSubcontractorCont(InXml)
|
|
||||||
'OutXml = InvokeSrv("SXS.wsENT.EditSubcontractorCont", InXml)
|
|
||||||
'调用客制化方法
|
|
||||||
OutXml = InvokeSrv("SXS.wsENT.EditSubcontractorContCustom", InXml)
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
XmlDoc.LoadXml(OutXml)
|
|
||||||
If ChkExecutionSuccess(XmlDoc) Then
|
|
||||||
gReturnKeyValue = txtContactorName.Text
|
|
||||||
|
|
||||||
funAddorEdit = 0
|
|
||||||
If sender.Equals(btnApply) Then
|
|
||||||
intDataStamp += 1
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
|
|
||||||
End If
|
|
||||||
|
|
||||||
Catch ex As Exception
|
|
||||||
'MsgBox("Unexpected Error. Add or Edit ENT Subcontractor Contactor Failed!," & e1.Message, MsgBoxStyle.Exclamation)
|
|
||||||
ExceptionManager.iMESShowDialog(defWinErrCode, ex.Message, ex.StackTrace)
|
|
||||||
End Try
|
|
||||||
|
|
||||||
XmlDoc = Nothing
|
|
||||||
|
|
||||||
End Function
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
|
|
||||||
Private Sub frmSubcontractorContDef_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
||||||
' 2016 YF, If Not wsENT Is Nothing Then wsENT.Dispose()
|
|
||||||
End Sub
|
|
||||||
End Class
|
|
||||||
|
|
||||||
@ -1,497 +0,0 @@
|
|||||||
Imports iMESExceptionManager
|
|
||||||
|
|
||||||
Public Class frmSubcontractorDef
|
|
||||||
|
|
||||||
Inherits COM_Kit.frmDefTemplat
|
|
||||||
|
|
||||||
'//Public Variables
|
|
||||||
Public EditDataRow As DataRow
|
|
||||||
Public DefMode As Integer = 0 '0. ADD, 1.Edit, 2. Copy
|
|
||||||
Public PrivFunNo As String = defString
|
|
||||||
|
|
||||||
'//Web Service相關變數
|
|
||||||
' 2016 YF, Dim wsENT As New wsENT.wsENT
|
|
||||||
Dim InXml As String
|
|
||||||
Dim OutXml As String
|
|
||||||
|
|
||||||
Dim strIdentity As String
|
|
||||||
Dim strParameter As String
|
|
||||||
Friend WithEvents txtNote21706 As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents lblNote21706 As Label
|
|
||||||
Friend WithEvents lblKey21706 As Label
|
|
||||||
Friend WithEvents txtNotNull As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Dim intDataStamp As Integer '紀錄DataStamp
|
|
||||||
|
|
||||||
#Region " Windows Form Designer generated code "
|
|
||||||
|
|
||||||
Public Sub New()
|
|
||||||
MyBase.New()
|
|
||||||
|
|
||||||
'This call is required by the Windows Form Designer.
|
|
||||||
InitializeComponent()
|
|
||||||
|
|
||||||
'Add any initialization after the InitializeComponent() call
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
'Form overrides dispose to clean up the component list.
|
|
||||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
||||||
If disposing Then
|
|
||||||
If Not (components Is Nothing) Then
|
|
||||||
components.Dispose()
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
MyBase.Dispose(disposing)
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
'Required by the Windows Form Designer
|
|
||||||
Private components As System.ComponentModel.IContainer
|
|
||||||
|
|
||||||
'NOTE: The following procedure is required by the Windows Form Designer
|
|
||||||
'It can be modified using the Windows Form Designer.
|
|
||||||
'Do not modify it using the code editor.
|
|
||||||
Friend WithEvents txtDescription As System.Windows.Forms.RichTextBox
|
|
||||||
Friend WithEvents lblDescription As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblSubcontractorNo As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents lblSubcontractorName As System.Windows.Forms.Label
|
|
||||||
Friend WithEvents gbxSubcontractorData As System.Windows.Forms.GroupBox
|
|
||||||
Friend WithEvents txtSubcontractorNo As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
Friend WithEvents txtSubcontractorName As Infragistics.Win.UltraWinEditors.UltraTextEditor
|
|
||||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
||||||
Dim Appearance2 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
|
||||||
Dim Appearance3 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
|
||||||
Dim Appearance4 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
|
||||||
Dim Appearance1 As Infragistics.Win.Appearance = New Infragistics.Win.Appearance()
|
|
||||||
Me.gbxSubcontractorData = New System.Windows.Forms.GroupBox()
|
|
||||||
Me.lblNote21706 = New System.Windows.Forms.Label()
|
|
||||||
Me.txtNote21706 = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtDescription = New System.Windows.Forms.RichTextBox()
|
|
||||||
Me.lblDescription = New System.Windows.Forms.Label()
|
|
||||||
Me.lblSubcontractorNo = New System.Windows.Forms.Label()
|
|
||||||
Me.lblSubcontractorName = New System.Windows.Forms.Label()
|
|
||||||
Me.txtSubcontractorNo = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtSubcontractorName = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.txtNotNull = New Infragistics.Win.UltraWinEditors.UltraTextEditor()
|
|
||||||
Me.lblKey21706 = New System.Windows.Forms.Label()
|
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
Me.gbxSubcontractorData.SuspendLayout()
|
|
||||||
CType(Me.txtNote21706, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtSubcontractorName, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
CType(Me.txtNotNull, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
||||||
Me.SuspendLayout()
|
|
||||||
'
|
|
||||||
'gbxBasisData
|
|
||||||
'
|
|
||||||
Me.gbxBasisData.Location = New System.Drawing.Point(12, 266)
|
|
||||||
Me.gbxBasisData.Size = New System.Drawing.Size(479, 70)
|
|
||||||
'
|
|
||||||
'btnApply
|
|
||||||
'
|
|
||||||
Me.btnApply.Location = New System.Drawing.Point(403, 345)
|
|
||||||
'
|
|
||||||
'btnConfirm
|
|
||||||
'
|
|
||||||
Me.btnConfirm.Location = New System.Drawing.Point(215, 345)
|
|
||||||
'
|
|
||||||
'btnClose
|
|
||||||
'
|
|
||||||
Me.btnClose.Location = New System.Drawing.Point(309, 345)
|
|
||||||
'
|
|
||||||
'gbxSubcontractorData
|
|
||||||
'
|
|
||||||
Me.gbxSubcontractorData.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.gbxSubcontractorData.Controls.Add(Me.lblKey21706)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtNotNull)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblNote21706)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtNote21706)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtDescription)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblDescription)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblSubcontractorNo)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.lblSubcontractorName)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtSubcontractorNo)
|
|
||||||
Me.gbxSubcontractorData.Controls.Add(Me.txtSubcontractorName)
|
|
||||||
Me.gbxSubcontractorData.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.gbxSubcontractorData.Location = New System.Drawing.Point(12, 8)
|
|
||||||
Me.gbxSubcontractorData.Name = "gbxSubcontractorData"
|
|
||||||
Me.gbxSubcontractorData.Size = New System.Drawing.Size(479, 250)
|
|
||||||
Me.gbxSubcontractorData.TabIndex = 7
|
|
||||||
Me.gbxSubcontractorData.TabStop = False
|
|
||||||
Me.gbxSubcontractorData.Text = "Subcontractor Data"
|
|
||||||
'
|
|
||||||
'lblNote21706
|
|
||||||
'
|
|
||||||
Me.lblNote21706.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblNote21706.Location = New System.Drawing.Point(24, 193)
|
|
||||||
Me.lblNote21706.Name = "lblNote21706"
|
|
||||||
Me.lblNote21706.Size = New System.Drawing.Size(96, 32)
|
|
||||||
Me.lblNote21706.TabIndex = 14
|
|
||||||
Me.lblNote21706.Text = "Note 21706"
|
|
||||||
Me.lblNote21706.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'txtNote21706
|
|
||||||
'
|
|
||||||
Appearance2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
|
|
||||||
Me.txtNote21706.Appearance = Appearance2
|
|
||||||
Me.txtNote21706.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
|
|
||||||
Me.txtNote21706.Location = New System.Drawing.Point(128, 193)
|
|
||||||
Me.txtNote21706.Name = "txtNote21706"
|
|
||||||
Me.txtNote21706.Size = New System.Drawing.Size(152, 22)
|
|
||||||
Me.txtNote21706.TabIndex = 3
|
|
||||||
'
|
|
||||||
'txtDescription
|
|
||||||
'
|
|
||||||
Me.txtDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.txtDescription.Location = New System.Drawing.Point(128, 86)
|
|
||||||
Me.txtDescription.Name = "txtDescription"
|
|
||||||
Me.txtDescription.Size = New System.Drawing.Size(334, 67)
|
|
||||||
Me.txtDescription.TabIndex = 2
|
|
||||||
Me.txtDescription.Text = ""
|
|
||||||
'
|
|
||||||
'lblDescription
|
|
||||||
'
|
|
||||||
Me.lblDescription.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblDescription.Location = New System.Drawing.Point(56, 88)
|
|
||||||
Me.lblDescription.Name = "lblDescription"
|
|
||||||
Me.lblDescription.Size = New System.Drawing.Size(64, 14)
|
|
||||||
Me.lblDescription.TabIndex = 13
|
|
||||||
Me.lblDescription.Text = "Description"
|
|
||||||
Me.lblDescription.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblSubcontractorNo
|
|
||||||
'
|
|
||||||
Me.lblSubcontractorNo.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblSubcontractorNo.Location = New System.Drawing.Point(24, 24)
|
|
||||||
Me.lblSubcontractorNo.Name = "lblSubcontractorNo"
|
|
||||||
Me.lblSubcontractorNo.Size = New System.Drawing.Size(96, 32)
|
|
||||||
Me.lblSubcontractorNo.TabIndex = 5
|
|
||||||
Me.lblSubcontractorNo.Text = "Subcontractor No"
|
|
||||||
Me.lblSubcontractorNo.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'lblSubcontractorName
|
|
||||||
'
|
|
||||||
Me.lblSubcontractorName.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblSubcontractorName.Location = New System.Drawing.Point(8, 56)
|
|
||||||
Me.lblSubcontractorName.Name = "lblSubcontractorName"
|
|
||||||
Me.lblSubcontractorName.Size = New System.Drawing.Size(112, 32)
|
|
||||||
Me.lblSubcontractorName.TabIndex = 9
|
|
||||||
Me.lblSubcontractorName.Text = "Subcontractor Name"
|
|
||||||
Me.lblSubcontractorName.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'txtSubcontractorNo
|
|
||||||
'
|
|
||||||
Appearance3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtSubcontractorNo.Appearance = Appearance3
|
|
||||||
Me.txtSubcontractorNo.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtSubcontractorNo.Location = New System.Drawing.Point(128, 24)
|
|
||||||
Me.txtSubcontractorNo.Name = "txtSubcontractorNo"
|
|
||||||
Me.txtSubcontractorNo.Size = New System.Drawing.Size(152, 22)
|
|
||||||
Me.txtSubcontractorNo.TabIndex = 0
|
|
||||||
'
|
|
||||||
'txtSubcontractorName
|
|
||||||
'
|
|
||||||
Appearance4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtSubcontractorName.Appearance = Appearance4
|
|
||||||
Me.txtSubcontractorName.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtSubcontractorName.Location = New System.Drawing.Point(128, 55)
|
|
||||||
Me.txtSubcontractorName.Name = "txtSubcontractorName"
|
|
||||||
Me.txtSubcontractorName.Size = New System.Drawing.Size(334, 22)
|
|
||||||
Me.txtSubcontractorName.TabIndex = 1
|
|
||||||
'
|
|
||||||
'txtNotNull
|
|
||||||
'
|
|
||||||
Appearance1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtNotNull.Appearance = Appearance1
|
|
||||||
Me.txtNotNull.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
||||||
Me.txtNotNull.Location = New System.Drawing.Point(128, 162)
|
|
||||||
Me.txtNotNull.Name = "txtNotNull"
|
|
||||||
Me.txtNotNull.Size = New System.Drawing.Size(152, 22)
|
|
||||||
Me.txtNotNull.TabIndex = 15
|
|
||||||
'
|
|
||||||
'lblKey21706
|
|
||||||
'
|
|
||||||
Me.lblKey21706.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.lblKey21706.Location = New System.Drawing.Point(24, 162)
|
|
||||||
Me.lblKey21706.Name = "lblKey21706"
|
|
||||||
Me.lblKey21706.Size = New System.Drawing.Size(96, 32)
|
|
||||||
Me.lblKey21706.TabIndex = 16
|
|
||||||
Me.lblKey21706.Text = "Not Null"
|
|
||||||
Me.lblKey21706.TextAlign = System.Drawing.ContentAlignment.TopRight
|
|
||||||
'
|
|
||||||
'frmSubcontractorDef
|
|
||||||
'
|
|
||||||
Me.ClientSize = New System.Drawing.Size(503, 390)
|
|
||||||
Me.Controls.Add(Me.gbxSubcontractorData)
|
|
||||||
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.Name = "frmSubcontractorDef"
|
|
||||||
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
|
|
||||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
||||||
Me.Text = "ENT Subcontractor Define"
|
|
||||||
Me.Controls.SetChildIndex(Me.btnClose, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.btnConfirm, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.btnApply, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.gbxBasisData, 0)
|
|
||||||
Me.Controls.SetChildIndex(Me.gbxSubcontractorData, 0)
|
|
||||||
CType(Me.gbxBasisData, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
Me.gbxSubcontractorData.ResumeLayout(False)
|
|
||||||
Me.gbxSubcontractorData.PerformLayout()
|
|
||||||
CType(Me.txtNote21706, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtSubcontractorNo, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtSubcontractorName, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
CType(Me.txtNotNull, System.ComponentModel.ISupportInitialize).EndInit()
|
|
||||||
Me.ResumeLayout(False)
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
Private Sub frmSubcontractorDef_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
Select Case DefMode
|
|
||||||
Case 0
|
|
||||||
Me.Text = Me.Text & "(ADD)"
|
|
||||||
Case 1
|
|
||||||
Me.Text = Me.Text & "(EDIT)"
|
|
||||||
Case 2
|
|
||||||
Me.Text = Me.Text & "(Copy)"
|
|
||||||
Case Else
|
|
||||||
Me.Text = Me.Text & "(Unknown)"
|
|
||||||
End Select
|
|
||||||
|
|
||||||
'做為MainForm判斷是否重新LoadData的依據
|
|
||||||
gReturnKeyValue = ""
|
|
||||||
|
|
||||||
' 2016 YF, wsENT.Url = LocalizeWebService(wsENT.Url.ToString)
|
|
||||||
' 2016 YF, wsENT.EnableDecompression = True
|
|
||||||
|
|
||||||
If Not EditDataRow Is Nothing Then
|
|
||||||
txtSubcontractorNo.Text = EditDataRow.Item("SubcontractorNo").ToString
|
|
||||||
txtSubcontractorName.Text = EditDataRow.Item("SubcontractorName").ToString
|
|
||||||
'txtDescription是RichTextBox Control,因為TextBox無法正常顯示多行換行的資料
|
|
||||||
txtDescription.Text = EditDataRow.Item("Description").ToString
|
|
||||||
'加入自定义字段
|
|
||||||
txtNotNull.Text = EditDataRow.Item("NotNull").ToString
|
|
||||||
txtNote21706.Text = EditDataRow.Item("Note21706").ToString
|
|
||||||
End If
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then 'Add or Copy
|
|
||||||
SetCreator(gUserNo)
|
|
||||||
SetCreateDate(Now)
|
|
||||||
ElseIf DefMode = 1 Then 'Edit
|
|
||||||
txtSubcontractorNo.ReadOnly = True
|
|
||||||
SetCreator(EditDataRow.Item("Creator").ToString)
|
|
||||||
SetCreateDate(Convert.ToDateTime(EditDataRow.Item("CreateDate")))
|
|
||||||
SetReviser(gUserNo)
|
|
||||||
SetReviseDate(Now)
|
|
||||||
intDataStamp = EditDataRow.Item("DataStamp")
|
|
||||||
End If
|
|
||||||
|
|
||||||
btnApplyEnabled = False
|
|
||||||
|
|
||||||
'語系切換
|
|
||||||
Call ExeChangeResource(Me, gLanguageMode)
|
|
||||||
ExeGroupControlPriv(Me, PrivFunNo)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub frmSubcontractorDef_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
txtSubcontractorNo.Focus()
|
|
||||||
Else
|
|
||||||
txtSubcontractorName.Focus()
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
If funAddorEdit(sender) < 0 Then Exit Sub
|
|
||||||
|
|
||||||
Me.Close()
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
Me.Close()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Protected Overrides Sub btnApply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.WaitCursor
|
|
||||||
|
|
||||||
If funAddorEdit(sender) < 0 Then Exit Sub
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
txtSubcontractorNo.Focus()
|
|
||||||
Else
|
|
||||||
txtSubcontractorName.Focus()
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
Cursor.Current = Cursors.Default
|
|
||||||
btnApplyEnabled = False
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub frmSubcontractorDef_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
||||||
' 2016 YF, If Not wsENT Is Nothing Then wsENT.Dispose()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#Region "Control KeyPress"
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Click
|
|
||||||
txtSubcontractorNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Enter
|
|
||||||
txtSubcontractorNo.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSubcontractorNo.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.Leave
|
|
||||||
txtSubcontractorNo.Text = UCase(txtSubcontractorNo.Text)
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorNo.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorName.Click
|
|
||||||
txtSubcontractorName.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorName_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorName.Enter
|
|
||||||
txtSubcontractorName.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorName_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSubcontractorName.KeyPress
|
|
||||||
If e.KeyChar = Convert.ToChar(13) Then
|
|
||||||
SendKeys.Send("{TAB}")
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtSubcontractorName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSubcontractorName.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Click
|
|
||||||
txtDescription.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtDescription.Enter
|
|
||||||
txtDescription.SelectAll()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub txtDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDescription.TextChanged
|
|
||||||
btnApplyEnabled = True
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
#Region "Others"
|
|
||||||
|
|
||||||
Private Function funAddorEdit(sender As Object) As Integer
|
|
||||||
|
|
||||||
funAddorEdit = -1
|
|
||||||
|
|
||||||
'******************************************************************************
|
|
||||||
'1.基本檢查
|
|
||||||
'******************************************************************************
|
|
||||||
If txtSubcontractorNo.Text = "" Then
|
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%SubcontractorNo%]"), MsgBoxStyle.Exclamation, Me.Text)
|
|
||||||
txtSubcontractorNo.Focus()
|
|
||||||
Exit Function
|
|
||||||
End If
|
|
||||||
|
|
||||||
If txtSubcontractorName.Text = "" Then
|
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%SubcontractorName%]"), MsgBoxStyle.Exclamation, Me.Text)
|
|
||||||
txtSubcontractorName.Focus()
|
|
||||||
Exit Function
|
|
||||||
End If
|
|
||||||
|
|
||||||
'以下为自定义的字段，如果非空字段为空，抛出异常之后退出函数（即不进行处理）
|
|
||||||
If txtNotNull.Text = "" Then
|
|
||||||
iMESExceptionManager.ExceptionManager.iMESMsgBoxShowDialog(ChgTranslateName_Msg("0000-200001", "[%NotNull%]"), MsgBoxStyle.Exclamation, Me.Text)
|
|
||||||
txtNotNull.Focus()
|
|
||||||
Exit Function
|
|
||||||
End If
|
|
||||||
|
|
||||||
'2.
|
|
||||||
'******************************************************************************
|
|
||||||
'寫回資料庫
|
|
||||||
'******************************************************************************
|
|
||||||
Dim XmlDoc As New XmlDocument
|
|
||||||
|
|
||||||
Try
|
|
||||||
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
|
||||||
strParameter = CombineXMLParameter("subcontractorno", "SubcontractorNo", "String", CInput(txtSubcontractorNo.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("subcontractorname", "SubcontractorName", "String", CInput(txtSubcontractorName.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("description", "Description", "String", CInput(txtDescription.Text), "")
|
|
||||||
'以下为自己定义的字段
|
|
||||||
strParameter = strParameter & CombineXMLParameter("notnull", "NotNull", "String", CInput(txtNotNull.Text), "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("note21706", "Note21706", "String", CInput(txtNote21706.Text), "")
|
|
||||||
|
|
||||||
If DefMode = 0 Or DefMode = 2 Then
|
|
||||||
'Add or Copy
|
|
||||||
strParameter = strParameter & CombineXMLParameter("creator", "Creator", "String", gUserNo, "")
|
|
||||||
strParameter = strParameter & CombineXMLParameter("createdate", "CreateDate", "DateTime", Format(Now, "yyyy/MM/dd HH:mm:ss"), "")
|
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
|
||||||
|
|
||||||
' 2016 YF, OutXml = wsENT.AddSubcontractor(InXml)
|
|
||||||
'OutXml = InvokeSrv("wsENT.AddSubcontractor", InXml)
|
|
||||||
'调用客制化方法
|
|
||||||
OutXml = InvokeSrv("SXS.wsENT.AddSubcontractorCustom", InXml)
|
|
||||||
|
|
||||||
Else
|
|
||||||
'修改
|
|
||||||
strParameter = strParameter & CombineXMLParameter("issuestate", "IssueState", "String", EditDataRow.Item("IssueState").ToString, "")
|
|
||||||
' 增加Datastamp
|
|
||||||
strParameter += CombineXMLParameter("datastamp", "Datastamp", "Integer", intDataStamp, "")
|
|
||||||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
|
||||||
|
|
||||||
' 2016 YF, OutXml = wsENT.EditSubcontractor(InXml)
|
|
||||||
'OutXml = InvokeSrv("wsENT.EditSubcontractor", InXml)
|
|
||||||
'调用客制化方法
|
|
||||||
OutXml = InvokeSrv("SXS.wsENT.EditSubcontractorCustom", InXml)
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
XmlDoc.LoadXml(OutXml)
|
|
||||||
If ChkExecutionSuccess(XmlDoc) Then
|
|
||||||
gReturnKeyValue = txtSubcontractorNo.Text
|
|
||||||
|
|
||||||
funAddorEdit = 0
|
|
||||||
If sender.Equals(btnApply) Then
|
|
||||||
intDataStamp += 1
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
ExceptionManager.iMESShowDialog(GetExceptionCode(XmlDoc), GetExceptionSysMsg(XmlDoc), GetExceptionStack(XmlDoc))
|
|
||||||
End If
|
|
||||||
|
|
||||||
Catch ex As Exception
|
|
||||||
'MsgBox("Unexpected Error. Add or Edit ENT Subcontractor Failed!," & e1.Message, MsgBoxStyle.Exclamation)
|
|
||||||
ExceptionManager.iMESShowDialog(defWinErrCode, ex.Message, ex.StackTrace)
|
|
||||||
End Try
|
|
||||||
|
|
||||||
XmlDoc = Nothing
|
|
||||||
|
|
||||||
End Function
|
|
||||||
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
End Class
|
|
||||||
|
|
||||||
Binary file not shown.
@ -1,10 +0,0 @@
|
|||||||
""
|
|
||||||
{
|
|
||||||
"FILE_VERSION" = "9237"
|
|
||||||
"ENLISTMENT_CHOICE" = "NEVER"
|
|
||||||
"PROJECT_FILE_RELATIVE_PATH" = ""
|
|
||||||
"NUMBER_OF_EXCLUDED_FILES" = "0"
|
|
||||||
"ORIGINAL_PROJECT_FILE_PATH" = ""
|
|
||||||
"NUMBER_OF_NESTED_PROJECTS" = "0"
|
|
||||||
"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER"
|
|
||||||
}
|
|
||||||
@ -1,31 +0,0 @@
|
|||||||
|
|
||||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
|
||||||
# Visual Studio Version 16
|
|
||||||
VisualStudioVersion = 16.0.34407.143
|
|
||||||
MinimumVisualStudioVersion = 10.0.40219.1
|
|
||||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ET_TestData21706", "ET_TestData21706.vbproj", "{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}"
|
|
||||||
EndProject
|
|
||||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Test", "..\..\Test\Test.vbproj", "{C4A48E3F-38E4-4E88-A47D-FA5510686E57}"
|
|
||||||
EndProject
|
|
||||||
Global
|
|
||||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
|
||||||
Debug|x86 = Debug|x86
|
|
||||||
Release|x86 = Release|x86
|
|
||||||
EndGlobalSection
|
|
||||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
|
||||||
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Debug|x86.ActiveCfg = Debug|x86
|
|
||||||
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Debug|x86.Build.0 = Debug|x86
|
|
||||||
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Release|x86.ActiveCfg = Release|x86
|
|
||||||
{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}.Release|x86.Build.0 = Release|x86
|
|
||||||
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Debug|x86.ActiveCfg = Debug|x86
|
|
||||||
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Debug|x86.Build.0 = Debug|x86
|
|
||||||
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Release|x86.ActiveCfg = Release|x86
|
|
||||||
{C4A48E3F-38E4-4E88-A47D-FA5510686E57}.Release|x86.Build.0 = Release|x86
|
|
||||||
EndGlobalSection
|
|
||||||
GlobalSection(SolutionProperties) = preSolution
|
|
||||||
HideSolutionNode = FALSE
|
|
||||||
EndGlobalSection
|
|
||||||
GlobalSection(ExtensibilityGlobals) = postSolution
|
|
||||||
SolutionGuid = {EDD304C3-6FB8-495A-8B20-2CFB2A234E2B}
|
|
||||||
EndGlobalSection
|
|
||||||
EndGlobal
|
|
||||||
@ -1,194 +0,0 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<Project ToolsVersion="12.0" DefaultTargets="Build" 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)' == '' ">x86</Platform>
|
|
||||||
<ProjectGuid>{D6EE7B96-F10E-44E2-9731-162B70B4C8DD}</ProjectGuid>
|
|
||||||
<OutputType>Library</OutputType>
|
|
||||||
<RootNamespace>ET_TestData21706</RootNamespace>
|
|
||||||
<AssemblyName>ET_TestData21706</AssemblyName>
|
|
||||||
<FileAlignment>512</FileAlignment>
|
|
||||||
<MyType>Windows</MyType>
|
|
||||||
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
|
|
||||||
<TargetFrameworkProfile />
|
|
||||||
<SccProjectName>SAK</SccProjectName>
|
|
||||||
<SccLocalPath>SAK</SccLocalPath>
|
|
||||||
<SccAuxPath>SAK</SccAuxPath>
|
|
||||||
<SccProvider>SAK</SccProvider>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionExplicit>On</OptionExplicit>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionCompare>Binary</OptionCompare>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionStrict>Off</OptionStrict>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionInfer>On</OptionInfer>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
|
|
||||||
<DebugSymbols>true</DebugSymbols>
|
|
||||||
<DefineDebug>true</DefineDebug>
|
|
||||||
<DefineTrace>true</DefineTrace>
|
|
||||||
<OutputPath>..\..\..\MESClient\</OutputPath>
|
|
||||||
<DocumentationFile>ET_TestData21706.xml</DocumentationFile>
|
|
||||||
<WarningLevel>0</WarningLevel>
|
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
|
||||||
<DebugType>full</DebugType>
|
|
||||||
<PlatformTarget>x86</PlatformTarget>
|
|
||||||
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
|
||||||
<Prefer32Bit>false</Prefer32Bit>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
|
|
||||||
<DefineTrace>true</DefineTrace>
|
|
||||||
<OutputPath>..\..\..\MESClient\</OutputPath>
|
|
||||||
<DocumentationFile>ET_TestData21706.xml</DocumentationFile>
|
|
||||||
<Optimize>true</Optimize>
|
|
||||||
<WarningLevel>0</WarningLevel>
|
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
|
||||||
<DebugType>pdbonly</DebugType>
|
|
||||||
<PlatformTarget>x86</PlatformTarget>
|
|
||||||
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
|
||||||
<Prefer32Bit>false</Prefer32Bit>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<SignAssembly>true</SignAssembly>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<AssemblyOriginatorKeyFile>iMES.snk</AssemblyOriginatorKeyFile>
|
|
||||||
</PropertyGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<Reference Include="Infragistics4.Win.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Win.UltraWinGrid.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.UltraWinGrid.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Win.UltraWinEditors.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.UltraWinEditors.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Win.Misc.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Win.Misc.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="Infragistics4.Shared.v19.1, Version=19.1.20191.82, Culture=neutral, PublicKeyToken=7dd5c3163f2cd0cb, processorArchitecture=MSIL">
|
|
||||||
<SpecificVersion>False</SpecificVersion>
|
|
||||||
<HintPath>C:\Program Files (x86)\Infragistics\2019.1\Windows Forms\CLR4.0\Bin\Infragistics4.Shared.v19.1.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="COM_Kit">
|
|
||||||
<HintPath>..\..\..\MESClient\COM_Kit.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="iMESExceptionManager">
|
|
||||||
<HintPath>..\..\..\MES_C_DLL\iMESExceptionManager.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="iMESUltraGrid">
|
|
||||||
<HintPath>..\..\..\MES_C_DLL\iMESUltraGrid.dll</HintPath>
|
|
||||||
<Private>False</Private>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="System" />
|
|
||||||
<Reference Include="System.Data" />
|
|
||||||
<Reference Include="System.Drawing" />
|
|
||||||
<Reference Include="System.Windows.Forms" />
|
|
||||||
<Reference Include="System.Xml" />
|
|
||||||
<Reference Include="System.Core" />
|
|
||||||
<Reference Include="System.Xml.Linq" />
|
|
||||||
</ItemGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<Import Include="COM_Kit.clsGlobalVariables" />
|
|
||||||
<Import Include="COM_Kit.clsKit" />
|
|
||||||
<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.Drawing" />
|
|
||||||
<Import Include="System.Linq" />
|
|
||||||
<Import Include="System.Windows.Forms" />
|
|
||||||
<Import Include="System.Xml" />
|
|
||||||
<Import Include="System.Xml.Linq" />
|
|
||||||
<Import Include="System.Threading.Tasks" />
|
|
||||||
</ItemGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<Compile Include="..\..\shared file\modConstant.vb">
|
|
||||||
<Link>modConstant.vb</Link>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="frmTestData21706.vb">
|
|
||||||
<SubType>Form</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="frmTestData21706ContDef.vb">
|
|
||||||
<SubType>Form</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="frmTestData21706Def.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="frmTestData21706.resx">
|
|
||||||
<DependentUpon>frmTestData21706.vb</DependentUpon>
|
|
||||||
</EmbeddedResource>
|
|
||||||
<EmbeddedResource Include="frmTestData21706ContDef.resx">
|
|
||||||
<DependentUpon>frmTestData21706ContDef.vb</DependentUpon>
|
|
||||||
</EmbeddedResource>
|
|
||||||
<EmbeddedResource Include="frmTestData21706Def.resx">
|
|
||||||
<DependentUpon>frmTestData21706Def.vb</DependentUpon>
|
|
||||||
</EmbeddedResource>
|
|
||||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
|
||||||
<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="iMES.snk" />
|
|
||||||
<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>
|
|
||||||
</ItemGroup>
|
|
||||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
|
||||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
|
||||||
Other similar extension points exist, see Microsoft.Common.targets.
|
|
||||||
<Target Name="BeforeBuild">
|
|
||||||
</Target>
|
|
||||||
<Target Name="AfterBuild">
|
|
||||||
</Target>
|
|
||||||
-->
|
|
||||||
<Import Project="..\..\shared file\MakeVersion.targets" Condition="exists('..\..\shared file\MakeVersion.targets')" />
|
|
||||||
</Project>
|
|
||||||
@ -1,13 +0,0 @@
|
|||||||
'------------------------------------------------------------------------------
|
|
||||||
' <auto-generated>
|
|
||||||
' 此代码由工具生成。
|
|
||||||
' 运行时版本:4.0.30319.42000
|
|
||||||
'
|
|
||||||
' 对此文件的更改可能会导致不正确的行为，并且如果
|
|
||||||
' 重新生成代码，这些更改将会丢失。
|
|
||||||
' </auto-generated>
|
|
||||||
'------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
Option Strict On
|
|
||||||
Option Explicit On
|
|
||||||
|
|
||||||
@ -1,10 +0,0 @@
|
|||||||
<?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>1</ApplicationType>
|
|
||||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
|
||||||
</MyApplicationData>
|
|
||||||
@ -1,35 +0,0 @@
|
|||||||
Imports System
|
|
||||||
Imports System.Reflection
|
|
||||||
Imports System.Runtime.InteropServices
|
|
||||||
|
|
||||||
' 組件的一般資訊是由下列的屬性集控制。
|
|
||||||
' 變更這些屬性的值即可修改組件的相關
|
|
||||||
' 資訊。
|
|
||||||
|
|
||||||
' 檢閱組件屬性的值
|
|
||||||
|
|
||||||
<Assembly: AssemblyTitle("ET_Subcontractor")>
|
|
||||||
<Assembly: AssemblyDescription("")>
|
|
||||||
<Assembly: AssemblyCompany("iMES Technology Inc.")>
|
|
||||||
<Assembly: AssemblyProduct("MESSeries 6")>
|
|
||||||
<Assembly: AssemblyCopyright("Copyright © iMES Technology Inc.")>
|
|
||||||
<Assembly: AssemblyTrademark("")>
|
|
||||||
|
|
||||||
<Assembly: ComVisible(False)>
|
|
||||||
|
|
||||||
'下列 GUID 為專案公開 (Expose) 至 COM 時所要使用的 typelib ID
|
|
||||||
<Assembly: Guid("cb602012-a17f-433f-b777-ace6a6a676c1")>
|
|
||||||
|
|
||||||
' 組件的版本資訊由下列四個值所組成:
|
|
||||||
'
|
|
||||||
' 主要版本
|
|
||||||
' 次要版本
|
|
||||||
' 組建編號
|
|
||||||
' 修訂編號
|
|
||||||
'
|
|
||||||
' 您可以指定所有的值，也可以依照以下的方式，使用 '*' 將組建和修訂編號
|
|
||||||
' 指定為預設值:
|
|
||||||
' <Assembly: AssemblyVersion("1.0.*")>
|
|
||||||
|
|
||||||
<Assembly: AssemblyVersion("6.0.0.0")>
|
|
||||||
|
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user