Initial commit
This commit is contained in:
20
DokSA/Backup/DokSA.sln
Normal file
20
DokSA/Backup/DokSA.sln
Normal file
@@ -0,0 +1,20 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 10.00
|
||||
# Visual Studio 2008
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DokSA", "DokSA\DokSA.vbproj", "{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
BIN
DokSA/Backup/DokSA.v11.suo
Normal file
BIN
DokSA/Backup/DokSA.v11.suo
Normal file
Binary file not shown.
232
DokSA/Backup/DokSA/DokSA.vbproj
Normal file
232
DokSA/Backup/DokSA/DokSA.vbproj
Normal file
@@ -0,0 +1,232 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="3.5" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProductVersion>9.0.30729</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{5D5DBAC1-C1A1-4381-8A0B-A51B2D977DFF}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>DokSA.FrmMain</StartupObject>
|
||||
<RootNamespace>DokSA</RootNamespace>
|
||||
<AssemblyName>DokSA</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsFormsWithCustomSubMain</MyType>
|
||||
<TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<OptionInfer>Off</OptionInfer>
|
||||
<PublishUrl>publish\</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Disk</InstallFrom>
|
||||
<UpdateEnabled>false</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<ApplicationRevision>0</ApplicationRevision>
|
||||
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<UseApplicationTrust>false</UseApplicationTrust>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
<ApplicationIcon>reports.ico</ApplicationIcon>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>DokSA.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>DokSA.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20112.61226, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
|
||||
<Reference Include="EDKB07Verarbeitung, Version=2.0.3225.14669, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\Client\EDOKA\bin\EDKB07Verarbeitung.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Configuration" />
|
||||
<Reference Include="System.Core">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Design" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Web.Extensions">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
</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.Linq" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="clsMehrfachdruck_Data.vb" />
|
||||
<Compile Include="clsPDF_print_show.vb" />
|
||||
<Compile Include="clsSpooler_Data.vb" />
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmFortschritt.Designer.vb">
|
||||
<DependentUpon>frmFortschritt.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmFortschritt.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="FrmMain.Designer.vb">
|
||||
<DependentUpon>FrmMain.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="FrmMain.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmMehrfachdruck.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmPartnersuche.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Globals.vb" />
|
||||
<Compile Include="Klassen\clsConnectionProvider.vb" />
|
||||
<Compile Include="Klassen\clsDBInteractionBase.vb" />
|
||||
<Compile Include="Klassen\clsMyPartner.vb" />
|
||||
<Compile Include="Klassen\clsPartner.vb" />
|
||||
<Compile Include="Klassen\clsPartner_Hauptadresse.vb" />
|
||||
<Compile Include="Klassen\clsSpalten.vb" />
|
||||
<Compile Include="Klassen\Crypto.vb" />
|
||||
<Compile Include="Klassen\db_connection.vb" />
|
||||
<Compile Include="Klassen\frmBenutzer.Designer.vb">
|
||||
<DependentUpon>frmBenutzer.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Klassen\frmBenutzer.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Klassen\mMain.vb" />
|
||||
<Compile Include="Klassen\MySpalten.vb" />
|
||||
<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>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="Form1.resx">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmFortschritt.resx">
|
||||
<DependentUpon>frmFortschritt.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="FrmMain.resx">
|
||||
<DependentUpon>FrmMain.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmMehrfachdruck.resx">
|
||||
<DependentUpon>frmMehrfachdruck.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmPartnersuche.resx">
|
||||
<DependentUpon>frmPartnersuche.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Klassen\frmBenutzer.resx">
|
||||
<DependentUpon>frmBenutzer.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="app.config" />
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework Client Profile</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 2.0 %28x86%29</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.0 %28x86%29</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>Windows Installer 3.1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="reports.ico" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
17
DokSA/Backup/DokSA/DokSA.vbproj.user
Normal file
17
DokSA/Backup/DokSA/DokSA.vbproj.user
Normal file
@@ -0,0 +1,17 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<PublishUrlHistory>publish\</PublishUrlHistory>
|
||||
<InstallUrlHistory>
|
||||
</InstallUrlHistory>
|
||||
<SupportUrlHistory>
|
||||
</SupportUrlHistory>
|
||||
<UpdateUrlHistory>
|
||||
</UpdateUrlHistory>
|
||||
<BootstrapperUrlHistory>
|
||||
</BootstrapperUrlHistory>
|
||||
<ErrorReportUrlHistory>
|
||||
</ErrorReportUrlHistory>
|
||||
<FallbackCulture>de-DE</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
237
DokSA/Backup/DokSA/Form1.Designer.vb
generated
Normal file
237
DokSA/Backup/DokSA/Form1.Designer.vb
generated
Normal file
@@ -0,0 +1,237 @@
|
||||
<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()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
|
||||
Me.Panel1 = New System.Windows.Forms.Panel
|
||||
Me.Label5 = New System.Windows.Forms.Label
|
||||
Me.Label4 = New System.Windows.Forms.Label
|
||||
Me.Button3 = New System.Windows.Forms.Button
|
||||
Me.Button2 = New System.Windows.Forms.Button
|
||||
Me.Button1 = New System.Windows.Forms.Button
|
||||
Me.txtJahrbis = New System.Windows.Forms.TextBox
|
||||
Me.Label3 = New System.Windows.Forms.Label
|
||||
Me.txtJahrvon = New System.Windows.Forms.TextBox
|
||||
Me.Label2 = New System.Windows.Forms.Label
|
||||
Me.txtBPNr = New System.Windows.Forms.TextBox
|
||||
Me.Label1 = New System.Windows.Forms.Label
|
||||
Me.DokList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.DokList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.Label5)
|
||||
Me.Panel1.Controls.Add(Me.Label4)
|
||||
Me.Panel1.Controls.Add(Me.Button3)
|
||||
Me.Panel1.Controls.Add(Me.Button2)
|
||||
Me.Panel1.Controls.Add(Me.Button1)
|
||||
Me.Panel1.Controls.Add(Me.txtJahrbis)
|
||||
Me.Panel1.Controls.Add(Me.Label3)
|
||||
Me.Panel1.Controls.Add(Me.txtJahrvon)
|
||||
Me.Panel1.Controls.Add(Me.Label2)
|
||||
Me.Panel1.Controls.Add(Me.txtBPNr)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 25)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(859, 84)
|
||||
Me.Panel1.TabIndex = 1
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(368, 13)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(0, 13)
|
||||
Me.Label5.TabIndex = 10
|
||||
Me.Label5.Tag = "[Kein Partner ausgwählt]"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(253, 13)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(109, 13)
|
||||
Me.Label4.TabIndex = 9
|
||||
Me.Label4.Text = "BP-Kurzbezeichnung:"
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Image)
|
||||
Me.Button3.Location = New System.Drawing.Point(198, 4)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(34, 30)
|
||||
Me.Button3.TabIndex = 8
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Enabled = False
|
||||
Me.Button2.Location = New System.Drawing.Point(728, 38)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(107, 23)
|
||||
Me.Button2.TabIndex = 7
|
||||
Me.Button2.Text = "Daten aufbereiten"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Enabled = False
|
||||
Me.Button1.Location = New System.Drawing.Point(728, 8)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(107, 23)
|
||||
Me.Button1.TabIndex = 6
|
||||
Me.Button1.Text = "Daten auselsen"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtJahrbis
|
||||
'
|
||||
Me.txtJahrbis.Location = New System.Drawing.Point(95, 61)
|
||||
Me.txtJahrbis.Name = "txtJahrbis"
|
||||
Me.txtJahrbis.Size = New System.Drawing.Size(54, 20)
|
||||
Me.txtJahrbis.TabIndex = 5
|
||||
Me.txtJahrbis.Text = "2011"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(13, 64)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(43, 13)
|
||||
Me.Label3.TabIndex = 4
|
||||
Me.Label3.Text = "Jahr bis"
|
||||
'
|
||||
'txtJahrvon
|
||||
'
|
||||
Me.txtJahrvon.Location = New System.Drawing.Point(95, 35)
|
||||
Me.txtJahrvon.Name = "txtJahrvon"
|
||||
Me.txtJahrvon.Size = New System.Drawing.Size(54, 20)
|
||||
Me.txtJahrvon.TabIndex = 3
|
||||
Me.txtJahrvon.Text = "2002"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(13, 38)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(48, 13)
|
||||
Me.Label2.TabIndex = 2
|
||||
Me.Label2.Text = "Jahr von"
|
||||
'
|
||||
'txtBPNr
|
||||
'
|
||||
Me.txtBPNr.Location = New System.Drawing.Point(95, 9)
|
||||
Me.txtBPNr.Name = "txtBPNr"
|
||||
Me.txtBPNr.Size = New System.Drawing.Size(100, 20)
|
||||
Me.txtBPNr.TabIndex = 1
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(13, 12)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(38, 13)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "BP-Nr."
|
||||
'
|
||||
'DokList
|
||||
'
|
||||
Me.DokList.AllowSort = False
|
||||
Me.DokList.AlternatingRows = True
|
||||
Me.DokList.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DokList.FetchRowStyles = True
|
||||
Me.DokList.FilterBar = True
|
||||
Me.DokList.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.DokList.Images.Add(CType(resources.GetObject("DokList.Images"), System.Drawing.Image))
|
||||
Me.DokList.Location = New System.Drawing.Point(0, 109)
|
||||
Me.DokList.Name = "DokList"
|
||||
Me.DokList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DokList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.DokList.PreviewInfo.ZoomFactor = 75
|
||||
Me.DokList.PrintInfo.PageSettings = CType(resources.GetObject("DokList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.DokList.ScrollTips = True
|
||||
Me.DokList.Size = New System.Drawing.Size(859, 239)
|
||||
Me.DokList.TabIndex = 11
|
||||
Me.DokList.Text = "C1TrueDBGrid2"
|
||||
Me.DokList.PropBag = resources.GetString("DokList.PropBag")
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(859, 25)
|
||||
Me.ToolStrip1.TabIndex = 12
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton1.Text = "Fenster schliessen"
|
||||
'
|
||||
'Form1
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(859, 348)
|
||||
Me.Controls.Add(Me.DokList)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "Form1"
|
||||
Me.Text = "Dokumentaufbereitung"
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
CType(Me.DokList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents txtJahrbis As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtJahrvon As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtBPNr As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents DokList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
|
||||
End Class
|
||||
2089
DokSA/Backup/DokSA/Form1.resx
Normal file
2089
DokSA/Backup/DokSA/Form1.resx
Normal file
File diff suppressed because it is too large
Load Diff
192
DokSA/Backup/DokSA/Form1.vb
Normal file
192
DokSA/Backup/DokSA/Form1.vb
Normal file
@@ -0,0 +1,192 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
Imports System.Drawing
|
||||
Imports System.Drawing.Color
|
||||
Imports System.IO
|
||||
Imports System.Threading
|
||||
Imports System.Windows.Forms
|
||||
|
||||
|
||||
Public Class Form1
|
||||
|
||||
|
||||
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function Generic_Select() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dbconn As New SqlConnection(Globals.sConnectionString)
|
||||
|
||||
scmCmdToExecute.Connection = dbconn
|
||||
scmCmdToExecute.CommandText = "sp_selbstanzeigen"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim jvon As Integer
|
||||
Dim jbis As Integer
|
||||
If Trim(Me.txtJahrvon.Text) = "" Then jvon = 0 Else jvon = Me.txtJahrvon.Text
|
||||
If Trim(Me.txtJahrbis.Text) = "" Then jbis = 0 Else jbis = Me.txtJahrbis.Text
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bpnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtBPNr.Text))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@jvon", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, jvon))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@jbis", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, jbis))
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
Try
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
Try
|
||||
Dim dt As New DataTable
|
||||
dt = Generic_Select()
|
||||
Me.DokList.DataSource = Nothing
|
||||
Me.DokList.DataSource = dt
|
||||
Me.DokList.DataMember = dt.TableName
|
||||
Me.Button2.Enabled = True
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Me.Button2.Enabled = False
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||||
Globals.Partnernr = Me.txtBPNr.Text
|
||||
Globals.PartnerKurzbezeichnung = Me.Label5.Text
|
||||
Dim gendokCold As New Collection()
|
||||
Dim gendokOffice As New Collection
|
||||
Dim i As Integer
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
|
||||
colRows = Me.DokList.SelectedRows
|
||||
If colRows.Count = 0 Then
|
||||
For i = 0 To Me.DokList.Splits(0).Rows.Count - 1
|
||||
colRows.Add(i)
|
||||
Next
|
||||
End If
|
||||
'Wenn mehr als ein Dokument selektiert ist dann Meldung zum Fragen anzeigen
|
||||
If colRows.Count > 1 Then
|
||||
If MsgBox("Alle markierten Dokumente (" + LTrim(Str(colRows.Count)) + ") drucken?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
Dim packagenr As Integer
|
||||
|
||||
packagenr = CInt(Math.Truncate(colRows.Count / Globals.Packagegroesse))
|
||||
packagenr = packagenr + 1
|
||||
Dim f As New frmFortschritt
|
||||
f.MdiParent = Me.MdiParent
|
||||
f.Show()
|
||||
f.ProgressBar1.Value = 0
|
||||
f.ProgressBar1.Maximum = packagenr
|
||||
|
||||
'Loop über die Selektierten Dokumente und die Werte je nach Typ in eine Collection abspeichern
|
||||
Dim RowCunter As Integer = 0
|
||||
For i = 0 To colRows.Count - 1
|
||||
Try
|
||||
'Host Daten abfüllen
|
||||
gendokCold.Add(New clsMehrfachdruck_Data(Me.DokList.Columns("dokumentid").CellValue(colRows(i)), _
|
||||
Me.DokList.Columns("partnernr_inhaber").CellValue(colRows(i)), clsMehrfachdruck_Data.Enum_Typ.HOST, False, _
|
||||
Me.DokList.Columns("dokumenttypnr").CellValue(colRows(i)), "", _
|
||||
Me.DokList.Columns("partnername_inhaber").CellValue(colRows(i)), _
|
||||
Me.DokList.Columns("valutadatum").CellValue(colRows(i))))
|
||||
RowCunter = RowCunter + 1
|
||||
Exit Try
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
If RowCunter > Globals.Packagegroesse - 1 Then
|
||||
f.ProgressBar1.Value = f.ProgressBar1.Value + 1
|
||||
f.Label5.Text = "Druckauftrag " + f.ProgressBar1.Value.ToString + " von " + f.ProgressBar1.Maximum.ToString
|
||||
f.Label5.Text = f.Label5.Text + " - " + Globals.DelayTime.ToString + " Sekunden Wartezeit"
|
||||
Application.DoEvents()
|
||||
f.Refresh()
|
||||
f.BringToFront()
|
||||
f.Refresh()
|
||||
RowCunter = 0
|
||||
fMehrfachdruck.DruckAnfrage(gendokCold, gendokOffice)
|
||||
f.Refresh()
|
||||
Application.DoEvents()
|
||||
gendokCold.Clear()
|
||||
Application.DoEvents()
|
||||
f.Refresh()
|
||||
Dim t1 As DateTime
|
||||
Dim t2 As DateTime
|
||||
Threading.Thread.CurrentThread.Sleep(Globals.DelayTime * 1000)
|
||||
gendokCold.Clear()
|
||||
End If
|
||||
Next
|
||||
|
||||
Try
|
||||
If gendokCold.Count > 0 Then fMehrfachdruck.DruckAnfrage(gendokCold, gendokOffice)
|
||||
Application.DoEvents()
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
f.Close()
|
||||
f.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
|
||||
Dim f As New FrmPartnersuche
|
||||
f.ShowDialog()
|
||||
If f.PartnerNr <> 0 Then
|
||||
Me.txtBPNr.Text = f.PartnerNr
|
||||
Update_BP()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub txtBPNr_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBPNr.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
Update_BP()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub txtBPNr_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtBPNr.Leave
|
||||
Update_BP()
|
||||
End Sub
|
||||
|
||||
Private Sub Update_BP()
|
||||
Try
|
||||
Dim f As New FrmPartnersuche
|
||||
f.Partner_Suche(Me.txtBPNr.Text)
|
||||
If f.PartnerKurzbezeichnnung = "" Then
|
||||
MsgBox("Eingegebener Parter ist nicht vorhanden", MsgBoxStyle.Critical)
|
||||
Me.Label5.Text = "[Kein Partner ausgwählt]"
|
||||
Me.Button1.Enabled = False
|
||||
Me.Button2.Enabled = False
|
||||
Else
|
||||
Me.Label5.Text = f.PartnerKurzbezeichnnung
|
||||
Me.Button1.Enabled = True
|
||||
Me.Button2.Enabled = False
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub txtBPNr_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBPNr.TextChanged
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
116
DokSA/Backup/DokSA/FrmMain.Designer.vb
generated
Normal file
116
DokSA/Backup/DokSA/FrmMain.Designer.vb
generated
Normal file
@@ -0,0 +1,116 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class FrmMain
|
||||
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()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmMain))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.NeuesDetailfensterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.BenutzerverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem, Me.NeuesDetailfensterToolStripMenuItem, Me.BenutzerverwaltungToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(1024, 24)
|
||||
Me.MenuStrip1.TabIndex = 1
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'DateiToolStripMenuItem
|
||||
'
|
||||
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
|
||||
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||
'
|
||||
'BeendenToolStripMenuItem
|
||||
'
|
||||
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
|
||||
Me.BeendenToolStripMenuItem.Text = "&Beenden"
|
||||
'
|
||||
'NeuesDetailfensterToolStripMenuItem
|
||||
'
|
||||
Me.NeuesDetailfensterToolStripMenuItem.Name = "NeuesDetailfensterToolStripMenuItem"
|
||||
Me.NeuesDetailfensterToolStripMenuItem.Size = New System.Drawing.Size(117, 20)
|
||||
Me.NeuesDetailfensterToolStripMenuItem.Text = "Neues Suchfenster"
|
||||
'
|
||||
'BenutzerverwaltungToolStripMenuItem
|
||||
'
|
||||
Me.BenutzerverwaltungToolStripMenuItem.Name = "BenutzerverwaltungToolStripMenuItem"
|
||||
Me.BenutzerverwaltungToolStripMenuItem.Size = New System.Drawing.Size(124, 20)
|
||||
Me.BenutzerverwaltungToolStripMenuItem.Text = "&Benutzerverwaltung"
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(1024, 25)
|
||||
Me.ToolStrip1.TabIndex = 3
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton1.Text = "Applikation schliessen"
|
||||
'
|
||||
'FrmMain
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1024, 542)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.IsMdiContainer = True
|
||||
Me.MainMenuStrip = Me.MenuStrip1
|
||||
Me.Name = "FrmMain"
|
||||
Me.Text = "Dokumentaufbereitung Selbstanzeigen"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents BenutzerverwaltungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents NeuesDetailfensterToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
End Class
|
||||
2046
DokSA/Backup/DokSA/FrmMain.resx
Normal file
2046
DokSA/Backup/DokSA/FrmMain.resx
Normal file
File diff suppressed because it is too large
Load Diff
147
DokSA/Backup/DokSA/FrmMain.vb
Normal file
147
DokSA/Backup/DokSA/FrmMain.vb
Normal file
@@ -0,0 +1,147 @@
|
||||
Imports System.Xml
|
||||
Imports System.Security.Principal
|
||||
|
||||
Public Class FrmMain
|
||||
Implements mMain.SingleInstance.ISingleInstanceForm
|
||||
|
||||
Public ReadOnly Property hWnd() As System.IntPtr Implements DokSA.mMain.SingleInstance.ISingleInstanceForm.Handle
|
||||
Get
|
||||
Return Handle
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Dim users As New DataSet
|
||||
Dim userrechte As Integer
|
||||
|
||||
Public Event WndProc2(ByVal m As System.Windows.Forms.Message, ByRef Cancel As Boolean) Implements mMain.SingleInstance.ISingleInstanceForm.WndProc
|
||||
|
||||
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
|
||||
Dim bCancel As Boolean = False
|
||||
|
||||
RaiseEvent WndProc2(m, bCancel)
|
||||
If Not bCancel Then MyBase.WndProc(m)
|
||||
End Sub
|
||||
|
||||
Public Sub HandleCommand(ByVal strCmd As String) Implements DokSA.mMain.SingleInstance.ISingleInstanceForm.HandleCommand
|
||||
Dim arrCmd() As String
|
||||
Me.BringToFront()
|
||||
Try
|
||||
'arrCmd = SerialHelper.DeserializeFromBase64String(strCmd)
|
||||
'TKBLib.Errorhandling.TraceHelper.Msg("Schnittstelle", "Agrument übergeben: " + arrCmd(0), TraceLevel.Info)
|
||||
'HandleCommand(arrCmd)
|
||||
Catch ex As Exception
|
||||
' HandleCommand(New String() {strCmd})
|
||||
Finally
|
||||
Erase arrCmd
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Dim c As New EDOKA.DB_Connection
|
||||
Globals.conn.scoDBConnection.ConnectionString = Globals.sConnectionString
|
||||
Globals.fMehrfachdruck = New frmMehrfachdruck()
|
||||
Globals.fMehrfachdruck.MdiParent = Me
|
||||
Globals.fMehrfachdruck.Visible = False
|
||||
Globals.fMehrfachdruck.Hide()
|
||||
Globals.fMehrfachdruck.InitForm()
|
||||
|
||||
If check_user() = False Then
|
||||
Me.Close()
|
||||
Exit Sub
|
||||
End If
|
||||
If userrechte = 1 Then Me.BenutzerverwaltungToolStripMenuItem.Visible = True Else Me.BenutzerverwaltungToolStripMenuItem.Visible = False
|
||||
|
||||
Get_Params()
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Dim f As New Form1
|
||||
f.MdiParent = Me
|
||||
f.Show()
|
||||
End Sub
|
||||
Function check_user() As Boolean
|
||||
Dim user As String = Get_Username()
|
||||
If Not System.IO.File.Exists(Application.StartupPath + "\users.xml") Then
|
||||
MsgBox("User-Datenbank ist nicht vorhanden und wird neu erstellt", MsgBoxStyle.Critical)
|
||||
Dim s As String = InputBox("Geben Sie das Passwort ein:")
|
||||
If s <> "selbstanzeigen" Then
|
||||
Return False
|
||||
End If
|
||||
create_usertable(user)
|
||||
Return False
|
||||
End If
|
||||
|
||||
Globals.Userdata.ReadXml(Application.StartupPath + "\users.xml")
|
||||
For Each dr As DataRow In Globals.Userdata.Tables(0).Rows
|
||||
dr.Item(0) = Crypto.DecryptText(dr.Item(0).ToString, "Selbstanzeigen")
|
||||
Next
|
||||
|
||||
userrechte = -1
|
||||
For Each dr As DataRow In Globals.Userdata.Tables(0).Rows
|
||||
If UCase(user) = UCase(dr.Item(0)) Then
|
||||
If dr.Item(1) = 1 Then userrechte = 1 Else userrechte = 0
|
||||
Globals.Mitarbeiternr = dr.Item(2)
|
||||
Globals.tgnummer = user
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If userrechte = -1 Then
|
||||
MsgBox("Sie sind nicht berechtig, die Applikation zu verwenden.", MsgBoxStyle.Exclamation)
|
||||
Return False
|
||||
End If
|
||||
Return True
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Dim ouser As New WindowsPrincipal(WindowsIdentity.GetCurrent)
|
||||
Private Function Get_Username() As String
|
||||
With ouser.Identity.Name
|
||||
Return (.Substring(.IndexOf("\") + 1))
|
||||
End With
|
||||
End Function
|
||||
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Sub Get_Params()
|
||||
Dim xmldoc As New XmlDocument
|
||||
xmldoc.Load(Application.StartupPath + "\Parameters.XML")
|
||||
Globals.Packagegroesse = xmldoc.SelectSingleNode("/Configuration/Packagegroesse").InnerText
|
||||
Globals.DelayTime = xmldoc.SelectSingleNode("/Configuration/DelayTime").InnerText
|
||||
|
||||
End Sub
|
||||
Sub create_usertable(ByVal username As String)
|
||||
Dim ds As New DataSet
|
||||
ds.Tables.Add("Users")
|
||||
ds.Tables(0).Columns.Add("TGNummer")
|
||||
ds.Tables(0).Columns.Add("Rolle")
|
||||
ds.Tables(0).Columns.Add("EDOKA_MA_Nr")
|
||||
Dim dr As DataRow = ds.Tables(0).NewRow
|
||||
dr.Item(0) = Crypto.EncryptText(username, "Selbstanzeigen")
|
||||
dr.Item(1) = 1
|
||||
dr.Item(2) = 0
|
||||
ds.Tables(0).Rows.Add(dr)
|
||||
ds.WriteXml(Application.StartupPath + "\users.xml")
|
||||
End Sub
|
||||
Private Sub BenutzerverwaltungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BenutzerverwaltungToolStripMenuItem.Click
|
||||
Dim f As New frmBenutzer
|
||||
f.MdiParent = Me
|
||||
f.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub NeuesDetailfensterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuesDetailfensterToolStripMenuItem.Click
|
||||
Dim f As New Form1
|
||||
f.MdiParent = Me
|
||||
f.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
25
DokSA/Backup/DokSA/Globals.vb
Normal file
25
DokSA/Backup/DokSA/Globals.vb
Normal file
@@ -0,0 +1,25 @@
|
||||
Module Globals
|
||||
Public fMehrfachdruck As frmMehrfachdruck
|
||||
Public iMerker As Integer = 0
|
||||
Public g_bRun As Boolean
|
||||
Public _HashThreads As New Hashtable()
|
||||
Public _HashDruckanzeige As New Hashtable()
|
||||
|
||||
Public tgnummer As String = "tg9831"
|
||||
Public temppfad As String = "h:\tssettings\edoka\"
|
||||
'Public connectionString As String = "Data Source=shu00;Initial Catalog=edoka_host;User ID=sa;Password=*shu29"
|
||||
|
||||
Public sConnectionString As String
|
||||
Public conn As New edokadb.clsConnectionProvider()
|
||||
Public ConnectionFileName As String = ""
|
||||
Public Spalten As New DataTable()
|
||||
|
||||
Public Packagegroesse As Integer
|
||||
Public DelayTime As Integer
|
||||
Public Userdata As New DataSet
|
||||
Public Mitarbeiternr As Integer
|
||||
|
||||
Public Partnernr As String
|
||||
Public PartnerKurzbezeichnung As String
|
||||
|
||||
End Module
|
||||
34
DokSA/Backup/DokSA/Klassen/Crypto.vb
Normal file
34
DokSA/Backup/DokSA/Klassen/Crypto.vb
Normal file
@@ -0,0 +1,34 @@
|
||||
Module Crypto
|
||||
Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
EncryptText = strBuff
|
||||
End Function
|
||||
|
||||
Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
DecryptText = strBuff
|
||||
End Function
|
||||
End Module
|
||||
172
DokSA/Backup/DokSA/Klassen/MySpalten.vb
Normal file
172
DokSA/Backup/DokSA/Klassen/MySpalten.vb
Normal file
@@ -0,0 +1,172 @@
|
||||
'*
|
||||
' Object MyspaltenTitel
|
||||
'
|
||||
' Dieses Objekt liest die Daten aus der Tabelle Spalten und speichert diese in spaltendaten
|
||||
' Die Daten werden für die Spaltenbezeichnung der C1Datagrids verwendet
|
||||
'
|
||||
' Autor: Stefan Hutter
|
||||
' Datum: 2.12.2002
|
||||
'*
|
||||
Namespace EDOKA
|
||||
Public Class Tabellenspalte
|
||||
Private m_table As String
|
||||
Private m_field As String
|
||||
Private m_spaltenname As String
|
||||
Private m_locked As Boolean
|
||||
Private m_Width As Integer
|
||||
Private m_Order As Integer
|
||||
Private m_alsHacken As Boolean
|
||||
Private m_tiptext As String
|
||||
|
||||
Property ColWith() As Integer
|
||||
Get
|
||||
Return m_Width
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_Width = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Order() As Integer
|
||||
Get
|
||||
Return m_Order
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_Order = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Tabelle() As String
|
||||
Get
|
||||
Return m_table
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_table = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Feld() As String
|
||||
Get
|
||||
Return m_field
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_field = Value
|
||||
End Set
|
||||
End Property
|
||||
Property spaltenname() As String
|
||||
Get
|
||||
Return m_spaltenname
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_spaltenname = Value
|
||||
End Set
|
||||
End Property
|
||||
Property locked() As Boolean
|
||||
Get
|
||||
Return m_locked
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_locked = Value
|
||||
End Set
|
||||
End Property
|
||||
Property AlsHacken() As Boolean
|
||||
Get
|
||||
Return m_alsHacken
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_alsHacken = Value
|
||||
End Set
|
||||
End Property
|
||||
Property TipText() As String
|
||||
Get
|
||||
Return m_tiptext
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_tiptext = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
Public Function getspalte()
|
||||
Try
|
||||
Dim myspalten As New MySpaltenTitel()
|
||||
Me.spaltenname = myspalten.getspalte(Me.Tabelle, Me.Feld)
|
||||
Me.locked = myspalten.getlock(Me.Tabelle, Me.Feld)
|
||||
Me.ColWith = myspalten.getColWidth(Me.Tabelle, Me.Feld)
|
||||
Me.Order = myspalten.getOrder(Me.Tabelle, Me.Feld)
|
||||
Me.AlsHacken = myspalten.gethacken(Me.Tabelle, Me.Feld)
|
||||
Me.TipText = myspalten.gettiptext(Me.Tabelle, Me.Feld)
|
||||
Catch
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Public Class MySpaltenTitel
|
||||
|
||||
|
||||
Public Function getspalte(ByVal tabelle As String, ByVal feld As String) As String
|
||||
Dim i As Integer
|
||||
If Globals.Spalten.Rows.Count = 0 Then load_data()
|
||||
For i = 0 To Globals.Spalten.Rows.Count - 1
|
||||
If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
|
||||
getspalte = Globals.Spalten.Rows(i).Item(3)
|
||||
End If
|
||||
Next
|
||||
End Function
|
||||
|
||||
Public Function getlock(ByVal tabelle As String, ByVal feld As String) As Boolean
|
||||
Dim i As Integer
|
||||
If Globals.Spalten.Rows.Count = 0 Then load_data()
|
||||
For i = 0 To Globals.Spalten.Rows.Count - 1
|
||||
If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
|
||||
getlock = Globals.Spalten.Rows(i).Item(4)
|
||||
End If
|
||||
Next
|
||||
End Function
|
||||
|
||||
Public Function getColWidth(ByVal tabelle As String, ByVal feld As String) As Integer
|
||||
Dim i As Integer
|
||||
If Globals.Spalten.Rows.Count = 0 Then load_data()
|
||||
For i = 0 To Globals.Spalten.Rows.Count - 1
|
||||
If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
|
||||
getColWidth = Globals.Spalten.Rows(i).Item(6)
|
||||
End If
|
||||
Next
|
||||
End Function
|
||||
|
||||
Public Function getOrder(ByVal tabelle As String, ByVal feld As String) As Integer
|
||||
Dim i As Integer
|
||||
If Globals.Spalten.Rows.Count = 0 Then load_data()
|
||||
For i = 0 To Globals.Spalten.Rows.Count - 1
|
||||
If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
|
||||
getOrder = Globals.Spalten.Rows(i).Item(7)
|
||||
End If
|
||||
Next
|
||||
End Function
|
||||
|
||||
Public Function gethacken(ByVal tabelle As String, ByVal feld As String) As Integer
|
||||
Dim i As Integer
|
||||
If Globals.Spalten.Rows.Count = 0 Then load_data()
|
||||
For i = 0 To Globals.Spalten.Rows.Count - 1
|
||||
If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
|
||||
gethacken = Globals.Spalten.Rows(i).Item(5)
|
||||
End If
|
||||
Next
|
||||
End Function
|
||||
|
||||
Public Function gettiptext(ByVal tabelle As String, ByVal feld As String) As String
|
||||
Dim i As Integer
|
||||
If Globals.Spalten.Rows.Count = 0 Then load_data()
|
||||
For i = 0 To Globals.Spalten.Rows.Count - 1
|
||||
If Globals.Spalten.Rows(i).Item(1) = tabelle And Globals.Spalten.Rows(i).Item(2) = feld Then
|
||||
gettiptext = Globals.Spalten.Rows(i).Item(8)
|
||||
End If
|
||||
Next
|
||||
End Function
|
||||
|
||||
Public Sub load_data()
|
||||
Dim spalten As New edokadb.clsSpalten()
|
||||
Globals.Spalten.Rows.Clear()
|
||||
spalten.cpMainConnectionProvider = conn
|
||||
Globals.Spalten = spalten.SelectAll
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
289
DokSA/Backup/DokSA/Klassen/clsConnectionProvider.vb
Normal file
289
DokSA/Backup/DokSA/Klassen/clsConnectionProvider.vb
Normal file
@@ -0,0 +1,289 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Connection Provider class for Database connection sharing
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 26. November 2002, 22:32:48
|
||||
' // This class implements IDisposable.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Collections
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: provides a SqlConnection object which can be shared among data-access tier objects
|
||||
' /// to provide a way to do ADO.NET transaction coding without the hassling with SqlConnection objects
|
||||
' /// on a high level.
|
||||
' /// </summary>
|
||||
Public Class clsConnectionProvider
|
||||
Implements IDisposable
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_scoDBConnection As SqlConnection
|
||||
Private m_bIsTransactionPending, m_bIsDisposed As Boolean
|
||||
Private m_stCurrentTransaction As SqlTransaction
|
||||
Private m_alSavePoints As ArrayList
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Public Sub New()
|
||||
' // Init the class
|
||||
InitClass()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the IDispose' method Dispose.
|
||||
' /// </summary>
|
||||
Overloads Public Sub Dispose() Implements IDisposable.Dispose
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the Dispose functionality.
|
||||
' /// </summary>
|
||||
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||
' // Check to see if Dispose has already been called.
|
||||
If Not m_bIsDisposed Then
|
||||
If bIsDisposing Then
|
||||
' // Dispose managed resources.
|
||||
If Not (m_stCurrentTransaction Is Nothing) Then
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
End If
|
||||
If Not (m_scoDBConnection Is Nothing) Then
|
||||
' // closing the connection will abort (rollback) any pending transactions
|
||||
m_scoDBConnection.Close()
|
||||
m_scoDBConnection.Dispose()
|
||||
m_scoDBConnection = Nothing
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
m_bIsDisposed = True
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Initializes class members.
|
||||
' /// </summary>
|
||||
Private Sub InitClass()
|
||||
' // Create all the objects and initialize other members.
|
||||
m_scoDBConnection = new SqlConnection()
|
||||
m_bIsDisposed = False
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_bIsTransactionPending = False
|
||||
m_alSavePoints = new ArrayList()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Opens the connection object.
|
||||
' /// </summary>
|
||||
' /// <returns>True, if succeeded, otherwise an Exception exception is thrown.</returns>
|
||||
Public Function OpenConnection() As Boolean
|
||||
Try
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) > 0 Then
|
||||
' // It's already open.
|
||||
Throw New Exception("OpenConnection::Connection is already open.")
|
||||
End If
|
||||
m_scoDBConnection.Open()
|
||||
m_bIsTransactionPending = False
|
||||
m_alSavePoints.Clear()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class.
|
||||
' /// </summary>
|
||||
' /// <param name="sTransactionName">Name of the transaction to start</param>
|
||||
' /// <returns>True, if transaction is started correctly, otherwise an Exception exception is thrown</returns>
|
||||
Public Function BeginTransaction(sTransactionName As String) As Boolean
|
||||
Try
|
||||
If m_bIsTransactionPending Then
|
||||
' // no nested transactions allowed.
|
||||
Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("BeginTransaction::Connection is not open.")
|
||||
End If
|
||||
' // begin the transaction and store the transaction object.
|
||||
m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName)
|
||||
m_bIsTransactionPending = True
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Commits a pending transaction on the open connection object of this class.
|
||||
' /// </summary>
|
||||
' /// <returns>True, if commit was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function CommitTransaction() As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("CommitTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("CommitTransaction::Connection is not open.")
|
||||
End if
|
||||
' // commit the transaction
|
||||
m_stCurrentTransaction.Commit()
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Rolls back a pending transaction on the open connection object of this class,
|
||||
' /// or rolls back to the savepoint with the given name. Savepoints are created with SaveTransaction().
|
||||
' /// </summary>
|
||||
' /// <param name="sTransactionToRollback">Name of transaction to roll back. Can be name of savepoint</param>
|
||||
' /// <returns>True, if rollback was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function RollbackTransaction(sTransactionToRollback As String) As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("RollbackTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("RollbackTransaction::Connection is not open.")
|
||||
End If
|
||||
' // rollback the transaction
|
||||
m_stCurrentTransaction.Rollback(sTransactionToRollback)
|
||||
' // if this wasn't a savepoint, we've rolled back the complete transaction, so we
|
||||
' // can clean it up.
|
||||
If Not m_alSavePoints.Contains(sTransactionToRollback) Then
|
||||
' // it's not a savepoint
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
End If
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Saves a pending transaction on the open connection object of this class to a 'savepoint'
|
||||
' /// with the given name.
|
||||
' /// When a rollback is issued, the caller can rollback to this savepoint or roll back the complete transaction.
|
||||
' /// </summary>
|
||||
' /// <param name="sSavePointName">Name of the savepoint to store the current transaction under.</param>
|
||||
' /// <returns>True, if save was succesful, or an Exception exception is thrown</returns>
|
||||
Public Function SaveTransaction(sSavePointName As String) As Boolean
|
||||
Try
|
||||
If Not m_bIsTransactionPending Then
|
||||
' // no transaction pending
|
||||
Throw New Exception("SaveTransaction::No transaction pending.")
|
||||
End If
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // no open connection
|
||||
Throw New Exception("SaveTransaction::Connection is not open.")
|
||||
End If
|
||||
' // save the transaction
|
||||
m_stCurrentTransaction.Save(sSavePointName)
|
||||
' // Store the savepoint in the list.
|
||||
m_alSavePoints.Add(sSavePointName)
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending
|
||||
' /// transaction is commited, or aborted.
|
||||
' /// </summary>
|
||||
' /// <param name="bCommitPendingTransaction">Flag for what to do when a transaction is still pending. True
|
||||
' /// will commit the current transaction, False will abort (rollback) the complete current transaction.</param>
|
||||
' /// <returns>True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when
|
||||
' /// an error occurs</returns>
|
||||
Public Function CloseConnection(bCommitPendingTransaction As Boolean) As Boolean
|
||||
Try
|
||||
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||
' // No open connection
|
||||
Return False
|
||||
End If
|
||||
If m_bIsTransactionPending Then
|
||||
If bCommitPendingTransaction Then
|
||||
' // Commit the pending transaction
|
||||
m_stCurrentTransaction.Commit()
|
||||
Else
|
||||
' // Rollback the pending transaction
|
||||
m_stCurrentTransaction.Rollback()
|
||||
End If
|
||||
m_bIsTransactionPending = False
|
||||
m_stCurrentTransaction.Dispose()
|
||||
m_stCurrentTransaction = Nothing
|
||||
m_alSavePoints.Clear()
|
||||
End If
|
||||
' // close the connection
|
||||
m_scoDBConnection.Close()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // bubble exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public ReadOnly Property stCurrentTransaction() As SqlTransaction
|
||||
Get
|
||||
Return m_stCurrentTransaction
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property bIsTransactionPending() As Boolean
|
||||
Get
|
||||
Return m_bIsTransactionPending
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property scoDBConnection() As SqlConnection
|
||||
Get
|
||||
Return m_scoDBConnection
|
||||
End Get
|
||||
End Property
|
||||
Public WriteOnly Property sConnectionString() As String
|
||||
Set (ByVal Value As String)
|
||||
m_scoDBConnection.ConnectionString = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
202
DokSA/Backup/DokSA/Klassen/clsDBInteractionBase.vb
Normal file
202
DokSA/Backup/DokSA/Klassen/clsDBInteractionBase.vb
Normal file
@@ -0,0 +1,202 @@
|
||||
' //////////////////////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Base class for Database Interaction.
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 26. November 2002, 22:32:48
|
||||
' // Because this class implements IDisposable, derived classes shouldn't do so.
|
||||
' //////////////////////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Error Enums used by this LLBL library.
|
||||
' /// </summary>
|
||||
Public Enum LLBLError
|
||||
AllOk
|
||||
' // Add more here (check the comma's!)
|
||||
End Enum
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: General interface of the API generated. Contains only common methods of all classes.
|
||||
' /// </summary>
|
||||
Public Interface ICommonDBAccess
|
||||
Function Insert() As Boolean
|
||||
Function Update() As Boolean
|
||||
Function Delete() As Boolean
|
||||
Function SelectOne() As DataTable
|
||||
Function SelectAll() As DataTable
|
||||
End Interface
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Abstract base class for Database Interaction classes.
|
||||
' /// </summary>
|
||||
Public MustInherit Class clsDBInteractionBase
|
||||
Implements IDisposable
|
||||
Implements ICommonDBAccess
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Protected m_scoMainConnection As SqlConnection
|
||||
Protected m_iErrorCode As SqlInt32
|
||||
Protected m_bMainConnectionIsCreatedLocal As Boolean
|
||||
Protected m_cpMainConnectionProvider As clsConnectionProvider
|
||||
Private m_sConnectionString As String
|
||||
Private m_bIsDisposed As Boolean
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Initialize the class' members.
|
||||
InitClass()
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Initializes class members.
|
||||
' /// </summary>
|
||||
Private Sub InitClass()
|
||||
' // create all the objects and initialize other members.
|
||||
m_scoMainConnection = new SqlConnection()
|
||||
m_bMainConnectionIsCreatedLocal = True
|
||||
m_cpMainConnectionProvider = Nothing
|
||||
m_iErrorCode = New SqlInt32(LLBLError.AllOk)
|
||||
m_bIsDisposed = False
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the IDispose' method Dispose.
|
||||
' /// </summary>
|
||||
Overloads Public Sub Dispose() Implements IDisposable.Dispose
|
||||
Dispose(True)
|
||||
GC.SuppressFinalize(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the Dispose functionality.
|
||||
' /// </summary>
|
||||
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||
' // Check to see if Dispose has already been called.
|
||||
If Not m_bIsDisposed Then
|
||||
If bIsDisposing Then
|
||||
' // Dispose managed resources.
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Object is created in this class, so destroy it here.
|
||||
m_scoMainConnection.Close()
|
||||
m_scoMainConnection.Dispose()
|
||||
m_bMainConnectionIsCreatedLocal = True
|
||||
End If
|
||||
m_cpMainConnectionProvider = Nothing
|
||||
m_scoMainConnection = Nothing
|
||||
End If
|
||||
End If
|
||||
m_bIsDisposed = True
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Insert() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Delete() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.Update() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.SelectOne() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Implements the ICommonDBAccess.SelectAll() method.
|
||||
' /// </summary>
|
||||
Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll
|
||||
' // No implementation, throw exception
|
||||
Throw New NotImplementedException()
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider
|
||||
Set(ByVal Value As clsConnectionProvider)
|
||||
If Value Is Nothing Then
|
||||
' // Invalid value
|
||||
Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.")
|
||||
End If
|
||||
|
||||
' // A connection provider object is passed to this class.
|
||||
' // Retrieve the SqlConnection object, if present and create a
|
||||
' // reference to it. If there is already a MainConnection object
|
||||
' // referenced by the membervar, destroy that one or simply
|
||||
' // remove the reference, based on the flag.
|
||||
If Not (m_scoMainConnection Is Nothing) Then
|
||||
' // First get rid of current connection object. Caller is responsible
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Is local created object, close it and dispose it.
|
||||
m_scoMainConnection.Close()
|
||||
m_scoMainConnection.Dispose()
|
||||
End If
|
||||
' // Remove reference.
|
||||
m_scoMainConnection = Nothing
|
||||
End If
|
||||
m_cpMainConnectionProvider = CType(Value, clsConnectionProvider)
|
||||
m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection
|
||||
m_bMainConnectionIsCreatedLocal = False
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property iErrorCode() As SqlInt32
|
||||
Get
|
||||
Return m_iErrorCode
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Public Property sConnectionString() As String
|
||||
Get
|
||||
Return m_sConnectionString
|
||||
End Get
|
||||
Set (ByVal Value As String)
|
||||
m_sConnectionString = Value
|
||||
m_scoMainConnection.ConnectionString = m_sConnectionString
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
174
DokSA/Backup/DokSA/Klassen/clsMyPartner.vb
Normal file
174
DokSA/Backup/DokSA/Klassen/clsMyPartner.vb
Normal file
@@ -0,0 +1,174 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
Public Class clsMyPartner
|
||||
Public Function search_partner(ByVal query As String, ByVal anzahl As String, ByVal fnkt As Integer) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim table As String = "dbo.partner"
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_partner_search]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("partner")
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, anzahl))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function search_doppelte_partner(ByVal query As String, ByVal table As String, ByVal fnkt As Integer) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_partner_search]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("partner")
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 4))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Public Function Partner_Detail(ByVal nrpar00 As String) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim table As String = "dbo.partner"
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_partner_detail]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("partner")
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsMyPartner::sp_partner_detail::Error occured." + ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Partner_VV(ByVal nrpar00 As String) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim table As String = "dbo.partner"
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_partner_vv]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("partner")
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Partner_Gebdat(ByVal nrpar00 As String) As String
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim table As String = "dbo.partner"
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_partner_gebdat]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("partner")
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@gebdat", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
|
||||
Return scmCmdToExecute.Parameters("@gebdat").Value
|
||||
Catch ex As Exception
|
||||
' MsgBox(ex.Message)
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
' Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
|
||||
Return ""
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function Partner_Betreuer(ByVal nrpar00 As String) As String
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim table As String = "dbo.partner"
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_partner_betreuer]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("partner")
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@betreuer", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return scmCmdToExecute.Parameters("@betreuer").Value
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
|
||||
Return ""
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
dtToReturn.Dispose()
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
1150
DokSA/Backup/DokSA/Klassen/clsPartner.vb
Normal file
1150
DokSA/Backup/DokSA/Klassen/clsPartner.vb
Normal file
File diff suppressed because it is too large
Load Diff
1612
DokSA/Backup/DokSA/Klassen/clsPartner_Hauptadresse.vb
Normal file
1612
DokSA/Backup/DokSA/Klassen/clsPartner_Hauptadresse.vb
Normal file
File diff suppressed because it is too large
Load Diff
610
DokSA/Backup/DokSA/Klassen/clsSpalten.vb
Normal file
610
DokSA/Backup/DokSA/Klassen/clsSpalten.vb
Normal file
@@ -0,0 +1,610 @@
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
' // Description: Data Access class for the table 'spalten'
|
||||
' // Generated by LLBLGen v1.2.1045.38210 Final on: Montag, 20. Januar 2003, 22:51:23
|
||||
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||
' ///////////////////////////////////////////////////////////////////////////
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Namespace edokadb
|
||||
' /// <summary>
|
||||
' /// Purpose: Data Access class for the table 'spalten'.
|
||||
' /// </summary>
|
||||
Public Class clsSpalten
|
||||
Inherits clsDBInteractionBase
|
||||
|
||||
#Region " Class Member Declarations "
|
||||
|
||||
Private m_bReadonly, m_bAlsHacken, m_bAktiv As SqlBoolean
|
||||
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||
Private m_iMandantnr, m_iMutierer, m_iReihenfolge, m_iBreite, m_iEintragnr As SqlInt32
|
||||
Private m_sTabelle, m_sTabellenspalte, m_sTiptext, m_sSpalte As SqlString
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Class constructor.
|
||||
' /// </summary>
|
||||
Public Sub New()
|
||||
' // Nothing for now.
|
||||
End Sub
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Insert method. This method will insert one new row into the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iEintragnr</LI>
|
||||
' /// <LI>sTabelle. May be SqlString.Null</LI>
|
||||
' /// <LI>sTabellenspalte. May be SqlString.Null</LI>
|
||||
' /// <LI>sSpalte. May be SqlString.Null</LI>
|
||||
' /// <LI>bReadonly. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bAlsHacken. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>iBreite. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iReihenfolge. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sTiptext. May be SqlString.Null</LI>
|
||||
' /// <LI>bAktiv</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Insert() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_spalten_Insert]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabelle", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabelle))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabellenspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabellenspalte))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpalte))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReadonly", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bReadonly))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@balsHacken", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAlsHacken))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iBreite", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBreite))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stiptext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTiptext))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_spalten_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsSpalten::Insert::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Update method. This method will Update one existing row in the database.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iEintragnr</LI>
|
||||
' /// <LI>sTabelle. May be SqlString.Null</LI>
|
||||
' /// <LI>sTabellenspalte. May be SqlString.Null</LI>
|
||||
' /// <LI>sSpalte. May be SqlString.Null</LI>
|
||||
' /// <LI>bReadonly. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>bAlsHacken. May be SqlBoolean.Null</LI>
|
||||
' /// <LI>iBreite. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iReihenfolge. May be SqlInt32.Null</LI>
|
||||
' /// <LI>sTiptext. May be SqlString.Null</LI>
|
||||
' /// <LI>bAktiv</LI>
|
||||
' /// <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||
' /// <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||
' /// <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Overrides Public Function Update() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_spalten_Update]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabelle", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabelle))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabellenspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabellenspalte))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@sspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpalte))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReadonly", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bReadonly))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@balsHacken", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAlsHacken))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iBreite", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBreite))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@stiptext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTiptext))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_spalten_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsSpalten::Update::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iEintragnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Public Overrides Function Delete() As Boolean
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_spalten_Delete]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_spalten_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsSpalten::Delete::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties needed for this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iEintragnr</LI>
|
||||
' /// </UL>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// <LI>iEintragnr</LI>
|
||||
' /// <LI>sTabelle</LI>
|
||||
' /// <LI>sTabellenspalte</LI>
|
||||
' /// <LI>sSpalte</LI>
|
||||
' /// <LI>bReadonly</LI>
|
||||
' /// <LI>bAlsHacken</LI>
|
||||
' /// <LI>iBreite</LI>
|
||||
' /// <LI>iReihenfolge</LI>
|
||||
' /// <LI>sTiptext</LI>
|
||||
' /// <LI>bAktiv</LI>
|
||||
' /// <LI>daErstellt_am</LI>
|
||||
' /// <LI>daMutiert_am</LI>
|
||||
' /// <LI>iMutierer</LI>
|
||||
' /// <LI>iMandantnr</LI>
|
||||
' /// </UL>
|
||||
' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||
' /// </remarks>
|
||||
Overrides Public Function SelectOne() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_spalten_SelectOne]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = new DataTable("spalten")
|
||||
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_spalten_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
If dtToReturn.Rows.Count > 0 Then
|
||||
m_iEintragnr = New SqlInt32(CType(dtToReturn.Rows(0)("eintragnr"), Integer))
|
||||
If dtToReturn.Rows(0)("tabelle") Is System.DBNull.Value Then
|
||||
m_sTabelle = SqlString.Null
|
||||
Else
|
||||
m_sTabelle = New SqlString(CType(dtToReturn.Rows(0)("tabelle"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("tabellenspalte") Is System.DBNull.Value Then
|
||||
m_sTabellenspalte = SqlString.Null
|
||||
Else
|
||||
m_sTabellenspalte = New SqlString(CType(dtToReturn.Rows(0)("tabellenspalte"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("spalte") Is System.DBNull.Value Then
|
||||
m_sSpalte = SqlString.Null
|
||||
Else
|
||||
m_sSpalte = New SqlString(CType(dtToReturn.Rows(0)("spalte"), String))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Readonly") Is System.DBNull.Value Then
|
||||
m_bReadonly = SqlBoolean.Null
|
||||
Else
|
||||
m_bReadonly = New SqlBoolean(CType(dtToReturn.Rows(0)("Readonly"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("alsHacken") Is System.DBNull.Value Then
|
||||
m_bAlsHacken = SqlBoolean.Null
|
||||
Else
|
||||
m_bAlsHacken = New SqlBoolean(CType(dtToReturn.Rows(0)("alsHacken"), Boolean))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Breite") Is System.DBNull.Value Then
|
||||
m_iBreite = SqlInt32.Null
|
||||
Else
|
||||
m_iBreite = New SqlInt32(CType(dtToReturn.Rows(0)("Breite"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("Reihenfolge") Is System.DBNull.Value Then
|
||||
m_iReihenfolge = SqlInt32.Null
|
||||
Else
|
||||
m_iReihenfolge = New SqlInt32(CType(dtToReturn.Rows(0)("Reihenfolge"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("tiptext") Is System.DBNull.Value Then
|
||||
m_sTiptext = SqlString.Null
|
||||
Else
|
||||
m_sTiptext = New SqlString(CType(dtToReturn.Rows(0)("tiptext"), String))
|
||||
End If
|
||||
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||
m_daErstellt_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||
m_daMutiert_am = SqlDateTime.Null
|
||||
Else
|
||||
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||
m_iMutierer = SqlInt32.Null
|
||||
Else
|
||||
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||
End If
|
||||
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||
m_iMandantnr = SqlInt32.Null
|
||||
Else
|
||||
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||
End If
|
||||
End If
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsSpalten::SelectOne::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
' /// <summary>
|
||||
' /// Purpose: SelectAll method. This method will Select all rows from the table.
|
||||
' /// </summary>
|
||||
' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||
' /// <remarks>
|
||||
' /// Properties set after a succesful call of this method:
|
||||
' /// <UL>
|
||||
' /// <LI>iErrorCode</LI>
|
||||
' /// </UL>
|
||||
' /// </remarks>
|
||||
Public Overrides Function SelectAll() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.[pr_spalten_SelectAll]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable("spalten")
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
' // Use base class' connection object
|
||||
scmCmdToExecute.Connection = m_scoMainConnection
|
||||
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Open connection.
|
||||
m_scoMainConnection.Open()
|
||||
Else
|
||||
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
' // Execute query.
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||
|
||||
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||
' // Throw error.
|
||||
Throw New Exception("Stored Procedure 'pr_spalten_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||
End If
|
||||
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("clsSpalten::SelectAll::Error occured.", ex)
|
||||
Finally
|
||||
If m_bMainConnectionIsCreatedLocal Then
|
||||
' // Close connection.
|
||||
m_scoMainConnection.Close()
|
||||
End If
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
#Region " Class Property Declarations "
|
||||
|
||||
Public Property [iEintragnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iEintragnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
Dim iEintragnrTmp As SqlInt32 = Value
|
||||
If iEintragnrTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("iEintragnr", "iEintragnr can't be NULL")
|
||||
End If
|
||||
m_iEintragnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sTabelle]() As SqlString
|
||||
Get
|
||||
Return m_sTabelle
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sTabelle = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sTabellenspalte]() As SqlString
|
||||
Get
|
||||
Return m_sTabellenspalte
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sTabellenspalte = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sSpalte]() As SqlString
|
||||
Get
|
||||
Return m_sSpalte
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sSpalte = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bReadonly]() As SqlBoolean
|
||||
Get
|
||||
Return m_bReadonly
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bReadonly = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bAlsHacken]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAlsHacken
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
m_bAlsHacken = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iBreite]() As SqlInt32
|
||||
Get
|
||||
Return m_iBreite
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iBreite = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iReihenfolge]() As SqlInt32
|
||||
Get
|
||||
Return m_iReihenfolge
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iReihenfolge = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [sTiptext]() As SqlString
|
||||
Get
|
||||
Return m_sTiptext
|
||||
End Get
|
||||
Set(ByVal Value As SqlString)
|
||||
m_sTiptext = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [bAktiv]() As SqlBoolean
|
||||
Get
|
||||
Return m_bAktiv
|
||||
End Get
|
||||
Set(ByVal Value As SqlBoolean)
|
||||
Dim bAktivTmp As SqlBoolean = Value
|
||||
If bAktivTmp.IsNull Then
|
||||
Throw New ArgumentOutOfRangeException("bAktiv", "bAktiv can't be NULL")
|
||||
End If
|
||||
m_bAktiv = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daErstellt_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daErstellt_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daErstellt_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [daMutiert_am]() As SqlDateTime
|
||||
Get
|
||||
Return m_daMutiert_am
|
||||
End Get
|
||||
Set(ByVal Value As SqlDateTime)
|
||||
m_daMutiert_am = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMutierer]() As SqlInt32
|
||||
Get
|
||||
Return m_iMutierer
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMutierer = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Property [iMandantnr]() As SqlInt32
|
||||
Get
|
||||
Return m_iMandantnr
|
||||
End Get
|
||||
Set(ByVal Value As SqlInt32)
|
||||
m_iMandantnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
21
DokSA/Backup/DokSA/Klassen/db_connection.vb
Normal file
21
DokSA/Backup/DokSA/Klassen/db_connection.vb
Normal file
@@ -0,0 +1,21 @@
|
||||
Imports System.IO
|
||||
Namespace EDOKA
|
||||
Public Class DB_Connection
|
||||
|
||||
Shared Sub New()
|
||||
Dim fc As Integer = 0
|
||||
If fc < 2 Then Globals.ConnectionFileName = "edokaconn.cfg"
|
||||
Dim ofile As System.IO.File
|
||||
Dim oread As System.IO.StreamReader
|
||||
oread = ofile.OpenText(Application.StartupPath + "\" + Globals.ConnectionFileName)
|
||||
sConnectionString = oread.ReadLine
|
||||
sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
|
||||
sConnectionString = Left(sConnectionString, Len(sConnectionString) - 1)
|
||||
Globals.sConnectionString = sConnectionString
|
||||
oread.Close()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
End Namespace
|
||||
139
DokSA/Backup/DokSA/Klassen/frmBenutzer.Designer.vb
generated
Normal file
139
DokSA/Backup/DokSA/Klassen/frmBenutzer.Designer.vb
generated
Normal file
@@ -0,0 +1,139 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmBenutzer
|
||||
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()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBenutzer))
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton
|
||||
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton
|
||||
Me.DokList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Me.Label1 = New System.Windows.Forms.Label
|
||||
Me.Label2 = New System.Windows.Forms.Label
|
||||
Me.Label3 = New System.Windows.Forms.Label
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
CType(Me.DokList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(466, 25)
|
||||
Me.ToolStrip1.TabIndex = 0
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton1.Text = "Fenster schliessen"
|
||||
'
|
||||
'ToolStripButton2
|
||||
'
|
||||
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton2.Name = "ToolStripButton2"
|
||||
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
|
||||
Me.ToolStripButton2.Text = "Daten speichern"
|
||||
'
|
||||
'DokList
|
||||
'
|
||||
Me.DokList.AllowAddNew = True
|
||||
Me.DokList.AllowDelete = True
|
||||
Me.DokList.AlternatingRows = True
|
||||
Me.DokList.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.DokList.FetchRowStyles = True
|
||||
Me.DokList.FilterBar = True
|
||||
Me.DokList.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.DokList.Images.Add(CType(resources.GetObject("DokList.Images"), System.Drawing.Image))
|
||||
Me.DokList.Location = New System.Drawing.Point(0, 25)
|
||||
Me.DokList.Name = "DokList"
|
||||
Me.DokList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DokList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.DokList.PreviewInfo.ZoomFactor = 75
|
||||
Me.DokList.PrintInfo.PageSettings = CType(resources.GetObject("DokList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.DokList.ScrollTips = True
|
||||
Me.DokList.Size = New System.Drawing.Size(352, 237)
|
||||
Me.DokList.TabIndex = 13
|
||||
Me.DokList.Text = "C1TrueDBGrid2"
|
||||
Me.DokList.PropBag = resources.GetString("DokList.PropBag")
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(367, 25)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(40, 13)
|
||||
Me.Label1.TabIndex = 14
|
||||
Me.Label1.Text = "Rollen:"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(367, 38)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(79, 13)
|
||||
Me.Label2.TabIndex = 15
|
||||
Me.Label2.Text = "1: Administrator"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(367, 51)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(86, 13)
|
||||
Me.Label3.TabIndex = 16
|
||||
Me.Label3.Text = "0: Normaler User"
|
||||
'
|
||||
'frmBenutzer
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(466, 262)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.DokList)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Name = "frmBenutzer"
|
||||
Me.Text = "Benutzerverwaltung"
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
CType(Me.DokList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents DokList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
End Class
|
||||
230
DokSA/Backup/DokSA/Klassen/frmBenutzer.resx
Normal file
230
DokSA/Backup/DokSA/Klassen/frmBenutzer.resx
Normal file
@@ -0,0 +1,230 @@
|
||||
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAzISURBVGhD7Zl5XJTlFsdVFlkGhmEGhkVWWWefeWfYEdkF
|
||||
FXdJzTVXRKXc0upmt+Xm1a5663O7ZYXiliWuiSJCguICoiSIiqMzLiGKsZQpfG71u+cdQZlKBRv7q/l8
|
||||
vp934Xnf9/zOOc/znOehR4+/fn954M/1AMMwApkm9J9ShtkgVjLZLMEKZbaEYbIV6pBs2e/BqLNl3aH9
|
||||
HXJGkyNjQlfJZOHOJlMpDwtzV4VGFEfFxl6NiovTRcbG6tTh4TomLEyniYig8wgdY7gO0alCCI1Gp2DU
|
||||
BKOTEVKVSidRKnVihUInksl0/mKxzl/UCboOlsp0QUSwTHFFrgk5rlQqvUwmIFAu9ybDr275chMKiw9g
|
||||
d94O5GzKxsLF8zEqfSQGpw1E6qAUpKQmIyk5EfEJsYjp3w+R0ZEIiwhDSIgGKkYJuUIOf38/WFlbw9zC
|
||||
wgjL3r3BIvThQqSUNyhCQ/1NJiCYvBGdkKAtLi1Ca+uP+P77ZrR834TGxtuoqvoG69Z9hjff+jsWv7yI
|
||||
WIiFi+bjpflZmDsvE7MzZ2LGrGmYmTENk6ZMhEqlhJmZGci439KrBwLibSDWSL4VKcP8TCqgX2KC9uCh
|
||||
fPzwQ7PBcJampu8M3GqoR0VFObblfoHVa1bhH8vfwdvvvIU33nwdf1v2Cl557WW8+rcldO9NxMXFwtzc
|
||||
/L7xPR/Sk87NLHogOMkOkj9LACvi9u1bqLtxHdevX4H2Ui1OlB3Fzt25WPvpR/jgP2tI0HtYuWo5Vq1Z
|
||||
ic1bNmLYiKGUKhboSd42M+/1AHOLXrC06QlRCitA+mwiUFhsHIHOAvT6S7iovYBzF6pReaYCR44ewq49
|
||||
udi4ZT0+zf4I6zZ8iv35eRj7/BhY2VrCzLInLKzMHmBpbQYru16QpNpDEvJMBCRq2Q7cOYV+LaD24nlU
|
||||
15zBqcpylJ08itJjxSgo2o+de7ZhD3X8U6dPYvrMqeBwrcnb5rDiWBph42AB6WAHSEKfgYCYxO4JOFFe
|
||||
isOlX+Pg1/nYX/AVHfdTdGowe84scAU2sOZawJbX+yHc3rBzsoRsyDMQ4MswnlEDkmoLS7oegc4C9h3Y
|
||||
Q5HYh5rzZw0CHIS2sHW0hJ3A6iF8K3BdekM+jGf6CIzxCggaFR3VUFBaSCnU8mAUelwK/a6AcyRgbgb4
|
||||
7vawF1rDwdX2ISTK0cMGqpF8SMJkpu3EHzs6hn3I5aFo9Uo0t95FU8v9OeBpBGSSACdPLnjuNuB7cB7S
|
||||
hwMnH1swo/mQmlrAahcXzXq+ALtc3PDNxx+h5cc7D0R0DKPsKNS5E/9+BKqROS+DZlsH8L1syWA7I4T+
|
||||
HKifE0AabuIILOfz1V96e6MuKhr5nt4oW74czXda0EQzcncFzMnKgJufI5x97eHi52CEWxAXoeOcIYuU
|
||||
mzaF3uK7qD/39MLP6aNxZ8gQHKDzI4sXo6m5EY2UTnV11/C4COQf3Hu/E5+rBiugTyAfrgFcuAfyjPAQ
|
||||
OyBs/DMQ8J6zs3Sztw9ahw0DBgzA3eHDUeTTF1/PmIHbN+tR39jwSAEHCvchd+dWFFIZco5GIVaAp1gA
|
||||
dzLWQ+xohJech/AJXRSQzeU65Njb+2225Yk3cBxFj2KTnZ1/tq39c9s9PHFv1CiAYYD4eLSNGYPDAUEo
|
||||
eG4Mrl2+iKtUTvy6D5QeK8Gur7bj1WVLaTb+2CBg7kuz4SMXwlPOh7fCyQhftQBRk10gj+pCCm22543Z
|
||||
zHU4to0nuJ4rcNbnCoQEe/w1wktf8AT1BT6+uDduHBAWBiopgaRE/DRxIo5LZdibPAC1pyugvaZ7MBOz
|
||||
nfjYicPYs3cnZmRMh1QqQXn5Ccx5MQN9GRd4qwTwZZyN8At1QvRU164JWGfDmb6V63ijLS0NP02YYDDm
|
||||
SWDSJCAyEggPB0JDSUQSMGUKTqnV2B0RiaqSIpzTXTSUEqyAo8dL8K/VKxBF6wI/WgecpIqVFeCvcUXf
|
||||
ECf4hQqNCIh0RvQ0N8ijuxCBHBvOC1sd+fqfSQCb12xaICHh8bBtoqMfwopJTgaoL5ylEWo3CSn7aie+
|
||||
uVBlqIUOHMxDbFx/LFj0Ij5bvxZna2gYzZqFwDB3BIQLERjhakRwjAv6zXSHvF+XBQj0/2MNIG/+EhOD
|
||||
X2Jj79O//6PpaNNxpOcMDsicDW1iEnaIpTi8cR3KqypQfKQIGzatw7Ydn9NKLp8EVBkEiKI8ENzPFaIY
|
||||
dyMk8W6Ind0Hin6KJw+jbAQ+5wv0d+Pi0NqnD1o9PdFKud1KXm0l49oSE+9DUWkjz7d2gr023GehNq0k
|
||||
oo2e+Zk69kWKwnYasQreX4PSyjKUUFl9oDDPMIxWnz1DKTQLkv4eEMe5QRLfxwhZsjviMj26J6CJPt4k
|
||||
FKLR1haNHA4a+Xw0eXmhOSAAzVIpWsiglpAQtFDnbYmIQAvlfwtFjL3fLJOhOTDQ0L7R0RGNPB7uUFut
|
||||
TI5dNOHlLXsNhSUH0VHMsQIyX8qALM4LssQ+kCd5GqFM9UD8XE+oYroRgZtk1A36eB0tqOtosV1nZYU6
|
||||
S0vU0aLbcE6i6uztcYOFyzXAXhvud7Rl27PP01LxJkWzOSEehwTO2NjHAwW0OtvXPpFVV1MEXpoFZZIP
|
||||
lKlkaKq3Eeo0LyS96NU9AVfJYzoy5lLPnrhEi+3OaHv1wgPo79oOOt1n22tZaI171c0N1+h9xUIX5GpC
|
||||
ULgh2zgCBgEZYFJ8wZCx6jQfI0KGeyN5PomKUXWxDzgK9JcpFWrJk+fJgD/CZQ8PaNUM9vEcsSMlBaX5
|
||||
X+FIxTHDguZBCpGAufMzoB7sh5DhPggd3teI8NG+SFlE4rojQM/mLEWglrz4SMzv/+08ef43Iikqej8/
|
||||
nFcosZtK7rzJk1FBQ2jZmXIcplGos4CqdgGhQ/0RNsoP4aP8jYgc44fUJX3B9O9CBDbacKdtceBfv0AC
|
||||
2JHjoop5DCpoqZ2eOnBnEReon1wRiVAlkWA7lduHli5BdW0NKmsqDRNZx5KyIwIGAQsyED4yABFj/RE5
|
||||
NsCI6An+GLi0iwI22zk8v8Xe4cwuJ+cmouEx3Nrp5NxywMsbWhqJaqmjslGotbHBFYUCJwMCkUt1UtkH
|
||||
7+MSW0qcr34wE3cIyMvfbRhKa2rOImthJiLTgxA9PhD9xgcZ0X9yIAa/6gcmlnlyH2CLObZQ28DhiDZx
|
||||
OEGPYqudXeAnXO6oHBdXQ6RqyXgtjUR6KuqO0Cizk2qh6p3bcf27W6ilbZWOXYnjZUdQfLgIRcUFhln5
|
||||
EpUYFRUVeGHmRMSMk6D/pGDEThIZET81GGmvB0DdFQHd2bZbIRRK1ru5Q8uooXN1hV6jwUGBE/b2i4G+
|
||||
7ARu0W6d/splQzVadfYbnDx9AhWny6j6rIaO7ldWnsKWLZsxc840DJ2QgISpUsRPFRFiIxJnijD0DRIQ
|
||||
14UIdEfAchcXdY6rG3SUQpdpEsvjO6Fg5EjU005c453vDTtzep0WF2rP4cLFc7h6TU+LnOsoP1mGnA05
|
||||
yFqcgeFTEpA6XYPEWWIkzZL+LgPmSDD8zQBoTC6AVmQ5FIGqoGDsIc+XUN3DLiVb7t5BQ8NN3CAB9fXf
|
||||
ouF2A27dummoOj+h+n/h6/MwYnYcBmaqkUzGJc+RImWO/JEMfFGGEe8EQROvfnIf6E4E1gqFIZ/x+Mh1
|
||||
EqLsrbfRRFsrBmhj9w5F4M6PPxgMr6ysxCfrPsTLb89D+vwEpMxTICWLjM6SITVL8UQGLZBj5LvPQMA0
|
||||
a7vQtTS7Fq14By20rdLc0owfaWeira0VN2/dwGlazKzf+gkWvDsD419JxsD5cgwiBi9QIa0bDH1ZidHL
|
||||
RQhJ1nzr5OHRtztOfmxbix4W4skD4xuKTx3GvdZ7aGttw3ff3UZZxQls2vEpst6diPSlMRi0UIGBC2QY
|
||||
soh5KoYtVSF9pQhhA0KpFLMVm0KAGb2kN+3na5JHD9YfPVmCpsZGlJ8+hpwd/8W8Fc9j6KKQ+x6n8Kct
|
||||
JMP/AMOW3BdAEai3suJE07dtCcunFdKLHuQSQjOz3gmDRg++vvdQLrJ3r8a8VekYvFiGQYukGLpESahM
|
||||
wvDXlEh/T4TQJE2DpaXdIPq2G8EnzJ9GBKuc/U+hp6WldVp4fGTDuCXJGLaMRoqVvhizSkSITcrYf4uR
|
||||
vkIMTaLmBysL29H0bbYfsCJsnkYAq1pAeNjY2CRLVMzpYKWiXqJR3VREMISq3uREMvWKcKZeqtbUWFtb
|
||||
D6Fv+xIuhPXTCGCfYR8UEoH29o6JHC53GDHK1p73HHs0NVyu4wgWOx4vxcLCQkLfdSfsCTadn/rHppJD
|
||||
ezRYb3i2h9abjqbGo91oNnUd21On51Nb3ulB9iUW7S/ktAtiO7ipsaN3siNP7z/qdVOI/usdj/LA/wGD
|
||||
64pjkCipnAAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABeSURBVDhPYzhw4MB/SjADSDMDAwNZGKwXZkBDA8QQQq6B
|
||||
qYHT5BgAczHZLkB2LVleGMQGwJyGL1pBanB6ASZJDI01GolxAUgjXhfgcj4sgQ1SA8jNUPCkTCgD4ZMH
|
||||
ADk0Kh+zxKF0AAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="DokList.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVChTY2DABP+xiIGFkCVwsVEUwhThNREkiaEAJoiP
|
||||
RnEmskKs7kd3C1YrYTrx+g6bIrAYAKCqHOQvFu6BAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="DokList.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMEAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQAAAAAICAgIAgAAAGQAAABkAAAAZAAAAGQAAAABCgAAAAEAAAAJAwAAAAHz/////P///wAK
|
||||
CgoB8v////z///8ACQ8AAAABDwAAAAYAAABkAAAAZAAAAGQAAABkAAAACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="DokList.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style13{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{BackColor:255, 255, 192;}EvenRow{BackColor:224, 224, 224;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style11{}Style16{}Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style10{AlignHorz:Near;}Style15{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style16" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 350, 235</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /><Style parent="FilterBar" me="FilterWatermark" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 350, 235</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
</root>
|
||||
27
DokSA/Backup/DokSA/Klassen/frmBenutzer.vb
Normal file
27
DokSA/Backup/DokSA/Klassen/frmBenutzer.vb
Normal file
@@ -0,0 +1,27 @@
|
||||
Public Class frmBenutzer
|
||||
|
||||
Private Sub frmBenutzer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.DokList.DataSource = Globals.Userdata.Tables(0)
|
||||
Me.DokList.DataMember = Globals.Userdata.Tables(0).TableName
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
|
||||
For Each dr As DataRow In Globals.Userdata.Tables(0).Rows
|
||||
dr.Item(0) = Crypto.EncryptText(dr.Item(0).ToString, "Selbstanzeigen")
|
||||
Next
|
||||
Globals.Userdata.WriteXml(Application.StartupPath + "\users.xml")
|
||||
Globals.Userdata.Tables.Clear()
|
||||
Globals.Userdata.ReadXml(Application.StartupPath + "\users.xml")
|
||||
For Each dr As DataRow In Globals.Userdata.Tables(0).Rows
|
||||
dr.Item(0) = Crypto.DecryptText(dr.Item(0).ToString, "Selbstanzeigen")
|
||||
Next
|
||||
Me.DokList.DataSource = Nothing
|
||||
Me.DokList.DataSource = Globals.Userdata.Tables(0)
|
||||
Me.DokList.DataMember = Globals.Userdata.Tables(0).TableName
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
End Class
|
||||
295
DokSA/Backup/DokSA/Klassen/mMain.vb
Normal file
295
DokSA/Backup/DokSA/Klassen/mMain.vb
Normal file
@@ -0,0 +1,295 @@
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Diagnostics
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Text
|
||||
Imports System.Runtime.Serialization.Formatters.Binary
|
||||
|
||||
Imports System.IO
|
||||
|
||||
Imports EDOKALib.Common
|
||||
|
||||
Public Module mMain
|
||||
Public Class SerialHelper
|
||||
'///Class mercilessly ripped-off from Dr GUI.Net #3 :)
|
||||
Public Shared Function SerializeToBase64String(ByVal o As Object) As String
|
||||
Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
|
||||
Dim serialMemoryStream As New MemoryStream()
|
||||
formatter.Serialize(serialMemoryStream, o)
|
||||
Dim bytes() As Byte = serialMemoryStream.ToArray()
|
||||
Return Convert.ToBase64String(bytes).Trim()
|
||||
End Function
|
||||
|
||||
Public Shared Function DeserializeFromBase64String(ByVal base64String As String) As Object
|
||||
Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
|
||||
base64String = base64String.Trim(ControlChars.NullChar)
|
||||
Dim bytes() As Byte = Convert.FromBase64String(base64String)
|
||||
Dim serialMemoryStream As New MemoryStream(bytes)
|
||||
Return formatter.Deserialize(serialMemoryStream)
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Public Class SingleInstance
|
||||
Public Interface ISingleInstanceForm
|
||||
Delegate Sub _WndProc(ByVal m As Message, ByRef Cancel As Boolean)
|
||||
Event WndProc As _WndProc
|
||||
ReadOnly Property Handle() As IntPtr
|
||||
Sub HandleCommand(ByVal strCmd As String)
|
||||
End Interface
|
||||
#Region "API"
|
||||
Private Const WM_COPYDATA As Integer = &H4A
|
||||
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Public Structure COPYDATASTRUCT
|
||||
Public dwData As Integer
|
||||
Public cbData As Integer
|
||||
Public lpData As Integer
|
||||
End Structure
|
||||
|
||||
Private Declare Auto Function GetProp Lib "user32" (ByVal hWnd As Integer, ByVal lpString As String) As Integer
|
||||
Private Declare Auto Function SetProp Lib "user32" (ByVal hWnd As Integer, ByVal lpString As String, ByVal hData As Integer) As Integer
|
||||
|
||||
Private Delegate Function EnumWindowsProc(ByVal hWnd As Integer, ByVal lParam As Integer) As Integer
|
||||
Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As EnumWindowsProc, ByVal lParam As Integer) As Integer
|
||||
|
||||
Private Declare Auto Function SendMessage Lib "user32" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr) As Integer
|
||||
|
||||
Public Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" _
|
||||
(ByVal windowHandle As IntPtr, _
|
||||
ByVal Msg As UInt16, _
|
||||
ByVal wParam As IntPtr, _
|
||||
ByRef lParam As COPYDATASTRUCT, _
|
||||
ByVal flags As SendMessageTimeoutFlags, _
|
||||
ByVal timeout As UInt16, _
|
||||
ByVal result As IntPtr) As IntPtr
|
||||
|
||||
<Flags()> _
|
||||
Public Enum SendMessageTimeoutFlags As Short
|
||||
SMTO_NORMAL = &H0 '0x0000
|
||||
SMTO_BLOCK = &H1 ''0x0001
|
||||
SMTO_ABORTIFHUNG = &H2 '0x0002
|
||||
SMTO_NOTIMEOUTIFNOTHUNG = &H8 '0x0008
|
||||
End Enum
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "EnumWindows"
|
||||
Private Shared _EWP As New EnumWindowsProc(AddressOf EWP)
|
||||
Private Shared Function EWP(ByVal hWnd As Integer, ByVal lParam As Integer) As Integer
|
||||
' Customised windows enumeration procedure. Stops
|
||||
' when it finds another application with the Window
|
||||
' property set, or when all windows are exhausted.
|
||||
Try
|
||||
If IsThisApp(hWnd) Then
|
||||
_hWnd = hWnd
|
||||
Return 0
|
||||
Else
|
||||
Return 1
|
||||
End If
|
||||
Catch
|
||||
Return 0
|
||||
End Try
|
||||
End Function
|
||||
Private Shared Function IsThisApp(ByVal hWnd As Long) As Boolean
|
||||
' Check if the windows property is set for this
|
||||
' window handle:
|
||||
If GetProp(hWnd, _mcThisAppID & "_APPLICATION") = 1 Then
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Shared Function FindWindow() As Boolean
|
||||
If _hWnd = -1 Then
|
||||
EnumWindows(_EWP, 0)
|
||||
If _hWnd = -1 Then
|
||||
Return False
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Shared Function SendCDSToWindow(ByVal CD As COPYDATASTRUCT) As Boolean
|
||||
Try
|
||||
Dim lpCD As IntPtr = Marshal.AllocHGlobal(Len(CD))
|
||||
Marshal.StructureToPtr(CD, lpCD, False)
|
||||
'SendMessage(_hWnd, WM_COPYDATA, _hWnd, lpCD)
|
||||
Dim result As IntPtr
|
||||
Dim retVal As IntPtr
|
||||
|
||||
Dim handle As New IntPtr(_hWnd)
|
||||
|
||||
retVal = SendMessageTimeout(handle, Convert.ToUInt16(WM_COPYDATA), handle, CD, SendMessageTimeoutFlags.SMTO_NORMAL, Convert.ToUInt16(2000), result)
|
||||
|
||||
Marshal.FreeHGlobal(lpCD)
|
||||
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
'TKBLib.Errorhandling.TraceHelper.Msg("EdokaApp.mMain.SendCDSToWindow", ex.Message & ex.StackTrace, TraceLevel.Error)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Shared Function SendMessageToWindow(ByVal strCmd As String) As Boolean
|
||||
If _hWnd = -1 Then Return False
|
||||
If Len(strCmd) = 0 Then
|
||||
Try
|
||||
Dim CD As COPYDATASTRUCT
|
||||
With CD
|
||||
.dwData = 0
|
||||
.cbData = 0
|
||||
.lpData = 0
|
||||
End With
|
||||
Return SendCDSToWindow(CD)
|
||||
Catch
|
||||
Return False
|
||||
End Try
|
||||
Else
|
||||
Try
|
||||
Dim B() As Byte = Encoding.Default.GetBytes(strCmd)
|
||||
Dim lpB As IntPtr = Marshal.AllocHGlobal(B.Length)
|
||||
Marshal.Copy(B, 0, lpB, B.Length)
|
||||
|
||||
Dim CD As COPYDATASTRUCT
|
||||
With CD
|
||||
.dwData = 0
|
||||
.cbData = B.Length
|
||||
.lpData = lpB.ToInt32
|
||||
End With
|
||||
Erase B
|
||||
|
||||
Try
|
||||
If SendCDSToWindow(CD) Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Catch
|
||||
Return False
|
||||
Finally
|
||||
Marshal.FreeHGlobal(lpB)
|
||||
End Try
|
||||
|
||||
Catch
|
||||
Return False
|
||||
End Try
|
||||
End If
|
||||
End Function
|
||||
Private Shared Function SendMessageToWindow(ByVal oCmd As Object) As Boolean
|
||||
Try
|
||||
Dim strCmd As String = SerialHelper.SerializeToBase64String(oCmd)
|
||||
Return SendMessageToWindow(strCmd)
|
||||
Catch
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
Private Shared _hWnd As Integer = -1
|
||||
Private Shared _mcThisAppID As String
|
||||
Private Shared oMutex As Threading.Mutex
|
||||
Private Shared _MutexOwned As Boolean = False
|
||||
Private Shared WithEvents MainForm As ISingleInstanceForm
|
||||
|
||||
Shared Sub New()
|
||||
_mcThisAppID = Reflection.Assembly.GetExecutingAssembly().FullName
|
||||
oMutex = New Threading.Mutex(True, _mcThisAppID & "_APPLICATION_MUTEX", _MutexOwned)
|
||||
If Not _MutexOwned Then
|
||||
If Not FindWindow() Then
|
||||
_MutexOwned = True
|
||||
End If
|
||||
End If
|
||||
AddHandler AppDomain.CurrentDomain.ProcessExit, AddressOf OnExit
|
||||
End Sub
|
||||
Private Shared Sub OnExit(ByVal sender As Object, ByVal e As EventArgs)
|
||||
Try
|
||||
If Not oMutex Is Nothing Then
|
||||
oMutex.ReleaseMutex()
|
||||
CType(oMutex, IDisposable).Dispose()
|
||||
oMutex = Nothing
|
||||
End If
|
||||
Catch
|
||||
'Do Nothing
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Shared ReadOnly Property IsFirstInstance() As Boolean
|
||||
Get
|
||||
Return _MutexOwned
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Shared Function NotifyPreviousWindow() As Boolean
|
||||
Return SendMessageToWindow(vbNullString)
|
||||
End Function
|
||||
Public Shared Function NotifyPreviousWindow(ByVal strText As String) As Boolean
|
||||
Return SendMessageToWindow(strText)
|
||||
End Function
|
||||
Public Shared Function NotifyPreviousWindow(ByVal oCmd As Object) As Boolean
|
||||
Return SendMessageToWindow(oCmd)
|
||||
End Function
|
||||
|
||||
Public Shared Sub SetMainForm(ByVal frm As ISingleInstanceForm)
|
||||
MainForm = frm
|
||||
Try
|
||||
Dim hWnd As Integer = frm.Handle.ToInt32
|
||||
SetProp(hWnd, _mcThisAppID & "_APPLICATION", 1)
|
||||
Catch
|
||||
MainForm = Nothing
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Shared Sub MainForm_WndProc(ByVal m As System.Windows.Forms.Message, ByRef Cancel As Boolean) Handles MainForm.WndProc
|
||||
Select Case m.Msg
|
||||
Case WM_COPYDATA
|
||||
Dim B() As Byte
|
||||
Try
|
||||
Dim CD As COPYDATASTRUCT = m.GetLParam(GetType(COPYDATASTRUCT))
|
||||
ReDim B(CD.cbData)
|
||||
Dim lpData As IntPtr = New IntPtr(CD.lpData)
|
||||
Marshal.Copy(lpData, B, 0, CD.cbData)
|
||||
Dim strData As String = Encoding.Default.GetString(B)
|
||||
'TKBLib.Errorhandling.TraceHelper.Msg("EdokaApp.mMain.SingleeInstance.MainForm_WndProc", "Received Windows Msg " & strData, TraceLevel.Info)
|
||||
MainForm.HandleCommand(strData)
|
||||
|
||||
Cancel = True
|
||||
|
||||
Catch
|
||||
Cancel = False
|
||||
Finally
|
||||
Erase B
|
||||
End Try
|
||||
|
||||
Case Else
|
||||
Cancel = False
|
||||
End Select
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Private MainForm As FrmMain
|
||||
|
||||
<STAThread()> Public Function Main(ByVal CmdArgs() As String) As Integer
|
||||
If SingleInstance.IsFirstInstance Then
|
||||
Try
|
||||
g_bRun = True
|
||||
MainForm = New FrmMain
|
||||
|
||||
'MainForm.CmdArgsSimulated = CmdArgs
|
||||
|
||||
SingleInstance.SetMainForm(MainForm)
|
||||
Application.Run(MainForm)
|
||||
Catch ex As Exception
|
||||
'If Not Force_Exit Then
|
||||
' MsgBox(ex.Message)
|
||||
' End If
|
||||
End Try
|
||||
Else
|
||||
g_bRun = True
|
||||
SingleInstance.NotifyPreviousWindow(CmdArgs)
|
||||
End If
|
||||
|
||||
End Function
|
||||
End Module
|
||||
|
||||
13
DokSA/Backup/DokSA/My Project/Application.Designer.vb
generated
Normal file
13
DokSA/Backup/DokSA/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:2.0.50727.5456
|
||||
'
|
||||
' Ä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
|
||||
|
||||
10
DokSA/Backup/DokSA/My Project/Application.myapp
Normal file
10
DokSA/Backup/DokSA/My Project/Application.myapp
Normal file
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>false</MySubMain>
|
||||
<MainForm>FrmMain</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
35
DokSA/Backup/DokSA/My Project/AssemblyInfo.vb
Normal file
35
DokSA/Backup/DokSA/My Project/AssemblyInfo.vb
Normal 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 mit einer Assembly verknüpft sind.
|
||||
|
||||
' Die Werte der Assemblyattribute überprüfen
|
||||
|
||||
<Assembly: AssemblyTitle("DokSA")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("DokSA")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2012")>
|
||||
<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("4eadd5fc-af3d-48dd-b376-fe4d3e459ead")>
|
||||
|
||||
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||
'
|
||||
' Hauptversion
|
||||
' Nebenversion
|
||||
' Buildnummer
|
||||
' Revision
|
||||
'
|
||||
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
63
DokSA/Backup/DokSA/My Project/Resources.Designer.vb
generated
Normal file
63
DokSA/Backup/DokSA/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:2.0.50727.5456
|
||||
'
|
||||
' Ä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", "2.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("DokSA.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
|
||||
End Module
|
||||
End Namespace
|
||||
117
DokSA/Backup/DokSA/My Project/Resources.resx
Normal file
117
DokSA/Backup/DokSA/My Project/Resources.resx
Normal file
@@ -0,0 +1,117 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
73
DokSA/Backup/DokSA/My Project/Settings.Designer.vb
generated
Normal file
73
DokSA/Backup/DokSA/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:2.0.50727.5456
|
||||
'
|
||||
' Ä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
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "9.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 "Funktion zum automatischen Speichern von My.Settings"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(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.DokSA.My.MySettings
|
||||
Get
|
||||
Return Global.DokSA.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
7
DokSA/Backup/DokSA/My Project/Settings.settings
Normal file
7
DokSA/Backup/DokSA/My Project/Settings.settings
Normal 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>
|
||||
1
DokSA/Backup/DokSA/My Project/licenses.licx
Normal file
1
DokSA/Backup/DokSA/My Project/licenses.licx
Normal file
@@ -0,0 +1 @@
|
||||
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20112.61226, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da
|
||||
61
DokSA/Backup/DokSA/app.config
Normal file
61
DokSA/Backup/DokSA/app.config
Normal file
@@ -0,0 +1,61 @@
|
||||
<?xml version="1.0"?>
|
||||
<configuration>
|
||||
<system.diagnostics>
|
||||
<sources>
|
||||
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
|
||||
<source name="DefaultSource" switchName="DefaultSwitch">
|
||||
<listeners>
|
||||
<add name="FileLog" />
|
||||
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
|
||||
<!--<add name="EventLog"/>-->
|
||||
</listeners>
|
||||
</source>
|
||||
</sources>
|
||||
<switches>
|
||||
<add name="DefaultSwitch" value="Information" />
|
||||
</switches>
|
||||
<sharedListeners>
|
||||
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter" />
|
||||
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
|
||||
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
|
||||
</sharedListeners>
|
||||
</system.diagnostics>
|
||||
<appSettings>
|
||||
<add key="RemoteObjUrl" value="tcp://192.168.111.35:8000/RCEDKB07WS.rem" />
|
||||
<add key="ClientSettingsProvider.ServiceUri" value="" />
|
||||
</appSettings>
|
||||
<system.runtime.remoting>
|
||||
<application>
|
||||
<!-- Define the protocol used for network access.
|
||||
The protocol must match the component host, but any port is valid.
|
||||
A port of 0 simply means "dynamically choose an available port." -->
|
||||
<channels>
|
||||
<channel ref="tcp" port="0">
|
||||
<serverProviders>
|
||||
<formatter ref="binary" typeFilterLevel="Full" />
|
||||
</serverProviders>
|
||||
</channel>
|
||||
</channels>
|
||||
</application>
|
||||
</system.runtime.remoting>
|
||||
<runtime>
|
||||
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="C1.Common" publicKeyToken="E272BB32D11B1948" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-1.0.20031.116" newVersion="1.0.20031.116" />
|
||||
</dependentAssembly>
|
||||
</assemblyBinding>
|
||||
</runtime>
|
||||
<system.web>
|
||||
<membership defaultProvider="ClientAuthenticationMembershipProvider">
|
||||
<providers>
|
||||
<add name="ClientAuthenticationMembershipProvider" type="System.Web.ClientServices.Providers.ClientFormsAuthenticationMembershipProvider, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" serviceUri="" />
|
||||
</providers>
|
||||
</membership>
|
||||
<roleManager defaultProvider="ClientRoleProvider" enabled="true">
|
||||
<providers>
|
||||
<add name="ClientRoleProvider" type="System.Web.ClientServices.Providers.ClientRoleProvider, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" serviceUri="" cacheTimeout="86400" />
|
||||
</providers>
|
||||
</roleManager>
|
||||
</system.web>
|
||||
</configuration>
|
||||
104
DokSA/Backup/DokSA/clsMehrfachdruck_Data.vb
Normal file
104
DokSA/Backup/DokSA/clsMehrfachdruck_Data.vb
Normal file
@@ -0,0 +1,104 @@
|
||||
Public Class clsMehrfachdruck_Data
|
||||
|
||||
Public Enum Enum_Typ
|
||||
EDOKA = 1
|
||||
HOST = 2
|
||||
ZV = 3
|
||||
End Enum
|
||||
|
||||
Dim m_DokumentId As String
|
||||
Property DokumentId() As String
|
||||
Get
|
||||
Return m_DokumentId
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_DokumentId = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_PartnerNr As String
|
||||
Property PartnerNr() As String
|
||||
Get
|
||||
Return m_PartnerNr
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_PartnerNr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Typ As Enum_Typ
|
||||
Property Typ() As Enum_Typ
|
||||
Get
|
||||
Return m_Typ
|
||||
End Get
|
||||
Set(ByVal Value As Enum_Typ)
|
||||
m_Typ = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_OfficeDokument As Boolean
|
||||
Property OfficeDokument() As Boolean
|
||||
Get
|
||||
Return m_OfficeDokument
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_OfficeDokument = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_DokumentTyp As String
|
||||
Property DokumentTyp() As String
|
||||
Get
|
||||
Return m_DokumentTyp
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_DokumentTyp = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Auftragnr As String
|
||||
Property Auftragnr() As String
|
||||
Get
|
||||
Return m_Auftragnr
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Auftragnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_PartnerName As String
|
||||
Property PartnerName() As String
|
||||
Get
|
||||
Return m_PartnerName
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_PartnerName = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Erstellungsdatum As String
|
||||
Property Erstellungsdatum() As String
|
||||
Get
|
||||
Return m_Erstellungsdatum
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Erstellungsdatum = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Sub New(ByVal DokID As String, ByVal iPartnerNr As String, ByVal sTyp As Enum_Typ, _
|
||||
ByVal bOfficeDokument As Boolean, ByVal sDokTyp As String, ByVal sAuftragnr As String, ByVal sPartnerName As String, _
|
||||
ByVal sErstellungsdatum As String)
|
||||
|
||||
m_DokumentId = DokID
|
||||
m_PartnerNr = iPartnerNr
|
||||
m_Typ = sTyp
|
||||
m_OfficeDokument = bOfficeDokument
|
||||
m_DokumentTyp = sDokTyp
|
||||
m_Auftragnr = sAuftragnr
|
||||
m_PartnerName = sPartnerName
|
||||
m_Erstellungsdatum = sErstellungsdatum
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
62
DokSA/Backup/DokSA/clsPDF_print_show.vb
Normal file
62
DokSA/Backup/DokSA/clsPDF_print_show.vb
Normal file
@@ -0,0 +1,62 @@
|
||||
Public Class clsPDF_print_show
|
||||
|
||||
Public Enum Enum_Art
|
||||
Drucken = 0
|
||||
Anzeigen = 1
|
||||
End Enum
|
||||
|
||||
Public Function PrintPDF(ByVal sFilename As String, ByVal Art As Enum_Art) As Boolean
|
||||
PrintPDF = True
|
||||
Dim myProcess As New Process()
|
||||
Try
|
||||
'Point the process to our Acrobat file
|
||||
myProcess.StartInfo.FileName = sFilename
|
||||
myProcess.StartInfo.WorkingDirectory = New IO.FileInfo(sFilename).DirectoryName
|
||||
|
||||
'Since we don't want to see Acrobat's UI (we just want the report printed)
|
||||
'then suppress the UI and pass the "Print" verb to force Acrobat to only print
|
||||
myProcess.StartInfo.CreateNoWindow = True
|
||||
|
||||
If Art = Enum_Art.Anzeigen Then
|
||||
myProcess.StartInfo.Verb = "Open"
|
||||
myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
|
||||
Else
|
||||
myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
|
||||
myProcess.StartInfo.Verb = "Print"
|
||||
End If
|
||||
myProcess.Start()
|
||||
|
||||
'Wait until Acrobat has finished heavy processing, or 10 seconds whichever comes first
|
||||
If Not myProcess.HasExited Then myProcess.WaitForInputIdle(10000)
|
||||
'Attempt to close Acrobat so it's UI doesn't sit on the user's task bar
|
||||
'loop until we suceed or until we timeout. If we timeout, kill Adobe
|
||||
Dim i As Integer = 1
|
||||
Dim lbRunning As Boolean = True
|
||||
'Da keine Kill Rechte auf den Vista Maschinen vorhanden sind, wird der Prozess nicht gekillt.
|
||||
lbRunning = False
|
||||
'While lbRunning And i <= 20
|
||||
' 'sleep for 1/2 of a second
|
||||
' System.Threading.Thread.Sleep(500)
|
||||
|
||||
' 'See if the Adobe will exit gracefully
|
||||
' Select Case myProcess.HasExited
|
||||
' Case True : lbRunning = False
|
||||
' Case False : lbRunning = Not myProcess.CloseMainWindow
|
||||
' End Select
|
||||
|
||||
' i += 1
|
||||
'End While
|
||||
|
||||
'If it never closed gracefuly, force it out of memory
|
||||
If lbRunning AndAlso Not myProcess.HasExited Then myProcess.Kill()
|
||||
myProcess.Dispose()
|
||||
|
||||
Catch ex As System.ComponentModel.Win32Exception
|
||||
PrintPDF = False
|
||||
Catch ex As Exception
|
||||
PrintPDF = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
109
DokSA/Backup/DokSA/clsSpooler_Data.vb
Normal file
109
DokSA/Backup/DokSA/clsSpooler_Data.vb
Normal file
@@ -0,0 +1,109 @@
|
||||
Public Class clsSpooler_Data
|
||||
|
||||
Dim m_JobID As Integer
|
||||
Property JobID() As Integer
|
||||
Get
|
||||
Return m_JobID
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_JobID = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_AuftragNR As String
|
||||
Property AuftragNr() As String
|
||||
Get
|
||||
Return m_AuftragNR
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_AuftragNR = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Typ As String
|
||||
Property Typ() As String
|
||||
Get
|
||||
Return m_Typ
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Typ = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Status As String
|
||||
Property Status() As String
|
||||
Get
|
||||
Return m_Status
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Status = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_StatusID As Integer
|
||||
Property StatusID() As Integer
|
||||
Get
|
||||
Return m_StatusID
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_StatusID = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Anzahl As String
|
||||
Property Anzahl() As String
|
||||
Get
|
||||
Return m_Anzahl
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Anzahl = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_Data As Collection
|
||||
Property Data() As Collection
|
||||
Get
|
||||
Return m_Data
|
||||
End Get
|
||||
Set(ByVal Value As Collection)
|
||||
m_Data = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_ErstelltAm As Date
|
||||
Property ErstelltAm() As Date
|
||||
Get
|
||||
Return m_ErstelltAm
|
||||
End Get
|
||||
Set(ByVal Value As Date)
|
||||
m_ErstelltAm = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_DateiName As String
|
||||
Property DateiName() As String
|
||||
Get
|
||||
Return m_DateiName
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_DateiName = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Sub New(ByVal JobID As Integer, ByVal sAuftragNr As String, ByVal sTyp As String, _
|
||||
ByVal sStatus As String, ByVal sAnzahl As String, ByVal sData As Collection, _
|
||||
ByVal sErstellungsdatum As String, ByVal iStatusID As Integer, ByVal sDateiName As String)
|
||||
|
||||
m_JobID = JobID
|
||||
m_AuftragNR = sAuftragNr
|
||||
m_Typ = sTyp
|
||||
m_Status = sStatus
|
||||
m_Anzahl = sAnzahl
|
||||
m_Data = sData
|
||||
m_ErstelltAm = sErstellungsdatum
|
||||
m_StatusID = iStatusID
|
||||
m_DateiName = sDateiName
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
108
DokSA/Backup/DokSA/frmFortschritt.Designer.vb
generated
Normal file
108
DokSA/Backup/DokSA/frmFortschritt.Designer.vb
generated
Normal file
@@ -0,0 +1,108 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmFortschritt
|
||||
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.ProgressBar1 = New System.Windows.Forms.ProgressBar
|
||||
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.SuspendLayout()
|
||||
'
|
||||
'ProgressBar1
|
||||
'
|
||||
Me.ProgressBar1.Location = New System.Drawing.Point(12, 48)
|
||||
Me.ProgressBar1.Name = "ProgressBar1"
|
||||
Me.ProgressBar1.Size = New System.Drawing.Size(498, 23)
|
||||
Me.ProgressBar1.TabIndex = 0
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(9, 32)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(13, 13)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = "0"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(253, 35)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(19, 13)
|
||||
Me.Label2.TabIndex = 2
|
||||
Me.Label2.Text = "50"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(252, 35)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(19, 13)
|
||||
Me.Label3.TabIndex = 3
|
||||
Me.Label3.Text = "50"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(488, 32)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(25, 13)
|
||||
Me.Label4.TabIndex = 4
|
||||
Me.Label4.Text = "100"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(12, 13)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(69, 13)
|
||||
Me.Label5.TabIndex = 5
|
||||
Me.Label5.Text = "Druckauftrag"
|
||||
'
|
||||
'frmFortschritt
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(522, 83)
|
||||
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.ProgressBar1)
|
||||
Me.Name = "frmFortschritt"
|
||||
Me.Text = "Aufbereitung Druckstapel"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
End Class
|
||||
120
DokSA/Backup/DokSA/frmFortschritt.resx
Normal file
120
DokSA/Backup/DokSA/frmFortschritt.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
9
DokSA/Backup/DokSA/frmFortschritt.vb
Normal file
9
DokSA/Backup/DokSA/frmFortschritt.vb
Normal file
@@ -0,0 +1,9 @@
|
||||
Public Class frmFortschritt
|
||||
|
||||
|
||||
Private Sub frmFortschritt_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
123
DokSA/Backup/DokSA/frmMehrfachdruck.resx
Normal file
123
DokSA/Backup/DokSA/frmMehrfachdruck.resx
Normal 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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ContextMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>103, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
883
DokSA/Backup/DokSA/frmMehrfachdruck.vb
Normal file
883
DokSA/Backup/DokSA/frmMehrfachdruck.vb
Normal file
@@ -0,0 +1,883 @@
|
||||
Imports System.IO
|
||||
Imports System.Data
|
||||
Imports System.Threading
|
||||
Imports System.Drawing
|
||||
Imports System.Windows.Forms
|
||||
|
||||
|
||||
Public Class frmMehrfachdruck
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents lvDruckauftraege As System.Windows.Forms.ListView
|
||||
Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
|
||||
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents nmuDelete As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents nmuRefresh As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents mnuDurck As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents lvid_JobID As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents lvid_Auftrag As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents lvid_Typ As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents lvid_Anzahl As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents lvid_Status As System.Windows.Forms.ColumnHeader
|
||||
Friend WithEvents mnuAnzeige As System.Windows.Forms.MenuItem
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.lvDruckauftraege = New System.Windows.Forms.ListView
|
||||
Me.lvid_JobID = New System.Windows.Forms.ColumnHeader
|
||||
Me.lvid_Auftrag = New System.Windows.Forms.ColumnHeader
|
||||
Me.lvid_Typ = New System.Windows.Forms.ColumnHeader
|
||||
Me.lvid_Anzahl = New System.Windows.Forms.ColumnHeader
|
||||
Me.lvid_Status = New System.Windows.Forms.ColumnHeader
|
||||
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
|
||||
Me.mnuAnzeige = New System.Windows.Forms.MenuItem
|
||||
Me.mnuDurck = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem2 = New System.Windows.Forms.MenuItem
|
||||
Me.nmuDelete = New System.Windows.Forms.MenuItem
|
||||
Me.nmuRefresh = New System.Windows.Forms.MenuItem
|
||||
Me.StatusBar1 = New System.Windows.Forms.StatusBar
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'lvDruckauftraege
|
||||
'
|
||||
Me.lvDruckauftraege.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.lvid_JobID, Me.lvid_Auftrag, Me.lvid_Typ, Me.lvid_Anzahl, Me.lvid_Status})
|
||||
Me.lvDruckauftraege.ContextMenu = Me.ContextMenu1
|
||||
Me.lvDruckauftraege.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.lvDruckauftraege.FullRowSelect = True
|
||||
Me.lvDruckauftraege.GridLines = True
|
||||
Me.lvDruckauftraege.Location = New System.Drawing.Point(0, 0)
|
||||
Me.lvDruckauftraege.MultiSelect = False
|
||||
Me.lvDruckauftraege.Name = "lvDruckauftraege"
|
||||
Me.lvDruckauftraege.Size = New System.Drawing.Size(527, 134)
|
||||
Me.lvDruckauftraege.TabIndex = 2
|
||||
Me.lvDruckauftraege.UseCompatibleStateImageBehavior = False
|
||||
Me.lvDruckauftraege.View = System.Windows.Forms.View.Details
|
||||
'
|
||||
'lvid_JobID
|
||||
'
|
||||
Me.lvid_JobID.Text = "JobID"
|
||||
Me.lvid_JobID.Width = 0
|
||||
'
|
||||
'lvid_Auftrag
|
||||
'
|
||||
Me.lvid_Auftrag.Text = "Auftrag"
|
||||
Me.lvid_Auftrag.Width = 120
|
||||
'
|
||||
'lvid_Typ
|
||||
'
|
||||
Me.lvid_Typ.Text = "Typ"
|
||||
Me.lvid_Typ.Width = 90
|
||||
'
|
||||
'lvid_Anzahl
|
||||
'
|
||||
Me.lvid_Anzahl.Text = "Anzahl"
|
||||
Me.lvid_Anzahl.Width = 70
|
||||
'
|
||||
'lvid_Status
|
||||
'
|
||||
Me.lvid_Status.Text = "Status"
|
||||
Me.lvid_Status.Width = 180
|
||||
'
|
||||
'ContextMenu1
|
||||
'
|
||||
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuAnzeige, Me.mnuDurck, Me.MenuItem2, Me.nmuDelete, Me.nmuRefresh})
|
||||
'
|
||||
'mnuAnzeige
|
||||
'
|
||||
Me.mnuAnzeige.Index = 0
|
||||
Me.mnuAnzeige.Text = "Dokument Anzeigen"
|
||||
'
|
||||
'mnuDurck
|
||||
'
|
||||
Me.mnuDurck.Index = 1
|
||||
Me.mnuDurck.Text = "Drucken"
|
||||
'
|
||||
'MenuItem2
|
||||
'
|
||||
Me.MenuItem2.Index = 2
|
||||
Me.MenuItem2.Text = "-"
|
||||
'
|
||||
'nmuDelete
|
||||
'
|
||||
Me.nmuDelete.Index = 3
|
||||
Me.nmuDelete.Text = "Auftrag löschen"
|
||||
'
|
||||
'nmuRefresh
|
||||
'
|
||||
Me.nmuRefresh.Index = 4
|
||||
Me.nmuRefresh.Text = "Auftrag erneut anfordern"
|
||||
'
|
||||
'StatusBar1
|
||||
'
|
||||
Me.StatusBar1.Location = New System.Drawing.Point(0, 112)
|
||||
Me.StatusBar1.Name = "StatusBar1"
|
||||
Me.StatusBar1.Size = New System.Drawing.Size(527, 22)
|
||||
Me.StatusBar1.TabIndex = 3
|
||||
'
|
||||
'frmMehrfachdruck
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(527, 134)
|
||||
Me.ControlBox = False
|
||||
Me.Controls.Add(Me.StatusBar1)
|
||||
Me.Controls.Add(Me.lvDruckauftraege)
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "frmMehrfachdruck"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
|
||||
Me.Text = "Druckaufträge"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Deklarationen "
|
||||
|
||||
|
||||
|
||||
'Dim _HashThreads As New Hashtable()
|
||||
'Dim _HashDruckanzeige As New Hashtable()
|
||||
|
||||
Dim tmpColColdData As Collection
|
||||
Dim tmpColOfficeData As Collection
|
||||
|
||||
Dim sAuftraNR As String
|
||||
|
||||
'PDF Drucken
|
||||
Dim printthread As Thread
|
||||
Dim printfilename As String
|
||||
|
||||
Dim m_MenuEintrag As Integer
|
||||
|
||||
Dim iJobCounter As Integer = 0
|
||||
Dim iJobID(1) As Integer 'Job ID's für den Office und Cold Thread
|
||||
|
||||
'Dim colDruckanzeige As New Collection()
|
||||
|
||||
|
||||
Private Enum enum_MehrfachdruckFeld
|
||||
Anzahl = 0
|
||||
Status = 1
|
||||
End Enum
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Formular "
|
||||
|
||||
Public Sub InitForm()
|
||||
Try
|
||||
Me.Visible = False
|
||||
StatusBar1.Text = "Druckspooler initialisieren"
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub InitAnzeige()
|
||||
If iMerker = 1 Then
|
||||
Exit Sub
|
||||
End If
|
||||
Try
|
||||
iMerker = 1
|
||||
|
||||
Dim ColTrans As ColorTranslator
|
||||
Thread.Sleep(1000)
|
||||
If lvDruckauftraege.Items.Count = 0 Then
|
||||
StatusBar1.Text = "keine Druckaufträge"
|
||||
If Me.Visible = True Then
|
||||
Me.Visible = False
|
||||
End If
|
||||
End If
|
||||
|
||||
'Anzeige aktualisieren
|
||||
'Dim coltmp As Collection
|
||||
Dim coltmp As Hashtable
|
||||
|
||||
coltmp = _HashDruckanzeige
|
||||
|
||||
Dim i As Integer
|
||||
i = 0
|
||||
|
||||
GenAnzeige(coltmp, i)
|
||||
'Try
|
||||
|
||||
' lvDruckauftraege.Items.Clear()
|
||||
' lvDruckauftraege.BeginUpdate()
|
||||
' Dim element As DictionaryEntry
|
||||
' For Each element In coltmp
|
||||
' 'For i = 1 To coltmp.Count
|
||||
' colSpooler = element.Value
|
||||
' 'colSpooler = coltmp(i)
|
||||
' lvDruckauftraege.Items.Add(colSpooler.JobID)
|
||||
' lvDruckauftraege.Items(i).SubItems.Add(colSpooler.AuftragNr)
|
||||
' lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Typ)
|
||||
' lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Anzahl)
|
||||
' lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Status)
|
||||
' If colSpooler.Status = "Dokument bereit zum drucken" Then
|
||||
' 'grün
|
||||
' lvDruckauftraege.Items(i).BackColor = Color.FromArgb(255, 164, 253, 143)
|
||||
' End If
|
||||
' If colSpooler.Status = "Fehler beim Drucken" Then
|
||||
' 'rot
|
||||
' lvDruckauftraege.Items(i).BackColor = Color.FromArgb(255, 255, 174, 165)
|
||||
' End If
|
||||
' i &= 1
|
||||
' Next
|
||||
' lvDruckauftraege.EndUpdate()
|
||||
'Catch ex As Exception
|
||||
' MsgBox("Fehler4: " & ex.Message)
|
||||
'End Try
|
||||
Try
|
||||
'Statusbar aktualisieren
|
||||
If i > 0 Then
|
||||
Me.StatusBar1.Text = "Anzahl Druckaufträge " + i.ToString.Trim
|
||||
If Me.Visible = False Then
|
||||
Me.Top = Me.ParentForm.ClientSize.Height - Me.Height - 50
|
||||
Me.Left = Me.ParentForm.ClientSize.Width - Me.Width - 30
|
||||
minimize_all_childs()
|
||||
Me.Visible = True
|
||||
Else
|
||||
minimize_all_childs()
|
||||
End If
|
||||
Else
|
||||
StatusBar1.Text = "keine Druckaufträge"
|
||||
If Me.Visible = True Then
|
||||
Me.Visible = False
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler1: " & ex.Message)
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler3: " & ex.Message)
|
||||
Finally
|
||||
iMerker = 0
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Delegate Sub GenCallBack(ByVal coltmp As Hashtable, ByRef i As Integer)
|
||||
Private Sub GenAnzeige(ByVal coltmp As Hashtable, ByRef i As Integer)
|
||||
Try
|
||||
'If Me.lvDruckauftraege.InvokeRequired = True Then
|
||||
' Dim dd As New GenCallBack(AddressOf GenAnzeige)
|
||||
' dd.Invoke(coltmp, i)
|
||||
'End If
|
||||
Dim colSpooler As clsSpooler_Data
|
||||
'lvDruckauftraege = New ListView()
|
||||
lvDruckauftraege.BeginUpdate()
|
||||
Try
|
||||
lvDruckauftraege.Items.Clear()
|
||||
Catch
|
||||
lvDruckauftraege = New ListView()
|
||||
Me.lvDruckauftraege.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.lvid_JobID, Me.lvid_Auftrag, Me.lvid_Typ, Me.lvid_Anzahl, Me.lvid_Status})
|
||||
Me.lvDruckauftraege.ContextMenu = Me.ContextMenu1
|
||||
Me.lvDruckauftraege.FullRowSelect = True
|
||||
Me.lvDruckauftraege.GridLines = True
|
||||
Me.lvDruckauftraege.MultiSelect = False
|
||||
Me.lvDruckauftraege.Name = "lvDruckauftraege"
|
||||
Me.lvDruckauftraege.Size = New System.Drawing.Size(480, 88)
|
||||
Me.lvDruckauftraege.TabIndex = 2
|
||||
Me.lvDruckauftraege.View = System.Windows.Forms.View.Details
|
||||
End Try
|
||||
|
||||
lvDruckauftraege.Sorting = SortOrder.None
|
||||
|
||||
Dim element As DictionaryEntry
|
||||
|
||||
For Each element In coltmp
|
||||
colSpooler = element.Value
|
||||
lvDruckauftraege.Items.Add(colSpooler.JobID.ToString.Trim)
|
||||
lvDruckauftraege.Items(i).SubItems.Add(colSpooler.AuftragNr)
|
||||
lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Typ)
|
||||
lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Anzahl)
|
||||
lvDruckauftraege.Items(i).SubItems.Add(colSpooler.Status)
|
||||
lvDruckauftraege.Items(i).ForeColor = Color.Black
|
||||
If colSpooler.Status = "Dokument bereit zum drucken" Then
|
||||
'grün
|
||||
lvDruckauftraege.Items(i).BackColor = Color.FromArgb(255, 164, 253, 143)
|
||||
End If
|
||||
If colSpooler.Status = "Fehler beim Drucken" Then
|
||||
'rot
|
||||
lvDruckauftraege.Items(i).BackColor = Color.FromArgb(255, 255, 174, 165)
|
||||
End If
|
||||
i = i + 1
|
||||
Next
|
||||
|
||||
lvDruckauftraege.EndUpdate()
|
||||
|
||||
'Dim Sorter As New clsListViewItemComparer(0)
|
||||
'lvDruckauftraege.ListViewItemSorter = Sorter
|
||||
'lvDruckauftraege.Sort()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler GenAnzeige: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub AnzeigePopup()
|
||||
Try
|
||||
minimize_all_childs()
|
||||
Me.Focus()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Druck Funktionen "
|
||||
|
||||
Public Function DruckAnfrage(ByVal colColdData As Collection, ByVal colOfficeData As Collection)
|
||||
Try
|
||||
'Auftragsnummer generieren
|
||||
sAuftraNR = Now().ToString.Trim
|
||||
'JobID's zuweisen
|
||||
iJobCounter = iJobCounter + 1
|
||||
iJobID(0) = iJobCounter 'JobID Cold
|
||||
iJobCounter = iJobCounter + 1
|
||||
iJobID(1) = iJobCounter 'JobID Office
|
||||
|
||||
If colColdData.Count > 0 Then
|
||||
Dim MehrfachDruckColdThread As Thread
|
||||
tmpColColdData = colColdData
|
||||
MehrfachDruckColdThread = New Thread(AddressOf StartColdDruckJob)
|
||||
MehrfachDruckColdThread.IsBackground = True
|
||||
MehrfachDruckColdThread.Name = "EDOKA_MehrfachDruck_" + (iJobCounter - 1).ToString.Trim
|
||||
MehrfachDruckColdThread.Start()
|
||||
_HashThreads.Add(iJobCounter - 1, MehrfachDruckColdThread)
|
||||
End If
|
||||
|
||||
If colOfficeData.Count > 0 Then
|
||||
Dim MehrfachDruckEdokaThread As Thread
|
||||
tmpColOfficeData = colOfficeData
|
||||
MehrfachDruckEdokaThread = New Thread(AddressOf StartEdokaDruckJob)
|
||||
MehrfachDruckEdokaThread.IsBackground = True
|
||||
MehrfachDruckEdokaThread.Name = "EDOKA_MehrfachDruck_" + iJobCounter.ToString.Trim
|
||||
MehrfachDruckEdokaThread.Start()
|
||||
_HashThreads.Add(iJobCounter, MehrfachDruckEdokaThread)
|
||||
|
||||
End If
|
||||
Thread.Sleep(1500)
|
||||
InitAnzeige()
|
||||
AnzeigePopup()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub StartColdDruckJob()
|
||||
Dim sThreadName As String
|
||||
Dim iColdJobID As Integer = iJobID(0)
|
||||
sThreadName = "EDOKA_MehrfachDruck_" + iColdJobID.ToString.Trim
|
||||
Try
|
||||
Dim tmpData As Collection
|
||||
Dim gendok As clsMehrfachdruck_Data
|
||||
Dim rReturn As Object
|
||||
|
||||
Dim timestamp As String
|
||||
Dim pdfFileName As String
|
||||
Dim sJobNummer As String
|
||||
|
||||
timestamp = Format(Now, "yyyyMMddHHmmss")
|
||||
sJobNummer = iColdJobID.ToString.Trim
|
||||
Do While Len(sJobNummer) < 4
|
||||
sJobNummer = "0" & sJobNummer
|
||||
Loop
|
||||
pdfFileName = timestamp + "_" + sJobNummer + ".pdf"
|
||||
tmpData = tmpColColdData
|
||||
|
||||
'colDruckanzeige.Add(New clsSpooler_Data(iColdJobID, sAuftraNR, "Cold-Druck", "Daten Aufbereitung", tmpData.Count.ToString.Trim, tmpData, Now(), 1, pdfFileName))
|
||||
Dim newDruckRow As New clsSpooler_Data(iColdJobID, sAuftraNR, "Cold-Druck", "Daten Aufbereitung", tmpData.Count.ToString.Trim, tmpData, Now(), 1, pdfFileName)
|
||||
_HashDruckanzeige.Add(iColdJobID, newDruckRow)
|
||||
|
||||
Console.WriteLine("StartColdDruckJob - JobID=" & iColdJobID.ToString)
|
||||
|
||||
'Wenn mehrere Dokumente gedruckt werden sollen
|
||||
Dim i As Integer
|
||||
Dim tmp1 As New DataTable()
|
||||
|
||||
tmp1.Columns.Add("DokumentId")
|
||||
tmp1.Columns.Add("PartnerNr")
|
||||
tmp1.Columns.Add("Typ")
|
||||
tmp1.Columns.Add("OfficeDokument")
|
||||
tmp1.Columns.Add("DokumentTyp")
|
||||
tmp1.Columns.Add("Auftragnr")
|
||||
tmp1.Columns.Add("PartnerName")
|
||||
tmp1.Columns.Add("Erstellungsdatum")
|
||||
|
||||
Dim row As DataRow
|
||||
|
||||
For i = 1 To tmpData.Count
|
||||
gendok = tmpData(i)
|
||||
row = tmp1.NewRow
|
||||
row.Item("Auftragnr") = gendok.Auftragnr
|
||||
row.Item("DokumentId") = gendok.DokumentId
|
||||
row.Item("DokumentTyp") = gendok.DokumentTyp
|
||||
row.Item("Erstellungsdatum") = gendok.Erstellungsdatum
|
||||
row.Item("OfficeDokument") = gendok.OfficeDokument
|
||||
row.Item("PartnerName") = gendok.PartnerName
|
||||
row.Item("PartnerNr") = gendok.PartnerNr
|
||||
Select Case gendok.Typ
|
||||
Case clsMehrfachdruck_Data.Enum_Typ.EDOKA
|
||||
row.Item("Typ") = 1
|
||||
Case clsMehrfachdruck_Data.Enum_Typ.HOST
|
||||
row.Item("Typ") = 2
|
||||
Case clsMehrfachdruck_Data.Enum_Typ.ZV
|
||||
row.Item("Typ") = 3
|
||||
End Select
|
||||
|
||||
tmp1.Rows.Add(row)
|
||||
Next
|
||||
|
||||
'Cold Dokumente
|
||||
For i = 1 To tmpData.Count
|
||||
gendok = tmpData(i)
|
||||
If gendok.OfficeDokument = False Then
|
||||
Try
|
||||
Journal_Dokumentzugriff(gendok.DokumentId, "COLD-Print (SA)", 1, Globals.Partnernr, Globals.PartnerKurzbezeichnung, gendok.DokumentTyp)
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
Next
|
||||
|
||||
'Dokumente anfordern
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Cold-Dokument anfordern")
|
||||
Dim remoteObj As EDKB07Verarbeitung.EDKB07Verarbeitung.IEDKB07
|
||||
Dim Obj As New Object()
|
||||
Obj = Activator.GetObject( _
|
||||
GetType(EDKB07Verarbeitung.EDKB07Verarbeitung.IEDKB07), _
|
||||
System.Configuration.ConfigurationSettings.AppSettings("RemoteObjUrl"))
|
||||
|
||||
' Auf das Remote-Objekt durch die Schnittstelle zugreifen.
|
||||
remoteObj = CType(Obj, EDKB07Verarbeitung.EDKB07Verarbeitung.IEDKB07)
|
||||
Try
|
||||
remoteObj.GetColdMehrfachDruck(Globals.TGNummer, iColdJobID, tmp1, rReturn)
|
||||
'remoteObj = Nothing
|
||||
|
||||
'Dokument erhalten
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Cold-Dokument empfangen und speichern")
|
||||
|
||||
Try
|
||||
If rReturn.Length > 1 Then
|
||||
Dim fs As New FileStream(Globals.temppfad & pdfFileName, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(rReturn, 0, rReturn.Length)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Dim s As String
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Dokument bereit zum drucken")
|
||||
Else
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Fehler beim Drucken")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("StartColdDruckJob - JobID=" & iColdJobID.ToString & " Fehler 1: " & ex.Message)
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Fehler beim Drucken")
|
||||
Finally
|
||||
InitAnzeige()
|
||||
AnzeigePopup()
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("StartColdDruckJob - JobID=" & iColdJobID.ToString & " Fehler 2: " & ex.Message)
|
||||
UpdateCollection(iColdJobID, enum_MehrfachdruckFeld.Status, "Fehler beim Drucken")
|
||||
InitAnzeige()
|
||||
AnzeigePopup()
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("StartColdDruckJob - JobID=" & iColdJobID.ToString & " Fehler 3: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub StartEdokaDruckJob()
|
||||
Try
|
||||
Dim tmpData As Collection
|
||||
Dim iOfficeJobID As Integer = iJobID(1)
|
||||
Dim gendok As clsMehrfachdruck_Data
|
||||
tmpData = tmpColOfficeData
|
||||
|
||||
Console.WriteLine("StartEdokaDruckJob - JobID=" & iOfficeJobID.ToString)
|
||||
|
||||
'colDruckanzeige.Add(New clsSpooler_Data(iOfficeJobID, sAuftraNR, "Office-Druck", "am drucken", tmpData.Count.ToString.Trim, tmpData, Now(), 1, ""))
|
||||
Dim newDruckRow As New clsSpooler_Data(iOfficeJobID, sAuftraNR, "Office-Druck", "am drucken", tmpData.Count.ToString.Trim, tmpData, Now(), 1, "")
|
||||
_HashDruckanzeige.Add(iOfficeJobID, newDruckRow)
|
||||
|
||||
|
||||
Thread.Sleep(2000)
|
||||
|
||||
'Office Dokumente
|
||||
Dim i As Integer
|
||||
For i = 1 To tmpData.Count
|
||||
gendok = tmpData(i)
|
||||
If gendok.OfficeDokument = True Then
|
||||
Console.WriteLine("StartEdokaDruckJob - Vor Drucken=" & iOfficeJobID.ToString)
|
||||
'DivFnkt.print_office(gendok.DokumentId, Nothing, False)
|
||||
Console.WriteLine("StartEdokaDruckJob - Nach Drucken=" & iOfficeJobID.ToString)
|
||||
'Druckauftrag anpassen
|
||||
UpdateCollection(iOfficeJobID, enum_MehrfachdruckFeld.Anzahl, i.ToString.Trim + " von " + tmpData.Count.ToString.Trim)
|
||||
If i = tmpData.Count Then
|
||||
UpdateCollection(iOfficeJobID, enum_MehrfachdruckFeld.Status, "gedruckt")
|
||||
End If
|
||||
InitAnzeige()
|
||||
End If
|
||||
Next
|
||||
'Eintrag Löschen
|
||||
DeleteEntryCollection(iOfficeJobID)
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("StartEdokaDruckJob - Fehler =" & ex.Message)
|
||||
'MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " PDF Drucken"
|
||||
'Designd by SHU
|
||||
|
||||
'Private Sub print_pdf(ByVal spfad As String)
|
||||
' 'Druckt ein PDF in einem neuen Thread
|
||||
' printfilename = New String(spfad)
|
||||
' printthread = New Thread(AddressOf start_print_pdf)
|
||||
' printthread.Start()
|
||||
'End Sub
|
||||
|
||||
|
||||
''Dim WithEvents pdfprinter As frmPDF_Printer
|
||||
''Dim Print_Active As Boolean
|
||||
'Private Sub start_print_pdf()
|
||||
' Dim objpdf As New clsPDF_print_show()
|
||||
' objpdf.PrintPDF(printfilename, clsPDF_print_show.Enum_Art.Drucken)
|
||||
' 'pdfprinter = New frmPDF_Printer(printfilename, False) '0
|
||||
' 'pdfprinter.Prepare_Form()
|
||||
' 'Application.DoEvents()
|
||||
' 'Print_Active = True
|
||||
' 'pdfprinter.PrintPDF()
|
||||
' delay(5)
|
||||
'End Sub
|
||||
|
||||
'Private Sub delay(ByVal seconds As Integer)
|
||||
' Me.Cursor = Cursors.WaitCursor
|
||||
' Dim starttime As DateTime = DateTime.Now
|
||||
' Do
|
||||
' Application.DoEvents()
|
||||
' Loop While DateTime.Now.Subtract(starttime).TotalSeconds < seconds
|
||||
' Me.Cursor = Cursors.Default
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Collection Funktionen"
|
||||
|
||||
Private Sub UpdateCollection(ByVal iJobID As Integer, ByVal iTyp As enum_MehrfachdruckFeld, ByVal sWert As String)
|
||||
'Wert in der Collection updaten
|
||||
Try
|
||||
Dim i As Integer
|
||||
Dim colSpooler As clsSpooler_Data
|
||||
Dim element As DictionaryEntry
|
||||
For Each element In _HashDruckanzeige
|
||||
colSpooler = element.Value
|
||||
If colSpooler.JobID = iJobID Then
|
||||
Select Case iTyp
|
||||
Case enum_MehrfachdruckFeld.Anzahl
|
||||
colSpooler.Anzahl = sWert
|
||||
Case enum_MehrfachdruckFeld.Status
|
||||
colSpooler.Status = sWert
|
||||
End Select
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DeleteEntryCollection(ByVal iJobID As Integer)
|
||||
'Eintrag aus der Collection entfernen
|
||||
Try
|
||||
Dim i As Integer
|
||||
Dim colSpooler As clsSpooler_Data
|
||||
Dim element As DictionaryEntry
|
||||
For Each element In _HashDruckanzeige
|
||||
colSpooler = element.Value
|
||||
If colSpooler.JobID = iJobID Then
|
||||
_HashDruckanzeige.Remove(iJobID)
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
Thread.Sleep(1000)
|
||||
InitAnzeige()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Function GetDataFromColl(ByVal OrgColl As Hashtable, ByVal JobID As Integer) As Collection
|
||||
Try
|
||||
Dim tmpData As Hashtable
|
||||
Dim i As Integer
|
||||
Dim gendok As clsSpooler_Data
|
||||
|
||||
tmpData = OrgColl
|
||||
Dim element As DictionaryEntry
|
||||
For Each element In _HashDruckanzeige
|
||||
gendok = element.Value
|
||||
If gendok.JobID = JobID Then
|
||||
'JobID gefunden
|
||||
GetDataFromColl = gendok.Data
|
||||
Exit Try
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Function GetDateiNameFromColl(ByVal OrgColl As Hashtable, ByVal JobID As Integer) As String
|
||||
Try
|
||||
Dim tmpData As Hashtable
|
||||
Dim i As Integer
|
||||
Dim gendok As clsSpooler_Data
|
||||
|
||||
tmpData = OrgColl
|
||||
Dim element As DictionaryEntry
|
||||
For Each element In _HashDruckanzeige
|
||||
gendok = element.Value
|
||||
If gendok.JobID = JobID Then
|
||||
'JobID gefunden
|
||||
GetDateiNameFromColl = gendok.DateiName
|
||||
Exit Try
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Menufunktionen"
|
||||
|
||||
Private Sub nmuDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nmuDelete.Click
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim iJobID As Integer
|
||||
iJobID = lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text
|
||||
|
||||
Console.WriteLine("nmuDelete_Click =" & m_MenuEintrag.ToString & " JobID " & iJobID.ToString)
|
||||
|
||||
Try
|
||||
Dim MehrfachDruckThread As Thread
|
||||
MehrfachDruckThread = _HashThreads.Item(iJobID)
|
||||
MehrfachDruckThread.Abort()
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("nmuDelete_Click 1=" & m_MenuEintrag.ToString & ex.Message)
|
||||
End Try
|
||||
DeleteEntryCollection(iJobID)
|
||||
Catch ex As Exception
|
||||
Console.WriteLine("nmuDelete_Click 2=" & m_MenuEintrag.ToString & ex.Message)
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub nmuRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nmuRefresh.Click
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim tmpCollData As New Collection()
|
||||
Dim tmpCollLeer As New Collection()
|
||||
'tmpCollData = GetDataFromColl(colDruckanzeige, lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text)
|
||||
tmpCollData = GetDataFromColl(_HashDruckanzeige, lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text)
|
||||
|
||||
If lvDruckauftraege.Items(m_MenuEintrag).SubItems(2).Text = "Cold-Druck" Then
|
||||
DruckAnfrage(tmpCollData, tmpCollLeer)
|
||||
Else
|
||||
DruckAnfrage(tmpCollLeer, tmpCollData)
|
||||
End If
|
||||
|
||||
If lvDruckauftraege.Items(m_MenuEintrag).SubItems(4).Text = "Fehler beim Drucken" Then
|
||||
DeleteEntryCollection(lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text())
|
||||
Else
|
||||
InitAnzeige()
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub mnuAnzeige_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAnzeige.Click
|
||||
Dim iJobID As Integer
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim tmpCollData As New Collection()
|
||||
Dim tmpCollLeer As New Collection()
|
||||
Dim sDateiName As String
|
||||
|
||||
iJobID = lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text
|
||||
|
||||
sDateiName = GetDateiNameFromColl(_HashDruckanzeige, iJobID)
|
||||
sDateiName = Globals.temppfad & sDateiName
|
||||
|
||||
'Dokument Drucken
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "Cold-Dokument drucken")
|
||||
|
||||
Dim objpdf As New clsPDF_print_show()
|
||||
objpdf.PrintPDF(sDateiName, clsPDF_print_show.Enum_Art.Anzeigen)
|
||||
'print_pdf(sDateiName)
|
||||
|
||||
'Abgeschlossen
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "gedruckt")
|
||||
|
||||
'Eintrag Löschen
|
||||
DeleteEntryCollection(iJobID)
|
||||
|
||||
Catch ex As Exception
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "Fehler beim ausdrucken")
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub mnuDurck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDurck.Click
|
||||
Dim iJobID As Integer
|
||||
Try
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim tmpCollData As New Collection()
|
||||
Dim tmpCollLeer As New Collection()
|
||||
Dim sDateiName As String
|
||||
|
||||
iJobID = lvDruckauftraege.Items(m_MenuEintrag).SubItems(0).Text
|
||||
|
||||
sDateiName = GetDateiNameFromColl(_HashDruckanzeige, iJobID)
|
||||
sDateiName = Globals.temppfad & sDateiName
|
||||
|
||||
'Dokument Drucken
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "Cold-Dokument drucken")
|
||||
|
||||
Dim objpdf As New clsPDF_print_show()
|
||||
objpdf.PrintPDF(sDateiName, clsPDF_print_show.Enum_Art.Drucken)
|
||||
'print_pdf(sDateiName)
|
||||
|
||||
'Abgeschlossen
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "gedruckt")
|
||||
|
||||
'Eintrag Löschen
|
||||
DeleteEntryCollection(iJobID)
|
||||
|
||||
Catch ex As Exception
|
||||
UpdateCollection(iJobID, enum_MehrfachdruckFeld.Status, "Fehler beim ausdrucken")
|
||||
Finally
|
||||
Me.Cursor = Cursors.Default
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenu1_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
|
||||
Try
|
||||
|
||||
m_MenuEintrag = lvDruckauftraege.SelectedItems.Item(0).Index
|
||||
Console.WriteLine("ContextMenu1_Popup =" & m_MenuEintrag.ToString)
|
||||
If lvDruckauftraege.Items(m_MenuEintrag).SubItems(2).Text = "Cold-Druck" Then
|
||||
If lvDruckauftraege.Items(m_MenuEintrag).SubItems(4).Text = "Dokument bereit zum drucken" Or _
|
||||
lvDruckauftraege.Items(m_MenuEintrag).SubItems(4).Text = "Fehler beim ausdrucken" Then
|
||||
mnuAnzeige.Enabled = True
|
||||
mnuDurck.Enabled = True
|
||||
Else
|
||||
mnuAnzeige.Enabled = False
|
||||
mnuDurck.Enabled = False
|
||||
End If
|
||||
Else
|
||||
mnuAnzeige.Enabled = False
|
||||
mnuDurck.Enabled = False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Diverse Funktionen"
|
||||
|
||||
Private Sub minimize_all_childs()
|
||||
Dim c As Form
|
||||
For Each c In Me.ParentForm.MdiChildren
|
||||
c.WindowState = FormWindowState.Normal
|
||||
Next
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Private Function Journal_Dokumentzugriff(ByVal dokumentid As String, ByVal zugriffsart As String, ByVal host As Integer, ByVal partnernr As Integer, ByVal partner_kurzbezeichnung As String, ByVal dokumenttyp As String)
|
||||
Dim scmCmdToExecute As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand()
|
||||
Dim i As Integer
|
||||
Dim connopen As Boolean = False
|
||||
scmCmdToExecute.CommandText = "dbo.sp_journal_dokzugriffe"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
'If host = 0 Then
|
||||
' scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
||||
' scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Mitarbeiternr))
|
||||
' scmCmdToExecute.Parameters.Add(New SqlParameter("@zugriffsart", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, zugriffsart))
|
||||
' scmCmdToExecute.Parameters.Add(New SqlParameter("@host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||
' scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
||||
' scmCmdToExecute.Parameters.Add(New SqlParameter("@partnerkbez", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, ""))
|
||||
' scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, ""))
|
||||
'Else
|
||||
scmCmdToExecute.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
||||
scmCmdToExecute.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Mitarbeiternr))
|
||||
scmCmdToExecute.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zugriffsart", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, zugriffsart))
|
||||
scmCmdToExecute.Parameters.Add(New System.Data.SqlClient.SqlParameter("@host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
||||
scmCmdToExecute.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnernr", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
|
||||
scmCmdToExecute.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnerkbez", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, partner_kurzbezeichnung))
|
||||
scmCmdToExecute.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumenttyp", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, dokumenttyp))
|
||||
'End If
|
||||
Try
|
||||
scmCmdToExecute.Connection.Open()
|
||||
connopen = True
|
||||
Catch
|
||||
End Try
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
If connopen Then
|
||||
Try
|
||||
scmCmdToExecute.Connection.Close()
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub frmMehrfachdruck_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
292
DokSA/Backup/DokSA/frmPartnersuche.resx
Normal file
292
DokSA/Backup/DokSA/frmPartnersuche.resx
Normal file
@@ -0,0 +1,292 @@
|
||||
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABi
|
||||
CAAAAk1TRnQBSQFMAgEBAgEAASwBAAEsAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
|
||||
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
|
||||
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
|
||||
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
|
||||
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
|
||||
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
|
||||
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
|
||||
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
|
||||
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
|
||||
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
|
||||
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
|
||||
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
|
||||
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
|
||||
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
|
||||
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
|
||||
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
|
||||
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
|
||||
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
|
||||
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
|
||||
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
|
||||
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
|
||||
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
|
||||
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
|
||||
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
|
||||
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wEAEP8QByAAEP8QByAA
|
||||
Bv8CPwISAQAF/wYHAe0C7AHvBgcgAAX/BPkBAAESBf8EBwHvAYYDoQGGAa4BugQHIAAF/wEfA/kBAAb/
|
||||
BAcDoQI3A6EBugMHIAAG/wIAARIBAAb/AgcBvAGnA6ECNwOhAa4DByAAB/8B+QISBv8CBwG8BKEB6gES
|
||||
A6EBhgHvAgcgAAf/AfkBPwQSA/8CBwEJBKEB+wE3BKEB7AIHIAAD/wQSAQAD+QEAAhIC/wIHAQkEoQFK
|
||||
AfsBUQOhAewCByAAAv8D+QIAAf8E+QELARIBAAH/AgcBvAKhAoYBoQFRAfsBUQKhAe0CByAAAv8D+QIS
|
||||
Av8E+QESAv8CBwHwAacBoQE3AfsCUQH7AVEBoQGGAwcgAAL/A/kBAAISBPkCAAL/AwcBoAGnAaEBWAL7
|
||||
AVECoQHvAwcgAAL/AQAI+QEABP8EBwGgAacEoQGnBQcgAAT/AgACFwIABv8FBwHwAbwCCQK8BQcgABD/
|
||||
EAcgABD/EAcgAAFCAU0BPgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/gQAL
|
||||
</value>
|
||||
</data>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAGhJREFUOE/NU0EK
|
||||
ACAI8+k+zZ9ZCEapiyCIAg/pWJsa0W9Hu6A5XB/KJ/3KzCUByGeCGwUqIhYTybCwqRkmejy9Dwv2cvCZ
|
||||
SArMTwSgD2gP3N5qoeh+nDOaEsFCYMAEYIGSgkPcwy/aAP5wqQPBfWzxAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ContextMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>123, 17</value>
|
||||
</metadata>
|
||||
<data name="PartnerList.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVChTY2DABP+xiIGFkCVwsVEUwhThNREkiaEAJoiP
|
||||
RnEmskKs7kd3C1YrYTrx+g6bIrAYAKCqHOQvFu6BAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="PartnerList.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMEAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQAAAAAICAgIAgAAAGQAAABkAAAAZAAAAGQAAAABCgAAAAEAAAAJAwAAAAHz/////P///wAK
|
||||
CgoB8v////z///8ACQ8AAAABDwAAAAYAAABkAAAAZAAAAGQAAABkAAAACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="PartnerList.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style13{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{BackColor:255, 255, 192;}EvenRow{BackColor:White;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style11{}Style16{}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style10{AlignHorz:Near;}Style15{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style16" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 564, 212</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /><Style parent="FilterBar" me="FilterWatermark" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 566, 214</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAHxJREFUOE/Nk0sO
|
||||
wCAIRDmdx+0VqdqQ0pEZu+iiJCQmOo+PYEbtcLPs/CXcXKLW/OE3TIJW4QqyHqC0VezJMqjLEVJHZoAB
|
||||
A8g+dVGKTj2yQEDKgkdXJfwKMP7041/IteM5mvl6FkT3q3Hcz0MRGUFsmeb4sj0olyMEUngCOZ7aAP9S
|
||||
UJcAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>246, 17</value>
|
||||
</metadata>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAIAEBAAAAEACABoBQAAJgAAACAgAAABAAgAqAgAAI4FAAAoAAAAEAAAACAAAAABAAgAAAAAAEAB
|
||||
AAAAAAAAAAAAAAAAAAAAAAAA////AOfn5wAAAAAAODg4ADAwMADSwMwA/+f+APHT5gDqzuAA9tXqAEBA
|
||||
QACHh4cAf39/AIeRiwCJYXoAuISlAP+65wBoSFwAKSsqAMeywACIiIgA/a7fACgdJADLpLwAgICAAOi0
|
||||
1ABcQlMA39/fAIOJhQD73+8A357HAGtPYQCgoKAAeG10AOOnzQBdRVUAICAgAGlLXwDWnsEA97bfABoT
|
||||
GAA1JzAAwY+vAF1FVABrT2AA/8XxAP/A6wB4WGwALiIqALSFowDqrNMA8LHZAGRKWgBkSlsAoHaRANyi
|
||||
xwD/z/0AcVNnAHBQZQD+u+UAu4qpAH9dcgBFTEcAcFBkAHFTZgCFYngAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAICAgICAgICAgIfIiYmJiYCPj8sLCwsQEECHyImJiYmAjozIiIi
|
||||
Ozw9Ah8iJiYmJgIfIiYmJygCAgIfIiYmJiYCHyImIjUCLDgCOTMiNyYmAh8iJjICNTMzAhY0NDY3JgIf
|
||||
IiYmMjMiMys0LwIfMiYCHyImJicrLCstLi8CMDEiAiUiJicoAgICAikCAgICKgIhHiIjAiQAGwICJAAb
|
||||
AgICHB0eHwIAAgACAgAKACACAhgAGRoCGwAbAgIYAAACAgIUAAAVFgICAgICAgICAhcCCgsMDQ4CAgIP
|
||||
EBECEhMAAgICAgICAgUGBwgJAAAAAAABAgADBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAACAAAABAAAAAAQAIAAAA
|
||||
AACABAAAAAAAAAAAAAAAAAAAAAAAAP///wAAAAAA/9SOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AADWnsEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAQEBAQEBAQEBAQEBAQEBAQEBAQEKCgoKCgoKCgoKCgEB
|
||||
AQEBAQEBAQEBAQEBAQEBAQEBAQoKCgoKCgoKCgoKAQEBAQEBAQEBAQEBAQEBAQEBAQEBCgoKCgoKCgoK
|
||||
CgoBAQEBCgoKCgoKCgoKCgoKCgoBAQEKCgoKCgoKCgoKCgEBAQoKCgoKCgoKCgoKCgoKCgEBAQoKCgoK
|
||||
CgoKCgoKAQEBCgoKCgoKCgoKCgoKAQEBAQEBCgoKCgoKCgoKCgoBAQEKCgoKCgoKCgoKAQEBAQEBAQEK
|
||||
CgoKCgoKCgoKCgEBAQoKCgoKCgoKCgEBAQEBAQEBAQoKCgoKCgoKCgoKAQEBCgoKCgoKCgoBAQEBAQoK
|
||||
AQEBCgoKCgoKCgoKCgoBAQEKCgoKCgoKCgEBAQoKCgoBAQEKCgoKCgoKCgoKCgEBAQoKCgoKCgoBAQEK
|
||||
CgoKCgEBAQoKCgoKCgoKCgoKAQEBCgoKCgoKCgoBAQoKCgoKAQEBAQEBAQEBCgoKCgoBAQEKCgoKCgoK
|
||||
CgoKCgoKCgoBAQEBAQEBAQEKCgoKCgEBAQoKCgoKCgoKCgoKCgoKCgoKCgoKCgEBAQoKCgoKAQEBCgoK
|
||||
CgoKCgoKCgoKCgoKCgoKCgoKAQEBCgoKCgoBAQEKCgoKCgoKCgoBAQEBAQEKCgoKAQEBAQEBAQoKCgEB
|
||||
AQoKCgoKCgoKAQEBAQEBAQEBCgEBAQEBAQEBAQoKAQEBCgoKCgoKCgEBAQEBAQEBAQEBAQEBAQEBAQEB
|
||||
AQoBAQEKCgoKCgoBAQEBAQAAAAEBAQEBAQEAAAABAQEBAQEBAQAKCgoKCgEBAQEAAAAAAAEBAQEBAAAA
|
||||
AAABAQEBAQEBAAAKCgoKAQEBAAAAAQAAAQEBAQAAAAEAAAABAQEBAQEAAAoKCgoBAQEAAAEBAAABAQEB
|
||||
AAAAAQAAAAEBAQEBAQAAAAoKCgEBAQAAAAAAAAEBAQEBAAAAAAABAQEBAQEBAAAAAAoKAQEBAQAAAAAB
|
||||
AQEBAQEAAAAAAAEBAQEBAQEAAAAAAAoKAQEBAQEBAQEBAQEBAQEBAQEBAQEBCgEBAQAAAAAACgoKAQEB
|
||||
AQEBAQEBAQEBAQEBAQEBAQoAAQEBAAAAAAAAAAoKAQEBAQEBAQoKCgEBAQEBAQEKAAABAQEBAQEBAQEB
|
||||
AQEBAQEBAQEKCgoKCgoBAQEAAAAAAAEBAQEBAQEBAQEBAQEBAQoKCgoKCgoKCgoAAAAAAAAAAQEBAQEB
|
||||
AQEBAQEBAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAAABAQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAEBAQAAAQEBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
746
DokSA/Backup/DokSA/frmPartnersuche.vb
Normal file
746
DokSA/Backup/DokSA/frmPartnersuche.vb
Normal file
@@ -0,0 +1,746 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class FrmPartnersuche
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents BUtton3 As System.Windows.Forms.Button
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents PartnerList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button6 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents Timer1 As System.Windows.Forms.Timer
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmPartnersuche))
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox
|
||||
Me.Label1 = New System.Windows.Forms.Label
|
||||
Me.Label2 = New System.Windows.Forms.Label
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox
|
||||
Me.Label3 = New System.Windows.Forms.Label
|
||||
Me.TextBox3 = New System.Windows.Forms.TextBox
|
||||
Me.Label4 = New System.Windows.Forms.Label
|
||||
Me.TextBox4 = New System.Windows.Forms.TextBox
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.Button1 = New System.Windows.Forms.Button
|
||||
Me.Button2 = New System.Windows.Forms.Button
|
||||
Me.BUtton3 = New System.Windows.Forms.Button
|
||||
Me.PartnerList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
|
||||
Me.MenuItem1 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem2 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem3 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem4 = New System.Windows.Forms.MenuItem
|
||||
Me.Label5 = New System.Windows.Forms.Label
|
||||
Me.TextBox5 = New System.Windows.Forms.TextBox
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox
|
||||
Me.Label6 = New System.Windows.Forms.Label
|
||||
Me.Button6 = New System.Windows.Forms.Button
|
||||
Me.Label7 = New System.Windows.Forms.Label
|
||||
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.Label8 = New System.Windows.Forms.Label
|
||||
CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(96, 16)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(176, 20)
|
||||
Me.TextBox1.TabIndex = 0
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Location = New System.Drawing.Point(16, 16)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(72, 23)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = "Partner-Nr."
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Location = New System.Drawing.Point(16, 40)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(72, 23)
|
||||
Me.Label2.TabIndex = 3
|
||||
Me.Label2.Text = "Kurzname"
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.Location = New System.Drawing.Point(96, 40)
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Size = New System.Drawing.Size(176, 20)
|
||||
Me.TextBox2.TabIndex = 2
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.Location = New System.Drawing.Point(16, 64)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(72, 23)
|
||||
Me.Label3.TabIndex = 5
|
||||
Me.Label3.Text = "Freitext"
|
||||
'
|
||||
'TextBox3
|
||||
'
|
||||
Me.TextBox3.Location = New System.Drawing.Point(96, 64)
|
||||
Me.TextBox3.Name = "TextBox3"
|
||||
Me.TextBox3.Size = New System.Drawing.Size(176, 20)
|
||||
Me.TextBox3.TabIndex = 4
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.Location = New System.Drawing.Point(424, 16)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(80, 40)
|
||||
Me.Label4.TabIndex = 7
|
||||
Me.Label4.Text = "Maximale Anzahl Treffer"
|
||||
'
|
||||
'TextBox4
|
||||
'
|
||||
Me.TextBox4.Location = New System.Drawing.Point(520, 16)
|
||||
Me.TextBox4.Name = "TextBox4"
|
||||
Me.TextBox4.Size = New System.Drawing.Size(64, 20)
|
||||
Me.TextBox4.TabIndex = 6
|
||||
Me.TextBox4.Text = "50"
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
Me.ImageList1.Images.SetKeyName(0, "")
|
||||
Me.ImageList1.Images.SetKeyName(1, "")
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(280, 16)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(88, 24)
|
||||
Me.Button1.TabIndex = 9
|
||||
Me.Button1.Text = "&Suchen"
|
||||
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Enabled = False
|
||||
Me.Button2.Location = New System.Drawing.Point(496, 336)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(88, 23)
|
||||
Me.Button2.TabIndex = 11
|
||||
Me.Button2.Text = "Übernehmen"
|
||||
'
|
||||
'BUtton3
|
||||
'
|
||||
Me.BUtton3.Location = New System.Drawing.Point(16, 337)
|
||||
Me.BUtton3.Name = "BUtton3"
|
||||
Me.BUtton3.Size = New System.Drawing.Size(80, 24)
|
||||
Me.BUtton3.TabIndex = 10
|
||||
Me.BUtton3.Text = "Schliessen"
|
||||
'
|
||||
'PartnerList
|
||||
'
|
||||
Me.PartnerList.AllowUpdate = False
|
||||
Me.PartnerList.AllowUpdateOnBlur = False
|
||||
Me.PartnerList.AlternatingRows = True
|
||||
Me.PartnerList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
||||
Me.PartnerList.ContextMenu = Me.ContextMenu1
|
||||
Me.PartnerList.FetchRowStyles = True
|
||||
Me.PartnerList.FilterBar = True
|
||||
Me.PartnerList.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.PartnerList.Images.Add(CType(resources.GetObject("PartnerList.Images"), System.Drawing.Image))
|
||||
Me.PartnerList.Location = New System.Drawing.Point(16, 112)
|
||||
Me.PartnerList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
|
||||
Me.PartnerList.Name = "PartnerList"
|
||||
Me.PartnerList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PartnerList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.PartnerList.PreviewInfo.ZoomFactor = 75
|
||||
Me.PartnerList.PrintInfo.PageSettings = CType(resources.GetObject("PartnerList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.PartnerList.ScrollTips = True
|
||||
Me.PartnerList.Size = New System.Drawing.Size(568, 216)
|
||||
Me.PartnerList.TabIndex = 13
|
||||
Me.PartnerList.Text = "C1TrueDBGrid1"
|
||||
Me.PartnerList.PropBag = resources.GetString("PartnerList.PropBag")
|
||||
'
|
||||
'ContextMenu1
|
||||
'
|
||||
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4})
|
||||
'
|
||||
'MenuItem1
|
||||
'
|
||||
Me.MenuItem1.Index = 0
|
||||
Me.MenuItem1.Text = "&Partner übernehmen"
|
||||
'
|
||||
'MenuItem2
|
||||
'
|
||||
Me.MenuItem2.Index = 1
|
||||
Me.MenuItem2.Text = "&Detailinformationen"
|
||||
'
|
||||
'MenuItem3
|
||||
'
|
||||
Me.MenuItem3.Index = 2
|
||||
Me.MenuItem3.Text = "-"
|
||||
'
|
||||
'MenuItem4
|
||||
'
|
||||
Me.MenuItem4.Index = 3
|
||||
Me.MenuItem4.Text = "Partner erfassen / bearbeiten"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.Location = New System.Drawing.Point(16, 88)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(72, 23)
|
||||
Me.Label5.TabIndex = 17
|
||||
Me.Label5.Text = "VV-Suche"
|
||||
'
|
||||
'TextBox5
|
||||
'
|
||||
Me.TextBox5.Location = New System.Drawing.Point(96, 88)
|
||||
Me.TextBox5.Name = "TextBox5"
|
||||
Me.TextBox5.Size = New System.Drawing.Size(176, 20)
|
||||
Me.TextBox5.TabIndex = 16
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(568, 56)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(16, 16)
|
||||
Me.CheckBox1.TabIndex = 18
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.Location = New System.Drawing.Point(424, 56)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(152, 32)
|
||||
Me.Label6.TabIndex = 19
|
||||
Me.Label6.Text = "Trefferliste immer anzeigen"
|
||||
'
|
||||
'Button6
|
||||
'
|
||||
Me.Button6.Image = CType(resources.GetObject("Button6.Image"), System.Drawing.Image)
|
||||
Me.Button6.Location = New System.Drawing.Point(368, 16)
|
||||
Me.Button6.Name = "Button6"
|
||||
Me.Button6.Size = New System.Drawing.Size(24, 24)
|
||||
Me.Button6.TabIndex = 20
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label7.ForeColor = System.Drawing.Color.Red
|
||||
Me.Label7.Location = New System.Drawing.Point(136, 336)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(344, 32)
|
||||
Me.Label7.TabIndex = 21
|
||||
Me.Label7.Text = "Partner wurde direkt übernommen"
|
||||
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
Me.Label7.Visible = False
|
||||
'
|
||||
'Timer1
|
||||
'
|
||||
Me.Timer1.Interval = 2000
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.Location = New System.Drawing.Point(408, 72)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.Label8.Size = New System.Drawing.Size(184, 16)
|
||||
Me.Label8.TabIndex = 22
|
||||
Me.Label8.Text = "(z.B. für EDOKA-Partner-Mutation)"
|
||||
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'FrmPartnersuche
|
||||
'
|
||||
Me.AcceptButton = Me.Button1
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(592, 373)
|
||||
Me.Controls.Add(Me.Label8)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.Button6)
|
||||
Me.Controls.Add(Me.CheckBox1)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.TextBox5)
|
||||
Me.Controls.Add(Me.PartnerList)
|
||||
Me.Controls.Add(Me.BUtton3)
|
||||
Me.Controls.Add(Me.Button2)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.TextBox4)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.TextBox3)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.TextBox2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.TextBox1)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "FrmPartnersuche"
|
||||
Me.Text = "Partnersuche"
|
||||
CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Deklarationen"
|
||||
Public Event partner_selected()
|
||||
Dim m_noclose As Boolean = False
|
||||
Property NoClose() As Boolean
|
||||
Get
|
||||
Return m_noclose
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_noclose = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_meldung_doppelter_partner As Boolean = False
|
||||
Property Meldung_Doppelter_Partner() As Boolean
|
||||
Get
|
||||
Return m_meldung_doppelter_partner
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_meldung_doppelter_partner = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim Partner As DataTable
|
||||
Dim m_zustelladresse As String
|
||||
Dim m_anrede As String
|
||||
|
||||
Dim mypartner As New edokadb.clsMyPartner()
|
||||
|
||||
Dim m_partnernr As Long
|
||||
Property PartnerNr() As Long
|
||||
Get
|
||||
Return m_partnernr
|
||||
End Get
|
||||
Set(ByVal Value As Long)
|
||||
m_partnernr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_PartnerKurzbezeichnung As String
|
||||
Property PartnerKurzbezeichnnung() As String
|
||||
Get
|
||||
Return m_PartnerKurzbezeichnung
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_PartnerKurzbezeichnung = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property zustelladresse() As String
|
||||
Get
|
||||
Return m_zustelladresse
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_zustelladresse = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Anrede() As String
|
||||
Get
|
||||
Return m_anrede
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_anrede = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_dokumenterstellen As Boolean = False
|
||||
Property Dokumenterstellen() As Boolean
|
||||
Get
|
||||
Return m_dokumenterstellen
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_dokumenterstellen = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_profilnr As Integer
|
||||
Property profilnr() As Integer
|
||||
Get
|
||||
Return m_profilnr
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_profilnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_erfassung As Boolean = False
|
||||
Property AusPartnererfassung() As Boolean
|
||||
Get
|
||||
Return m_erfassung
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_erfassung = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_retrieval As Boolean
|
||||
Property NurAbfrage() As Boolean
|
||||
Get
|
||||
Return m_retrieval
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_retrieval = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_vibeachten As Boolean
|
||||
Property VIBeachten() As Boolean
|
||||
Get
|
||||
Return m_vibeachten
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_vibeachten = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_dokumenttypnr As Integer = 0
|
||||
Property Dokumenttypnrnr() As Integer
|
||||
Get
|
||||
Return m_dokumenttypnr
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_dokumenttypnr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Private Sub Buton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
Me.PartnerList.DataSource = Nothing
|
||||
Me.PartnerList.DataMember = Nothing
|
||||
Dim iii As Double
|
||||
If Me.TextBox1.Text <> "" Then
|
||||
Try
|
||||
Dim d As Double
|
||||
d = Val(Me.TextBox1.Text)
|
||||
If d = 0 Then
|
||||
MsgBox("Die eingegebene Partner-Nr ist ungültig.", MsgBoxStyle.Critical)
|
||||
Me.TextBox1.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Partner = mypartner.search_partner(d, Me.TextBox4.Text, 0)
|
||||
Me.Cursor = Cursors.Default
|
||||
Catch
|
||||
MsgBox("Die eingegebene Partner-Nr ist ungültig.", MsgBoxStyle.Critical)
|
||||
Me.TextBox1.Focus()
|
||||
Exit Sub
|
||||
End Try
|
||||
Else
|
||||
If Me.TextBox2.Text <> "" Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Partner = mypartner.search_partner(Me.TextBox2.Text, Me.TextBox4.Text, 1)
|
||||
Me.Cursor = Cursors.Default
|
||||
Else
|
||||
If Me.TextBox3.Text <> "" Then
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Partner = mypartner.search_partner(Me.TextBox3.Text, Me.TextBox4.Text, 2)
|
||||
Me.Cursor = Cursors.Default
|
||||
Else
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Partner = mypartner.search_partner(Me.TextBox5.Text, Me.TextBox4.Text, 3)
|
||||
Me.Cursor = Cursors.Default
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If Partner.Rows.Count = 0 Then
|
||||
MsgBox("Ihre Suche ergab keine Treffer.", MsgBoxStyle.Exclamation)
|
||||
Else
|
||||
|
||||
Me.PartnerList.DataSource = Partner
|
||||
Me.PartnerList.DataMember = "Partner"
|
||||
SpaltenTitel_Aktualisieren()
|
||||
Dim i As Long
|
||||
Dim ii As Long
|
||||
If Me.PartnerList.Splits(0).Rows.Count = 1 And Me.CheckBox1.Checked <> True Then
|
||||
If Me.NoClose Then
|
||||
Me.Timer1.Enabled = True
|
||||
Me.Label7.Visible = True
|
||||
End If
|
||||
Button2_Click(sender, e)
|
||||
End If
|
||||
End If
|
||||
If Me.PartnerList.Splits(0).Rows.Count > 0 Then
|
||||
Me.Button2.Enabled = True
|
||||
Me.PartnerList.Focus()
|
||||
Else
|
||||
Me.Button2.Enabled = False
|
||||
Me.TextBox1.Focus()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PartnerList_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles PartnerList.FetchRowStyle
|
||||
If Microsoft.VisualBasic.Left(Me.PartnerList.Columns(0).CellValue(e.Row), 1) = "9" Then
|
||||
e.CellStyle.BackColor = System.Drawing.Color.CadetBlue
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub BUtton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BUtton3.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Public Sub SpaltenTitel_Aktualisieren()
|
||||
'Spaltentitel setzen
|
||||
Dim titel As New EDOKA.MySpaltenTitel()
|
||||
Dim ts As New EDOKA.Tabellenspalte()
|
||||
Dim i As Integer
|
||||
Dim t As New DataTable()
|
||||
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
||||
Dim s As String
|
||||
|
||||
t = Partner
|
||||
ts.Tabelle = "Partner"
|
||||
For i = 0 To Me.PartnerList.Columns.Count - 1
|
||||
s = Me.PartnerList.Columns(i).DataField
|
||||
ts.Feld = s
|
||||
ts.getspalte()
|
||||
Me.PartnerList.Columns(i).Caption = ts.spaltenname
|
||||
If Me.PartnerList.Columns(i).Caption = "" Then
|
||||
Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
|
||||
Else
|
||||
Me.PartnerList.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
End If
|
||||
' If Me.PartnerList.Columns(i).Caption = "" Then Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
|
||||
If ts.locked Then
|
||||
Me.PartnerList.Splits(0).DisplayColumns(i).Locked = True
|
||||
End If
|
||||
|
||||
If ts.AlsHacken Then
|
||||
Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
End If
|
||||
|
||||
'Präsentation von aktiv
|
||||
If Me.PartnerList.Columns(i).DataField = "aktiv" Then
|
||||
Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.PartnerList.Columns(i).ValueItems.DefaultItem = True
|
||||
Me.PartnerList.Columns(i).DefaultValue = True
|
||||
Me.PartnerList.Columns(i).FilterText = True
|
||||
End If
|
||||
If Me.PartnerList.Columns(i).DataField = "erstellt_am" Then
|
||||
Me.PartnerList.Columns(i).DefaultValue = Now
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||||
Partner_Suche(Me.PartnerList.Columns(0).Value)
|
||||
If Me.NoClose Then
|
||||
RaiseEvent partner_selected()
|
||||
Me.Timer1.Enabled = True
|
||||
Me.Label7.Visible = True
|
||||
Exit Sub
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub Partner_Suche(ByVal nrpar00 As String)
|
||||
Dim p As New edokadb.clsPartner()
|
||||
Dim ph As New edokadb.clsPartner_Hauptadresse()
|
||||
p.sConnectionString = Globals.sConnectionString
|
||||
p.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32))
|
||||
p.SelectOne()
|
||||
ph.sConnectionString = Globals.sConnectionString
|
||||
ph.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32))
|
||||
ph.SelectOne()
|
||||
|
||||
|
||||
Dim s As String
|
||||
s = ""
|
||||
Try
|
||||
If p.sCDVIG00.Value = "Y" Or p.iAZEPL00.Value > 1 Or p.bCDVSA00.Value = True Then Me.VIBeachten = True Else Me.VIBeachten = False
|
||||
If p.sTXADZ011.Value <> "" Then s = s + p.sTXADZ011.Value + vbCrLf
|
||||
If p.sTXADZ021.Value <> "" Then s = s + p.sTXADZ021.Value + vbCrLf
|
||||
If p.sTXADZ031.Value <> "" Then s = s + p.sTXADZ031.Value + vbCrLf
|
||||
If p.sTXADZ041.Value <> "" Then s = s + p.sTXADZ041.Value + vbCrLf
|
||||
If p.sTXADZ051.Value <> "" Then s = s + p.sTXADZ051.Value + vbCrLf
|
||||
If p.sTXADZ061.Value <> "" Then s = s + p.sTXADZ061.Value + vbCrLf
|
||||
If p.sTXADZ071.Value <> "" Then s = s + p.sTXADZ071.Value + vbCrLf
|
||||
Me.zustelladresse = s
|
||||
If p.iNRPAR00.Value > 91000000 Then
|
||||
Me.Anrede = p.sBEBAN011.Value
|
||||
Else
|
||||
Me.Anrede = ph.sBEBAN01.Value
|
||||
End If
|
||||
Me.PartnerNr = nrpar00
|
||||
Me.PartnerKurzbezeichnnung = p.sBKPAR00.Value
|
||||
If Me.NoClose = True Then
|
||||
Exit Sub
|
||||
End If
|
||||
Try
|
||||
Me.Partner.Dispose()
|
||||
Catch
|
||||
End Try
|
||||
Try
|
||||
Me.Close()
|
||||
Catch
|
||||
End Try
|
||||
Me.mypartner = Nothing
|
||||
Catch ex As Exception
|
||||
' MsgBox(ex.Message)
|
||||
Finally
|
||||
Try
|
||||
p.Dispose()
|
||||
ph.Dispose()
|
||||
Catch
|
||||
End Try
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
|
||||
Button2_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown
|
||||
If e.KeyCode = Keys.Return Then Buton1_Click(sender, e)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub PartnerList_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PartnerList.DoubleClick
|
||||
Button2_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub FrmPartnersuche_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TextBox1.Focus()
|
||||
Me.TextBox1.Select()
|
||||
Dim p As Process
|
||||
Dim Ret As Int32
|
||||
Dim hWndMain As IntPtr
|
||||
|
||||
Dim MyProcesses() As Process = _
|
||||
Process.GetProcessesByName( _
|
||||
Process.GetCurrentProcess().ProcessName)
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
MsgBox("Diese Funktion ist nicht mehr aktiv")
|
||||
'NOVA RGL 20071010
|
||||
'Dim nrpar00 As Integer
|
||||
'Dim host As New frmHostTransfer()
|
||||
'If Me.TextBox1.Text <> "" Then
|
||||
' Try
|
||||
' Dim d As Double
|
||||
' d = Val(Me.TextBox1.Text)
|
||||
' If d = 0 Then
|
||||
' MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
|
||||
' Me.TextBox1.Focus()
|
||||
' Exit Sub
|
||||
' End If
|
||||
' host.Nrpar00 = d
|
||||
' Me.Hide()
|
||||
' host.ShowDialog()
|
||||
' If host.DialogResult = DialogResult.Abort Then
|
||||
' Me.Show()
|
||||
' Else
|
||||
' Me.TextBox1.Text = host.Nrpar00
|
||||
' Me.Buton1_Click(sender, e)
|
||||
' Me.Show()
|
||||
' End If
|
||||
' host.Dispose()
|
||||
' Catch
|
||||
' MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
|
||||
' Me.TextBox1.Focus()
|
||||
' End Try
|
||||
'Else
|
||||
' MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
|
||||
' Me.TextBox1.Focus()
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
Private Sub PartnerList_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles PartnerList.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
If Me.PartnerList.Splits(0).Rows.Count > 0 Then
|
||||
Try
|
||||
Partner_Suche(Me.PartnerList.Columns(0).Value)
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
|
||||
Me.Label7.Visible = False
|
||||
Me.Timer1.Enabled = False
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
|
||||
Try
|
||||
If Me.PartnerList.Columns(0).Value < 91000000 Then
|
||||
Me.MenuItem3.Visible = False
|
||||
Me.MenuItem4.Visible = False
|
||||
Else
|
||||
Me.MenuItem3.Visible = True
|
||||
Me.MenuItem4.Visible = True
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub FrmPartnersuche_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LostFocus
|
||||
Me.TopMost = True
|
||||
End Sub
|
||||
End Class
|
||||
BIN
DokSA/Backup/DokSA/reports.ico
Normal file
BIN
DokSA/Backup/DokSA/reports.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 109 KiB |
Reference in New Issue
Block a user