Initial
This commit is contained in:
@@ -0,0 +1,279 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>260, 17</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>388, 17</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>485, 17</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>125, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>170, 165</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>325, 165</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 165</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>477, 91</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>717, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>322, 91</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>170, 91</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 91</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>287, 54</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>852, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>582, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>FrmFunktionsgruppe_Reportgruppe</value>
|
||||
</data>
|
||||
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>205</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,563 @@
|
||||
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
Public Class FrmFunktionsgruppe_Reportgruppe
|
||||
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=tgtsqledokabssf;initial catalog=edoka;integrated security=SSPI;persis" & _
|
||||
"t security info=False;workstation id=TG602643;packet size=4096"
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "report", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("reportNr", "reportNr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("reportfile", "reportfile"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_funktionsgruppe_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_barcodeetiketten", System.Data.SqlDbType.Bit, 1))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_edokapartner", System.Data.SqlDbType.Bit, 1))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionszuweisung", System.Data.SqlDbType.Bit, 1))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zugehoerigkeit", System.Data.SqlDbType.VarChar, 255))
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_report_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportNr", System.Data.SqlDbType.Int, 4, "reportNr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportfile", System.Data.SqlDbType.VarBinary, 2147483647, "reportfile"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_funktionsgruppe_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_report_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportNr", System.Data.SqlDbType.Int, 4, "reportNr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportfile", System.Data.SqlDbType.VarBinary, 2147483647, "reportfile"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "reportfeldregel", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("reportfeldregelNr", "reportfeldregelNr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("feldtypNr", "feldtypNr"), New System.Data.Common.DataColumnMapping("feldsteuerungNr", "feldsteuerungNr"), New System.Data.Common.DataColumnMapping("datenherkunft", "datenherkunft"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_reportfeldregel_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportfeldregelNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportfeldregelNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datenherkunft", System.Data.SqlDbType.VarChar, 2048, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datenherkunft", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_feldsteuerungNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldsteuerungNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_feldtypNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldtypNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_reportfeldregel_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportfeldregelNr", System.Data.SqlDbType.Int, 4, "reportfeldregelNr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldtypNr", System.Data.SqlDbType.Int, 4, "feldtypNr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldsteuerungNr", System.Data.SqlDbType.Int, 4, "feldsteuerungNr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datenherkunft", System.Data.SqlDbType.VarChar, 2048, "datenherkunft"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_reportgruppe_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pv_reportfeldregel_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportfeldregelNr", System.Data.SqlDbType.Int, 4, "reportfeldregelNr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldtypNr", System.Data.SqlDbType.Int, 4, "feldtypNr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldsteuerungNr", System.Data.SqlDbType.Int, 4, "feldsteuerungNr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datenherkunft", System.Data.SqlDbType.VarChar, 2048, "datenherkunft"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportfeldregelNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportfeldregelNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datenherkunft", System.Data.SqlDbType.VarChar, 2048, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datenherkunft", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_feldsteuerungNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldsteuerungNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_feldtypNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldtypNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "funktionsgruppe_reportgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("FunktionsgruppeReportgruppeNr", "FunktionsgruppeReportgruppeNr"), New System.Data.Common.DataColumnMapping("funktionsgruppeNr", "funktionsgruppeNr"), New System.Data.Common.DataColumnMapping("reportgruppeNr", "reportgruppeNr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_Funktionsgruppe_Reportgruppe_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand3
|
||||
'
|
||||
Me.SqlInsertCommand3.CommandText = "[pv_Funktionsgruppe_Reportgruppe_insert]"
|
||||
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@FunktionsgruppeReportgruppeNr", System.Data.SqlDbType.Int, 4, "FunktionsgruppeReportgruppeNr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppeNr", System.Data.SqlDbType.Int, 4, "funktionsgruppeNr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportgruppeNr", System.Data.SqlDbType.Int, 4, "reportgruppeNr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand3
|
||||
'
|
||||
Me.SqlUpdateCommand3.CommandText = "[pv_Funktionsgruppe_Reportgruppe_update]"
|
||||
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@FunktionsgruppeReportgruppeNr", System.Data.SqlDbType.Int, 4, "FunktionsgruppeReportgruppeNr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppeNr", System.Data.SqlDbType.Int, 4, "funktionsgruppeNr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportgruppeNr", System.Data.SqlDbType.Int, 4, "reportgruppeNr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_FunktionsgruppeReportgruppeNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FunktionsgruppeReportgruppeNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppeNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppeNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportgruppeNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportgruppeNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand3
|
||||
'
|
||||
Me.SqlDeleteCommand3.CommandText = "[pv_Funktionsgruppe_Reportgruppe_delete]"
|
||||
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_FunktionsgruppeReportgruppeNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FunktionsgruppeReportgruppeNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppeNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppeNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportgruppeNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportgruppeNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'FrmFunktionsgruppe_Reportgruppe
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(104, -20)
|
||||
Me.Name = "FrmFunktionsgruppe_Reportgruppe"
|
||||
Me.Text = ""
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
'frmRolle_SysadminFunktion_Load
|
||||
Private Sub FrmFunktionsgruppe_Reportgruppe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableNameLeft = "funktionsgruppe"
|
||||
Me.TableNameRight = "reportgruppe"
|
||||
Me.TableNameBottom = "funktionsgruppe_reportgruppe"
|
||||
LoadData()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim t As DataTable
|
||||
Try
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
Me.TBLeft.DataMember = Me.DataSet1.Tables(0).TableName
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
Me.TBRight.DataMember = Me.DataSet2.Tables(0).TableName
|
||||
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
|
||||
UpdateGrpText(5035, 5027, 5049)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
Me.SuspendLayout()
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
Me.ResumeLayout(True)
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
Me.SuspendLayout()
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
Me.ResumeLayout(True)
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
Me.TBBottom.DataMember = Me.DataSet3.Tables(0).TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim CurrentSel As Boolean
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsFunktionsgruppe_reportgruppe()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim key As Long
|
||||
CurrentSel = False
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
CurrentSel = True
|
||||
ic = ic + 1
|
||||
End If
|
||||
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
If Me.FokusLeft.Checked Then
|
||||
'vdata.iReportnr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
vdata.iFunktionsgruppeNr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If CurrentSel Then
|
||||
'vdata.iReportfeldregelnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
vdata.iReportgruppeNr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
'vdata.iReportfeldregelnr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
vdata.iReportgruppeNr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If CurrentSel Then
|
||||
'vdata.iReportnr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
vdata.iFunktionsgruppeNr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
Else
|
||||
'vdata.iReportnr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
vdata.iFunktionsgruppeNr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
'vdata.iReportfeldregelnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
vdata.iReportgruppeNr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
'vdata.iReihenfolge = New SqlInt32(CType(1, Int32))
|
||||
'vdata.iReihenfolge = New SqlInt32(CType(1, Int32))
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("funktionsgruppe_reportgruppe")
|
||||
'vdata.iReportfeld_nr = New SqlInt32(CType(key, Int32))
|
||||
vdata.iFunktionsgruppeReportgruppeNr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,243 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>172, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>269, 17</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>366, 17</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>463, 17</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>591, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>152, 54</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 54</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>617, 54</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 91</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>464, 54</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>305, 54</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>169, 91</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmReport_reportfeldregel</value>
|
||||
</data>
|
||||
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>309</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,527 @@
|
||||
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
Public Class frmReport_reportfeldregel
|
||||
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=tgtsqledokabssf;initial catalog=edoka;integrated security=SSPI;persis" & _
|
||||
"t security info=False;workstation id=TG602643;packet size=4096"
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "pv_reportgruppe_select", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("reportgruppeNr", "reportgruppeNr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_report_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "reportgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("reportgruppeNr", "reportgruppeNr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_reportgruppe_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportgruppeNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportgruppeNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_reportgruppe_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportgruppeNr", System.Data.SqlDbType.Int, 4, "reportgruppeNr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_reportfeldregel_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_reportgruppe_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportgruppeNr", System.Data.SqlDbType.Int, 4, "reportgruppeNr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportgruppeNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportgruppeNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "report_reportfeldregel", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ReportReportfeldregelNr", "ReportReportfeldregelNr"), New System.Data.Common.DataColumnMapping("reportNr", "reportNr"), New System.Data.Common.DataColumnMapping("ReportFeldRegelNr", "ReportFeldRegelNr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("Reihenfolge", "Reihenfolge"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("eingabe_zwingend", "eingabe_zwingend")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_report_reportfeldregel_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_report_reportfeldregel_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportReportfeldregelNr", System.Data.SqlDbType.Int, 4, "ReportReportfeldregelNr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportNr", System.Data.SqlDbType.Int, 4, "reportNr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportFeldRegelNr", System.Data.SqlDbType.Int, 4, "ReportFeldRegelNr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Reihenfolge", System.Data.SqlDbType.Int, 4, "Reihenfolge"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingabe_zwingend", System.Data.SqlDbType.Bit, 1, "eingabe_zwingend"))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pv_report_reportfeldregel_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportReportfeldregelNr", System.Data.SqlDbType.Int, 4, "ReportReportfeldregelNr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportNr", System.Data.SqlDbType.Int, 4, "reportNr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportFeldRegelNr", System.Data.SqlDbType.Int, 4, "ReportFeldRegelNr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Reihenfolge", System.Data.SqlDbType.Int, 4, "Reihenfolge"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingabe_zwingend", System.Data.SqlDbType.Bit, 1, "eingabe_zwingend"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportReportfeldregelNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ReportReportfeldregelNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Reihenfolge", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Reihenfolge", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportFeldRegelNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ReportFeldRegelNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eingabe_zwingend", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingabe_zwingend", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_report_reportfeldregel_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportReportfeldregelNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ReportReportfeldregelNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Reihenfolge", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Reihenfolge", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportFeldRegelNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ReportFeldRegelNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eingabe_zwingend", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingabe_zwingend", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmReport_reportfeldregel
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(104, -20)
|
||||
Me.Name = "frmReport_reportfeldregel"
|
||||
Me.Text = ""
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim t As DataTable
|
||||
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataMember = Me.DataSet1.Tables(0).TableName
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
Me.TBRight.DataMember = Me.DataSet2.Tables(0).TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
UpdateGrpText(5018, 5022, 5048)
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
Me.SuspendLayout()
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
Me.ResumeLayout(True)
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
Me.SuspendLayout()
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
Me.ResumeLayout(True)
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
Me.TBBottom.DataMember = Me.DataSet3.Tables(0).TableName
|
||||
|
||||
'Me.TBBottom.DataMember = Me.TableNameBottom
|
||||
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.BeforeColUpdateEventArgs) Handles TBBottom.BeforeColUpdate
|
||||
|
||||
End Sub
|
||||
Private Sub TBBottom_AfterColEdit(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
|
||||
End Sub
|
||||
Private Sub TBBottom_BeforeRowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.CancelEventArgs) Handles TBBottom.BeforeRowColChange
|
||||
If Me.DataSet3.HasChanges Then
|
||||
Save_Data()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim CurrentSel As Boolean
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsReport_reportfeldregel() ' .clsReportfeld()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim key As Long
|
||||
CurrentSel = False
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
CurrentSel = True
|
||||
ic = ic + 1
|
||||
End If
|
||||
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
vdata.bEingabe_zwingend = New SqlBoolean(CType(0, Boolean))
|
||||
If Me.FokusLeft.Checked Then
|
||||
vdata.iReportNr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If CurrentSel Then
|
||||
vdata.iReportFeldRegelNr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iReportFeldRegelNr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If CurrentSel Then
|
||||
vdata.iReportNr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iReportNr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
vdata.iReportFeldRegelNr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
vdata.iReihenfolge = New SqlInt32(CType(1, Int32))
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("report_reportfeldregel")
|
||||
vdata.iReportReportfeldregelNr = New SqlInt32(CType(key, Int32))
|
||||
'vdata.iReportfeld_nr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
Exit Function
|
||||
|
||||
Dim vdata As New edokadb.clsReport_reportfeldregel() ' .clsReportfeld()
|
||||
Dim iCount As Integer
|
||||
Dim bEingabe_zwingend As Boolean = CType(Me.TBBottom.Columns(11).Value, Boolean)
|
||||
Dim bAktive As Boolean = CType(Me.TBBottom.Columns(5).Value, Boolean)
|
||||
Save_Data = True
|
||||
Try
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
vdata.iReportReportfeldregelNr = New SqlInt32(CType(Me.TBBottom.Columns("ReportReportfeldregelNr").Value, SqlInt32))
|
||||
vdata.SelectOne()
|
||||
|
||||
vdata.bEingabe_zwingend = New SqlBoolean(CType(Me.TBBottom.Columns(11).Value, Boolean)) 'Eingabe erforderlich
|
||||
vdata.bAktiv = New SqlBoolean(CType(Me.TBBottom.Columns(5).Value, Boolean)) 'Aktiv
|
||||
|
||||
conn.OpenConnection()
|
||||
vdata.Update()
|
||||
conn.CloseConnection(True)
|
||||
|
||||
'vdata.iReportReportfeldregelNr = New SqlInt32(CType(Me.TBBottom.Columns("ReportReportfeldregelNr").Value, SqlInt32))
|
||||
'vdata.bEingabe_zwingend = New SqlBoolean(CType(Me.TBBottom.Columns(11).CellValue(iCount), Boolean)) 'Eingabe erforderlich
|
||||
'vdata.bAktiv = New SqlBoolean(CType(Me.TBBottom.Columns(5).CellValue(iCount), Boolean)) 'Aktiv
|
||||
'vdata.iMutierer = New SqlInt32(CType(Me.TBBottom.Columns(10).CellValue(iCount), Integer)) '"Mutierer
|
||||
'vdata.daMutiert_am = New SqlDateTime(CType(Me.TBBottom.Columns(8).CellValue(iCount), Date)) '"Mutiert_am"
|
||||
'vdata.iReportFeldRegelNr = New SqlInt32(CType(Me.TBBottom.Columns(2).Value, SqlInt32)) 'reportnr
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
'frmRolle_SysadminFunktion_Load
|
||||
Private Sub frmReport_reportfeldregel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableNameLeft = "report"
|
||||
Me.TableNameRight = "reportfeldregel"
|
||||
Me.TableNameBottom = "report_reportfeldregel"
|
||||
LoadData()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
End Class
|
||||
@@ -0,0 +1,291 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>169, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>297, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>394, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>529, 54</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 128</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>331, 91</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 91</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>529, 17</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>626, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>374, 54</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>222, 54</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>643, 91</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>484, 91</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 54</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>169, 128</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>176, 91</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>304, 128</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>457, 128</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>237</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmAuswertungsgruppeReports</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,556 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmAuswertungsgruppeReports
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=pc120;initial catalog=edoka;password=sqlsa;persist security info=True" & _
|
||||
";user id=sa;workstation id=PC120;packet size=4096"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "report", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("reportnr", "reportnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("dateiname", "dateiname"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("odbc", "odbc"), New System.Data.Common.DataColumnMapping("oledb", "oledb"), New System.Data.Common.DataColumnMapping("sqlclient", "sqlclient")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_report_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dateiname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dateiname", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_odbc", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "odbc", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_oledb", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "oledb", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sqlclient", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sqlclient", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_report_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportnr", System.Data.SqlDbType.Int, 4, "reportnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 1024, "beschreibung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dateiname", System.Data.SqlDbType.VarChar, 255, "dateiname"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@odbc", System.Data.SqlDbType.Bit, 1, "odbc"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@oledb", System.Data.SqlDbType.Bit, 1, "oledb"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sqlclient", System.Data.SqlDbType.Bit, 1, "sqlclient"))
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_report_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pv_report_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportnr", System.Data.SqlDbType.Int, 4, "reportnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 1024, "beschreibung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dateiname", System.Data.SqlDbType.VarChar, 255, "dateiname"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@odbc", System.Data.SqlDbType.Bit, 1, "odbc"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@oledb", System.Data.SqlDbType.Bit, 1, "oledb"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sqlclient", System.Data.SqlDbType.Bit, 1, "sqlclient"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dateiname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dateiname", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_odbc", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "odbc", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_oledb", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "oledb", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sqlclient", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sqlclient", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "report_reportgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("report_reportgruppenr", "report_reportgruppenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("reportnr", "reportnr"), New System.Data.Common.DataColumnMapping("report_gruppenr", "report_gruppenr")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
||||
'
|
||||
'SqlDeleteCommand3
|
||||
'
|
||||
Me.SqlDeleteCommand3.CommandText = "[pv_reprt_reportgruppe_delete]"
|
||||
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_report_reportgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "report_reportgruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_report_gruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "report_gruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand3
|
||||
'
|
||||
Me.SqlInsertCommand3.CommandText = "[pv_report_reportgruppe_insert]"
|
||||
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@report_reportgruppenr", System.Data.SqlDbType.Int, 4, "report_reportgruppenr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportnr", System.Data.SqlDbType.Int, 4, "reportnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@report_gruppenr", System.Data.SqlDbType.Int, 4, "report_gruppenr"))
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_reportgruppe_report_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand3
|
||||
'
|
||||
Me.SqlUpdateCommand3.CommandText = "[pv_report_reportgruppe_update]"
|
||||
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@report_reportgruppenr", System.Data.SqlDbType.Int, 4, "report_reportgruppenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportnr", System.Data.SqlDbType.Int, 4, "reportnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@report_gruppenr", System.Data.SqlDbType.Int, 4, "report_gruppenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_report_reportgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "report_reportgruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_report_gruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "report_gruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "reportgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("reportgruppeNr", "reportgruppeNr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_report_gruppe_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportgruppeNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportgruppeNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_report_gruppe_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportgruppeNr", System.Data.SqlDbType.Int, 4, "reportgruppeNr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_report_gruppe_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_report_gruppe_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportgruppeNr", System.Data.SqlDbType.Int, 4, "reportgruppeNr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportgruppeNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportgruppeNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmAuswertungsgruppeReports
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(104, 0)
|
||||
Me.Name = "frmAuswertungsgruppeReports"
|
||||
Me.Text = ""
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
|
||||
Private Sub frmAuswertungsgruppeReports_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
Cursor.Current = Cursors.WaitCursor
|
||||
Me.TableNameLeft = "reportgruppe"
|
||||
Me.TableNameRight = "report"
|
||||
Me.TableNameBottom = "report_reportgruppe"
|
||||
LoadData()
|
||||
Cursor.Current = Cursors.Default
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim i As Integer
|
||||
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
Me.TBLeft.DataMember = Me.TableNameLeft
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
Me.TBRight.DataMember = Me.TableNameRight
|
||||
'SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
'SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
UpdateGrpText(5017, 5018, 5019)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
Me.TBBottom.DataMember = Me.TableNameBottom
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsReport_reportgruppe()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim Currentsel As Boolean
|
||||
Dim key As Long
|
||||
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
ic = ic + 1
|
||||
Currentsel = True
|
||||
End If
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
If Me.FokusLeft.Checked Then
|
||||
vdata.iReport_gruppenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If Currentsel Then
|
||||
vdata.iReportnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iReportnr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If Currentsel Then
|
||||
vdata.iReport_gruppenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iReport_gruppenr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
|
||||
vdata.iReportnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
vdata.sBeschreibung = New SqlString(CType("", String))
|
||||
vdata.sBeschreibung = New SqlString(CType("", String))
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("reportgruppe_report")
|
||||
vdata.iReport_reportgruppenr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,252 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>152, 17</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>280, 17</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>415, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>550, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>633, 15</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>724, 15</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmcoldindx</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,550 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmcoldindx
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "cold_folder", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Cold_Folder_Nr", "Cold_Folder_Nr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("batch_parameter", "batch_parameter"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
||||
"station id=SHU;packet size=4096"
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "cold_indexfeld", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("indexfeldnr", "indexfeldnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("format", "format"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "coldindex", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("coldindexnr", "coldindexnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("zwingend", "zwingend"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("cold_indexfeldnr", "cold_indexfeldnr"), New System.Data.Common.DataColumnMapping("cold_foldernr", "cold_foldernr")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_cold_folder_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_cold_folder_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Cold_Folder_Nr", System.Data.SqlDbType.Int, 4, "Cold_Folder_Nr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@batch_parameter", System.Data.SqlDbType.VarChar, 255, "batch_parameter"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_cold_folder_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Cold_Folder_Nr", System.Data.SqlDbType.Int, 4, "Cold_Folder_Nr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@batch_parameter", System.Data.SqlDbType.VarChar, 255, "batch_parameter"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Cold_Folder_Nr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Cold_Folder_Nr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_batch_parameter", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "batch_parameter", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_cold_folder_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Cold_Folder_Nr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Cold_Folder_Nr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_batch_parameter", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "batch_parameter", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_cold_indexfeld_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_cold_indexfeld_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@indexfeldnr", System.Data.SqlDbType.Int, 4, "indexfeldnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@format", System.Data.SqlDbType.VarChar, 255, "format"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pv_cold_indexfeld_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@indexfeldnr", System.Data.SqlDbType.Int, 4, "indexfeldnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@format", System.Data.SqlDbType.VarChar, 255, "format"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_indexfeldnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "indexfeldnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_format", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "format", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_cold_indexfeld_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_indexfeldnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "indexfeldnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_format", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "format", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_coldindex_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand3
|
||||
'
|
||||
Me.SqlInsertCommand3.CommandText = "[pv_coldindex_insert]"
|
||||
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@coldindexnr", System.Data.SqlDbType.Int, 4, "coldindexnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zwingend", System.Data.SqlDbType.Bit, 1, "zwingend"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_indexfeldnr", System.Data.SqlDbType.Int, 4, "cold_indexfeldnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_foldernr", System.Data.SqlDbType.Int, 4, "cold_foldernr"))
|
||||
'
|
||||
'SqlUpdateCommand3
|
||||
'
|
||||
Me.SqlUpdateCommand3.CommandText = "[pv_coldindex_update]"
|
||||
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@coldindexnr", System.Data.SqlDbType.Int, 4, "coldindexnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zwingend", System.Data.SqlDbType.Bit, 1, "zwingend"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_indexfeldnr", System.Data.SqlDbType.Int, 4, "cold_indexfeldnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_foldernr", System.Data.SqlDbType.Int, 4, "cold_foldernr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_coldindexnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "coldindexnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_cold_foldernr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_foldernr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_cold_indexfeldnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_indexfeldnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zwingend", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zwingend", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand3
|
||||
'
|
||||
Me.SqlDeleteCommand3.CommandText = "[pv_coldindex_delete]"
|
||||
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_coldindexnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "coldindexnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_cold_foldernr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_foldernr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_cold_indexfeldnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_indexfeldnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zwingend", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zwingend", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmcoldindx
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(600, 509)
|
||||
Me.Name = "frmcoldindx"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim i As Integer
|
||||
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
Me.TBLeft.DataMember = Me.TableNameLeft
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
Me.TBRight.DataMember = Me.TableNameRight
|
||||
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
UpdateGrpText(5008, 5009, 5010)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
Me.TBBottom.DataMember = Me.TableNameBottom
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsColdindex()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim Currentsel As Boolean
|
||||
Dim key As Long
|
||||
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
ic = ic + 1
|
||||
Currentsel = True
|
||||
End If
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
If Me.FokusLeft.Checked Then
|
||||
vdata.iCold_foldernr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If Currentsel Then
|
||||
vdata.iCold_indexfeldnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iCold_indexfeldnr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If Currentsel Then
|
||||
vdata.iCold_foldernr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iCold_indexfeldnr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
|
||||
vdata.iCold_indexfeldnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
vdata.sBeschreibung = New SqlString(CType("", String))
|
||||
vdata.sBeschreibung = New SqlString(CType("", String))
|
||||
vdata.bZwingend = New SqlBoolean(CType(True, Boolean))
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("coldindex")
|
||||
vdata.iColdindexnr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
|
||||
Private Sub frmRolle_SysadminFunktion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Cursor.Current = Cursors.WaitCursor
|
||||
Me.TableNameLeft = "cold_folder"
|
||||
Me.TableNameRight = "cold_indexfeld"
|
||||
Me.TableNameBottom = "coldindex"
|
||||
LoadData()
|
||||
Cursor.Current = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,42 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<root>
|
||||
<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="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" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
</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>1.0.0.0</value>
|
||||
</resheader>
|
||||
<resheader name="Reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="Writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -0,0 +1,39 @@
|
||||
Public Class frmDokumentvorlage
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
Me.Text = "frmDokumentvorlage"
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,252 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>125, 17</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>260, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>388, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>485, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>620, 17</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>717, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 54</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmFunktionsgruppeRolle</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,536 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
Public Class frmFunktionsgruppeRolle
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "funktionsgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("funktionsgruppenr", "funktionsgruppenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
||||
"station id=SHU;packet size=4096"
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_funktionsgruppe_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_funktionsgruppe_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_funktionsgruppe_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_funktionsgruppe_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "rolle", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("rollelevel", "rollelevel"), New System.Data.Common.DataColumnMapping("sysadminrolle", "sysadminrolle"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_rolle_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_rolle_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollelevel", System.Data.SqlDbType.Int, 4, "rollelevel"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sysadminrolle", System.Data.SqlDbType.Bit, 1, "sysadminrolle"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pv_rolle_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollelevel", System.Data.SqlDbType.Int, 4, "rollelevel"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sysadminrolle", System.Data.SqlDbType.Bit, 1, "sysadminrolle"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollelevel", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollelevel", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sysadminrolle", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminrolle", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_rolle_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollelevel", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollelevel", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sysadminrolle", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminrolle", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "funktionsgruppe_rolle", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Funktionsgrupperollenr", "Funktionsgrupperollenr"), New System.Data.Common.DataColumnMapping("funktionsgruppenr", "funktionsgruppenr"), New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_funktionsgruppe_rolle_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand3
|
||||
'
|
||||
Me.SqlInsertCommand3.CommandText = "[pv_funktionsgruppe_rolle_insert]"
|
||||
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Funktionsgrupperollenr", System.Data.SqlDbType.Int, 4, "Funktionsgrupperollenr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand3
|
||||
'
|
||||
Me.SqlUpdateCommand3.CommandText = "[pv_funktionsgruppe_rolle_update]"
|
||||
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Funktionsgrupperollenr", System.Data.SqlDbType.Int, 4, "Funktionsgrupperollenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Funktionsgrupperollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Funktionsgrupperollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand3
|
||||
'
|
||||
Me.SqlDeleteCommand3.CommandText = "[pv_funktionsgruppe_rolle_delete]"
|
||||
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Funktionsgrupperollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Funktionsgrupperollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmFunktionsgruppeRolle
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(648, 497)
|
||||
Me.Name = "frmFunktionsgruppeRolle"
|
||||
Me.Text = "frmFunktionsgruppeRolle"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim i As Integer
|
||||
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
Me.TBLeft.DataMember = Me.TableNameLeft
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
Me.TBRight.DataMember = Me.TableNameRight
|
||||
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
UpdateGrpText(5035, 5036, 5037)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
Me.TBBottom.DataMember = Me.TableNameBottom
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsFunktionsgruppe_rolle()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim Currentsel As Boolean
|
||||
Dim key As Long
|
||||
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
ic = ic + 1
|
||||
Currentsel = True
|
||||
End If
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
If Me.FokusLeft.Checked Then
|
||||
vdata.iFunktionsgruppenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If Currentsel Then
|
||||
vdata.iRollenr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iRollenr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If Currentsel Then
|
||||
vdata.iFunktionsgruppenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iFunktionsgruppenr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
|
||||
vdata.iRollenr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("funktionsgruppe_rolle")
|
||||
vdata.iFunktionsgrupperollenr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
|
||||
Private Sub frmRolle_SysadminFunktion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Cursor.Current = Cursors.WaitCursor
|
||||
Me.TableNameLeft = "funktionsgruppe"
|
||||
Me.TableNameRight = "rolle"
|
||||
Me.TableNameBottom = "funktionsgruppe_rolle"
|
||||
LoadData()
|
||||
Cursor.Current = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,252 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>152, 17</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>280, 17</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>415, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>550, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>633, 15</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>724, 15</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmIDVMakroOfficeVorlage</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,586 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmIDVMakroOfficeVorlage
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "office_vorlage", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("office_vorlagenr", "office_vorlagenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("vorlagename", "vorlagename"), New System.Data.Common.DataColumnMapping("prefix_dokumentname", "prefix_dokumentname"), New System.Data.Common.DataColumnMapping("idv_vorlage", "idv_vorlage"), New System.Data.Common.DataColumnMapping("idv_id", "idv_id"), New System.Data.Common.DataColumnMapping("office_vorlage", "office_vorlage"), New System.Data.Common.DataColumnMapping("absender_ersteller", "absender_ersteller"), New System.Data.Common.DataColumnMapping("idv_nativ", "idv_nativ"), New System.Data.Common.DataColumnMapping("dokument_geschuetzt", "dokument_geschuetzt"), New System.Data.Common.DataColumnMapping("kopfzeile_generieren", "kopfzeile_generieren"), New System.Data.Common.DataColumnMapping("klassifizierung", "klassifizierung"), New System.Data.Common.DataColumnMapping("bcptl", "bcptl"), New System.Data.Common.DataColumnMapping("bcw", "bcw"), New System.Data.Common.DataColumnMapping("bch", "bch"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("anwendungnr", "anwendungnr")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
||||
"station id=SHU;packet size=4096"
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "idv_makros", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("idvmakronr", "idvmakronr"), New System.Data.Common.DataColumnMapping("makro", "makro"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("ist_in_dll", "ist_in_dll"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "idvmakro_office_vorlage", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("idvmakroofficevorlagenr", "idvmakroofficevorlagenr"), New System.Data.Common.DataColumnMapping("reihenfolge", "reihenfolge"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("office_vorlagenr", "office_vorlagenr"), New System.Data.Common.DataColumnMapping("idvmakronr", "idvmakronr")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_office_vorlage_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_office_vorlage_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorlagename", System.Data.SqlDbType.VarChar, 255, "vorlagename"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prefix_dokumentname", System.Data.SqlDbType.VarChar, 255, "prefix_dokumentname"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idv_vorlage", System.Data.SqlDbType.Bit, 1, "idv_vorlage"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idv_id", System.Data.SqlDbType.VarChar, 50, "idv_id"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@office_vorlage", System.Data.SqlDbType.VarChar, 255, "office_vorlage"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@absender_ersteller", System.Data.SqlDbType.Bit, 1, "absender_ersteller"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idv_nativ", System.Data.SqlDbType.Bit, 1, "idv_nativ"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokument_geschuetzt", System.Data.SqlDbType.Bit, 1, "dokument_geschuetzt"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kopfzeile_generieren", System.Data.SqlDbType.Bit, 1, "kopfzeile_generieren"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@klassifizierung", System.Data.SqlDbType.Int, 4, "klassifizierung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bcptl", System.Data.SqlDbType.Int, 4, "bcptl"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bcw", System.Data.SqlDbType.Int, 4, "bcw"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bch", System.Data.SqlDbType.Int, 4, "bch"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@anwendungnr", System.Data.SqlDbType.Int, 4, "anwendungnr"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_office_vorlage_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorlagename", System.Data.SqlDbType.VarChar, 255, "vorlagename"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prefix_dokumentname", System.Data.SqlDbType.VarChar, 255, "prefix_dokumentname"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idv_vorlage", System.Data.SqlDbType.Bit, 1, "idv_vorlage"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idv_id", System.Data.SqlDbType.VarChar, 50, "idv_id"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@office_vorlage", System.Data.SqlDbType.VarChar, 255, "office_vorlage"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@absender_ersteller", System.Data.SqlDbType.Bit, 1, "absender_ersteller"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idv_nativ", System.Data.SqlDbType.Bit, 1, "idv_nativ"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokument_geschuetzt", System.Data.SqlDbType.Bit, 1, "dokument_geschuetzt"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kopfzeile_generieren", System.Data.SqlDbType.Bit, 1, "kopfzeile_generieren"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@klassifizierung", System.Data.SqlDbType.Int, 4, "klassifizierung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bcptl", System.Data.SqlDbType.Int, 4, "bcptl"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bcw", System.Data.SqlDbType.Int, 4, "bcw"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bch", System.Data.SqlDbType.Int, 4, "bch"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@anwendungnr", System.Data.SqlDbType.Int, 4, "anwendungnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_office_vorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlagenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_absender_ersteller", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "absender_ersteller", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_anwendungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anwendungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bch", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcptl", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcptl", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcw", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcw", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokument_geschuetzt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokument_geschuetzt", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idv_id", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idv_id", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idv_nativ", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idv_nativ", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idv_vorlage", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idv_vorlage", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_klassifizierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "klassifizierung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kopfzeile_generieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kopfzeile_generieren", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_office_vorlage", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlage", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prefix_dokumentname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prefix_dokumentname", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorlagename", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagename", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_office_vorlage_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_office_vorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlagenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_absender_ersteller", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "absender_ersteller", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_anwendungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anwendungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bch", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcptl", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcptl", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcw", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcw", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokument_geschuetzt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokument_geschuetzt", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idv_id", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idv_id", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idv_nativ", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idv_nativ", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idv_vorlage", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idv_vorlage", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_klassifizierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "klassifizierung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kopfzeile_generieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kopfzeile_generieren", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_office_vorlage", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlage", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prefix_dokumentname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prefix_dokumentname", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorlagename", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagename", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_idvmakros_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_idvmakros_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idvmakronr", System.Data.SqlDbType.Int, 4, "idvmakronr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@makro", System.Data.SqlDbType.VarChar, 255, "makro"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ist_in_dll", System.Data.SqlDbType.Bit, 1, "ist_in_dll"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pv_idvmakros_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idvmakronr", System.Data.SqlDbType.Int, 4, "idvmakronr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@makro", System.Data.SqlDbType.VarChar, 255, "makro"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ist_in_dll", System.Data.SqlDbType.Bit, 1, "ist_in_dll"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idvmakronr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idvmakronr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ist_in_dll", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ist_in_dll", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_makro", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "makro", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_idvmakros_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idvmakronr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idvmakronr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ist_in_dll", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ist_in_dll", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_makro", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "makro", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_idvmakros_officevorlage_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand3
|
||||
'
|
||||
Me.SqlInsertCommand3.CommandText = "[pv_idvmakros_officevorlage_insert]"
|
||||
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idvmakroofficevorlagenr", System.Data.SqlDbType.Int, 4, "idvmakroofficevorlagenr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reihenfolge", System.Data.SqlDbType.Int, 4, "reihenfolge"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idvmakronr", System.Data.SqlDbType.Int, 4, "idvmakronr"))
|
||||
'
|
||||
'SqlUpdateCommand3
|
||||
'
|
||||
Me.SqlUpdateCommand3.CommandText = "[pv_idvmakros_officevorlage_update]"
|
||||
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idvmakroofficevorlagenr", System.Data.SqlDbType.Int, 4, "idvmakroofficevorlagenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reihenfolge", System.Data.SqlDbType.Int, 4, "reihenfolge"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idvmakronr", System.Data.SqlDbType.Int, 4, "idvmakronr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idvmakroofficevorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idvmakroofficevorlagenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idvmakronr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idvmakronr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_office_vorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlagenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reihenfolge", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reihenfolge", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand3
|
||||
'
|
||||
Me.SqlDeleteCommand3.CommandText = "[pv_idvmakros_officevorlage_delete]"
|
||||
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idvmakroofficevorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idvmakroofficevorlagenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idvmakronr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idvmakronr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_office_vorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlagenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reihenfolge", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reihenfolge", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmIDVMakroOfficeVorlage
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(600, 509)
|
||||
Me.Name = "frmIDVMakroOfficeVorlage"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim t As DataTable
|
||||
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
Me.TBLeft.DataMember = Me.TableNameLeft
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
Me.TBRight.DataMember = Me.TableNameRight
|
||||
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
UpdateGrpText(5003, 5004, 5005)
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
Me.TBBottom.DataMember = Me.TableNameBottom
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim CurrentSel As Boolean
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsIdvmakro_office_vorlage()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim key As Long
|
||||
CurrentSel = False
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
CurrentSel = True
|
||||
ic = ic + 1
|
||||
End If
|
||||
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
vdata.iReihenfolge = New SqlInt32(CType(0, Int32))
|
||||
If Me.FokusLeft.Checked Then
|
||||
vdata.iOffice_vorlagenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If CurrentSel Then
|
||||
vdata.iIdvmakronr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iIdvmakronr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If CurrentSel Then
|
||||
vdata.iOffice_vorlagenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iOffice_vorlagenr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
vdata.iIdvmakronr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("idvmakro_office_vorlage")
|
||||
vdata.iIdvmakroofficevorlagenr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
|
||||
Private Sub frmRolle_SysadminFunktion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableNameLeft = "office_vorlage"
|
||||
Me.TableNameRight = "idv_makros"
|
||||
Me.TableNameBottom = "idvmakro_office_vorlage"
|
||||
LoadData()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
save_data()
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,359 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>152, 17</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>263, 13</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>415, 17</value>
|
||||
</data>
|
||||
<data name="SqlConnection3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>242, 80</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>742, 13</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>561, 13</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>621, 43</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>718, 43</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand4.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand4.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand4.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand4.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand4.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand4.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand4.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand4.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 80</value>
|
||||
</data>
|
||||
<data name="DataSet4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="C1TrueDBDropdown1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="SqlConnection2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>114, 80</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmKostenstelle</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,779 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
|
||||
|
||||
Public Class frmKostenstelle
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter4 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand4 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand4 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand4 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand4 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet4 As System.Data.DataSet
|
||||
Friend WithEvents C1TrueDBDropdown1 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
||||
Friend WithEvents SqlConnection2 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents SqlConnection3 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmKostenstelle))
|
||||
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection3 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter4 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand4 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand4 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand4 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand4 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet4 = New System.Data.DataSet()
|
||||
Me.C1TrueDBDropdown1 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
|
||||
Me.SqlConnection2 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "marktbereich", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("marktbereichnr", "marktbereichnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_marktbereich_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_marktbereichnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "marktbereichnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
||||
"station id=SHU;packet size=4096"
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_marktbereich_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@marktbereichnr", System.Data.SqlDbType.Int, 4, "marktbereichnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_marktbereich_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_marktbereich_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@marktbereichnr", System.Data.SqlDbType.Int, 4, "marktbereichnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_marktbereichnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "marktbereichnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "niederlassung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("niederlassungnr", "niederlassungnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("nlnummer", "nlnummer"), New System.Data.Common.DataColumnMapping("nltyp", "nltyp"), New System.Data.Common.DataColumnMapping("edoka_dokumenterstellung", "edoka_dokumenterstellung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_niederlassung_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_niederlassungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "niederlassungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_edoka_dokumenterstellung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "edoka_dokumenterstellung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nlnummer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nlnummer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nltyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nltyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_niederlassung_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@niederlassungnr", System.Data.SqlDbType.Int, 4, "niederlassungnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nlnummer", System.Data.SqlDbType.Int, 4, "nlnummer"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nltyp", System.Data.SqlDbType.VarChar, 255, "nltyp"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@edoka_dokumenterstellung", System.Data.SqlDbType.Bit, 1, "edoka_dokumenterstellung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_niederlassung_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pv_niederlassung_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@niederlassungnr", System.Data.SqlDbType.Int, 4, "niederlassungnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nlnummer", System.Data.SqlDbType.Int, 4, "nlnummer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nltyp", System.Data.SqlDbType.VarChar, 255, "nltyp"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@edoka_dokumenterstellung", System.Data.SqlDbType.Bit, 1, "edoka_dokumenterstellung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_niederlassungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "niederlassungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_edoka_dokumenterstellung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "edoka_dokumenterstellung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nlnummer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nlnummer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nltyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nltyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "kostenstelle", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("kostenstellenr", "kostenstellenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("kostenstellenummer", "kostenstellenummer"), New System.Data.Common.DataColumnMapping("dokument_kopfzeile", "dokument_kopfzeile"), New System.Data.Common.DataColumnMapping("marktbereichnr", "marktbereichnr"), New System.Data.Common.DataColumnMapping("niederlassungnr", "niederlassungnr"), New System.Data.Common.DataColumnMapping("bankinformationnr", "bankinformationnr"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
||||
'
|
||||
'SqlConnection3
|
||||
'
|
||||
Me.SqlConnection3.ConnectionString = "data source=shu;initial catalog=edoka_tkb;integrated security=SSPI;persist securi" & _
|
||||
"ty info=False;workstation id=SHU;packet size=4096"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter4
|
||||
'
|
||||
Me.SqlDataAdapter4.DeleteCommand = Me.SqlDeleteCommand4
|
||||
Me.SqlDataAdapter4.InsertCommand = Me.SqlInsertCommand4
|
||||
Me.SqlDataAdapter4.SelectCommand = Me.SqlSelectCommand4
|
||||
Me.SqlDataAdapter4.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "bankinformation", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("bankinformationnr", "bankinformationnr"), New System.Data.Common.DataColumnMapping("bankname", "bankname"), New System.Data.Common.DataColumnMapping("adresszeile1", "adresszeile1"), New System.Data.Common.DataColumnMapping("adresszeile2", "adresszeile2"), New System.Data.Common.DataColumnMapping("plz", "plz"), New System.Data.Common.DataColumnMapping("ort", "ort"), New System.Data.Common.DataColumnMapping("telefon", "telefon"), New System.Data.Common.DataColumnMapping("telefax", "telefax"), New System.Data.Common.DataColumnMapping("email", "email"), New System.Data.Common.DataColumnMapping("internet", "internet"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter4.UpdateCommand = Me.SqlUpdateCommand4
|
||||
'
|
||||
'SqlDeleteCommand4
|
||||
'
|
||||
Me.SqlDeleteCommand4.CommandText = "[pv_bankinformatione_delete]"
|
||||
Me.SqlDeleteCommand4.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand4.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bankinformationnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bankinformationnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_adresszeile1", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "adresszeile1", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_adresszeile2", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "adresszeile2", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bankname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bankname", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_email", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_internet", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "internet", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ort", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ort", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_plz", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "plz", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_telefax", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "telefax", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_telefon", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "telefon", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand4
|
||||
'
|
||||
Me.SqlInsertCommand4.CommandText = "[pv_bankinformation_insert]"
|
||||
Me.SqlInsertCommand4.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand4.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bankinformationnr", System.Data.SqlDbType.Int, 4, "bankinformationnr"))
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bankname", System.Data.SqlDbType.VarChar, 255, "bankname"))
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@adresszeile1", System.Data.SqlDbType.VarChar, 255, "adresszeile1"))
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@adresszeile2", System.Data.SqlDbType.VarChar, 255, "adresszeile2"))
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@plz", System.Data.SqlDbType.VarChar, 255, "plz"))
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ort", System.Data.SqlDbType.VarChar, 255, "ort"))
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@telefon", System.Data.SqlDbType.VarChar, 255, "telefon"))
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@telefax", System.Data.SqlDbType.VarChar, 255, "telefax"))
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@email", System.Data.SqlDbType.VarChar, 255, "email"))
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@internet", System.Data.SqlDbType.VarChar, 255, "internet"))
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand4
|
||||
'
|
||||
Me.SqlSelectCommand4.CommandText = "[pv_bankinformation_select]"
|
||||
Me.SqlSelectCommand4.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand4.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand4
|
||||
'
|
||||
Me.SqlUpdateCommand4.CommandText = "[pv_bankinformation_update]"
|
||||
Me.SqlUpdateCommand4.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand4.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bankinformationnr", System.Data.SqlDbType.Int, 4, "bankinformationnr"))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bankname", System.Data.SqlDbType.VarChar, 255, "bankname"))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@adresszeile1", System.Data.SqlDbType.VarChar, 255, "adresszeile1"))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@adresszeile2", System.Data.SqlDbType.VarChar, 255, "adresszeile2"))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@plz", System.Data.SqlDbType.VarChar, 255, "plz"))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ort", System.Data.SqlDbType.VarChar, 255, "ort"))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@telefon", System.Data.SqlDbType.VarChar, 255, "telefon"))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@telefax", System.Data.SqlDbType.VarChar, 255, "telefax"))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@email", System.Data.SqlDbType.VarChar, 255, "email"))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@internet", System.Data.SqlDbType.VarChar, 255, "internet"))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bankinformationnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bankinformationnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_adresszeile1", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "adresszeile1", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_adresszeile2", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "adresszeile2", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bankname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bankname", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_email", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_internet", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "internet", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ort", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ort", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_plz", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "plz", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_telefax", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "telefax", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_telefon", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "telefon", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet4
|
||||
'
|
||||
Me.DataSet4.DataSetName = "NewDataSet"
|
||||
Me.DataSet4.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'C1TrueDBDropdown1
|
||||
'
|
||||
Me.C1TrueDBDropdown1.AllowColMove = True
|
||||
Me.C1TrueDBDropdown1.AllowColSelect = True
|
||||
Me.C1TrueDBDropdown1.AllowFilter = True
|
||||
Me.C1TrueDBDropdown1.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.C1TrueDBDropdown1.AllowSort = True
|
||||
Me.C1TrueDBDropdown1.AlternatingRows = False
|
||||
Me.C1TrueDBDropdown1.CaptionHeight = 17
|
||||
Me.C1TrueDBDropdown1.ColumnCaptionHeight = 17
|
||||
Me.C1TrueDBDropdown1.ColumnFooterHeight = 17
|
||||
Me.C1TrueDBDropdown1.ColumnHeaders = False
|
||||
Me.C1TrueDBDropdown1.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.C1TrueDBDropdown1.FetchRowStyles = False
|
||||
Me.C1TrueDBDropdown1.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
||||
Me.C1TrueDBDropdown1.LayoutFileName = ""
|
||||
Me.C1TrueDBDropdown1.LayoutName = ""
|
||||
Me.C1TrueDBDropdown1.LayoutURL = ""
|
||||
Me.C1TrueDBDropdown1.Location = New System.Drawing.Point(104, 0)
|
||||
Me.C1TrueDBDropdown1.Name = "C1TrueDBDropdown1"
|
||||
GridLines1.Color = System.Drawing.Color.DarkGray
|
||||
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
||||
Me.C1TrueDBDropdown1.RowDivider = GridLines1
|
||||
Me.C1TrueDBDropdown1.RowHeight = 15
|
||||
Me.C1TrueDBDropdown1.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.C1TrueDBDropdown1.ScrollTips = False
|
||||
Me.C1TrueDBDropdown1.Size = New System.Drawing.Size(392, 264)
|
||||
Me.C1TrueDBDropdown1.TabIndex = 19
|
||||
Me.C1TrueDBDropdown1.Text = "C1TrueDBDropdown1"
|
||||
Me.C1TrueDBDropdown1.Visible = False
|
||||
Me.C1TrueDBDropdown1.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
||||
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
||||
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
|
||||
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
|
||||
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
|
||||
"er;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Od" & _
|
||||
"dRow{}RecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Bord" & _
|
||||
"er:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}Style10{Al" & _
|
||||
"ignHorz:Near;}Style11{}Style12{}Style13{}Style9{}</Data></Styles><Splits><C1.Win" & _
|
||||
".C1TrueDBGrid.DropdownView Name="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" C" & _
|
||||
"olumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" " & _
|
||||
"RecordSelectors=""False"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><Clien" & _
|
||||
"tRect>0, 0, 388, 260</ClientRect><CaptionStyle parent=""Style2"" me=""Style10"" /><E" & _
|
||||
"ditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Styl" & _
|
||||
"e8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Foo" & _
|
||||
"ter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle paren" & _
|
||||
"t=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /" & _
|
||||
"><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=" & _
|
||||
"""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Selected" & _
|
||||
"Style parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1." & _
|
||||
"Win.C1TrueDBGrid.DropdownView></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"" /><S" & _
|
||||
"tyle parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style" & _
|
||||
" parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Styl" & _
|
||||
"e parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><S" & _
|
||||
"tyle parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Nam" & _
|
||||
"edStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layou" & _
|
||||
"t><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 388, 260</ClientA" & _
|
||||
"rea></Blob>"
|
||||
'
|
||||
'SqlConnection2
|
||||
'
|
||||
Me.SqlConnection2.ConnectionString = "data source=shu;initial catalog=edoka_tkb;password="""";persist security info=True;" & _
|
||||
"user id=sa;workstation id=SHU;packet size=4096"
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_kostenstelle_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection3
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand3
|
||||
'
|
||||
Me.SqlInsertCommand3.CommandText = "[pv_kostenstelle_insert]"
|
||||
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand3.Connection = Me.SqlConnection3
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kostenstellenr", System.Data.SqlDbType.Int, 4, "kostenstellenr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kostenstellenummer", System.Data.SqlDbType.Int, 4, "kostenstellenummer"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokument_kopfzeile", System.Data.SqlDbType.VarChar, 255, "dokument_kopfzeile"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@marktbereichnr", System.Data.SqlDbType.Int, 4, "marktbereichnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@niederlassungnr", System.Data.SqlDbType.Int, 4, "niederlassungnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bankinformationnr", System.Data.SqlDbType.Int, 4, "bankinformationnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
'
|
||||
'SqlUpdateCommand3
|
||||
'
|
||||
Me.SqlUpdateCommand3.CommandText = "[pv_kostenstelle_update]"
|
||||
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand3.Connection = Me.SqlConnection3
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kostenstellenr", System.Data.SqlDbType.Int, 4, "kostenstellenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kostenstellenummer", System.Data.SqlDbType.Int, 4, "kostenstellenummer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokument_kopfzeile", System.Data.SqlDbType.VarChar, 255, "dokument_kopfzeile"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@marktbereichnr", System.Data.SqlDbType.Int, 4, "marktbereichnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@niederlassungnr", System.Data.SqlDbType.Int, 4, "niederlassungnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bankinformationnr", System.Data.SqlDbType.Int, 4, "bankinformationnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kostenstellenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kostenstellenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bankinformationnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bankinformationnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokument_kopfzeile", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokument_kopfzeile", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kostenstellenummer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kostenstellenummer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_marktbereichnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "marktbereichnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_niederlassungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "niederlassungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand3
|
||||
'
|
||||
Me.SqlDeleteCommand3.CommandText = "[pv_kostenstelle_delete]"
|
||||
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand3.Connection = Me.SqlConnection3
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kostenstellenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kostenstellenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bankinformationnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bankinformationnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokument_kopfzeile", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokument_kopfzeile", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kostenstellenummer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kostenstellenummer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_marktbereichnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "marktbereichnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_niederlassungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "niederlassungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmKostenstelle
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(600, 509)
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.C1TrueDBDropdown1})
|
||||
Me.Name = "frmKostenstelle"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim t As DataTable
|
||||
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection2.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection3.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
Me.TBLeft.DataMember = Me.TableNameLeft
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
Me.TBRight.DataMember = Me.TableNameRight
|
||||
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
UpdateGrpText(5014, 5015, 5016)
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
Me.SuspendLayout()
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
Me.ResumeLayout(True)
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
Me.SuspendLayout()
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
Me.ResumeLayout(True)
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
Me.TBBottom.DataMember = Me.TableNameBottom
|
||||
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
Me.DataSet4.Clear()
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter4.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter4.SelectCommand.Parameters.Add("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter4.Fill(Me.DataSet4)
|
||||
Me.C1TrueDBDropdown1.DataSource = Me.DataSet4
|
||||
Me.C1TrueDBDropdown1.DataMember = "bankinformation"
|
||||
Me.C1TrueDBDropdown1.Columns(0).Caption = MyMsg.Get_Meldungstext(7002)
|
||||
Me.C1TrueDBDropdown1.Columns(1).Caption = MyMsg.Get_Meldungstext(7003)
|
||||
Me.C1TrueDBDropdown1.DisplayColumns(0).Width = 20
|
||||
Try
|
||||
Me.TBBottom.Columns("bankinformationnr").DropDown = Me.C1TrueDBDropdown1
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim CurrentSel As Boolean
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsKostenstelle()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim key As Long
|
||||
CurrentSel = False
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
CurrentSel = True
|
||||
ic = ic + 1
|
||||
End If
|
||||
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
If Me.FokusLeft.Checked Then
|
||||
vdata.iMarktbereichnr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If CurrentSel Then
|
||||
vdata.iNiederlassungnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iNiederlassungnr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If CurrentSel Then
|
||||
vdata.iMarktbereichnr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iMarktbereichnr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
vdata.iKostenstellenr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
vdata.iKostenstellenr = New SqlInt32(CType(0, Int32))
|
||||
vdata.iBankinformationnr = New SqlInt32(CType(1, Int32))
|
||||
vdata.sBezeichnung = New SqlString(CType("Neue Kostenstelle", String))
|
||||
vdata.sBeschreibung = New SqlString(CType("", String))
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("kostenstelle")
|
||||
vdata.iKostenstellenr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902) + ex.Message)
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
|
||||
Private Sub frmRolle_SysadminFunktion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableNameLeft = "marktbereich"
|
||||
Me.TableNameRight = "niederlassung"
|
||||
Me.TableNameBottom = "kostenstelle"
|
||||
LoadData()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
save_data()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,252 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>125, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>260, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>388, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>485, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>620, 17</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>717, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 54</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmMitarbeiterFunktionsgruppe</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,569 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
Public Class frmMitarbeiterFunktionsgruppe
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "mitarbeiter", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("vorname", "vorname"), New System.Data.Common.DataColumnMapping("name", "name"), New System.Data.Common.DataColumnMapping("tgnummer", "tgnummer"), New System.Data.Common.DataColumnMapping("email", "email"), New System.Data.Common.DataColumnMapping("fax", "fax"), New System.Data.Common.DataColumnMapping("telefon", "telefon"), New System.Data.Common.DataColumnMapping("unterschrift_text", "unterschrift_text"), New System.Data.Common.DataColumnMapping("funktionnr", "funktionnr"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("fuermandant", "fuermandant"), New System.Data.Common.DataColumnMapping("showtip", "showtip"), New System.Data.Common.DataColumnMapping("partnernr", "partnernr"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_mitarbeiter_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_mitarbeiter_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorname", System.Data.SqlDbType.VarChar, 50, "vorname"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@name", System.Data.SqlDbType.VarChar, 50, "name"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tgnummer", System.Data.SqlDbType.VarChar, 50, "tgnummer"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@email", System.Data.SqlDbType.VarChar, 50, "email"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fax", System.Data.SqlDbType.VarChar, 50, "fax"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@telefon", System.Data.SqlDbType.VarChar, 50, "telefon"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_text", System.Data.SqlDbType.VarChar, 50, "unterschrift_text"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fuermandant", System.Data.SqlDbType.Int, 4, "fuermandant"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@showtip", System.Data.SqlDbType.Bit, 1, "showtip"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnernr", System.Data.SqlDbType.Int, 4, "partnernr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_mitarbeiter_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorname", System.Data.SqlDbType.VarChar, 50, "vorname"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@name", System.Data.SqlDbType.VarChar, 50, "name"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tgnummer", System.Data.SqlDbType.VarChar, 50, "tgnummer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@email", System.Data.SqlDbType.VarChar, 50, "email"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fax", System.Data.SqlDbType.VarChar, 50, "fax"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@telefon", System.Data.SqlDbType.VarChar, 50, "telefon"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_text", System.Data.SqlDbType.VarChar, 50, "unterschrift_text"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fuermandant", System.Data.SqlDbType.Int, 4, "fuermandant"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@showtip", System.Data.SqlDbType.Bit, 1, "showtip"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnernr", System.Data.SqlDbType.Int, 4, "partnernr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_email", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fax", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fax", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fuermandant", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fuermandant", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_name", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "name", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_partnernr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnernr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_showtip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "showtip", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_telefon", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "telefon", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tgnummer", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tgnummer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_text", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_text", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorname", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorname", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_mitarbeiter_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_email", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fax", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fax", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fuermandant", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fuermandant", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_name", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "name", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_partnernr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnernr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_showtip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "showtip", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_telefon", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "telefon", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tgnummer", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tgnummer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_text", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_text", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorname", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorname", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
||||
"station id=SHU;packet size=4096"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "funktionsgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("funktionsgruppenr", "funktionsgruppenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_funktionsgruppe_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_funktionsgruppe_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pv_funktionsgruppe_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_funktionsgruppe_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "mitarbeiter_funktionsgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("mitarbeiter_funktionsgruppenr", "mitarbeiter_funktionsgruppenr"), New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("funktionsgruppenr", "funktionsgruppenr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_mitarbeiter_funktionsgruppe_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand3
|
||||
'
|
||||
Me.SqlInsertCommand3.CommandText = "[pv_mitarbeiter_funktionsgruppe_insert]"
|
||||
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiter_funktionsgruppenr", System.Data.SqlDbType.Int, 4, "mitarbeiter_funktionsgruppenr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand3
|
||||
'
|
||||
Me.SqlUpdateCommand3.CommandText = "[pv_mitarbeiter_funktionsgruppe_update]"
|
||||
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiter_funktionsgruppenr", System.Data.SqlDbType.Int, 4, "mitarbeiter_funktionsgruppenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiter_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiter_funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand3
|
||||
'
|
||||
Me.SqlDeleteCommand3.CommandText = "[pv_mitarbeiter_funktionsgruppe_delete]"
|
||||
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiter_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiter_funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmMitarbeiterFunktionsgruppe
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(608, 469)
|
||||
Me.Name = "frmMitarbeiterFunktionsgruppe"
|
||||
Me.Text = "frmMitarbeiterFunktionsgruppe"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim i As Integer
|
||||
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
Me.TBLeft.DataMember = Me.TableNameLeft
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
Me.TBRight.DataMember = Me.TableNameRight
|
||||
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
UpdateGrpText(5038, 5039, 5040)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
Me.TBBottom.DataMember = Me.TableNameBottom
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsMitarbeiter_funktionsgruppe()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim Currentsel As Boolean
|
||||
Dim key As Long
|
||||
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
ic = ic + 1
|
||||
Currentsel = True
|
||||
End If
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
If Me.FokusLeft.Checked Then
|
||||
vdata.iMitarbeiternr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If Currentsel Then
|
||||
vdata.iFunktionsgruppenr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iFunktionsgruppenr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If Currentsel Then
|
||||
vdata.iMitarbeiternr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iMitarbeiternr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
|
||||
vdata.iFunktionsgruppenr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("mitarbeiter_funktionsgruppe")
|
||||
vdata.iMitarbeiter_funktionsgruppenr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
|
||||
Private Sub frmRolle_SysadminFunktion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Cursor.Current = Cursors.WaitCursor
|
||||
Me.TableNameLeft = "mitarbeiter"
|
||||
Me.TableNameRight = "funktionsgruppe"
|
||||
Me.TableNameBottom = "mitarbeiter_funktionsgruppe"
|
||||
LoadData()
|
||||
Cursor.Current = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,288 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>152, 17</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>280, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>377, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>512, 17</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>609, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>744, 17</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmMitarbeiterRolle</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,577 @@
|
||||
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmMitarbeiterRolle
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "mitarbeiter", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("vorname", "vorname"), New System.Data.Common.DataColumnMapping("name", "name"), New System.Data.Common.DataColumnMapping("tgnummer", "tgnummer"), New System.Data.Common.DataColumnMapping("email", "email"), New System.Data.Common.DataColumnMapping("fax", "fax"), New System.Data.Common.DataColumnMapping("telefon", "telefon"), New System.Data.Common.DataColumnMapping("unterschrift_text", "unterschrift_text"), New System.Data.Common.DataColumnMapping("kostenstellenr", "kostenstellenr"), New System.Data.Common.DataColumnMapping("teamnr", "teamnr"), New System.Data.Common.DataColumnMapping("funktionnr", "funktionnr"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("fuermandant", "fuermandant"), New System.Data.Common.DataColumnMapping("showtip", "showtip"), New System.Data.Common.DataColumnMapping("partnernr", "partnernr"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_mitarbeiter_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_email", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fax", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fax", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fuermandant", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fuermandant", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kostenstellenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kostenstellenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_name", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "name", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_partnernr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnernr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_showtip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "showtip", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_teamnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "teamnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_telefon", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "telefon", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tgnummer", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tgnummer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_text", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_text", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorname", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorname", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
||||
"station id=SHU;packet size=4096"
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_mitarbeiter_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorname", System.Data.SqlDbType.VarChar, 50, "vorname"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@name", System.Data.SqlDbType.VarChar, 50, "name"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tgnummer", System.Data.SqlDbType.VarChar, 50, "tgnummer"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@email", System.Data.SqlDbType.VarChar, 50, "email"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fax", System.Data.SqlDbType.VarChar, 50, "fax"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@telefon", System.Data.SqlDbType.VarChar, 50, "telefon"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_text", System.Data.SqlDbType.VarChar, 50, "unterschrift_text"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kostenstellenr", System.Data.SqlDbType.Int, 4, "kostenstellenr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@teamnr", System.Data.SqlDbType.Int, 4, "teamnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fuermandant", System.Data.SqlDbType.Int, 4, "fuermandant"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@showtip", System.Data.SqlDbType.Bit, 1, "showtip"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnernr", System.Data.SqlDbType.Int, 4, "partnernr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_mitarbeiter_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_mitarbeiter_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorname", System.Data.SqlDbType.VarChar, 50, "vorname"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@name", System.Data.SqlDbType.VarChar, 50, "name"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tgnummer", System.Data.SqlDbType.VarChar, 50, "tgnummer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@email", System.Data.SqlDbType.VarChar, 50, "email"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fax", System.Data.SqlDbType.VarChar, 50, "fax"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@telefon", System.Data.SqlDbType.VarChar, 50, "telefon"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_text", System.Data.SqlDbType.VarChar, 50, "unterschrift_text"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kostenstellenr", System.Data.SqlDbType.Int, 4, "kostenstellenr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@teamnr", System.Data.SqlDbType.Int, 4, "teamnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fuermandant", System.Data.SqlDbType.Int, 4, "fuermandant"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@showtip", System.Data.SqlDbType.Bit, 1, "showtip"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnernr", System.Data.SqlDbType.Int, 4, "partnernr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_email", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fax", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fax", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fuermandant", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fuermandant", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kostenstellenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kostenstellenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_name", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "name", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_partnernr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnernr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_showtip", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "showtip", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_teamnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "teamnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_telefon", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "telefon", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tgnummer", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tgnummer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_text", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_text", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorname", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorname", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "rolle", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_rolle_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_rolle_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_rolle_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pv_rolle_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "mitarbeiterrolle", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("mitarbeiterrollenr", "mitarbeiterrollenr"), New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
||||
'
|
||||
'SqlDeleteCommand3
|
||||
'
|
||||
Me.SqlDeleteCommand3.CommandText = "[pv_mitarbeiterrolle_delete]"
|
||||
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiterrollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiterrollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand3
|
||||
'
|
||||
Me.SqlInsertCommand3.CommandText = "[pv_mitarbeiterrolle_insert]"
|
||||
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiterrollenr", System.Data.SqlDbType.Int, 4, "mitarbeiterrollenr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_mitarbeiterrolle_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand3
|
||||
'
|
||||
Me.SqlUpdateCommand3.CommandText = "[pv_mitarbeiterrolle_update]"
|
||||
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiterrollenr", System.Data.SqlDbType.Int, 4, "mitarbeiterrollenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiterrollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiterrollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmMitarbeiterRolle
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(600, 509)
|
||||
Me.Name = "frmMitarbeiterRolle"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim t As DataTable
|
||||
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
Me.TBLeft.DataMember = Me.TableNameLeft
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
Me.TBRight.DataMember = Me.TableNameRight
|
||||
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
UpdateGrpText(5023, 5024, 5025)
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
Me.SuspendLayout()
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
Me.ResumeLayout(True)
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
Me.SuspendLayout()
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
Me.ResumeLayout(True)
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
Me.TBBottom.DataMember = Me.TableNameBottom
|
||||
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim CurrentSel As Boolean
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsMitarbeiterrolle()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim key As Long
|
||||
CurrentSel = False
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
CurrentSel = True
|
||||
ic = ic + 1
|
||||
End If
|
||||
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
If Me.FokusLeft.Checked Then
|
||||
vdata.iMitarbeiternr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If CurrentSel Then
|
||||
vdata.iRollenr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iRollenr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If CurrentSel Then
|
||||
vdata.iMitarbeiternr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iMitarbeiternr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
vdata.iRollenr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("mitarbeiterrolle")
|
||||
vdata.iMitarbeiterrollenr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
|
||||
Private Sub frmRolle_SysadminFunktion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableNameLeft = "mitarbeiter"
|
||||
Me.TableNameRight = "rolle"
|
||||
Me.TableNameBottom = "mitarbeiterrolle"
|
||||
LoadData()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
End Class
|
||||
@@ -0,0 +1,288 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>152, 17</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>280, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>415, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>550, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>633, 15</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>724, 15</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmNLDokumente</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,704 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmNLDokumente
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "niederlassung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("niederlassungnr", "niederlassungnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("nlnummer", "nlnummer"), New System.Data.Common.DataColumnMapping("nltyp", "nltyp"), New System.Data.Common.DataColumnMapping("edoka_dokumenterstellung", "edoka_dokumenterstellung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_niederlassung_dok_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_niederlassungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "niederlassungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_edoka_dokumenterstellung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "edoka_dokumenterstellung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nlnummer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nlnummer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nltyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nltyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
||||
"station id=SHU;packet size=4096"
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_niederlassung_dok_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@niederlassungnr", System.Data.SqlDbType.Int, 4, "niederlassungnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nlnummer", System.Data.SqlDbType.Int, 4, "nlnummer"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nltyp", System.Data.SqlDbType.VarChar, 255, "nltyp"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@edoka_dokumenterstellung", System.Data.SqlDbType.Bit, 1, "edoka_dokumenterstellung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_niederlassung_dok_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_niederlassung_dok_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@niederlassungnr", System.Data.SqlDbType.Int, 4, "niederlassungnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nlnummer", System.Data.SqlDbType.Int, 4, "nlnummer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nltyp", System.Data.SqlDbType.VarChar, 255, "nltyp"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@edoka_dokumenterstellung", System.Data.SqlDbType.Bit, 1, "edoka_dokumenterstellung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_niederlassungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "niederlassungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_edoka_dokumenterstellung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "edoka_dokumenterstellung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nlnummer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nlnummer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nltyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nltyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "dokumenttyp", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("dokumenttypnr", "dokumenttypnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("zu_vercolden", "zu_vercolden"), New System.Data.Common.DataColumnMapping("zu_retournieren", "zu_retournieren"), New System.Data.Common.DataColumnMapping("eingang_ersetzt_ausgang", "eingang_ersetzt_ausgang"), New System.Data.Common.DataColumnMapping("wird_importiert", "wird_importiert"), New System.Data.Common.DataColumnMapping("anzahl_tage", "anzahl_tage"), New System.Data.Common.DataColumnMapping("dbearbeitungszeit", "dbearbeitungszeit"), New System.Data.Common.DataColumnMapping("tage_mutation", "tage_mutation"), New System.Data.Common.DataColumnMapping("partnersaldierung_statusalt", "partnersaldierung_statusalt"), New System.Data.Common.DataColumnMapping("wird_nicht_geloescht", "wird_nicht_geloescht"), New System.Data.Common.DataColumnMapping("vertrauliches_dokument", "vertrauliches_dokument"), New System.Data.Common.DataColumnMapping("unterschrift_links", "unterschrift_links"), New System.Data.Common.DataColumnMapping("unterschrift_rechts", "unterschrift_rechts"), New System.Data.Common.DataColumnMapping("monate_bis_zur_archivierung", "monate_bis_zur_archivierung"), New System.Data.Common.DataColumnMapping("aufbewahrungsfrist_elektronisch", "aufbewahrungsfrist_elektronisch"), New System.Data.Common.DataColumnMapping("aufbewahrungsfrist_physisch", "aufbewahrungsfrist_physisch"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("office_vorlagenr", "office_vorlagenr"), New System.Data.Common.DataColumnMapping("dokumentart_kundendossier", "dokumentart_kundendossier"), New System.Data.Common.DataColumnMapping("dokumentart_neuerstellung", "dokumentart_neuerstellung"), New System.Data.Common.DataColumnMapping("dokumentart_retournierung", "dokumentart_retournierung"), New System.Data.Common.DataColumnMapping("dokumentart_coldausgang", "dokumentart_coldausgang"), New System.Data.Common.DataColumnMapping("dokumentart_coldeingang", "dokumentart_coldeingang"), New System.Data.Common.DataColumnMapping("dokumentart_host", "dokumentart_host"), New System.Data.Common.DataColumnMapping("dokumentart_weitere", "dokumentart_weitere"), New System.Data.Common.DataColumnMapping("dokumentart_nativ", "dokumentart_nativ"), New System.Data.Common.DataColumnMapping("prozessnr", "prozessnr"), New System.Data.Common.DataColumnMapping("prozessnr1", "prozessnr1"), New System.Data.Common.DataColumnMapping("amsdokument", "amsdokument"), New System.Data.Common.DataColumnMapping("hostdokument", "hostdokument"), New System.Data.Common.DataColumnMapping("hostdokumenttyp", "hostdokumenttyp"), New System.Data.Common.DataColumnMapping("cold_folder", "cold_folder"), New System.Data.Common.DataColumnMapping("physisches_archiv", "physisches_archiv"), New System.Data.Common.DataColumnMapping("dokumentstatus", "dokumentstatus"), New System.Data.Common.DataColumnMapping("Dokument_wird_erstellt", "Dokument_wird_erstellt"), New System.Data.Common.DataColumnMapping("Dokument_wird_retourniert", "Dokument_wird_retourniert"), New System.Data.Common.DataColumnMapping("cold_ersetzen", "cold_ersetzen"), New System.Data.Common.DataColumnMapping("email_versand", "email_versand"), New System.Data.Common.DataColumnMapping("funktionen_zuweisen", "funktionen_zuweisen"), New System.Data.Common.DataColumnMapping("dokumentstatus_barcode", "dokumentstatus_barcode"), New System.Data.Common.DataColumnMapping("nurnative", "nurnative"), New System.Data.Common.DataColumnMapping("Owner", "Owner"), New System.Data.Common.DataColumnMapping("vertrag", "vertrag"), New System.Data.Common.DataColumnMapping("objektbezeichnungnr", "objektbezeichnungnr")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_dokumenttyp_nl_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_erstellt", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_retourniert", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Owner", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Owner", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_amsdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "amsdokument", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_anzahl_tage", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anzahl_tage", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_elektronisch", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_physisch", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_cold_ersetzen", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_ersetzen", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_cold_folder", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_folder", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dbearbeitungszeit", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dbearbeitungszeit", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldausgang", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldeingang", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_host", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_host", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_kundendossier", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_nativ", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_nativ", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_neuerstellung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_retournierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_retournierung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_weitere", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_weitere", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus_barcode", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus_barcode", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingang_ersetzt_ausgang", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_email_versand", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email_versand", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionen_zuweisen", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionen_zuweisen", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokument", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokumenttyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "monate_bis_zur_archivierung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nurnative", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nurnative", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_objektbezeichnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "objektbezeichnungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_office_vorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlagenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnersaldierung_statusalt", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_physisches_archiv", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "physisches_archiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prozessnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prozessnr1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr1", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tage_mutation", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tage_mutation", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_links", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_links", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_rechts", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_rechts", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vertrag", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrag", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrauliches_dokument", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_wird_importiert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_importiert", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_nicht_geloescht", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zu_retournieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_retournieren", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zu_vercolden", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_vercolden", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_dokumenttyp_nl_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zu_vercolden", System.Data.SqlDbType.Bit, 1, "zu_vercolden"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zu_retournieren", System.Data.SqlDbType.Bit, 1, "zu_retournieren"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, "eingang_ersetzt_ausgang"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_importiert", System.Data.SqlDbType.Bit, 1, "wird_importiert"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@anzahl_tage", System.Data.SqlDbType.Int, 4, "anzahl_tage"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dbearbeitungszeit", System.Data.SqlDbType.Int, 4, "dbearbeitungszeit"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tage_mutation", System.Data.SqlDbType.Int, 4, "tage_mutation"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, "partnersaldierung_statusalt"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, "wird_nicht_geloescht"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, "vertrauliches_dokument"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_links", System.Data.SqlDbType.Bit, 1, "unterschrift_links"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_rechts", System.Data.SqlDbType.Bit, 1, "unterschrift_rechts"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, "monate_bis_zur_archivierung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_elektronisch"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_physisch"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, "dokumentart_kundendossier"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, "dokumentart_neuerstellung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_retournierung", System.Data.SqlDbType.Int, 4, "dokumentart_retournierung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, "dokumentart_coldausgang"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, "dokumentart_coldeingang"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_host", System.Data.SqlDbType.Int, 4, "dokumentart_host"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_weitere", System.Data.SqlDbType.Int, 4, "dokumentart_weitere"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_nativ", System.Data.SqlDbType.Int, 4, "dokumentart_nativ"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr", System.Data.SqlDbType.Int, 4, "prozessnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr1", System.Data.SqlDbType.Int, 4, "prozessnr1"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@amsdokument", System.Data.SqlDbType.Bit, 1, "amsdokument"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokument", System.Data.SqlDbType.Bit, 1, "hostdokument"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, "hostdokumenttyp"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_folder", System.Data.SqlDbType.Int, 4, "cold_folder"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@physisches_archiv", System.Data.SqlDbType.Int, 4, "physisches_archiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatus", System.Data.SqlDbType.Int, 4, "dokumentstatus"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, "Dokument_wird_erstellt"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, "Dokument_wird_retourniert"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_ersetzen", System.Data.SqlDbType.Bit, 1, "cold_ersetzen"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@email_versand", System.Data.SqlDbType.Bit, 1, "email_versand"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionen_zuweisen", System.Data.SqlDbType.Bit, 1, "funktionen_zuweisen"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatus_barcode", System.Data.SqlDbType.Int, 4, "dokumentstatus_barcode"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nurnative", System.Data.SqlDbType.Bit, 1, "nurnative"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Owner", System.Data.SqlDbType.Int, 4, "Owner"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertrag", System.Data.SqlDbType.Bit, 1, "vertrag"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@objektbezeichnungnr", System.Data.SqlDbType.Int, 4, "objektbezeichnungnr"))
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_dokumenttyp_nl_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pv_dokumenttyp_nl_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zu_vercolden", System.Data.SqlDbType.Bit, 1, "zu_vercolden"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zu_retournieren", System.Data.SqlDbType.Bit, 1, "zu_retournieren"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, "eingang_ersetzt_ausgang"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_importiert", System.Data.SqlDbType.Bit, 1, "wird_importiert"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@anzahl_tage", System.Data.SqlDbType.Int, 4, "anzahl_tage"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dbearbeitungszeit", System.Data.SqlDbType.Int, 4, "dbearbeitungszeit"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tage_mutation", System.Data.SqlDbType.Int, 4, "tage_mutation"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, "partnersaldierung_statusalt"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, "wird_nicht_geloescht"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, "vertrauliches_dokument"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_links", System.Data.SqlDbType.Bit, 1, "unterschrift_links"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_rechts", System.Data.SqlDbType.Bit, 1, "unterschrift_rechts"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, "monate_bis_zur_archivierung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_elektronisch"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_physisch"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, "dokumentart_kundendossier"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, "dokumentart_neuerstellung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_retournierung", System.Data.SqlDbType.Int, 4, "dokumentart_retournierung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, "dokumentart_coldausgang"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, "dokumentart_coldeingang"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_host", System.Data.SqlDbType.Int, 4, "dokumentart_host"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_weitere", System.Data.SqlDbType.Int, 4, "dokumentart_weitere"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_nativ", System.Data.SqlDbType.Int, 4, "dokumentart_nativ"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr", System.Data.SqlDbType.Int, 4, "prozessnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr1", System.Data.SqlDbType.Int, 4, "prozessnr1"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@amsdokument", System.Data.SqlDbType.Bit, 1, "amsdokument"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokument", System.Data.SqlDbType.Bit, 1, "hostdokument"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, "hostdokumenttyp"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_folder", System.Data.SqlDbType.Int, 4, "cold_folder"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@physisches_archiv", System.Data.SqlDbType.Int, 4, "physisches_archiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatus", System.Data.SqlDbType.Int, 4, "dokumentstatus"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, "Dokument_wird_erstellt"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, "Dokument_wird_retourniert"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_ersetzen", System.Data.SqlDbType.Bit, 1, "cold_ersetzen"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@email_versand", System.Data.SqlDbType.Bit, 1, "email_versand"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionen_zuweisen", System.Data.SqlDbType.Bit, 1, "funktionen_zuweisen"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatus_barcode", System.Data.SqlDbType.Int, 4, "dokumentstatus_barcode"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nurnative", System.Data.SqlDbType.Bit, 1, "nurnative"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Owner", System.Data.SqlDbType.Int, 4, "Owner"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertrag", System.Data.SqlDbType.Bit, 1, "vertrag"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@objektbezeichnungnr", System.Data.SqlDbType.Int, 4, "objektbezeichnungnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_erstellt", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_retourniert", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Owner", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Owner", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_amsdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "amsdokument", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_anzahl_tage", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anzahl_tage", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_elektronisch", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_physisch", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_cold_ersetzen", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_ersetzen", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_cold_folder", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_folder", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dbearbeitungszeit", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dbearbeitungszeit", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldausgang", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldeingang", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_host", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_host", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_kundendossier", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_nativ", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_nativ", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_neuerstellung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_retournierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_retournierung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_weitere", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_weitere", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus_barcode", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus_barcode", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingang_ersetzt_ausgang", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_email_versand", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email_versand", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionen_zuweisen", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionen_zuweisen", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokument", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokumenttyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "monate_bis_zur_archivierung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nurnative", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nurnative", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_objektbezeichnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "objektbezeichnungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_office_vorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlagenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnersaldierung_statusalt", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_physisches_archiv", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "physisches_archiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prozessnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prozessnr1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr1", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tage_mutation", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tage_mutation", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_links", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_links", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_rechts", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_rechts", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vertrag", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrag", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrauliches_dokument", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_wird_importiert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_importiert", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_nicht_geloescht", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zu_retournieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_retournieren", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zu_vercolden", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_vercolden", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "nldokumenttyp", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("nldokumenttypnr", "nldokumenttypnr"), New System.Data.Common.DataColumnMapping("niederlassungnr", "niederlassungnr"), New System.Data.Common.DataColumnMapping("dokumenttypnr", "dokumenttypnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
||||
'
|
||||
'SqlDeleteCommand3
|
||||
'
|
||||
Me.SqlDeleteCommand3.CommandText = "[pv_nldokumenttyp_delete]"
|
||||
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nldokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nldokumenttypnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_niederlassungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "niederlassungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand3
|
||||
'
|
||||
Me.SqlInsertCommand3.CommandText = "[pv_nldokumenttyp_insert]"
|
||||
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nldokumenttypnr", System.Data.SqlDbType.Int, 4, "nldokumenttypnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@niederlassungnr", System.Data.SqlDbType.Int, 4, "niederlassungnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_nldokumenttyp_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand3
|
||||
'
|
||||
Me.SqlUpdateCommand3.CommandText = "[pv_nldokumenttyp_update]"
|
||||
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nldokumenttypnr", System.Data.SqlDbType.Int, 4, "nldokumenttypnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@niederlassungnr", System.Data.SqlDbType.Int, 4, "niederlassungnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nldokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nldokumenttypnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_niederlassungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "niederlassungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmNLDokumente
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(600, 509)
|
||||
Me.Name = "frmNLDokumente"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim i As Integer
|
||||
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
Me.TBLeft.DataMember = Me.TableNameLeft
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
Me.TBRight.DataMember = Me.TableNameRight
|
||||
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
UpdateGrpText(5045, 5046, 5047)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
Me.TBBottom.DataMember = Me.TableNameBottom
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsNldokumenttyp()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim Currentsel As Boolean
|
||||
Dim key As Long
|
||||
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
ic = ic + 1
|
||||
Currentsel = True
|
||||
End If
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
If Me.FokusLeft.Checked Then
|
||||
vdata.iNiederlassungnr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If Currentsel Then
|
||||
vdata.iDokumenttypnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iDokumenttypnr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If Currentsel Then
|
||||
vdata.iNiederlassungnr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iNiederlassungnr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
|
||||
vdata.iDokumenttypnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("nldokumenttyp")
|
||||
vdata.iNldokumenttypnr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
|
||||
Private Sub frmRolle_SysadminFunktion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Cursor.Current = Cursors.WaitCursor
|
||||
Me.TableNameLeft = "niederlassung"
|
||||
Me.TableNameRight = "dokumenttyp"
|
||||
Me.TableNameBottom = "nldokumenttyp"
|
||||
LoadData()
|
||||
Cursor.Current = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,284 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBarButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBarBtnSave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>291, 30</value>
|
||||
</data>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
|
||||
AAAICQAAAk1TRnQBSQFMAgEBAgEAAQQBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
|
||||
AAEoAwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
|
||||
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
|
||||
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
|
||||
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
|
||||
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
|
||||
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
|
||||
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
|
||||
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
|
||||
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
|
||||
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
|
||||
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
|
||||
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
|
||||
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
|
||||
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
|
||||
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
|
||||
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
|
||||
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
|
||||
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
|
||||
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
|
||||
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
|
||||
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
|
||||
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
|
||||
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
|
||||
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
|
||||
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
|
||||
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
|
||||
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
|
||||
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/xEAEAImAAEDAf8I
|
||||
AAICDQABAiQAAewBAwHsAf8IAAECAQACAwYAAgcBAAEDAQABAiIAAQMB7AEDAewBAwH/CAABAgEAAgMG
|
||||
AAIHAQABAwEAAQIhAAEDAewBAwHsAQMB7AH/AQAB7AYAAQIBAAIDBgACBwEAAQMBAAECIQAB7AEDAewB
|
||||
AwHsAQMB/wEAAewGAAECAQACAwkAAQMBAAECIQABAwHsAQMCAAHsAf8BAAHsBgABAgEADAMBAAECIQAB
|
||||
7AEDAewCBwEDAf8BAAHsAQABBgQAAQIBAAIDCAACAwEAAQIhAAEDAewBAwHsAQMB7AH/AgABBgX+AQIB
|
||||
AAEDAQAIBwEAAQMBAAECIQAB7AEDAewBAwHsAQMB/wEAAW0G/gECAQABAwEACAcBAAEDAQABAiEAAQMB
|
||||
7AEDAewBAwHsAf8BAAHsAW0B/gRtAQIBAAEDAQAIBwEAAQMBAAECIQAB7AEDAewBAwHsAQMB/wEAAewB
|
||||
AAJtAwABAgEAAQMBAAgHAQABAwEAAQIhAAEDAewBAwHsAQcB/wHsAQAB7AIAAW0DAAECAQABAwEACAcD
|
||||
AAECIQAB7AEDAQcB/wHsAQAD7AYAAQIBAAEDAQAIBwEAAQcBAAECIQABBwH/AewBAAXsBgABAg4AAQIw
|
||||
ABACIAABQgFNAT4HAAE+AwABKAMAAUADAAEQAwABAQEAAQEFAAGAFwAD/wEAAfwBfwYAAfABfwYAAcAB
|
||||
fwcAAR8HAAEfBwABFwcAAQcnAAEHBwABFwcAAR8HAAEfBwABHxwACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="Panel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GrpRight.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TBRight.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Splitter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GrpLeft.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TBLeft.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images1" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Splitter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GrpFocus.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="FokusRight.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="FokusLeft.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GrpBottom.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TBBottom.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images2" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Panel5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="BtnConnect.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MainMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="MainMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmRelEditor</value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAA8PDwAP///wBLCrgAAAD/AP8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQEBAQEAAAFBQUFBQAAAAQBAQEBAgQFAgEBAQEFAAQB
|
||||
AQQAAAAAAAAAAAUBAQUEAQQAAAIBAQEBAgAABQEFBAEBBAAAAAAAAAAABQEBBQAEAQEBAQIEBQIBAQEB
|
||||
BQAAAAQEBAQEAAAFBQUFBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//AAD//wAA//8AAP//AAD//wAAwYMAAIABAAAAAAAAEAgAAAAA
|
||||
AACAAQAAwYMAAP//AAD//wAA//8AAP//AAA=
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,886 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Drawing
|
||||
Imports System.Drawing.Color
|
||||
Imports System.ComponentModel
|
||||
Namespace EDOKA
|
||||
Public Class frmRelEditor
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
|
||||
Friend WithEvents Splitter2 As System.Windows.Forms.Splitter
|
||||
Friend WithEvents TBLeft As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents GrpFocus As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents FokusRight As System.Windows.Forms.RadioButton
|
||||
Friend WithEvents FokusLeft As System.Windows.Forms.RadioButton
|
||||
Friend WithEvents GrpRight As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents GrpLeft As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Panel3 As System.Windows.Forms.Panel
|
||||
Friend WithEvents TBRight As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents Panel4 As System.Windows.Forms.Panel
|
||||
Friend WithEvents Panel5 As System.Windows.Forms.Panel
|
||||
Friend WithEvents TBBottom As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents GrpBottom As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents BtnConnect As System.Windows.Forms.Button
|
||||
Friend WithEvents ToolBarBtnSave As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
|
||||
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmRelEditor))
|
||||
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
||||
Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
||||
Dim GridLines3 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
||||
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
|
||||
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
|
||||
Me.ToolBarBtnSave = New System.Windows.Forms.ToolBarButton()
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.GrpRight = New System.Windows.Forms.GroupBox()
|
||||
Me.TBRight = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.Splitter1 = New System.Windows.Forms.Splitter()
|
||||
Me.GrpLeft = New System.Windows.Forms.GroupBox()
|
||||
Me.TBLeft = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.Splitter2 = New System.Windows.Forms.Splitter()
|
||||
Me.GrpFocus = New System.Windows.Forms.GroupBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.FokusRight = New System.Windows.Forms.RadioButton()
|
||||
Me.FokusLeft = New System.Windows.Forms.RadioButton()
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.GrpBottom = New System.Windows.Forms.GroupBox()
|
||||
Me.TBBottom = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.Panel5 = New System.Windows.Forms.Panel()
|
||||
Me.BtnConnect = New System.Windows.Forms.Button()
|
||||
Me.Panel4 = New System.Windows.Forms.Panel()
|
||||
Me.MainMenu1 = New System.Windows.Forms.MainMenu()
|
||||
Me.MenuItem1 = New System.Windows.Forms.MenuItem()
|
||||
Me.MenuItem3 = New System.Windows.Forms.MenuItem()
|
||||
Me.MenuItem2 = New System.Windows.Forms.MenuItem()
|
||||
Me.Panel2.SuspendLayout()
|
||||
Me.GrpRight.SuspendLayout()
|
||||
CType(Me.TBRight, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GrpLeft.SuspendLayout()
|
||||
CType(Me.TBLeft, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GrpFocus.SuspendLayout()
|
||||
Me.Panel3.SuspendLayout()
|
||||
Me.GrpBottom.SuspendLayout()
|
||||
CType(Me.TBBottom, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel5.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolBar1
|
||||
'
|
||||
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarBtnSave})
|
||||
Me.ToolBar1.DropDownArrows = True
|
||||
Me.ToolBar1.ImageList = Me.ImageList1
|
||||
Me.ToolBar1.Name = "ToolBar1"
|
||||
Me.ToolBar1.ShowToolTips = True
|
||||
Me.ToolBar1.Size = New System.Drawing.Size(712, 25)
|
||||
Me.ToolBar1.TabIndex = 0
|
||||
'
|
||||
'ToolBarButton1
|
||||
'
|
||||
Me.ToolBarButton1.ImageIndex = 0
|
||||
'
|
||||
'ToolBarBtnSave
|
||||
'
|
||||
Me.ToolBarBtnSave.ImageIndex = 1
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
||||
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 25)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(712, 16)
|
||||
Me.Panel1.TabIndex = 1
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.GrpRight, Me.Splitter1, Me.GrpLeft})
|
||||
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel2.Location = New System.Drawing.Point(0, 41)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(712, 199)
|
||||
Me.Panel2.TabIndex = 2
|
||||
'
|
||||
'GrpRight
|
||||
'
|
||||
Me.GrpRight.Controls.AddRange(New System.Windows.Forms.Control() {Me.TBRight})
|
||||
Me.GrpRight.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GrpRight.Location = New System.Drawing.Point(315, 0)
|
||||
Me.GrpRight.Name = "GrpRight"
|
||||
Me.GrpRight.Size = New System.Drawing.Size(397, 199)
|
||||
Me.GrpRight.TabIndex = 2
|
||||
Me.GrpRight.TabStop = False
|
||||
Me.GrpRight.Text = "GroupBox2"
|
||||
'
|
||||
'TBRight
|
||||
'
|
||||
Me.TBRight.AllowFilter = True
|
||||
Me.TBRight.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.TBRight.AllowSort = True
|
||||
Me.TBRight.AllowUpdate = False
|
||||
Me.TBRight.AlternatingRows = True
|
||||
Me.TBRight.CaptionHeight = 17
|
||||
Me.TBRight.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
||||
Me.TBRight.CollapseColor = System.Drawing.Color.Black
|
||||
Me.TBRight.DataChanged = False
|
||||
Me.TBRight.DeadAreaBackColor = System.Drawing.Color.Gray
|
||||
Me.TBRight.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TBRight.ExpandColor = System.Drawing.Color.Black
|
||||
Me.TBRight.FilterBar = True
|
||||
Me.TBRight.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.TBRight.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
||||
Me.TBRight.Location = New System.Drawing.Point(3, 16)
|
||||
Me.TBRight.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
||||
Me.TBRight.Name = "TBRight"
|
||||
Me.TBRight.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.TBRight.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.TBRight.PreviewInfo.ZoomFactor = 75
|
||||
Me.TBRight.PrintInfo.ShowOptionsDialog = False
|
||||
Me.TBRight.RecordSelectorWidth = 16
|
||||
GridLines1.Color = System.Drawing.Color.DarkGray
|
||||
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
||||
Me.TBRight.RowDivider = GridLines1
|
||||
Me.TBRight.RowHeight = 15
|
||||
Me.TBRight.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.TBRight.ScrollTips = False
|
||||
Me.TBRight.Size = New System.Drawing.Size(391, 180)
|
||||
Me.TBRight.TabIndex = 8
|
||||
Me.TBRight.Text = "C1TrueDBGrid1"
|
||||
Me.TBRight.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
||||
"r""><Data>Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}E" & _
|
||||
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
||||
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
||||
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
||||
"r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
|
||||
"lor:Highlight;}Style9{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
|
||||
":Center;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:" & _
|
||||
"ControlText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
|
||||
"}Style13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
|
||||
" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
|
||||
"oterHeight=""17"" FilterBar=""True"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWi" & _
|
||||
"dth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><" & _
|
||||
"ClientRect>0, 0, 387, 176</ClientRect><BorderSide>0</BorderSide><CaptionStyle pa" & _
|
||||
"rent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRow" & _
|
||||
"Style parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Styl" & _
|
||||
"e13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=" & _
|
||||
"""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle pare" & _
|
||||
"nt=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><" & _
|
||||
"OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSel" & _
|
||||
"ector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style pare" & _
|
||||
"nt=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles>" & _
|
||||
"<Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style pare" & _
|
||||
"nt=""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=""Headi" & _
|
||||
"ng"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=" & _
|
||||
"""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</ho" & _
|
||||
"rzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><Client" & _
|
||||
"Area>0, 0, 387, 176</ClientArea></Blob>"
|
||||
'
|
||||
'Splitter1
|
||||
'
|
||||
Me.Splitter1.Location = New System.Drawing.Point(312, 0)
|
||||
Me.Splitter1.Name = "Splitter1"
|
||||
Me.Splitter1.Size = New System.Drawing.Size(3, 199)
|
||||
Me.Splitter1.TabIndex = 1
|
||||
Me.Splitter1.TabStop = False
|
||||
'
|
||||
'GrpLeft
|
||||
'
|
||||
Me.GrpLeft.Controls.AddRange(New System.Windows.Forms.Control() {Me.TBLeft})
|
||||
Me.GrpLeft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.GrpLeft.Name = "GrpLeft"
|
||||
Me.GrpLeft.Size = New System.Drawing.Size(312, 199)
|
||||
Me.GrpLeft.TabIndex = 0
|
||||
Me.GrpLeft.TabStop = False
|
||||
Me.GrpLeft.Text = "GroupBox1"
|
||||
'
|
||||
'TBLeft
|
||||
'
|
||||
Me.TBLeft.AllowFilter = True
|
||||
Me.TBLeft.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.TBLeft.AllowSort = True
|
||||
Me.TBLeft.AllowUpdate = False
|
||||
Me.TBLeft.AlternatingRows = True
|
||||
Me.TBLeft.CaptionHeight = 17
|
||||
Me.TBLeft.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
||||
Me.TBLeft.CollapseColor = System.Drawing.Color.Black
|
||||
Me.TBLeft.DataChanged = False
|
||||
Me.TBLeft.DeadAreaBackColor = System.Drawing.Color.Gray
|
||||
Me.TBLeft.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TBLeft.ExpandColor = System.Drawing.Color.Black
|
||||
Me.TBLeft.FilterBar = True
|
||||
Me.TBLeft.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.TBLeft.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
|
||||
Me.TBLeft.Location = New System.Drawing.Point(3, 16)
|
||||
Me.TBLeft.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
||||
Me.TBLeft.Name = "TBLeft"
|
||||
Me.TBLeft.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.TBLeft.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.TBLeft.PreviewInfo.ZoomFactor = 75
|
||||
Me.TBLeft.PrintInfo.ShowOptionsDialog = False
|
||||
Me.TBLeft.RecordSelectorWidth = 16
|
||||
GridLines2.Color = System.Drawing.Color.DarkGray
|
||||
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
||||
Me.TBLeft.RowDivider = GridLines2
|
||||
Me.TBLeft.RowHeight = 15
|
||||
Me.TBLeft.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.TBLeft.ScrollTips = False
|
||||
Me.TBLeft.Size = New System.Drawing.Size(306, 180)
|
||||
Me.TBLeft.TabIndex = 8
|
||||
Me.TBLeft.Text = "C1TrueDBGrid1"
|
||||
Me.TBLeft.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
||||
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
||||
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
||||
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
||||
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
||||
"r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
|
||||
"lor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
|
||||
":Center;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor" & _
|
||||
":ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
|
||||
"}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
|
||||
" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
|
||||
"oterHeight=""17"" FilterBar=""True"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWi" & _
|
||||
"dth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><" & _
|
||||
"ClientRect>0, 0, 302, 176</ClientRect><BorderSide>0</BorderSide><CaptionStyle pa" & _
|
||||
"rent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRow" & _
|
||||
"Style parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Styl" & _
|
||||
"e13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=" & _
|
||||
"""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle pare" & _
|
||||
"nt=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><" & _
|
||||
"OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSel" & _
|
||||
"ector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style pare" & _
|
||||
"nt=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles>" & _
|
||||
"<Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style pare" & _
|
||||
"nt=""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=""Headi" & _
|
||||
"ng"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=" & _
|
||||
"""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</ho" & _
|
||||
"rzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><Client" & _
|
||||
"Area>0, 0, 302, 176</ClientArea></Blob>"
|
||||
'
|
||||
'Splitter2
|
||||
'
|
||||
Me.Splitter2.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Splitter2.Location = New System.Drawing.Point(0, 240)
|
||||
Me.Splitter2.Name = "Splitter2"
|
||||
Me.Splitter2.Size = New System.Drawing.Size(712, 3)
|
||||
Me.Splitter2.TabIndex = 3
|
||||
Me.Splitter2.TabStop = False
|
||||
'
|
||||
'GrpFocus
|
||||
'
|
||||
Me.GrpFocus.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.FokusRight, Me.FokusLeft})
|
||||
Me.GrpFocus.Location = New System.Drawing.Point(216, 0)
|
||||
Me.GrpFocus.Name = "GrpFocus"
|
||||
Me.GrpFocus.Size = New System.Drawing.Size(200, 32)
|
||||
Me.GrpFocus.TabIndex = 17
|
||||
Me.GrpFocus.TabStop = False
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Location = New System.Drawing.Point(78, 13)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(48, 16)
|
||||
Me.Label1.TabIndex = 2
|
||||
Me.Label1.Text = "Fokus"
|
||||
'
|
||||
'FokusRight
|
||||
'
|
||||
Me.FokusRight.Location = New System.Drawing.Point(176, 12)
|
||||
Me.FokusRight.Name = "FokusRight"
|
||||
Me.FokusRight.Size = New System.Drawing.Size(16, 16)
|
||||
Me.FokusRight.TabIndex = 1
|
||||
'
|
||||
'FokusLeft
|
||||
'
|
||||
Me.FokusLeft.Location = New System.Drawing.Point(9, 13)
|
||||
Me.FokusLeft.Name = "FokusLeft"
|
||||
Me.FokusLeft.Size = New System.Drawing.Size(104, 16)
|
||||
Me.FokusLeft.TabIndex = 0
|
||||
'
|
||||
'Panel3
|
||||
'
|
||||
Me.Panel3.Controls.AddRange(New System.Windows.Forms.Control() {Me.GrpBottom, Me.Panel5, Me.Panel4})
|
||||
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel3.Location = New System.Drawing.Point(0, 243)
|
||||
Me.Panel3.Name = "Panel3"
|
||||
Me.Panel3.Size = New System.Drawing.Size(712, 262)
|
||||
Me.Panel3.TabIndex = 18
|
||||
'
|
||||
'GrpBottom
|
||||
'
|
||||
Me.GrpBottom.Controls.AddRange(New System.Windows.Forms.Control() {Me.TBBottom})
|
||||
Me.GrpBottom.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.GrpBottom.Location = New System.Drawing.Point(0, 40)
|
||||
Me.GrpBottom.Name = "GrpBottom"
|
||||
Me.GrpBottom.Size = New System.Drawing.Size(712, 182)
|
||||
Me.GrpBottom.TabIndex = 2
|
||||
Me.GrpBottom.TabStop = False
|
||||
Me.GrpBottom.Text = "GroupBox1"
|
||||
'
|
||||
'TBBottom
|
||||
'
|
||||
Me.TBBottom.AllowFilter = True
|
||||
Me.TBBottom.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.TBBottom.AllowSort = True
|
||||
Me.TBBottom.AlternatingRows = True
|
||||
Me.TBBottom.CaptionHeight = 17
|
||||
Me.TBBottom.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
||||
Me.TBBottom.CollapseColor = System.Drawing.Color.Black
|
||||
Me.TBBottom.DataChanged = False
|
||||
Me.TBBottom.DeadAreaBackColor = System.Drawing.Color.Gray
|
||||
Me.TBBottom.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TBBottom.ExpandColor = System.Drawing.Color.Black
|
||||
Me.TBBottom.FilterBar = True
|
||||
Me.TBBottom.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.TBBottom.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
|
||||
Me.TBBottom.Location = New System.Drawing.Point(3, 16)
|
||||
Me.TBBottom.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
||||
Me.TBBottom.Name = "TBBottom"
|
||||
Me.TBBottom.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.TBBottom.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.TBBottom.PreviewInfo.ZoomFactor = 75
|
||||
Me.TBBottom.PrintInfo.ShowOptionsDialog = False
|
||||
Me.TBBottom.RecordSelectorWidth = 16
|
||||
GridLines3.Color = System.Drawing.Color.DarkGray
|
||||
GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
||||
Me.TBBottom.RowDivider = GridLines3
|
||||
Me.TBBottom.RowHeight = 15
|
||||
Me.TBBottom.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.TBBottom.ScrollTips = False
|
||||
Me.TBBottom.Size = New System.Drawing.Size(706, 163)
|
||||
Me.TBBottom.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.TBBottom.TabIndex = 9
|
||||
Me.TBBottom.Text = "C1TrueDBGrid1"
|
||||
Me.TBBottom.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
||||
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
||||
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
|
||||
"{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
|
||||
"eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
|
||||
"r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
|
||||
"lor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
|
||||
":Center;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor" & _
|
||||
":ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
|
||||
"}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
|
||||
" AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
|
||||
"oterHeight=""17"" FilterBar=""True"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWi" & _
|
||||
"dth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><" & _
|
||||
"ClientRect>0, 0, 702, 159</ClientRect><BorderSide>0</BorderSide><CaptionStyle pa" & _
|
||||
"rent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRow" & _
|
||||
"Style parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Styl" & _
|
||||
"e13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=" & _
|
||||
"""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle pare" & _
|
||||
"nt=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><" & _
|
||||
"OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSel" & _
|
||||
"ector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style pare" & _
|
||||
"nt=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles>" & _
|
||||
"<Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style pare" & _
|
||||
"nt=""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=""Headi" & _
|
||||
"ng"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=" & _
|
||||
"""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</ho" & _
|
||||
"rzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><Client" & _
|
||||
"Area>0, 0, 702, 159</ClientArea></Blob>"
|
||||
'
|
||||
'Panel5
|
||||
'
|
||||
Me.Panel5.Controls.AddRange(New System.Windows.Forms.Control() {Me.BtnConnect})
|
||||
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel5.Name = "Panel5"
|
||||
Me.Panel5.Size = New System.Drawing.Size(712, 40)
|
||||
Me.Panel5.TabIndex = 1
|
||||
'
|
||||
'BtnConnect
|
||||
'
|
||||
Me.BtnConnect.Location = New System.Drawing.Point(288, 8)
|
||||
Me.BtnConnect.Name = "BtnConnect"
|
||||
Me.BtnConnect.TabIndex = 0
|
||||
Me.BtnConnect.Text = "&Verbinden"
|
||||
'
|
||||
'Panel4
|
||||
'
|
||||
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.Panel4.Location = New System.Drawing.Point(0, 222)
|
||||
Me.Panel4.Name = "Panel4"
|
||||
Me.Panel4.Size = New System.Drawing.Size(712, 40)
|
||||
Me.Panel4.TabIndex = 0
|
||||
'
|
||||
'MainMenu1
|
||||
'
|
||||
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
|
||||
'
|
||||
'MenuItem1
|
||||
'
|
||||
Me.MenuItem1.Index = 0
|
||||
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem3, Me.MenuItem2})
|
||||
Me.MenuItem1.MergeOrder = 1
|
||||
Me.MenuItem1.MergeType = System.Windows.Forms.MenuMerge.Replace
|
||||
Me.MenuItem1.Shortcut = System.Windows.Forms.Shortcut.F4
|
||||
Me.MenuItem1.Text = "&Datei"
|
||||
'
|
||||
'MenuItem3
|
||||
'
|
||||
Me.MenuItem3.Index = 0
|
||||
Me.MenuItem3.Shortcut = System.Windows.Forms.Shortcut.CtrlF5
|
||||
Me.MenuItem3.Text = "&Daten sichern"
|
||||
'
|
||||
'MenuItem2
|
||||
'
|
||||
Me.MenuItem2.Index = 1
|
||||
Me.MenuItem2.Shortcut = System.Windows.Forms.Shortcut.AltF4
|
||||
Me.MenuItem2.Text = "&Schliessen"
|
||||
'
|
||||
'frmRelEditor
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(712, 505)
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel3, Me.GrpFocus, Me.Splitter2, Me.Panel2, Me.Panel1, Me.ToolBar1})
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Menu = Me.MainMenu1
|
||||
Me.Name = "frmRelEditor"
|
||||
Me.Text = "frmRelEditor"
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.GrpRight.ResumeLayout(False)
|
||||
CType(Me.TBRight, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.GrpLeft.ResumeLayout(False)
|
||||
CType(Me.TBLeft, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.GrpFocus.ResumeLayout(False)
|
||||
Me.Panel3.ResumeLayout(False)
|
||||
Me.GrpBottom.ResumeLayout(False)
|
||||
CType(Me.TBBottom, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel5.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Dim m_TableNameLeft As String
|
||||
Dim m_TableNameRight As String
|
||||
Dim m_TableNameBottom As String
|
||||
Dim m_KeyLeft As Long
|
||||
Dim m_KeyRight As Long
|
||||
Dim m_Eintrag As String
|
||||
Dim m_Eintragnr As Long
|
||||
|
||||
|
||||
#Region "Properties"
|
||||
|
||||
Property TableNameLeft() As String
|
||||
Get
|
||||
Return m_TableNameLeft
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_TableNameLeft = Value
|
||||
End Set
|
||||
End Property
|
||||
Property TableNameRight() As String
|
||||
Get
|
||||
Return m_TableNameRight
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_TableNameRight = Value
|
||||
End Set
|
||||
End Property
|
||||
Property TableNameBottom() As String
|
||||
Get
|
||||
Return m_TableNameBottom
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_TableNameBottom = Value
|
||||
End Set
|
||||
End Property
|
||||
Property KeyLeft() As Long
|
||||
Get
|
||||
Return m_KeyLeft
|
||||
End Get
|
||||
Set(ByVal Value As Long)
|
||||
m_KeyLeft = Value
|
||||
End Set
|
||||
End Property
|
||||
Property KeyRight() As Long
|
||||
Get
|
||||
Return m_KeyRight
|
||||
End Get
|
||||
Set(ByVal Value As Long)
|
||||
m_KeyRight = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Eintrag() As String
|
||||
Get
|
||||
Return m_Eintrag
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_Eintrag = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Eintragnr() As Long
|
||||
Get
|
||||
Return m_Eintragnr
|
||||
End Get
|
||||
Set(ByVal Value As Long)
|
||||
m_Eintragnr = Value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
#Region "Spalten-Formatierung"
|
||||
Public Sub SpaltenTitel_Aktualisieren(ByVal tblnr As Integer, ByVal tblname As String, ByVal ds As DataSet)
|
||||
'Spaltentitel setzen
|
||||
Dim titel As New EDOKA.MySpaltenTitel()
|
||||
Dim ts As New EDOKA.Tabellenspalte()
|
||||
Dim i As Integer
|
||||
Dim t As New DataTable()
|
||||
t = ds.Tables(0)
|
||||
If tblnr = 1 Then
|
||||
ts.Tabelle = tblname
|
||||
For i = 0 To Me.TBLeft.Columns.Count - 1
|
||||
Dim s As String
|
||||
s = Me.TBLeft.Columns(i).DataField
|
||||
ts.Feld = s
|
||||
ts.getspalte()
|
||||
If ts.spaltenname <> "" Then
|
||||
Me.TBLeft.Columns(i).Caption = ts.spaltenname
|
||||
|
||||
If ts.ColWith = 0 Then
|
||||
Me.TBLeft.Splits(0).DisplayColumns(i).Width = 0
|
||||
Me.TBLeft.Splits(0).DisplayColumns(i).Visible = False
|
||||
Else
|
||||
Me.TBLeft.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
End If
|
||||
|
||||
'If Me.TBLeft.Columns(i).Caption = "" Then
|
||||
' Me.TBLeft.Splits(0).DisplayColumns(i).Width = 0
|
||||
'Else
|
||||
' Me.TBLeft.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
'End If
|
||||
If ts.locked Then
|
||||
Me.TBLeft.Splits(0).DisplayColumns(i).Locked = True
|
||||
End If
|
||||
If ts.AlsHacken Then
|
||||
Me.TBLeft.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
End If
|
||||
'Präsentation von aktiv
|
||||
If Me.TBLeft.Columns(i).DataField = "aktiv" Then
|
||||
Me.TBLeft.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.TBLeft.Columns(i).ValueItems.DefaultItem = True
|
||||
Me.TBLeft.Columns(i).DefaultValue = True
|
||||
Me.TBLeft.Columns(i).FilterText = True
|
||||
End If
|
||||
If Me.TBLeft.Columns(i).DataField = "erstellt_am" Then
|
||||
Me.TBLeft.Columns(i).DefaultValue = Now
|
||||
End If
|
||||
Else
|
||||
Me.TBLeft.Splits(0).DisplayColumns(i).Width = 0
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
If tblnr = 2 Then
|
||||
ts.Tabelle = tblname
|
||||
For i = 0 To Me.TBRight.Columns.Count - 1
|
||||
Dim s As String
|
||||
s = Me.TBRight.Columns(i).DataField
|
||||
ts.Feld = s
|
||||
ts.getspalte()
|
||||
Me.TBRight.Columns(i).Caption = ts.spaltenname
|
||||
If ts.ColWith = 0 Then
|
||||
Me.TBRight.Splits(0).DisplayColumns(i).Width = 0
|
||||
Me.TBRight.Splits(0).DisplayColumns(i).Visible = False
|
||||
Else
|
||||
Me.TBRight.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
End If
|
||||
|
||||
'If Me.TBRight.Columns(i).Caption = "" Then
|
||||
' Me.TBRight.Splits(0).DisplayColumns(i).Width = 0
|
||||
'Else
|
||||
' Me.TBRight.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
'End If
|
||||
If ts.locked Then
|
||||
Me.TBRight.Splits(0).DisplayColumns(i).Locked = True
|
||||
End If
|
||||
If ts.AlsHacken Then
|
||||
Me.TBRight.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
End If
|
||||
|
||||
'Präsentation von aktiv
|
||||
If Me.TBRight.Columns(i).DataField = "aktiv" Then
|
||||
Me.TBRight.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.TBRight.Columns(i).ValueItems.DefaultItem = True
|
||||
Me.TBRight.Columns(i).DefaultValue = True
|
||||
Me.TBRight.Columns(i).FilterText = True
|
||||
End If
|
||||
If Me.TBRight.Columns(i).DataField = "erstellt_am" Then
|
||||
Me.TBRight.Columns(i).DefaultValue = Now
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
If tblnr = 3 Then
|
||||
ts.Tabelle = tblname
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
Dim s As String
|
||||
s = Me.TBBottom.Columns(i).DataField
|
||||
ts.Feld = s
|
||||
ts.getspalte()
|
||||
Me.TBBottom.Columns(i).Caption = ts.spaltenname
|
||||
|
||||
If ts.ColWith = 0 Then
|
||||
Me.TBBottom.Splits(0).DisplayColumns(i).Width = 0
|
||||
Me.TBBottom.Splits(0).DisplayColumns(i).Visible = False
|
||||
Else
|
||||
Me.TBBottom.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
End If
|
||||
'If Me.TBBottom.Columns(i).Caption = "" Then
|
||||
' Me.TBBottom.Splits(0).DisplayColumns(i).Width = 0
|
||||
'Else
|
||||
' Me.TBBottom.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
'End If
|
||||
If ts.locked Then
|
||||
Me.TBBottom.Splits(0).DisplayColumns(i).Locked = True
|
||||
End If
|
||||
If ts.AlsHacken Then
|
||||
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
End If
|
||||
|
||||
|
||||
'Präsentation von aktiv
|
||||
If Me.TBBottom.Columns(i).DataField = "aktiv" Then
|
||||
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.TBBottom.Columns(i).ValueItems.DefaultItem = True
|
||||
Me.TBBottom.Columns(i).DefaultValue = True
|
||||
Me.TBBottom.Columns(i).FilterText = True
|
||||
End If
|
||||
If Me.TBBottom.Columns(i).DataField = "erstellt_am" Then
|
||||
Me.TBBottom.Columns(i).DefaultValue = Now
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub C1TrueDBGrid1_FetchCellTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles TBLeft.FetchCellTips
|
||||
Dim ts As New EDOKA.Tabellenspalte()
|
||||
ts.Tabelle = Me.TableNameLeft
|
||||
Try
|
||||
ts.Feld = Me.TBLeft.Columns(e.ColIndex).DataField
|
||||
ts.getspalte()
|
||||
e.CellTip = ts.TipText
|
||||
ts = Nothing
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub C1TrueDBGrid1_FetchCellTips1(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles TBRight.FetchCellTips
|
||||
Try
|
||||
Dim ts As New EDOKA.Tabellenspalte()
|
||||
ts.Tabelle = Me.TableNameRight
|
||||
ts.Feld = Me.TBRight.Columns(e.ColIndex).DataField
|
||||
ts.getspalte()
|
||||
e.CellTip = ts.TipText
|
||||
ts = Nothing
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub C1TrueDBGrid1_FetchCellTips3(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles TBBottom.FetchCellTips
|
||||
Try
|
||||
Dim ts As New EDOKA.Tabellenspalte()
|
||||
ts.Tabelle = Me.TableNameBottom
|
||||
ts.Feld = Me.TBBottom.Columns(e.ColIndex).DataField
|
||||
ts.getspalte()
|
||||
e.CellTip = ts.TipText
|
||||
ts = Nothing
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Sub TBBottom_Format()
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
'Präsentation von aktiv
|
||||
If Me.TBBottom.Columns(i).DataField = "aktiv" Then
|
||||
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.TBBottom.Columns(i).DefaultValue = True
|
||||
Me.TBBottom.Splits(0).DisplayColumns(i).Locked = False
|
||||
End If
|
||||
If Me.TBBottom.Columns(i).DataField = "zwingend" Then
|
||||
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.TBBottom.Columns(i).ValueItems.DefaultItem = True
|
||||
Me.TBBottom.Columns(i).DefaultValue = True
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "UpdateGrpText"
|
||||
Public Sub UpdateGrpText(ByVal w1 As Integer, ByVal w2 As Integer, ByVal w3 As Integer)
|
||||
Me.GrpLeft.Text = Globals.MyTxt.gettext(w1)
|
||||
Me.GrpRight.Text = Globals.MyTxt.gettext(w2)
|
||||
Me.GrpBottom.Text = Globals.MyTxt.gettext(w3)
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "Formhandling"
|
||||
|
||||
Private Sub frmVerbEditor_Layout(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LayoutEventArgs) Handles MyBase.Layout
|
||||
Me.GrpLeft.Width = Me.ClientSize.Width / 2
|
||||
Me.GrpFocus.Left = Me.Splitter1.Left - (Me.GrpFocus.Width / 2)
|
||||
Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
|
||||
Me.GrpBottom.Height = Me.Panel4.Height - (Me.Panel2.Height * 2)
|
||||
End Sub
|
||||
|
||||
Private Sub Splitter1_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles Splitter1.SplitterMoved
|
||||
Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
|
||||
End Sub
|
||||
|
||||
Private Sub Splitter2_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles Splitter2.SplitterMoved
|
||||
Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
|
||||
Me.GrpBottom.Height = Me.Panel4.Height - (Me.Panel2.Height * 2)
|
||||
End Sub
|
||||
|
||||
Private Sub frmVerbEditor_WndChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
|
||||
Me.GrpLeft.Width = Me.ClientSize.Width / 2
|
||||
Me.GrpFocus.Left = Me.Splitter1.Left - (Me.GrpFocus.Width / 2)
|
||||
Me.BtnConnect.Left = (Me.Splitter1.Left) - (Me.BtnConnect.Width / 2)
|
||||
Me.GrpBottom.Height = Me.Panel4.Height - (Me.Panel2.Height * 2)
|
||||
End Sub
|
||||
|
||||
Public Sub FormSize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Dim ds As New edokadb.clsSysadminfunktion()
|
||||
If g_bRun Then
|
||||
|
||||
Try
|
||||
ds.cpMainConnectionProvider = conn
|
||||
ds.iSysadminfnktnr = New SqlInt32(CType(m_Eintragnr, Int32))
|
||||
ds.SelectOne()
|
||||
If ds.iFleft.Value <> 0 Then Me.Left = ds.iFleft.Value
|
||||
If ds.iFtop.Value <> 0 Then Me.Top = ds.iFtop.Value
|
||||
If ds.iFwidth.Value <> 0 Then Me.Width = ds.iFwidth.Value
|
||||
If ds.iFheight.Value <> 0 Then Me.Height = ds.iFheight.Value
|
||||
Me.MenuItem1.Text = Me.Eintrag
|
||||
Catch
|
||||
' MsgBox("Error Resizing Form")
|
||||
Finally
|
||||
End Try
|
||||
ds.Dispose()
|
||||
Me.Text = Me.Eintrag
|
||||
Try
|
||||
Globals.WinPos.Get_Position(Me)
|
||||
Catch
|
||||
Finally
|
||||
End Try
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmVerbEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.FokusLeft.Checked = True
|
||||
Me.FokusRight.Checked = False
|
||||
Me.TBBottom.ScrollTips = True
|
||||
Me.TBBottom.ScrollTips = True
|
||||
Me.TBRight.ScrollTips = True
|
||||
Me.WindowState = FormWindowState.Maximized
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBBottom.FetchScrollTips
|
||||
Try
|
||||
Select Case e.ScrollBar
|
||||
Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
|
||||
e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.TBBottom.Splits(0).Rows.Count)
|
||||
End Select
|
||||
e.TipStyle.ForeColor = Color.Blue
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub TBLeft_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBLeft.FetchScrollTips
|
||||
Try
|
||||
Select Case e.ScrollBar
|
||||
Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
|
||||
e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.TBLeft.Splits(0).Rows.Count)
|
||||
End Select
|
||||
e.TipStyle.ForeColor = Color.Blue
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub TBRight_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles TBRight.FetchScrollTips
|
||||
Try
|
||||
Select Case e.ScrollBar
|
||||
Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
|
||||
e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.TBRight.Splits(0).Rows.Count)
|
||||
End Select
|
||||
e.TipStyle.ForeColor = Color.Blue
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub frmVerbEditor_Cloase(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Try
|
||||
Globals.WinPos.Set_Position(Me)
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Me.ActiveControl = Me.ToolBar1
|
||||
Me.ActiveControl = Me.TBBottom
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,276 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>152, 17</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>280, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>377, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>512, 17</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>609, 17</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>744, 17</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmReportFelder</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,564 @@
|
||||
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
Public Class frmReportFelder
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "report", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("reportnr", "reportnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("dateiname", "dateiname"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("odbc", "odbc"), New System.Data.Common.DataColumnMapping("oledb", "oledb"), New System.Data.Common.DataColumnMapping("sqlclient", "sqlclient")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_report_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dateiname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dateiname", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_odbc", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "odbc", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_oledb", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "oledb", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sqlclient", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sqlclient", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
||||
"station id=SHU;packet size=4096"
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_report_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportnr", System.Data.SqlDbType.Int, 4, "reportnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 1024, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dateiname", System.Data.SqlDbType.VarChar, 255, "dateiname"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@odbc", System.Data.SqlDbType.Bit, 1, "odbc"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@oledb", System.Data.SqlDbType.Bit, 1, "oledb"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sqlclient", System.Data.SqlDbType.Bit, 1, "sqlclient"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_report_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_report_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportnr", System.Data.SqlDbType.Int, 4, "reportnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 1024, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dateiname", System.Data.SqlDbType.VarChar, 255, "dateiname"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@odbc", System.Data.SqlDbType.Bit, 1, "odbc"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@oledb", System.Data.SqlDbType.Bit, 1, "oledb"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sqlclient", System.Data.SqlDbType.Bit, 1, "sqlclient"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dateiname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dateiname", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_odbc", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "odbc", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_oledb", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "oledb", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sqlclient", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sqlclient", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "reportfeldregel", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("reportfeldregelnr", "reportfeldregelnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("feldtyp", "feldtyp"), New System.Data.Common.DataColumnMapping("datenherkunft", "datenherkunft"), New System.Data.Common.DataColumnMapping("darstellung", "darstellung"), New System.Data.Common.DataColumnMapping("multiselect", "multiselect"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_reportfeldregel_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportfeldregelnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportfeldregelnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_darstellung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "darstellung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datenherkunft", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datenherkunft", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_feldtyp", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldtyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_multiselect", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "multiselect", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_reportfeldregel_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportfeldregelnr", System.Data.SqlDbType.Int, 4, "reportfeldregelnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldtyp", System.Data.SqlDbType.VarChar, 50, "feldtyp"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datenherkunft", System.Data.SqlDbType.VarChar, 1024, "datenherkunft"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@darstellung", System.Data.SqlDbType.VarChar, 50, "darstellung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@multiselect", System.Data.SqlDbType.VarChar, 1024, "multiselect"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_reportfeldregel_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pv_reportfeldregel_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportfeldregelnr", System.Data.SqlDbType.Int, 4, "reportfeldregelnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldtyp", System.Data.SqlDbType.VarChar, 50, "feldtyp"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datenherkunft", System.Data.SqlDbType.VarChar, 1024, "datenherkunft"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@darstellung", System.Data.SqlDbType.VarChar, 50, "darstellung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@multiselect", System.Data.SqlDbType.VarChar, 1024, "multiselect"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportfeldregelnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportfeldregelnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_darstellung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "darstellung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datenherkunft", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datenherkunft", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_feldtyp", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldtyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_multiselect", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "multiselect", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "reportfeld", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("reportfeld_nr", "reportfeld_nr"), New System.Data.Common.DataColumnMapping("reportfeldregelnr", "reportfeldregelnr"), New System.Data.Common.DataColumnMapping("reportnr", "reportnr"), New System.Data.Common.DataColumnMapping("reihenfolge", "reihenfolge"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_reportfeld_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand3
|
||||
'
|
||||
Me.SqlInsertCommand3.CommandText = "[pv_reportfeld_insert]"
|
||||
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportfeld_nr", System.Data.SqlDbType.Int, 4, "reportfeld_nr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportfeldregelnr", System.Data.SqlDbType.Int, 4, "reportfeldregelnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportnr", System.Data.SqlDbType.Int, 4, "reportnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reihenfolge", System.Data.SqlDbType.Int, 4, "reihenfolge"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand3
|
||||
'
|
||||
Me.SqlUpdateCommand3.CommandText = "[pv_reportfeld_update]"
|
||||
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportfeld_nr", System.Data.SqlDbType.Int, 4, "reportfeld_nr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportfeldregelnr", System.Data.SqlDbType.Int, 4, "reportfeldregelnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportnr", System.Data.SqlDbType.Int, 4, "reportnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reihenfolge", System.Data.SqlDbType.Int, 4, "reihenfolge"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportfeld_nr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportfeld_nr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reihenfolge", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reihenfolge", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportfeldregelnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportfeldregelnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand3
|
||||
'
|
||||
Me.SqlDeleteCommand3.CommandText = "[pv_reportfeld_delete]"
|
||||
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportfeld_nr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportfeld_nr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reihenfolge", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reihenfolge", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportfeldregelnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportfeldregelnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmReportFelder
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(600, 509)
|
||||
Me.Name = "frmReportFelder"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim t As DataTable
|
||||
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
Me.TBLeft.DataMember = Me.TableNameLeft
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
Me.TBRight.DataMember = Me.TableNameRight
|
||||
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
UpdateGrpText(5020, 5021, 5022)
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
Me.SuspendLayout()
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
Me.ResumeLayout(True)
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
Me.SuspendLayout()
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
Me.ResumeLayout(True)
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
Me.TBBottom.DataMember = Me.TableNameBottom
|
||||
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim CurrentSel As Boolean
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsReportfeld()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim key As Long
|
||||
CurrentSel = False
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
CurrentSel = True
|
||||
ic = ic + 1
|
||||
End If
|
||||
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
If Me.FokusLeft.Checked Then
|
||||
vdata.iReportnr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If CurrentSel Then
|
||||
vdata.iReportfeldregelnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iReportfeldregelnr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If CurrentSel Then
|
||||
vdata.iReportnr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iReportnr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
vdata.iReportfeldregelnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
vdata.iReihenfolge = New SqlInt32(CType(1, Int32))
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("reportfeld")
|
||||
vdata.iReportfeld_nr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
|
||||
Private Sub frmRolle_SysadminFunktion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableNameLeft = "report"
|
||||
Me.TableNameRight = "reportfeldregel"
|
||||
Me.TableNameBottom = "reportfeld"
|
||||
LoadData()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
save_data()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
End Class
|
||||
@@ -0,0 +1,279 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>125, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 91</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>260, 17</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>114, 54</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>577, 54</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>418, 54</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>388, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>485, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>327, 91</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>329, 128</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>641, 91</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>482, 91</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>620, 17</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 54</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>481, 128</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmReportgruppe_Report</value>
|
||||
</data>
|
||||
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>168</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,538 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
Public Class frmReportgruppe_Report
|
||||
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "funktionsgruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("funktionsgruppenr", "funktionsgruppenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_reportgruppe_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=tgtsqledokabssf;initial catalog=edoka;integrated security=SSPI;persis" & _
|
||||
"t security info=False;workstation id=TG602643;packet size=4096"
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_reportgruppe_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_reportgruppe_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_reportgruppe_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, "funktionsgruppenr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionsgruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "rolle", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("rollelevel", "rollelevel"), New System.Data.Common.DataColumnMapping("sysadminrolle", "sysadminrolle"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_rolle_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollelevel", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollelevel", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sysadminrolle", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminrolle", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_rolle_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollelevel", System.Data.SqlDbType.Int, 4, "rollelevel"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sysadminrolle", System.Data.SqlDbType.Bit, 1, "sysadminrolle"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_report_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pv_rolle_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollelevel", System.Data.SqlDbType.Int, 4, "rollelevel"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sysadminrolle", System.Data.SqlDbType.Bit, 1, "sysadminrolle"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollelevel", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollelevel", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sysadminrolle", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminrolle", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "reportgruppe_report", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ReportgruppeReportNr", "ReportgruppeReportNr"), New System.Data.Common.DataColumnMapping("reportgruppeNr", "reportgruppeNr"), New System.Data.Common.DataColumnMapping("reportNr", "reportNr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_reportgruppe_report_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand3
|
||||
'
|
||||
Me.SqlInsertCommand3.CommandText = "[pv_reportgruppe_report_insert]"
|
||||
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportgruppeReportNr", System.Data.SqlDbType.Int, 4, "ReportgruppeReportNr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportgruppeNr", System.Data.SqlDbType.Int, 4, "reportgruppeNr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportNr", System.Data.SqlDbType.Int, 4, "reportNr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand3
|
||||
'
|
||||
Me.SqlUpdateCommand3.CommandText = "[pv_reportgruppe_report_update]"
|
||||
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportgruppeReportNr", System.Data.SqlDbType.Int, 4, "ReportgruppeReportNr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportgruppeNr", System.Data.SqlDbType.Int, 4, "reportgruppeNr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportNr", System.Data.SqlDbType.Int, 4, "reportNr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportgruppeReportNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ReportgruppeReportNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportgruppeNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportgruppeNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand3
|
||||
'
|
||||
Me.SqlDeleteCommand3.CommandText = "[pv_reportgruppe_report_delete]"
|
||||
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ReportgruppeReportNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ReportgruppeReportNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportgruppeNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportgruppeNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmReportgruppe_Report
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(104, -20)
|
||||
Me.Name = "frmReportgruppe_Report"
|
||||
Me.Text = "frmFunktionsgruppeRolle"
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim i As Integer
|
||||
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
Me.TBLeft.DataMember = Me.DataSet1.Tables(0).TableName
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
Me.TBRight.DataMember = Me.DataSet2.Tables(0).TableName
|
||||
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
UpdateGrpText(5027, 5050, 5019)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
Me.TBBottom.DataMember = Me.DataSet3.Tables(0).TableName
|
||||
|
||||
' Me.TBBottom.DataMember = Me.TableNameBottom
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
'SpaltenTitel_Aktualisieren(3, "reportgruppe_report", Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsReportgruppe_report()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim Currentsel As Boolean
|
||||
Dim key As Long
|
||||
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
ic = ic + 1
|
||||
Currentsel = True
|
||||
End If
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
If Me.FokusLeft.Checked Then
|
||||
vdata.iReportgruppeNr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If Currentsel Then
|
||||
vdata.iReportNr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iReportNr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If Currentsel Then
|
||||
vdata.iReportgruppeNr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
vdata.iReportgruppeNr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
|
||||
vdata.iReportNr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("Reportgruppe_Report")
|
||||
vdata.iReportgruppeReportNr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
|
||||
Private Sub frmReportgruppe_Report_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Cursor.Current = Cursors.WaitCursor
|
||||
Me.TableNameLeft = "reportgruppe"
|
||||
Me.TableNameRight = "report"
|
||||
Me.TableNameBottom = "reportgruppe_report"
|
||||
LoadData()
|
||||
Cursor.Current = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,252 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>125, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>260, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>388, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>485, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>620, 17</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 54</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>152, 54</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmRolleBerechtigung</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,542 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
Public Class frmRolleBerechtigung
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "rolle", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("rollelevel", "rollelevel"), New System.Data.Common.DataColumnMapping("sysadminrolle", "sysadminrolle"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_rolle_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_rolle_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollelevel", System.Data.SqlDbType.Int, 4, "rollelevel"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sysadminrolle", System.Data.SqlDbType.Bit, 1, "sysadminrolle"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_rolle_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollelevel", System.Data.SqlDbType.Int, 4, "rollelevel"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sysadminrolle", System.Data.SqlDbType.Bit, 1, "sysadminrolle"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollelevel", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollelevel", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sysadminrolle", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminrolle", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_rolle_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollelevel", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollelevel", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sysadminrolle", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminrolle", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
||||
"station id=SHU;packet size=4096"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "berechtigung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("berechtigungnr", "berechtigungnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("sysadminfunktion", "sysadminfunktion"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_berechtigung_ohne_Dokumente_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_berechtigung_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@berechtigungnr", System.Data.SqlDbType.Int, 4, "berechtigungnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sysadminfunktion", System.Data.SqlDbType.Bit, 1, "sysadminfunktion"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pv_berechtigung_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@berechtigungnr", System.Data.SqlDbType.Int, 4, "berechtigungnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sysadminfunktion", System.Data.SqlDbType.Bit, 1, "sysadminfunktion"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_berechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "berechtigungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sysadminfunktion", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminfunktion", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_berechtigung_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_berechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "berechtigungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sysadminfunktion", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminfunktion", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "rolleberechtigung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("rolleberechtigungnr", "rolleberechtigungnr"), New System.Data.Common.DataColumnMapping("berechtigungnr", "berechtigungnr"), New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_rolleberechtigung_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand3
|
||||
'
|
||||
Me.SqlInsertCommand3.CommandText = "[pv_rolleberechtigung_insert]"
|
||||
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rolleberechtigungnr", System.Data.SqlDbType.Int, 4, "rolleberechtigungnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@berechtigungnr", System.Data.SqlDbType.Int, 4, "berechtigungnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand3
|
||||
'
|
||||
Me.SqlUpdateCommand3.CommandText = "[pv_rolleberechtigung_update]"
|
||||
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rolleberechtigungnr", System.Data.SqlDbType.Int, 4, "rolleberechtigungnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@berechtigungnr", System.Data.SqlDbType.Int, 4, "berechtigungnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rolleberechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rolleberechtigungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_berechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "berechtigungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand3
|
||||
'
|
||||
Me.SqlDeleteCommand3.CommandText = "[pv_rolleberechtigung_delete]"
|
||||
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rolleberechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rolleberechtigungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_berechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "berechtigungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmRolleBerechtigung
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(600, 508)
|
||||
Me.Name = "frmRolleBerechtigung"
|
||||
Me.Text = "frmRolleBerechtigung"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim t As DataTable
|
||||
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
Me.TBLeft.DataMember = Me.TableNameLeft
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
Me.TBRight.DataMember = Me.TableNameRight
|
||||
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
UpdateGrpText(5042, 5043, 5044)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
Me.TBBottom.DataMember = Me.TableNameBottom
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsRolleberechtigung()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim Currentsel As Boolean
|
||||
Dim key As Long
|
||||
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
ic = ic + 1
|
||||
Currentsel = True
|
||||
End If
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
If Me.FokusLeft.Checked Then
|
||||
vdata.iRollenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If Currentsel Then
|
||||
vdata.iBerechtigungnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iBerechtigungnr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If Currentsel Then
|
||||
vdata.iRollenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iRollenr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
|
||||
vdata.iBerechtigungnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("idvmakro_office_vorlage")
|
||||
vdata.iRolleberechtigungnr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
|
||||
Private Sub frmRolle_SysadminFunktion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableNameLeft = "rolle"
|
||||
Me.TableNameRight = "berechtigung"
|
||||
Me.TableNameBottom = "rolleberechtigung"
|
||||
LoadData()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
save_data()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
End Class
|
||||
@@ -0,0 +1,579 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBarButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBarBtnSave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>30, 54</value>
|
||||
</data>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
|
||||
AACMCAAAAk1TRnQBSQFMAgEBAgEAAQQBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
|
||||
AAEoAwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
|
||||
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
|
||||
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
|
||||
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
|
||||
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
|
||||
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
|
||||
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
|
||||
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
|
||||
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
|
||||
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
|
||||
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
|
||||
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
|
||||
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
|
||||
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
|
||||
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
|
||||
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
|
||||
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
|
||||
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
|
||||
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
|
||||
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
|
||||
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
|
||||
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
|
||||
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
|
||||
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
|
||||
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
|
||||
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
|
||||
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
|
||||
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wEAEAcQAiAABwcB
|
||||
AAEHAQAD7AEAAgcCAg0AAQIgAAcHAQABBwEAA+wBAAIHAQIBAAIDBgACBwEAAQMBAAECIQABBwQAAQcB
|
||||
AAEHAQAD7AEAAgcBAgEAAgMGAAIHAQABAwEAAQIgAAUHAwABBwEAA+wBAAIHAQIBAAIDBgACBwEAAQMB
|
||||
AAECIAAFBwIAAgcBAAHsAQcB7AEAAgcBAgEAAgMJAAEDAQABAiIAAQcBAAEHAwABBwEAA+wBAAIHAQIB
|
||||
AAwDAQABAiAABAcGAAPsAQACBwECAQACAwgAAgMBAAECIAAGBwIAAQcCAALsAQACBwECAQABAwEACAcB
|
||||
AAEDAQABAiAABQcDAAEHAQAD7AEAAgcBAgEAAQMBAAgHAQABAwEAAQIgAAYHAgABBwIAAuwBAAIHAQIB
|
||||
AAEDAQAIBwEAAQMBAAECIAAJBwUAAgcBAgEAAQMBAAgHAQABAwEAAQIgABAHAQIBAAEDAQAIBwMAAQIg
|
||||
AAgHBAQEBwECAQABAwEACAcBAAEHAQABAiAACAcBBAIHAQQEBwECDgABAiAACAcEBAQHEAIgAAFCAU0B
|
||||
PgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/lwAL
|
||||
</value>
|
||||
</data>
|
||||
<data name="Panel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GrpRight.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TBRight.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Splitter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GrpLeft.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TBLeft.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images1" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Splitter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GrpFocus.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="FokusRight.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="FokusLeft.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GrpBottom.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TBBottom.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images2" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="CheckedListBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="BtnConnect.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MainMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>114, 17</value>
|
||||
</data>
|
||||
<data name="MainMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>222, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>176, 91</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>233, 54</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>331, 91</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>454, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 91</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>357, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>136, 54</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>458, 54</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>593, 54</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>589, 17</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>329, 128</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>170, 128</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>361, 54</value>
|
||||
</data>
|
||||
<data name="DataSet4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>593, 54</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand4.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand4.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand4.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand4.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand4.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand4.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand4.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand4.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter5.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>728, 54</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand5.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand5.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand5.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand5.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand5.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand5.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand5.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand5.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand5.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand5.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand5.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand5.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet5.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 91</value>
|
||||
</data>
|
||||
<data name="DataSet5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>454, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmRolleDokumentTyp</value>
|
||||
</data>
|
||||
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>201</value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAEBAQAAAAAAAoAQAAFgAAACgAAAAQAAAAIAAAAAEABAAAAAAAwAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
|
||||
AAD///8A//////////////////////+Hd3///////3d3d//3dw//d/93/3d3cHd3eHf/d3d3d3d3d393
|
||||
d3d3d3eHd3d3d3d3d/93eIiHeIiH/3f3B3hwdwj/d/93//d3j/+Hd3f///////h3f///////////////
|
||||
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAA
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,468 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBarButton1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBarBtnSave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ImageList1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>30, 54</value>
|
||||
</data>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
|
||||
AACMCAAAAk1TRnQBSQFMAgEBAgEAAQQBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
|
||||
AAEoAwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
|
||||
3AHAAQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IB
|
||||
AAM5AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8B
|
||||
MwMAAWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYC
|
||||
AAFmAZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMC
|
||||
AAHMAWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQAB
|
||||
ZgEAATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8B
|
||||
AAEzAWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQAB
|
||||
MwGZAWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQAB
|
||||
MwLMAQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQAB
|
||||
MwEAAWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMB
|
||||
mQEAAWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQAB
|
||||
ZgGZAWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYB
|
||||
zAH/AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMB
|
||||
mQEAAZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgAB
|
||||
mQFmATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwB
|
||||
AAKZAf8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB
|
||||
/wEzAQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQAB
|
||||
mQEAAcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYC
|
||||
AAHMAWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYB
|
||||
AAHMApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8C
|
||||
AAHMAf8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQAB
|
||||
mQEAAcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMB
|
||||
AAHMAmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB
|
||||
/wGZAcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC
|
||||
/wEzAQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC
|
||||
/wFmAQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gB
|
||||
AAHwAfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wEAEAcQAiAABwcB
|
||||
AAEHAQAD7AEAAgcCAg0AAQIgAAcHAQABBwEAA+wBAAIHAQIBAAIDBgACBwEAAQMBAAECIQABBwQAAQcB
|
||||
AAEHAQAD7AEAAgcBAgEAAgMGAAIHAQABAwEAAQIgAAUHAwABBwEAA+wBAAIHAQIBAAIDBgACBwEAAQMB
|
||||
AAECIAAFBwIAAgcBAAHsAQcB7AEAAgcBAgEAAgMJAAEDAQABAiIAAQcBAAEHAwABBwEAA+wBAAIHAQIB
|
||||
AAwDAQABAiAABAcGAAPsAQACBwECAQACAwgAAgMBAAECIAAGBwIAAQcCAALsAQACBwECAQABAwEACAcB
|
||||
AAEDAQABAiAABQcDAAEHAQAD7AEAAgcBAgEAAQMBAAgHAQABAwEAAQIgAAYHAgABBwIAAuwBAAIHAQIB
|
||||
AAEDAQAIBwEAAQMBAAECIAAJBwUAAgcBAgEAAQMBAAgHAQABAwEAAQIgABAHAQIBAAEDAQAIBwMAAQIg
|
||||
AAgHBAQEBwECAQABAwEACAcBAAEHAQABAiAACAcBBAIHAQQEBwECDgABAiAACAcEBAQHEAIgAAFCAU0B
|
||||
PgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/lwAL
|
||||
</value>
|
||||
</data>
|
||||
<data name="Panel1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GrpRight.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TBRight.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Splitter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GrpLeft.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TBLeft.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images1" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="Splitter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GrpFocus.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="FokusRight.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="FokusLeft.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="GrpBottom.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TBBottom.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images2" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="GroupBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="CheckedListBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="BtnConnect.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Panel4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MainMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>114, 17</value>
|
||||
</data>
|
||||
<data name="MainMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>222, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>233, 54</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>357, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>454, 17</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>136, 54</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ContextMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>589, 17</value>
|
||||
</data>
|
||||
<data name="ContextMenu1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MnuGesamt.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MnuKundendossier.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MnuErstellung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MnuHost.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>458, 54</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>361, 54</value>
|
||||
</data>
|
||||
<data name="DataSet4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmRolleDokumentHierarchie</value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAEBAQAAAAAAAoAQAAFgAAACgAAAAQAAAAIAAAAAEABAAAAAAAwAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
|
||||
AAD///8A//////////////////////+Hd3///////3d3d//3dw//d/93/3d3cHd3eHf/d3d3d3d3d393
|
||||
d3d3d3eHd3d3d3d3d/93eIiHeIiH/3f3B3hwdwj/d/93//d3j/+Hd3f///////h3f///////////////
|
||||
//////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAA
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,291 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>125, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>260, 17</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>388, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>485, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>620, 17</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>717, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 54</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmRolleReportGruppe</value>
|
||||
</data>
|
||||
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>113</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,525 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmRolleReportGruppe
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "rolle", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_rolle_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
||||
"station id=SHU;packet size=4096"
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_rolle_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_rolle_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_rolle_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "report_gruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("report_gruppenr", "report_gruppenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_reportgruppe_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_report_gruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "report_gruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_reportgruppe_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@report_gruppenr", System.Data.SqlDbType.Int, 4, "report_gruppenr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_reportgruppe_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pv_reportgruppe_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@report_gruppenr", System.Data.SqlDbType.Int, 4, "report_gruppenr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_report_gruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "report_gruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "rolle_report_gruppe", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("rolle_report_gruppe_nr", "rolle_report_gruppe_nr"), New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("report_gruppenr", "report_gruppenr"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
||||
'
|
||||
'SqlDeleteCommand3
|
||||
'
|
||||
Me.SqlDeleteCommand3.CommandText = "[pv_rolle_report_gruppe_delete]"
|
||||
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rolle_report_gruppe_nr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rolle_report_gruppe_nr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_report_gruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "report_gruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand3
|
||||
'
|
||||
Me.SqlInsertCommand3.CommandText = "[pv_rolle_report_gruppe_insert]"
|
||||
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rolle_report_gruppe_nr", System.Data.SqlDbType.Int, 4, "rolle_report_gruppe_nr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@report_gruppenr", System.Data.SqlDbType.Int, 4, "report_gruppenr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_rolle_report_gruppe_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand3
|
||||
'
|
||||
Me.SqlUpdateCommand3.CommandText = "[pv_rolle_report_gruppe_update]"
|
||||
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rolle_report_gruppe_nr", System.Data.SqlDbType.Int, 4, "rolle_report_gruppe_nr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@report_gruppenr", System.Data.SqlDbType.Int, 4, "report_gruppenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rolle_report_gruppe_nr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rolle_report_gruppe_nr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_report_gruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "report_gruppenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmRolleReportGruppe
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(600, 509)
|
||||
Me.Name = "frmRolleReportGruppe"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim t As DataTable
|
||||
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
Me.TBLeft.DataMember = Me.TableNameLeft
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
'Me.TBRight.DataMember = Me.TableNameRight
|
||||
Me.TBRight.DataMember = Me.DataSet2.Tables(0).TableName
|
||||
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
UpdateGrpText(5026, 5027, 5028)
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
MsgBox(Me.DataSet3.Tables(0).Rows.Count)
|
||||
Me.TBBottom.DataMember = Me.DataSet3.Tables(0).TableName
|
||||
'Me.TBBottom.DataMember = Me.TableNameBottom
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsRolle_report_gruppe()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim Currentsel As Boolean
|
||||
Dim key As Long
|
||||
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
ic = ic + 1
|
||||
Currentsel = True
|
||||
End If
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
If Me.FokusLeft.Checked Then
|
||||
vdata.iRollenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If Currentsel Then
|
||||
vdata.iReport_gruppenr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iReport_gruppenr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If Currentsel Then
|
||||
vdata.iRollenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iRollenr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
|
||||
vdata.iRolle_report_gruppe_nr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("rolle_report_gruppe")
|
||||
vdata.iRolle_report_gruppe_nr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
|
||||
Private Sub frmRolle_SysadminFunktion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableNameLeft = "rolle"
|
||||
Me.TableNameRight = "reportgruppe"
|
||||
Me.TableNameBottom = "rolle_report_gruppe"
|
||||
LoadData()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
save_data()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,252 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>152, 17</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>280, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>415, 17</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>550, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>633, 15</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>724, 15</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmRolle_Sysadmin</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,544 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmRolle_Sysadminfunktion
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "rolle", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_rolle_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_rolle_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_rolle_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_rolle_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
||||
"station id=SHU;packet size=4096"
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "sysadminfunktion", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("sysadminfnktnr", "sysadminfnktnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("ParentID", "ParentID"), New System.Data.Common.DataColumnMapping("Sort", "Sort"), New System.Data.Common.DataColumnMapping("ImageIndex", "ImageIndex"), New System.Data.Common.DataColumnMapping("ImageIndexOpen", "ImageIndexOpen"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pf_sysadminfunktion_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pf_sysadminfunktion_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sysadminfnktnr", System.Data.SqlDbType.Int, 4, "sysadminfnktnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ParentID", System.Data.SqlDbType.Int, 4, "ParentID"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Sort", System.Data.SqlDbType.Int, 4, "Sort"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ImageIndex", System.Data.SqlDbType.Int, 4, "ImageIndex"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ImageIndexOpen", System.Data.SqlDbType.Int, 4, "ImageIndexOpen"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pf_sysadminfunktion_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sysadminfnktnr", System.Data.SqlDbType.Int, 4, "sysadminfnktnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ParentID", System.Data.SqlDbType.Int, 4, "ParentID"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Sort", System.Data.SqlDbType.Int, 4, "Sort"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ImageIndex", System.Data.SqlDbType.Int, 4, "ImageIndex"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ImageIndexOpen", System.Data.SqlDbType.Int, 4, "ImageIndexOpen"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sysadminfnktnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminfnktnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ImageIndex", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ImageIndex", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ImageIndexOpen", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ImageIndexOpen", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ParentID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ParentID", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Sort", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pf_sysadminfunktion_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sysadminfnktnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminfnktnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ImageIndex", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ImageIndex", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ImageIndexOpen", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ImageIndexOpen", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ParentID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ParentID", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Sort", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "rolle_sysadminfunktion", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("rolle_sysadminfnktnr", "rolle_sysadminfnktnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("sysadminfnktnr", "sysadminfnktnr"), New System.Data.Common.DataColumnMapping("rollenr", "rollenr"), New System.Data.Common.DataColumnMapping("mandant", "mandant")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_rolle_sysadminfunktion_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlInsertCommand3
|
||||
'
|
||||
Me.SqlInsertCommand3.CommandText = "[pv_rolle_sysadminfunktion_insert]"
|
||||
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rolle_sysadminfnktnr", System.Data.SqlDbType.Int, 4, "rolle_sysadminfnktnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sysadminfnktnr", System.Data.SqlDbType.Int, 4, "sysadminfnktnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandant", System.Data.SqlDbType.Int, 4, "mandant"))
|
||||
'
|
||||
'SqlUpdateCommand3
|
||||
'
|
||||
Me.SqlUpdateCommand3.CommandText = "[pv_rolle_sysadminfunktion_update]"
|
||||
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rolle_sysadminfnktnr", System.Data.SqlDbType.Int, 4, "rolle_sysadminfnktnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sysadminfnktnr", System.Data.SqlDbType.Int, 4, "sysadminfnktnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@rollenr", System.Data.SqlDbType.Int, 4, "rollenr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandant", System.Data.SqlDbType.Int, 4, "mandant"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rolle_sysadminfnktnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rolle_sysadminfnktnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandant", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandant", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sysadminfnktnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminfnktnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand3
|
||||
'
|
||||
Me.SqlDeleteCommand3.CommandText = "[pv_rolle_sysadminfunktion_delete]"
|
||||
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rolle_sysadminfnktnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rolle_sysadminfnktnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandant", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandant", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_rollenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "rollenr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_sysadminfnktnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminfnktnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmRolle_Sysadmin
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(600, 509)
|
||||
Me.Name = "frmRolle_Sysadmin"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim t As DataTable
|
||||
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
Me.TBLeft.DataMember = Me.TableNameLeft
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
Me.TBRight.DataMember = Me.TableNameRight
|
||||
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
UpdateGrpText(5000, 5001, 5002)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
Me.TBBottom.DataMember = Me.TableNameBottom
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
End Sub
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsRolle_sysadminfunktion()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim Currentsel As Boolean
|
||||
Dim key As Long
|
||||
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
ic = ic + 1
|
||||
Currentsel = True
|
||||
End If
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMandant = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
If Me.FokusLeft.Checked Then
|
||||
vdata.iRollenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If Currentsel Then
|
||||
vdata.iSysadminfnktnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iSysadminfnktnr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If Currentsel Then
|
||||
vdata.iRollenr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iRollenr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
|
||||
vdata.iSysadminfnktnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("rolle_sysadminfunktion")
|
||||
vdata.iRolle_sysadminfnktnr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
|
||||
Private Sub frmRolle_SysadminFunktion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableNameLeft = "rolle"
|
||||
Me.TableNameRight = "sysadminfunktion"
|
||||
Me.TableNameBottom = "rolle_sysadminfunktion"
|
||||
LoadData()
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
save_data()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,294 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
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">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</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="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>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="SqlDataAdapter1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>172, 54</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>152, 17</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 91</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>638, 54</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>479, 54</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>280, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 54</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>266, 91</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>418, 91</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>571, 91</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDataAdapter3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>415, 17</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>176, 128</value>
|
||||
</data>
|
||||
<data name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>327, 54</value>
|
||||
</data>
|
||||
<data name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>730, 91</value>
|
||||
</data>
|
||||
<data name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 128</value>
|
||||
</data>
|
||||
<data name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>550, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>647, 17</value>
|
||||
</data>
|
||||
<data name="DataSet2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>744, 17</value>
|
||||
</data>
|
||||
<data name="DataSet3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>169, 91</value>
|
||||
</data>
|
||||
<data name="DataSet4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmStatustypStatusbezeichnung</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,607 @@
|
||||
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
Public Class frmStatustypStatusbezeichnung
|
||||
Inherits EDOKA.frmRelEditor
|
||||
|
||||
#Region " Vom Windows Form Designer generierter Code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||
|
||||
End Sub
|
||||
|
||||
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
' Für Windows Form-Designer erforderlich
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlDeleteCommand3 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet4 As System.Data.DataSet
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.DataSet2 = New System.Data.DataSet()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
Me.DataSet4 = New System.Data.DataSet()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "statustyp", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("statustypnr", "statustypnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_statustyp_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_statustypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "statustypnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
||||
"station id=SHU;packet size=4096"
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_statustyp_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@statustypnr", System.Data.SqlDbType.Int, 4, "statustypnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.VarChar, 10, "mandantnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_statustyp_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_statustyp_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@statustypnr", System.Data.SqlDbType.Int, 4, "statustypnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.VarChar, 10, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_statustypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "statustypnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDataAdapter2
|
||||
'
|
||||
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
||||
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
||||
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
||||
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "status_bezeichnung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("status_bezeichnungnr", "status_bezeichnungnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_status_bezeichnung_delete]"
|
||||
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_status_bezeichnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "status_bezeichnungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_status_bezeichnung_insert]"
|
||||
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@status_bezeichnungnr", System.Data.SqlDbType.Int, 4, "status_bezeichnungnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_status_bezeichnung_select]"
|
||||
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand2
|
||||
'
|
||||
Me.SqlUpdateCommand2.CommandText = "[pv_status_bezeichnung_update]"
|
||||
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@status_bezeichnungnr", System.Data.SqlDbType.Int, 4, "status_bezeichnungnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_status_bezeichnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "status_bezeichnungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDataAdapter3
|
||||
'
|
||||
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
||||
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
||||
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
||||
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "status", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("statusnr", "statusnr"), New System.Data.Common.DataColumnMapping("statustypnr", "statustypnr"), New System.Data.Common.DataColumnMapping("status_bezeichnungnr", "status_bezeichnungnr"), New System.Data.Common.DataColumnMapping("reihenfolge", "reihenfolge"), New System.Data.Common.DataColumnMapping("folgestatus_durch_anderen_verantwortlichen", "folgestatus_durch_anderen_verantwortlichen"), New System.Data.Common.DataColumnMapping("folgestatus_durch_andere_rolle", "folgestatus_durch_andere_rolle"), New System.Data.Common.DataColumnMapping("dokumentbearbeitung_moeglich", "dokumentbearbeitung_moeglich"), New System.Data.Common.DataColumnMapping("erledigung_ab", "erledigung_ab"), New System.Data.Common.DataColumnMapping("dokument_ausgangsarchivieren", "dokument_ausgangsarchivieren"), New System.Data.Common.DataColumnMapping("dokument_bearbeitung_abgeschlossen", "dokument_bearbeitung_abgeschlossen"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
||||
Me.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
||||
'
|
||||
'SqlDeleteCommand3
|
||||
'
|
||||
Me.SqlDeleteCommand3.CommandText = "[pv_status_delete]"
|
||||
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_statusnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "statusnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokument_ausgangsarchivieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokument_ausgangsarchivieren", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokument_bearbeitung_abgeschlossen", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokument_bearbeitung_abgeschlossen", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentbearbeitung_moeglich", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentbearbeitung_moeglich", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erledigung_ab", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erledigung_ab", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_folgestatus_durch_andere_rolle", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "folgestatus_durch_andere_rolle", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_folgestatus_durch_anderen_verantwortlichen", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "folgestatus_durch_anderen_verantwortlichen", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reihenfolge", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reihenfolge", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_status_bezeichnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "status_bezeichnungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_statustypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "statustypnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand3
|
||||
'
|
||||
Me.SqlInsertCommand3.CommandText = "[pv_status_insert]"
|
||||
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@statusnr", System.Data.SqlDbType.Int, 4, "statusnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@statustypnr", System.Data.SqlDbType.Int, 4, "statustypnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@status_bezeichnungnr", System.Data.SqlDbType.Int, 4, "status_bezeichnungnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reihenfolge", System.Data.SqlDbType.Int, 4, "reihenfolge"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@folgestatus_durch_anderen_verantwortlichen", System.Data.SqlDbType.Bit, 1, "folgestatus_durch_anderen_verantwortlichen"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@folgestatus_durch_andere_rolle", System.Data.SqlDbType.Int, 4, "folgestatus_durch_andere_rolle"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentbearbeitung_moeglich", System.Data.SqlDbType.Bit, 1, "dokumentbearbeitung_moeglich"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erledigung_ab", System.Data.SqlDbType.Int, 4, "erledigung_ab"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokument_ausgangsarchivieren", System.Data.SqlDbType.Bit, 1, "dokument_ausgangsarchivieren"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokument_bearbeitung_abgeschlossen", System.Data.SqlDbType.Bit, 1, "dokument_bearbeitung_abgeschlossen"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
'
|
||||
'SqlSelectCommand3
|
||||
'
|
||||
Me.SqlSelectCommand3.CommandText = "[sp_status_select]"
|
||||
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
'
|
||||
'SqlUpdateCommand3
|
||||
'
|
||||
Me.SqlUpdateCommand3.CommandText = "[pv_status_update]"
|
||||
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@statusnr", System.Data.SqlDbType.Int, 4, "statusnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@statustypnr", System.Data.SqlDbType.Int, 4, "statustypnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@status_bezeichnungnr", System.Data.SqlDbType.Int, 4, "status_bezeichnungnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reihenfolge", System.Data.SqlDbType.Int, 4, "reihenfolge"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@folgestatus_durch_anderen_verantwortlichen", System.Data.SqlDbType.Bit, 1, "folgestatus_durch_anderen_verantwortlichen"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@folgestatus_durch_andere_rolle", System.Data.SqlDbType.Int, 4, "folgestatus_durch_andere_rolle"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentbearbeitung_moeglich", System.Data.SqlDbType.Bit, 1, "dokumentbearbeitung_moeglich"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erledigung_ab", System.Data.SqlDbType.Int, 4, "erledigung_ab"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokument_ausgangsarchivieren", System.Data.SqlDbType.Bit, 1, "dokument_ausgangsarchivieren"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokument_bearbeitung_abgeschlossen", System.Data.SqlDbType.Bit, 1, "dokument_bearbeitung_abgeschlossen"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_statusnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "statusnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokument_ausgangsarchivieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokument_ausgangsarchivieren", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokument_bearbeitung_abgeschlossen", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokument_bearbeitung_abgeschlossen", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentbearbeitung_moeglich", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentbearbeitung_moeglich", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erledigung_ab", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erledigung_ab", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_folgestatus_durch_andere_rolle", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "folgestatus_durch_andere_rolle", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_folgestatus_durch_anderen_verantwortlichen", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "folgestatus_durch_anderen_verantwortlichen", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reihenfolge", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reihenfolge", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_status_bezeichnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "status_bezeichnungnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_statustypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "statustypnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet2
|
||||
'
|
||||
Me.DataSet2.DataSetName = "NewDataSet"
|
||||
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'DataSet4
|
||||
'
|
||||
Me.DataSet4.DataSetName = "NewDataSet"
|
||||
Me.DataSet4.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmStatustypStatusbezeichnung
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(600, 509)
|
||||
Me.Name = "frmStatustypStatusbezeichnung"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Datahandling"
|
||||
Public Sub LoadData()
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
|
||||
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.TBLeft.DataSource = Me.DataSet1
|
||||
Me.TBLeft.DataMember = Me.TableNameLeft
|
||||
|
||||
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
||||
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
||||
|
||||
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
||||
Me.TBRight.DataSource = Me.DataSet2
|
||||
Me.TBRight.DataMember = Me.TableNameRight
|
||||
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
||||
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
||||
UpdateGrpText(5011, 5012, 5013)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
||||
check_changes()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Public Sub Refresh_TBBottom()
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
||||
If Me.FokusLeft.Checked Then
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
||||
Else
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
||||
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
||||
End If
|
||||
Try
|
||||
Me.DataSet3.Clear()
|
||||
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
|
||||
Me.TBBottom.DataSource = Me.DataSet3
|
||||
Me.TBBottom.DataMember = Me.TableNameBottom
|
||||
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
||||
TBBottom_Format()
|
||||
MyTBBottom_Format()
|
||||
End Sub
|
||||
|
||||
Public Sub MyTBBottom_Format()
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
'Präsentation von aktiv
|
||||
If Me.TBBottom.Columns(i).DataField = "aktiv" Then
|
||||
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.TBBottom.Columns(i).DefaultValue = True
|
||||
Me.TBBottom.Splits(0).DisplayColumns(i).Locked = False
|
||||
End If
|
||||
If Me.TBBottom.Columns(i).DataField = "zwingend" Then
|
||||
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.TBBottom.Columns(i).ValueItems.DefaultItem = True
|
||||
Me.TBBottom.Columns(i).DefaultValue = True
|
||||
End If
|
||||
If Me.TBBottom.Columns(i).DataField = "folgestatus_durch_anderen_verantwortlichen" Then
|
||||
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.TBBottom.Columns(i).ValueItems.DefaultItem = True
|
||||
End If
|
||||
If Me.TBBottom.Columns(i).DataField = "dokumentbearbeitung_moeglich" Then
|
||||
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.TBBottom.Columns(i).ValueItems.DefaultItem = True
|
||||
End If
|
||||
If Me.TBBottom.Columns(i).DataField = "dokument_ausgangsarchivieren" Then
|
||||
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.TBBottom.Columns(i).ValueItems.DefaultItem = True
|
||||
End If
|
||||
If Me.TBBottom.Columns(i).DataField = "dokumentbeaerbeitung_abgeschlossen" Then
|
||||
Me.TBBottom.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.TBBottom.Columns(i).ValueItems.DefaultItem = True
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.TBBottom.Columns.Count - 1
|
||||
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
||||
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub Insert_TBBottom()
|
||||
Dim iLeft As Integer
|
||||
Dim iRigth As Integer
|
||||
Dim ic, i As Integer
|
||||
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||
Dim vdata As New edokadb.clsStatus()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim Currentsel As Boolean
|
||||
Dim key As Long
|
||||
|
||||
iLeft = Me.TBLeft.SelectedRows.Count
|
||||
iRigth = Me.TBRight.SelectedRows.Count
|
||||
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
||||
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
If Me.FokusLeft.Checked Then
|
||||
ic = iRigth
|
||||
colRows = Me.TBRight.SelectedRows
|
||||
Else
|
||||
ic = iLeft
|
||||
colRows = Me.TBLeft.SelectedRows
|
||||
End If
|
||||
If ic = 0 Then
|
||||
ic = ic + 1
|
||||
Currentsel = True
|
||||
End If
|
||||
For i = 0 To ic - 1
|
||||
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
vdata.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
If Me.FokusLeft.Checked Then
|
||||
vdata.iStatustypnr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
If Currentsel Then
|
||||
vdata.iStatus_bezeichnungnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iStatus_bezeichnungnr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
Else
|
||||
If Currentsel Then
|
||||
vdata.iStatustypnr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
||||
Else
|
||||
vdata.iStatustypnr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
||||
End If
|
||||
|
||||
vdata.iStatus_bezeichnungnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
||||
End If
|
||||
vdata.bDokument_ausgangsarchivieren = New SqlBoolean(CType(False, Boolean))
|
||||
vdata.bDokument_bearbeitung_abgeschlossen = New SqlBoolean(CType(False, Boolean))
|
||||
vdata.bDokumentbearbeitung_moeglich = New SqlBoolean(CType(False, Boolean))
|
||||
vdata.bFolgestatus_durch_anderen_verantwortlichen = New SqlBoolean(CType(False, Boolean))
|
||||
vdata.iErledigung_ab = New SqlInt32(CType(-1, Int32))
|
||||
vdata.iReihenfolge = New SqlInt32(CType(0, Int32))
|
||||
vdata.iFolgestatus_durch_andere_rolle = New SqlInt32(CType(0, Int32))
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("status")
|
||||
vdata.iStatusnr = New SqlInt32(CType(key, Int32))
|
||||
vdata.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
vdata.Insert()
|
||||
conn.CloseConnection(True)
|
||||
Next
|
||||
vdata.Dispose()
|
||||
Refresh_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter3.Update(Me.DataSet3)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Toolbar"
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case Else
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
||||
End Select
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FormularFunktionen"
|
||||
|
||||
Private Sub frmRolle_SysadminFunktion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Cursor.Current = Cursors.WaitCursor
|
||||
Me.TableNameLeft = "statustyp"
|
||||
Me.TableNameRight = "status_bezeichnung"
|
||||
Me.TableNameBottom = "status"
|
||||
LoadData()
|
||||
Cursor.Current = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
||||
Insert_TBBottom()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub check_changes()
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet3.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
Save_Data()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
save_data()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user