This commit is contained in:
2020-11-27 22:56:38 +01:00
parent 24dd462073
commit 65ee38135e
72 changed files with 16680 additions and 587 deletions

View File

@@ -0,0 +1,297 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{CB95CC0E-D73A-4D11-9FF8-197A392D831F}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>AVISO_CHECKIN.My.MyApplication</StartupObject>
<RootNamespace>AVISO_CHECKIN</RootNamespace>
<AssemblyName>AVISO_CHECKIN</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>AVISO_CHECKIN.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>AVISO_CHECKIN.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="ClosedXML">
<HintPath>..\..\..\dll\ClosedXML.dll</HintPath>
</Reference>
<Reference Include="DocumentFormat.OpenXml, Version=2.5.5631.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\DocumentFormat.OpenXml.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Forms.Viewer">
<HintPath>C:\Program Files (x86)\Dynamsoft\Dynamic .NET TWAIN 8.0\Redistributable\Assembly\For .NETFramework 4.0\Dynamsoft.Forms.Viewer.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.ImageCore">
<HintPath>C:\Program Files (x86)\Dynamsoft\Dynamic .NET TWAIN 8.0\Redistributable\Assembly\For .NETFramework 4.0\Dynamsoft.ImageCore.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.PDF">
<HintPath>..\..\SICHERUNG\Aviso_12.02.2018\Aviso\Aviso\bin\Debug\Dynamsoft.PDF.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Twain">
<HintPath>C:\Program Files (x86)\Dynamsoft\Dynamic .NET TWAIN 8.0\Redistributable\Assembly\For .NETFramework 4.0\Dynamsoft.Twain.dll</HintPath>
</Reference>
<Reference Include="Ghostscript.NET">
<HintPath>..\..\..\dll\Ghostscript.NET.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Document.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\GrapeCity.ActiveReports.Document.v12.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Export.Document.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\GrapeCity.ActiveReports.Export.Document.v12.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\GrapeCity.ActiveReports.Export.Pdf.v12.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\GrapeCity.ActiveReports.v12.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Common Files\GrapeCity\ActiveReports 12\GrapeCity.ActiveReports.Viewer.Win.v12.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.Documents.Pdf">
<HintPath>..\packages\GrapeCity.Documents.Pdf.2.2.0.315\lib\net461\GrapeCity.Documents.Pdf.dll</HintPath>
</Reference>
<Reference Include="itextsharp">
<HintPath>..\..\..\dll\itextsharp.dll</HintPath>
</Reference>
<Reference Include="NetSpell.SpellChecker">
<HintPath>..\..\..\dll\NetSpell.SpellChecker.DLL</HintPath>
</Reference>
<Reference Include="Newtonsoft.Json, Version=6.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL" />
<Reference Include="Spire.Pdf">
<HintPath>..\..\..\dll\PDF Spire\6.10\Spire.Pdf.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.DirectoryServices" />
<Reference Include="System.Drawing" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="frmCheckIn.Designer.vb">
<DependentUpon>frmCheckIn.vb</DependentUpon>
</Compile>
<Compile Include="frmCheckIn.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>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="usrCntlFinish.Designer.vb">
<DependentUpon>usrCntlFinish.vb</DependentUpon>
</Compile>
<Compile Include="usrCntlFinish.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrCntlFound.Designer.vb">
<DependentUpon>usrCntlFound.vb</DependentUpon>
</Compile>
<Compile Include="usrCntlFound.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrCntlSearch.Designer.vb">
<DependentUpon>usrCntlSearch.vb</DependentUpon>
</Compile>
<Compile Include="usrCntlSearch.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrCntlWelcome.Designer.vb">
<DependentUpon>usrCntlWelcome.vb</DependentUpon>
</Compile>
<Compile Include="usrCntlWelcome.vb">
<SubType>UserControl</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="frmCheckIn.resx">
<DependentUpon>frmCheckIn.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>
<EmbeddedResource Include="usrCntlFinish.resx">
<DependentUpon>usrCntlFinish.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrCntlFound.resx">
<DependentUpon>usrCntlFound.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrCntlSearch.resx">
<DependentUpon>usrCntlSearch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrCntlWelcome.resx">
<DependentUpon>usrCntlWelcome.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\flag_srb.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\flag_srb2.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\flag_tr.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\handy_QR.jpg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\lan_de.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\lan_eng.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\qr_search.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\timer.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\searchGG.png" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\..\SDL\SDL\SDL\SDL.vbproj">
<Project>{289bcd77-bc00-4ba1-95ed-a79176d99525}</Project>
<Name>SDL</Name>
</ProjectReference>
<ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{A3B497BD-842C-4A2B-B398-ED1976849DF1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>
</ProjectReference>
<ProjectReference Include="..\Aviso\Aviso.vbproj">
<Project>{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}</Project>
<Name>Aviso</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup>
<None Include="Resources\LKW_mit_Aufleger.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\LKW.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Sprinter.jpg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Sprinter.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Logo_blue_globe_Horizontal.jpg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\FO_white.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\EMail-Signatur.jpg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Verag-AG-Logopng.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Unisped_logo.jpg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\IMEX-LOGO_simple.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\fragezeichen.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

6
AVISO_CHECKIN/App.config Normal file
View File

@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" />
</startup>
</configuration>

31
AVISO_CHECKIN/Form1.Designer.vb generated Normal file
View File

@@ -0,0 +1,31 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Text = "Form1"
End Sub
End Class

3
AVISO_CHECKIN/Form1.vb Normal file
View File

@@ -0,0 +1,3 @@
Public Class Form1
End Class

View File

@@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.AVISO_CHECKIN.frmCheckIn
End Sub
End Class
End Namespace

View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>frmCheckIn</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die einer Assembly zugeordnet sind.
' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("AVISO_CHECKIN")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("AVISO_CHECKIN")>
<Assembly: AssemblyCopyright("Copyright © 2020")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
<Assembly: Guid("09cd248d-00b5-4889-95a8-8a01842d88d9")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

View File

@@ -0,0 +1,263 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.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>
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</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("AVISO_CHECKIN.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property EMail_Signatur() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("EMail-Signatur", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property flag_srb() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("flag_srb", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property flag_srb2() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("flag_srb2", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property flag_tr() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("flag_tr", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property FO_white() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("FO_white", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property fragezeichen() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("fragezeichen", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property handy_QR() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("handy_QR", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property IMEX_LOGO_simple() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("IMEX-LOGO_simple", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property lan_de() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("lan_de", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property lan_eng() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("lan_eng", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property LKW() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("LKW", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property LKW_mit_Aufleger() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("LKW_mit_Aufleger", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Logo_blue_globe_Horizontal() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Logo_blue_globe_Horizontal", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property qr_search() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("qr_search", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property searchGG() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("searchGG", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Sprinter() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Sprinter", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Sprinter1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Sprinter1", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property timer() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("timer", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Unisped_logo() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Unisped_logo", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Verag_AG_Logopng() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Verag-AG-Logopng", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

View File

@@ -0,0 +1,181 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Sprinter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Sprinter.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="EMail-Signatur" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\EMail-Signatur.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="LKW_mit_Aufleger" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\LKW_mit_Aufleger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lan_de" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lan_de.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lan_eng" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lan_eng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="handy_QR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handy_QR.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Logo_blue_globe_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="qr_search" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\qr_search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flag_tr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_tr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="searchGG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\searchGG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Sprinter1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Sprinter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="FO_white" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\FO_white.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flag_srb" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_srb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="timer" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\timer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="LKW" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\LKW.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flag_srb2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_srb2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag-AG-Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

View File

@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.AVISO_CHECKIN.My.MySettings
Get
Return Global.AVISO_CHECKIN.My.MySettings.Default
End Get
End Property
End Module
End Namespace

View File

@@ -0,0 +1,7 @@
<?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>

View File

@@ -0,0 +1,5 @@
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
Spire.PdfViewer.Forms.PdfDocumentViewer, Spire.PdfViewer.Forms, Version=4.5.1.3046, Culture=neutral, PublicKeyToken=663f351905198cb3
GrapeCity.ActiveReports.Export.Excel.Section.XlsExport, GrapeCity.ActiveReports.Export.Excel.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff

Binary file not shown.

After

Width:  |  Height:  |  Size: 102 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 369 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 89 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 10 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 86 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 17 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 26 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 113 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 32 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 311 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 100 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 41 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 31 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 54 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 29 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 16 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 21 KiB

329
AVISO_CHECKIN/frmCheckIn.Designer.vb generated Normal file
View File

@@ -0,0 +1,329 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmCheckIn
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmCheckIn))
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnResetSearch = New System.Windows.Forms.Button()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.lbl = New System.Windows.Forms.Label()
Me.Panel = New System.Windows.Forms.Panel()
Me.Timer = New System.Windows.Forms.Timer(Me.components)
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.timerResetDefault = New System.Windows.Forms.Timer(Me.components)
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.FlowLayoutPanel.SuspendLayout()
Me.Panel.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Panel3)
Me.pnl.Controls.Add(Me.Panel1)
Me.pnl.Controls.Add(Me.Panel)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(1577, 559)
Me.pnl.TabIndex = 1
'
'Panel3
'
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(0, 121)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(1575, 364)
Me.Panel3.TabIndex = 9
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.btnResetSearch)
Me.Panel1.Controls.Add(Me.FlowLayoutPanel)
Me.Panel1.Controls.Add(Me.lbl)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1575, 121)
Me.Panel1.TabIndex = 2
'
'Label1
'
Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.Font = New System.Drawing.Font("Arial", 50.0!, System.Drawing.FontStyle.Bold)
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(467, -1)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(565, 121)
Me.Label1.TabIndex = 3
Me.Label1.Text = "SELF CHECK-IN"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'btnResetSearch
'
Me.btnResetSearch.BackColor = System.Drawing.Color.FromArgb(CType(CType(210, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
Me.btnResetSearch.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnResetSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnResetSearch.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.btnResetSearch.ForeColor = System.Drawing.Color.White
Me.btnResetSearch.Location = New System.Drawing.Point(14, 3)
Me.btnResetSearch.Name = "btnResetSearch"
Me.btnResetSearch.Size = New System.Drawing.Size(236, 51)
Me.btnResetSearch.TabIndex = 1
Me.btnResetSearch.Text = "X RESET"
Me.btnResetSearch.UseVisualStyleBackColor = False
Me.btnResetSearch.Visible = False
'
'FlowLayoutPanel
'
Me.FlowLayoutPanel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.FlowLayoutPanel.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.FlowLayoutPanel.Controls.Add(Me.btn)
Me.FlowLayoutPanel.Controls.Add(Me.Button1)
Me.FlowLayoutPanel.Controls.Add(Me.Button2)
Me.FlowLayoutPanel.Controls.Add(Me.Button4)
Me.FlowLayoutPanel.Controls.Add(Me.Button5)
Me.FlowLayoutPanel.Controls.Add(Me.Button3)
Me.FlowLayoutPanel.Location = New System.Drawing.Point(1073, 3)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(491, 75)
Me.FlowLayoutPanel.TabIndex = 2
'
'Button4
'
Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button4.Location = New System.Drawing.Point(246, 3)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 63)
Me.Button4.TabIndex = 4
Me.Button4.Tag = "RUS"
Me.Button4.UseVisualStyleBackColor = True
Me.Button4.Visible = False
'
'Button5
'
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button5.Location = New System.Drawing.Point(327, 3)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(75, 63)
Me.Button5.TabIndex = 5
Me.Button5.Tag = "BG"
Me.Button5.UseVisualStyleBackColor = True
Me.Button5.Visible = False
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.lbl.ForeColor = System.Drawing.Color.White
Me.lbl.Location = New System.Drawing.Point(10, 57)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(240, 20)
Me.lbl.TabIndex = 0
Me.lbl.Text = "Bitte scannen Sie den QR-Code:"
Me.lbl.Visible = False
'
'Panel
'
Me.Panel.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel.Controls.Add(Me.Label3)
Me.Panel.Controls.Add(Me.Label2)
Me.Panel.Controls.Add(Me.PictureBox1)
Me.Panel.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel.Location = New System.Drawing.Point(0, 485)
Me.Panel.Name = "Panel"
Me.Panel.Size = New System.Drawing.Size(1575, 72)
Me.Panel.TabIndex = 0
'
'Timer
'
Me.Timer.Interval = 1000
'
'Timer1
'
Me.Timer1.Enabled = True
'
'timerResetDefault
'
Me.timerResetDefault.Enabled = True
Me.timerResetDefault.Interval = 5000
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(1387, 5)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(179, 60)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Tel.: +43 7711 / 31636 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "suben@front-office.eu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.front-office.eu"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Label3.ForeColor = System.Drawing.Color.White
Me.Label3.Location = New System.Drawing.Point(7, 6)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(171, 60)
Me.Label3.TabIndex = 19
Me.Label3.Text = "Front-Office Suben eG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben Nr. 14" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben"
'
'btn
'
Me.btn.BackgroundImage = CType(resources.GetObject("btn.BackgroundImage"), System.Drawing.Image)
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.btn.Location = New System.Drawing.Point(3, 3)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(75, 63)
Me.btn.TabIndex = 0
Me.btn.Tag = "DE"
Me.btn.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image)
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button1.Location = New System.Drawing.Point(84, 3)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 63)
Me.Button1.TabIndex = 1
Me.Button1.Tag = "EN"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.BackgroundImage = CType(resources.GetObject("Button2.BackgroundImage"), System.Drawing.Image)
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button2.Location = New System.Drawing.Point(165, 3)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 63)
Me.Button2.TabIndex = 2
Me.Button2.Tag = "SRB"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.BackgroundImage = CType(resources.GetObject("Button3.BackgroundImage"), System.Drawing.Image)
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button3.Location = New System.Drawing.Point(408, 3)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 63)
Me.Button3.TabIndex = 3
Me.Button3.Tag = "TR"
Me.Button3.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox1.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.FO_white
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(480, 12)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(552, 54)
Me.PictureBox1.TabIndex = 18
Me.PictureBox1.TabStop = False
'
'frmCheckIn
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1577, 559)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmCheckIn"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Info"
Me.TopMost = True
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
Me.pnl.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.FlowLayoutPanel.ResumeLayout(False)
Me.Panel.ResumeLayout(False)
Me.Panel.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As Panel
Friend WithEvents Panel1 As Panel
Friend WithEvents lbl As Label
Friend WithEvents Panel As Panel
Friend WithEvents FlowLayoutPanel As FlowLayoutPanel
Friend WithEvents btn As Button
Friend WithEvents Timer As Timer
Friend WithEvents btnResetSearch As Button
Friend WithEvents Timer1 As Timer
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button
Friend WithEvents Button4 As Button
Friend WithEvents Button5 As Button
Public WithEvents timerResetDefault As Timer
Friend WithEvents Panel3 As Panel
Friend WithEvents Label1 As Label
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label3 As Label
Friend WithEvents Label2 As Label
End Class

File diff suppressed because it is too large Load Diff

106
AVISO_CHECKIN/frmCheckIn.vb Normal file
View File

@@ -0,0 +1,106 @@

Public Class frmCheckIn
Dim cAvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
Dim LAN = "DE"
Private Sub frmInfo_Load(sender As Object, e As EventArgs) Handles Me.Load
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim cOptionenDAL As New SDL.cOptionenDAL
If Not cOptionenDAL.checkLogin("CHECKIN", "CHECKIN", "AVISO") Then 'XXXXXX Or true
Me.Close()
End If
'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE"
'VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB"
SET_WELCOME()
End Sub
Public Sub SET_WELCOME()
LAN = "DE"
Panel.Visible = True
btnResetSearch.Visible = False
FlowLayoutPanel.Visible = False
' PictureBox1.Visible = False
If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
Dim USRCNTL As New usrCntlWelcome(Me)
setPos(USRCNTL)
Panel3.Controls.Add(USRCNTL)
End Sub
Public Sub SET_LANGUAGE(LAN)
Me.LAN = LAN
End Sub
Public Sub SET_SEARCH()
Panel.Visible = False
btnResetSearch.Visible = True
FlowLayoutPanel.Visible = True
' PictureBox1.Visible = True
If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
Dim USRCNTL As New usrCntlSearch(Me)
setPos(USRCNTL)
Panel3.Controls.Add(USRCNTL)
End Sub
Public Sub SET_FOUND(AvisoId)
Panel.Visible = False
btnResetSearch.Visible = True
FlowLayoutPanel.Visible = True
' PictureBox1.Visible = True
If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
Dim USRCNTL As New usrCntlFound(Me, cAvisoDAL.LesenAviso(AvisoId, ""))
setPos(USRCNTL)
Panel3.Controls.Add(USRCNTL)
End Sub
Public Sub SET_FINISH(AVISO)
Panel.Visible = False
btnResetSearch.Visible = True
FlowLayoutPanel.Visible = True
' PictureBox1.Visible = True
If Panel3.Controls.Count > 0 Then Panel3.Controls(0).Dispose() : Panel3.Controls.Clear()
Dim USRCNTL As New usrCntlFinish(Me, AVISO)
setPos(USRCNTL, True)
Panel3.Controls.Add(USRCNTL)
End Sub
Public Sub TRANSLATE(CNTL As Control, Optional forceDETraslation As Boolean = False)
If LAN = "DE" And Not forceDETraslation Then Exit Sub
Exit Sub 'TEST
For Each c As Control In CNTL.Controls
If c.Controls.Count > 0 Then
TRANSLATE(c)
Else
Select Case c.GetType.ToString
Case GetType(TextBox).ToString
'NIX
Case GetType(Label).ToString, GetType(CheckBox).ToString, GetType(Button).ToString
c.Text = "OOO"
End Select
End If
Next
End Sub
Sub setPos(ByRef USRCNTL As Control, Optional fill As Boolean = False)
If fill Then
USRCNTL.Dock = DockStyle.Fill
Else
USRCNTL.Left = (Panel3.Width - USRCNTL.Width) / 2
USRCNTL.Top = 0
USRCNTL.Height = Panel3.Height
End If
End Sub
Private Sub btnResetSearch_Click(sender As Object, e As EventArgs) Handles btnResetSearch.Click
SET_WELCOME()
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click, Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click
LAN = sender.tag
TRANSLATE(Me)
End Sub '
End Class

160
AVISO_CHECKIN/usrCntlFinish.Designer.vb generated Normal file
View File

@@ -0,0 +1,160 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlFinish
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.lblKennzeichen = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Timer = New System.Windows.Forms.Timer(Me.components)
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lblKennzeichen
'
Me.lblKennzeichen.BackColor = System.Drawing.Color.SeaGreen
Me.lblKennzeichen.Dock = System.Windows.Forms.DockStyle.Top
Me.lblKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 60.0!, System.Drawing.FontStyle.Bold)
Me.lblKennzeichen.ForeColor = System.Drawing.Color.White
Me.lblKennzeichen.Location = New System.Drawing.Point(0, 0)
Me.lblKennzeichen.Name = "lblKennzeichen"
Me.lblKennzeichen.Size = New System.Drawing.Size(1562, 165)
Me.lblKennzeichen.TabIndex = 4
Me.lblKennzeichen.Text = "FERTIG!"
Me.lblKennzeichen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label3.Location = New System.Drawing.Point(785, 200)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(293, 46)
Me.Label3.TabIndex = 10
Me.Label3.Text = "2. AKT:"
'
'btn
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(605, 788)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(347, 87)
Me.btn.TabIndex = 19
Me.btn.Text = "RESET (30)"
Me.btn.UseVisualStyleBackColor = False
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label1.Location = New System.Drawing.Point(72, 200)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(293, 46)
Me.Label1.TabIndex = 20
Me.Label1.Text = "1. TICKET:"
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label2.Location = New System.Drawing.Point(72, 647)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(682, 46)
Me.Label2.TabIndex = 22
Me.Label2.Text = "TICKET BITTE BEHALTEN"
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label4.Location = New System.Drawing.Point(785, 647)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(688, 121)
Me.Label4.TabIndex = 23
Me.Label4.Text = "BITTE ALLE UNTERLAGEN IN DEN AKT GEBEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UND INS FRONT-OFFICE BRINGEN"
'
'Timer
'
Me.Timer.Enabled = True
Me.Timer.Interval = 1000
'
'PictureBox2
'
Me.PictureBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox2.Location = New System.Drawing.Point(792, 249)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(681, 395)
Me.PictureBox2.TabIndex = 24
Me.PictureBox2.TabStop = False
'
'PictureBox1
'
Me.PictureBox1.Location = New System.Drawing.Point(79, 249)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(675, 395)
Me.PictureBox1.TabIndex = 21
Me.PictureBox1.TabStop = False
'
'usrCntlFinish
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.lblKennzeichen)
Me.Name = "usrCntlFinish"
Me.Size = New System.Drawing.Size(1562, 878)
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents lblKennzeichen As Label
Friend WithEvents Label3 As Label
Friend WithEvents PictureBox2 As PictureBox
Friend WithEvents btn As Button
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Timer As Timer
End Class

View File

@@ -0,0 +1,123 @@
<?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="Timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

View File

@@ -0,0 +1,55 @@
Imports AVISO
Public Class usrCntlFinish
Dim MAIN As frmCheckIn
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso
Sub New(MAIN, AVISO)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.MAIN = MAIN
Me.AVISO = AVISO
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlFound_Load(sender As Object, e As EventArgs) Handles Me.Load
MAIN.TRANSLATE(Me)
If AVISO IsNot Nothing Then
Dim printerINFO = SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
Dim printerStandard = SDL.cProgramFunctions.getDruckernameBySearch("XXXXXXX", True)
' If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("TICKET_ANKUNFT") Then
Dim rpt As New rptQRAviso(AVISO)
If printerINFO <> "" Then
SDL.cProgramFunctions.printRpt(rpt, printerINFO, True)
Else
SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
End If
'End If
SDL.FormularManagerNEU.Sammelakt_CheckIn(AVISO, Nothing, True, printerStandard)
Else
MAIN.SET_WELCOME()
End If
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
MAIN.SET_WELCOME()
End Sub
Dim cnt = 30
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
If cnt = 0 Then
MAIN.SET_WELCOME()
End If
btn.Text = "RESET (" & cnt & ")"
cnt -= 1
End Sub
End Class

410
AVISO_CHECKIN/usrCntlFound.Designer.vb generated Normal file
View File

@@ -0,0 +1,410 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlFound
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.lblKennzeichen = New System.Windows.Forms.Label()
Me.txtFahrername = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtHandy = New System.Windows.Forms.TextBox()
Me.cbxHandyKeineAngabe = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.lblAvisierer = New System.Windows.Forms.Label()
Me.lblFraechter = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.lblErrName = New System.Windows.Forms.Label()
Me.lblErrHandy = New System.Windows.Forms.Label()
Me.lblErrFahrzeugtyp = New System.Windows.Forms.Label()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.CheckBox4 = New System.Windows.Forms.CheckBox()
Me.lblErrSpedition = New System.Windows.Forms.Label()
Me.pnl = New System.Windows.Forms.Panel()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
'
'lblKennzeichen
'
Me.lblKennzeichen.BackColor = System.Drawing.Color.PapayaWhip
Me.lblKennzeichen.Font = New System.Drawing.Font("Microsoft Sans Serif", 60.0!, System.Drawing.FontStyle.Bold)
Me.lblKennzeichen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lblKennzeichen.Location = New System.Drawing.Point(675, 58)
Me.lblKennzeichen.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblKennzeichen.Name = "lblKennzeichen"
Me.lblKennzeichen.Size = New System.Drawing.Size(1560, 195)
Me.lblKennzeichen.TabIndex = 4
Me.lblKennzeichen.Text = "34SD123AD/34SD123AD"
Me.lblKennzeichen.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'txtFahrername
'
Me.txtFahrername.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
Me.txtFahrername.Location = New System.Drawing.Point(1110, 475)
Me.txtFahrername.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.txtFahrername.Name = "txtFahrername"
Me.txtFahrername.Size = New System.Drawing.Size(1123, 75)
Me.txtFahrername.TabIndex = 5
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label2.Location = New System.Drawing.Point(54, 45)
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(520, 71)
Me.Label2.TabIndex = 9
Me.Label2.Text = "Bitte Typ auswählen:"
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label3.Location = New System.Drawing.Point(662, 475)
Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(440, 71)
Me.Label3.TabIndex = 10
Me.Label3.Text = "Soför Name:"
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label4.Location = New System.Drawing.Point(662, 566)
Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(440, 71)
Me.Label4.TabIndex = 12
Me.Label4.Text = "Handy-Nr (SMS):"
'
'txtHandy
'
Me.txtHandy.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
Me.txtHandy.Location = New System.Drawing.Point(1110, 566)
Me.txtHandy.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.txtHandy.Name = "txtHandy"
Me.txtHandy.Size = New System.Drawing.Size(1123, 75)
Me.txtHandy.TabIndex = 11
'
'cbxHandyKeineAngabe
'
Me.cbxHandyKeineAngabe.AutoSize = True
Me.cbxHandyKeineAngabe.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.cbxHandyKeineAngabe.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.cbxHandyKeineAngabe.Location = New System.Drawing.Point(1110, 657)
Me.cbxHandyKeineAngabe.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.cbxHandyKeineAngabe.Name = "cbxHandyKeineAngabe"
Me.cbxHandyKeineAngabe.Size = New System.Drawing.Size(365, 62)
Me.cbxHandyKeineAngabe.TabIndex = 13
Me.cbxHandyKeineAngabe.Text = "Keine Angabe"
Me.cbxHandyKeineAngabe.UseVisualStyleBackColor = True
'
'Label5
'
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label5.Location = New System.Drawing.Point(1102, 715)
Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(854, 51)
Me.Label5.TabIndex = 14
Me.Label5.Text = "(Sie erhalen keine Nachrichten, wenn der LKW fertig ist)"
'
'lblAvisierer
'
Me.lblAvisierer.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold)
Me.lblAvisierer.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblAvisierer.Location = New System.Drawing.Point(672, 354)
Me.lblAvisierer.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblAvisierer.Name = "lblAvisierer"
Me.lblAvisierer.Size = New System.Drawing.Size(1563, 71)
Me.lblAvisierer.TabIndex = 18
Me.lblAvisierer.Text = "Avisierer"
Me.lblAvisierer.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblAvisierer.Visible = False
'
'lblFraechter
'
Me.lblFraechter.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold)
Me.lblFraechter.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblFraechter.Location = New System.Drawing.Point(672, 263)
Me.lblFraechter.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblFraechter.Name = "lblFraechter"
Me.lblFraechter.Size = New System.Drawing.Size(1563, 71)
Me.lblFraechter.TabIndex = 17
Me.lblFraechter.Text = "Firma"
Me.lblFraechter.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'btn
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(1818, 1092)
Me.btn.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(520, 134)
Me.btn.TabIndex = 19
Me.btn.Text = "WEITER >>"
Me.btn.UseVisualStyleBackColor = False
'
'lblErrName
'
Me.lblErrName.BackColor = System.Drawing.Color.Red
Me.lblErrName.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
Me.lblErrName.ForeColor = System.Drawing.Color.White
Me.lblErrName.Location = New System.Drawing.Point(1612, 420)
Me.lblErrName.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblErrName.Name = "lblErrName"
Me.lblErrName.Size = New System.Drawing.Size(622, 51)
Me.lblErrName.TabIndex = 20
Me.lblErrName.Text = "Bitte geben Sie Ihren Namen ein!"
Me.lblErrName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblErrName.Visible = False
'
'lblErrHandy
'
Me.lblErrHandy.BackColor = System.Drawing.Color.Red
Me.lblErrHandy.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
Me.lblErrHandy.ForeColor = System.Drawing.Color.White
Me.lblErrHandy.Location = New System.Drawing.Point(1612, 652)
Me.lblErrHandy.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblErrHandy.Name = "lblErrHandy"
Me.lblErrHandy.Size = New System.Drawing.Size(622, 51)
Me.lblErrHandy.TabIndex = 21
Me.lblErrHandy.Text = "Bitte geben Sie Ihre Handy-Nr. ein!"
Me.lblErrHandy.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblErrHandy.Visible = False
'
'lblErrFahrzeugtyp
'
Me.lblErrFahrzeugtyp.BackColor = System.Drawing.Color.Red
Me.lblErrFahrzeugtyp.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
Me.lblErrFahrzeugtyp.ForeColor = System.Drawing.Color.White
Me.lblErrFahrzeugtyp.Location = New System.Drawing.Point(64, 1120)
Me.lblErrFahrzeugtyp.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblErrFahrzeugtyp.Name = "lblErrFahrzeugtyp"
Me.lblErrFahrzeugtyp.Padding = New System.Windows.Forms.Padding(8, 8, 8, 8)
Me.lblErrFahrzeugtyp.Size = New System.Drawing.Size(474, 95)
Me.lblErrFahrzeugtyp.TabIndex = 22
Me.lblErrFahrzeugtyp.Text = "Bitte geben Sie den " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Fahrzeugtyp an!"
Me.lblErrFahrzeugtyp.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblErrFahrzeugtyp.Visible = False
'
'PictureBox2
'
Me.PictureBox2.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.Sprinter1
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Location = New System.Drawing.Point(64, 772)
Me.PictureBox2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(474, 317)
Me.PictureBox2.TabIndex = 16
Me.PictureBox2.TabStop = False
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.LKW
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(64, 446)
Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(474, 317)
Me.PictureBox1.TabIndex = 15
Me.PictureBox1.TabStop = False
'
'pic
'
Me.pic.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.LKW_mit_Aufleger
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Location = New System.Drawing.Point(64, 120)
Me.pic.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(474, 317)
Me.pic.TabIndex = 8
Me.pic.TabStop = False
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label1.Location = New System.Drawing.Point(3, 7)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(440, 71)
Me.Label1.TabIndex = 23
Me.Label1.Text = "Spedition:"
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.CheckBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.CheckBox1.Location = New System.Drawing.Point(451, 6)
Me.CheckBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(225, 62)
Me.CheckBox1.TabIndex = 24
Me.CheckBox1.Text = "VERAG"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'CheckBox2
'
Me.CheckBox2.AutoSize = True
Me.CheckBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.CheckBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.CheckBox2.Location = New System.Drawing.Point(451, 78)
Me.CheckBox2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(272, 62)
Me.CheckBox2.TabIndex = 25
Me.CheckBox2.Text = "UNISPED"
Me.CheckBox2.UseVisualStyleBackColor = True
'
'CheckBox3
'
Me.CheckBox3.AutoSize = True
Me.CheckBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.CheckBox3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.CheckBox3.Location = New System.Drawing.Point(451, 150)
Me.CheckBox3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(173, 62)
Me.CheckBox3.TabIndex = 26
Me.CheckBox3.Text = "IMEX"
Me.CheckBox3.UseVisualStyleBackColor = True
'
'CheckBox4
'
Me.CheckBox4.AutoSize = True
Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.CheckBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.CheckBox4.Location = New System.Drawing.Point(451, 222)
Me.CheckBox4.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.CheckBox4.Name = "CheckBox4"
Me.CheckBox4.Size = New System.Drawing.Size(292, 62)
Me.CheckBox4.TabIndex = 27
Me.CheckBox4.Text = "(ANDERE)"
Me.CheckBox4.UseVisualStyleBackColor = True
'
'lblErrSpedition
'
Me.lblErrSpedition.BackColor = System.Drawing.Color.Red
Me.lblErrSpedition.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!)
Me.lblErrSpedition.ForeColor = System.Drawing.Color.White
Me.lblErrSpedition.Location = New System.Drawing.Point(659, 1120)
Me.lblErrSpedition.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblErrSpedition.Name = "lblErrSpedition"
Me.lblErrSpedition.Size = New System.Drawing.Size(875, 51)
Me.lblErrSpedition.TabIndex = 28
Me.lblErrSpedition.Text = "Bitte wählen Sie eine Spedition aus!"
Me.lblErrSpedition.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblErrSpedition.Visible = False
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.PapayaWhip
Me.pnl.Controls.Add(Me.CheckBox4)
Me.pnl.Controls.Add(Me.CheckBox3)
Me.pnl.Controls.Add(Me.CheckBox2)
Me.pnl.Controls.Add(Me.CheckBox1)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Location = New System.Drawing.Point(659, 823)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(875, 297)
Me.pnl.TabIndex = 29
'
'usrCntlFound
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pnl)
Me.Controls.Add(Me.lblErrSpedition)
Me.Controls.Add(Me.lblErrFahrzeugtyp)
Me.Controls.Add(Me.lblErrHandy)
Me.Controls.Add(Me.lblErrName)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.lblAvisierer)
Me.Controls.Add(Me.lblFraechter)
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.cbxHandyKeineAngabe)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtHandy)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.pic)
Me.Controls.Add(Me.txtFahrername)
Me.Controls.Add(Me.lblKennzeichen)
Me.Controls.Add(Me.Label5)
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.Name = "usrCntlFound"
Me.Size = New System.Drawing.Size(2343, 1249)
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lblKennzeichen As Label
Friend WithEvents txtFahrername As TextBox
Friend WithEvents pic As PictureBox
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents txtHandy As TextBox
Friend WithEvents cbxHandyKeineAngabe As CheckBox
Friend WithEvents Label5 As Label
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents PictureBox2 As PictureBox
Friend WithEvents lblAvisierer As Label
Friend WithEvents lblFraechter As Label
Friend WithEvents btn As Button
Friend WithEvents lblErrName As Label
Friend WithEvents lblErrHandy As Label
Friend WithEvents lblErrFahrzeugtyp As Label
Friend WithEvents Label1 As Label
Friend WithEvents CheckBox1 As CheckBox
Friend WithEvents CheckBox2 As CheckBox
Friend WithEvents CheckBox3 As CheckBox
Friend WithEvents CheckBox4 As CheckBox
Friend WithEvents lblErrSpedition As Label
Friend WithEvents pnl As Panel
End Class

View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

View File

@@ -0,0 +1,85 @@
Public Class usrCntlFound
Dim MAIN As frmCheckIn
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso
Dim FTYP As eFahrzeugtyp = eFahrzeugtyp.None
Sub New(MAIN, AVISO)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.MAIN = MAIN
Me.AVISO = AVISO
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub usrCntlFound_Load(sender As Object, e As EventArgs) Handles Me.Load
txtFahrername.Focus()
MAIN.TRANSLATE(Me)
If AVISO IsNot Nothing Then
lblKennzeichen.Text = AVISO.LKW_Nr
lblFraechter.Text = AVISO.Frächter
lblAvisierer.Text = AVISO.Auftraggeber
'txtFahrername.Text = AVISO.FahrerHandy
txtHandy.Text = AVISO.FahrerHandy
Else
MAIN.SET_WELCOME()
End If
End Sub
Private Sub cbxHandyKeineAngabe_CheckedChanged(sender As Object, e As EventArgs) Handles cbxHandyKeineAngabe.CheckedChanged
txtHandy.Enabled = Not cbxHandyKeineAngabe.Checked
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
lblErrName.Visible = False
lblErrHandy.Visible = False
lblErrFahrzeugtyp.Visible = False
If txtFahrername.Text.Trim = "" Then
lblErrName.Visible = True
txtFahrername.Focus()
Exit Sub
End If
If Not cbxHandyKeineAngabe.Checked AndAlso txtHandy.Text.Trim = "" Then
lblErrHandy.Visible = True
txtHandy.Focus()
Exit Sub
End If
If FTYP = eFahrzeugtyp.None Then
lblErrFahrzeugtyp.Visible = True : Exit Sub
End If
MAIN.SET_FINISH(AVISO)
End Sub
Enum eFahrzeugtyp
None = 0
LKW_Auflieger = 1
LKW = 2
Sprinter = 3
End Enum
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, PictureBox1.Click, PictureBox2.Click
pic.BackColor = Color.White
PictureBox1.BackColor = Color.White
PictureBox2.BackColor = Color.White
pic.BorderStyle = BorderStyle.None
PictureBox1.BorderStyle = BorderStyle.None
PictureBox2.BorderStyle = BorderStyle.None
If sender Is pic Then FTYP = 1 : pic.BorderStyle = BorderStyle.FixedSingle
If sender Is PictureBox1 Then FTYP = 2 : PictureBox1.BorderStyle = BorderStyle.FixedSingle
If sender Is PictureBox2 Then FTYP = 3 : PictureBox2.BorderStyle = BorderStyle.FixedSingle
sender.BackColor = Color.PapayaWhip
End Sub
End Class

169
AVISO_CHECKIN/usrCntlSearch.Designer.vb generated Normal file
View File

@@ -0,0 +1,169 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlSearch
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlSearch))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Label1 = New System.Windows.Forms.Label()
Me.txt = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.btn = New System.Windows.Forms.Button()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label1.Location = New System.Drawing.Point(3, 85)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(1556, 46)
Me.Label1.TabIndex = 4
Me.Label1.Text = "Bitte geben Sie das Kennzeichen oder den Frächter ein und wählen Sie einen Eintra" &
"g aus:"
'
'txt
'
Me.txt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txt.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
Me.txt.Location = New System.Drawing.Point(3, 134)
Me.txt.Name = "txt"
Me.txt.Size = New System.Drawing.Size(1475, 53)
Me.txt.TabIndex = 5
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!)
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(1212, 613)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(347, 87)
Me.Button1.TabIndex = 20
Me.Button1.Text = "WEITER >>"
Me.Button1.UseVisualStyleBackColor = False
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label2.Location = New System.Drawing.Point(152, 597)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(986, 116)
Me.Label2.TabIndex = 22
Me.Label2.Text = "Sie können Ihr Fahrzeug nicht finden?" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Bitte melden Sie sich am Schalter."
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'PictureBox1
'
Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.PictureBox1.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.fragezeichen
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(10, 597)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(124, 116)
Me.PictureBox1.TabIndex = 21
Me.PictureBox1.TabStop = False
'
'btn
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.BackgroundImage = CType(resources.GetObject("btn.BackgroundImage"), System.Drawing.Image)
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(1484, 134)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(75, 53)
Me.btn.TabIndex = 6
Me.btn.UseVisualStyleBackColor = True
'
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.AllowUserToAddRows = False
Me.MyDatagridview1.AllowUserToDeleteRows = False
Me.MyDatagridview1.AllowUserToResizeColumns = False
Me.MyDatagridview1.AllowUserToResizeRows = False
Me.MyDatagridview1.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.MyDatagridview1.BackgroundColor = System.Drawing.Color.WhiteSmoke
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.ColumnHeadersVisible = False
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.MyDatagridview1.DefaultCellStyle = DataGridViewCellStyle1
Me.MyDatagridview1.Location = New System.Drawing.Point(3, 194)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.ReadOnly = True
Me.MyDatagridview1.RowHeadersVisible = False
Me.MyDatagridview1.RowTemplate.Height = 60
Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.MyDatagridview1.Size = New System.Drawing.Size(1556, 377)
Me.MyDatagridview1.TabIndex = 7
'
'usrCntlSearch
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.MyDatagridview1)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.txt)
Me.Controls.Add(Me.Label1)
Me.Name = "usrCntlSearch"
Me.Size = New System.Drawing.Size(1562, 713)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents txt As TextBox
Friend WithEvents btn As Button
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Button1 As Button
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label2 As Label
End Class

View File

@@ -0,0 +1,278 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btn.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAABGdBTUEAALGPC/xhBQAAI19JREFUeF7t
3f+Z1Dj2L+DdjoAQOgQy+JLBkMGQwZDBTgZLBkMGQwaQAWQAGUAG957TdrM9xgXdVbZLR3rf5/n8cX/s
IFfL9rEsyf+CRj2P/N+c3yP/ydzc3Pz33//+9/sT+X+PzNr/9n3+t+//nfnfvP/3sy0AwAbyxvpb5OFN
/WNk7YbdUrKND4uFPIY8FgBg9iySN8c/4ob5V944H9xIe00WB3/lMc/Hnr8BAHQrh8nvhurzJhj5+uCm
OHryt3ifv838G3mlAEBZ+XSbN/u/5xvc2o1PTid/s7/zN5x/SwBoTg5j//bgXf3aDU0uz/3cgpxX4NUB
AFeRw9T5hF9hYl6v+Zh/g/lvAQC7yCfO3+fJeob028vXeXJhziEwOgDARW4jf8TNxVN+veToQK40yL8h
APySm35/UQwAsMpNf5woBgD41+9xQzBrf9zkMsOcMwDAAG7n5Xom8sl9cgJhLi80KgDQmbsZ/HGh97Qv
v0ruSGhUAKC4fNq3bE/Oyf2yQqMCAIW8iAt4bsG7dmEXeWpyrsCLqWsB0CLD/LJnvB4AaMj9+/3Pi4u1
yF75nH1u7nsAHCwvvrkXv/f7cq18zT4490UAdubGL61FIQCwsxzqd+OXVnP/agCAjXjHL5WiEAC40Mu8
mC4uriJVkoXAy6krA/AYz+PiaTmf9JJcPvh86toArHk279y3dhEVKZ15Z0ETBQEWzOyXEXK/YgBgeN7z
y4jJ+QG2FwaG9Cwugvbrl9GT3xnwWgAYhvX8Iv9LvhawbBDo2m1c7MzuF1lPrhbw+WGgO3/EBc5Tv8jP
k6MBf0ynDEBtuab/4+IiJyI/z8c8d6ZTCKAeT/0i58doAFCOGf4i28VKAaCEF3HB8tQvsm1yNMC+AUCb
bm5u/rty4RKRjZLn2Hy6ATTBRD+R42KCINCE3MrXkL/IsclXAj41DFyHIX+R68YrAeBoOcvfjn4ibSR3
ELRKANhdvu/39b528inyIfIungb/vE/8nXLG+MM85Z1x/v/9x//+4X87/63538x/e61Ncnzy64LmBQC7
ebVy4ZF98y3yIW68b+Ybe773zZtyS0982ZZs08u5SHiTbZ7bvnZMslPib/Aq/yAAm4mL+l9rFxzZNJ/i
d3473+jzhtrDh2HyGO5HEN7mMS6OWTZOnqvTTw9wGbv67ZN8Or4bto/fOG/2o7krCvI3mH+Ltd9Izo/d
A4GL5M3f+v5tcnfDj980h2h98vVH+f46XzEpCLZL7hegCACezGS/y5ND+vmEb3LW0z2fRwi8MrgsJgcC
T2I///Nz/5TvyWs7+Vvejw6s/eby8/iOAPAoZvo/PW76x1EMnJn83e5+QYAVbv6Pj5v+9SkGnpj8ve5+
OYAH3Px/nS/zO32T+NpzO88Z+LL4m8ki8VspAoBJXDit8f9J4vd5Gz+Td6h15BLD3HNg9e8p9goAgpv/
yXyL3yaf9g3x1/Us/4b5t1z8bSWiCICBufmv5kv8NIZI+5OvuLweWEQRAANy8/8hH+JnMczfv1zimt8p
WOsDQ0YRAANx8/9H3PjHpBB4EEUADMDN/3vc+EkKgTmKAOiYm/9d3PhZoxCIKAKgQ27+d5P73Pj5lSwE
hp4sqAiAvoy8yc+3OP7X088Aj/Y6+86iLw2TPP7pZwAqG/bmH08yb+L4rePnXLmPwJu1vjVC4vgth4XC
Rr3553t+2/WyldvsU4s+NkTi2BUBUFC+y1w9qTtODve7YLGXLKiHey0Qx23uDBTyPE7c0b7nn1/nM9zP
3p5lX1v0vd7zNY77+XT4QMvyAvV5cQL3HLP7uYbRVgt8jmNWYEPD8ub/cXHidhuT/Liy0SYJfsxjng4d
aEqcoH8vTthek+/6X05HDVf3Mvvkoo/2mr/nYwZakZt3rJysPSZn+HsKoTU5+jbESoG81szHDDRghOV+
NvShgiE2EIrjtNoGGpAz/ldP0o7yKY9zOlxoXp6TnxZ9uLvkcU6HC1zDCDP+Le+johGWC1oZANcSJ+D7
xQnZVeIQDflTXb4SWO3fneT9fJzAUTpffpTv+63tpxe5Z0C38wLm5bjAQXLZ0erJ2EHyfb9hRXqT3xPo
dl5AHJ9luXCAbrf5jSeJt3F8bv70qud5AbYLhr3FidblTn/zzR+6l3197RzoILlTILCHXt/7x6FZU8xo
uty7w3wA2EePn/e1pS8j63IL4TguE3hhQ/nusLf3/nnz986Q0eWcnt6KgJwPYC4PbCFOqN4+8uPmD//T
YxHgo0Gwgd42EnHzhx91VwTEMdnICy7Q25I/a/zhtN72CrA0EM4VJ1BPS/7c/OHXcr5PT0WApYFwhp6G
/t384fG6KgLieLwKgCfIocBehv7d/OHpeioC8lXA7XRYwE/FCdPLV/5ywp8TH86TDwK9TAz01UB4hF4+
9GO2P1yum9UBcSx2/ISf6GXDHzd/2E4vRYANguCUOEF62PDHzR+210sRYIMgWNHFXv9xHPb2h3108QGh
OA7XCHgoTozPyxOlWuIwvOODffVQBHyejwUI5df8+54/HCPPtbVzsFLiGP6cDweGVn7in5s/HCvOu3fL
87BYTAiEuHm+WTk5KsVGP3C88hsFeXBgdDmzd/XkKBIb/cD1lN8oKI7BiiHGFCdA6R3/4hBeTEcCXEn1
1UN2CGRIpXf8i/b7wAc0ICfUrZ2jVRKHYFkgY4mOX3nZ37v5MIAG5Dm5OEcrxbJAhlJ5La9Jf9Ce0pMC
o/32EGEM0eGrPv3b5hfaVXm7YKMADKHs03+03Xt/aFvZTcWy7dMhQKeio1d9+v8wHwLQsDxXF+duldgc
iK5Vrc5z6N+JCTXkfICSrwJsEUyvym75G223TAdqqbrM2CgA/am6Vje3Kp4PASgkt9pdO6dbj1EAelP1
6f9Ltn06BKCYvO58WZzTFWIUgK6UnPkf7bbVL9RW8lVAtNuKAPoQHbrizH+7/UEH8lxenNsVYl8AulCx
AjfrH/pRclVAtNvugNQWHbncF/+i2YbfoC8VlyB/nNsOJVX8VKcNf6BDeW4vzvXmE802D4maKi7DiWbf
Tq0HOnO7ds43nvdz26GUciebNf/QNw8lcIC8ma515oZj4h/0r9yEwCxa5rZDDdFxS238E0028Q8GEDfU
aruS2hiIUqpt/JM7/gGDyHN+cQ1oOtFkSwKpITpsqaV/0WQf+4GxVNufxJJASqg2+c+yPxhQnvuLa0HT
iSY/n1oOjao2+S+abJ0tjKnUPiUmA9K86KiVJv95+oeB5TVgcU1oOTkZEJpVavJftNfTP4yt1ChAtNdk
QNoUHbTSV7c8/QPVRgHsDEiTcoONtQ7bZKK9nv6BVG0UwM6ANKfS8L+nf+C7vCYsrhHNJppr0zLaEh3z
47KjtppornX/wEOV9gWwJwBNqbT2365/wA/y2rC4VjSbaK7XADTj9VonbTHRVrNogTVlXmNGW70GoA3R
IasM//viH3BKpS8Feg1AE8oM/+dXwOY2A/yg0pcCo7leA3B1lYb/nTDAz5R5oIm2eg3AdUVHLDH8bx9t
4DHielFlQzOvAbiqMpv/RFst/QMeo8ySwGirUU2upsqsWUv/gEfLa8biGtJkoqlWNXEdOay+1ilbi8l/
wFMUmgz4bm4yHCs63+dFZ2wy0VTDZMBTVJkM6BPBXMXzlc7YYuz7DzxZXjsW15ImE031YTMOV2L5X7TT
OzLgHCXmON3c3LyZ2wvHiI5XpTq28x9wjiqrnCwH5FBVTgwTZICz5TVkcU1pMtFU85w4TIl1stFOw//A
JUq8Bsh2Ts2FnVVZIhNNNfwPXKLEaKd5ABwmOlyF9/+G/4GL5bVkcW1pMeYBcIyVztdcopmGxIAtVHkN
YMST3b1Y63ytJdrpZAC2UOI1QLTTfgDsrsL6/09zWwEulteUxTWmudjynN1FR2v+fZgTAdhSTrJbu9Y0
Fruesq/oZF8Xna65RDMNhQFbqvLqE3ZT4QMZ3+a2Amwmry2La01ziWY+n1oL26swG9byP2BzeW1ZXGua
SzTz9dRa2FiFDYCimU4AYA/NT4C2IRC7iQ7W/AZA0UxDYMAeKnwC3URA9hGd6/Ois7UW7/+B3eQ1ZnHN
aS5zU2FTFTbDUP0Cu8lrzOKa01yimb4MyOaaXwZj/T+wpyLzoF5OrYXtND8BJtpo/T+wJw9CjCc61du1
ztZSopn2/wf2VOFVqKXQbCs6Vevvvuz/D+wurzWLa09r8WlgtrXSyZpKjlDMTQXYTZHRUNjOWidrKd57
AUfIa83aNailRDOtBGAzzU98yTZOTQXYleshQ6nQ4VW8wBGa/yhatPHV1FS4UJEhL4BDrF2DWopXomym
QAFgB0DgMHnNWVyDWoulgGwjOlPTnT0KFF/AAg4T15zWVwJ4KGIb0Zk+LjpXUzHcBRypwKjo17mpcJmV
ztVUoon2vgaO9HLtWtRS5nbCZdY6V0uJJlryAhypwsqo51NT4XzP1zpXS4k2+gYAcKTmvwkQbfRgxMUq
VLoAh1q7FrWUaKICgIu1XgD4CBBwuLz2LK5FTSWaaDMgLvZqrXM1FMtdgMPltWdxLWoqVkdxsQLLXWx4
ARwurz2La1FTUQBwsdYLAJ0cuIYC10YbpHGZ7ERrnauVKACAa2i9AIh4PcplshMtOlVTUQAA16AAoHvZ
iRadqqlEE+0CCFxD67sBKgC4THaiRadqKtFEa12Ba2h9ifTHuZ1wnuhECgCAH9kkjb5FJ1IAAPxIAUDf
ohO1XgD44AVwDQoA+rbWqVrK3EyAw61dk1rK3Ew4z1qnailzMwEOt3ZNailzM+E8a52qpczNBDjc2jWp
pczNhPOsdaqWMjcT4HBr16SWMjcTzrPWqVrK3EyAw61dk1rK3Ew4z1qnailzMwEOt3ZNailzM+E8a52q
pczNBDjc2jWppczNhPOsdaqWMjcT4HBr16SWMjcTzrPWqVrK3EyAw61dk1rK3Ew4z1qnailzMwEOt3ZN
ailzM+E80YlsBQzwI1sB07foRD4GBPAjBQB9i06kAAD4kQKAvkUnUgAA/Kj1AuDb3E44T3QiBQDAj1ov
AD7M7YTzZCdadKqmcnNz8+fcVIDD5LVn7ZrUUBQAXCY6+ZuVjtVMFADANSgA6F7rnVwBAFxDgQLg3dxU
OE+BAuDt3FSAw+S1Z+2a1Eo8HLGF12udq6EY5gIOl9eexbWoqSgA2IKZrgALce35uLgWNRUFAFuw2QXA
wtq1qKVEE19NLYXzKQAA/unZ2rWopUQb7ZHC5dY6V0uJJurowJEqPBj5UBqXW+tcLSWaqAAAjmRklDFE
Z/q07FwtxWQX4Eh5zVm7FrWUualwmehMrS93eTM3FWB3ec1ZuxY1FKuj2IbODvA/ec1ZXINai2si2ygw
3PV1birA7vKas7gGNZW4Ztshlc28XOtkLSXa+GxqKsCuml8CmA9tc1vhYhVmvFoJAByhwvXw5dRUuFyF
TS9eT00F2FXr30fJ66E9ANjOWidrKd55AUfIa83aNailzE2FbUSnanovgIhZr8Du8lqzuPa0li9zU2Eb
ql6A9kdDIx6G2FbOKl3paE0lmmkiILCn5icAxrXaxmhsrsLMVxMBgT1VmADoOsjmbtc6W2N5N7cVYHN5
jVlcc5pLNNNIKNuLzvVt2dkaix0Bgd3kNWZxzWkuc1NhW9G5Wp/9mp3/dmotwKYqjIJ+mtsK28rJJSsd
rqlEM19NrQXY1Ku1a05j8RqU3TR/AuRyxbmtAJupsBQ6V2vNzYXNPV/rdI3FPABgc3ltWVxrmks00wRA
9rPW6VpLNNM+2MCWKjz85LXPV1HZT3SyChMBrYMFttT8+v+ILYDZV75jWul4rcVWmMBm8pqyuMY0F/Of
OELzOwJmop2GwoAtNP859Ey00woodlflZHg5NRfgIi/XrjGtJdppDxT2F52t9U8DGw4DNlFh+V/k29xc
2FecEM1vCBSxHBC4WF5LFteWFmMDIA5TYUcsrwGAS1UZ/rfyicNU2BPbawDgIkWG/7MAsPcJx4lO1/w8
gIjXAMDZ8hqyuKa0GO//OVaReQBeAwDnKjH8b6STayixH0DE5BjgyfLasbiWNJloqvX/HC8637dlZ2wx
0VSbAgFPUWK/k0y2dWoyHCg6X5UK2QxZ4Ckq7P2f+TS3Fw5XYjlg5PPcXoBfymvG4hrSZG5ubv6cmwyH
K7EcMBNttUwGeIwSn/7NZFunJsMVRCessBzQTFngUaqs/Y9Y/sd1VVkOGMk9AUyWAX4mJ/9VWPvvoYYm
VBouMxkQ+Jkqk//yemaPE64vOmOJ1wARkwGBk/IasbhmtBrD/zSjUtVs0wxgTZVVTYb/aUqZ1QCR93Ob
Ab7La8PiWtFsormG/2lHdMoqrwHy5HkxtRrgTpWtzTOG/2lOmdcAhs+Ahwot/XP9okmVXgPkKMDt1Gxg
cNWuXTb/oT3ROcu8BlBFA6nS03/ky9xsaE6ZWbSZaK9RABhbtad/e5nQrNxFq8Qnguf8PbcbGFCxp38P
LbSt4AllRQCMqdTTf+TD3G5oVpmtgefYFwAGVPBhxSZmtC8665dl52050WSjADCWSuv+M7n238fMKKHM
ngBzPs7tBgYQ53yZXf8yNzc3b+amQ/NyMuBqR2410WbDazCGUquVMtFmk/+oo9r7tUh+KdAQG3Quz/XF
ud963s1NhzKqvWPLYbY/57YDHcpzfO3cbznRbHOUqCc674dlZ248X6PZhtqgT/lq8uvinG89dv6jrJcr
Hbr12BwIOpTn9uJcbz7RbDv/UVd04lJLAjPRbN/ahr6UeyUZsfSP8srNuI2YEAj9yKH/ahP/zEmiD9GZ
K30f4C7W3UIfKk78y0TTPYRQX+ET0OxbqK3a1uR3iWumz5XTjXIbA82xQyAUlufw4pwukWi61Uj0I4fU
1zp668nRi/kQgEKqjjx6+qdHOQpQbi5AJtruVQDUUnLoPxNt9/RPf6pW5BGrAqCOfNgoOfTv6Z+elR0F
iNggCAqIm2jJ142ZaL6nf/pVeBQgT04bBEHbKu4+ehdP/4yg8iiAbwVAu/LaUm2v/++J9ru20L/KowAR
SwOhQXFuvl+cq2Xi6Z+RVB4FyJP1r/k4gAbEOVn2vX8k9/z39M9QXq+cCGUS7X81HQZwZWXf+2dyRHQ+
DhhHdP5yXwp8mDiE59ORAFeS6/3LvveP+OIfw6r4ic6HsT8AXE/Z9f73iWMwksi44iT4sDwpiuX9fCjA
geLc+3txLlbLp/lQYFi3KydGqZgUCMcqPunvLnEYthiHnASzdoJUShzG6+logJ29WjsHi+XdfCwwvNLL
Au8Tx+F9Huyr9Iz/OZb9wUIPVb2VAbCf6jP+72LZH6yIk6P6hMBMbhesCIBtld7m90FM/IMTyk8InJNF
gOWBsI3yy/3uE8di4h+c0sOEwDn5zQBFAFymm5t/rlyYjwk4JU6WT8uTp2gUAXC+bm7+ETv+wSPlZJ+1
k6hiFAHwdD3d/HPo/+V0WMAv9bDRx4MoAuAJ4vz/a+U8qhpr/uGJ8gmg9MeCFlEEwCN0dvM39A9nqv6x
oGUUAXBaV8P+mTgmQ/9wrs5eBWQUAfCj7m7+ce16Ox8bcK44mXpZFXAfRQD8T3c3/8iXPK7p8IBL5KqA
8t8KWMSOgdDnzd+GP7Cx12snWvEoAhhZFvafF+dE+eRry/n4gK3EyfVuebJ1kCwCfEWQ0eQE3x729l/G
Xv+wkxwu7O1VwF3i2P6YDhG618WXP1fiM7+ws96WBn5Prn+ejxF69Z+1vt9D4tgs+YMD9Dgf4D7v4/jM
HqY3zzrb4Ocf8d4fDhQnXY/zAe7zOQ7R5EB6kZ/57m6m/4N47w8Hy/kAve0P8DAmB9KDl9mXF327q3h1
B9fR4/4A/4iLC4V1+75/GecpXEc+YayelB3FzoFUkqNzfy/6cPdRBMAV5ASctROys+QrAbOMaV2u0ulu
c5/HRhEAVxAnX8+TAr9nvsAYDaA50Tf/u9ZnR4siAI7X+6TAh7FKgJbkXJyeZ/k/OYoAOF63OwWuJY73
P9Nhw9X8EX2x61n+50YRAMfrfmXAIjlB0GgAR8u1/e8XfVEWUQTA8UZYGfCP5PvXOG5zAzhCLu/z1P/I
KALgeL1+cORnybkBvkPOXnKGv3f9Z0QRAAeLk26E5YFr+TsO32gAW8l9/M3wvzCKADhYnHRv107GAZL7
BpgkyKV+z7606FtyZhQBcLCBi4BMvhawgRBPZbh/pygC4GCDFwGZ/Myw+QH8itn9B0QRAAeLE2+UjYJO
Zr7w3E6/CHx3m31jrc/IPlEEwLFG2i3wp1EIMHPjv2IUAXAsRcCDKASG5cbfSBQBcCxFwCLzRciOgv1z
428wigA4liJgPTlZ8LfpJ6IjOat/uG/0V4oiAI6lCDidXD74e/5Gd78UVeU6fsv5ikQRAAeLk270JYI/
y9f4ffI7A+YJ1JF/q9yv//PibykFogiAgykCHpX88qBRgXbl0741/B1EEQAHUwQ8OjkqkBcoGwtd3/P8
W+TfZPE3kuJRBMDBFAFPzuf4zfIVgYmDx8mbfn6cxxB/51EEwPFG/JTwFrkfGVAMbM9Nf9AoAuB4L+Pk
+7Y8GeXRySHp/CxxzhkwgfDp8jf7PS/+82+59hvLIFEEwPGex8mnCNgmD18VmES47rf5Kd+yPfkhigA4
Xn4dzV4B2+fjfEHLEYIRdyC8f8J3w5dHRxEAx8sNgz4sT0bZNDnMnbsQ/ifSW1GQx5IjH7k2P3fjM6Qv
Z0cRAFcQJ54VAscnn45zLsF9YfB/kRbnFORrjWzbwxu9J3vZJYoAuI5cIWBeQBvJGfHv54thFgiZPyJ5
I77PJfMN7m/q98n/9t2/k/9m/ttzG9baJrJrrlQEfD8P4t/POT33552VPwwjJwd+WZ6QIiJH5oAiIEfb
/oh/6zEfksrvh7y6+19B58wLELl+coLu0JN0dyoCfov/9llfj5xHBqB/0dn/XDsJRGTfxLn3Zj4Nh/+q
54ZFQH5P4uLXWjsVJdAkmwaJHJdvec5Np953ioDLbro5zL/pfBZFACPJ/QK8EhDZN5/yXJtOuR8oAp5+
093kif9UFAEMJTq8VwIiOyTOrfsh/59RBDzuppsTmQ/5dLQigNFYJSCyXXLI/ymfnlYEnL7pPov/t9x9
cvV/t1cUAYwmT7Q3ayeDiDw67/Jcmk6pJ1EE/HjTfRH/91fbt0IRwIhMEBR5etYm+j2VImC66V7lqX8t
igBGlBeid8uTQURW8yHPmenUudjwRUCkqW9PKAIYVQ7BmRsgsp586t9jJzlFQGNRBDAqcwNEFolz4m2e
G9MpsgujcI1FEcDIcjTAU4mMni95LkynxP6y0Fhpg1wpigCGFidA7htgkqAMl+z782lwKEVAW1EEMLpb
FyUZKDnJ79RufodwvrUVRQBMrwVsJyy95tDh/l9RBLQVRQBMXsUJYbWA9JKc3f966tptUQS0FUUATHK1
gO8KSOlEH879+/ec3X8xRUBbUQTA/5gfIOWSfTb77tSF2+ccayuKAPgnhYA0n2o3/oecX21FEQA/UghI
i8mZ/c+nLlqXc6utKAJgnUJAWkh+ra+Zmf1bcF61FUUAnKYQkMOTfS773tQF++OcaiuKAPi5LATsKih7
5lvvN/6HFAFtRREAv5ZLruwjIFvmSxaXc98aiiKgrSgC4PGyELCzoJybnNi3x+d5S1EEtBVFADzN8zhp
8hPEXg/IrzLUMP9jKQLaiiIAzmNUQNbyKftGZLhh/sdSBLQVRQCcLycNGhUYO/luP7fq9bT/SIqAtqII
gMu9nC9sioEBkn/r/JtPf3qeShHQVhQBsB3FQH/Jv2Vu2GOIfyOKgLaiCIDtKQbq5n4ynyf9nSgC2ooi
APbzIk6wnDPwaXniSTO5f6fvpn8QRUBbUQTA/nLSWK4meBcxOnDd5ND+6/lvwhUoAtqKIgCOlaMDuQ2x
5YX750P+1vmbTz89LVAEtBVFAFxPfhb2dZyIOUJgS+Lzcz95L5/w3fAbpwhoK4oAaMPdK4M4IXMOQY4S
eG3wY/I3uX+6z3f45b+tPyJFQFtRBECbcjna3auD+aI50uTCLILePbjZe3/fEUVAW1EEQB15M8zh7td5
g4wTOF8jVBw1yDbfP9HfD+G70Q9CEdBWFAHQhxwaz5vp/ejBXeIkvy8UMnvMO8gRivv/ft7Y39z/29GW
fIp3g+cfom8oAhpK/D0UAcBUQKzEDZxNKQLaiiIAgKM8ixvP1+WNSK4XRQAAu4ubTa58Wb0RyfWiCABg
Ty/Wbj7SRhQBAOwhh/4/L2860lYUAQBsKm4suTJl9aYjbUURAMBWbtduNNJuFAEAXCxuKO+XNxhpP4oA
AC5h4l/hKAIAOEvcREz8Kx5FAABP9WrthiL1oggA4NHixuHpv6MoAgB4DE//HUYRAMBPxc3i4/LmIX1E
EQDAKWb+dx5FAAA/iJuDT/4OEEUAAA/53O9AUQQAcM/kv8GiCADA8P+gUQQADC5uBob/B40iAGBcvvo3
eBQBAGN6uXZTkLGiCAAYTFz4/1y7Ich4UQQADEQBIA+jCAAYhAJAllEEAIzh9dpNQMaOIgCgf8/XbgAi
igCAzsXF/svy4i+SUQQA9M2XAOVkFAEAffM9ADkZRQBA3xQBcjKKAIC+KQLkZBQBAH1TBMjJKAIA+qYI
kJNRBAD0TREgJ6MIAOibIkBORhEA0DdFgJyMIgCgb4oAORlFAEDfFAFyMooAgL4pAuRkFAEAfVMEyMko
AgD6pgiQk1EEAPRNESAnowgA6JsiQE5GEQDQN0WAnIwiAKBvigA5GUUAQN8UAXIyigCAvikC5GQUAQB9
UwTIySgCAPqmCJCTUQQA9E0RICejCADomyJATkYRANA3RYCcjCIAoG+KADkZRQBA3xQBcjKKAIC+KQLk
ZBQBAH1TBMjJKAIA+qYIkJNRBAD0TREgJ6MIAOibIkBORhEA0DdFgJyMIgCgb4oAORlFAEDfFAFyMooA
gL4pAuRkFAEAfVMEyMkoAgD6pgiQk1EEAPRNESAnowgA6JsiQE5GEQDQN0WAnIwiAKBvigA5GUUAQN8U
AXIyigCAvikC5GQUAQB9UwTIySgCAPqmCJCTUQQA9E0RICcT/eP11E0A6JEiQE4m+sft1E0A6JEiQFZz
c3PzZu4jAHRKESBr+Tj3DwA6pgiQHzL3DQA6pwiQf2TuFwAMQBEg3zP3CQAGoQiQzIe5PwAwEEXA4Lm5
uXk79wUABqMIGDhRAPw59wMABqQIGDTxt38+dQEARqUIGC9f5r89AINTBAwU7/8BeEgRMEjib/1y+pMD
wEQR0H8M/wOwShHQceLv61PAAJykCOgz3+Jv+2z6EwPAOkVAZ7H2H4DHUgR0lPh7evoH4NEUAR3E0z8A
51AE1I53/wCcTRFQNPm3m/6EAHAeRUC9WPcPwCYUAYUSf68X058NAC6nCKiRd/PfCwA2owhoOyb+AbAb
RUCjib+ND/4AsCtFQHsx9A/AIRQB7cTQPwCHUgQ0kPg7GPoH4HCKgCvm5ubmzfx3AIDDKQKuk0/z7w8A
V6MIODb53v92+ukB4LoUAQclfmvv/QFoiiJg5/jMLwCtUgTslLj5v51/YwBokiJg++SkP+v9AWieImC7
2OwHgFIUAZcnb/7Pp58TAOpQBFyQ+P3M+AegLEXAGcnfbfr5AKAuRcATkr/X9LMBQH2KgEfEHv8A9EgR
8JNY6w9AzxQBK3HzB2AEioAHcfMHYCSKgIibPwAjGroIcPMHYGRDFgFx8zfbH4DhDVUE5PFOhw0ADFEE
5HFOhwsA3Ou5CMgP+9jbHwBO6LEI8FU/AHiEnoqAT3E8vucPAI9UvgiYl/m5+QPAE5UtAuLm/+d8DADA
GaoVASb7AcBGqhQB+b7/dmoyALCFposAO/sBwH5aLAIM+QPAAVoqAt5Fe8zyB4CDXLsI8NQPAFdyrSLA
Uz8AXNmRRcCX+PdeTP8sAHBtexcBOdz/evqnAICW7FIEzLv5Ge4HgIZtVQR8m2/8NvQBgCIuKQLyHX8O
9XviB4CCsgj4tri5n0o+7ecX+yzpA4AO3ObWvHGD/7S44ef/+d08xD/QTf9f//r/oSs8kHKK7soAAAAA
SUVORK5CYII=
</value>
</data>
</root>

View File

@@ -0,0 +1,64 @@
Public Class usrCntlSearch
Dim MAIN As frmCheckIn
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New(MAIN)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.MAIN = MAIN
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub txt_TextChanged(sender As Object, e As EventArgs) Handles txt.TextChanged
initDGV()
End Sub
Sub initDGV()
With MyDatagridview1
Dim search = txt.Text
If search.Length <= 2 Then .Columns.Clear() : Exit Sub
Dim sqlstr = "SELECT TOP (20) [AvisoID],[LKW_Nr] LKW,[Frächter],Auftraggeber Avisierer
FROM [Aviso]
WHERE ((LKW_Nr LIKE '%" & search & "%') OR (Frächter LIKE '%" & search & "%') OR (Auftraggeber LIKE '%" & search & "%')) AND Status NOT IN (1,2) AND Datum > DATEADD(MONTH,-1 ,GETDATE())
order by DATUM DESC"
' .SET_SQL(sqlstr, "AVISO")
'.LOAD()
.DataSource = SQL.loadDgvBySql(sqlstr, "AVISO")
If .RowCount = 0 Then
.Columns.Clear() : Exit Sub
End If
.Columns("AvisoID").Visible = False
.Columns("LKW").Width = 400
.Columns("Frächter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
'.loa.Columns("Avisierer").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("Avisierer").Visible = False
' MsgBox(dt.Rows(0)("AvisoID"))
End With
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If MyDatagridview1.SelectedRows.Count > 0 Then
MAIN.SET_FOUND(MyDatagridview1.SelectedRows(0).Cells("AvisoId").Value)
End If
End Sub
Private Sub usrCntlSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
txt.Focus()
MAIN.TRANSLATE(Me)
End Sub
End Class

263
AVISO_CHECKIN/usrCntlWelcome.Designer.vb generated Normal file
View File

@@ -0,0 +1,263 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlWelcome
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlWelcome))
Me.Button4 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.btn = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button4
'
Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.ForeColor = System.Drawing.Color.AliceBlue
Me.Button4.Location = New System.Drawing.Point(123, 501)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(75, 63)
Me.Button4.TabIndex = 10
Me.Button4.Tag = "RUS"
Me.Button4.UseVisualStyleBackColor = True
Me.Button4.Visible = False
'
'Button5
'
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.ForeColor = System.Drawing.Color.AliceBlue
Me.Button5.Location = New System.Drawing.Point(123, 570)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(75, 63)
Me.Button5.TabIndex = 11
Me.Button5.Tag = "BG"
Me.Button5.UseVisualStyleBackColor = True
Me.Button5.Visible = False
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label1.Location = New System.Drawing.Point(384, 262)
Me.Label1.Name = "Label1"
Me.Label1.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
Me.Label1.Size = New System.Drawing.Size(514, 63)
Me.Label1.TabIndex = 12
Me.Label1.Tag = "DE"
Me.Label1.Text = "WILLKOMMEN!"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label2.Location = New System.Drawing.Point(384, 331)
Me.Label2.Name = "Label2"
Me.Label2.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
Me.Label2.Size = New System.Drawing.Size(514, 63)
Me.Label2.TabIndex = 13
Me.Label2.Tag = "EN"
Me.Label2.Text = "WELCOME!"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
Me.Label3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label3.Location = New System.Drawing.Point(384, 400)
Me.Label3.Name = "Label3"
Me.Label3.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
Me.Label3.Size = New System.Drawing.Size(514, 63)
Me.Label3.TabIndex = 14
Me.Label3.Tag = "YU"
Me.Label3.Text = "DOBRODOŠLI!"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Arial Black", 30.0!, System.Drawing.FontStyle.Bold)
Me.Label4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label4.Location = New System.Drawing.Point(384, 469)
Me.Label4.Name = "Label4"
Me.Label4.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0)
Me.Label4.Size = New System.Drawing.Size(514, 63)
Me.Label4.TabIndex = 15
Me.Label4.Text = "HOŞGELDINIZ!"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label5
'
Me.Label5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!)
Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label5.Location = New System.Drawing.Point(303, 173)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(481, 46)
Me.Label5.TabIndex = 16
Me.Label5.Text = "Please select Language:"
'
'PictureBox3
'
Me.PictureBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox3.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.IMEX_LOGO_simple
Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox3.Location = New System.Drawing.Point(824, 582)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(385, 93)
Me.PictureBox3.TabIndex = 19
Me.PictureBox3.TabStop = False
'
'PictureBox2
'
Me.PictureBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox2.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.Unisped_logo
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Location = New System.Drawing.Point(414, 582)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(385, 93)
Me.PictureBox2.TabIndex = 18
Me.PictureBox2.TabStop = False
'
'PictureBox1
'
Me.PictureBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.PictureBox1.BackgroundImage = Global.AVISO_CHECKIN.My.Resources.Resources.Verag_AG_Logopng
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(0, 582)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(385, 93)
Me.PictureBox1.TabIndex = 17
Me.PictureBox1.TabStop = False
'
'btn
'
Me.btn.BackgroundImage = CType(resources.GetObject("btn.BackgroundImage"), System.Drawing.Image)
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.ForeColor = System.Drawing.Color.White
Me.btn.Location = New System.Drawing.Point(310, 262)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(75, 63)
Me.btn.TabIndex = 6
Me.btn.Tag = "DE"
Me.btn.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image)
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(310, 331)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 63)
Me.Button1.TabIndex = 7
Me.Button1.Tag = "EN"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.BackgroundImage = CType(resources.GetObject("Button2.BackgroundImage"), System.Drawing.Image)
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.White
Me.Button2.Location = New System.Drawing.Point(310, 400)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 63)
Me.Button2.TabIndex = 8
Me.Button2.Tag = "YU"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.BackgroundImage = CType(resources.GetObject("Button3.BackgroundImage"), System.Drawing.Image)
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.White
Me.Button3.Location = New System.Drawing.Point(310, 469)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 63)
Me.Button3.TabIndex = 9
Me.Button3.Tag = "TR"
Me.Button3.Text = "TR"
Me.Button3.UseVisualStyleBackColor = True
'
'usrCntlWelcome
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.PictureBox3)
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button3)
Me.Name = "usrCntlWelcome"
Me.Size = New System.Drawing.Size(1212, 678)
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents btn As Button
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Button4 As Button
Friend WithEvents Button5 As Button
Friend WithEvents Button3 As Button
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents PictureBox2 As PictureBox
Friend WithEvents PictureBox3 As PictureBox
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,26 @@
Public Class usrCntlWelcome
Dim MAIN As frmCheckIn
Sub New(MAIN)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.MAIN = MAIN
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click, Label1.Click, Button1.Click, Label2.Click, Button2.Click, Label3.Click, Button3.Click, Label4.Click
MAIN.SET_LANGUAGE(sender.tag)
MAIN.SET_SEARCH()
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
End Sub
End Class