Initial commit
This commit is contained in:
+13
@@ -0,0 +1,13 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:2.0.50727.5446
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>false</MySubMain>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<ApplicationType>1</ApplicationType>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
@@ -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("clsNativ")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("Microsoft")>
|
||||
<Assembly: AssemblyProduct("clsNativ")>
|
||||
<Assembly: AssemblyCopyright("Copyright © Microsoft 2011")>
|
||||
<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("e5df2ad6-00b7-42c3-b859-d3fd0423d005")>
|
||||
|
||||
' 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")>
|
||||
+62
@@ -0,0 +1,62 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:2.0.50727.5446
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||
'class via a tool like ResGen or Visual Studio.
|
||||
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||
'with the /str option, or rebuild your VS project.
|
||||
'<summary>
|
||||
' A strongly-typed resource class, for looking up localized strings, etc.
|
||||
'</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>
|
||||
' Returns the cached ResourceManager instance used by this class.
|
||||
'</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("clsNativ.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'<summary>
|
||||
' Overrides the current thread's CurrentUICulture property for all
|
||||
' resource lookups using this strongly typed resource class.
|
||||
'</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -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>
|
||||
Generated
+73
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:2.0.50727.5446
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "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 "My.Settings Auto-Save Functionality"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.clsNativ.My.MySettings
|
||||
Get
|
||||
Return Global.clsNativ.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -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>
|
||||
@@ -0,0 +1 @@
|
||||
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20112.61226, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da
|
||||
@@ -0,0 +1,145 @@
|
||||
<?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>{EF04A463-2F67-489F-9481-CE3FBAA1BF32}</ProjectGuid>
|
||||
<OutputType>Library</OutputType>
|
||||
<RootNamespace>clsNativ</RootNamespace>
|
||||
<AssemblyName>clsNativ</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>Windows</MyType>
|
||||
<TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>..\EDOKA\bin\</OutputPath>
|
||||
<DocumentationFile>clsNativ.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>clsNativ.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="Microsoft.Office.Interop.Excel, Version=14.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL" />
|
||||
<Reference Include="Microsoft.Office.Interop.PowerPoint, Version=14.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL" />
|
||||
<Reference Include="Microsoft.Office.Interop.Word, Version=14.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL" />
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Core">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Design" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<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.Diagnostics" />
|
||||
<Import Include="System.Linq" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="clsNativeDok.vb" />
|
||||
<Compile Include="frmDokManager.Designer.vb">
|
||||
<DependentUpon>frmDokManager.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmDokManager.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmDokManager_sik.Designer.vb">
|
||||
<DependentUpon>frmDokManager_sik.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmDokManager_sik.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmDokSelect.Designer.vb">
|
||||
<DependentUpon>frmDokSelect.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmDokSelect.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="frmDokManager.resx">
|
||||
<DependentUpon>frmDokManager.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmDokManager_sik.resx">
|
||||
<DependentUpon>frmDokManager_sik.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmDokSelect.resx">
|
||||
<DependentUpon>frmDokSelect.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="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>
|
||||
<COMReference Include="Microsoft.Office.Core">
|
||||
<Guid>{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}</Guid>
|
||||
<VersionMajor>2</VersionMajor>
|
||||
<VersionMinor>5</VersionMinor>
|
||||
<Lcid>0</Lcid>
|
||||
<WrapperTool>primary</WrapperTool>
|
||||
<Isolated>False</Isolated>
|
||||
</COMReference>
|
||||
</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>
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<configuration>
|
||||
<!-- VSdocman config file for current project/solution.-->
|
||||
<activeProfile>default</activeProfile>
|
||||
<appSettings>
|
||||
</appSettings>
|
||||
</configuration>
|
||||
@@ -0,0 +1,43 @@
|
||||
Public Class clsNativeDok
|
||||
Dim m_connectionstring As String
|
||||
Public Property Connectionstring() As String
|
||||
Get
|
||||
Return m_connectionstring
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
m_connectionstring = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_manr As Integer
|
||||
Public Property Mitarbeiternr() As Integer
|
||||
Get
|
||||
Return m_manr
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
m_manr = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_parentform As Windows.Forms.Form
|
||||
Public Property Parentform() As Windows.Forms.Form
|
||||
Get
|
||||
Return m_parentform
|
||||
End Get
|
||||
Set(ByVal value As Windows.Forms.Form)
|
||||
m_parentform = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub Show_DokSelect()
|
||||
Dim f As New frmDokSelect(Me.Connectionstring)
|
||||
f.MdiParent = Parentform
|
||||
f.Show()
|
||||
End Sub
|
||||
|
||||
Public Sub Show_Dokvorlagen()
|
||||
Dim f As New frmDokManager(Me.Connectionstring)
|
||||
f.MdiParent = Parentform
|
||||
f.Show()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Generated
+174
@@ -0,0 +1,174 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmDokManager
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDokManager))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.Tree = New System.Windows.Forms.TreeView
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.NeuerEintragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.EintragLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.EintragUmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton
|
||||
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(560, 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"
|
||||
'
|
||||
'Tree
|
||||
'
|
||||
Me.Tree.ContextMenuStrip = Me.ContextMenuStrip1
|
||||
Me.Tree.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Tree.ImageIndex = 0
|
||||
Me.Tree.ImageList = Me.ImageList1
|
||||
Me.Tree.Location = New System.Drawing.Point(0, 49)
|
||||
Me.Tree.Name = "Tree"
|
||||
Me.Tree.SelectedImageIndex = 0
|
||||
Me.Tree.ShowRootLines = False
|
||||
Me.Tree.Size = New System.Drawing.Size(560, 468)
|
||||
Me.Tree.TabIndex = 2
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerEintragToolStripMenuItem, Me.EintragLöschenToolStripMenuItem, Me.EintragUmbenennenToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(186, 70)
|
||||
'
|
||||
'NeuerEintragToolStripMenuItem
|
||||
'
|
||||
Me.NeuerEintragToolStripMenuItem.Name = "NeuerEintragToolStripMenuItem"
|
||||
Me.NeuerEintragToolStripMenuItem.Size = New System.Drawing.Size(185, 22)
|
||||
Me.NeuerEintragToolStripMenuItem.Text = "&Neuer Eintrag"
|
||||
'
|
||||
'EintragLöschenToolStripMenuItem
|
||||
'
|
||||
Me.EintragLöschenToolStripMenuItem.Name = "EintragLöschenToolStripMenuItem"
|
||||
Me.EintragLöschenToolStripMenuItem.Size = New System.Drawing.Size(185, 22)
|
||||
Me.EintragLöschenToolStripMenuItem.Text = "Eintrag löschen"
|
||||
'
|
||||
'EintragUmbenennenToolStripMenuItem
|
||||
'
|
||||
Me.EintragUmbenennenToolStripMenuItem.Name = "EintragUmbenennenToolStripMenuItem"
|
||||
Me.EintragUmbenennenToolStripMenuItem.Size = New System.Drawing.Size(185, 22)
|
||||
Me.EintragUmbenennenToolStripMenuItem.Text = "Eintrag umbenennen"
|
||||
'
|
||||
'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, "Folder-481.png")
|
||||
Me.ImageList1.Images.SetKeyName(1, "Word.png")
|
||||
Me.ImageList1.Images.SetKeyName(2, "Excel.png")
|
||||
Me.ImageList1.Images.SetKeyName(3, "PowerPoint.png")
|
||||
Me.ImageList1.Images.SetKeyName(4, "Access.png")
|
||||
Me.ImageList1.Images.SetKeyName(5, "Visio.png")
|
||||
Me.ImageList1.Images.SetKeyName(6, "Project.png")
|
||||
Me.ImageList1.Images.SetKeyName(7, "Folder-48.png")
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripButton2})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(560, 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 = "ToolStripButton1"
|
||||
'
|
||||
'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 = "ToolStripButton2"
|
||||
'
|
||||
'frmDokManager
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(560, 517)
|
||||
Me.Controls.Add(Me.Tree)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.Name = "frmDokManager"
|
||||
Me.Text = "frmDokManager"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.ContextMenuStrip1.ResumeLayout(False)
|
||||
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 Tree As System.Windows.Forms.TreeView
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents NeuerEintragToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents EintragLöschenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents EintragUmbenennenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
|
||||
End Class
|
||||
@@ -0,0 +1,231 @@
|
||||
<?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="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>352, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>242, 17</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABE
|
||||
DgAAAk1TRnQBSQFMAgEBCAEAATABAAEwAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
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//8A/wD/AP8ABQABYgK9
|
||||
AfQC/wG2ApMGjgFiAacN/wH0AbUBUA3/AfMBHBAAAWIBvQG3Ab0B8wH/AZMBvQKOBYgBYgGtBv8BtQHd
|
||||
Af8BGQP/Aa0BtQFQDf8BUAEcAfQOHAH/AWgBvQK3Ab0BtgL/AWMEaQKIAWIBrQEJAf8B3QEJCf8BCQG1
|
||||
AVABeAb/AfYBeAGZA/8BGwEcAfQNOAFZAQABaAG9BLcBjgb/AZMBQAE/Aa0BCQL/AQkG/wH0A/8BtQFQ
|
||||
AXgG/wJ4AQgE/wEcAf8OWQEAAWgBvQI/ArcBjgGTAj4F/wFAAa0BCQP/Aa0BpgGGA/8BzwP/AbUBUAF4
|
||||
Af8B8wFJAfMH/wFWAf8BHAH/DlkB9gFpAb0BaQE/AbYBtwKOAj4G/wGtAgkC/wOmAv8B9AHPAbQC/wH0
|
||||
AVACeAH0AUkB8wT/AfYBVwFWAfYD/wFZCHoBmgF6A1kBmgFpAr0GPwHwBv8BrQIJAv8BhgGLAaYI/wFQ
|
||||
AngB9AFJAfMC/wH2AQgBGwb/AVkEegGaBqABwwF6AVkBiAHzAb0CYwFAAz8E/wHxAb0B/wGtARkBCQH/
|
||||
AbUBhgH/AYYBrQT/AfQBrQG1AVABCAF4AfMESQX/AZgBVgEcAf8IoAbDAaABiAHzAb0BiAFjAb0BtwI/
|
||||
BP8CjgH/Aa0BGQLdAq0B/wKGAv8EtAG1AVABCAKZAVABcwFyAkkB/wEbAVADVwEcAf8BwwOgCsMB9gGI
|
||||
AvMBvQFjAY4BtwFAAbYBtwX/AT4BrQIZAd0CrQH/AbQBhgEJBLQCtQFQAggBmQFQAfMB/wFyAUkBmQNX
|
||||
AngBHAH/AcMBoAKaCHoBWQEbAfMBiAH0AfMB3gRjAb0GtwFiAa0CGQHdAc8DCQGnAbQGtQFQAggBmQFQ
|
||||
ARsBmQFQAUkBnwV4ARwB/wfDBaABegIAAYgC9AHzARgDYwe9AWIBrQIZAtUBGQIJAa0BhgUJAbUBUAII
|
||||
BVABSQaZARwB/wbDCQAE9AHzAmMBjge9AWIBCQIZAtUBGQHdAq0BhgHdBAkBtQHzAggFUAeZARwB/wL2
|
||||
BMMJAAH/AY4D9ALzAd4HvQFiAf8BtQIZAd0CGQMJBd0BtQH/AVYGCAaZAQgBHBAAAv8BjgH/A/QE8wPe
|
||||
AfMBaAL/AbQMGQG1Av8BUAHzCwgBHBAAFP8LrQEJEP8gAAGGDvEBhgFPDf8B8wFIBiUJIAHxAQABBw3v
|
||||
AfEBhgT/AvME/wIJAf8BiwGGAU8E/wHzAv8B8gH/AZgD/wFxAUgBJQKaAXoF/wH2AXUD/wFNAfEBAA+0
|
||||
AYYBCQf/AfIF/wGGAU8BCAX/AQgC/wHxAnIC/wFIASUBmgX/ARsBvQH/AZQD/wFHAfEBAA+0AYYBCQn/
|
||||
AvQC/wGGAU8BCAb/AQgBmAL/AfIBTwH/AUgBJQGaBv8BlAH0Bf8B8QH/AbQCtQy0AYYBCQH0Af8CpgL/
|
||||
AqYF/wGLAU8BCAFWAlABTwH/AQgBTwFJAQgBlwH0Av8BcgElAZoC/wElAUYD/wFTAk0D/wHxAf8BtQa7
|
||||
CLUBiwHdAQkB/wGsAccB8wH/AqYBCQX/AU8CCAFQAk8B/wFQAU8D/wGXAXEB8QH/AUwCmgH/ASUBRgL/
|
||||
AXUBUwF1Af8BGwL/AfAB/wy7AbUCuwGLAd0BCQH/AqwBrQH/AqYBhgX/AU8CCAFxAU8BcQJWAZgB8QGY
|
||||
BP8BvAFNApoB/wElAUwC/wF1Ak0BmgX/D7sBiwEZAQkBtAOsAf8BxwGnAaYC/wG0Ac8BhgFPAfEBCAH/
|
||||
AkgBVwFWBP8B8wFPAZcBSQFNARoBmgH/BCUG/wFHAfEB9AQJC7sBiwIZAqwBtAGsAbQBrAHdAaYBuwO0
|
||||
AYYBTwHyAfEBwgH0AlcD/wFyBJcBSQFNARoCmgMrAiUC/wJNAnUB8QHyBwkIuwGLAhkCrAH/A6wBtQGm
|
||||
AQkDtAGGAVAC8gHxAlYBUAFxAXgCmAGdA5cBSQFNAhoBmgJNAf8BlAElAb0FdQHxAfAJCQa7Aa0CGQGy
|
||||
AbMBCQKsAa0BtQGmAYYDtQGGAVAB8wHyAQgCUAJsAf8BCAWYAUkBTQMaAU0BUwG9AXUBJQEaBXUB8QEA
|
||||
A7ULtAHxAbQCGQGyAhkCrAEJAa0CpgMJAYYBUAHzARsCTwH0AQgCbAYIAUkBdQIaAXUDUwFMASUGmgHx
|
||||
AgAFuwkAAf8B9AGzAbIB9AEZAbMBrAHzAa0CpgEZAgkBhgLzAkkBnQLxAXEBbAFyBQgBTwH/AcMBGgRN
|
||||
ASsBGgaaAfECAAS8AQkJAAH/Aa0JGQTdAYYB/wFQAvMBGwLyA/ECwgMIAU8B/wFTBRoImgHxEAAC/wGt
|
||||
AfQLGQGGAv8BUAH/AvMBGwLyBvEBTwL/AVMBwwsaAfEQAAT/AbQBrQWLBYYU/wFTBU0BTAFGAyUB9AFC
|
||||
AU0BPgcAAT4DAAEoAwABQAMAATADAAEBAQABAQUAAYABARYAA/+HAAL/DwABAQcAAQE3AAEDBgABAQH/
|
||||
BgABAQH/BgAC/wYAAv8GAAT/BgABgAcAAYAHAAGAPwABgAcAAcEB/wYAAcEB/wYAAv8GAAL/BgAL
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>509, 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>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,345 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Windows.Forms
|
||||
Imports System.IO
|
||||
|
||||
Public Class frmDokManager
|
||||
|
||||
Private Dokumentvorlagen As New DataSet
|
||||
Private Connectionstring As String
|
||||
Dim ssort As Integer
|
||||
|
||||
Dim da As SqlDataAdapter
|
||||
Dim ds As New DataSet
|
||||
Dim co As New SqlConnection
|
||||
Dim cb As SqlCommandBuilder
|
||||
Dim dbkey As Integer = 0
|
||||
|
||||
|
||||
Public Sub New(ByVal Connstring As String)
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Connectionstring = Connstring
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub frmDokSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Load_Tree()
|
||||
Me.Tree.AllowDrop = True
|
||||
End Sub
|
||||
|
||||
Private Sub Load_Tree()
|
||||
Read_Dokumente()
|
||||
Load_Treeview(Dokumentvorlagen, Tree)
|
||||
Me.Tree.ExpandAll()
|
||||
End Sub
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Auswertungen, für welche der User berechtigt ist, auslesen
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function Read_Dokumente() As DataTable
|
||||
Dim conn As New SqlConnection(Me.connectionstring)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "select * from dbo.NativHierarchie"
|
||||
scmCmdToExecute.CommandType = CommandType.Text
|
||||
scmCmdToExecute.Connection = conn
|
||||
Try
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Dokumentvorlagen.Tables.Clear()
|
||||
Dokumentvorlagen.Tables.Add(dtToReturn)
|
||||
Catch ex As Exception
|
||||
Throw New Exception("clsAuswertung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Interne Relation aufbauen und Tree aufbauen
|
||||
''' </summary>
|
||||
''' <param name="oSourceData"></param>
|
||||
''' <param name="tree"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Load_Treeview(ByVal oSourceData As DataSet, ByRef tree As TreeView)
|
||||
If Not (oSourceData Is Nothing) Then
|
||||
Dim oView As DataView = oSourceData.Tables(0).DefaultView
|
||||
Dim oTable As DataTable = oView.Table
|
||||
Dim oDS As DataSet = New DataSet()
|
||||
oDS.Tables.Add(oTable.Copy())
|
||||
|
||||
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
|
||||
oDS.Relations.Add("SelfRefenceRelation", _
|
||||
oDS.Tables(0).Columns("Eintragnr"), _
|
||||
oDS.Tables(0).Columns("Parentid"))
|
||||
End If
|
||||
oTable.Dispose()
|
||||
oTable = Nothing
|
||||
LoadTreeView(oDS, tree)
|
||||
oDS.Dispose()
|
||||
oDS = Nothing
|
||||
End If
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Tree aufbauen
|
||||
''' </summary>
|
||||
''' <param name="oDS"></param>
|
||||
''' <param name="oTreeview"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As TreeView)
|
||||
'Dim oTreeView As TreeView = New TreeView()
|
||||
Dim oDataRow As DataRow
|
||||
For Each oDataRow In oDS.Tables(0).Rows
|
||||
If Not oDataRow.IsNull("Parentid") Then
|
||||
If oDataRow.Item("Parentid") = 0 Then
|
||||
Dim oNode As New TreeNode()
|
||||
oNode.Text = oDataRow("Bezeichnung").ToString()
|
||||
oNode.Tag = oDataRow("pfad").ToString
|
||||
'oNode.ToolTipText = oDataRow("Beschreibung").ToString
|
||||
oNode.ToolTipText = ""
|
||||
oNode.ImageIndex = 0
|
||||
oNode.SelectedImageIndex = 0
|
||||
oNode.StateImageIndex = 0
|
||||
oTreeview.Nodes.Add(oNode)
|
||||
RecursivelyLoadTree(oDataRow, oNode)
|
||||
End If
|
||||
End If
|
||||
Next oDataRow
|
||||
oDS.Dispose()
|
||||
oDS = Nothing
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Child-Nodes hinzufügen
|
||||
''' </summary>
|
||||
''' <param name="oDataRow"></param>
|
||||
''' <param name="oNode"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As TreeNode)
|
||||
Dim oChildRow As DataRow
|
||||
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
|
||||
Dim oChildNode As New TreeNode()
|
||||
oChildNode.Text = oChildRow("Bezeichnung").ToString()
|
||||
oChildNode.Tag = oChildRow("pfad").ToString()
|
||||
If oChildRow("pfad").ToString = "" Then
|
||||
oChildNode.ImageIndex = 0
|
||||
oChildNode.SelectedImageIndex = 0
|
||||
oChildNode.StateImageIndex = 0
|
||||
Else
|
||||
If oChildRow("Pfad").ToString.IndexOf(".doc") > 0 Then
|
||||
oChildNode.ImageIndex = 1
|
||||
oChildNode.SelectedImageIndex = 1
|
||||
oChildNode.StateImageIndex = 1
|
||||
End If
|
||||
If oChildRow("Pfad").ToString.IndexOf(".xls") > 0 Then
|
||||
oChildNode.ImageIndex = 2
|
||||
oChildNode.SelectedImageIndex = 2
|
||||
oChildNode.StateImageIndex = 2
|
||||
End If
|
||||
If oChildRow("Pfad").ToString.IndexOf(".ppt") > 0 Then
|
||||
oChildNode.ImageIndex = 3
|
||||
oChildNode.SelectedImageIndex = 3
|
||||
oChildNode.StateImageIndex = 3
|
||||
End If
|
||||
If oChildRow("Pfad").ToString.IndexOf(".acc") > 0 Then
|
||||
oChildNode.ImageIndex = 4
|
||||
oChildNode.SelectedImageIndex = 4
|
||||
oChildNode.StateImageIndex = 4
|
||||
End If
|
||||
If oChildRow("Pfad").ToString.IndexOf(".vs") > 0 Then
|
||||
oChildNode.ImageIndex = 5
|
||||
oChildNode.SelectedImageIndex = 5
|
||||
oChildNode.StateImageIndex = 5
|
||||
End If
|
||||
If oChildRow("Pfad").ToString.IndexOf(".mpp") > 0 Then
|
||||
oChildNode.ImageIndex = 6
|
||||
oChildNode.SelectedImageIndex = 6
|
||||
oChildNode.StateImageIndex = 6
|
||||
End If
|
||||
|
||||
End If
|
||||
'oChildNode.ToolTipText = oChildRow("Beschreibung").ToString
|
||||
oNode.Nodes.Add(oChildNode)
|
||||
RecursivelyLoadTree(oChildRow, oChildNode)
|
||||
Next oChildRow
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Tree_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tree.DoubleClick
|
||||
Try
|
||||
Dim s As String
|
||||
If Me.Tree.SelectedNode.Tag < 0 Then Exit Sub
|
||||
For Each r As DataRow In Dokumentvorlagen.Tables(0).Rows
|
||||
If r.Item("Dokumentnr") = Me.Tree.SelectedNode.Tag Then
|
||||
s = r.Item("Pfad")
|
||||
If s.IndexOf(".doc") > 0 Then
|
||||
Dim w As New Microsoft.Office.Interop.Word.Application
|
||||
w.Documents.Add(r.Item("pfad").ToString)
|
||||
w.Visible = True
|
||||
w = Nothing
|
||||
End If
|
||||
If s.IndexOf(".xls") > 0 Then
|
||||
Dim xl As New Microsoft.Office.Interop.Excel.Application
|
||||
xl.Workbooks.Add(r.Item("Pfad").ToString)
|
||||
xl.Visible = True
|
||||
xl = Nothing
|
||||
End If
|
||||
If s.IndexOf(".ppt") > 0 Then
|
||||
Dim pp As New Microsoft.Office.Interop.PowerPoint.Application
|
||||
pp.Presentations.Open(FileName:=r.Item("Pfad"), Untitled:=True)
|
||||
pp.Visible = Microsoft.Office.Core.MsoTriState.msoTrue
|
||||
pp = Nothing
|
||||
End If
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub TreeView1_ItemDrag(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles Tree.ItemDrag
|
||||
DoDragDrop(e.Item, DragDropEffects.Move)
|
||||
End Sub
|
||||
|
||||
Public Sub TreeView1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Tree.DragEnter
|
||||
e.Effect = DragDropEffects.Move
|
||||
End Sub
|
||||
Public Sub TreeView1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Tree.DragDrop
|
||||
Dim NewNode As TreeNode
|
||||
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) Then
|
||||
Dim pt As System.Drawing.Point
|
||||
Dim DestinationNode As TreeNode
|
||||
pt = Tree.PointToClient(New System.Drawing.Point(e.X, e.Y))
|
||||
DestinationNode = Tree.GetNodeAt(pt)
|
||||
NewNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
|
||||
If Not DestinationNode.Equals(NewNode) Then
|
||||
DestinationNode.Nodes.Add(CType(NewNode.Clone, TreeNode))
|
||||
DestinationNode.Expand()
|
||||
NewNode.Remove()
|
||||
End If
|
||||
End If
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
Dim filePaths As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
|
||||
For Each fileLoc As String In filePaths
|
||||
If File.Exists(fileLoc) Then
|
||||
Dim pt As System.Drawing.Point
|
||||
Dim DestinationNode As TreeNode
|
||||
pt = Tree.PointToClient(New System.Drawing.Point(e.X, e.Y))
|
||||
DestinationNode = Tree.GetNodeAt(pt)
|
||||
NewNode = New TreeNode(fileLoc)
|
||||
NewNode.Tag = fileLoc
|
||||
If Not DestinationNode.Equals(NewNode) Then
|
||||
DestinationNode.Nodes.Add(CType(NewNode.Clone, TreeNode))
|
||||
DestinationNode.Expand()
|
||||
NewNode.Remove()
|
||||
End If
|
||||
End If
|
||||
Next fileLoc
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub NeuerEintragToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuerEintragToolStripMenuItem.Click
|
||||
Dim a As String
|
||||
Dim tn As New TreeNode()
|
||||
Dim tnnew As New TreeNode()
|
||||
a = InputBox("Bezeichnung des neuen Eintrags:")
|
||||
If a = "" Then Exit Sub
|
||||
tn = Me.Tree.SelectedNode
|
||||
tnnew = tn.Nodes.Add(a)
|
||||
With tnnew
|
||||
.Tag() = -1
|
||||
.ImageIndex() = 0
|
||||
.SelectedImageIndex() = 0
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub EintragLöschenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EintragLöschenToolStripMenuItem.Click
|
||||
Dim tn As New TreeNode()
|
||||
Dim tnp As New TreeNode()
|
||||
Dim i As Integer
|
||||
tn = Tree.SelectedNode
|
||||
tnp = tn.Parent
|
||||
If Not (Tree.SelectedNode Is Nothing) Then
|
||||
tn.Remove()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub EintragUmbenennenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EintragUmbenennenToolStripMenuItem.Click
|
||||
Dim a As String
|
||||
a = InputBox("Neuer Name:")
|
||||
If a = "" Then Exit Sub
|
||||
Tree.SelectedNode.Text = a
|
||||
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 ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
|
||||
Load_From_Db()
|
||||
dbkey = 0
|
||||
ds.Tables(0).Rows.Clear()
|
||||
da.Update(ds, "vorlagen")
|
||||
Save_Data()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Load_From_Db()
|
||||
Try
|
||||
da = New SqlDataAdapter("Select * from NativHierarchie", Connectionstring)
|
||||
cb = New SqlCommandBuilder(da)
|
||||
da.Fill(ds, "vorlagen")
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub Save_Data()
|
||||
ListNodeCollectionRecursive(Me.Tree.Nodes(0), 0)
|
||||
End Sub
|
||||
Private Sub ListNodeCollectionRecursive(ByVal tnParent As TreeNode, ByRef iSort As Integer)
|
||||
Dim tn As TreeNode
|
||||
If tnParent.GetNodeCount(False) > 0 Then
|
||||
tn = tnParent.Nodes(0)
|
||||
Else
|
||||
tn = Nothing
|
||||
End If
|
||||
ssort = 0
|
||||
Do Until tn Is Nothing
|
||||
iSort = iSort + 1
|
||||
ListNodeSave(tn, iSort)
|
||||
If tn.GetNodeCount(False) > 0 Then
|
||||
Call ListNodeCollectionRecursive(tn, iSort)
|
||||
End If
|
||||
tn = tn.NextNode
|
||||
Loop
|
||||
End Sub
|
||||
|
||||
Private Sub ListNodeSave(ByVal tn As TreeNode, ByRef isort As Integer)
|
||||
Dim r As DataRow
|
||||
r = ds.Tables(0).NewRow
|
||||
r.Item("Eintragnr") = dbkey
|
||||
r.Item("Bezeichnung") = tn.Text
|
||||
r.Item("Parentid") = tn.Parent.Tag
|
||||
r.Item("Erstellt_am") = Now
|
||||
r.Item("Mutiert_am") = Now
|
||||
r.Item("Mutierer") = 1
|
||||
r.Item("Aktiv") = True
|
||||
r.Item("Pfad") = tn.Tag
|
||||
ds.Tables(0).Rows.Add(r)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Generated
+125
@@ -0,0 +1,125 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmDokManager_sik
|
||||
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(frmDokManager_sik))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip
|
||||
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton
|
||||
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(865, 24)
|
||||
Me.MenuStrip1.TabIndex = 0
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'DateiToolStripMenuItem
|
||||
'
|
||||
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem})
|
||||
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||
'
|
||||
'SchliessenToolStripMenuItem
|
||||
'
|
||||
Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
|
||||
Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
|
||||
Me.SchliessenToolStripMenuItem.Text = "&Schliessen"
|
||||
'
|
||||
'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(865, 25)
|
||||
Me.ToolStrip1.TabIndex = 1
|
||||
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 = "ToolStripButton1"
|
||||
'
|
||||
'C1Daten
|
||||
'
|
||||
Me.C1Daten.AllowAddNew = True
|
||||
Me.C1Daten.AllowDelete = True
|
||||
Me.C1Daten.AlternatingRows = True
|
||||
Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
|
||||
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.C1Daten.FilterBar = True
|
||||
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
|
||||
Me.C1Daten.Location = New System.Drawing.Point(0, 49)
|
||||
Me.C1Daten.Name = "C1Daten"
|
||||
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.C1Daten.PreviewInfo.ZoomFactor = 75
|
||||
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.C1Daten.Size = New System.Drawing.Size(865, 373)
|
||||
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.C1Daten.TabIndex = 5
|
||||
Me.C1Daten.Text = "C1TrueDBGrid1"
|
||||
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
|
||||
'
|
||||
'frmDokManager
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(865, 422)
|
||||
Me.Controls.Add(Me.C1Daten)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.MainMenuStrip = Me.MenuStrip1
|
||||
Me.Name = "frmDokManager"
|
||||
Me.Text = "Nativ-Dokumentvorlagen"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
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 SchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
End Class
|
||||
@@ -0,0 +1,179 @@
|
||||
<?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="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>132, 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>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1Daten.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="C1Daten.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="C1Daten.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Style15{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style3{}OddRow{BackColor:224, 224, 224;}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}EvenRow{BackColor:White;}Style11{}Style16{}Style13{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Heading{Wrap:True;BackColor:Control;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;AlignVert:Center;}Style10{AlignHorz:Near;}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" 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="Style14" /><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, 863, 371</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="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 863, 371</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,72 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class frmDokManager_sik
|
||||
|
||||
Dim Connectionstring As String
|
||||
Dim da As SqlDataAdapter
|
||||
Dim ds As New DataSet
|
||||
Dim co As New SqlConnection
|
||||
Dim cb As SqlCommandBuilder
|
||||
|
||||
Public Sub New(ByVal connstring As String)
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Me.Connectionstring = connstring
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
Private Sub SchliessenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SchliessenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
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 frmDokManager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
da = New SqlDataAdapter("Select * from nativvorlage", Connectionstring)
|
||||
cb = New SqlCommandBuilder(da)
|
||||
da.Fill(ds, "vorlagen")
|
||||
Me.C1Daten.DataSource = ds.Tables(0)
|
||||
Me.C1Daten.DataMember = ds.Tables(0).TableName
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmDomainEditor_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
||||
If Me.ds.HasChanges Then
|
||||
Dim msgboxres As MsgBoxResult
|
||||
msgboxres = MsgBox("Daten wurde verändern. Sollen die Änderungen gespeichert werden?", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Question)
|
||||
If msgboxres = MsgBoxResult.Cancel Then
|
||||
e.Cancel = True
|
||||
Exit Sub
|
||||
End If
|
||||
If msgboxres = MsgBoxResult.Yes Then
|
||||
Try
|
||||
da.Update(ds, "vorlagen")
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End If
|
||||
End If
|
||||
Try
|
||||
Me.co.Close()
|
||||
da.Dispose()
|
||||
co.Dispose()
|
||||
cb.Dispose()
|
||||
ds.Dispose()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Generated
+103
@@ -0,0 +1,103 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmDokSelect
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDokSelect))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.Tree = New System.Windows.Forms.TreeView
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(279, 24)
|
||||
Me.MenuStrip1.TabIndex = 0
|
||||
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"
|
||||
'
|
||||
'Tree
|
||||
'
|
||||
Me.Tree.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Tree.ImageIndex = 0
|
||||
Me.Tree.ImageList = Me.ImageList1
|
||||
Me.Tree.Location = New System.Drawing.Point(0, 24)
|
||||
Me.Tree.Name = "Tree"
|
||||
Me.Tree.SelectedImageIndex = 0
|
||||
Me.Tree.ShowRootLines = False
|
||||
Me.Tree.Size = New System.Drawing.Size(279, 497)
|
||||
Me.Tree.TabIndex = 1
|
||||
'
|
||||
'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, "Folder-481.png")
|
||||
Me.ImageList1.Images.SetKeyName(1, "Word.png")
|
||||
Me.ImageList1.Images.SetKeyName(2, "Excel.png")
|
||||
Me.ImageList1.Images.SetKeyName(3, "PowerPoint.png")
|
||||
Me.ImageList1.Images.SetKeyName(4, "Access.png")
|
||||
Me.ImageList1.Images.SetKeyName(5, "Visio.png")
|
||||
Me.ImageList1.Images.SetKeyName(6, "Project.png")
|
||||
Me.ImageList1.Images.SetKeyName(7, "Folder-48.png")
|
||||
'
|
||||
'frmDokSelect
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(279, 521)
|
||||
Me.Controls.Add(Me.Tree)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.MainMenuStrip = Me.MenuStrip1
|
||||
Me.Name = "frmDokSelect"
|
||||
Me.Text = "Auswahl Dokumentvorlagen"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.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 Tree As System.Windows.Forms.TreeView
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
End Class
|
||||
@@ -0,0 +1,194 @@
|
||||
<?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="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>132, 17</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABG
|
||||
DgAAAk1TRnQBSQFMAgEBCAEAARABAAEQAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
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//8A/wD/AP8ABQABYgK9
|
||||
AfQC/wG2ApMGjgFiAacN/wH0AbUBUA3/AfMBHBAAAWIBvQG3Ab0B8wH/AZMBvQKOBYgBYgGtBv8BtQHd
|
||||
Af8BGQP/Aa0BtQFQDf8BUAEcAfQOHAH/AWgBvQK3Ab0BtgL/AWMEaQKIAWIBrQEJAf8B3QEJCf8BCQG1
|
||||
AVABeAb/AfYBeAGZA/8BGwEcAfQNOAFZAQABaAG9BLcBjgb/AZMBQAE/Aa0BCQL/AQkG/wH0A/8BtQFQ
|
||||
AXgG/wJ4AQgE/wEcAf8OWQEAAWgBvQI/ArcBjgGTAj4F/wFAAa0BCQP/Aa0BpgGGA/8BzwP/AbUBUAF4
|
||||
Af8B8wFJAfMH/wFWAf8BHAH/DlkB9gFpAb0BaQE/AbYBtwKOAj4G/wGtAgkC/wOmAv8B9AHPAbQC/wH0
|
||||
AVACeAH0AUkB8wT/AfYBVwFWAfYD/wFZCHoBmgF6A1kBmgFpAr0GPwHwBv8BrQIJAv8BhgGLAaYI/wFQ
|
||||
AngB9AFJAfMC/wH2AQgBGwb/AVkEegGaBqABwwF6AVkBiAHzAb0CYwFAAz8E/wHxAb0B/wGtARkBCQH/
|
||||
AbUBhgH/AYYBrQT/AfQBrQG1AVABCAF4AfMESQX/AZgBVgEcAf8IoAbDAaABiAHzAb0BiAFjAb0BtwI/
|
||||
BP8CjgH/Aa0BGQLdAq0B/wKGAv8EtAG1AVABCAKZAVABcwFyAkkB/wEbAVADVwEcAf8BwwOgCsMB9gGI
|
||||
AvMBvQFjAY4BtwFAAbYBtwX/AT4BrQIZAd0CrQH/AbQBhgEJBLQCtQFQAggBmQFQAfMB/wFyAUkBmQNX
|
||||
AngBHAH/AcMBoAKaCHoBWQEbAfMBiAH0AfMB3gRjAb0GtwFiAa0CGQHdAc8DCQGnAbQGtQFQAggBmQFQ
|
||||
ARsBmQFQAUkBnwV4ARwB/wfDBaABegIAAYgC9AHzARgDYwe9AWIBrQIZAtUBGQIJAa0BhgUJAbUBUAII
|
||||
BVABSQaZARwB/wbDCQAE9AHzAmMBjge9AWIBCQIZAtUBGQHdAq0BhgHdBAkBtQHzAggFUAeZARwB/wL2
|
||||
BMMJAAH/AY4D9ALzAd4HvQFiAf8BtQIZAd0CGQMJBd0BtQH/AVYGCAaZAQgBHBAAAv8BjgH/A/QE8wPe
|
||||
AfMBaAL/AbQMGQG1Av8BUAHzCwgBHBAAE/8B9QutAQkQ/yAAAYYO8QGGAU8N/wHzAUgGJQkgAfEBAAEH
|
||||
De8B8QGGBP8C8wT/AgkB/wGLAYYBTwT/AfMC/wHyAf8BmAP/AXEBSAElApoBegX/AfYBdQP/AU0B8QEA
|
||||
D7QBhgEJB/8B8gX/AYYBTwEIBf8BCAL/AfECcgL/AUgBJQGaBf8BGwG9Af8BlAP/AUcB8QEAD7QBhgEJ
|
||||
Cf8C9AL/AYYBTwEIBv8BCAGYAv8B8gFPAf8BSAElAZoG/wGUAfQF/wHxAf8BtAK1DLQBhgEJAfQB/wKm
|
||||
Av8CpgX/AYsBTwEIAVYCUAFPAf8BCAFPAUkBCAGXAfQC/wFyASUBmgL/ASUBRgP/AVMCTQP/AfEB/wG1
|
||||
BrsItQGLAd0BCQH/AawBxwHzAf8CpgEJBf8BTwIIAVACTwH/AVABTwP/AZcBcQHxAf8BTAKaAf8BJQFG
|
||||
Av8BdQFTAXUB/wEbAv8B8AH/DLsBtQK7AYsB3QEJAf8CrAGtAf8CpgGGBf8BTwIIAXEBTwFxAlYBmAHx
|
||||
AZgE/wG8AU0CmgH/ASUBTAL/AXUCTQGaBf8PuwGLARkBCQG0A6wB/wHHAacBpgL/AbQBzwGGAU8B8QEI
|
||||
Af8CSAFXAVYE/wHzAU8BlwFJAU0BGgGaAf8EJQb/AUcB8QH0BAkLuwGLAhkCrAG0AawBtAGsAd0BpgG7
|
||||
A7QBhgFPAfIB8QHCAfQCVwP/AXIElwFJAU0BGgKaAysCJQL/Ak0CdQHxAfIHCQi7AYsCGQKsAf8DrAG1
|
||||
AaYBCQO0AYYBUALyAfECVgFQAXEBeAKYAZ0DlwFJAU0CGgGaAk0B/wGUASUBvQV1AfEB8AkJBrsBrQIZ
|
||||
AbIBswEJAqwBrQG1AaYBhgO1AYYBUAHzAfIBCAJQAmwB/wEIBZgBSQFNAxoBTQFTAb0BdQElARoFdQHx
|
||||
AQADtQu0AfEBtAIZAbICGQKsAQkBrQKmAwkBhgFQAfMBGwJPAfQBCAJsBggBSQF1AhoBdQNTAUwBJQaa
|
||||
AfECAAW7CQAB/wH0AbMBsgH0ARkBswGsAfMBrQKmARkCCQGGAvMCSQGdAvEBcQFsAXIFCAFPAf8BwwEa
|
||||
BE0BKwEaBpoB8QIABLwBCQkAAf8BrQkZBN0BhgH/AVAC8wEbAvID8QLCAwgBTwH/AVMFGgiaAfEQAAL/
|
||||
Aa0B9AsZAYYC/wFQAf8C8wEbAvIG8QFPAv8BUwHDCxoB8RAABP8BtAGtBYsFhhT/AVMFTQFMAUYDJQH0
|
||||
AUIBTQE+BwABPgMAASgDAAFAAwABMAMAAQEBAAEBBQABgAEBFgAD/4cAAv8PAAEBBwABATcAAQMGAAEB
|
||||
Af8GAAEBAf8GAAL/BgAC/wYABP8GAAGABwABgAcAAYA/AAGABwABwQH/BgABwQH/BgAC/wYAAv8GAAs=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,201 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class frmDokSelect
|
||||
|
||||
Private Dokumentvorlagen As New DataSet
|
||||
Private Connectionstring As String
|
||||
Public Sub New(ByVal Connstring As String)
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
Connectionstring = Connstring
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub frmDokSelect_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Load_Tree()
|
||||
End Sub
|
||||
|
||||
Private Sub Load_Tree()
|
||||
Read_Dokumente()
|
||||
Load_Treeview(Dokumentvorlagen, Tree)
|
||||
Me.Tree.ExpandAll()
|
||||
End Sub
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Auswertungen, für welche der User berechtigt ist, auslesen
|
||||
''' </summary>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function Read_Dokumente() As DataTable
|
||||
Dim conn As New SqlConnection(Me.connectionstring)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_get_nativ_dokumente"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn
|
||||
Try
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Dokumentvorlagen.Tables.Clear()
|
||||
Dokumentvorlagen.Tables.Add(dtToReturn)
|
||||
Catch ex As Exception
|
||||
Throw New Exception("clsAuswertung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
''' <summary>
|
||||
''' Interne Relation aufbauen und Tree aufbauen
|
||||
''' </summary>
|
||||
''' <param name="oSourceData"></param>
|
||||
''' <param name="tree"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub Load_Treeview(ByVal oSourceData As DataSet, ByRef tree As TreeView)
|
||||
If Not (oSourceData Is Nothing) Then
|
||||
Dim oView As DataView = oSourceData.Tables(0).DefaultView
|
||||
Dim oTable As DataTable = oView.Table
|
||||
Dim oDS As DataSet = New DataSet()
|
||||
oDS.Tables.Add(oTable.Copy())
|
||||
|
||||
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
|
||||
oDS.Relations.Add("SelfRefenceRelation", _
|
||||
oDS.Tables(0).Columns("id"), _
|
||||
oDS.Tables(0).Columns("Parentid"))
|
||||
End If
|
||||
oTable.Dispose()
|
||||
oTable = Nothing
|
||||
LoadTreeView(oDS, tree)
|
||||
oDS.Dispose()
|
||||
oDS = Nothing
|
||||
End If
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Tree aufbauen
|
||||
''' </summary>
|
||||
''' <param name="oDS"></param>
|
||||
''' <param name="oTreeview"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As TreeView)
|
||||
'Dim oTreeView As TreeView = New TreeView()
|
||||
Dim oDataRow As DataRow
|
||||
For Each oDataRow In oDS.Tables(0).Rows
|
||||
If Not oDataRow.IsNull("Parentid") Then
|
||||
If oDataRow.Item("Parentid") = 0 Then
|
||||
Dim oNode As New TreeNode()
|
||||
oNode.Text = oDataRow("Bezeichnung").ToString()
|
||||
oNode.Tag = oDataRow("dokumentnr").ToString
|
||||
oNode.ToolTipText = oDataRow("Beschreibung").ToString
|
||||
oNode.ImageIndex = 0
|
||||
oNode.SelectedImageIndex = 0
|
||||
oNode.StateImageIndex = 0
|
||||
oTreeview.Nodes.Add(oNode)
|
||||
RecursivelyLoadTree(oDataRow, oNode)
|
||||
End If
|
||||
End If
|
||||
Next oDataRow
|
||||
oDS.Dispose()
|
||||
oDS = Nothing
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Child-Nodes hinzufügen
|
||||
''' </summary>
|
||||
''' <param name="oDataRow"></param>
|
||||
''' <param name="oNode"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As TreeNode)
|
||||
Dim oChildRow As DataRow
|
||||
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
|
||||
Dim oChildNode As New TreeNode()
|
||||
oChildNode.Text = oChildRow("Bezeichnung").ToString()
|
||||
oChildNode.Tag = oChildRow("dokumentnr").ToString()
|
||||
If oChildRow("dokumentnr") < 0 Then
|
||||
oChildNode.ImageIndex = 0
|
||||
oChildNode.SelectedImageIndex = 0
|
||||
oChildNode.StateImageIndex = 0
|
||||
oChildNode.ToolTipText = oChildRow("Beschreibung").ToString
|
||||
Else
|
||||
If oChildRow("Pfad").ToString.IndexOf(".doc") > 0 Then
|
||||
oChildNode.ImageIndex = 1
|
||||
oChildNode.SelectedImageIndex = 1
|
||||
oChildNode.StateImageIndex = 1
|
||||
End If
|
||||
If oChildRow("Pfad").ToString.IndexOf(".xls") > 0 Then
|
||||
oChildNode.ImageIndex = 2
|
||||
oChildNode.SelectedImageIndex = 2
|
||||
oChildNode.StateImageIndex = 2
|
||||
End If
|
||||
If oChildRow("Pfad").ToString.IndexOf(".ppt") > 0 Then
|
||||
oChildNode.ImageIndex = 3
|
||||
oChildNode.SelectedImageIndex = 3
|
||||
oChildNode.StateImageIndex = 3
|
||||
End If
|
||||
If oChildRow("Pfad").ToString.IndexOf(".acc") > 0 Then
|
||||
oChildNode.ImageIndex = 4
|
||||
oChildNode.SelectedImageIndex = 4
|
||||
oChildNode.StateImageIndex = 4
|
||||
End If
|
||||
If oChildRow("Pfad").ToString.IndexOf(".vs") > 0 Then
|
||||
oChildNode.ImageIndex = 5
|
||||
oChildNode.SelectedImageIndex = 5
|
||||
oChildNode.StateImageIndex = 5
|
||||
End If
|
||||
If oChildRow("Pfad").ToString.IndexOf(".mpp") > 0 Then
|
||||
oChildNode.ImageIndex = 6
|
||||
oChildNode.SelectedImageIndex = 6
|
||||
oChildNode.StateImageIndex = 6
|
||||
End If
|
||||
|
||||
End If
|
||||
oChildNode.ToolTipText = oChildRow("Beschreibung").ToString
|
||||
oNode.Nodes.Add(oChildNode)
|
||||
RecursivelyLoadTree(oChildRow, oChildNode)
|
||||
Next oChildRow
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Tree_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tree.DoubleClick
|
||||
Try
|
||||
Dim s As String
|
||||
If Me.Tree.SelectedNode.Tag < 0 Then Exit Sub
|
||||
For Each r As DataRow In Dokumentvorlagen.Tables(0).Rows
|
||||
If r.Item("Dokumentnr") = Me.Tree.SelectedNode.Tag Then
|
||||
s = r.Item("Pfad")
|
||||
If s.IndexOf(".doc") > 0 Then
|
||||
Dim w As New Microsoft.Office.Interop.Word.Application
|
||||
w.Documents.Add(r.Item("pfad").ToString)
|
||||
w.Visible = True
|
||||
w = Nothing
|
||||
End If
|
||||
If s.IndexOf(".xls") > 0 Then
|
||||
Dim xl As New Microsoft.Office.Interop.Excel.Application
|
||||
xl.Workbooks.Add(r.Item("Pfad").ToString)
|
||||
xl.Visible = True
|
||||
xl = Nothing
|
||||
End If
|
||||
If s.IndexOf(".ppt") > 0 Then
|
||||
Dim pp As New Microsoft.Office.Interop.PowerPoint.Application
|
||||
pp.Presentations.Open(FileName:=r.Item("Pfad"), Untitled:=True)
|
||||
pp.Visible = Microsoft.Office.Core.MsoTriState.msoTrue
|
||||
pp = Nothing
|
||||
End If
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,14 @@
|
||||
E:\Software-Projekte\VS2008\EDOKA\Client\EDOKA\bin\clsNativ.dll
|
||||
E:\Software-Projekte\VS2008\EDOKA\Client\EDOKA\bin\clsNativ.pdb
|
||||
E:\Software-Projekte\VS2008\EDOKA\Client\EDOKA\bin\clsNativ.xml
|
||||
E:\Software-Projekte\VS2008\EDOKA\Client\clsNativ\obj\Debug\ResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\VS2008\EDOKA\Client\clsNativ\obj\Debug\clsNativ.Resources.resources
|
||||
E:\Software-Projekte\VS2008\EDOKA\Client\clsNativ\obj\Debug\clsNativ.vbproj.GenerateResource.Cache
|
||||
E:\Software-Projekte\VS2008\EDOKA\Client\clsNativ\obj\Debug\clsNativ.dll
|
||||
E:\Software-Projekte\VS2008\EDOKA\Client\clsNativ\obj\Debug\clsNativ.xml
|
||||
E:\Software-Projekte\VS2008\EDOKA\Client\clsNativ\obj\Debug\clsNativ.pdb
|
||||
E:\Software-Projekte\VS2008\EDOKA\Client\clsNativ\obj\Debug\clsNativ.frmDokSelect.resources
|
||||
E:\Software-Projekte\VS2008\EDOKA\Client\clsNativ\obj\Debug\clsNativ.vbproj.ResolveComReference.cache
|
||||
E:\Software-Projekte\VS2008\EDOKA\Client\clsNativ\obj\Debug\clsNativ.frmDokManager.resources
|
||||
E:\Software-Projekte\VS2008\EDOKA\Client\clsNativ\obj\Debug\clsNativ.dll.licenses
|
||||
E:\Software-Projekte\VS2008\EDOKA\Client\clsNativ\obj\Debug\clsNativ.frmDokManager_sik.resources
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,65 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
clsNativ
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="M:clsNativ.frmDokSelect.Read_Dokumente">
|
||||
<summary>
|
||||
Auswertungen, für welche der User berechtigt ist, auslesen
|
||||
</summary>
|
||||
<returns></returns>
|
||||
<remarks></remarks>
|
||||
</member><member name="M:clsNativ.frmDokSelect.Load_Treeview(System.Data.DataSet,System.Windows.Forms.TreeView@)">
|
||||
<summary>
|
||||
Interne Relation aufbauen und Tree aufbauen
|
||||
</summary>
|
||||
<param name="oSourceData"></param>
|
||||
<param name="tree"></param>
|
||||
<remarks></remarks>
|
||||
</member><member name="M:clsNativ.frmDokSelect.LoadTreeView(System.Data.DataSet,System.Windows.Forms.TreeView@)">
|
||||
<summary>
|
||||
Tree aufbauen
|
||||
</summary>
|
||||
<param name="oDS"></param>
|
||||
<param name="oTreeview"></param>
|
||||
<remarks></remarks>
|
||||
</member><member name="M:clsNativ.frmDokSelect.RecursivelyLoadTree(System.Data.DataRow,System.Windows.Forms.TreeNode@)">
|
||||
<summary>
|
||||
Child-Nodes hinzufügen
|
||||
</summary>
|
||||
<param name="oDataRow"></param>
|
||||
<param name="oNode"></param>
|
||||
<remarks></remarks>
|
||||
</member><member name="M:clsNativ.frmDokManager.Read_Dokumente">
|
||||
<summary>
|
||||
Auswertungen, für welche der User berechtigt ist, auslesen
|
||||
</summary>
|
||||
<returns></returns>
|
||||
<remarks></remarks>
|
||||
</member><member name="M:clsNativ.frmDokManager.Load_Treeview(System.Data.DataSet,System.Windows.Forms.TreeView@)">
|
||||
<summary>
|
||||
Interne Relation aufbauen und Tree aufbauen
|
||||
</summary>
|
||||
<param name="oSourceData"></param>
|
||||
<param name="tree"></param>
|
||||
<remarks></remarks>
|
||||
</member><member name="M:clsNativ.frmDokManager.LoadTreeView(System.Data.DataSet,System.Windows.Forms.TreeView@)">
|
||||
<summary>
|
||||
Tree aufbauen
|
||||
</summary>
|
||||
<param name="oDS"></param>
|
||||
<param name="oTreeview"></param>
|
||||
<remarks></remarks>
|
||||
</member><member name="M:clsNativ.frmDokManager.RecursivelyLoadTree(System.Data.DataRow,System.Windows.Forms.TreeNode@)">
|
||||
<summary>
|
||||
Child-Nodes hinzufügen
|
||||
</summary>
|
||||
<param name="oDataRow"></param>
|
||||
<param name="oNode"></param>
|
||||
<remarks></remarks>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
Binary file not shown.
Reference in New Issue
Block a user